Page 1 of 1

ver imagen creadO EL NOMBRE como texto

Posted: Sun Feb 07, 2021 11:39 pm
by surGom
No se si es bueno el título pero el problema es la siguiente.

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

      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

 @ 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

Re: ver imagen creadO EL NOMBRE como texto

Posted: Sun Feb 07, 2021 11:41 pm
by surGom
Perdón en el código la primera línea cimage , es la forma para utilizar QRfacil

Luis