Tema: Problemas con comunicación impresoras fiscales.
Ver Mensaje Individual
  #69
Antiguo 31 de marzo de 2025, 18:33
Ale
Forero Junior
Última Actividad 23.06.2026 00:14
Posts Posts: 43
Likes enviados Enviados: 19
Likes recibidos Recibidos: 2
Predeterminado impresoras fiscales
0
Likes

None...

Inactivo Inactivo
hola amigos. como estan?
Les hago consulta, para ver si uds se dan cuenta como resolverlo.

Código COBOL:
  1.  working....
  2.  01 PARAMETRO-ENCABEZADO  PIC X(24) VALUE "EstablecerEncabezadoCola".                                      
  3.  01 TITULO-ECNumero  PIC X(6)  VALUE "Numero".
  4.  01 TITULO-ECTexto   PIC X(5)  VALUE "Texto".
  5.  01 Valor-ECNumero   PIC S9(9) COMP-5.
  6.  01 Valor-ECTexto    PIC X(26).
  7.   
  8.  procedure.
  9.    inicio.
  10.          ......
  11.          ......
  12.          cargo (item-venta), envio (pago).  y luego antes de cerrar comprobante.
  13.          voy a probar-cola.
  14.    
  15.     
  16.    PROBANDO-COLA.
  17.       MOVE SPACES TO comando.    
  18.       move zero to respuesta-impresor.
  19.       MOVE "IFOpBegin" to comando.        
  20.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  21.                                       RETURNING RESPUESTA-IMPRESOR.      
  22.       if respuesta-impresor = 0 MOVE "ERROR estableziendo cola" TO POW-TEXT OF armado-cola. 
  23.  
  24. ****** este comando ya me larga (error) cuando lo envio.   probe como (content) tambien.                                                                                    
  25.  
  26. *** numero-cola.
  27.       MOVE spaces TO FUNCION3.
  28.       MOVE "IFOpParamSet"TO FUNCION3.
  29. *** Acá lo envio como ParamSet..(texto), porque como "IFOpParamIntSet" no me funciono (me larga error) valor 0
  30.       CALL FUNCION3 WITH STDCALL USING BY CONTENT TITULO-ECNumero 
  31.                                        by CONTENT "19"
  32.                                        returning Respuesta-Impresor.
  33.       if respuesta-impresor = 0 move "error-colas" to pow-text of error-cod-cola. 
  34. *** texto-cola      
  35.       MOVE spaces           TO FUNCION.
  36.       MOVE "IFOpParamSet"   TO FUNCION.
  37.       MOVE SPACES  TO Valor-ECTexto.      
  38.       move "probando transparencia fiscal" to Valor-ECTexto.
  39.       CALL FUNCION WITH STDCALL USING BY reference TITULO-ECTexto 
  40.                                       BY REFERENCE Valor-ECTexto
  41.                                       returning Respuesta-Impresor.        
  42.       if respuesta-impresor = 0 move "error-texto-cola" to pow-text of error-tex-cola.    
  43.  
  44. ************************* 
  45.                 Consulta que opinan y como hacerlo si envío todo junto. algo así:
  46.      
  47.       moOVE SPACES TO comando.    
  48.       move zero to respuesta-impresor.
  49.       MOVE "IFOpBegin" to comando.        
  50.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  51.                                       by reference TITULO-ECNumero 
  52.                                       by content "19"
  53.                                       by reference TITULO-ECTexto 
  54.                                       ....    
  55.                                       ....    
  56.                                       RETURNING RESPUESTA-IMPRESOR.

saludos....
Ale is offline   Responder Con Cita