Ir para conteúdo
  • Cadastre-se

dev botao

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


Gr@c@
  • Este tópico foi criado há 3410 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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?

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Marcos,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde a todos,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Marcos,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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.

- Sou desenvolvedor.

- De que linguagem, delphi? .NET? Java?

- Qualquer uma, sou desenvolvedor.

Link para o comentário
Compartilhar em outros sites

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

Renato Pavan

Desenvolvedor Delphi / PHP  – Campinas (SP)

 

RWA Sistemas

Link para o comentário
Compartilhar em outros sites

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.

- Sou desenvolvedor.

- De que linguagem, delphi? .NET? Java?

- Qualquer uma, sou desenvolvedor.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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

Renato Pavan

Desenvolvedor Delphi / PHP  – Campinas (SP)

 

RWA Sistemas

Link para o comentário
Compartilhar em outros sites

  • Consultores

Pessoal,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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

Renato Pavan

Desenvolvedor Delphi / PHP  – Campinas (SP)

 

RWA Sistemas

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3410 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...