Web Service con error al conectarme

[raulb]

Carlos, si ya superaste el paso de inicializar

Código Delphi [-]
 
var
      kcfac     : Ferequest;
 
      kcfac  := Ferequest.Create;
      kcfac.fecr := FecabeceraRequest.create;

Asignas el contenido de fecr, pero cuando inicializas fedr, se me queman los papeles.

Código Delphi [-]
      kcfac.fedr[0]  := FedetalleRequest.create;    // (Aca da error la ejecucion)

si le antepongo Setlength(kcfac.fedr,1) dimensionando el array que voy a crear, me da error el compilador diciendo que el objeto no puede utilizarce.

Como lo resolviste?

[raulb]

Carlos :
Me doy cuenta que estas usando otra wsfe.wdsl porque los procedimientos tienen otro nombre, me imagino que debe ser la version que entra en vigencia el 01/07/2011, de donde bajaste el wdsl (me podes pasar el link) porque evidentemente estoy probando con la versión vieja.
Gracias

[cybsistemas]

En afip.gob.ar/fe/ click en herramientas de asistencia
RG 2485 Diseño de registro XML V 1.1
RG 2485 Manual V1.1
Te bajás esos 2 arhivos.
Te mando el procedure completo. Fijate que Kin tenés que crearla pero Kout se crea sola. A los array de entrada tenés que asignarle espacio a los de salida se asigna solo

Código Delphi [-]
 Function TFormFac.SolicitarCAE : Boolean;
 Var
 I : Integer;
 Kin : FECAERequest;
 CAECabReq : FECAECabRequest;
 ACAEDetReq : ArrayOfFECAEDetRequest;
 CAEDetReq : FECAEDetRequest;
 ADetIva : ArrayOfAlicIva;
 DetIva : AlicIva;
 KOut : FECAEResponse;
 CAECabResp : FECAECabResponse;
 ACAEDetResp : ArrayOfFECAEDetResponse;
 CAEDetResp : FECAEDetResponse;
 AObserv : ArrayOfObs;
 AError : ArrayOfErr;
      Begin
      {
      1: Factura A
      2: Nota de Débito A
      3: Nota de Crédito A
      6: Factura B
      7: Nota de Débito B
      8: Nota de Crédito B
      }
      SetLength(ACAEDetReq,1);
      SetLength(ADetIva,1);
      Kin := FECAERequest.Create;
      CAECabReq := FECAECabRequest.Create;
      CAEDetReq := FECAEDetRequest.Create;
      DetIva := AlicIva.Create;
      CAECabReq.CantReg := 1;
      CAECabReq.CbteTipo := TipDoc;
      CAECabReq.PtoVta := PuntodeVenta;
      CAEDetReq.Concepto := 1;
      CAEDetReq.DocTipo  := 80;
      CAEDetReq.DocNro := DmMain.CliCuit.AsLargeInt;
      CAEDetReq.CbteDesde := numfac;
      CAEDetReq.CbteHasta := numfac;
      CAEDetReq.CbteFch := FormatDateTime('YYYYMMDD',EdFecha.Date);
      CAEDetReq.ImpTotConc := 0;
      CAEDetReq.ImpOpEx := 0;
      CAEDetReq.ImpTrib := 0;
      If LookMoneda.KeyValue = 1 then
           Begin
           CAEDetReq.ImpTotal := StrToFloat(Format('%12.2f',[TotalFinal]));
           CAEDetReq.ImpNeto := StrToFloat(Format('%12.2f',[TotalNeto]));
           CAEDetReq.ImpIVA := StrToFloat(Format('%12.2f',[IvaTotal]));
           End
 
      Else
           Begin
           CAEDetReq.ImpTotal := StrToFloat(Format('%12.2f',[TotalFinal * ValDolar]));
           CAEDetReq.ImpNeto := StrToFloat(Format('%12.2f',[TotalNeto * ValDolar]));
           CAEDetReq.ImpIVA := StrToFloat(Format('%12.2f',[IvaTotal * ValDolar]));
           End;
 
      CAEDetReq.MonId := 'PES';
      CAEDetReq.MonCotiz := 1;
      DetIva.Id := 5;
      DetIva.BaseImp := CAEDetReq.ImpNeto;
      DetIva.Importe := CAEDetReq.ImpIVA;
      ADetIva[0] := DetIva;
      CAEDetReq.Iva := ADetIva;
      DmMain.TWsaa.Close;
      ACAEDetReq[0] := CAEDetReq;
      Kin.FeCabReq := CAECabReq;
      Kin.FeDetReq := ACAEDetReq;
      //
      Kout := (HWSFE as ServiceSoap).FECAESolicitar(KinType,Kin);
      CAECabResp := KOut.FeCabResp;
      ACAEDetResp := KOut.FeDetResp;
      CAEDetResp := ACAEDetResp[0];
      AError := KOut.Errors;
      For i := 0 to Length(AError) - 1 do
         ShowMessage ('Error' + IntToStr(AError[i].Code) +') ' + AError[i].Msg);
 
      AObserv := CAEDetResp.Observaciones;
      For i := 0 to Length(AObserv) - 1 do
         Alert ('Obs: ' + AObserv[i].Msg);
 
      If CAECabResp.Resultado = 'R' then  //A=APROBADO, R=RECHAZADO, P=PARCIAL
         Result := False
      Else
           Begin
           LCAE := CAEDetResp.CAE;
           LvtoCae := VtoCaeToDate(CAEDetResp.CAEFchVto);
           Result := True;
           End;
 
      Kin.Free;
      KOut.Free;
      End;

[cybsistemas]

Código Delphi [-]
KinType : FEAuthRequest;

Está declarado en todo el Form por eso no aparece ahí

Código Delphi [-]
      DmMain.TWsaa.Open;
      KinType.token := DmMain.TWsaaToken.Value;
      KinType.sign := DmMain.TWsaaSign.Value;
      KinType.Cuit := DmMain.TWsaaCuit.Value;
      DmMain.TWsaa.Close;

Ojo que la versión que vos usas deja de funcionar en junio y la 1.1 ya está funcionando, así que usá esa.

[cybsistemas]

Ahora estoy viendo si puedo prescindir de openssl.
Para cifrar en base 64 está el componente TIdEncoderMIME, ahora faltaria firmar el XML para convertirlo en CMS. Tenés alguna idea de como hacerlo sin usar openssl.

[fcios]

Hola simple pregunta, estás seguro que estos objetos se liberan correctamente con Kin.Free;
KOut.Free; ?

al cerrar la aplicación el eureka me dice que no están liberados

Gracias de antemano
Fabián

[Ramirogd]

Hola podrias postear el tema del login?
me esta resultando dificil poder generar el token
Muchas Gracias!

[ecfisa]

Hola Ramirogd.

Lamentablemente veo que el usuario raulb no frecuenta estos foros desde el 03/11/2011, infiero que difícilmente obtengas respuestas de él...

Encontré estos dos temas relacionados en nuestros foros:

• Factura Electrónica AFIP Argentina
• Ayuda Web Service AFIP Argentina

Y fijate si alguno de estos enlaces externos te resulta útil:

• Especificación Técnica delWebService de Autenticacióny Autorización
• Control ActiveX (OCX) e interfaz COM (API) para Factura Electrónica y otros servicios web de AFIP Argentina
• Instalador OCX Factura Electrónica y web services AFIP
• AFIP Factura Electrónica libre

Saludos