📄 pur510_02.pas.svn-base
字号:
wwDBGrid1.ColumnByName('FRemark').DisplayLabel:=GetDBString('PUR51002089'); //备注说明
qryOrd150O150_002.DisplayLabel:=GetDBString('PUR51002090'); //厂商编号
qryOrd150O150_003.DisplayLabel:=GetDBString('PUR51002091'); //厂商名称
qryOrd150O150_004.DisplayLabel:=GetDBString('PUR51002092'); //厂商简称
qryOrd150O150_005.DisplayLabel:=GetDBString('PUR51002093'); //电话号码
qryOrd150O150_006.DisplayLabel:=GetDBString('PUR51002094'); //传真号码
qryOrd150O120_002.DisplayLabel:=GetDBString('PUR51002095'); //所属地区
qryOrd150O150_012.DisplayLabel:=GetDBString('PUR51002096'); //厂商地址
qryOrd150O151_002.DisplayLabel:=GetDBString('PUR51002097'); //联系人员
qryOrd150O151_003.DisplayLabel:=GetDBString('PUR51002098'); //部门名称
qryOrd150O151_004.DisplayLabel:=GetDBString('PUR51002099'); //职务名称
qryOrd152O152_002.DisplayLabel:=GetDBString('PUR51002100'); //交货地点
qryOrd152O120_002.DisplayLabel:=GetDBString('PUR51002101'); //所属地区
qryOrd152O152_004.DisplayLabel:=GetDBString('PUR51002102'); //交货地址
qryOrd152O152_005.DisplayLabel:=GetDBString('PUR51002103'); //邮政编码
qryOrd152O152_006.DisplayLabel:=GetDBString('PUR51002104'); //电话号码
qryOrd152O152_007.DisplayLabel:=GetDBString('PUR51002105'); //传真号码
qryOrd152O151_002.DisplayLabel:=GetDBString('PUR51002106'); //联系人员
qryOrd152O151_003.DisplayLabel:=GetDBString('PUR51002107'); //部门名称
qryOrd152O151_004.DisplayLabel:=GetDBString('PUR51002108'); //职务名称
qryOrd160O160_002.DisplayLabel:=GetDBString('PUR51002109'); //条款编号
qryOrd160O160_003.DisplayLabel:=GetDBString('PUR51002110'); //条款名称
qryInv150I150_002.DisplayLabel:=GetDBString('PUR51002111'); //产品编号
qryInv150I150_003.DisplayLabel:=GetDBString('PUR51002112'); //产品名称
qryInv150I150_004.DisplayLabel:=GetDBString('PUR51002113'); //规格型号
qryInv150I140_002.DisplayLabel:=GetDBString('PUR51002114'); //单位编号
qryInv150I140_003.DisplayLabel:=GetDBString('PUR51002115'); //单位名称
qryInv140I140_002.DisplayLabel:=GetDBString('PUR51002116'); //单位编号
qryInv140I140_003.DisplayLabel:=GetDBString('PUR51002117'); //单位名称
adsPur510FItemID.DisplayLabel:=GetDBString('PUR51002118'); //项目编号
adsPur510FItemName.DisplayLabel:=GetDBString('PUR51002119'); //项目名称
adsPur510FAmount.DisplayLabel:=GetDBString('PUR51002120'); //金额
adsPur510FRemark.DisplayLabel:=GetDBString('PUR51002121'); //备注
//
TabSheet1.Caption:=GetDBString('ORD51002003'); //客户信息
lblCust.Caption:=GetDBString('ORD51002025'); //客户编号
lblPhone.Caption:=GetDBString('ORD51002026'); //电话号码
lblAddress.Caption:=GetDBString('ORD51002027'); //客户地址
lblFax.Caption:=GetDBString('ORD51002028'); //传真号码
lblContact.Caption:=GetDBString('ORD51002029'); //联系人员
lblDept.Caption:=GetDBString('ORD51002030'); //部门名称
lblPosit.Caption:=GetDBString('ORD51002031'); //职务名称
TabSheet2.Caption:=GetDBString('ORD51002007'); //产品信息
lblItem.Caption:=GetDBString('ORD51002146'); //产品编号
lblMacNo.Caption:=GetDBString('ORD51002147'); //机身编号
lblModel.Caption:=GetDBString('ORD51002148'); //规格型号
lblItemClass.Caption:=GetDBString('ORD51002149'); //产品类别
lblMaker.Caption:=GetDBString('ORD51002150'); //制造商号
lblMakerName.Caption:=GetDBString('ORD51002151'); //制造商名
//
PageControl1.ActivePageIndex:=0;
PageControl2.ActivePageIndex:=0;
//采购类型
cbType.Clear;
qryPur100.Close;
qryPur100.Open;
while not qryPur100.Eof do
begin
cbType.Items.Add(qryPur100.FieldByName('P100_002').AsString);
qryPur100.Next;
end;
qryPur100.First;
cbType.ItemIndex:=0;
//定单状态(0=新建，1=核准，2=执行，3=收货，4=完成，5=取消)
AStatus[0]:=GetDBString('PUR51002122'); //新建
AStatus[1]:=GetDBString('PUR51002123'); //核准
AStatus[2]:=GetDBString('PUR51002124'); //执行
AStatus[3]:=GetDBString('PUR51002125'); //收货
AStatus[4]:=GetDBString('PUR51002126'); //完成
AStatus[5]:=GetDBString('PUR51002127'); //取消
//提货方式(0=自提，1=送货，2=托运，3=邮寄，4=快递)
APick[0]:=GetDBString('PUR51002128'); //自提
APick[1]:=GetDBString('PUR51002129'); //送货
APick[2]:=GetDBString('PUR51002130'); //托运
APick[3]:=GetDBString('PUR51002131'); //邮寄
APick[4]:=GetDBString('PUR51002132'); //快递
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=采购合同，3=销售定单)
AFrom[0]:=GetDBString('PUR51002133'); //手工输入
AFrom[1]:=GetDBString('PUR51002134'); //采购申请
AFrom[2]:=GetDBString('PUR51002135'); //采购合同
AFrom[3]:=GetDBString('PUR51002136'); //销售定单
cbFrom.Clear;
cbFrom.Items.Add(AFrom[0]);
cbFrom.Items.Add(AFrom[1]);
cbFrom.Items.Add(AFrom[2]);
cbFrom.Items.Add(AFrom[3]);
cbFrom.ItemIndex:=0;
Action1.Caption:=GetDBString('PUR51002137'); //核准
Action2.Caption:=GetDBString('PUR51002138'); //执行
Action3.Caption:=GetDBString('PUR51002139'); //取消
end;
procedure TPur510_02Form.FormCreate(Sender: TObject);
begin
inherited;
ATableName:='PUR510A';
AFieldName:='P510A_001';
AReportName:='PUR510A';
qryHrm150.Open;
qryOrd150.Open;
qryOrd1501.Open;
qryOrd152.Open;
qryOrd160.Open;
qryInv140.Open;
qryInv150.Open;
qryOrd151.Open;
AKeyEvent:=OnKeyDown;
end;
procedure TPur510_02Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
qryGld100.Close;
qryGld110.Close;
qryHrm150.Close;
qryPur100.Close;
qryOrd150.Close;
qryOrd152.Close;
qryOrd160.Close;
qryInv140.Close;
qryInv150.Close;
end;
procedure TPur510_02Form.DeleteEvent;
var
ACode:String;
begin
inherited;
//0=新建，1=核准，2=执行，3=收货，4=完成，5=取消
if ADOQuery1.FieldByName('P510A_004').AsInteger<>0 then
begin
ShowMsg('UMS10000551'); //不允许删除非新建状态的采购定单
Abort;
end;
ACode:=ADOQuery1.FieldByName('P510A_001').AsString;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('delete from PUR510B where P510B_001='+''''+ACode+'''');
SYSDM.qryQuery.ExecSQL;
DeleteTableRecord(ADOQuery1,'PUR510A','P510A_001='+''''+ACode+'''');
end;
procedure TPur510_02Form.GetDataInfo;
var
ACustNo,ASaleNo,ACustNo1,AItemNo:Integer;
begin
inherited;
AItemNo:=0;
edtCode.Text:=ADOQuery1.FieldByName('P510A_001').AsString; //采购单号
//客户资料
if ADOQuery1.FieldByName('P510A_028').AsInteger>0 then
begin
ACustNo1:=ADOQuery1.FieldByName('P510A_028').AsInteger;
qryOrd1501.Locate('O150_001',ACustNo1,[]); //客户编号
edtCust1.Text:=qryOrd1501.FieldByName('O150_002').AsString; //厂商编号
edtCustName1.Text:=qryOrd1501.FieldByName('O150_003').AsString; //厂商名称
edtAddress1.Text:=qryOrd1501.FieldByName('O150_012').AsString; //厂商地址
edtPhone1.Text:=qryOrd1501.FieldByName('O150_005').AsString; //电话号码
edtFax1.Text:=qryOrd1501.FieldByName('O150_006').AsString; //传真号码
edtContact1.Text:=qryOrd1501.FieldByName('O151_002').AsString; //联系人员
edtDept1.Text:=qryOrd1501.FieldByName('O151_003').AsString; //部门名称
edtPosit1.Text:=qryOrd1501.FieldByName('O151_004').AsString; //职务名称
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_004,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='+''''+edtCust1.Text+''''+') as AA');
qryOrd153.SQL.Add('left join ORD150 BB on AA.I150_010=BB.O150_001');
qryOrd153.Open;
//产品信息
if ADOQuery1.FieldByName('P510A_029').Value>0 then
begin
AItemNo:=ADOQuery1.FieldByName('P510A_029').AsInteger; //产品编号
edtMacNo.Text:=ADOQuery1.FieldByName('P510A_030').AsString; //机身编号
end;
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;
edtMaker.Text:=qryOrd153.FieldByName('O150_002').AsString;
edtMakerName.Text:=qryOrd153.FieldByName('O150_003').AsString;
edtControllerNo.Text:=qryOrd153.FieldByName('O153_004').AsString;
end else
begin
edtItemID.Text:='';
edtItemName.Text:='';
edtMacNo.Text:='';
edtModel.Text:='';
edtItemClass.Text:='';
edtMaker.Text:='';
edtMakerName.Text:='';
end;
end;
qryPur100.Locate('P100_001',ADOQuery1.FieldByName('P510A_002').Value,[]);
cbType.ItemIndex:=cbType.Items.IndexOf(qryPur100.FieldByName('P100_002').AsString); //采购类型
edtDate.Date:=ADOQuery1.FieldByName('P510A_003').Value; //采购日期
edtStatus.Text:=AStatus[ADOQuery1.FieldByName('P510A_004').AsInteger]; //定单状态(0=新建，1=核准，2=执行，3=收货，4=完成，5=取消)
edtPerson.Text:='';
edtPersonName.Text:='';
ASaleNo:=ADOQuery1.FieldByName('P510A_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;
cbFrom.ItemIndex:=ADOQuery1.FieldByName('P510A_006').AsInteger; //来源类型
//币别编号
qryGld100.Locate('G100_001',ADOQuery1.FieldByName('P510A_007').Value,[]);
cbCurr.ItemIndex:=cbCurr.Items.IndexOf(qryGld100.FieldByName('G100_003').AsString);
edtRate.Text:=ADOQuery1.FieldByName('P510A_008').AsString; //币别汇率
qryGld110.Locate('G110_001',ADOQuery1.FieldByName('P510A_009').Value,[]);
cbPayment.ItemIndex:=cbPayment.Items.IndexOf(ADOQuery1.FieldByName('G110_002').AsString); //付款方式
edtCheckDate.Text:=ADOQuery1.FieldByName('P510A_010').AsString; //审核日期
edtChecker.Text:=ADOQuery1.FieldByName('P510A_011').AsString; //审核人员
edtAmount.Text:=ADOQuery1.FieldByName('P510A_012').AsString; //金额总计
edtDisRate.Text:=ADOQuery1.FieldByName('P510A_013').AsString; //折扣比率
edtDiscount.Text:=ADOQuery1.FieldByName('P510A_014').AsString; //折扣金额
edtSumCharge.Text:=ADOQuery1.FieldByName('P510A_015').AsString; //特殊费用
edtNetAmt.Text:=ADOQuery1.FieldByName('P510A_016').AsString; //应收金额
ACustNo:=ADOQuery1.FieldByName('P510A_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('P510A_019').AsInteger; //提货方式(0=自提，1=送货，2=托运，3=邮寄，4=快递)
memTerm.Text:=ADOQuery1.FieldByName('P510A_020').AsString; //采购条款
memRemark.Text:=ADOQuery1.FieldByName('P510A_021').AsString; //备注说明
edtCreateDate.Text:=ADOQuery1.FieldByName('P510A_022').AsString; //制单日期
edtCreateBy.Text:=ADOQuery1.FieldByName('P510A_023').AsString; //制单人员
edtUpdateDate.Text:=ADOQuery1.FieldByName('P510A_024').AsString; //修改日期
edtUpdateBy.Text:=ADOQuery1.FieldByName('P510A_025').AsString; //修改人员
GetCustPlaceInfo;
qryOrd152.Locate('O152_002',ADOQuery1.FieldByName('P510A_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('P510A_026').Value='') then
begin
if qryOrd151.Locate('O151_001;O151_002',VarArrayOf([qryOrd150O150_001.value,ADOQuery1P510A_026.value]),[]) then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -