hwseldataa.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

                         ' I140_001 as FUnitNo,I140_002 as FUnitID,I140_003 as FUnitName, '+
                         ' I600B_004 as FLocNo,I110_003 as FLocID,I110_004 as FLocName, '+
                         ' I600B_005 as FQty '+
                         ' from (((INV600A inner join INV600B on INV600A.I600A_001=INV600B.I600B_001) left join INV110 on INV600B.I600B_004=INV110.I110_001) inner join INV150 on INV600B.I600B_003=INV150.I150_001) inner join INV140 on INV150.I150_011=INV140.I140_001 '+
                         ' where I600B_006='+GetBoolean(True)+' and I600B_007='+GetBoolean(False)+' and I600A_001='+''''+ACountCode+'''';
  adsInv150.CommandText:=adsInv150.CommandText+' order by I600B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');  //选择
  adsInv150.FieldByName('FNo').DisplayLabel:=GetDBString('COM00008049');  //盘点卡号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');  //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');  //料品名称
  adsInv150.FieldByName('FEngItemName').DisplayLabel:=GetDBString('COM00009014');  //英文名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');  //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');  //单位名称
  adsInv150.FieldByName('FLocID').DisplayLabel:=GetDBString('COM00008022');  //库位编号
  adsInv150.FieldByName('FLocName').DisplayLabel:=GetDBString('COM00008023');  //库位名称
  adsInv150.FieldByName('FQty').DisplayLabel:=GetDBString('COM00008017');  //库存数量
  adsInv150.FieldByName('FItemNo').Visible:=False;
  adsInv150.FieldByName('FUnitNo').Visible:=False;
  adsInv150.FieldByName('FUnitID').Visible:=False;
  adsInv150.FieldByName('FLocNo').Visible:=False;
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

procedure THwSelDataAForm.GetInv500Items(ATypeNo:Integer);
var
  ARelTypeNo:integer;
begin
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select I550_009 from INV550 where I550_001='+IntToStr(ATypeNo));
  SYSDM.qryQuery.Open;
  ARelTypeNo:=SYSDM.qryQuery.FieldByName('I550_009').AsInteger;

  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select I150_005 as FSel,I500B_001 as FCode,I500B_002 as FNo, '+
                         ' I500B_003 as FItemNo,I150_002 as FItemID,I150_003 as FItemName,I150_008 as FEngItemName,I150_004 as FItemSpec, '+
                         ' I500B_004 as FUnitNo,I140_002 as FUnitID,I140_003 as FUnitName, '+
                         ' I500B_005-I500B_015 as FQty,I500B_006 as FPrice,I500B_007 as FAmount,I500B_015 as FFinish,I500B_005-I500B_015 as FBanlance '+
                         ' from INV500A,INV500B,INV150,INV140 '+
                         ' where I500A_001=I500B_001 and I500B_003=I150_001 and I500B_004=I140_001 and I500B_005-I500B_015>0 ';
  if ARelTypeNo<>0 then
  begin
    adsInv150.CommandText:=adsInv150.CommandText+' and I500A_002='+IntToStr(ARelTypeNo);
  end;
  adsInv150.CommandText:=adsInv150.CommandText+' order by I500B_001,I500B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');  //选择
  adsInv150.FieldByName('FCode').DisplayLabel:=GetDBString('COM00008024');  //出入仓单
  adsInv150.FieldByName('FNo').DisplayLabel:=GetDBString('COM00008025');  //单据行号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');  //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');  //料品名称
  adsInv150.FieldByName('FEngItemName').DisplayLabel:=GetDBString('COM00009014');  //英文名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');  //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');  //单位名称
  adsInv150.FieldByName('FQty').DisplayLabel:=GetDBString('COM00008026');  //出入数量
  adsInv150.FieldByName('FPrice').DisplayLabel:=GetDBString('COM00008027');  //出入单价
  adsInv150.FieldByName('FAmount').DisplayLabel:=GetDBString('COM00008028');  //出入金额
  adsInv150.FieldByName('FFinish').DisplayLabel:=GetDBString('COM00008035');  //已发货量
  adsInv150.FieldByName('FBanlance').DisplayLabel:=GetDBString('COM00008036');  //未发货量

  adsInv150.FieldByName('FItemNo').Visible:=False;
  adsInv150.FieldByName('FUnitNo').Visible:=False;
  adsInv150.FieldByName('FUnitID').Visible:=False;
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

