Boa tarde,
Minha aplicação está dando o erro mostrado na imagem abaixo. No ACBr_Nfe_demo o erro não ocorre. Copiei todas as rotinas de criar e enviar NFe do demo para minha aplicação e o erro continua. O erro corre no módulo ACBrNFeWebServices na instrução.
AssignFile(f,'C:\Total\NFE\PrjNFE.txt');
Rewite(f);
WiteLn(f,Texto);
Close(f);
Acao.Text := Texto;
// if assigned(TACBrNFe( FACBrNFe ).WebServices.Retorno.NFeRetorno) then
// TACBrNFe( FACBrNFe ).WebServices.Retorno.NFeRetorno.Free;
{$IFDEF ACBrNFeOpenSSL}
Acao.SaveToStream(Stream);
HTTP := THTTPSend.Create;
{$ELSE}
ReqResp := THTTPReqResp.Create(nil);
ConfiguraReqResp( ReqResp );
ReqResp.URL := FURL;
ReqResp.UseUTF8InHeader := True;
ReqResp.SoapAction := SoapAction;
{$ENDIF}
try
TACBrNFe( FACBrNFe ).SetStatus( stNFeRecepcao );
if FConfiguracoes.Geral.Salvar then
begin
FPathArqEnv := Lote+'-env-lot.xml';
FConfiguracoes.Geral.Save(FPathArqEnv, FDadosMsg);
end;
{$IFDEF ACBrNFeOpenSSL}
HTTP.Document.LoadFromStream(Stream);
ConfiguraHTTP(HTTP,'SOAPAction: "'+SoapAction+'"');
HTTP.HTTPMethod('POST', FURL);
StrStream := TStringStream.Create('');
StrStream.CopyFrom(HTTP.Document, 0);
FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
if nfeAutorizacaoLote then
FRetWS := SeparaDados( FRetornoWS,'nfeAutorizacaoLoteResult')
else
FRetWS := SeparaDados( FRetornoWS,'nfeRecepcaoLote2Result');
StrStream.Free;
{$ELSE}
ReqResp.Execute(Acao.Text, Stream);
O erro ocorre na linha em vermelho. As linhas em azul foram criadas por mim para salvar a varável texto. Executei a minha aplicação e o Demo e comparei os dois arquivos textos gerados. Os parâmetros estava idênticos. Alguém tem alguma ideia do que pode ser?