Ver Mensaje Individual
  #18
Antiguo 17 de febrero de 2022, 14:54
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

Hola:

Los valores numéricos tenés que finalizarlos con un null. Ejemplo

Código COBOL:
  1.  
  2. Working...
  3.  
  4.      02 oCant.
  5.         03 xxCant         pic 9(5).9999.            *> Cantidad
  6.         03                pic x value X"00".
  7.  
  8.      02 oPreuni.
  9.         03 xxPreuni       pic 9(7).9999.            *> Precio unitario.
  10.         03                pic x value X"00".
  11. Procedure...
  12.  
  13.         call ImprimirItem with stdcall using
  14.            by value     xSuma
  15.            by reference oArtdenom
  16.            by reference oCant
  17.            by reference oPreuni
  18.            by value     oIva
  19.            by value     oImpint
  20.            by reference oValor
  21.            by value     oIdCod
  22.            by reference oCodigo
  23.            by reference oCodigoUM
  24.            by value     oMedida
  25.            returning wError

Saludos...

Fito...
Fito is offline   Responder Con Cita