Gracias a los ejemplos y el generador de codigo QR que subio Roberto, , pude armara un utilitario que me genera el codigo QR , y me lo guarda en PNG,
Cuando lo abro, lo visualizo perfecto, y me lo lee sin inconenietes.
Mi problema es que al imprimirlo, sale en blanco.
He puesto aviso para ver si encuentra el archivo, lo guarde tambien como JPG, pero no logro encontrar el problema.
GRACIAS desde ya
GERARDO
Code: Select all
Private cBaseURL, cCuit, cPtoVta, cTipoCmp, cJSON, cBase64JSON
cBaseURL := 'https://www.afip.gob.ar/fe/qr/?p='
cFecha := LEFT(cFecha,4) + '-' + SUBSTR(cFecha,5,2) + '-' + RIGHT(cFecha,2)
cCuit := ALLTRIM(STR(nCUITEmisor))
cPtoVta := ALLTRIM( STR(nPdV) )
cTipoCmp := ALLTRIM(STR(nTipoCmp))
cNroCmp := ALLTRIM( STR(nNroCmp) )
cImporte := ALLTRIM( STR(nImporte) )
cMoneda := ALLTRIM(cMoneda)
cCtz := ALLTRIM(STR(nCtz))
cTipoDocRec := ALLTRIM( STR(nTipoDocRec) )
cNroDocRec := ALLTRIM( STR(nNroDocRec) )
* Crear Texto QR
cJSON := '{"ver":1,"fecha":"' + cFecha + '","cuit":' + cCuit + ',"ptoVta":' + cPtoVta + ',"tipoCmp":' + cTipoCmp + ',"nroCmp":' + cNroCmp + ',"importe":' + cImporte + ',"moneda":"' + cMoneda + '","ctz":' + cCtz + ',"tipoDocRec":' + cTipoDocRec + ',"nroDocRec":' + cNroDocRec + ',"tipoCodAut":"E","codAut":' + cCodAut + '}'
cBase64JSON := hb_base64encode( cJSON )
cFullCode := cBaseURL + cBase64JSON
Return
function CreateBarCode
local hBitMap
hBitMap := HMG_CreateBarCode( cFullCode,;
"QRCODE",;
12,;
12,;
.t.,;
var2,;
aBarColor,;
aBackColor,;
.t.,; // checksum
.f.,; // wide2_5
.f. ) // wide3
Return