Erro 'undeclared Identifier'

[JonasB]

Bom dia,

 

Estou com um erro Undeclared Identifier 'Imposto' quando descomento o mesmo para adicionar as informações do CSOSN.

 

Já pesquisei e o pessoal informou que pode ser a instalação do ACBr, só que já desinstalei e instalei e o erro persiste. Alguém pode ajudar ?

[Juliomar Marchetti]

Bom dia!

isso aonde? em código seu ou interno no componente?

se for seu código está faltando declarar a uses onde se encontra o tipo

[JonasB]

Realmente não é a instalação, pois no Exemplo funciona..

 

É na procedure GerarNFe

 

Conferi as uses, e tem todas baseada no Exemplo..

 

Se não é as uses, o que poderia ser ?

Editado 19 Março, 2015 por JonasB

[Juliomar Marchetti]

Então veja qual uses tem no exemplo em que sua aplicação não esteja usando!

[JonasB]

Exatamente isso que fiz conforme disse acima.

 

Tem todas as uses só que não funciona..

[Juliomar Marchetti]

Então vai a pergunta!

usou o ACBrInstall? antes rodou o apagaracbr.bat

[JonasB]

Sim, install e rodei o .bat

 

Deve ser algum detalhe porque no exemplo funciona..

[JonasB]

Encontrei o trecho de onde está o problema mas não estou conseguindo resolver..

 

begin
dmDados.QryPesquisas.Close;
dmDados.QryPesquisas.SQL.Clear;
dmDados.QryPesquisas.SQL.Add('SELECT * FROM NF_NOTAFISCALITEM WHERE NOTAFISCAL_SEQ = :ParSeq');
dmDados.QryPesquisas.Params.ParamByName('ParSeq').Value := '1';
dmDados.QryPesquisas.Open;


while not dmDados.QryPesquisas.Eof do
begin
//Adicionando Produtos
      with Det.Add do
       begin
         Prod.nItem    := 1; // Número sequencial, para cada item deve ser incrementado
         Prod.cProd    := dmDados.QryPesquisas.FieldByName('ITEM_CODIGO').Value;
         Prod.cEAN     := '7896523206646';
         Prod.xProd    := dmDados.QryPesquisas.FieldByName('ITEM_DESCRICAO').Value;
         Prod.NCM      := dmDados.QryPesquisas.FieldByName('ITEM_NCM').Value; // Tabela NCM disponível em  http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm
         Prod.EXTIPI   := '';
         Prod.CFOP     := '5101';
         Prod.uCom     := dmDados.QryPesquisas.FieldByName('ITEM_UNMEDIDA').Value;
         Prod.qCom     := dmDados.QryPesquisas.FieldByName('ITEM_QUANTIDADE').Value;
         Prod.vUnCom   := dmDados.QryPesquisas.FieldByName('ITEM_UNITARIO').Value;
         Prod.vProd    := dmDados.QryPesquisas.FieldByName('ITEM_VALORTOTAL').Value;


         Prod.cEANTrib  := '7896523206646';
         Prod.uTrib     := dmDados.QryPesquisas.FieldByName('ITEM_UNMEDIDA').Value;
         Prod.qTrib     := dmDados.QryPesquisas.FieldByName('ITEM_QUANTIDADE').Value;
         Prod.vUnTrib   := dmDados.QryPesquisas.FieldByName('ITEM_UNITARIO').Value;


         Prod.vOutro    := 0;
         Prod.vFrete    := 0;
         Prod.vSeg      := 0;
         Prod.vDesc     := 0;


         infAdProd      := 'Informação Adicional do Produto';
                     ShowMessage('3');
       end;
dmDados.QryPesquisas.Next;
end;


end;

quando entra nesse begin e end ai ele não reconhece mais o que tem abaixo..

[centuryinf]

Post o parte onde voce esta informando os impostos..............