Erro ao Copilar o ACBRNFE2

[thiagogobatti]

Boa noite amigos,

Presico de um informaçoes dos amigos, tive que formatar minha maquina e estou tendo alguns problemas, uso o windows 7 com delphi 7, instalei o Acbr quase todo sem problemas o NFE esta dando erros nestas linhas.

FRetornoWS := ParseText(StrStream.DataString, True);

FRetWS := SeparaDados( FRetornoWS,'nfeCancelamentoNF2Result');

Um outro problema que estou tendo é com o programa ja compilado nao consigo abrir a danfe nem com o Fortes, Quick, e Rave da erro de "midas.dll" tenho esta dll dentro da pasta do programa sempre funcionol 100% agora esta dando este erro, ja registrei a dll, copiei ela para pasta do windows, system32 e nada.

Obrigado e uma ótima semana aos amigos.

Thiago Gobatti

[Régys Silveira]

Seu ACBr está atualizado?

Todos os paths estão setados no library path?

Tente colocar o midas.dll na pasta system do windows.

[thiagogobatti]

Regys, fiz tudo isso, para ter certeza deletei todas os arquivos da pasta acbr e baixei novamente mesmo assim da o mesmo erro.

Sobre o midas coloquei na pasta system32 e windows

abraços.

[thiagogobatti]

Regys, coloquei a dll na pasta system que ja tinha subistitui da o mesmo problema.

"Erro carregando MIDAS.DLL."

[Régys Silveira]

Copie o erro do compilador ou a tela com um printscreen para ver melhor o que está acontecendo.

Quanto ao midas.dll você registrou o que está na pasta system32 e windows? Estas duas pastas estão dentro da variável PATH do windows, por padrão elas devem estar, mas existem softwares que sobrescrevem o path e bagunçam tudo?

[thiagogobatti]

Regys, segue o erro na hora de copilar.

FRetornoWS := ParseText(StrStream.DataString, True);

FRetWS := SeparaDados( FRetornoWS,'nfeCancelamentoNF2Result');

São umas 10 linhas que tem esse erro.

[Juliomar Marchetti]

Jovem

verifique se nos library não está indicando para ACBrNFe e ACBrNFe2 e também o PCN e PCN2

[thiagogobatti]

estao add. as ACBrNFe2 e PCN2

[Régys Silveira]

A imagem que você anexou está muito desfocada, não tem como ver nada.

[thiagogobatti]

Segue a img com melhor resolução.

[Error] ACBrNFeWebServices.pas(2087): Undeclared identifier: 'ParseText'

[Error] ACBrNFeWebServices.pas(2088): Undeclared identifier: 'SeparaDados'

[Error] ACBrNFeWebServices.pas(2297): Undeclared identifier: 'ParseText'

[Error] ACBrNFeWebServices.pas(2298): Undeclared identifier: 'SeparaDados'

[Error] ACBrNFeWebServices.pas(2481): Undeclared identifier: 'ParseText'

[Error] ACBrNFeWebServices.pas(2482): Undeclared identifier: 'SeparaDados'

[Error] ACBrNFeWebServices.pas(2631): Undeclared identifier: 'ParseText'

[Error] ACBrNFeWebServices.pas(2632): Undeclared identifier: 'SeparaDados'

[Error] ACBrNFeWebServices.pas(2779): Undeclared identifier: 'ParseText'

[Error] ACBrNFeWebServices.pas(2780): Undeclared identifier: 'SeparaDados'

[Error] ACBrNFeWebServices.pas(2932): Undeclared identifier: 'ParseText'

[Error] ACBrNFeWebServices.pas(2933): Undeclared identifier: 'SeparaDados'

[Fatal Error] ACBrNFeNotasFiscais.pas(156): Could not compile used unit '..\..\..\Fontes\ACBrNFe2\ACBrNFeWebServices.pas'

abraços.

[Régys Silveira]

Ou seu ACBr está desatualizado o arquivo ACBrUtil.pas, ou você tem dois ACBr na mesma máquina.

[thiagogobatti]

Regys. bom dia.

Esta super atualizado deletei varias vezes a pasta e baixei novamente porem tinha acbr (Antigo) e o acbr (desenvolvimento) e o Acbr (produção) em minha maquina fiquei só com ele deletei tudo pra nao correr erro, mesmo assim nao funcionou, to quase formatando a maquina novamente.

Tem alguma outra luz??

abraços.

[Régys Silveira]

Se está tudo atualizado e coisa de path, uma outra coisa pode ser que o arquivo esteja em conflito, verifique se todos os arquivos estão marcados com o tick verde, se não tem algum conflito e o tortoise não atualizou, dai pode ocorrer isso ai.

