Sugestões Para Correções

[Edson]

Bom dia, segue abaixo as mudanças que efetuei e se estiverem incoerentes por favor ignore e aproveite o que for bom para o projeto.

 

CORREÇÃO 1:

UNIT: ACBrNFeWebServices

PROCEDURE: TWebServicesBase.DoNFeDownloadNFe;

 

Original:

procedure TWebServicesBase.DoNFeDownloadNFe;

var

  DownloadNFe: TDownloadNFe;

  i: integer;

begin

  DownloadNFe := TDownloadNFe.create;

  DownloadNFe.schema := TsPL006;

  DownloadNFe.TpAmb  := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

  DownloadNFe.CNPJ   := TNFeDownloadNFe(Self).FDownload.CNPJ;

 

 for i := 0 to TNFeDownloadNFe(Self). FDownload.Chaves.Count - 1 do

   begin

     with DownloadNFe.Chaves.Add do

      begin

        chNFe := TDownloadNFe(Self).Chaves.Items.chNFe;

      end;

   end;

 

  DownloadNFe.GerarXML;

 

  FDadosMsg := DownloadNFe.Gerador.ArquivoFormatoXML;

  DownloadNFe.Free;

 

  FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8_STD+'>', '', [rfReplaceAll] ) ;

  FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8+'>', '', [rfReplaceAll] ) ;

  FDadosMsg := StringReplace( FDadosMsg, '<?xml version="1.0"?>', '', [rfReplaceAll] ) ;

end;

 

Modificada:

procedure TWebServicesBase.DoNFeDownloadNFe;

var

  DownloadNFe: TDownloadNFe;

  i: integer;

begin

  DownloadNFe := TDownloadNFe.create;

  DownloadNFe.schema := TsPL006;

  DownloadNFe.TpAmb  := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

  DownloadNFe.CNPJ   := (Self as TNFeDownloadNFe).CNPJ;

 

  for i := 0 to (Self as TNFeDownloadNFe). FDownload.Chaves.Count - 1 do

   begin

     with DownloadNFe.Chaves.Add do

      begin

        chNFe := (Self as TNFeDownloadNFe). FDownload.Chaves.chNFe;

      end;

   end;

 

  DownloadNFe.GerarXML;

 

  FDadosMsg := DownloadNFe.Gerador.ArquivoFormatoXML;

  DownloadNFe.Free;

 

  FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8_STD+'>', '', [rfReplaceAll] ) ;

  FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8+'>', '', [rfReplaceAll] ) ;

  FDadosMsg := StringReplace( FDadosMsg, '<?xml version="1.0"?>', '', [rfReplaceAll] ) ;

end;

 

Motivo da Mudança: Utilizando da maneira original a variável CNPJ vinha em branco no DELPHI 7.

 

Obrigado a todos e tenham um ótimo dia.

[Juliomar Marchetti]

Anexa a unit para que seja efetuado o merge dos fontes!

Obrigado

[Edson]

Anexa a unit para que seja efetuado o merge dos fontes!

Obrigado

Bom dia

Segue anexado.

Obrigado.

ACBrNFeWebServices.pas

[Juliomar Marchetti]

Qual seria a diferença em mudar de 

TNFeDownloadNFe(Self)

para

(Self as TNFeDownloadNFe)

Qual o erro que é levantado por não estar como passou?

[Edson]

Qual seria a diferença em mudar de 

TNFeDownloadNFe(Self)

para

(Self as TNFeDownloadNFe)

Qual o erro que é levantado por não estar como passou?

Boa tarde

Desculpe a demora na resposta, é que estava ausente.

Alteração

TNFeDownloadNFe(Self).FDownload.CNPJ;

para (Self as TNFeDownloadNFe).CNPJ e retirado o FDownload

A segunda alteração foi feita o que passou de TNFeDownloadNFe(Self) para (Self as TNFeDownloadNFe)., pois não estava reconhecendo os dados da maneira que estava, mesmo reinstalando e executando um build no projeto.

Agora não sei te explicar o porque, mas no meu caso resolveu.

Não tentei voltar e testar novamente, mas caso os testes não apresentam problemas, pode desconsiderar a informação.

Obrigado.