[Sintaxis] Problemas con comunicación impresoras fiscales.

[Kuk]

@Ale, bueno pues inténtalo así, con COMP-1:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  pgm      pic x(10) value "program".
 01  double   comp-1.
 01  num redefines double pic s9(9) comp-5.
 
 PROCEDURE       DIVISION.
     
     call pgm using by content "Precio"
                    by value num

El caso es que este es de 4 bytes, y lo importes muy grandes no van a entrar.

[fastpho]

@Ale proba con este ejemplo a ver si enviando
valores enteros a la .dll logras facturar
algo , juga con los numeros de los campos
cantidad precio y ver si logras que el impresor
multiplique la cantidad por el precio y facture
un importe.


Otra cosa podes sacar el informe Z ?

Saludos ..

 WORKING-STORAGE SECTION.
*--------------------------------------------------------- 
 01  FUNC-SAM4-LIB          PIC x(50). 
 01  sWait                  PIC s9(9) COMP-5.  
 01  Respuesta-Impresor     PIC s9(9) COMP-5 value 0. 
*---------------------------------------------------------
 01 AbrirTiquetSam4s        PIC x(10)  VALUE "AbrirTique".
 01 CerrarSam4s             PIC x(6)   VALUE "Cerrar".
 
 
 01 ItemVentaSam4s          PIC x(9)   VALUE  "ItemVenta".
 01 ItemBonificacionSam4s   PIC x(16)  VALUE  "ItemBonificacion". 
  
 01 titulo-descripcion      PIC x(11)  value "Descripcion".
 01 titulo-precio           PIC x(6)   value "Precio".
 01 titulo-iva              PIC x(3)   value "IVA".
 01 titulo-codigointerno    PIC x(13)  value "CodigoInterno".
 01 titulo-cantidad         PIC x(8)   value "Cantidad".
 01 titulo-unidadmedida     PIC x(12)  value "UnidadMedida". 
 01 titulo-impinterno       PIC x(15)  value "MontoImpIntFijo".  
 
 01 ArticuloSam4                PIC x(13).
 01 DescriptionSam4             PIC x(40).
 01 PrecioSam4                  PIC s9(9)   COMP-5.
 01 IvaSam4                     PIC s9(9)   COMP-5.
 01 CantidadSam4                PIC s9(9)   COMP-5.
 01 MontoImpIntFijoSam4         PIC S9(9)   COMP-5.
 01 UnidadMedidaSam4            PIC s9(9)   COMP-5.
 
 PROCEDURE       DIVISION.
**********************************************************     
*Begin AbrirTique
 
     move spaces        TO FUNC-SAM4-LIB.
     MOVE "IFOpBegin"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE AbrirTiquetSam4s returning Respuesta-Impresor.
 
        
**********************************************************     
*Send AbrirTiquetSam4s
     move spaces       TO FUNC-SAM4-LIB.
     MOVE "IFOpSend"   TO FUNC-SAM4-LIB.
     MOVE 1            TO sWait.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
 
     
 
*-----------------------------------------------------------------------------------------------------------------------       
* Los campos PrecioSam4 IvaSam4 CantidadSam4 MontoImpIntFijo UnidadMedidaSam4 USAMOS LA FUNCION ENTERO : IFOpParamIntSet
*-----------------------------------------------------------------------------------------------------------------------       
 
*************************************************************************
* muevo valores necesarios para poder facturar un item o articulo
 
 
     move 1210          TO PrecioSam4. 
     move 2100          TO IvaSam4.  
     move 5000          TO CantidadSam4. 
     move zeros         TO MontoImpIntFijoSam4.
     move 7             TO UnidadMedidaSam4. 
 
 
     move "Esto es una prueba" TO DescriptionSam4.
     move "7790060023417"      TO ArticuloSam4.
          
****************************************     
*Begin ItemVenta
     move spaces        TO FUNC-SAM4-LIB.
     MOVE "IFOpBegin"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE ItemVentaSam4s 
                                           returning Respuesta-Impresor.
                                           
************     
*Descripcion
 
     move spaces           TO FUNC-SAM4-LIB.
     MOVE "IFOpParamSet"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE titulo-descripcion 
                                           BY REFERENCE DescriptionSam4
                                           returning Respuesta-Impresor.
 
 