[sidjeanp]

regys estou com o mesmo problema. Notei que no arquivo ACBRNFE\AcBRNFEUtil.pas tem as seguintes funções:

class function ParseText( Texto : AnsiString; Decode : Boolean = True) : AnsiString;

class function SeparaDados( Texto : AnsiString; Chave : String; MantemChave : Boolean = False ) : AnsiString;

Que não existe no ACBRNFE2\AcBRNfeUtil.pas estas funções. No meu caso é por isot que o erro acontece.

Vai sair alguma atualização para fazer esta correção?

[Régys Silveira]

regys estou com o mesmo problema. Notei que no arquivo ACBRNFE\AcBRNFEUtil.pas tem as seguintes funções:

class function ParseText( Texto : AnsiString; Decode : Boolean = True) : AnsiString;

class function SeparaDados( Texto : AnsiString; Chave : String; MantemChave : Boolean = False ) : AnsiString;

Que não existe no ACBRNFE2\AcBRNfeUtil.pas estas funções. No meu caso é por isot que o erro acontece.

Vai sair alguma atualização para fazer esta correção?

Alguma coisa está errada com os teus arquivos, já tem algumas versões que mudamos os dois métodos para ACBrUtil.pas e retiramos de ACBrNFeUtil.pas, algo não deve ter deixado atualizar ai.

Veja se estes arquivos na hora de atualizar não estão em conflito com o repositório, isso acontece geralmente quando se altera algo no arquivo.

Olhando dentro do diretório os arquivos devem estar com o tick verde, qualquer outro simbolo significa que ele está diferente do que está no repositório.

[sidjeanp]

regys verifiquei tudo e está tudo ok. Apaguei o diretório e fiz do zero em outra máquina. Está com o mesmo erro.

O SVN está baixando o 2857 das 10:58

Tem idéia do que pode ser?

[Régys Silveira]

printa a tela de erro e posta aqui, por favor.

[sidjeanp]

Regys contatei que o erro só acontece quando compila no Delphi 7. Com o mesmo fonte compilei sem problemas no Delphi 2010 e deu certo. O estranho é que estava compilando no Delphi 7 sem problema algum antes de atualizar o fonte. Mas agora irei compilar no Delphi 2010 mesmo. Mas muito obrigado por sua atençao.

[thiagogobatti]

sidjeanp, o problema esta com o delphi 7.

Infelizmente nao posso migrar para outro delphi dependo muito de componentes feito apenas para o delphi 7, estou ja noites quebrando a cabeça para tentar resolver, tem varios post de colegas que conseguiro resolver, apagando as recursos que sao de delphi superior mesmo assim nao funcionou o Acbrboleto com fortes funciona, agora a Danfe com fortes nem pensar e nem com Rave que pede a vs9.

nem atualizando o fortes para 3.70b, funcionou.

abraços.

[Régys Silveira]

Você verificou teus paths, porque aqui eu tenho ele funcionando com delphi 7, delphi 2010 e delphi xe2, todos na mesma máquina, mas são 3 diretórios do ACBr e os paths estão corretamente setados em cada delphi, no library path e no path.

[netstart]

Bom dia , estava tendo o mesmo problema ontem , resolvi removendo os pacotes do acbrnfe e compilando todo ele novamente na sequencia que esta no TXT de instalação , tb depois que removi os packages fechei e abri o delphi novamente antes de começar a instalação , no meu caso resolveu ...

[thiagogobatti]

Com o Delphi 7, consegui restaurando um bkp do dia 20/10/11 copilei novamente e tudo voltou a funcionar, nao penso nem por decreto atualizar agora, enquanto nao acabar o ano. rssrsrs

abraços amigos,

bom fim de semana.

[Sérgio Assunção]

Com o Delphi 7, consegui restaurando um bkp do dia 20/10/11 copilei novamente e tudo voltou a funcionar, nao penso nem por decreto atualizar agora, enquanto nao acabar o ano. rssrsrs

abraços amigos,

bom fim de semana.

E ai Thiago... faça o seguinte: desinstale totalmente o ACBr; remova todas as entradas que estão no library path; feche o Delphi; exclua os bpl´s do ACBr que estão na pasta ...Delphi7\Projects\Bpl (ACBr*, PCN*, synapse*); atualize o seu componente pelo SVN e faça a instalação do componente seguindo o roteiro. Aqui ta 100%.

Valeu.

Sérgio

[Lindomar]

Hoje após eu atualizar o Acbr também tive o mesmo problema então fechei tudo, removi tudo do delphi e recompilei todos os pacotes..resolvido. Porém restou outro problema, para gerar a danfe utilizo o seguinte código: (parte dele)

