Pesquisar na Comunidade
Showing results for tags 'nfsesorriso'.
Encontrado 1 registro
-
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 ?