Método f1qrGenerar - WSMTXCA

216 views
Skip to first unread message

Facundo Forcada

unread,
Feb 19, 2021, 9:30:34 AM2/19/21
to Factura electronica y otros servicios Argentina WSAFIPFE
Buen dia! 
Existe forma de usar la misma lógica descripta en f1qrGenerar para el servicio WSMTXCA? Entiendo que las propiedades usadas en dicho ejemplo referencian a WSFEv1... Pero en el caso de WSMTXCA (usando Versión 94.80) no encuentro las mismas propiedades con el prefijo "fx", Ejemplo "fxqrGenerar".
Es posible referenciar al servicio WSMTXCA con dicho ejemplo? 

Saludos.

Sergio Camusso

unread,
Feb 19, 2021, 11:18:40 AM2/19/21
to Factura electronica y otros servicios Argentina WSAFIPFE

En f1qrgenerar se cargan los datos del comprobante y se genera el QR no importa de qué servicio vienen. Ya que en el código QR no figuran como se originó el CAE.. es un método independiente ya que AFIP no lo contempla

Fernando Bargiano

unread,
Feb 19, 2021, 3:16:11 PM2/19/21
to Factura electronica y otros servicios Argentina WSAFIPFE
       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
Message has been deleted

Sergio Camusso

unread,
Mar 3, 2021, 2:10:55 PM3/3/21
to Factura electronica y otros servicios Argentina WSAFIPFE
Asi es, el método f1qrgenerar(99) permite generar el QR desde cualquier lenguaje, sin más. Y como en el QR que pide AFIP figuran datos como: total, fecha, cuit, cae, etc. pero no debe figurar de que servicio es el CAE (WSFEV1, WSMTCA, CAE, etc) en teoría sirve para todos los casos. Gracias Fernando por el aporte.

Rosa Hazan

unread,
Mar 4, 2021, 11:59:59 AM3/4/21
to Sergio Camusso, Factura electronica y otros servicios Argentina WSAFIPFE
Hola a todos, el QR de Camusso genera un QR que al escanear direcciona a una pág de Afip estática. Es Afip q todavía no valida el QR o es un problema del instalador 94.60?

--
Has recibido este mensaje porque estás suscrito al grupo "Factura electronica y otros servicios Argentina WSAFIPFE" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a factura-electronica-y-otros-servic...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/factura-electronica-y-otros-servicios-argentina-wsafipfe/f7189f46-fbf0-472c-a73d-7ee325dc6d89n%40googlegroups.com.

southware1

unread,
Mar 15, 2021, 4:10:51 PM3/15/21
to Factura electronica y otros servicios Argentina WSAFIPFE
Una consulta ¿qué significa el 99 que le pasamos al método f1qrgenerar(99)? ¿En alguna situación hay que reemplazar el 99 por algún otro valor?
Reply all
Reply to author
Forward
0 new messages