Boa tarde, Senhores.
Estou implementando a emissão de NFS-e para uma empresa no município de Sorriso - MT, que utiliza o provedor Agiliv2 (De acordo com o arquivo cidades.ini).
E estou com o seguinte problema:
Dentro do método TDFeHttpWinHttp.Enviar existe a chamada do método ConfigurarHTTP(AURL, ASoapAction, AMimeType); onde são passados os seguintes valores para os parâmetros :
AURL : 'http://homolog.nfse.prefsorriso-mt.agilicloud.com.br/api/GerarNfse'
ASoapAction : 'http://nfse.abrasf.org.br/GerarNfse'
AMimeType : 'application/xml'
Dessa forma temos o seguinte bloco:
function TDFeHttpWinHttp.Enviar(const ConteudoXML: String; const AURL: String;
const ASoapAction: String; AMimeType: String): String;
var
Resp: TMemoryStream;
begin
Result := '';
ConfigurarHTTP(AURL, ASoapAction, AMimeType);
Resp := TMemoryStream.Create;
try
try
// Enviando, dispara exceptions no caso de erro //
FWinHTTPReqResp.Execute(ConteudoXML, Resp);
// DEBUG //
Resp.SaveToFile('c:\temp\ReqResp.xml');
Resp.Position := 0;
Result := String( ReadStrFromStream(Resp, Resp.Size) );
// Verifica se o ResultCode é: 200 OK; 201 Created; 202 Accepted
// https://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html
if not (FWinHTTPReqResp.HTTPResultCode in [200, 201, 202]) then
raise EACBrDFeException.Create('');
except
On E: Exception do
begin
raise EACBrDFeException.CreateDef( Format( cACBrDFeSSLEnviarException,
[InternalErrorCode, HTTPResultCode] ) + sLineBreak +
E.Message ) ;
end;
end;
finally
Resp.Free;
end;
end;
Onde o valor de FWinHTTPReqResp.HTTPResultCode está sempre 503, dando o erro "Erro interno:0 Http 503".
O xsd utilizado é o XSDAgili.xsd
Alguém sabe dizer se o problema pode estar nas URLs passadas como parametro ou no conteúdo do meu xml que é passado ?