[problema para gera nfce csosn]

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;

[problema para gera nfce csosn]

   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;