Ruc
 

Ejecutando hasta la linea
ssRequest.WriteString(SobreSoap('rEnviConsRUC', RUC, Random(1000)));

Me da este error.

Project ConsultarRuc.exe raised exception class ESOAPHTTPException with message 'Error (400) - 'https://sifen.set.gov.py/de/ws/consultas/consulta-ruc.wsdl?wsdl''.

valores:
defWSDL = '';

defURL := 'https://sifen.set.gov.py/de/ws/consultas/consulta-ruc.wsdl?wsdl';
...
Estos valores no sera el problema, esta bien?

Buenas
defURL de ser https://sifen.set.gov.py/de/ws/consu...sulta-ruc.wsdl quita el ?wsdl al final.

Saludos.

Consulta de ruc
 

Es correcta, la direccion era el problema, osea el ultimo problema, ya trae los datos, aprovechando vas variables ya se puede mostrar.

JCz, si puedes, podrias escribirme a mi correo yousyus13@gmail.com o pasame el tuyo, quisiera adraderte mejor.

XML de Eventos
 

Buenas

Paso xml de ejemplo de como generar los xml de los eventos de Cancelación e Inutilización.

Cancelación seria lo mismo de anular una factura pre impresa (Aplica solamente a D.E. aprobados por el SIFEN)

Inutilización es para inutilizar una numeración o rango de numeraciones, ya sea por D.E. rechazado insalvable o tambien por saltear una numeración o rango de numeraciones.

Saludos.

Valores con acentos Ej: ó
 

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.

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

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