Pessoal na unit ACBrNFeWebServices
if FConfiguracoes.Arquivos.Salvar then
begin
if FEvento.Evento.Items[0].InfEvento.tpEvento = teCCe then
FConfiguracoes.Geral.Save(FPathArqEnv, FDadosMsg, FConfiguracoes.Arquivos.GetPathCCe)
else
FConfiguracoes.Geral.Save(FPathArqEnv, FDadosMsg, FConfiguracoes.Arquivos.GetPathEvento); //neste ponto esta tudo certo em relação ao estado e passa cOrgao 90
end;
{$IFDEF ACBrNFeOpenSSL}
HTTP.Document.LoadFromStream(Stream);
ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/RecepcaoEvento"');
HTTP.HTTPMethod('POST', FURL);
StrStream := TStringStream.Create('');
StrStream.CopyFrom(HTTP.Document, 0);
FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
FRetWS := SeparaDados( FRetornoWS,'nfeRecepcaoEventoResult');
StrStream.Free;
{$ELSE}
ReqResp.Execute(Acao.Text, Stream);
StrStream := TStringStream.Create('');
StrStream.CopyFrom(Stream, 0);
FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); // aqui quando ele pega o retorno ja me retorna cOrgao 53
FRetWS := SeparaDados( FRetornoWS,'nfeRecepcaoEventoResult');
StrStream.Free;
{$ENDIF}
não sei mais onde procurar