Erro Na Ultima Versão Do Acbr (2)

[marcelo morini]

Acabei de atualizar a versão do ACBr no Delphi 7, da 2 para a 3, deletei todos os arquivos do diretório do Tortoise, baixei tudo novamente, apaguei todas as entradas dos diretórios na Library, desinstalei o Componente antigo, utilizei o Batch apagarAcbr e refiz a instalação.

 

Instalou perfeitamente sem nenhum erro, porém ao abrir o aplicativo de Exemplo e tentar compilar aparecem vários erros:

 

- unit pcnNfeW > função TNFeW.GerarXml > GerarChave

Falta um parametro na função, o tpEmi, colocando qualquer numero funciona, porém não é o correto.

 

- Na mesma função 

  nfe.Ide.cNF := RetornarCodigoNumerico(nfe.infNFe.ID);

a função requer 2 parametros, porém somente está especificado um

 

depois na procedure TNFeW.GerarIde 

  Gerador.wCampo(tcStr, 'B03', 'cNF    ', 09, 09, 1, IntToStrZero(RetornarCodigoNumerico(nfe.infNFe.ID), 9), DSC_CNF);

 

Novamente somente está especificado um parametro

 

Depois mais abaixo aparece o erro

 

[Error] pcnNFeW.pas(622): Undeclared identifier: 'DSC_CM3'

 

Depois na Unit WebServices

 

[Error] ACBrNFeWebServices.pas(489): Undeclared identifier: 'NFecabMsg'

 

 

 

Com tantos erros assim de compilação, só posso concluir que fiz algo de errado na reinstalação

[Tiago Ravache]

Utilizou o batch em todos os seus drives? Tive um pequeno problema na última atualização mas nem de longe gerou tanto erro assim, por via das dúvidas verifique se vc não tem arquivos do acbr "sobrando".

[marcelo morini]

Vou tentar

[marcelo morini]

Nada feito ... mesmos erros ...

 

Será que alguém poderia dar um help, ou é preciso comprar um Help Desk para isso?

[Italo Giurizzato Junior]

Bom dia,

 

Por favor qual é a URL configurada no Tortoise para baixar os fontes?

[marcelo morini]

https://svn.code.sf.net/p/acbr/code/trunk

[Italo Giurizzato Junior]

A URL esta correta e o fonte da unit pcnNFeW.pas que você diz que esta faltando parâmetro, acabei de extrair a linha que gera a TAG cNF, veja:

 

if nfe.infNFe.Versao < 2 then
  Gerador.wCampo(tcStr, 'B03', 'cNF ', 09, 09, 1, IntToStrZero(RetornarCodigoNumerico(nfe.infNFe.ID, nfe.infNFe.Versao), 9), DSC_CNF)
else
  Gerador.wCampo(tcStr, 'B03', 'cNF ', 08, 08, 1, IntToStrZero(RetornarCodigoNumerico(nfe.infNFe.ID, nfe.infNFe.Versao), 8), DSC_CNF); 

 

Note que esta sendo informado os dois parâmetros.

 

Eu acredito que o seu Delphi deva estar buscando para compilar alguma cópia antiga dos fontes.

[marcelo morini]

Então .. mas em cima não tem condicional:

 

 

function TNFeW.GerarXml: boolean;

var

  chave: ansistring;

  Gerar: boolean;

  xProtNFe : String;

begin

  chave := '';

  if not GerarChave(Chave, nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo, nfe.ide.serie,

    nfe.ide.nNF, <falta um parametro aqui>, nfe.ide.dEmi, nfe.emit.CNPJCPF) then

    Gerador.wAlerta('A01', 'infNFe', DSC_CHAVE, ERR_MSG_GERAR_CHAVE);


Vou tentar reiniciar o computador, e refazer novamente a instalação.


Muitíssimo obrigado pela ajuda Ítalo.

[marcelo morini]

Italo ... 

 

 

Nem precisei reinstalar e reiniciar ... depois que falou me a tentei ao caminho da Unit que estava abrindo para mostrar o erro e estava realmente apontando para uma pasta antiga que eu nem sabia que ela existia mais ... deletei a pasta e recompilei o Exemplo e agora buscou corretamente da pasta do novo componente e funcionou perfeitamente.

 

 

Mais uma vez, muitissimo obrigado pela ajuda!