procedure THwSelDataAForm.GetOrd500Items(ACustNo:Integer);
begin
  //仅报价状态的报价单可以选择生成销售定单
  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select I150_005 as FSel,O500B_001 as FCode,O500B_002 as FNo, '+
                         ' O500B_003 as FItemNo,I150_002 as FItemID,I150_003 as FItemName,I150_008 as FEngItemName,I150_004 as FItemSpec, '+
                         ' O500B_004 as FUnitNo,I140_002 as FUnitID,I140_003 as FUnitName, '+
                         ' O500B_005 as FQty,O500B_006 as FPrice,O500B_007 as FAmount '+
                         ' from ORD500A,ORD500B,INV150,INV140'+
                         ' where O500A_001=O500B_001 and O500B_003=I150_001 and O500B_004=I140_001 and O500A_004=2';
  if ACustNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and O500A_017='+IntToStr(ACustNo);
  adsInv150.CommandText:=adsInv150.CommandText+' order by O500B_001,O500B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');  //选择
  adsInv150.FieldByName('FCode').DisplayLabel:=GetDBString('COM00008050');  //报价单号
  adsInv150.FieldByName('FNo').DisplayLabel:=GetDBString('COM00008025');  //单据行号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');  //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');  //料品名称
  adsInv150.FieldByName('FEngItemName').DisplayLabel:=GetDBString('COM00009014');  //英文名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');  //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');  //单位名称
  adsInv150.FieldByName('FQty').DisplayLabel:=GetDBString('COM00008032');  //销售数量
  adsInv150.FieldByName('FPrice').DisplayLabel:=GetDBString('COM00008033');  //销售单价
  adsInv150.FieldByName('FAmount').DisplayLabel:=GetDBString('COM00008034');  //销售金额

  adsInv150.FieldByName('FItemNo').Visible:=False;
  adsInv150.FieldByName('FUnitNo').Visible:=False;
  adsInv150.FieldByName('FUnitID').Visible:=False;
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

procedure THwSelDataAForm.GetOrd510Items(ACustNo:Integer);
begin
  //仅显示除“非库存件”之外的料品
  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select I150_005 as FSel,O510B_001 as FCode,O510B_002 as FNo, '+
                         ' O510B_003 as FItemNo,I150_002 as FItemID,I150_003 as FItemName,I150_008 as FEngItemName,I150_004 as FItemSpec, '+
                         ' O510B_004 as FUnitNo,I140_002 as FUnitID,I140_003 as FUnitName, '+
                         ' O510B_005 as FQty,O510B_006 as FPrice,O510B_007 as FAmount,O510B_016 as FFinish,O510B_005-O510B_016 as FBanlance '+
                         ' from ORD510A,ORD510B,INV150,INV140'+
                         ' where O510A_001=O510B_001 and O510B_003=I150_001 and O510B_004=I140_001 and O510B_005-O510B_016>0 and I150_006<>6';
  if ACustNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and O510A_017='+IntToStr(ACustNo);
  adsInv150.CommandText:=adsInv150.CommandText+' order by O510B_001,O510B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');     //选择
  adsInv150.FieldByName('FCode').DisplayLabel:=GetDBString('COM00008031');    //销售定单
  adsInv150.FieldByName('FNo').DisplayLabel:=GetDBString('COM00008025');      //单据行号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');  //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');//料品名称
  adsInv150.FieldByName('FEngItemName').DisplayLabel:=GetDBString('COM00009014');  //英文名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014'); //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016'); //单位名称
  adsInv150.FieldByName('FQty').DisplayLabel:=GetDBString('COM00008032');      //销售数量
  adsInv150.FieldByName('FPrice').DisplayLabel:=GetDBString('COM00008033');    //销售单价
  adsInv150.FieldByName('FAmount').DisplayLabel:=GetDBString('COM00008034');   //销售金额
  adsInv150.FieldByName('FFinish').DisplayLabel:=GetDBString('COM00008035');   //已发货量
  adsInv150.FieldByName('FBanlance').DisplayLabel:=GetDBString('COM00008036'); //未发货量

  adsInv150.FieldByName('FItemNo').Visible:=False;
  adsInv150.FieldByName('FUnitNo').Visible:=False;
  adsInv150.FieldByName('FUnitID').Visible:=False;
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

