Fórum Somar campos somente gt; 0 #244348

Olá turma do Delphi ..... sou pai de família e venho solicitar sua ajuda ...... O que faço para um campo que o valor Aliquota 0 o resultado seja 0 e os campos superiores a 0 o resultado seja o Valor Unitário X Quantidade X Aliquota ..... os resultados ficam em um campo Virt V Aliquota ........ desde já muito obrigado

Tentei da seguinte forma .....

[color=green:0427f16775]procedure TFmDM.CDSItensCalcFields(DataSet: TDataSet);
begin
CDSItensVirt_V_Total.AsFloat:=CDSItensPRUNIT.AsFloat*CDSItensQUANTIDADE.AsFloat;
begin
if not (CDSItensALIQUOTAS.AsFloat > 0) then
CDSItensVirt_V_ICMS.AsFloat:=CDSItensVirt_V_Total.AsFloat/100*CDSItensALIQUOTAS.AsFloat;
end;
end;[/color:0427f16775]

só funcionol a soma com valor 0
ex.: 100,00 X 5 X 0¬ = 0

superior a 0 ficou em branco
ex.: 100,00 X 5 X 10¬ = ficou em branco