acr500_02.pas.svn-base

一个用Delphi开发的ERP软件

unit Acr500_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_13, DB, ADODB, ActnList, Menus, ComCtrls, ToolWin,
  StdCtrls, wwdbdatetimepicker, Mask, wwdbedit, Wwdotdot, Grids, Wwdbigrd,
  Wwdbgrid, Buttons, Wwdbcomb;

type
  TAcr500_02Form = class(TBas200_13Form)
    adsAcr500B: TADODataSet;
    dsInv500B: TDataSource;
    ADODataSet1: TADODataSet;
    PageControl1: TPageControl;
    tsItem: TTabSheet;
    wwDBGrid1: TwwDBGrid;
    edtDate: TwwDBDateTimePicker;
    lblDate: TLabel;
    edtPerson: TEdit;
    sbPerson: TSpeedButton;
    edtPersonName: TEdit;
    lblPerson: TLabel;
    gbCust: TGroupBox;
    lblAddress: TLabel;
    lblPhone: TLabel;
    lblFax: TLabel;
    edtAddress: TEdit;
    edtPhone: TEdit;
    edtContact: TEdit;
    lblRemark: TLabel;
    memRemark: TMemo;
    adsAcr500BFNo: TIntegerField;
    adsAcr500BFItemNo: TIntegerField;
    adsAcr500BFItemID: TStringField;
    adsAcr500BFItemName: TStringField;
    adsAcr500BFItemSpec: TStringField;
    adsAcr500BFUnitName: TStringField;
    adsAcr500BFOrderQty: TFloatField;
    adsAcr500BFOrderPrice: TFloatField;
    adsAcr500BFOrderAmount: TFloatField;
    adsAcr500BFQty: TFloatField;
    adsAcr500BFRate: TFloatField;
    adsAcr500BFAmount: TFloatField;
    adsAcr500BFAcrQty: TFloatField;
    adsAcr500BFAcrAmt: TFloatField;
    adsAcr500BFRemark: TStringField;
    adsAcr500BFLineNo: TIntegerField;
    adsAcr500BFOrder: TStringField;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryAcr500B: TADOQuery;
    qryAcr500BA500B_001: TWideStringField;
    qryAcr500BA500B_002: TIntegerField;
    qryAcr500BA500B_003: TWideStringField;
    qryAcr500BA500B_004: TIntegerField;
    qryAcr500BA500B_005: TFloatField;
    qryAcr500BA500B_006: TFloatField;
    qryAcr500BA500B_007: TFloatField;
    qryAcr500BA500B_008: TIntegerField;
    qryAcr500BO510B_002: TIntegerField;
    qryAcr500BO510B_003: TIntegerField;
    qryAcr500BO510B_004: TIntegerField;
    qryAcr500BO510B_005: TFloatField;
    qryAcr500BO510B_006: TFloatField;
    qryAcr500BO510B_007: TFloatField;
    qryInv150: TADOQuery;
    qryInv140: TADOQuery;
    qryAcr500BI150_002: TStringField;
    qryAcr500BI150_003: TStringField;
    qryAcr500BI150_008: TStringField;
    qryAcr500BI140_002: TStringField;
    qryAcr500BI140_003: TStringField;
    qryAcr500BI150_004: TStringField;
    ADOQuery1A500A_001: TWideStringField;
    ADOQuery1A500A_002: TDateTimeField;
    ADOQuery1A500A_003: TIntegerField;
    ADOQuery1A500A_004: TFloatField;
    ADOQuery1A500A_006: TMemoField;
    ADOQuery1A500A_007: TWideStringField;
    ADOQuery1A500A_008: TDateTimeField;
    ADOQuery1A500A_009: TWideStringField;
    ADOQuery1A500A_010: TDateTimeField;
    ADOQuery1H150_002: TWideStringField;
    ADOQuery1H150_003: TWideStringField;
    qryOrd510B: TADOQuery;
    qryOrd510BO510B_002: TIntegerField;
    qryOrd510BO510B_003: TIntegerField;
    qryOrd510BO510B_004: TIntegerField;
    qryOrd510BO510B_005: TFloatField;
    qryOrd510BO510B_006: TFloatField;
    qryOrd510BI150_002: TStringField;
    qryOrd510BI150_003: TStringField;
    qryOrd510BI150_004: TStringField;
    qryOrd510BI150_008: TStringField;
    qryOrd510BI140_002: TStringField;
    qryOrd510BI140_003: TStringField;
    qryOrd510BO510B_001: TWideStringField;
    qryOrd510BO510B_013: TFloatField;
    adsAcr500BFDisType: TStringField;
    cbDisType: TwwDBComboBox;
    qryAcr500BA500B_009: TSmallintField;
    adsAcr500BFDisAmt: TFloatField;
    qryAcr500BO510B_025: TFloatField;
    qryOrd510BO510B_025: TFloatField;
    ADOQuery1A500A_005: TIntegerField;
    qryGld100: TADOQuery;
    lblCust: TLabel;
    edtCust: TEdit;
    sbCust: TSpeedButton;
    edtCustName: TEdit;
    qryOrd150: TADOQuery;
    qryOrd150O150_001: TAutoIncField;
    qryOrd150O150_002: TWideStringField;
    qryOrd150O150_003: TWideStringField;
    qryOrd150O150_004: TWideStringField;
    qryOrd150O150_005: TWideStringField;
    qryOrd150O150_006: TWideStringField;
    qryOrd150O150_012: TWideStringField;
    qryOrd150O151_002: TWideStringField;
    qryOrd150O151_003: TWideStringField;
    qryOrd150O151_004: TWideStringField;
    qryOrd150O120_002: TWideStringField;
    qryOrd150O150_011: TIntegerField;
    lblContact: TLabel;
    Edit1: TEdit;
    lblDept: TLabel;
    edtDept: TEdit;
    lblPosit: TLabel;
    edtPosit: TEdit;
    lblCurr: TLabel;
    cbCurr: TComboBox;
    lblRate: TLabel;
    edtRate: TEdit;
    edtItem: TwwDBComboDlg;
    qryItems: TADOQuery;
    qryItemsI150_001: TAutoIncField;
    qryItemsI150_002: TWideStringField;
    qryItemsI150_003: TWideStringField;
    qryItemsI150_004: TWideStringField;
    qryItemsI140_002: TWideStringField;
    qryItemsI140_003: TWideStringField;
    qryItemsI140_001: TAutoIncField;
    adsAcr500BFSourceOrder: TStringField;
    ADOQuery1A500A_011: TIntegerField;
    ADOQuery1A500A_012: TBCDField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbPersonClick(Sender: TObject);
    procedure edtPersonExit(Sender: TObject);
    procedure adsAcr500BNewRecord(DataSet: TDataSet);
    procedure wwDBGrid1ColExit(Sender: TObject);
    procedure wwDBGrid1Enter(Sender: TObject);
    procedure wwDBGrid1Exit(Sender: TObject);
    procedure wwDBGrid1UpdateFooter(Sender: TObject);
    procedure cbDisTypeChange(Sender: TObject);
    procedure adsAcr500BAfterScroll(DataSet: TDataSet);
    procedure sbCustClick(Sender: TObject);
    procedure edtCustExit(Sender: TObject);
    procedure edtItemEnter(Sender: TObject);
    procedure edtItemCustomDlg(Sender: TObject);
    procedure cbCurrChange(Sender: TObject);
  private
    { Private declarations }
    AType:string;
    ALastNo:Integer;
    ABusy,AIsChanged:Boolean;
    procedure GetOrderInfo;
    procedure GetDetailData;
    procedure AddDetailData;
    procedure SetDBGridA;
    procedure SetDisQty;
    procedure SetDisAmount;
    procedure SetDisRate;
    procedure GetCustPlaceInfo;    
  public
    procedure OpenData(ACode:String);
    procedure SetInterface; override;
    procedure GetDataInfo; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure SetEmptyInit; override;
    procedure TableBeforePost; override;
    procedure TableAfterPost; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Acr500_02Form: TAcr500_02Form;

