Topic: calc
I just cannot workout what the heck is wrong with the script below?
procedure CalculateTotal;
begin
frmTest.edNetTotal.Value := (frmTest.edSubTotal.value + frmTest.edDelivery.Value) - (frmTest.edDiscount.Value); //NetTotal calcs ok
frmTest.edGrossTotal.Value := frmTest.edNetTotal.Value + frmTest.edTaxTotal.Value; // GrossTotal cals is not working
end;
procedure frmTest_edDiscount_OnChange (Sender: string);
begin
CalculateTotal;
end;
procedure frmTest_edDelivery_OnChange (Sender: string);
begin
CalculateTotal;
end;
begin
end.
God... please help me become the person my dog thinks I am.