Breno007

Vou detalhar com mais clareza oks,, Tenho um projeto no Delphi 7 e preciso implementar a NFE nele. Baixei a ultima versao disponivel no TortoiseSVN e usei o Instalar do proprio ACBR para instalar, quanto a isso tudo OKS deixei na area de trabalho e as pastas fica com o status verde...ate ae tudo bem.. Quando eu executo o exemplo do proprio ACBRNFE2 o mesmo me retorna o erro postado na foto acima.

Amigo boa tarde, hoje fui instalar o acbr no delphi 7 usando o acbrinstalar que vem junto da pasta CODE ate ai blz... instalação concluida com exito. Porem quando eu abro o projeto exemplo de nfe2 me dar um erro. Queria ajuda dos amigos para resolver tal situação!

Minha Duvida é vTotTrib só aceita se for o valor total da nota resultando na nfe o V.APROX.TRIBUTOS ficá 100% é para ser assim mesmo? with ICMS do //essa primeira parte e o imposto individual para para cada produto begin CST := cst10; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := DBGrid1.DataSource.DataSet.FieldByName('PrecoUnitario') .AsCurrency; ICMS.pICMS := 17; ICMS.vICMS := DBGrid1.DataSource.DataSet.FieldByName ('PrecoUnitario').AsCurrency * 17 / 100; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 0; ICMS.vBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; end; end; end; DBGrid1.DataSource.DataSet.Next; end; // essa parte são os impostos geral! Total.ICMSTot.vBC := StrToFloat(TiraPontos(dbTotal.Text)); Total.ICMSTot.vICMS := StrToFloat(TiraPontos(dbTotal.Text)) * 17 / 100; Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0; Total.ICMSTot.vProd := StrToFloat(TiraPontos(dbTotal.Text)); Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := StrToFloat(TiraPontos(dbTotal.Text)); Total.ICMSTot.vTotTrib := StrToFloat(TiraPontos(dbTotal.Text)); NFe.pdf