Topic: Application crash
Hi Guys,
After trying to add new record I get app crass
Here is the script. Disabled script line (Tax Calc) is causing the crash and I cannot spot the script error?
procedure CalculateTotal;
var
TaxRate:double;
begin
TaxRate := 0;
frmRevenue.edAfterExp.value := frmRevenue.edGrossAmt.value - frmRevenue.edLessExp.value;
TaxRate := sqlexecute('select TaxRate from TaxRates where id = '+frmRevenue.cbTaxRate.sqlvalue);
//frmRevenue.edTaxAmt.value := frmRevenue.edGrossAmt.value * (TaxRate / 100);
frmRevenue.edNetAmtRecvd.value := frmRevenue.edAfterExp.value - frmRevenue.edTaxAmt.value;
end;
// CALC EVENTS
procedure frmRevenue_edGrossAmt_OnChange (Sender: string);
begin
CalculateTotal;
end;
procedure frmRevenue_edLessExp_OnChange (Sender: string);
begin
CalculateTotal;
end;
procedure frmRevenue_edTaxAmt_OnChange (Sender: string);
begin
CalculateTotal;
end;
God... please help me become the person my dog thinks I am.