mdsellorder.pas

三层ERP系统 (SQL)

unit MDSellOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BillBase, MSNPopUp, FR_DSet, FR_DBSet, FR_Class, DB, DBClient,
  ActnList, Menus, Grids, DBGridEh, StdCtrls, Mask, wwdbedit, ExtCtrls,
  DBCtrls, DBCtrlsEh, Buttons, wwDialog, wwidlg;

type
  TfrmSellOrder = class(TfrmBillBase)
    Label7: TLabel;
    wwDBEdit4: TwwDBEdit;
    btncustomer: TSpeedButton;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    wwDBEdit2: TwwDBEdit;
    Label9: TLabel;
    wwDBEdit1: TwwDBEdit;
    Label8: TLabel;
    Label11: TLabel;
    wwDBEdit6: TwwDBEdit;
    Label12: TLabel;
    wwDBEdit7: TwwDBEdit;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    Label13: TLabel;
    wwDBEdit9: TwwDBEdit;
    Label14: TLabel;
    Label18: TLabel;
    DBMemo3: TDBMemo;
    Label10: TLabel;
    CDSCustomer: TClientDataSet;
    CDSCustomerfCode: TWideStringField;
    CDSCustomerfName: TWideStringField;
    CDSCustomerfID: TAutoIncField;
    CDSCustomerfFullName: TWideStringField;
    CDSCustomerfAreaCode: TWideStringField;
    CDSCustomerfTypeCode: TWideStringField;
    CDSCustomerfAddress: TWideStringField;
    CDSCustomerfPostCode: TWideStringField;
    CDSCustomerfTel: TWideStringField;
    CDSCustomerfFax: TWideStringField;
    CDSCustomerfRelation: TWideStringField;
    CDSCustomerfMobilePhone: TWideStringField;
    CDSCustomerfPosition: TWideStringField;
    CDSCustomerfEmail: TWideStringField;
    CDSCustomerfTaxAccount: TWideStringField;
    CDSCustomerfBank: TWideStringField;
    CDSCustomerfBankAccount: TWideStringField;
    CDSCustomerfOriginSum: TBCDField;
    CDSCustomerfRemain: TBCDField;
    CDSCustomerfMaxPaySum: TBCDField;
    CDSCustomerfMaxRemain: TBCDField;
    CDSCustomerfRate: TBCDField;
    CDSCustomerfBeginDate: TDateTimeField;
    CDSCustomerfHomePage: TWideStringField;
    CDSCustomerfEnglishName: TWideStringField;
    CDSCustomerfNotes: TWideStringField;
    wwLookupDlg: TwwLookupDialog;
    CDSdetailfid: TAutoIncField;
    CDSdetailfsn: TIntegerField;
    CDSdetailfresid: TIntegerField;
    CDSdetailfpqty: TBCDField;
    CDSdetailfqty: TBCDField;
    CDSdetailfoutqty: TBCDField;
    CDSdetailfbackqty: TBCDField;
    CDSdetailfunitprice: TBCDField;
    CDSdetailfcode: TWideStringField;
    CDSdetailfname: TWideStringField;
    CDSdetailfspec: TWideStringField;
    CDSdetailfunitname: TWideStringField;
    CDSdetailfrefprice: TBCDField;
    CDSdetailfamount: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btncustomerClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CDSMasterBeforePost(DataSet: TDataSet);
    procedure acImportExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSellOrder: TfrmSellOrder;

implementation

uses LookupSellOrder, DataProcess, ImportSellOrder, Global;

{$R *.dfm}

procedure TfrmSellOrder.FormCreate(Sender: TObject);
begin
  inherited;
  FormCaption:='綪扳虫';
  Maintable:='TSellOrder';
  MainView:='VSellOrder';
  DetailTable:='TSellOrderSub';
  DetailView:='VSellOrderSub';
  MKeyField:='fid';
  DkeyField:='fid';
  Relatkey:='fsn';
  iBillTypeID:=1;
  MasterField:='fno';
  SelfField:='fno_s';
  CompanyNamefield:='fCustomerName';
  RemarkField:='fremarks';
  SearchForm:=TfrmLookupSellOrder;
end;

procedure TfrmSellOrder.FormDestroy(Sender: TObject);
begin
  inherited;
  frmSellOrder:=nil;
end;

procedure TfrmSellOrder.btncustomerClick(Sender: TObject);
begin
  inherited;
  if wwLookupdlg.Execute then
    begin
     CDSmaster.FieldByName('fcustomerid').AsInteger:=
               CDScustomer.fieldbyname('fid').AsInteger;
      cdsMaster.FieldByName('fcustomercode').AsString:=
                CDScustomer.fieldbyname('fcode').AsString;
      cdsMaster.FieldByName('fcustomername').AsString:=
               cdscustomer.fieldbyname('fname').asstring;
    end;
end;

procedure TfrmSellOrder.FormShow(Sender: TObject);
begin
  inherited;
  GetsqlData(CDSCustomer,'Tcustomer','fid','fid>0',20);
end;

procedure TfrmSellOrder.CDSMasterBeforePost(DataSet: TDataSet);
begin
With CDSMaster do
Begin
if VarisNUll(FieldValues['fCustomerID']) then
   Raise Exception.Create('叫