- Code: Select all Expand view RUN
IF !lmoneda .and. !lsinleyenda
oPrn:Cmsay (19,2.2,("Para impositiva, NETO $: "+ alltrim(transform((ttatal*nDolares),"@e 999,999.99") )+ " IVA$: " + alltrim(transform(ntiva,"@e 99,999.99"));
+ " PIB BA: " + alltrim(transform(nIbru,"@e 99,999.99"))+ " PIB CF: " + alltrim(transform(nibrucap,"@e 99,999.99"))),oFont2 )
oPrn:Cmsay (19.4,2.2, "TOTAL $: " + alltrim(transform(nTotal,"@e 999,999.99") ))
endif
// @ 19, 2.2 PRINT TO oPrn IMAGE "qr.jpg" SIZE 1,1 INCHES NOTRANSPARENT STRETCH //prueba no funciona
// @ 19, 2.2 image "qr.jpg" SIZE 1,1 OF oPrn SIZE 1.1 // no funciona
if !lmoneda
oPrn:Cmsay (19.4,2.2, "TOTAL $: " + alltrim(transform(ntotal,"@e 999,999.99") ))
endif
@ 20.5, 2.2 CM_INT25 AllTrim( aElectro:cCodbar ) of oPrn SIZE .8
oPrn:Cmsay( 21, 14.5, "TOTAL:", oFont )
etc, etc
Es para reemplazar el código de barras por el QR, la impresión es sobre una plantilla .emf
necesitaria imprimirlo dónde va el código de barras
Muchas Gracias