?? ord500_02.pas.svn-base
字號:
SetDBGridB;
wwDBGrid1.ColumnByName('FItemID').DisplayLabel:=GetDBString('ORD50002070'); //產品編號
wwDBGrid1.ColumnByName('FItemName').DisplayLabel:=GetDBString('ORD50002071'); //產品名稱
wwDBGrid1.ColumnByName('FItemSpec').DisplayLabel:=GetDBString('ORD50002072'); //規格型號
wwDBGrid1.ColumnByName('FUnitID').DisplayLabel:=GetDBString('ORD50002073'); //單位編號
wwDBGrid1.ColumnByName('FUnitName').DisplayLabel:=GetDBString('ORD50002074'); //單位名稱
wwDBGrid1.ColumnByName('FQty').DisplayLabel:=GetDBString('ORD50002075'); //銷售數量
wwDBGrid1.ColumnByName('FPrice').DisplayLabel:=GetDBString('ORD50002076'); //銷售單價
wwDBGrid1.ColumnByName('FAmount').DisplayLabel:=GetDBString('ORD50002079'); //銷售金額
wwDBGrid1.ColumnByName('FDisRate').DisplayLabel:=GetDBString('ORD50002077'); //折扣比率
wwDBGrid1.ColumnByName('FDisAmt').DisplayLabel:=GetDBString('ORD50002078'); //折扣金額
wwDBGrid1.ColumnByName('FNetAmt').DisplayLabel:=GetDBString('ORD50002051'); //折后總額
wwDBGrid1.ColumnByName('FTax').DisplayLabel:=GetDBString('ORD50002080'); //銷售稅率
wwDBGrid1.ColumnByName('FTaxAmt').DisplayLabel:=GetDBString('ORD50002081'); //銷售稅額
wwDBGrid1.ColumnByName('FAcrAmt').DisplayLabel:=GetDBString('ORD50002082'); //應收金額
wwDBGrid1.ColumnByName('FDate').DisplayLabel:=GetDBString('ORD50002083'); //需求日期
wwDBGrid1.ColumnByName('FFactDate').DisplayLabel:=GetDBString('ORD50002084'); //實際日期
wwDBGrid1.ColumnByName('FReceQty').DisplayLabel:=GetDBString('ORD50002085'); //發貨數量
wwDBGrid1.ColumnByName('FPlace').DisplayLabel:=GetDBString('ORD50002086'); //交貨地址
wwDBGrid1.ColumnByName('FRemark').DisplayLabel:=GetDBString('ORD50002087'); //備注說明
adsOrd500BFItemID.DisplayLabel:=GetDBString('ORD50002070'); //產品編號
adsOrd500BFItemName.DisplayLabel:=GetDBString('ORD50002071'); //產品名稱
adsOrd500BFItemSpec.DisplayLabel:=GetDBString('ORD50002072'); //規格型號
adsOrd500BFUnitID.DisplayLabel:=GetDBString('ORD50002073'); //單位編號
adsOrd500BFUnitName.DisplayLabel:=GetDBString('ORD50002074'); //單位名稱
adsOrd500BFQty.DisplayLabel:=GetDBString('ORD50002075'); //銷售數量
adsOrd500BFPrice.DisplayLabel:=GetDBString('ORD50002076'); //銷售單價
adsOrd500BFAmount.DisplayLabel:=GetDBString('ORD50002079'); //銷售金額
adsOrd500BFDisRate.DisplayLabel:=GetDBString('ORD50002077'); //折扣比率
adsOrd500BFDisAmt.DisplayLabel:=GetDBString('ORD50002078'); //折扣金額
adsOrd500BFNetAmt.DisplayLabel:=GetDBString('ORD50002051'); //折后總額
adsOrd500BFTax.DisplayLabel:=GetDBString('ORD50002080'); //銷售稅率
adsOrd500BFTaxAmt.DisplayLabel:=GetDBString('ORD50002081'); //銷售稅額
adsOrd500BFAcrAmt.DisplayLabel:=GetDBString('ORD50002082'); //應收金額
adsOrd500BFDate.DisplayLabel:=GetDBString('ORD50002083'); //需求日期
adsOrd500BFFactDate.DisplayLabel:=GetDBString('ORD50002084'); //實際日期
adsOrd500BFReceQty.DisplayLabel:=GetDBString('ORD50002085'); //發貨數量
adsOrd500BFPlace.DisplayLabel:=GetDBString('ORD50002086'); //交貨地址
adsOrd500BFRemark.DisplayLabel:=GetDBString('ORD50002087'); //備注說明
qryOrd150O150_002.DisplayLabel:=GetDBString('ORD50002088'); //客戶編號
qryOrd150O150_003.DisplayLabel:=GetDBString('ORD50002089'); //客戶名稱
qryOrd150O150_004.DisplayLabel:=GetDBString('ORD50002090'); //客戶簡稱
qryOrd150O150_005.DisplayLabel:=GetDBString('ORD50002091'); //電話號碼
qryOrd150O150_006.DisplayLabel:=GetDBString('ORD50002092'); //傳真號碼
qryOrd150O120_002.DisplayLabel:=GetDBString('ORD50002093'); //所屬地區
qryOrd150O150_012.DisplayLabel:=GetDBString('ORD50002094'); //客戶地址
qryOrd150O151_002.DisplayLabel:=GetDBString('ORD50002095'); //聯系人員
qryOrd150O151_003.DisplayLabel:=GetDBString('ORD50002096'); //部門名稱
qryOrd150O151_004.DisplayLabel:=GetDBString('ORD50002097'); //職務名稱
qryOrd152O152_002.DisplayLabel:=GetDBString('ORD50002098'); //交貨地點
qryOrd152O120_002.DisplayLabel:=GetDBString('ORD50002099'); //所屬地區
qryOrd152O152_004.DisplayLabel:=GetDBString('ORD50002100'); //交貨地址
qryOrd152O152_005.DisplayLabel:=GetDBString('ORD50002101'); //郵政編碼
qryOrd152O152_006.DisplayLabel:=GetDBString('ORD50002102'); //電話號碼
qryOrd152O152_007.DisplayLabel:=GetDBString('ORD50002103'); //傳真號碼
qryOrd152O151_002.DisplayLabel:=GetDBString('ORD50002104'); //聯系人員
qryOrd152O151_003.DisplayLabel:=GetDBString('ORD50002105'); //部門名稱
qryOrd152O151_004.DisplayLabel:=GetDBString('ORD50002106'); //職務名稱
qryOrd160O160_002.DisplayLabel:=GetDBString('ORD50002107'); //條款編號
qryOrd160O160_003.DisplayLabel:=GetDBString('ORD50002108'); //條款名稱
qryItemsI150_002.DisplayLabel:=GetDBString('ORD50002109'); //產品編號
qryItemsI150_003.DisplayLabel:=GetDBString('ORD50002110'); //產品名稱
qryItemsI150_004.DisplayLabel:=GetDBString('ORD50002111'); //規格型號
qryItemsI140_002.DisplayLabel:=GetDBString('ORD50002112'); //單位編號
qryItemsI140_003.DisplayLabel:=GetDBString('ORD50002113'); //單位名稱
qryChargeI150_002.DisplayLabel:=qryItemsI150_002.DisplayLabel; //產品編號
qryChargeI150_003.DisplayLabel:=qryItemsI150_003.DisplayLabel; //產品名稱
qryChargeI150_004.DisplayLabel:=qryItemsI150_004.DisplayLabel; //規格型號
qryChargeI140_002.DisplayLabel:=qryItemsI140_002.DisplayLabel; //單位編號
qryChargeI140_003.DisplayLabel:=qryItemsI140_003.DisplayLabel; //單位名稱
qryInv140I140_002.DisplayLabel:=GetDBString('ORD50002114'); //單位編號
qryInv140I140_003.DisplayLabel:=GetDBString('ORD50002115'); //單位名稱
wwDBGrid2.ColumnByName('FItemID').DisplayLabel:=GetDBString('ORD50002116'); //項目編號
wwDBGrid2.ColumnByName('FItemName').DisplayLabel:=GetDBString('ORD50002117'); //項目名稱
wwDBGrid2.ColumnByName('FAmount').DisplayLabel:=GetDBString('ORD50002118'); //金額
wwDBGrid2.ColumnByName('FRemark').DisplayLabel:=GetDBString('ORD50002119'); //備注
PageControl1.ActivePageIndex:=0;
PageControl2.ActivePageIndex:=0;
//報價類型
cbType.Clear;
qryOrd100.Close;
qryOrd100.Open;
while not qryOrd100.Eof do
begin
cbType.Items.Add(qryOrd100.FieldByName('O100_002').AsString);
qryOrd100.Next;
end;
qryOrd100.First;
cbType.ItemIndex:=0;
//報價狀態(0=新建，1=確認，2=報價，3=完成，4=取消)
AStatus[0]:=GetDBString('ORD50002120'); //新建
AStatus[1]:=GetDBString('ORD50002122'); //確認
AStatus[2]:=GetDBString('ORD50002121'); //報價
AStatus[3]:=GetDBString('ORD50002124'); //完成
AStatus[4]:=GetDBString('ORD50002123'); //取消
AStatus[5]:=GetDBString('ORD50002149'); //執行
Action1.Caption:=AStatus[1]; //確定
Action2.Caption:=AStatus[2]; //報價
Action3.Caption:=AStatus[3]; //完成
Action4.Caption:=AStatus[4]; //取消
//提貨方式(0=自提，1=送貨，2=托運，3=郵寄，4=快遞)
APick[0]:=GetDBString('ORD50002125'); //自提
APick[1]:=GetDBString('ORD50002126'); //送貨
APick[2]:=GetDBString('ORD50002127'); //托運
APick[3]:=GetDBString('ORD50002128'); //郵寄
APick[4]:=GetDBString('ORD50002129'); //快遞
cbPick.Clear;
cbPick.Items.Add(APick[0]);
cbPick.Items.Add(APick[1]);
cbPick.Items.Add(APick[2]);
cbPick.Items.Add(APick[3]);
cbPick.Items.Add(APick[4]);
cbPick.ItemIndex:=0;
//幣別名稱
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;
//付款方式
cbPayment.Clear;
qryGld110.Close;
qryGld110.Open;
while not qryGld110.Eof do
begin
cbPayment.Items.Add(qryGld110.FieldByName('G110_002').AsString);
qryGld110.Next;
end;
qryGld110.First;
cbPayment.ItemIndex:=0;
//來源類型(0=手工輸入，1=來電記錄)
AFrom[0]:=GetDBString('ORD50002130'); //手工輸入
AFrom[1]:=GetDBString('ORD50002131'); //來電記錄
cbFrom.Clear;
cbFrom.Items.Add(AFrom[0]);
cbFrom.Items.Add(AFrom[1]);
cbFrom.ItemIndex:=0;
qryOrd153.FieldByName('I150_002').DisplayLabel:=GetDBString('ORD50002132'); //產品編號
qryOrd153.FieldByName('I150_003').DisplayLabel:=GetDBString('ORD50002133'); //產品名稱
qryOrd153.FieldByName('O153_003').DisplayLabel:=GetDBString('ORD50002134'); //機身編號
qryOrd153.FieldByName('I150_004').DisplayLabel:=GetDBString('ORD50002135'); //規格型號
qryOrd153.FieldByName('I120_003').DisplayLabel:=GetDBString('ORD50002136'); //產品類別
qryOrd153.FieldByName('O150_002').DisplayLabel:=GetDBString('ORD50002137'); //制造商號
qryOrd153.FieldByName('O150_003').DisplayLabel:=GetDBString('ORD50002138'); //制造商名
tsProduct.Caption:=GetDBString('ORD50002139'); //產品信息
// tsDate.Caption:=GetDBString('ORD50002141'); //保養信息
lblItem.Caption:=GetDBString('ORD50002142'); //產品編號
lblMacNo.Caption:=GetDBString('ORD50002143'); //機身編號
lblModel.Caption:=GetDBString('ORD50002144'); //規格型號
lblItemClass.Caption:=GetDBString('ORD50002145'); //產品類別
lblMaker.Caption:=GetDBString('ORD50002146'); //制造商號
lblMakerName.Caption:=GetDBString('ORD50002147'); //制造商名
end;
procedure TOrd500_02Form.FormCreate(Sender: TObject);
begin
inherited;
ATableName:='ORD500A';
AFieldName:='O500A_001';
qryHrm150.Open;
qryOrd150.Open;
qryOrd151.Open;
qryOrd152.Open;
qryOrd160.Open;
qryInv140.Open;
qryItems.Open;
qryCharge.Open;
qryOrd153.Open;
AKeyEvent:=OnKeyDown;
end;
procedure TOrd500_02Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
qryGld100.Close;
qryGld110.Close;
qryHrm150.Close;
qryOrd100.Close;
qryOrd150.Close;
qryOrd152.Close;
qryOrd160.Close;
qryInv140.Close;
qryItems.Close;
qryCharge.Close;
qryOrd153.Close;
end;
procedure TOrd500_02Form.DeleteEvent;
var
ACode:String;
begin
inherited;
//0=新建，1=確認，2=報價，3=完成，4=取消，5=執行
if ADOQuery1.FieldByName('O500A_004').AsInteger<>0 then
begin
ShowMsg('UMS10000531'); //不允許刪除非新建狀態的銷售報價單
Abort;
end;
ACode:=ADOQuery1.FieldByName('O500A_001').AsString;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('delete from ORD500B where O500B_001='+''''+ACode+'''');
SYSDM.qryQuery.ExecSQL;
DeleteTableRecord(ADOQuery1,'ORD500A','O500A_001='+''''+ACode+'''');
end;
procedure TOrd500_02Form.GetDataInfo;
var
ACustNo,ASaleNo,AItemNo:Integer;
begin
inherited;
edtCode.Text:=ADOQuery1.FieldByName('O500A_001').AsString; //報價單號
qryOrd100.Locate('O100_001',ADOQuery1.FieldByName('O500A_002').Value,[]);
cbType.ItemIndex:=cbType.Items.IndexOf(qryOrd100.FieldByName('O100_002').AsString); //報價類型
edtDate.Date:=ADOQuery1.FieldByName('O500A_003').Value; //報價日期
edtStatus.Text:=AStatus[ADOQuery1.FieldByName('O500A_004').AsInteger]; //報價狀態(0=新建，1=確認，2=報價，3=完成，4=取消)
edtPerson.Text:='';
edtPersonName.Text:='';
ASaleNo:=ADOQuery1.FieldByName('O500A_005').AsInteger;
if qryHrm150.Locate('H150_001',ASaleNo,[]) then
begin
edtPerson.Text:=qryHrm150.FieldByName('H150_002').AsString; //銷售人員
edtPersonName.Text:=qryHrm150.FieldByName('H150_003').AsString;
end;
//幣別編號
qryGld100.Locate('G100_001',ADOQuery1.FieldByName('O500A_007').Value,[]);
cbCurr.ItemIndex:=cbCurr.Items.IndexOf(qryGld100.FieldByName('G100_003').AsString);
edtRate.Text:=ADOQuery1.FieldByName('O500A_008').AsString; //幣別匯率
qryGld110.Locate('G110_001',ADOQuery1.FieldByName('O500A_009').Value,[]);
cbPayment.ItemIndex:=cbPayment.Items.IndexOf(ADOQuery1.FieldByName('G110_002').AsString); //付款方式
cbFrom.ItemIndex:=ADOQuery1.FieldByName('O500A_010').AsInteger; //來源類型
edtMacNo.Text:=ADOQuery1.FieldByName('O500A_011').AsString; //機身編號
edtAmount.Text:=ADOQuery1.FieldByName('O500A_012').AsString; //金額總計
edtDisRate.Text:=ADOQuery1.FieldByName('O500A_013').AsString; //折扣比率
edtDiscount.Text:=ADOQuery1.FieldByName('O500A_014').AsString; //折扣金額
edtSumCharge.Text:=ADOQuery1.FieldByName('O500A_015').AsString; //特殊費用
edtNetAmt.Text:=ADOQuery1.FieldByName('O500A_016').AsString; //應收金額
ACustNo:=ADOQuery1.FieldByName('O500A_017').Value;
qryOrd150.Locate('O150_001',ACustNo,[]); //客戶編號
edtCust.Text:=qryOrd150.FieldByName('O150_002').AsString; //客戶編號
edtCustName.Text:=qryOrd150.FieldByName('O150_003').AsString; //客戶名稱
edtAddress.Text:=qryOrd150.FieldByName('O150_012').AsString; //客戶地址
edtPhone.Text:=qryOrd150.FieldByName('O150_005').AsString; //電話號碼
edtFax.Text:=qryOrd150.FieldByName('O150_006').AsString; //傳真號碼
edtContact.Text:=qryOrd150.FieldByName('O151_002').AsString; //聯系人員
edtDept.Text:=qryOrd150.FieldByName('O151_003').AsString; //部門名稱
edtPosit.Text:=qryOrd150.FieldByName('O151_004').AsString; //職務名稱
cbPick.ItemIndex:=ADOQuery1.FieldByName('O500A_019').AsInteger; //提貨方式(0=自提，1=送貨，2=托運，3=郵寄，4=快遞)
memTerm.Text:=ADOQuery1.FieldByName('O500A_020').AsString; //銷售條款
memRemark.Text:=ADOQuery1.FieldByName('O500A_021').AsString; //備注說明
edtCreateDate.Text:=ADOQuery1.FieldByName('O500A_022').AsString; //制單日期
edtCreateBy.Text:=ADOQuery1.FieldByName('O500A_023').AsString; //制單人員
edtUpdateDate.Text:=ADOQuery1.FieldByName('O500A_024').AsString; //修改日期
edtUpdateBy.Text:=ADOQuery1.FieldByName('O500A_025').AsString; //修改人員
UpDown1.Position:=ADOQuery1.FieldByName('O500A_027').AsInteger; //優先級別
edtReporter.Text:=ADOQuery1.FieldByName('FReporter').AsString; //報價人員
edtReporterName.Text:=ADOQuery1.FieldByName('FReporterName').AsString; //人員名稱
GetCustPlaceInfo;
qryOrd152.Locate('O152_002',ADOQuery1.FieldByName('O500A_018').AsString,[]); //交貨地址
edtPlace.Text:=qryOrd152.FieldByName('O152_002').AsString; //交貨地址
edtRegion.Text:=qryOrd152.FieldByName('O120_002').AsString; //所屬地區
edtPlaceAddress.Text:=qryOrd152.FieldByName('O152_004').AsString;
edtPlacePhone.Text:=qryOrd152.FieldByName('O152_006').AsString;
edtPlaceFax.Text:=qryOrd152.FieldByName('O152_007').AsString;
edtPlaceContact.Text:=qryOrd152.FieldByName('O151_002').AsString;
edtPlaceDept.Text:=qryOrd152.FieldByName('O151_003').AsString;
edtPlacePosit.Text:=qryOrd152.FieldByName('O151_004').AsString;
if not (ADOQuery1.FieldByName('O500A_026').Value='') then
begin
if qryOrd151.Locate('O151_001;O151_002',VarArrayOf([qryOrd150O150_001.value,ADOQuery1O500A_026.value]),[]) then
begin
edtPlaceContact.Text:=qryOrd151.FieldByName('O151_002').AsString;
edtPlaceDept.Text:=qryOrd151.FieldByName('O151_003').AsString;
edtPlacePhone.Text:=qryOrd151.FieldByName('O151_005').AsString;
edtPlaceFax.Text:=qryOrd151.FieldByName('O151_006').AsString;
edtPlacePosit.Text:=qryOrd151.FieldByName('O151_004').AsString;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -