Ejemplo DELPHI 5 y 7

Este ejemplo para DELPHI 5 y DELPHI 7.2 (second edition) usa la interface COM sin insertar el control OCX. Se trata simplemente de declarar una variable y crear el objeto desde el mismo código sin usar el control OCX pero con idéntica funcionalidad (ver ejemplo DELPHI 2009).

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.

Para este ejemplo se usa la sentencia CreateOleObject que se encuentra en la unidad ComObj.

Ejecutar los pasos en un nuevo proyecto con un formulario y un objeto tipo "button". Se deben usar fechas del día.

var fe: variant;

var resultado: bool;

var modo: integer;

var micuit: widestring;

var xtipodocumento: integer;

var xtipocomprobante: integer;

var micertificado: widestring;

var licencia: widestring;

var puntoVenta: smallint;

var cidentificador: widestring;

begin

modo:=0;

micuit:='aqui cuit del certificado sin separadores';

micertificado:='aqui ruta del certificado tipo pfx';

licencia:='';

xtipoDocumento:=80;

xtipocomprobante:=1;

puntoVenta:=1;

fe := createoleobject("WSAFIPFE.factura");

resultado:= fe.iniciar(modo, micuit, micertificado, licencia);

resultado:= fe.ObtenerTicketAcceso;

fe.indice:=0;

fe.FECabeceraCantReg:=1;

fe.FECabeceraPresta_serv:=1;

fe.FEDetalleFecha_serv_desde:='20090101';

fe.FEDetalleFecha_serv_hasta:='20090101';

fe.FEDetalleFecha_vence_pago:='20090101';

fe.FEDetalleFecha_cbte:='20090101';

fe.FEDetalleImp_total:=0;

fe.FEDetalleImp_total:=121;

fe.FEDetalleImp_neto:=100;

fe.FEDetalleNro_doc:='aqui cuit del cliente';

fe.FEDetalleTipo_doc:=xtipodocumento;

cidentificador := '1';

resultado:= fe.Registrar(puntoVenta, xtipocomprobante, cidentificador);

showMessagePos('CAE: '+fe.FERespuestaDetalleCae,100,100);

end;

Ante cualquier duda consultar al soporte técnico.