Contenido

Inicio‎ > ‎Ejemplos‎ > ‎

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.
En un WorkSpace crear una ventana (Window del tipo PB Ojbect). 
En la ventana insertar un control tipo CommandButton (Insert\Control). 
En la misma ventana insertar el OCX con los siguientes pasos. 
  •     Seleccionar Insert\Control Tipo OLE...
  •     En la ventana para seleccionar el control OLE ir a la solapa "Insert Control"
  •     En esta solapa seleccionar la entrada WSAFIPFE
  •     Insertar el control en la ventana



Seleccionar el control OLE insertado en el formulario y en propiedades cambiar la propiedad "name" igual a "fe"  
 En el evento click del control tipo commandbutton insertar el siugiente código (editar las lineas para colocar los datos correspondientes)  
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