GENERABMP.
IF FC-LETRA = "A"
IF FC-COMPROBANTE = 0
MOVE 1 TO W-TIPOELEC
ELSE
MOVE 3 TO W-TIPOELEC
ELSE
IF FC-COMPROBANTE = 0
MOVE 6 TO W-TIPOELEC
ELSE
MOVE 8 TO W-TIPOELEC.
**************************************************************
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1CabeceraPtoVta" EMP-PUNTO
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1CabeceraCbteTipo" W-TIPOELEC
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1CabeceraCantReg" 1
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleConcepto" 1
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleCbteFch" FC-FECHA
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleCbteDesde" FC-NUMERO
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleCbteHasta" FC-NUMERO
MOVE FC-TOTALGEN TO IMP-ED
PERFORM CONVI.
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleImpTotal" IMP-ED
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleMonId" "PES"
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleMonCotiz" 1
IF FC-TIPOIVA = 0
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleDocTipo" 80
ELSE
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleDocTipo" 99.
IF FC-CUIT > 0
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleDocTipo" 80.
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleDocNro" FC-CUIT
CALL WOWSETPROP USING WIN-RETURN FE-H
"F1DetalleQRFormato" "6".
CALL WOWSETPROP USING WIN-RETURN FE-H
"F1DetalleQRResolucion" "4".
CALL WOWSETPROP USING WIN-RETURN FE-H
"F1DetalleQRTolerancia" "0".
CALL WOWSETPROP USING WIN-RETURN FE-H
"F1DetalleQRArchivo" "IMPREQR.JPG".
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1Detalleqrtipocodigo" "E"
CALL AXSETINDEXPROP USING WIN-RETURN fe-H
"F1DetalleCAEA" FC-CAE.
CALL AXDOMETHOD USING WIN-RETURN fe-H
"f1qrGenerar" "99".
CALL AXGETINDEXPROP USING WIN-RETURN fe-H
"ultimomensajeerror" mensa-ed.
DISPLAY MENSA-ED REVERSE.
FGENERABMP. EXIT.
HOLA ESO ESTA HECHO EN COBOLWOW, LO QUE HAGO COMO YO GENERO LA FACTURA PIDO EL CAE, SI ME LO DA GRABO EL REGISTRO Y
LUEGO GRABO LA FACTURA Y MANDO A OTRO PROGRAMA A IMPRIMIR, EN ESE PROGRAMA LEO LA FACTURA QUE TERMINE DE GRABAR
Y TENGO TODOS LOS DATOS QUE PIDE LA AFIP PARA GENERAR EL QR, LO UNICO QUE HAGO AL PRINCIPIO UNA VEZ PONER ESTO
ABRE-ELEC.
CALL AXDOMETHOD using WIN-RETURN fe-H
"INICIARST" EMP-REAL EMP-CUIT EMP-CERTIF EMP-LICENCIA.
CALL AXSETINDEXPROP using WIN-RETURN fe-H
"archivocertificadopassword" "fbargiano".
CALL AXSETINDEXPROP using WIN-RETURN fe-H
"tls" 12.
FABRE-ELEC. EXIT.
SIN VALIDAR NADA, LO USA NADA MAS QUE PARA TENER EL CUIT DEL EMISOR Y LUEGO HAGO EL GENERABMP, DONDE LE PASO LOS MISMOS DATOS QUE PIDE LA AFIP Y LE MANEJO EL FORMATO QUE ES 6 SIGNIFICA JPG Y LE DOY EL NOMBRE DEL QR A GENERAR, CUANDO HAGO EL
CALL AXDOMETHOD USING WIN-RETURN fe-H
"f1qrGenerar" "99".
ME GENERA EL QR, PERO TODO INTERNO SIN USAR INTERNET NI IR A LA AFIP, EL QR ME LO GENERA SOLO EL QR DE SERGIO.
ESPERO QUE SE HAYA ENTENDIDO
FERNANDO