PUBLIC nro as long
PUBLIC POS as long
PUBLIC tipo as long
&& Los nombres de los parámetros de las funciones se obtienen descomprimiendo FEAFIP DOC
&& y luego abriendo el archivo index.html de la carpeta "Doc Interfaces".
&& la interfaz correspondiente a este ejemplo es Iwsfev1 para facturas A y B.
&& URLs de autenticacion y negocio. Cambiarlas por las de producción al implementarlas en el cliente(abajo)
URLWSAA = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms"
&& Producción: https://wsaa.afip.gov.ar/ws/services/LoginCms
URLWSW = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx"
&& Producción: https://servicios1.afip.gov.ar/wsfev1/service.asmx
Ptovta = 110
Tipocomp = 1 &&Factura A(Ver excel referencias codigos AFIP documentacion.rar)
fechacmp = transform(year(date()),"@L 9999") + transform(month(date()),"@L 99") + ; transform(day(date()),"@L 99") && Tomo la fecha actual como ejemplo
wsfev1 = CREATEOBJECT("FEAFIPLib.wsfev1")
wsfev1.CUIT = 20939802593
wsfev1.URL = URLWSW
If wsfev1.login("certificado.crt", "clave.key", URLWSAA) Then
If Not wsfev1.SFRecuperaLastCMP(Ptovta, Tipocomp) Then
MessageBox(wsfev1.ErrorDesc)
else
nro = wsfev1.SFLastCmp &&Devolucion el ultimo comprobante
endif
nro = nro + 1
wsfev1.Reset()
wsfev1.AgregaFactura(1, 80, 30702637895, nro, nro, fechacmp, 121, 0, 100, 0, "", "", "", "PES", 1)
wsfev1.AgregaIVA(5, 100, 21) &&Ver excel referencias codigos AFIP documentacion.rar
If wsfev1.Autorizar(Ptovta, Tipocomp) Then
If wsfev1.SFresultado(0)="A" Then
MessageBox("Felicitaciones! Si ve este cartel es porque obtuvo CAE y Vencimiento. CAE:" +;                 wsfev1.SFCAE(0) + " Vencimiento: " + wsfev1.SFVencimiento(0))
Else
* observaciones
MessageBox(wsfev1.AutorizarRespuestaObs(0))
Endif
Else
MessageBox(wsfev1.ErrorDesc)
EndIf
Else
MessageBox(wsfev1.ErrorDesc)
EndIf

{ Los nombres de los parametros de las funciones se obtienen descomprimiendo FEAFIP DOC
y luego abriendo el archivo index.html de la carpeta "Doc Interfaces".
la interfaz correspondiente a este ejemplo es Iwsfev1 para facturas A y B.}
const
//URLs de autenticacion y negocio. Cambiarlas por las de producción al implementarlas en el cliente(abajo)
URLWSAA = 'https://wsaahomo.afip.gov.ar/ws/services/LoginCms';
//Producción: https://wsaa.afip.gov.ar/ws/services/LoginCms
URLWSW = 'https://wswhomo.afip.gov.ar/wsfev1/service.asmx';
// Producción: https://servicios1.afip.gov.ar/wsfev1/service.asmx
var
// Importar FEAFIPlib en esta unit: FEAFIPLib_TLB.
wsfev1: iwsfev1;
nro: Double;
CAE, Vencimiento, Resultado, Reproceso, FechaComp: WideString;
PtoVta, TipoComp: integer;
begin
CAE := '';
Vencimiento := '';
Resultado := '';
Reproceso := '';
nro := 0;
PtoVta := 10;
TipoComp := 1; // Factura A(ir a http://www.bitingenieria.com.ar/codigos.html)
FechaComp := FormatDateTime('yyyymmdd', Now());
wsfev1 := Cowsfev1.Create;
wsfev1.CUIT := 20939802593; // Cuit del vendedor
wsfev1.URL := URLWSW;
if wsfev1.login('certificado.crt', 'clave.key', URLWSAA) then
begin
if not wsfev1.RecuperaLastCMP(PtoVta, TipoComp, nro) then
ShowMessage (wsfev1.ErrorDesc)
else
begin
nro := nro + 1;
wsfev1.Reset;
wsfev1.AgregaFactura(1, 80, 30707219072, nro, nro, FechaComp, 121, 0, 100, 0, '', '', '', 'PES', 1);
wsfev1.AgregaIVA(5, 100, 21); //ir a http://www.bitingenieria.com.ar/codigos.html
if wsfev1.Autorizar(PtoVta, TipoComp) then
begin
wsfev1.AutorizarRespuesta(0, CAE, Vencimiento, Resultado, Reproceso);
If Resultado = 'A' Then
ShowMessage('Felicitaciones! Si ve este mensaje instalo correctamente FEAFIP. CAE y Vencimiento '                         + ':' + CAE + ' ' + Vencimiento)
else
ShowMessage(wsfev1.AutorizarRespuestaObs(0))
end
else
ShowMessage(wsfev1.ErrorDesc);
end
end
else
ShowMessage(wsfev1.ErrorDesc);
end;

/* Los nombres de los parametros de las funciones se obtienen descomprimiendo FEAFIP DOC
y luego abriendo el archivo index.html de la carpeta "Doc Interfaces".
la interfaz correspondiente a este ejemplo es Iwsfev1 para facturas A y B.*/
const
//URLs de autenticacion y negocio. Cambiarlas por las de producción al implementarlas en el cliente(abajo)
string URLWSAA = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms";
//Producción: https://wsaa.afip.gov.ar/ws/services/LoginCms
string URLWSW = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx";
// Producción: https://servicios1.afip.gov.ar/wsfev1/service.asmx
// Agregar FEAFIPlib como referencia al proyecto desde el menu y luego en el using.
string CAE = "";
string Vencimiento = "";
string Resultado = "";
string Reproceso = "";
double nro = 0;
int PtoVta = 10;
int TipoComp = 1; // Factura A(ir a http://www.bitingenieria.com.ar/codigos.html)
string FechaComp = DateTime.Today.ToString("yyyyMMdd");
wsfev1 lwsfev1 = new wsfev1();
lwsfev1.CUIT = 20939802593; // Cuit del vendedor
lwsfev1.URL = URLWSW;
if (lwsfev1.login("certificado.crt", "clave.key", URLWSAA))
{
if (lwsfev1.RecuperaLastCMP(PtoVta, TipoComp, out nro) == false)
{
MessageBox.Show(lwsfev1.ErrorDesc);
}
else
{
nro = nro + 1;
lwsfev1.Reset();
lwsfev1.AgregaFactura(1, 80, 30707219072, nro, nro, FechaComp, 121, 0, 100, 0, "", "", "", "PES", 1);
lwsfev1.AgregaIVA(5, 100, 21); //ir a http://www.bitingenieria.com.ar/codigos.html
if (lwsfev1.Autorizar(PtoVta, TipoComp))
{
lwsfev1.AutorizarRespuesta(0, out CAE, out Vencimiento, out Resultado, out Reproceso);
if (Resultado == "A")
{
MessageBox.Show("Felicitaciones! Si ve este mensaje instalo correctamente FEAFIP. CAE y" +                     " Vencimiento :" + CAE + " " + Vencimiento);
}
else
{
MessageBox.Show(lwsfev1.AutorizarRespuestaObs(0));
}
}
else
{
MessageBox.Show(lwsfev1.ErrorDesc);
}
}
}
else
{
MessageBox.Show(lwsfev1.ErrorDesc);
}