?? ord510_02.pas.svn-base
字號:
wwDBGrid1.ColumnByName('FItemName').DisplayLabel:=GetDBString('ORD51002071'); //產品名稱
wwDBGrid1.ColumnByName('FItemSpec').DisplayLabel:=GetDBString('ORD51002072'); //規格型號
wwDBGrid1.ColumnByName('FUnitID').DisplayLabel:=GetDBString('ORD51002073'); //單位編號
wwDBGrid1.ColumnByName('FUnitName').DisplayLabel:=GetDBString('ORD51002074'); //單位名稱
wwDBGrid1.ColumnByName('FQty').DisplayLabel:=GetDBString('ORD51002075'); //銷售數量
wwDBGrid1.ColumnByName('FPrice').DisplayLabel:=GetDBString('ORD51002076'); //銷售單價
wwDBGrid1.ColumnByName('FAmount').DisplayLabel:=GetDBString('ORD51002079'); //銷售金額
wwDBGrid1.ColumnByName('FDisRate').DisplayLabel:=GetDBString('ORD51002077'); //折扣比率
wwDBGrid1.ColumnByName('FDisAmt').DisplayLabel:=GetDBString('ORD51002078'); //折扣金額
wwDBGrid1.ColumnByName('FNetAmt').DisplayLabel:=GetDBString('ORD51002051'); //折后總額
wwDBGrid1.ColumnByName('FTax').DisplayLabel:=GetDBString('ORD51002080'); //銷售稅率
wwDBGrid1.ColumnByName('FTaxAmt').DisplayLabel:=GetDBString('ORD51002081'); //銷售稅額
wwDBGrid1.ColumnByName('FAcrAmt').DisplayLabel:=GetDBString('ORD51002082'); //應收金額
wwDBGrid1.ColumnByName('FDate').DisplayLabel:=GetDBString('ORD51002083'); //需求日期
wwDBGrid1.ColumnByName('FFactDate').DisplayLabel:=GetDBString('ORD51002084'); //實際日期
wwDBGrid1.ColumnByName('FReceQty').DisplayLabel:=GetDBString('ORD51002085'); //發貨數量
wwDBGrid1.ColumnByName('FPlace').DisplayLabel:=GetDBString('ORD51002086'); //交貨地址
wwDBGrid1.ColumnByName('FRemark').DisplayLabel:=GetDBString('ORD51002087'); //備注說明
qryOrd150O150_002.DisplayLabel:=GetDBString('ORD51002088'); //客戶編號
qryOrd150O150_003.DisplayLabel:=GetDBString('ORD51002089'); //客戶名稱
qryOrd150O150_004.DisplayLabel:=GetDBString('ORD51002090'); //客戶簡稱
qryOrd150O150_005.DisplayLabel:=GetDBString('ORD51002091'); //電話號碼
qryOrd150O150_006.DisplayLabel:=GetDBString('ORD51002092'); //傳真號碼
qryOrd150O120_002.DisplayLabel:=GetDBString('ORD51002093'); //所屬地區
qryOrd150O150_012.DisplayLabel:=GetDBString('ORD51002094'); //客戶地址
qryOrd150O151_002.DisplayLabel:=GetDBString('ORD51002095'); //聯系人員
qryOrd150O151_003.DisplayLabel:=GetDBString('ORD51002096'); //部門名稱
qryOrd150O151_004.DisplayLabel:=GetDBString('ORD51002097'); //職務名稱
qryOrd152O152_002.DisplayLabel:=GetDBString('ORD51002098'); //交貨地點
qryOrd152O120_002.DisplayLabel:=GetDBString('ORD51002099'); //所屬地區
qryOrd152O152_004.DisplayLabel:=GetDBString('ORD51002100'); //交貨地址
qryOrd152O152_005.DisplayLabel:=GetDBString('ORD51002101'); //郵政編碼
qryOrd152O152_006.DisplayLabel:=GetDBString('ORD51002102'); //電話號碼
qryOrd152O152_007.DisplayLabel:=GetDBString('ORD51002103'); //傳真號碼
qryOrd152O151_002.DisplayLabel:=GetDBString('ORD51002104'); //聯系人員
qryOrd152O151_003.DisplayLabel:=GetDBString('ORD51002105'); //部門名稱
qryOrd152O151_004.DisplayLabel:=GetDBString('ORD51002106'); //職務名稱
qryOrd160O160_002.DisplayLabel:=GetDBString('ORD51002107'); //條款編號
qryOrd160O160_003.DisplayLabel:=GetDBString('ORD51002108'); //條款名稱
qryItemsI150_002.DisplayLabel:=GetDBString('ORD51002109'); //產品編號
qryItemsI150_003.DisplayLabel:=GetDBString('ORD51002110'); //產品名稱
qryItemsI150_004.DisplayLabel:=GetDBString('ORD51002111'); //規格型號
qryItemsI140_002.DisplayLabel:=GetDBString('ORD51002112'); //單位編號
qryItemsI140_003.DisplayLabel:=GetDBString('ORD51002113'); //單位名稱
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('ORD51002114'); //單位編號
qryInv140I140_003.DisplayLabel:=GetDBString('ORD51002115'); //單位名稱
wwDBGrid2.ColumnByName('FItemID').DisplayLabel:=GetDBString('ORD51002116'); //項目編號
wwDBGrid2.ColumnByName('FItemName').DisplayLabel:=GetDBString('ORD51002117'); //項目名稱
wwDBGrid2.ColumnByName('FAmount').DisplayLabel:=GetDBString('ORD51002118'); //金額
wwDBGrid2.ColumnByName('FRemark').DisplayLabel:=GetDBString('ORD51002119'); //備注
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=鎖定，5=完成)
AStatus[0]:=GetDBString('ORD51002120'); //新建
AStatus[1]:=GetDBString('ORD51002121'); //執行
AStatus[2]:=GetDBString('ORD51002122'); //發貨
AStatus[3]:=GetDBString('ORD51002123'); //取消
AStatus[4]:=GetDBString('ORD51002124'); //鎖定
AStatus[5]:=GetDBString('ORD51002125'); //完成
//提貨方式(0=自提，1=送貨，2=托運，3=郵寄，4=快遞)
APick[0]:=GetDBString('ORD51002126'); //自提
APick[1]:=GetDBString('ORD51002127'); //送貨
APick[2]:=GetDBString('ORD51002128'); //托運
APick[3]:=GetDBString('ORD51002129'); //郵寄
APick[4]:=GetDBString('ORD51002130'); //快遞
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=銷售報價，2=銷售合同)
AFrom[0]:=GetDBString('ORD51002131'); //手工輸入
AFrom[1]:=GetDBString('ORD51002132'); //銷售報價
AFrom[2]:=GetDBString('ORD51002133'); //銷售合同
cbFrom.Clear;
cbFrom.Items.Add(AFrom[0]);
cbFrom.Items.Add(AFrom[1]);
cbFrom.Items.Add(AFrom[2]);
cbFrom.ItemIndex:=0;
Action1.Caption:=GetDBString('ORD51002134'); //轉采
Action2.Caption:=GetDBString('ORD51002135'); //解鎖
Action3.Caption:=GetDBString('ORD51002136'); //取消
qryOrd153.FieldByName('I150_002').DisplayLabel:=GetDBString('ORD51002137'); //產品編號
qryOrd153.FieldByName('I150_003').DisplayLabel:=GetDBString('ORD51002138'); //產品名稱
qryOrd153.FieldByName('O153_003').DisplayLabel:=GetDBString('ORD51002139'); //機身編號
qryOrd153.FieldByName('I150_004').DisplayLabel:=GetDBString('ORD51002140'); //規格型號
qryOrd153.FieldByName('I120_003').DisplayLabel:=GetDBString('ORD51002141'); //產品類別
qryOrd153.FieldByName('O150_002').DisplayLabel:=GetDBString('ORD51002142'); //制造商號
qryOrd153.FieldByName('O150_003').DisplayLabel:=GetDBString('ORD51002143'); //制造商名
tsProduct.Caption:=GetDBString('ORD51002144'); //產品信息
// tsDate.Caption:=GetDBString('ORD51002145'); //保養信息
lblItem.Caption:=GetDBString('ORD51002146'); //產品編號
lblMacNo.Caption:=GetDBString('ORD51002147'); //機身編號
lblModel.Caption:=GetDBString('ORD51002148'); //規格型號
lblItemClass.Caption:=GetDBString('ORD51002149'); //產品類別
lblMaker.Caption:=GetDBString('ORD51002150'); //制造商號
lblMakerName.Caption:=GetDBString('ORD51002151'); //制造商名
end;
procedure TOrd510_02Form.FormCreate(Sender: TObject);
begin
inherited;
ATableName:='ORD510A';
AFieldName:='O510A_001';
AReportName:='ORD510A';
qryHrm150.Open;
qryOrd150.Open;
qryOrd151.Open;
qryOrd152.Open;
qryOrd160.Open;
qryInv140.Open;
qryItems.Open;
qryCharge.Open;
AKeyEvent:=OnKeyDown;
end;
procedure TOrd510_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;
end;
procedure TOrd510_02Form.DeleteEvent;
var
ACode:String;
begin
inherited;
//0=新建，1=執行，2=發貨，3=取消，4=鎖定，5=完成
if ADOQuery1.FieldByName('O510A_004').AsInteger<>0 then
begin
ShowMsg('UMS10000533'); //不允許刪除非新建狀態的銷售定單
Abort;
end;
ACode:=ADOQuery1.FieldByName('O510A_001').AsString;
//更新報價單的狀態，當銷售定單刪除時，刪除前調用
UpdataOrd500(ACode);
//刪除銷售定單
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('delete from ORD510B where O510B_001='+''''+ACode+'''');
SYSDM.qryQuery.ExecSQL;
DeleteTableRecord(ADOQuery1,'ORD510A','O510A_001='+''''+ACode+'''');
end;
procedure TOrd510_02Form.GetDataInfo;
var
ACustNo,ASaleNo,AItemNo:Integer;
begin
inherited;
edtCode.Text:=ADOQuery1.FieldByName('O510A_001').AsString; //銷售單號
qryOrd100.Locate('O100_001',ADOQuery1.FieldByName('O510A_002').Value,[]);
cbType.ItemIndex:=cbType.Items.IndexOf(qryOrd100.FieldByName('O100_002').AsString); //銷售類型
edtDate.Date:=ADOQuery1.FieldByName('O510A_003').Value; //銷售日期
edtStatus.Text:=AStatus[ADOQuery1.FieldByName('O510A_004').AsInteger]; //定單狀態(0=新建，1=執行，2=發貨，3=取消，4=鎖定，5=完成)
APersonNo:=0;
APersonID:='';
APersonName:='';
edtPerson.Text:='';
ASaleNo:=ADOQuery1.FieldByName('O510A_005').AsInteger;
if qryHrm150.Locate('H150_001',ASaleNo,[]) then
begin
APersonNo:=qryHrm150.FieldByName('H150_001').AsInteger;
APersonID:=qryHrm150.FieldByName('H150_002').AsString;
APersonName:=qryHrm150.FieldByName('H150_003').AsString;
edtPerson.Text:=APersonName; //銷售人員
end;
//幣別編號
qryGld100.Locate('G100_001',ADOQuery1.FieldByName('O510A_007').Value,[]);
cbCurr.ItemIndex:=cbCurr.Items.IndexOf(qryGld100.FieldByName('G100_003').AsString);
edtRate.Text:=ADOQuery1.FieldByName('O510A_008').AsString; //幣別匯率
qryGld110.Locate('G110_001',ADOQuery1.FieldByName('O510A_009').Value,[]);
cbPayment.ItemIndex:=cbPayment.Items.IndexOf(ADOQuery1.FieldByName('G110_002').AsString); //付款方式
cbFrom.ItemIndex:=ADOQuery1.FieldByName('O510A_010').AsInteger; //來源類型
edtMacNo.Text:=ADOQuery1.FieldByName('O510A_011').AsString; //機身編號
edtAmount.Text:=ADOQuery1.FieldByName('O510A_012').AsString; //金額總計
edtDisRate.Text:=ADOQuery1.FieldByName('O510A_013').AsString; //折扣比率
edtDiscount.Text:=ADOQuery1.FieldByName('O510A_014').AsString; //折扣金額
edtSumCharge.Text:=ADOQuery1.FieldByName('O510A_015').AsString; //特殊費用
edtNetAmt.Text:=ADOQuery1.FieldByName('O510A_016').AsString; //應收金額
ACustNo:=ADOQuery1.FieldByName('O510A_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('O510A_019').AsInteger; //提貨方式(0=自提，1=送貨，2=托運，3=郵寄，4=快遞)
memTerm.Text:=ADOQuery1.FieldByName('O510A_020').AsString; //銷售條款
memRemark.Text:=ADOQuery1.FieldByName('O510A_021').AsString; //備注說明
edtCreateDate.Text:=ADOQuery1.FieldByName('O510A_022').AsString; //制單日期
edtCreateBy.Text:=ADOQuery1.FieldByName('O510A_023').AsString; //制單人員
edtUpdateDate.Text:=ADOQuery1.FieldByName('O510A_024').AsString; //修改日期
edtUpdateBy.Text:=ADOQuery1.FieldByName('O510A_025').AsString; //修改人員
UpDown1.Position:=ADOQuery1.FieldByName('O510A_027').AsInteger; //優先級別
edtCOrder.Text:=ADOQuery1.FieldByName('O510A_028').AsString; //客戶單號
GetCustPlaceInfo;
qryOrd152.Locate('O152_002',ADOQuery1.FieldByName('O510A_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('O510A_026').Value='') then
begin
if qryOrd151.Locate('O151_001;O151_002',VarArrayOf([qryOrd150O150_001.value,ADOQuery1O510A_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;
edtPlaceDept.Text:=qryOrd151.FieldByName('O151_003').AsString;
end;
end;
qryOrd153.Close;
qryOrd153.SQL.Clear;
qryOrd153.SQL.Add('select AA.*,BB.O150_002,BB.O150_003 from');
qryOrd153.SQL.Add(' (select C.I150_002,A.O153_003,A.O153_008,A.O153_010,A.O153_012,C.I150_003,C.I150_004,D.I120_003,C.I150_001,C.I150_010');
qryOrd153.SQL.Add('from ORD153 A, ORD150 B, INV150 C, INV120 D');
qryOrd153.SQL.Add('where A.O153_001=B.O150_001 and A.O153_002=C.I150_001 and C.I150_005=D.I120_001 and B.O150_002='+''''+edtCust.Text+''''+') as AA');
qryOrd153.SQL.Add('left join ORD150 BB on AA.I150_010=BB.O150_001');
qryOrd153.Open;
AItemNo:=ADOQuery1.FieldByName('O510A_006').AsInteger; //產品編號
if qryOrd153.Locate('I150_001;O153_003',VarArrayOf([AItemNo,edtMacNo.Text]),[]) then
begin
edtItemID.Text:=qryOrd153.FieldByName('I150_002').AsString;
edtItemName.Text:=qryOrd153.FieldByName('I150_003').AsString;
edtMacNo.Text:=qryOrd153.FieldByName('O153_003').AsString;
edtModel.Text:=qryOrd153.FieldByName('I150_004').AsString;
edtItemClass.Text:=qryOrd153.FieldByName('I120_003').AsString;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -