📄 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 + -