procedure THwSelDataAForm.GetPur510Items(ACustNo:Integer);
begin
  //仅“执行”状态的采购定单才可显示
  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select I150_005 as FSel,P510B_001 as FCode,P510B_002 as FNo, '+
                         ' P510B_003 as FItemNo,I150_002 as FItemID,I150_003 as FItemName,I150_008 as FEngItemName,I150_004 as FItemSpec, '+
                         ' P510B_004 as FUnitNo,I140_002 as FUnitID,I140_003 as FUnitName, '+
                         ' P510B_005 as FQty,P510B_006 as FPrice,P510B_007 as FAmount,P510B_016 as FFinish,P510B_005-P510B_016 as FBanlance '+
                         ' from PUR510A,PUR510B,INV150,INV140 '+
                         ' where P510A_001=P510B_001 and P510B_003=I150_001 and P510B_004=I140_001 and P510A_004=2 ';
  if ACustNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and P510A_017='+IntToStr(ACustNo);
  adsInv150.CommandText:=adsInv150.CommandText+' order by P510B_001,P510B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');  //选择
  adsInv150.FieldByName('FCode').DisplayLabel:=GetDBString('COM00008037');  //采购定单
  adsInv150.FieldByName('FNo').DisplayLabel:=GetDBString('COM00008025');  //单据行号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');  //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');  //料品名称
  adsInv150.FieldByName('FEngItemName').DisplayLabel:=GetDBString('COM00009014');  //英文名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');  //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');  //单位名称
  adsInv150.FieldByName('FQty').DisplayLabel:=GetDBString('COM00008038');  //采购数量
  adsInv150.FieldByName('FPrice').DisplayLabel:=GetDBString('COM00008039');  //采购单价
  adsInv150.FieldByName('FAmount').DisplayLabel:=GetDBString('COM00008040');  //采购金额
  adsInv150.FieldByName('FFinish').DisplayLabel:=GetDBString('COM00008041');  //已收货量
  adsInv150.FieldByName('FBanlance').DisplayLabel:=GetDBString('COM00008042');  //未收货量

  adsInv150.FieldByName('FItemNo').Visible:=False;
  adsInv150.FieldByName('FUnitNo').Visible:=False;
  adsInv150.FieldByName('FUnitID').Visible:=False;
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

