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 antes es necesario agregar una referencia al control ActiveX. Los pasos se detallan para la versión 2009.

Ejecutar los pasos en un proyecto tipo "SDI Application" con un formulario y un objeto tipo "button".

var resultado: bool;

var modo: scmodofiscal;

var micuit: widestring;

var xtipodocumento: sctipodocumento;

var xtipocomprobante: sctipocomprobante;

var micertificado: widestring;

var licencia: widestring;

var numeroEntero1: integer;

var numeroEntero2: integer;

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;

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

resultado:= WSAFIPFE1.ObtenerTicketAcceso();

WSAFIPFE1.indice:=0;

WSAFIPFE1.FECabeceraCantReg:=1;

WSAFIPFE1.FECabeceraPresta_serv:=1;

WSAFIPFE1.FEDetalleFecha_serv_desde:='20090101';

WSAFIPFE1.FEDetalleFecha_serv_hasta:='20090101';

WSAFIPFE1.FEDetalleFecha_vence_pago:='20090101';

WSAFIPFE1.FEDetalleFecha_cbte:='20090101';

WSAFIPFE1.FEDetalleImp_total:=0;

WSAFIPFE1.FEDetalleImp_total:=121;

WSAFIPFE1.FEDetalleImp_neto:=100;

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

WSAFIPFE1.FEDetalleTipo_doc:=xtipodocumento;

cidentificador := '1';

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

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

end;

Ante cualquier duda consultar al soporte técnico.