admin管理员组

文章数量:1301562

I am doing this on calculate field event of my procedure :

procedure TDataModule1.CENIKCalcFields(DataSet: TDataSet);
begin
CENIK.FieldByName('OSEB').AsInteger := Form10.cxComboBox1.EditValue;
CENIK.FieldByName('SUM').AsCurrency :=CENIK.FieldByName('PRICE').AsCurrency * CENIK.FieldByName('DAYS').Value;
CENIK.FieldByName('DDV').AsCurrency := CENIK.FieldByName('SUM').AsCurrency * 22 / 100.0;
CENIK.FieldByName('TT').AsCurrency := 3.13 * CENIK.FieldByName('DAYS').Value * CENIK.FieldByName('OSEB').Value ;
CENIK.FieldByName('PRIJAVA').AsCurrency := CENIK.FieldByName('OSEB').Value * 2.50;
CENIK.FieldByName('TOTAL').AsCurrency := CENIK.FieldByName('SUM').AsCurrency + CENIK.FieldByName('PRIJAVA').AsCurrency + CENIK.FieldByName('TT').AsCurrency;
end;

In case of overlapping days PRIJAVA needs to be calculated only once. How do I prevent prijava being calculated if it allready exists ?

本文标签: delphioncalculate fields prevent iteration on overlapping daysStack Overflow