procedure THwSelDataAForm.GetSfc500Items;
begin
  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select I150_005 as FSel,P510B_001 as FCode,P510B_002 as FNo, '+
                         ' P510B_003 as FItemNo,I150_002 as FItemID,I150_003 as FItemName,I150_008 as FEngItemName,I150_004 as FItemSpec, '+
                         ' P510B_004 as FUnitNo,I140_002 as FUnitID,I140_003 as FUnitName, '+
                         ' P510B_005 as FQty,P510B_006 as FPrice,P510B_009 as FAmount,P510B_015 as FFinish,P510B_005-P510B_015 as FBanlance '+
                         ' from PUR510A,PUR510B,INV150,INV140 '+
                         ' where P510A_001=P510B_001 and P510B_003=I150_001 and P510B_004=I140_001 ';
  adsInv150.CommandText:=adsInv150.CommandText+' order by P510B_001,P510B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');  //选择
  adsInv150.FieldByName('FCode').DisplayLabel:=GetDBString('COM00008043');  //车间定单
  adsInv150.FieldByName('FNo').DisplayLabel:=GetDBString('COM00008025');  //单据行号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');  //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');  //料品名称
  adsInv150.FieldByName('FEngItemName').DisplayLabel:=GetDBString('COM00009014');  //英文名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');  //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');  //单位名称
  adsInv150.FieldByName('FQty').DisplayLabel:=GetDBString('COM00008044');  //制造数量
  adsInv150.FieldByName('FPrice').DisplayLabel:=GetDBString('COM00008045');  //制造单价
  adsInv150.FieldByName('FAmount').DisplayLabel:=GetDBString('COM00008046');  //制造金额
  adsInv150.FieldByName('FFinish').DisplayLabel:=GetDBString('COM00008047');  //已完成量
  adsInv150.FieldByName('FBanlance').DisplayLabel:=GetDBString('COM00008048');  //未完成量

  adsInv150.FieldByName('FItemNo').Visible:=False;
  adsInv150.FieldByName('FUnitNo').Visible:=False;
  adsInv150.FieldByName('FUnitID').Visible:=False;
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

//AType:类型
//ACountCode:盘点计划单号，仅当AType='INV600'时使用
//AWhsNo:仓库电脑编号
//ACustNo:客户电脑编号
//ATypeNo:出入仓单的操作类型
procedure THwSelDataAForm.GetItems(AType:String;AWhsNo,ACustNo,ATypeNo:Integer;ACountCode:String='';ACurrNo:Integer=0;ADirection:Integer=0);
begin
  if Uppercase(AType)='INV150' then GetInv150Items
  else if Uppercase(AType)='INV501' then GetInv501Items(AWhsNo)            //仓库编号
  else if Uppercase(AType)='INV600' then GetInv600Items(ACountCode)        //盘点单号
  else if Uppercase(AType)='INV500' then GetInv500Items(ATypeNo)
  else if Uppercase(AType)='ORD500' then GetOrd500Items(ACustNo)           //销售报价
  else if Uppercase(AType)='ORD510' then GetOrd510Items(ACustNo)           //销售订单
  else if Uppercase(AType)='PUR510' then GetPur510Items(ACustNo)
  else if Uppercase(AType)='SFC500' then GetSfc500Items                    //车间定单
  else if Uppercase(AType)='ACP510' then GetACP510Items(ACustNo,ACurrNo,ADirection)  //采购发票
  else if Uppercase(AType)='ACR500A' then GetACR500AItems(ACustNo,ACurrNo) //任务工单
  else if Uppercase(AType)='ACR500B' then GetACR500BItems(ACustNo,ACurrNo) //任务工单
  else if Uppercase(AType)='ACR510A' then GetACR510AItems(ACustNo,ACurrNo,ADirection)  //销售发票--销售订单
  else if Uppercase(AType)='ACR510B' then GetACR510BItems(ACustNo,ACurrNo,ADirection)  //销售发票--任务工单
  else if Uppercase(AType)='CSH510B' then GetCSH510BItems(ACustNo,ACurrNo)          //销售定单
  else if Uppercase(AType)='CSH510C' then GetCSH510CItems(ACustNo,ACurrNo)          //采购定单
  else if Uppercase(AType)='CSH510D' then GetCSH510DItems(ACustNo,ACurrNo);         //任务工单
  SetDBGridColoumns(adsInv150,dbgItem);
end;

//AType:单据类型
//AWhsNo:仓库电脑编号
//ACustNo:客户编号（电脑编号）
//ATypeNo:出入仓单的操作类型（电脑编号）
//ACountCode:盘点计划单号，仅当AType='INV600'时使用
procedure THwSelDataAForm.OpenData(AType:String;AWhsNo,ACustNo,ATypeNo:Integer;ACountCode:String='';ACurrNo:Integer=0;ADirection:Integer=0);
begin
  FType:=AType;
  FCountCode:=ACountCode;
  FWhsNo:=AWhsNo;
  FCustNo:=ACustNo;
  FTypeNo:=ATypeNo;