21/03/2012 - Publicada a NT 2012/002 Manif do Destinatario

[Mark Apollo]

Está dando este erro na segunda vez que executa o comando, estava fazendo alguns testes para descrever melhor aqui, mas estou meio que sem tempo.

[niloblack]

Entendo... markapollo, mas obrigado por se preocupar!

[niloblack]

Oh pessoal, porque na linha 997 do arquivo AcbrNFeWebServices tem:

infEvento.tpAmb := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1);

Esse -1 não estaria errado?

De acordo com a NT2012/002 diz "Identificação do Ambiente: 1=Produção /2=Homologação";

Estava vendo aqui, depurando e vi, marquei como homologação no radio buttom do demo, retornou 2 ( 2 = homologação ) ai 2 - 1 = 1 ( Produção )...

Alguém já passou por isso?

[Italo Giurizzato Junior]

Boa tarde Niloblack

o -1 esta correto, pois a definição do tipo tpcnTipoAmbiente é:

TpcnTipoAmbiente = (taProducao, taHomologacao);

Segundo o manual Produção é 1 e Homologação é 2

Mas o valor taProdução é o primeiro, portanto tem indice ZERO, isso explica o -1.

[niloblack]

Entendi italojjr obrigado.. Eh pq deu um erro também, dizendo que o ambiente selecionado (produção) estava diferente do da nota.. Ai juntei uma coisa com a outra..

[Marcos Souza Virtual]

Bom Dia pessoal estou tentando fazer uns testes pelo demo, e está dando um erro de acess violation bem nessa parte na unit ACBrNFeWebServices:

if Assigned(FretConsNFeDest) then

FretConsNFeDest.Free;

FretConsNFeDest.Create;

FretConsNFeDest.Leitor.Arquivo := FRetWS;

FretConsNFeDest.LerXml;

Alguém sabe dizer o que pode ser?

Grato.

[Italo Giurizzato Junior]

Bom dia Marcos,

Esse erro ocorre ao realizar a primeira ou a segunda consulta?

[Mark Apollo]

Italo, este erro ocorre ao realizar a segunda consulta, tentei procurar o erro ontem debugando, mas não obtive muito sucesso. o erro ocorre no "FretConsNFeDest.Free"

[Marcos Souza Virtual]

No meu caso aqui está dando na primeira consulta, é logo após passar pelo "FretConsNfeDest.free"

[Italo Giurizzato Junior]

Boa tarde a todos,

Diponibilizei uma alteração, favor baixar e testar.

[Marcos Souza Virtual]

Boa tarde,

Testei e agora o erro ocorre nessa parte logo após passar sobre o create:

constructor TRetConsNFeDest.Create;

begin

FLeitor := TLeitor.Create;

Fret := TRetCollection.Create(Self);

end;

[Italo Giurizzato Junior]

Boa tarde Marcos,

Por favor baixe a atualização e teste novamente.

[ivomar]

Boa tarde Ítalo,

Estou acompanhando os teste. Acabei de atualizar e voltou a dar o erro de Access violation.

[Mark Apollo]

Italo, como deve ser o preenchimento para download de xml?

estou tentando desta forma:

procedure TForm1.Button1Click(Sender: TObject);

var

 CNPJ, IndNFe, IndEmi, ultNSU: string;

 ok: boolean;

 vChave : String;

begin


  CNPJ := '';

  if not(InputQuery('WebServices Download NFe Destinadas', 'CNPJ do destinatário da NFe', CNPJ)) then

     exit;


  if not(InputQuery('WebServices Consultar', 'Chave da NF-e:', vChave)) then

    exit;


  with ACBrNFe1.DownloadNFe do

  begin

    Download.CNPJ := CNPJ;

    with Download.Chaves.Add do

    begin

      chNFe := vChave;

    end;

  end;


  ACBrNFe1.Download;


  //AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest


  MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.DownloadNFe.RetWS);

  memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.DownloadNFe.RetornoWS);

//  ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX

  LoadXML(MemoResp, WBResposta);

end;

mas não estou conseguindo incluir as chave, no momento da execução é como se não tivesse nenhuma chave na lista.

[renato.pavan]

Bom dia markapollo,

Fui testar a opção de download do XML e aqui está dando violação de acesso, debugando o sistema vi que ele para nesse linha:

for i := 0 to TDownloadNFe(Self).Chaves.Count - 1 do linha 1169 da unit ACBrNFeWebServices

Aparece isso quando dou um Ctrl+F7 em cima de [TDownloadNFe(Self).Chaves.Count] pra ver o valor da propriedade count.

Access violation at 0041FCDC accessing 00000008

[]'s

[Mark Apollo]

Bom dia markapollo,

Fui testar a opção de download do XML e aqui está dando violação de acesso, debugando o sistema vi que ele para nesse linha:

for i := 0 to TDownloadNFe(Self).Chaves.Count - 1 do linha 1169 da unit ACBrNFeWebServices

Aparece isso quando dou um Ctrl+F7 em cima de [TDownloadNFe(Self).Chaves.Count] pra ver o valor da propriedade count.

Access violation at 0041FCDC accessing 00000008

[]'s

Justamente este erro está acontecendo.

[Italo Giurizzato Junior]

Bom dia,

Esta disponivel uma alteração, baixe e teste por favor.

[renato.pavan]

Bom dia Italo,

O erro ainda persiste na revisão 3833, acesso violado no for, e debugando percebi também que na linha abaixo:

DownloadNFe.CNPJ := TDownloadNFe(Self).CNPJ; //aqui não esta vindo o cnpj passado pro componente na aplicação.

Saudações alvi verde....

[]'s

[Italo Giurizzato Junior]

Pessoal,

Vamos que vamos, baixe a atualização e teste por favor.

[renato.pavan]

Italo,

Deu erro na linha 1273:

FDownloadNFe := TNFeDownloadNFe.Create(AFNotaFiscalEletronica); Não compilou

[Error] ACBrNFeWebServices.pas(1273): Not enough actual parameters

Revisão 3834

[]'s

[renato.pavan]

Italo,

Fiz 2 alterações na unit ACBrNFeWebServices.

Linha 1167 de:

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

para

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

Pois não estava pegando o cnpj passado pra propriedade na aplicação. Linha 1273 de:

FDownloadNFe      := TNFeDownloadNFe.Create(AFNotaFiscalEletronica);

para

FDownloadNFe      := TNFeDownloadNFe.Create(AFNotaFiscalEletronica,TACBrNFe(AFNotaFiscalEletronica).DownloadNFe.Download);

Pois na compilação dizia que faltava parâmetro, conforme post anterior, com isso não temos mais a excessão.

[]'s

[Italo Giurizzato Junior]

Boa tade a todos,

Esta disponivel mais uma alteração sugerida pelo Renato, por favor baixem e realize os testes.

Se possível, post como anexo os arquivos de envio e de retorno.

Desde já muito obrigado pela colaboração de todos.

[eudecio]

Boa tarde pessoal!

Gostaria de participar do projeto... como posso estar ajudando????

qual versão do delphi é utilizada para testes???

[Italo Giurizzato Junior]

Boa tarde Eudecio,

Delphi 6 ou posterior, não tem problema, basta ter os componentes instalados.

Eu em particular utilizo Delphi 7 com o Quick Report 5.02 e lógico mais os componentes ACBr instalados.

[renato.pavan]

Italo o arquivo de retorno gerou sem nada conforme anexo, eu salvei o conteudo o stream segue anexo o retorno.

20120810141956-ped-down-nfe.xml

stream.xml