Problemas con comunicación impresoras fiscales.

[Ale]

hola. tengo que enviar al impresor fiscal item venta, así como me indica el ejemplo.:

IFOpBegin("ItemVenta")
        Drv.IFOpParamSet("Descripcion", "Item de prueba")
        Drv.IFOpParamFloatSet("Precio", 1.2345)
        Drv.IFOpParamFloatSet("IVA", 21.0)
        Drv.IFOpParamSet("CodigoProducto", "7791234567898")

ahora en COBOL esta bien la sintaxis como la hago ? porque no me tira error, pero no me imprime ningun dato.
todo en cero. Y descripción espacio en blanco.
así envio por ejemplo el importe
No se si el error estara en la sintaxis del Call.

      MOVE 'IFOpParamFloatSet' TO FUNCION.
      MOVE 225.22 TO PARAMETRO-PRECIO3.
      CALL FUNCION WITH STDCALL USING BY REFERENCE PARAMETRO-PRECIO1 PARAMETRO-PRECIO2 
      PARAMETRO-PRECIO3 RETURNING RESPUESTA-IMPRESOR.
 
working
 01 PARAMETRO-PRECIO1  PIC X(6) VALUE 'Precio'.
 01 PARAMETRO-PRECIO2  PIC X(2) VALUE ", ".  
 01 PARAMETRO-PRECIO3  PIC 99999.99 VALUE ZEROS.

Perdón por molestar, le agradecería mucho me puedan ayudar a resolverlo.
saludos...

Mensaje de MODERADOR

Utiliza los botones de resalto de sintaxis: etc.

[fastpho]

Hola @Ale, , por lo que se puede ver no estas respetando las funciones de la libreria.
*funcion IFOpParamFloatSet* devuelve un entero

int IFOpParamFloatSet (const char * name, double value)

La funcion recibe dos parametros le estas mandando 3 y chequea el retorno que es un entero si te da 0 error y 1 exito
El campo descripcion sale con espacios por que no lo estas mandando o pone el ejemplo completo usando botones de resalto.

Saludos...

[Ale]

Hola Fastpho como siempre agradecido por tu ayuda. Estas en lo cierto.. no había percatado eso.
pero lo raro es que me devuelve valor 1. pero no me imprime el importe, lo mismo me pasa con Descripcion. Y no me doy cuenta como armarlo solo con dos parámetros.
Probe varias formas y por ejemplo :

01 PARAMETRO-PRECIO1 PIC X(6) VALUE 'Precio'.

tengo que enviarlo en el using solo separado. ej:

USING BY REFERENCE PARAMETRO-PRECIO1 PARAMETRO-PRECIO2

.... por eso tengo
dividirlo en 3.
saludos y muchas gracias por tu ayuda....

[fastpho]

Hola @Ale , te paso un ejemplo de como pasar parametros a la funciones.

WORKING-STORAGE SECTION.
 01 Titulo-descripcion      pic x(11)    value "Descripcion".
 01 Titulo-precio           pic x(6)     value "Precio".
 01 Description             pic x(15)    value "Prueba de Venta". 
 01 Precio                  pic s9(9)   COMP-5.
 01 SALIDA-IMPRESOR         pic s9(9) COMP-5 value 0. 

int IFOpParamSet (const char * name, const char * value)

*******************************************     
* Descripcion
*************
     move spaces                    TO FUNCION.
     MOVE "IFOpParamSet"   TO FUNCION.
     CALL FUNCION WITH STDCALL USING BY REFERENCE Titulo-descripcion 
                                                   BY REFERENCE      Description
                                                   returning SALIDA-IMPRESOR.

int IFOpParamIntSet (const char * name, int value)

*******************************************     
* Precio 
********
     move spaces                        TO FUNCION.
     move 123                               TO Precio.
     MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
     CALL FUNCION WITH STDCALL USING BY REFERENCE Titulo-precio 
                                                  BY VALUE      Precio
                                                  returning SALIDA-IMPRESOR.

Saludos ....

[Ale]

hola fastpho. nuevamente gracias por tu gran ayuda..
Buenísimo los ejemplos fue un gran asesoramiento, pero vos sabes que Precio sigue sin funcionar.. me lo imprime en 0.00 al tique.
Descripción si anda.. pero todo lo que sea importe ya sea Precio, Cantidad, Iva. no anda ninguno.
realmente se me acaba el tiempo y no logro hacerlo funcionar..
un gran saludo...
y agradecido como siempre.

[fastpho]

Hola @Ale deberia funcionarte usando en todos los campos numericos , el ejemplo
que te puse , es decir usando la funcion Entero , NO uses la del Funcion Flotante.

int IFOpParamIntSet (const char * name, int value)

Saludos.....

[Ale]

Hola fastpho, perdón pero no me doy cuenta.. pongo otro ejemplo en otro lenguaje por las dudas.
Probé de varias maneras y no hay caso. Lo unico pude hacer funcionar es "Descripcion".

printf("AbrirTique\n");
        IFOpBegin("AbrirTique");
        cmd_send();
 
        printf("ItemVenta\n");
        IFOpBegin("ItemVenta");
        IFOpParamSet("Descripcion", "Item de prueba");
        IFOpParamFloatSet("Precio", 1.2345);
        IFOpParamFloatSet("IVA", 21.0);
        IFOpParamSet("CodigoProducto", "7791234567898");
        cmd_send();
        printf("Cerrar\n");
        IFOpBegin("Cerrar");

saludos. Ale.

[Fito]

Hola:

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

 
Working...
 
     02 oCant.
        03 xxCant         pic 9(5).9999.            *> Cantidad
        03                pic x value X"00".
 
     02 oPreuni.
        03 xxPreuni       pic 9(7).9999.            *> Precio unitario.
        03                pic x value X"00".
Procedure...
 
        call ImprimirItem with stdcall using
           by value     xSuma
           by reference oArtdenom
           by reference oCant
           by reference oPreuni
           by value     oIva
           by value     oImpint
           by reference oValor
           by value     oIdCod
           by reference oCodigo
           by reference oCodigoUM
           by value     oMedida
           returning wError

Saludos...

Fito...