Fórum Rejeição: Total Da Bc Icms-St Difere Do Somatório Dos Itens #519579

Amigos não consigo fazer esta rotina funcionar

//Sub. Tributária
if Query3['tipProd'] = 3 then
begin
CST := cst60;
CSOSN := csosn500;
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := Query3['valor'];
ICMS.pICMS := 0;
ICMS.vICMS := 0;
ICMS.modBCST := dbisMargemValorAgregado;
ICMS.pMVAST := 0;
ICMS.pRedBCST := 0;
ICMS.vBCST := Query3['valor'] + ((Query3['valor'] * Query3['basecalcst']) / 100);
ICMS.pICMSST := Query3['basecalcst'];
ICMS.vICMSST := (Query3['valor'] * Query3['basecalcst']) / 100;
ICMS.pRedBC := 0;
TotProdST := TotProdST + ICMS.vBCST;
TotICMSST := TotICMSST + ICMS.vICMSST;
end;
Total.ICMSTot.vBCST := TotProdST;
Total.ICMSTot.vST := TotICMSST;
Total.ICMSTot.vProd := dm.tab_rec['valorfatura'];

Rejeição: Total da BC ICMS-ST difere do somatório dos itens