[Sintaxis] 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...

Comentario 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...

[Ale]

hola amigos! espero que estén bien..
Aun no puedo lograr enviar esta función a la fiscal (no me funciona),
para enviar el importe en decimales item y cantidad.

manual de la DLL: dice

int IFOpParamFloatSet (const char * name, double value)

Agrega un parámetro de número flotante por nombre al comando que se está preparando.
Parámetros:
• name: nombre del parámetro. Ver detalles en el Capítulo III.
• value: valor del parámetro. Retorno: 1 en caso de éxito, 0 en caso de error.

ejemplos: otro lenguaje.

drv.IFOpParamFloatSet("Precio", 1.2345);
   
           oPrtFis:IFOpParamFloatSet("Precio", aLinea5).

como se envía con cobol.? y como lo defino en la working a la variable que lleva el precio del articulo.
01 precio.... ya probé definiéndolo como PIC S9(9) COMP-5 y no anduvo.

algo así tengo armado:

     move spaces                        TO FUNCION.
     MOVE "IFOpParamFloatSet"   TO FUNCION
     CALL FUNCION WITH STDCALL USING BY REFERENCE PARAMETRO-PRECIO
                                                  BY VALUE      Precio
                                                  returning SALIDA-IMPRESOR.
 
 WORKI...
     01 PARAMETRO-PRECIO        pic x(6)     value "Precio".
     01 precio ....  ?????

Si alguien me puede dar una mano, desde ya muchas gracias..
Saludos a todos....

[fastpho]

Hola Ale

Para poder ayudarte podrias poner que version de powercobol estas usando , en que entorno estas
la impresora fiscal es ????? , esta fiscalizada o en modo entrenamiento , tipo comunicacion
serial o usb , que libreria estas usando , Podes sacar X y Z basico , subi un pequeño proyecto
para verlo completo como abris el puerto , como lo cerras , como haces el proceso de venta del item o articulo
etc etc

Respeta las normas del foro.....

Saludos ....