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