PowerBuilder
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.
string cadena
double numero
boolean resultado
string cIdentificador
if fe.object.iniciar(0, "cuit del emisor sin separadores", "ruta y nombre del archivo *.pfx", "") then
if fe.object.obtenerTicketAcceso() then
FE.object.FECabeceraCantReg = 1
FE.object.FECabeceraPresta_serv = 1
FE.object.indice = 0
FE.object.FEDetalleFecha_vence_pago = "20091102"
FE.object.FEDetalleFecha_serv_desde = "20091102"
FE.object.FEDetalleFecha_serv_hasta = "20091102"
FE.object.FEDetalleFecha_vence_pago = "20091102"
FE.object.FEDetalleImp_neto = 100
FE.object.FEDetalleImp_total = 121
FE.object.FEDetalleFecha_cbte = "20091102"
FE.object.FEDetalleNro_doc = "aqui cuit sin separador de un inscripto"
FE.object.FEDetalleTipo_doc = 80
cIdentificador = "1"
if fe.object.registrar(1, 1, cIdentificador) then
cadena = fe.object.ferespuestadetallecae
messagebox("cae obtenido", cadena)
cadena = string(fe.object.FERespuestaDetalleCbt_desde)
messagebox("numero obtenido", cadena)
cadena = fe.object.ferespuestareproceso
messagebox ("reproceso s/n", cadena)
else
cadena = fe.object.ultimomensajeerror
messagebox("error afip ", cadena)
cadena = fe.object.feRespuestaMotivo
messagebox("motivo AFIP", cadena)
end if
else
cadena = fe.object.ultimomensajeerror
messagebox("error al acceder", cadena)
end if
else
cadena = fe.object.ultimomensajeerror
messagebox("error al iniciar", cadena)
end if