impresora fiscal
Publicado por Rafael Velasco (17 intervenciones) el 27/03/2008 00:09:53
Un saludo cordial, necisito saber si alguien tiene una rutina donde se pueda imprimir en una impresora fiscal por com1 gracias
Valora esta pregunta
0
IDENTIFICATION DIVISION.
PROGRAM-ID. PrintToFiscalPrinter.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FileName PIC X(20) VALUE "COM1:". -- Puerto COM1 (ajusta según tu configuración).
01 PrinterHandle PIC S9(9) COMP.
PROCEDURE DIVISION.
OPEN OUTPUT FileName
IF STATUS-CODE = 0
DISPLAY "Impresora fiscal en COM1 abierta con éxito."
MOVE STATUS-CODE TO PrinterHandle
-- Aquí puedes escribir los datos que deseas imprimir.
-- Por ejemplo:
MOVE "Texto para imprimir en la impresora fiscal" TO FileName
WRITE FileName
CLOSE PrinterHandle
IF STATUS-CODE = 0
DISPLAY "Impresión exitosa en la impresora fiscal."
ELSE
DISPLAY "Error al cerrar la impresora fiscal. Código de error: " STATUS-CODE
END-IF
ELSE
DISPLAY "Error al abrir la impresora fiscal en COM1. Código de error: " STATUS-CODE
END-IF
STOP RUN.