implementation

uses SYSDATA, CommFun, HwSelData, HwSelDataA,CshComm;

{$R *.dfm}

procedure TAcr500_02Form.OpenData(ACode:String);
begin
  if ACode='' then AMode:='ADD' else AMode:='UPD';
  ADOQuery1.DisableControls;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select A.*,');
  ADOQuery1.SQL.Add('    B.H150_002,B.H150_003');
  ADOQuery1.SQL.Add('from ACR500A A,Hrm150 B');
  ADOQuery1.SQL.Add('where A.A500A_003=B.H150_001');
  ADOQuery1.SQL.Add('order by A.A500A_001');
  ADOQuery1.Open;
  ADOQuery1.Locate('A500A_001',ACode,[]);
  ADOQuery1.EnableControls;
  ADOQuery1AfterScroll(ADOQuery1);
end;

procedure TAcr500_02Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('Acr50001001');  //Caption
  lblCreateDate.Caption:=GetDBString('Acr50002003');  //制单日期
  lblCreateBy.Caption:=GetDBString('Acr50002004');  //制单人员
  lblUpdateDate.Caption:=GetDBString('Acr50002005');  //修改日期
  lblUpdateBy.Caption:=GetDBString('Acr50002006');  //修改人员
  gbInfo.Caption:=GetDBString('Acr50002007');  //基本信息
  lblCode.Caption:=GetDBString('Acr50002008');  //折扣单号
  ADOQuery1A500A_001.DisplayLabel:=GetDBString('Acr50002009');  //折扣单号
  ADOQuery1A500A_002.DisplayLabel:=GetDBString('Acr50002010');  //折扣日期
  ADOQuery1A500A_004.DisplayLabel:=GetDBString('Acr50002011');  //折扣金额
  ADOQuery1A500A_005.DisplayLabel:=GetDBString('Acr50002012');  //销售单号
  ADOQuery1A500A_006.DisplayLabel:=GetDBString('Acr50002013');  //备注说明
  ADOQuery1A500A_007.DisplayLabel:=GetDBString('Acr50002014');  //制单人员
  ADOQuery1A500A_008.DisplayLabel:=GetDBString('Acr50002015');  //制单日期
  ADOQuery1A500A_009.DisplayLabel:=GetDBString('Acr50002016');  //修改人员
  ADOQuery1A500A_010.DisplayLabel:=GetDBString('Acr50002017');  //修改日期
  ADOQuery1H150_002.DisplayLabel:=GetDBString('Acr50002018');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('Acr50002019');  //员工姓名
  lblDate.Caption:=GetDBString('Acr50002020');  //折扣日期
  lblPerson.Caption:=GetDBString('Acr50002021');  //折扣人员
  lblRemark.Caption:=GetDBString('Acr50002022');  //备注说明
  wwDBGrid1.ColumnByName('FItemID').DisplayLabel:=GetDBString('Acr50002023');  //产品编号
  wwDBGrid1.ColumnByName('FItemName').DisplayLabel:=GetDBString('Acr50002024');  //产品名称
  wwDBGrid1.ColumnByName('FItemSpec').DisplayLabel:=GetDBString('Acr50002025');  //规格型号
  wwDBGrid1.ColumnByName('FUnitName').DisplayLabel:=GetDBString('Acr50002026');  //单位名称
  wwDBGrid1.ColumnByName('FOrderQty').DisplayLabel:=GetDBString('Acr50002027');  //销售数量
  wwDBGrid1.ColumnByName('FOrderPrice').DisplayLabel:=GetDBString('Acr50002028');  //销售单价
  wwDBGrid1.ColumnByName('FOrderAmount').DisplayLabel:=GetDBString('Acr50002029');  //销售金额
  wwDBGrid1.ColumnByName('FDisType').DisplayLabel:=GetDBString('Acr50002030');  //折扣类型
  wwDBGrid1.ColumnByName('FQty').DisplayLabel:=GetDBString('Acr50002031');  //折扣数量
  wwDBGrid1.ColumnByName('FRate').DisplayLabel:=GetDBString('Acr50002032');  //折扣比率
  wwDBGrid1.ColumnByName('FAmount').DisplayLabel:=GetDBString('Acr50002033');  //折扣金额
  wwDBGrid1.ColumnByName('FAcrQty').DisplayLabel:=GetDBString('Acr50002034');  //应收数量
  wwDBGrid1.ColumnByName('FAcrAmt').DisplayLabel:=GetDBString('Acr50002035');  //应收金额
  wwDBGrid1.ColumnByName('FRemark').DisplayLabel:=GetDBString('Acr50002036');  //备注说明
  gbCust.Caption:=GetDBString('Acr50002037');  //销售定单
  lblAddress.Caption:=GetDBString('Acr50002039');  //客户地址
  lblPhone.Caption:=GetDBString('Acr50002040');  //电话号码
  lblFax.Caption:=GetDBString('Acr50002041');  //传真号码
  lblCurr.Caption:=GetDBString('Acr50002043');  //币别名称
  qryHrm150H150_002.DisplayLabel:=GetDBString('Acr50002063');  //员工编号
  qryHrm150H150_003.DisplayLabel:=GetDBString('Acr50002064');  //员工姓名
  qryOrd150O150_002.DisplayLabel:=GetDBString('Acr50002065');  //客户编号
  qryOrd150O150_003.DisplayLabel:=GetDBString('Acr50002066');  //客户名称
  qryOrd150O150_004.DisplayLabel:=GetDBString('Acr50002067');  //客户简称
  qryOrd150O150_005.DisplayLabel:=GetDBString('Acr50002068');  //电话号码
  qryOrd150O150_006.DisplayLabel:=GetDBString('Acr50002069');  //传真号码
  qryOrd150O150_012.DisplayLabel:=GetDBString('Acr50002070');  //客户地址
  qryOrd150O151_002.DisplayLabel:=GetDBString('Acr50002071');  //联系人员
  qryOrd150O151_003.DisplayLabel:=GetDBString('Acr50002072');  //部门名称
  qryOrd150O151_004.DisplayLabel:=GetDBString('Acr50002073');  //职务名称
  qryOrd150O120_002.DisplayLabel:=GetDBString('Acr50002074');  //O120_002
  qryAcr500BA500B_001.DisplayLabel:=GetDBString('Acr50002075');  //折扣单号
  qryAcr500BA500B_002.DisplayLabel:=GetDBString('Acr50002076');  //单据行号
  qryAcr500BA500B_003.DisplayLabel:=GetDBString('Acr50002077');  //A500B_003
  qryAcr500BA500B_004.DisplayLabel:=GetDBString('Acr50002078');  //A500B_004
  qryAcr500BA500B_005.DisplayLabel:=GetDBString('Acr50002079');  //销售数量
  qryAcr500BA500B_006.DisplayLabel:=GetDBString('Acr50002080');  //折扣比率
  qryAcr500BA500B_007.DisplayLabel:=GetDBString('Acr50002081');  //折扣金额
  qryAcr500BA500B_008.DisplayLabel:=GetDBString('Acr50002082');  //备注说明
  qryAcr500BO510B_002.DisplayLabel:=GetDBString('Acr50002083');  //O510B_002
  qryAcr500BO510B_003.DisplayLabel:=GetDBString('Acr50002084');  //产品编号
  qryAcr500BO510B_004.DisplayLabel:=GetDBString('Acr50002085');  //计量单位
  qryAcr500BO510B_005.DisplayLabel:=GetDBString('Acr50002086');  //O510B_005
  qryAcr500BO510B_006.DisplayLabel:=GetDBString('Acr50002087');  //O510B_006
  qryAcr500BO510B_007.DisplayLabel:=GetDBString('Acr50002088');  //O510B_007
  qryAcr500BO510B_025.DisplayLabel:=GetDBString('Acr50002089');  //收款折扣
  qryAcr500BI150_002.DisplayLabel:=GetDBString('Acr50002090');  //料品编号
  qryAcr500BI150_003.DisplayLabel:=GetDBString('Acr50002091');  //料品名称
  qryAcr500BI150_004.DisplayLabel:=GetDBString('Acr50002092');  //规格型号
  qryAcr500BI150_008.DisplayLabel:=GetDBString('Acr50002093');  //英文名称
  qryAcr500BI140_002.DisplayLabel:=GetDBString('Acr50002094');  //单位编号
  qryAcr500BI140_003.DisplayLabel:=GetDBString('Acr50002095');  //单位名称
  qryOrd510BO510B_001.DisplayLabel:=GetDBString('Acr50002096');  //O510B_001
  qryOrd510BO510B_002.DisplayLabel:=GetDBString('Acr50002097');  //O510B_002
  qryOrd510BO510B_003.DisplayLabel:=GetDBString('Acr50002098');  //O510B_003
  qryOrd510BO510B_004.DisplayLabel:=GetDBString('Acr50002099');  //O510B_004
  qryOrd510BO510B_005.DisplayLabel:=GetDBString('Acr50002100');  //O510B_005
  qryOrd510BO510B_006.DisplayLabel:=GetDBString('Acr50002101');  //O510B_006
  qryOrd510BO510B_013.DisplayLabel:=GetDBString('Acr50002102');  //O510B_013
  qryOrd510BO510B_025.DisplayLabel:=GetDBString('Acr50002103');  //收款折扣
  qryOrd510BI140_003.DisplayLabel:=GetDBString('Acr50002104');  //单位名称
  qryOrd510BI140_002.DisplayLabel:=GetDBString('Acr50002105');  //单位编号
  qryOrd510BI150_008.DisplayLabel:=GetDBString('Acr50002106');  //英文名称
  qryOrd510BI150_004.DisplayLabel:=GetDBString('Acr50002107');  //规格型号
  qryOrd510BI150_003.DisplayLabel:=GetDBString('Acr50002108');  //料品名称
  qryOrd510BI150_002.DisplayLabel:=GetDBString('Acr50002109');  //料品编号

    //币别名称
  cbCurr.Clear;
  qryGld100.Close;
  qryGld100.Open;
  while not qryGld100.Eof do
  begin
    cbCurr.Items.Add(qryGld100.FieldByName('G100_003').AsString);
    qryGld100.Next;
  end;
  qryGld100.First;
  cbCurr.ItemIndex:=0;
  AType:=GetSysParams('ORD0006');

  adsAcr500B.Close;
  adsAcr500B.CreateDataSet;
end;

procedure TAcr500_02Form.FormCreate(Sender: TObject);
begin
  inherited;
//
  ATableName:='ACR500A';
  AFieldName:='A500A_001';
  qryHrm150.Open;
  qryOrd150.Open;
  qryGld100.Open;
  qryInv150.Open;
  qryInv140.Open;
  qryAcr500B.Open;
  AKeyEvent:=OnKeyDown;
end;

procedure TAcr500_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;