Urgente: Erro Na Sintaxe: Notautil.naoestavazio(Cmd.params(1))

[dcpleal]

Boa noite,

 

Fiz download da atualização dos arquivos do ACBr, executei a instalação do mesmo que agora vem em anexo um instalador.

 

Porém quando vou compilar o monitor ou mesmo o software que possuo para execução da nota fiscal eletrônica o arquivo DoACBrNFeUnit.pas apresenta erro nesta sintaxe if abaixo:

 

if NotaUtil.NaoEstaVazio(Cmd.Params(1)) then

       ACBrNFe1.DANFE.Impressora := Cmd.Params(1)

else

       ACBrNFe1.DANFE.Impressora := cbxImpressora.Text;

 

O erro diz que a função "NaoEstaVazio" não existe, mas essa função é usada em várias situações.

 

Alguém saberia como resolver?

 

Aguardo.

[Juliomar Marchetti]

Sim você precisa adicionar a uses ACBrDFeUtil e usar DFeUtil.NaoEstaVazio

acho que ainda não foi atualizado isso no SVN, foi feito uma reformulação pelo Isaque e Italo nas units eliminando duplicidades de código

 

mas é bem simples quando ocorre um caso desses utilizar o Ctrl+F do delphi e digita o nome da função e manda procurar nos fontes do  ACBr

vai lhe ajudar a achar e verás as diferenças

logo vai estar corrigido no SVN

[dcpleal]

Bom dia,

 

A uses esta adicionada mas as funções estavam comentadas, eu apenas tirei o comentário e voltou a funcionar normalmente.

 

Abraços.

[Italo Giurizzato Junior]

Bom dia dcpleal,

 

O que você fez esta errado, as funções que estão comentadas no ACBrNFeUtil agora estão definidas no ACBrDFeUtil.

 

Foi criado a unit ACBrDFeUtil dentro da pasta ACBrComum, pois tinhamos dezenas de funções repetidas nas units ACBrNFeUtil, ACBrCTeUtil, ACBrNFSeUtil e ACBrMDFeUtil.

 

Futuramente as funções que estão comentadas na unit ACBrNFeUtil vão ser excluidas, e ao atualizar os fontes a sua aplicação vai começar a dar erro novamente.

 

A minha sugestão é deixar a unit ACBrNFeUtil como ela se encontra disponivel no SVN e corrigir a sua aplicação para não ter problemas futuros.

[dcpleal]

Mas o problema não é na minha aplicação e sim nessa unit que você mencionou.

[André Ferreira de Moraes]

O arquivo DoACBrNFeUnit.pas disponível na pasta ACBrNFeMonitor2 já está corrigido com as funções do arquivo ACBrDFeUtil, provavelmente vc tem uma cópia antiga ou não atualizou corretamente seus fontes via SVN.

[dcpleal]

Fiz a atualização ontem era quase 23:30.

[Italo Giurizzato Junior]

Esse fragmento de código é da sua aplicação ou no programa exemplo?

 

if NotaUtil.NaoEstaVazio(Cmd.Params(1)) then

       ACBrNFe1.DANFE.Impressora := Cmd.Params(1)

else

       ACBrNFe1.DANFE.Impressora := cbxImpressora.Text;

 

Na verdade tanto faz, para corrigir o problema, faça o seguinte:

 

1. em Uses adicione a unit ACBrDFeUtil;

2. altere o fragmento acima:

 

if DFeUtil.NaoEstaVazio(Cmd.Params(1)) then

       ACBrNFe1.DANFE.Impressora := Cmd.Params(1)

else

       ACBrNFe1.DANFE.Impressora := cbxImpressora.Text;

 

Isso vai resolver o problema.

[dcpleal]

Esse fragmento é uma unit do pacote ACBr e não do meu sistema.

[Italo Giurizzato Junior]

Qual é o nome da Unit?

[dcpleal]

Resolvi aqui deu certo... redeclared a unit que você disseram ai e deu certo... porem no projeto ACBr.

[dcpleal]

E o que podemos fazer com a mensagem de Consumo indevido?

[Italo Giurizzato Junior]

Você não me respondeu em qual unit estava o fragmento de código para que possamos corrigila e identificar outros problemas e disponibilizar para os demais usuários.

[dcpleal]

Acabei de constatar que o problema é no NFeMonitor que vem junto com o ACBr, nas minhas aplicações o problema não apareceu.

[Juliomar Marchetti]

Sim foi o que lhe falei lá no primeiro post, você tinha que adicionar na uses da unit do monitor e usar a DFeUtil.***   porque não está correto no svn o ACBrNFeMonitor

[Italo Giurizzato Junior]

Bom dia Juliomar,

 

O fonte em questão é o DoACBrNFeUnit ele foi alterado pela última vez pelo André e disponibilizado no dia 23/11/2012, e hoje é 14/12/2012.

 

A alteração feita pelo André foi exatamente para resolver o problema em questão.

 

É aquela velha história, se eu utilizo somente a NFe vou atualizar somente a pasta do componente ACBrNFe, em vez de atualizar tudo, ou seja os fontes dos exemplos, dos componentes, dos pacotes, dos projetos.

 

Ai começa dar esses erros e o pessoal ficam desesperados.

[dcpleal]

Eu faço atualização como SVN, portanto, quanto vem atualização vem em todos os módulos.

[Juliomar Marchetti]

dcpleal

Então você tem alguma alteração nessa Unit e ele ignorou a atualização dela porque tem a versão modificada

tente excluir a mesma e efetuar o update

 

 

Italo 

bem isso mesmo tem vários casos