**********
*Cantidad
     move spaces              TO FUNC-SAM4-LIB.
     MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT titulo-cantidad 
                                           BY VALUE   CantidadSam4
                                           returning Respuesta-Impresor.
 
                                           
 
     
*******
*Precio
     move spaces              TO FUNC-SAM4-LIB.
     MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE titulo-precio 
                                           BY VALUE      PrecioSam4
                                           returning Respuesta-Impresor.
 
                                           
****
*Iva
     move spaces                TO FUNC-SAM4-LIB.
     MOVE "IFOpParamIntSet"     TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE titulo-iva 
                                           BY VALUE     IvaSam4
                                           returning Respuesta-Impresor.
 
     
****************     
*Codigo Interno
     move spaces           TO FUNC-SAM4-LIB.
     MOVE "IFOpParamSet"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE titulo-codigointerno 
                                           BY REFERENCE     ArticuloSam4
                                           returning Respuesta-Impresor.
 
****************************
*MontoImpIntFijo
     move spaces              TO FUNC-SAM4-LIB.
     MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE     titulo-impinterno 
                                           BY VALUE         MontoImpIntFijoSam4
                                           returning Respuesta-Impresor.
 
 
*****************
*Unidad de Medida
     move spaces           TO FUNC-SAM4-LIB.
     MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE titulo-unidadmedida 
                                           BY VALUE     UnidadMedidaSam4
                                           returning Respuesta-Impresor.
 
 
**********************************************************     
*Send item
     move spaces       TO FUNC-SAM4-LIB.
     MOVE "IFOpSend"   TO FUNC-SAM4-LIB.
     MOVE 1            TO sWait.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
 
     
     
 
*------------------------
*Begin "Cerrar"      
     move spaces        TO FUNC-SAM4-LIB.
     MOVE "IFOpBegin"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE CerrarSam4s  returning Respuesta-Impresor.
 
 
*Send Cerrar        
 
     move spaces       TO FUNC-SAM4-LIB.
     MOVE "IFOpSend"   TO FUNC-SAM4-LIB.
     MOVE 1            TO sWait.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.

[Ale]

Hola gente. muchas gracias, voy a probar todo y les cuento..
Si cierre Z los larga bien. El tique también, alcanza a largar descripción del articulo, y luego cuando llega a cantidad larga en cero, o si no el compilador no me deja probar otros Pic...
Fastpho voy a probar también con entero, pero el parámetro por ejemplo (precio), me indica que tiene que ser flotante. No se si lo tomaría, o como hago cuando el valor sea con decimales.
saludos chicos. y eternamente agradecido igual...

[fastpho]

@Ale, no importan los decimales el impresor va a.poner el pto decimal no te preocupes por eso
Proba como te lo mande , te envía todo
Debería poner precio 1.21 cantidad 5.00
Vamos a probar todos los valores numéricos
Como enteros por ahora ..
Saludos

[Ale]

Chicos, le comento que probé las dos opciones que me enviaron.
Kuk probé lo que me enviaste. El compilador no me tira error. Pero en ejecución me cancela el tiquet. Y no imprime mas que descripción.

fastpho probé también lo que me indicaste, y tuvo una notable mejoría, si bien me cancela igual el comprobante, precio unitario le muevo 2200 a la variable y en el tiquet me imprime 22,00. Y le muevo
210 a iva y me imprime en el tiquet 2,10. cantidad le envio 300 y me imprime 0,00. y tambien mejoro en el sentido de que no se cierra el programa. Cosa que antes si.
Una leve esperanza le sigo teniendo al cobol..
Todo comenzó porque tengo que hacer el sistema de facturación nueva. por las nuevas resoluciones de Afip y la leyenda a consumidor finales. Me venia comunicando con el controlador fiscal, con la aplicación (Samdrv.exe) por medio de comandos armados en un archivo de texto... pero resulta que la aplicación por lo que estuve averiguando no tiene ningún comando que permita armar esa leyenda. Llamo a la empresa que lo hizo y no me dan respuesta, se ve que es como pienso yo..
Por eso tengo que hacer todo de nuevo comunicándome por DLL . Tengo tiempo hasta Abril.
Fastpho debes saber de lo que hablo..
Hago todo esto para mi negocio, y como se programar algo de cobol, me largue hacer mis sistemas..
Agradecido eternamente a uds.. y disculpen las molestias.

[Kuk]

