IBS CBS IS nao esta reconhecendo

[joveci guedes de almeida]

Boa tarde ...

Atualizei o acbr certinho mais estou tenho um probleminha ele nao eta reconhecendo esstas propriedas IBS CBS IS segue a baixo o meu codigo.

ai nao consigo compilar 

with Imposto do
          begin

            if Assigned(IBSCBS) then
            begin
              with IBSCBS do
              begin
                mIDProduto := FrmNotaFiscal.QryVendaItem.FieldByName
                  ('IDPRODUTO').AsString;

                // Alíquotas (Busca do Banco de Dados)
                IBS := StrToFloatDef(GetProdutoCampo(Prod.cProd,
                  'ALIQUOTA_IBS'), 0);
                CBS.pCBS := StrToFloatDef(GetProdutoCampo(Prod.cProd,
                  'ALIQUOTA_CBS'), 0);
                IS.pIS := StrToFloatDef(GetProdutoCampo(Prod.cProd,
                  'ALIQUOTA_IS'), 0);

                // Cálculo das Bases e Valores (Exemplo padrão: Base = Valor do Produto)
                IBS.vBC := Prod.vProd;
                IBS.vIBS := (IBS.vBC * IBS.pIBS) / 100;

                CBS.vBC := Prod.vProd;
                CBS.vCBS := (CBS.vBC * CBS.pCBS) / 100;

                if IS.pIS > 0 then
                begin
                  IS.vBC := Prod.vProd;
                  IS.vIS := (IS.vBC * IS.pIS) / 100;
                end;
              end;
            end;

 

[Juliomar Marchetti]

está marcado a opção usar ACBrXMLDocument?

[joveci guedes de almeida]

Sim.. quando instalei estava marcado vou formatar o computador e reinstalar tudo de novo pra vê se é alguma sujeira que não estou achando o problema é esse pcn como foi removido nessa versão nova estou meio perdido no uses pra reconhecer ibs is cbs basta ter acrnfe1.conversao

[Juliomar Marchetti]

1 hora atrás, joveci guedes de almeida disse:

Sim.. quando instalei estava marcado vou formatar o computador e reinstalar tudo de novo pra vê se é alguma sujeira que não estou achando o problema é esse pcn como foi removido nessa versão nova estou meio perdido no uses pra reconhecer ibs is cbs basta ter acrnfe1.conversao

eu acho que tu tem copia de código do ACBr no seus fontes do projeto e por isso está ocorrendo isso.

e dai formatar não vai resolver geralmente não é preciso . 

[joveci guedes de almeida]

Tem alguma sugestão pra mim tentar antes de tentar formatar 

[BigWings]

1 hora atrás, joveci guedes de almeida disse:

Tem alguma sugestão pra mim tentar antes de tentar formatar 

Estude o programa exemplo, você está informando propriedades que não existem no componente, por exemplo:

17 horas atrás, joveci guedes de almeida disse:

                IBS := StrToFloatDef(GetProdutoCampo(Prod.cProd,
                  'ALIQUOTA_IBS'), 0);

Devia ser:

Citar

gIBSCBS.gIBSUF.pIBSUF := StrToFloatDef(GetProdutoCampo(Prod.cProd, 'ALIQUOTA_IBS_UF'), 0);

gIBSCBS.gIBSMun.pIBSMun := StrToFloatDef(GetProdutoCampo(Prod.cProd, 'ALIQUOTA_IBS_MUN'), 0);