procedure TForm1.Button8Click(Sender: TObject);
var
port: ServiceSoap;
respuesta: FECAEResponse;
Auth: FEAuthRequest;
Request: FECAERequest;
CAECabReq : FECAECabRequest;
CAEDetReq : FECAEDetRequest;
ACAEDetReq : ArrayOfFECAEDetRequest;
ADetIva : ArrayOfAlicIva;
DetIva21 : AlicIva;
DetIva105 : AlicIva;
Tributos : Tributo;
ATributos : ArrayOfTributo;
CbtesAsoc : CbteAsoc;
ACbtesAsoc : ArrayOfCbteAsoc;
x, i : Integer;
NroComp : Integer;
iva : boolean;
begin
screen.Cursor := crHourGlass;
auth := FeAuthRequest.Create;
Request := FECAERequest.Create;
CAEDetReq := FECAEDetRequest.Create;
CAECabReq := FECAECabRequest.Create;
DetIva21 := AlicIva.Create;
DetIva105 := AlicIva.Create;
SetLength(ACAEDetReq,1);
Request.FeCabReq := CAECabReq;
ACAEDetReq[0] := CAEDetReq;
Request.FeDetReq := ACAEDetReq;
SetLength(ADetIva,1);
ADetIVA[0] := DetIva21;
Request.FeDetReq[0].Iva := ADetIva;
iva:=false;
auth.Cuit := cuit;
auth.token := token;
auth.Sign := sign;
Request.FeCabReq.CantReg := 1; Request.FeCabReq.CbteTipo := 1; Request.FeCabReq.PtoVta := 2;
Request.FeDetReq[0].Concepto := 1; Request.FeDetReq[0].DocTipo := 80; Request.FeDetReq[0].DocNro := 20000000001;
NroComp := STRTOINT64(edit1.Text);
Request.FeDetReq[0].CbteDesde := NroComp;
Request.FeDetReq[0].CbteHasta := NroComp;
Request.FeDetReq[0].CbteFch := formatdatetime('yyyymmdd',now);
Request.FeDetReq[0].ImpTotal := 121;
Request.FeDetReq[0].ImpTotConc := 0;
Request.FeDetReq[0].ImpNeto := 100;
Request.FeDetReq[0].ImpOpEx := 0;
Request.FeDetReq[0].ImpIva := 21;
Request.FeDetReq[0].ImpTrib := 0;
if Request.FeDetReq[0].Concepto <> 1 then
begin
Request.FeDetReq[0].FchServDesde := FormatDateTime('yyyymmdd',now); Request.FeDetReq[0].FchServHasta := FormatDateTime('yyyymmdd',now); Request.FeDetReq[0].FchVtoPago := FormatDateTime('yyyymmdd',now); end;
Request.FeDetReq[0].MonId := 'PES';
Request.FeDetReq[0].MonCotiz := 1;
Request.FeDetReq[0].Iva[0].id := 5; Request.FeDetReq[0].Iva[0].BaseImp := 100; Request.FeDetReq[0].Iva[0].importe := 21;
port := GetServiceSoap(false,'', httprio1);
Respuesta := port.FECAESolicitar(Auth,Request );
Memo1.Lines.Add('RESULTADO: ' + respuesta.fedetresp[0].Resultado);
Memo1.Lines.Add('CAE: ' + respuesta.fedetresp[0].CAE);
Memo1.Lines.Add('FECHA VENC: ' + respuesta.fedetresp[0].CAEFchVto);
for x := 0 to high( Respuesta.feDetResp[0].observaciones ) do
Showmessage('Observ. Code : '+inttostr(respuesta.fedetresp[0].observaciones[x].Code) +
' - Observ. Msg. : '+respuesta.fedetresp[0].Observaciones[x].Msg);
for x := 0 to High( respuesta.Errors ) do
Showmessage('Errores : '+inttostr(Respuesta.Errors[x].Code)+' || '+Respuesta.Errors[x].Msg);
auth.Free;
respuesta.Free;
Tributos.Free;
CbtesAsoc.Free;
DetIva21.Free;
DetIva105.Free;
screen.Cursor := crDefault;
end;