📄 inv150_02.pas.svn-base
字号:
lblHighInv.Caption:=GetDBString('INV15002039'); //最高库存
lblLowPrice.Caption:=GetDBString('INV15002040'); //最低售价
lblHighPrice.Caption:=GetDBString('INV15002041'); //最高售价
lblBuyer.Caption:=GetDBString('INV15002042'); //采购人员
lblPlanner.Caption:=GetDBString('INV15002043'); //计划人员
lblCount.Caption:=GetDBString('INV15002044'); //盘点周期
lblCountDate.Caption:=GetDBString('INV15002045'); //盘点日期
lblDays.Caption:=GetDBString('INV15002046'); //寿命天数
lblVend1.Caption:=GetDBString('INV15002047'); //主供应商
lblVend2.Caption:=GetDBString('INV15002048'); //次供应商
lblPur.Caption:=GetDBString('INV15002049'); //采购策略
lblMRP.Caption:=GetDBString('INV15002050'); //计划编码
lblLots.Caption:=GetDBString('INV15002051'); //标准批量
lblAdd.Caption:=GetDBString('INV15002052'); //定单增量
lblCost.Caption:=GetDBString('INV15002053'); //购造成本
lblOrderDays.Caption:=GetDBString('INV15002054'); //定单天数
lblLead.Caption:=GetDBString('INV15002055'); //提前期天
lblAvgLot.Caption:=GetDBString('INV15002056'); //日均产量
qryInv140I140_002.DisplayLabel:=GetDBString('INV15002057'); //单位编号
qryInv140I140_003.DisplayLabel:=GetDBString('INV15002058'); //单位名称
qryInv100I100_002.DisplayLabel:=GetDBString('INV15002059'); //仓库编号
qryInv100I100_003.DisplayLabel:=GetDBString('INV15002060'); //仓库名称
qryInv110I110_003.DisplayLabel:=GetDBString('INV15002061'); //库位编号
qryInv110I110_004.DisplayLabel:=GetDBString('INV15002062'); //库位名称
qryHrm150H150_002.DisplayLabel:=GetDBString('INV15002063'); //员工编号
qryHrm150H150_003.DisplayLabel:=GetDBString('INV15002064'); //员工姓名
qryOrd150O150_002.DisplayLabel:=GetDBString('INV15002065'); //客户编号
qryOrd150O150_003.DisplayLabel:=GetDBString('INV15002066'); //客户名称
ADOQuery1.FieldByName('I150_002').DisplayLabel:=GetDBString('INV15002067'); //料品编号
ADOQuery1.FieldByName('I150_003').DisplayLabel:=GetDBString('INV15002068'); //料品名称
ADOQuery1.FieldByName('I150_004').DisplayLabel:=GetDBString('INV15002069'); //规格型号
ADOQuery1.FieldByName('I120_002').DisplayLabel:=GetDBString('INV15002070'); //分类编号
ADOQuery1.FieldByName('I120_003').DisplayLabel:=GetDBString('INV15002071'); //分类名称
ADOQuery1.FieldByName('I150_006').DisplayLabel:=GetDBString('INV15002072'); //料品类型
ADOQuery1.FieldByName('I150_007').DisplayLabel:=GetDBString('INV15002073'); //料品状态
ADOQuery1.FieldByName('I150_008').DisplayLabel:=GetDBString('INV15002074'); //英文名称
ADOQuery1.FieldByName('I150_009').DisplayLabel:=GetDBString('INV15002075'); //条形编码
ADOQuery1.FieldByName('M150_002').DisplayLabel:=GetDBString('INV15002076'); //制造商号
ADOQuery1.FieldByName('M150_003').DisplayLabel:=GetDBString('INV15002077'); //制造商名
ADOQuery1.FieldByName('I140_002').DisplayLabel:=GetDBString('INV15002078'); //库存单位编号
ADOQuery1.FieldByName('I140_003').DisplayLabel:=GetDBString('INV15002079'); //库存单位名称
ADOQuery1.FieldByName('P140_002').DisplayLabel:=GetDBString('INV15002080'); //采购单位编号
ADOQuery1.FieldByName('P140_003').DisplayLabel:=GetDBString('INV15002081'); //采购单位名称
ADOQuery1.FieldByName('I150_013').DisplayLabel:=GetDBString('INV15002082'); //采购单位转换
ADOQuery1.FieldByName('O140_002').DisplayLabel:=GetDBString('INV15002083'); //销售单位编号
ADOQuery1.FieldByName('O140_003').DisplayLabel:=GetDBString('INV15002084'); //销售单位名称
ADOQuery1.FieldByName('I150_015').DisplayLabel:=GetDBString('INV15002085'); //销售单位转换
ADOQuery1.FieldByName('I150_016').DisplayLabel:=GetDBString('INV15002086'); //单位体积
ADOQuery1.FieldByName('V140_003').DisplayLabel:=GetDBString('INV15002087'); //体积单位
ADOQuery1.FieldByName('I150_018').DisplayLabel:=GetDBString('INV15002088'); //单位重量
ADOQuery1.FieldByName('W140_003').DisplayLabel:=GetDBString('INV15002089'); //重量单位
ADOQuery1.FieldByName('L140_003').DisplayLabel:=GetDBString('INV15002090'); //包装单位
ADOQuery1.FieldByName('I150_021').DisplayLabel:=GetDBString('INV15002091'); //包装长度
ADOQuery1.FieldByName('I150_022').DisplayLabel:=GetDBString('INV15002092'); //包装宽度
ADOQuery1.FieldByName('I150_023').DisplayLabel:=GetDBString('INV15002093'); //包装高度
ADOQuery1.FieldByName('I100_002').DisplayLabel:=GetDBString('INV15002094'); //仓库编号
ADOQuery1.FieldByName('I100_003').DisplayLabel:=GetDBString('INV15002095'); //仓库名称
ADOQuery1.FieldByName('I110_003').DisplayLabel:=GetDBString('INV15002096'); //库位编号
ADOQuery1.FieldByName('I110_004').DisplayLabel:=GetDBString('INV15002097'); //库位名称
ADOQuery1.FieldByName('I150_026').DisplayLabel:=GetDBString('INV15002098'); //批号控制
ADOQuery1.FieldByName('I150_027').DisplayLabel:=GetDBString('INV15002099'); //是否销售
ADOQuery1.FieldByName('I150_028').DisplayLabel:=GetDBString('INV15002100'); //ABC 编码
ADOQuery1.FieldByName('I150_029').DisplayLabel:=GetDBString('INV15002101'); //进出日期
ADOQuery1.FieldByName('P150_002').DisplayLabel:=GetDBString('INV15002102'); //采购员号
ADOQuery1.FieldByName('P150_003').DisplayLabel:=GetDBString('INV15002103'); //采购员名
ADOQuery1.FieldByName('H150_002').DisplayLabel:=GetDBString('INV15002104'); //计划员号
ADOQuery1.FieldByName('H150_003').DisplayLabel:=GetDBString('INV15002105'); //计划员名
ADOQuery1.FieldByName('I150_032').DisplayLabel:=GetDBString('INV15002106'); //最低库存
ADOQuery1.FieldByName('I150_033').DisplayLabel:=GetDBString('INV15002107'); //最高库存
ADOQuery1.FieldByName('I150_034').DisplayLabel:=GetDBString('INV15002108'); //最低售价
ADOQuery1.FieldByName('I150_035').DisplayLabel:=GetDBString('INV15002109'); //最高售价
ADOQuery1.FieldByName('I150_036').DisplayLabel:=GetDBString('INV15002110'); //盘点周期
ADOQuery1.FieldByName('T140_003').DisplayLabel:=GetDBString('INV15002111'); //周期单位
ADOQuery1.FieldByName('I150_038').DisplayLabel:=GetDBString('INV15002112'); //盘点日期
ADOQuery1.FieldByName('V150_002').DisplayLabel:=GetDBString('INV15002113'); //主供应商号
ADOQuery1.FieldByName('V150_003').DisplayLabel:=GetDBString('INV15002114'); //主供应商名
ADOQuery1.FieldByName('O150_002').DisplayLabel:=GetDBString('INV15002115'); //次供应商号
ADOQuery1.FieldByName('O150_003').DisplayLabel:=GetDBString('INV15002116'); //次供应商名
ADOQuery1.FieldByName('I150_041').DisplayLabel:=GetDBString('INV15002117'); //采购策略
ADOQuery1.FieldByName('I150_042').DisplayLabel:=GetDBString('INV15002118'); //计划编码
ADOQuery1.FieldByName('I150_043').DisplayLabel:=GetDBString('INV15002119'); //标准批量
ADOQuery1.FieldByName('I150_044').DisplayLabel:=GetDBString('INV15002120'); //定单增量
ADOQuery1.FieldByName('I150_045').DisplayLabel:=GetDBString('INV15002121'); //购造成本
ADOQuery1.FieldByName('I150_046').DisplayLabel:=GetDBString('INV15002122'); //定单天数
ADOQuery1.FieldByName('I150_047').DisplayLabel:=GetDBString('INV15002123'); //提前期天
ADOQuery1.FieldByName('I150_048').DisplayLabel:=GetDBString('INV15002124'); //日均产量
ADOQuery1.FieldByName('I150_049').DisplayLabel:=GetDBString('INV15002125'); //建立日期
ADOQuery1.FieldByName('I150_050').DisplayLabel:=GetDBString('INV15002126'); //建立人员
ADOQuery1.FieldByName('I150_051').DisplayLabel:=GetDBString('INV15002127'); //修改日期
ADOQuery1.FieldByName('I150_052').DisplayLabel:=GetDBString('INV15002128'); //修改人员
ADOQuery1.FieldByName('I150_053').DisplayLabel:=GetDBString('INV15002129'); //寿命天数
AStatues[0]:=GetDBString('INV15002130'); //正在使用
AStatues[1]:=GetDBString('INV15002131'); //逐渐淘汰
AStatues[2]:=GetDBString('INV15002132'); //停止使用
cbStatues.Clear;
cbStatues.Items.Add(AStatues[0]);
cbStatues.Items.Add(AStatues[1]);
cbStatues.Items.Add(AStatues[2]);
cbStatues.ItemIndex:=0;
AType[0]:=GetDBString('INV15002133'); //采购件
AType[1]:=GetDBString('INV15002134'); //制造件
AType[2]:=GetDBString('INV15002135'); //虚拟件
AType[3]:=GetDBString('INV15002136'); //选装件
AType[4]:=GetDBString('INV15002137'); //特征件
AType[5]:=GetDBString('INV15002138'); //计划件
AType[6]:=GetDBString('INV15002139'); //非库存件
cbType.Clear;
cbType.Items.Add(AType[0]);
cbType.Items.Add(AType[1]);
cbType.Items.Add(AType[2]);
cbType.Items.Add(AType[3]);
cbType.Items.Add(AType[4]);
cbType.Items.Add(AType[5]);
cbType.Items.Add(AType[6]);
cbType.ItemIndex:=0;
ATimeUnit[0]:=GetDBString('INV15002141'); //天
ATimeUnit[1]:=GetDBString('INV15002142'); //月
cbTimeUnit.Clear;
cbTimeUnit.Items.Add(ATimeUnit[0]); //天
cbTimeUnit.Items.Add(ATimeUnit[1]); //月
cbTimeUnit.ItemIndex:=1;
end;
procedure TInv150_02Form.TableAfterPost;
var
AItemNo,APictNo:Integer;
AType:String;
begin
inherited;
AItemNo:=ADOQuery1.FieldByName('I150_001').AsInteger;
if ADelNo<>'' then
begin
qryQuery.Close;
qryQuery.SQL.Clear;
qryQuery.SQL.Add('delete from INV151 where I151_001='+IntToStr(AItemNo)+' and I151_002 in ('+ADelNo+')');
qryQuery.ExecSQL;
end;
qryUpdate.Close;
qryUpdate.SQL.Clear;
qryUpdate.SQL.Add('select * from INV151 where I151_001=0');
qryUpdate.Open;
adsInv151.AfterScroll:=nil;
adsInv151.First;
while not adsInv151.Eof do
begin
APictNo:=adsInv151.FieldByName('FPictNo').AsInteger;
AType:=adsInv151.FieldByName('FType').AsString;
if adsInv151.FieldByName('FFileName').AsString<>'' then
begin
if AType='UPD' then
begin
qryQuery.Close;
qryQuery.SQL.Clear;
qryQuery.SQL.Add('delete from INV151 where I151_001='+IntToStr(AItemNo)+' and I151_002='+IntToStr(APictNo));
qryQuery.ExecSQL;
end;
qryUpdate.Append;
qryUpdate.FieldByName('I151_001').Value:=AItemNo;
qryUpdate.FieldByName('I151_002').Value:=APictNo;
TBlobField(qryUpdate.FieldByName('I151_003')).LoadFromFile(adsInv151.FieldByName('FFileName').AsString);
qryUpdate.FieldByName('I151_004').Value:=adsInv151.FieldByName('FFileExt').Value;
qryUpdate.Post;
end;
adsInv151.Next;
end;
end;
procedure TInv150_02Form.TableBeforePost;
var
ADate:TDateTime;
AInvUnit,APurUnit,AOrdUnit,AVolUnit,AWetUnit,ALongUnit:Integer;
AWhsNo,ALocNo:Integer;
ABuyNo,APlanNo:Integer;
AMakeNo,AFirVend,ASecVend:Integer;
begin
inherited;
if cbStatues.Text='' then
begin
ShowMsg('UMS10000466'); //料品状态不能为空
cbStatues.SetFocus;
Abort;
end;
if trim(edtName.Text)='' then
begin
ShowMsg('UMS10000467'); //料品名称不能为空
edtName.SetFocus;
Abort;
end;
if cbClass.Text='' then
begin
ShowMsg('UMS10000468'); //料品分类不能为空
cbClass.SetFocus;
Abort;
end;
qryInv120.Locate('I120_002',cbClass.Text,[]);
if cbType.Text='' then
begin
ShowMsg('UMS10000469'); //料品类型不能为空
cbType.SetFocus;
Abort;
end;
AMakeNo:=0;
if trim(edtMakeID.Text)<>'' then
begin
if not qryOrd150.Locate('O150_002',edtMakeID.Text,[]) then
begin
ShowMsg('UMS10000470'); //无效的制造商号，请重新输入
edtMakeID.SetFocus;
Abort;
end;
AMakeNo:=qryOrd150.FieldByName('O150_001').AsInteger;
end;
if not qryInv140.Locate('I140_002',edtInvUnit.Text,[]) then
begin
ShowMsg('UMS10000471'); //无效的库存单位，请重新输入
edtInvUnit.SetFocus;
Abort;
end;
AInvUnit:=qryInv140.FieldByName('I140_001').AsInteger;
if not qryInv140.Locate('I140_002',edtPurUnit.Text,[]) then
begin
ShowMsg('UMS10000472'); //无效的采购单位，请重新输入
edtPurUnit.SetFocus;
Abort;
end;
APurUnit:=qryInv140.FieldByName('I140_001').AsInteger;
if not qryInv140.Locate('I140_002',edtOrdUnit.Text,[]) then
begin
ShowMsg('UMS10000473'); //无效的销售单位，请重新输入
edtOrdUnit.SetFocus;
Abort;
end;
AOrdUnit:=qryInv140.FieldByName('I140_001').AsInteger;
if (trim(edtPurToInv.Text)='') or (trim(edtPurToInv.Text)='0') then
begin
ShowMsg('UMS10000474'); //转换系数不能为空或零
edtPurToInv.SetFocus;
Abort;
end;
if (trim(edtOrdToInv.Text)='') or (trim(edtOrdToInv.Text)='0') then
begin
ShowMsg('UMS10000474'); //转换系数不能为空或零
edtOrdToInv.SetFocus;
Abort;
end;
AVolUnit:=0;
if cbVolUnit.Text<>'' then
begin
qryInv140.Locate('I140_002',cbVolUnit.Text,[]);
AVolUnit:=qryInv140.FieldByName('I140_001').AsInteger;
end;
AWetUnit:=0;
if cbWetUnit.Text<>'' then
begin
qryInv140.Locate('I140_002',cbWetUnit.Text,[]);
AWetUnit:=qryInv140.FieldByName('I140_001').AsInteger;
end;
ALongUnit:=0;
if cbLongUnit.Text<>'' then
begin
qryInv140.Locate('I140_002',cbLongUnit.Text,[]);
ALongUnit:=qryInv140.FieldByName('I140_001').AsInteger;
end;
AWhsNo:=0;
if trim(edtWhsID.Text)<>'' then
begin
if not qryInv100.Locate('I100_002',edtWhsID.Text,[]) then
begin
ShowMsg('UMS10000440'); //无效的仓库编号，请重新输入
edtWhsID.SetFocus;
Abort;
AWhsNo:=qryInv100.FieldByName('I100_001').Value;
end;
qryInv110.Close;
qryInv110.SQL.Clear;
qryInv110.SQL.Add('select I110_001,I110_002,I110_003,I110_004 from INV110 where I110_002='+qryInv100.FieldByName('I100_001').AsString+' order by I110_002,I110_003');
qryInv110.Open;
if (not qryInv110.IsEmpty) and (trim(edtLocID.Text)='') then
begin
ShowMsg('UMS10000476'); //当仓库下设置有库位时，库位编号不能为空
edtLocID.SetFocus;
Abort;
end;
end;
ALocNo:=0;
if trim(edtLocID.Text)<>'' then
begin
if not qryInv110.Locate('I110_003',edtLocID.Text,[]) then
begin
ShowMsg('UMS10000475'); //无效的库位编号，请重新输入
edtLocID.SetFocus;
Abort;
ALocNo:=qryInv110.FieldByName('I110_001').Value;
end;
end;
ABuyNo:=0;
if trim(edtBuyer.Text)<>'' then
begin
if not qryHrm150.Locate('H150_002',edtBuyer.Text,[]) then
begin
ShowMsg('UMS10000482'); //无效的员工编号，请重新输入
edtBuyer.SetFocus;
Abort;
end;
ABuyNo:=qryHrm150.FieldByName('H150_001').AsInteger;
end;
APlanNo:=0;
if trim(edtPlanner.Text)<>'' then
begin
if not qryHrm150.Locate('H150_002',edtPlanner.Text,[]) then
begin
ShowMsg('UMS10000482'); //无效的员工编号，请重新输入
edtPlanner.SetFocus;
Abort;
end;
APlanNo:=qryHrm150.FieldByName('H150_001').AsInteger;
end;
AFirVend:=0;
if trim(edtVendID1.Text)<>'' then
begin
if not qryOrd150.Locate('O150_002',edtVendID1.Text,[]) then
begin
ShowMsg('UMS10000477'); //无效的供应商编号，请重新输入
edtVendID1.SetFocus;
Abort;
AFirVend:=qryOrd150.FieldByName('O150_001').AsInteger;
end;
end;
ASecVend:=0;
if trim(edtVendID2.Text)<>'' then
begin
if not qryOrd150.Locate('O150_002',edtVendID2.Text,[]) then
begin
ShowMsg('UMS10000477'); //无效的供应商编号，请重新输入
edtVendID2.SetFocus;
Abort;
ASecVend:=qryOrd150.FieldByName('O150_001').AsInteger;
end;
end;
if AMode='ADD' then
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -