alexandreestevo

Obrigado vou corrigir aqui agora. e te dou o retorno A mensagem agora é Total do ICMS difere do somatório dos itens ; Agradeço a ajuda Total.ICMSTot.vBC := 0; Total.ICMSTot.vICMS := resultado*form2.FDQuery4sum.Value; Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0; Total.ICMSTot.vProd := form2.FDQuery4SUM.Value; 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 := form2.FDQuery4SUM.Value; // partilha do icms e fundo de probreza Total.ICMSTot.vFCPUFDest := 0.00; Total.ICMSTot.vICMSUFDest := 0.00; Total.ICMSTot.vICMSUFRemet := 0.00; Total.ISSQNtot.vServ := 0; Total.ISSQNTot.vBC := 0; Total.ISSQNTot.vISS := 0; Total.ISSQNTot.vPIS := 0; Total.ISSQNTot.vCOFINS := 0; end;

Bom dia a todos !gostaria de ajuda com esse codigo. qaundo vou gerar o nfce me da o erro total da bc icms difere do somatório dos itens vTotTrib := 0; with ICMS do begin ICMS.CSOSN:=csosn500; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := form2.FDQuery3PRECO_VENDA.Value; ICMS.pICMS := 17; ICMS.vICMS :=resultado*form2.FDQuery3PRECO_VENDA.Value ; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST:= 0; ICMS.vBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; // partilha do ICMS e fundo de probreza with ICMSUFDest do begin vBCUFDest := 0.00; pFCPUFDest := 0.00; pICMSUFDest := 0.00; pICMSInter := 0.00; pICMSInterPart := 0.00; vFCPUFDest := 0.00; vICMSUFDest := 0.00; vICMSUFRemet := 0.00; end;