importsellorder.pas

来自「三层ERP系统 (SQL)」· PAS 代码 · 共 75 行

unit ImportSellOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImportBase, DB, DBClient, ActnList, ImgList, Grids, DBGridEh,
  ComCtrls, ToolWin, ExtCtrls;

type
  TfrmImportSellOrder = class(TfrmImportBase)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure acImportExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmImportSellOrder: TfrmImportSellOrder;

implementation

uses MDSellOrder;

{$R *.dfm}

procedure TfrmImportSellOrder.FormCreate(Sender: TObject);
begin
  inherited;
  MainView:='vContract';
  DetailView:='vContractSub';
  MainKeyfield:='fid';
  DetailKeyField:='fid';
  RetailField:='fsn';
end;

procedure TfrmImportSellOrder.FormDestroy(Sender: TObject);
begin
  inherited;
  frmImportSellOrder:=nil;
end;

procedure TfrmImportSellOrder.acImportExecute(Sender: TObject);
begin
  inherited;
  frmSellorder.CDSMaster.FieldByName('fcustomerID').AsInteger:=CDSMaster.fieldbyname('fcustomerID').AsInteger;
  frmSellorder.CDSMaster.FieldByName('fcustomerCode').AsString:=CDSMaster.fieldbyname('fcustomerCode').AsString;
  frmSellorder.CDSMaster.FieldByName('fcustomername').AsString:=CDSMaster.fieldbyname('fcustomername').AsString;
  frmSellorder.CDSMaster.FieldByName('fContractNo').AsString:=CDSMaster.fieldbyname('fNo').AsString;
  frmSellorder.CDSMaster.FieldByName('fbalanceMethod').AsString:=CDSMaster.fieldbyname('fbalanceMethod').AsString;
  frmSellorder.CDSMaster.FieldByName('fearnest').AsFloat:=CDSMaster.fieldbyname('fearnest').AsFloat;
  frmSellOrder.CDSMaster.FieldByName('fshipDate').AsDateTime:=CDSMaster.fieldbyname('fdate').AsDateTime;
  CDSDetail.First ;
  while not CDSDetail.Eof do
    begin
      frmSellOrder.CDSdetail.Append;
      frmSellOrder.CDSdetail.FieldByName('fresid').AsInteger:=CDSdetail.fieldbyname('fresid').AsInteger;
      frmSellorder.CDSdetail.FieldByName('fcode').AsString:=CDSdetail.fieldbyname('fcode').AsString;
      frmSellorder.CDSdetail.FieldByName('fname').AsString:=CDSdetail.fieldbyname('fname').AsString;
      frmSellorder.CDSdetail.FieldByName('fspec').AsString:=CDSdetail.fieldbyname('fspec').AsString;
      frmSellorder.CDSdetail.FieldByName('funitName').AsString:=CDSdetail.fieldbyname('funitName').AsString;
      frmSellorder.CDSdetail.FieldByName('fqty').AsFloat:=CDSdetail.fieldbyname('fqty').AsFloat;
      frmSellorder.CDSdetail.FieldByName('funitPrice').AsFloat:=CDSdetail.fieldbyname('funitprice').AsFloat;
      CDSDetail.Next;
    end;
    frmSellorder.CDSdetail.post;

  frmImportSellOrder.Close; 
end;

end.