❞ Kuk probé lo que me enviaste. El compilador no me tira error. Pero en ejecución me cancela el tiquet. Y no imprime mas que descripción.

Es que yo tengo otra versión de PowerCOBOL más reciente... Y tampoco tengo la DLL que utilizas...

Habría que asegurarnos primero de que el problema viene del campo/tipo de campo.

Has probado pasando un valor "en duro", es decir algo así:

     ENVIRONMENT     DIVISION.
     DATA            DIVISION.
     WORKING-STORAGE SECTION.
     01  pgm      pic x(10) value "program".
     01  double   comp-1.
     01  num redefines double pic s9(9) comp-5.
     
     PROCEDURE       DIVISION.
         
         call pgm with stdcall using by content "Precio"
                                     by value 1.16

Por cierto, en mi ejemplo de antes se me había olvidado añadir el convenio del call WITH STDCALL, lo mismo el problema viene de ahí.

Prueba otra vez con el convenio (si no lo habías hecho ya):

     ENVIRONMENT     DIVISION.
     DATA            DIVISION.
     WORKING-STORAGE SECTION.
     01  pgm      pic x(10) value "program".
     01  double   comp-1.
     01  num redefines double pic s9(9) comp-5.
     
     PROCEDURE       DIVISION.
         
         call pgm WITH STDCALL using by content "Precio"
                                     by value num

[Ale]

hola amigos.
Voy a probar enviar el valor en bruto como me decis a ver que pasa.
De la otra forma probé y como comente en el mensaje anterior, no tira error el compilador, pero no funciona.
Descripción, iva, precio unitario enviándolo como Int. en vez de float , algo esta funcionando, no cancela el comprobante, pero no logro que imprima cantidad.
Algo así hago y no toma nada, lo raro que en precio unitario, iva, y los demás valores numéricos los toma.
De todas maneras el manual dice enviar "IFOpParamFloatSet", seguimos en la lucha.

move spaces              TO FUNC-SAM4-LIB.
     MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
     CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT titulo-cantidad 
                                           BY VALUE   CantidadSam4
                                           returning Respuesta-Impresor.

Utilizo powercobol 5 , pero tengo version 7, que no la utilice mucho hasta ahora, que opinan? podría probar con esa? tendría que migrar todo el sistema a esa version.
O se podra copartir en la misma pc las dos versiones.?

[fastpho]

@Ale con el ejemplo que te di te anda ? no esta claro

*************************************************************************
* muevo valores necesarios para poder facturar un item o articulo
 
 
     move 1210          TO PrecioSam4. *> 1.21
     move 2100          TO IvaSam4.  *> 21.00
     move 5000          TO CantidadSam4. *> 5000 tiene 3 decimal el impresor tenes que poner 10000 para que te ponga 10.000
     move zeros         TO MontoImpIntFijoSam4.
     move 7             TO UnidadMedidaSam4.  *> este campo le decis tipo unidades 

*************************************************************************
* muevo valores necesarios para poder facturar un item o articulo
 
 
     move 15260          TO PrecioSam4. *> 15.26
     move 2100          TO IvaSam4.  *> 21.00
     move 15000          TO CantidadSam4. *> 5000 tiene 3 decimal el impresor tenes que poner 15000 para que te ponga 15.000
     move zeros         TO MontoImpIntFijoSam4.
     move 7             TO UnidadMedidaSam4.  *> este campo le decis tipo unidades 

Esto para trabajar los campos numericos como IFOpParamIntSet
subi alguna foto del ticket porfa , y con el valor que manda en estas variables
Saludos..

[Ale]

fastpho si si funciona, pero el único que no funciono es el de cantidad. No se porque.
si envio como el ejemplo : IFOpParamIntSet a la tarde subo foto de tique, no lo tengo a mano aca.

[Kuk]

@Ale, "int" es el tipo Integer, que viene a ser de tipo entero, no te vale para valores con decimales.

La verdad es que no sé qué diferencia hay entre la v5 y la v7. Lo interesante sería, probar mi ejemplo con BINARY-LONG en la v7 y ver si lo acepta. No obstante, aunque el compilador coja esta definición, no garantiza que vaya a funcionar.


No se puede tener 2 instancias NetCOBOL/PowerCOBOL instaladas en el mismo SO. Puedes pasar por otro PC o una VM.