with ACBrNFe1.NotasFiscais.Add.NFe do

begin

while not dmMProvider.cdsFatura_NFSaida.Eof do

begin

with Cobr.Dup.Add do

begin

nDup := dmMProvider.cdsFatura_NFSaidaDOCUMENTO.Value;

dVenc := dmMProvider.cdsFatura_NFSaidaVENCIMENTO.Value;

vDup := dmMProvider.cdsFatura_NFSaidaVALOR.AsCurrency;

end;

dmMProvider.cdsFatura_NFSaida.Next;

end;

infNFe.Versao := 2; <<<= aqui está dando erro

infNFe.ID := InttoStr(dmMProvider.cdsNFSaidaNFSAIDA.Value);

Ide.natOp := Format('%-60.60s', [dmMProvider.cdsCfop_NFSaida.

FieldByName('DESCRICAO').Value]);

Ide.nNF := StrToInt(infNFe.ID);

Ide.cNF := StrToInt(infNFe.ID);

Ide.Modelo := StrToInt(dmMProvider.cdsNFSaidaMODELO.AsString);

Ide.serie := 1;

Ide.dEmi := dmMProvider.cdsNFSaidaEMISSAO.Value;

Ide.dSaiEnt := dmMProvider.cdsNFSaidaSAIDA.Value;

case rdpAmbienteDestino.ItemIndex of

0:Ide.tpAmb := taProducao;

1:Ide.tpAmb := taHomologacao

end;

case dmMProvider.cdsNFSaidaENTRADA_SAIDA.Value of

0:Ide.tpNF := tnSaida;

1:Ide.tpNF := tnEntrada;

end;

if dmMProvider.cdsFatura_NFSaida.IsEmpty then

Ide.indPag := ipVista

else

Ide.indPag := ipPrazo;

Ide.verProc := RetornarVersao(Application.ExeName, 1);

Ide.cUF := dmDBEXMaster.sqqFilial.FieldByName('CODIGO_ESTADO_IBGE').Value;

Ide.cMunFG := dmDBEXMaster.sqqFilial.FieldByName('CODIGO_MUNICIPIO').Value;

Emit.CNPJCPF := dmDBEXMaster.sqqFilial.FieldByName('CNPJ').Value;

Emit.IE := dmDBEXMaster.sqqFilial.FieldByName('INSCRICAO').Value;

Emit.xNome := dmDBEXMaster.sqqFilial.FieldByName('RAZAOSOCIAL').Value;

Emit.xFant := dmDBEXMaster.sqqFilial.FieldByName('FANTASIA').Value;

Emit.EnderEmit.fone:= dmDBEXMaster.sqqFilial.FieldByName('DDD').Value

+ ' ' + dmDBEXMaster.sqqFilial.FieldByName('TELEFONE1').Value;

Emit.EnderEmit.CEP := StrToInt(dmDBEXMaster.sqqFilial.FieldByName('CEPENTREGA').Value);

Emit.EnderEmit.xLgr := dmDBEXMaster.sqqFilial.FieldByName('ENDERECO').AsString;

Emit.EnderEmit.nro := InttoStr(dmDBEXMaster.sqqFilial.FieldByName('NUMEROENTREGA').Value);

Emit.EnderEmit.xCpl := dmDBEXMaster.sqqFilial.FieldByName('COMPLEMENTO').AsString;

Emit.EnderEmit.xBairro := dmDBEXMaster.sqqFilial.FieldByName('BAIRROENTREGA').Value;

Emit.EnderEmit.cMun := dmDBEXMaster.sqqFilial.FieldByName('CODIGO_MUNICIPIO').Value;

Emit.EnderEmit.xMun := dmDBEXMaster.sqqFilial.FieldByName('NOMECIDADE').Value;

Emit.EnderEmit.UF := dmDBEXMaster.sqqFilial.FieldByName('ESTADO').Value;

Emit.EnderEmit.cPais := 1058;

Emit.EnderEmit.xPais := 'BRASIL';

Emit.CRT := StrToCRT(ok, InttoStr(dmDBEXMaster.sqqFilial.FieldByName('CRT').AsInteger));

...... etc

nas linhas que estão em negrito está dando erro:

[DCC Error] modDanfe.pas(548): E2003 Undeclared identifier: 'Versao'

[DCC Error] modDanfe.pas(593): E2003 Undeclared identifier: 'CRT'

respectivamente...

como já removi tudo e reinstalei não consigo imaginar o que pode ser.

[Régys Silveira]

Está utilizando ACBrNFE2, se sim, recompile o pacote.