home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / CUSTDATA.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-05  |  847 b   |  24 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "CustData.h"
  6. //---------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TCustomerData *CustomerData;
  9. //--------------------------------------------------------------------- 
  10. __fastcall TCustomerData::TCustomerData(TComponent* AOwner)
  11.   : TDataModule(AOwner)
  12. {
  13. }
  14. //---------------------------------------------------------------------
  15. void __fastcall TCustomerData::LineItemsCalcFields(TDataSet *DataSet)
  16. {
  17.   LineItemsExtendedPrice->Value = 
  18.     LineItemsPrice->Value * ((100 - LineItemsDiscount->Value) / 100);
  19.  
  20.   LineItemsTotal->Value = 
  21.     LineItemsExtendedPrice->Value * LineItemsQty->Value;
  22. }
  23. //--------------------------------------------------------------------- 
  24.