Factura Electronica Paraguay - SIFEN

[nous]

JCz Primeramente quiero agradecerte por tus aportes, a los que estamos tratando de utilizar Delphi para conectarnos al SIFEN

Tengo una consulta como se enviaría los casos de Acentos Ej: La Factura Electrónica no se utilizo., estoy ya días tratando de solucionar este tema pero mis esfuerzo fueron siempre error 400 ósea no conecta al Servicio, para los casos de Texto con Acentos

Específicamente para los eventos de Inutilización. Te agradecería como los estas manejando eso.

[JCz]

Empezado por nous

JCz Primeramente quiero agradecerte por tus aportes, a los que estamos tratando de utilizar Delphi para conectarnos al SIFEN

Tengo una consulta como se enviaría los casos de Acentos Ej: La Factura Electrónica no se utilizo., estoy ya días tratando de solucionar este tema pero mis esfuerzo fueron siempre error 400 ósea no conecta al Servicio, para los casos de Texto con Acentos

Específicamente para los eventos de Inutilización. Te agradecería como los estas manejando eso.

Buen Dia

No había caído en cuenta de tal error, realice una prueba y efectivamente; si envías un texto con tilde retorna error 400; incluso si conviertes en UTF8.

Como la inutilización la uso sólo en caso de DE rechazados; tenía como texto fijo un valor sin tilde por ello no me di cuenta.

Si alguien pudo enviar estaría bueno comentar como lo hizo; ya probé varias formas y me retorna siempre error 400

Saludos.

[JCz]

Empezado por JCz

Buen Dia

No había caído en cuenta de tal error, realice una prueba y efectivamente; si envías un texto con tilde retorna error 400; incluso si conviertes en UTF8.

Como la inutilización la uso sólo en caso de DE rechazados; tenía como texto fijo un valor sin tilde por ello no me di cuenta.

Si alguien pudo enviar estaría bueno comentar como lo hizo; ya probé varias formas y me retorna siempre error 400

Saludos.

Código Delphi [-]
procedure TdmRIO.BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
begin

    SOAPRequest.Size:=0;
    ssResponse:=TStringStream.Create(UTF8Encode(ssRequest.DataString));
    SOAPRequest.Position := 0;
    SOAPRequest.CopyFrom( ssResponse, ssResponse.Size);
    ssResponse.Free;
    SOAPRequest.Position := 0;
end;

Buenas; referente a la consulta; por algún motivo delphi modifica la codificación antes de enviar el archivo; por ello agregué UTF8Encode otra vez antes de enviar.


Con ello solucioné el error.


Espero te sirva.


Saludos

[nous]

Siii sr. con eso me funciono perfectamente!!!! Gracias Totales!!!!