Tenemos que pasar el código de barras a QR y un programador, Sergio Castellani, nos brindo gratuitamente un utilitario llamado QRFACIL, que como lo dice el nombre es facilísimo de utilizar.
- Code: Select all Expand view RUN
cimage := ( ' " ' + " QR" + ";" + "30654855478" + ";" + cdate + ";" + valstr(Val(aElectro:pventa)) + ";" + tipcomdgi + ";" ;
+ valstr(Val( aElectro:nrocompro)) + ";" + StrTran(valstr(nTotal),".",",") + ";" + cmoneda + ";" + IIF(cmoneda = "PES", "1", StrTran(valstr(nDolares),".",","))+ ";";
+ "80" + ";" + StrTran( aMae[ 7 ], "-", "" ) + ";" + "E" + ";" + aElectro:cCae + ' " ' )
ShellExecute(0,"","QRFacil", cimage)
QR:= ' "' + "C" + StrZero(Val(tipcomdgi),3) + "-" + cNrofactu + ".jpg" + '" '
QR quedaría como "C201-00005-00000011.jpg"
Ahora el problema lo tengo aquí
- Code: Select all Expand view RUN
@ 19.2, 2.2 PRINT TO oPrn IMAGE AllTrim( qr ) SIZE 2.3, 2.3 CM //no lo imprime
@ 19.2, 2.2 PRINT TO oPrn IMAGE AllTrim( "C201-00005-00000011.jpg") SIZE 2.3, 2.3 CM // SI funciona
No recuerdo como hacerlo e hice algunas pruebas , pero no lo logro .
Otra cosa que me interesa es como cambiarle el nombre y en vez de "C201-00005-00000011.jpg" ponerle "QR.jpg".
Desde ya muchas gracias