Adjunte los parámetros según manual de la Dll.
Y también a continuación les muestro, como lo tengo echo y (me funciona), de la otra forma de comunicarme con la misma fiscal.
Que como les indique anteriormente, no lo hago por esta Dll, lo hago con un programa que se llama (Samdrv.exe), que lo que hace es leerme un txt
que le envío armado para que imprima.
Código COBOL:
WORKING.....
01 REG-TEXTADD GLOBAL.
03 FILLER PIC X(8) value "[txtadd]".
03 FILLER PIC X VALUE ";".
03 TEXTO-ITEM-FISCAL PIC X(26) VALUE SPACES.
** probado no mas de 26 caracteres para texto item
03 FILLER PIC X VALUE ";".
01 REG-ITEM GLOBAL.
03 FILLER PIC X(6) value "[item]".
03 FILLER PIC X VALUE ";".
03 COD-ARTICULO-FISCAL pic X(16) value SPACES.
03 FILLER PIC X VALUE ";".
03 CANT-UNI-FISCAL PIC X(7) VALUE SPACES.
03 FILLER PIC X VALUE ";".
03 PRECIO-UNI-FISCAL PIC X(8) VALUE SPACES.
03 FILLER PIC X VALUE ";".
03 TAZA-IVA-FISCAL PIC XX VALUE "21".
03 FILLER PIC X VALUE ";".
03 FILLER PIC X(10) VALUE "0.00000000".
03 FILLER PIC X VALUE ";".
03 FILLER PIC 9 VALUE 0.
03 FILLER PIC X VALUE ";".
* 03 COD-ARTICULO-FISCAL PIC X(15).
03 FILLER PIC X VALUE ";".
03 FILLER PIC 9 VALUE 0.
03 FILLER PIC X VALUE ";".
********************************************
01 PASAJE-UNITARIO PIC 999999.99.
01 PASAJE-CANTIDAD PIC 9999.99.
01 PASAJE-TAZA PIC 99.99.
PROCEDURE...
******
MOVE "Numeric"(4) OF "ListItems" (ULTIMA-LINEA-ACTIVA) OF LIST1 TO PASAJE-CANTIDAD.
MOVE "Numeric"(5) OF "ListItems" (ULTIMA-LINEA-ACTIVA) OF LIST1 TO PASAJE-UNITARIO.
MOVE PASAJE-CANTIDAD TO CANT-UNI-FISCAL.
MOVE PASAJE-UNITARIO TO PRECIO-UNI-FISCAL.
*** aca arma el registro : 01 REG-ITEM global.
Formato del txt que envio : IN_ELLIX40F.TXT
[txtadd];DISCO FREN CLIO 1.4 R9 R11;
[item];4WD84705 ;0002.00;033000.0;21;0.00000000;0;;0;
[pago];0066000.00;20;
[cerrar];