RM COBOL

Este ejemplo usa el identificador "1" como 3°er argumento del método registrar. Debe usar un identificador único y diferente para obtener CAE diferentes en cada ejecución. Después de probar el ejemplo lea toda la documentación referente a "identificador" y "reproceso" para una explicación detallada sobre la función de este argumento.

El ejemplo es para la versión RM COBOL de COBOL WOW. Sirve para cualquier versión que permita usar controles ActiveX. Este ejemplo emite una factura y muestra en el título de la ventana del formulario el CAE obtenido. Para simplificar no hay validación de errores.

CALL AXDOMETHOD using WIN-RETURN fe-H

"INICIAR" 0 "aqui CUIT sin separados" "aqui archivo del certificado tipo.pfx" "".

CALL AXDOMETHOD using WIN-RETURN fe-H

"obtenerTicketAcceso".

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"indice" 0.

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FECabeceraCantReg" 1.

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FECabeceraPresta_serv" 1.

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleFecha_vence_pago" "20090101".

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleFecha_serv_desde" "20090101".

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleFecha_serv_hasta" "20090101".

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleFecha_vence_pago" "20090101".

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleImp_neto" 100.

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleImp_total" 121.

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleFecha_cbte" "20090101".

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleNro_doc" "aqui CUIT del cliente sin separadores".

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"FEDetalleTipo_doc" 80.

MOVE "1" TO cIdentificador

CALL AXDOMETHOD using WIN-RETURN fe-H

"registrar" 1 1 cIdentificador.

CALL AXSETINDEXPROP USING WIN-RETURN fe-H

"indice" 0.

CALL AXGETINDEXPROP USING WIN-RETURN fe-H

"FERespuestaDetalleCae" Resultado.

CALL WOWSETPROP USING WIN-RETURN FORM1-H "TITLE" Resultado.