📄 hwseldataa.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
                         ' O510B_005 as FQty,O510B_013/O510B_005 as FPrice,O510B_013 as FAmount,O510B_016 as FFinish,O510B_005-O510B_016 as FBanlance,O510B_001 as FSourceOrder '+
                         ' from ORD510A,ORD510B,INV150,INV140'+
                         ' where O510A_001=O510B_001 and O510B_003=I150_001 and O510B_004=I140_001 and O510B_026-O510B_027>0 and I150_006<>6';
  if ACustNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and O510A_017='+IntToStr(ACustNo);
  if ACurrNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and O510A_007='+IntToStr(ACurrNo);
  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('FSourceOrder').DisplayLabel:=GetDBString('COM00009026'); //来源工单

  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.GetAcr510AItems(ACustNo, ACurrNo,ADirection: integer);
begin
//根据销售订单开发票 0:销售发票  1:销售退货
  //仅显示发票金额 O510B_024 <应开票额 O510B_026的料品
  adsInv150.DisableControls;
  adsInv150.Close;
  if ADirection=0 then
  begin
    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_013 as FAmount,O510B_025 as FDisAmt,O510B_016 as FFinish,O510B_005-O510B_016 as FBanlance, '+
                           ' O510B_011 as FTaxRate,O510B_012 as FTaxAmount,O510B_024 as FInvAmount,O510B_001 as FSourceOrder,O510A_028 as FCOrder'+
                           ' from ORD510A,ORD510B,INV150,INV140'+
                           ' where O510A_001=O510B_001 and O510B_003=I150_001 and O510B_004=I140_001 and O510B_024+O510B_025<O510B_026 and O510A_007='+InttoStr(ACurrNo)+' 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';
  end else
  begin
    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_013 as FAmount,O510B_025 as FDisAmt,O510B_016 as FFinish,O510B_005-O510B_016 as FBanlance, '+
                           ' O510B_011 as FTaxRate,O510B_012 as FTaxAmount,O510B_024 as FInvAmount,O510B_001 as FSourceOrder,O510A_028 as FCOrder'+
                           ' from ORD510A,ORD510B,INV150,INV140'+
                           ' where O510A_001=O510B_001 and O510B_003=I150_001 and O510B_004=I140_001 and O510B_024>0 and O510A_007='+InttoStr(ACurrNo)+' 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';
  end;

  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');      //销售数量  重写 T533_004
  adsInv150.FieldByName('FPrice').DisplayLabel:=GetDBString('COM00008033');    //销售单价  重写 O510B_013
  adsInv150.FieldByName('FAmount').DisplayLabel:=GetDBString('COM00008034');   //销售金额  重写
  adsInv150.FieldByName('FDisAmt').DisplayLabel:=GetDBString('COM00009015');   //折扣金额  重写
  adsInv150.FieldByName('FFinish').DisplayLabel:=GetDBString('COM00008035');   //已发货量  可去掉
  adsInv150.FieldByName('FBanlance').DisplayLabel:=GetDBString('COM00008036'); //未发货量  可去掉
  adsInv150.FieldByName('FTaxRate').DisplayLabel:=GetDBString('COM00009016');   //销售税率
  adsInv150.FieldByName('FTaxAmount').DisplayLabel:=GetDBString('COM00009017'); //销售税额
  adsInv150.FieldByName('FInvAmount').DisplayLabel:=GetDBString('COM00009018'); //发票金额  重写
  adsInv150.FieldByName('FSourceOrder').DisplayLabel:=GetDBString('COM00009026'); //来源编号      重写
  adsInv150.FieldByName('FCOrder').DisplayLabel:=GetDBString('COM00009027');      //客户订单编号

  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.GetAcr510BItems(ACustNo, ACurrNo,
  ADirection: integer);
begin
//根据任务工单开发票  0:销售发票  1:销售退货
  adsInv150.DisableControls;
  adsInv150.Close;
  if ADirection=0 then
  begin
    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, '+
                           ' T533_004 as FQty,O510B_013 as FPrice,O510B_013*T533_004 as FAmount,T533_009 as FDisAmt,O510B_016 as FFinish,O510B_005-O510B_016 as FBanlance, '+
                           ' O510B_011 as FTaxRate,O510B_012 as FTaxAmount,T533_008 as FInvAmount,T530_002 as FSourceOrder,O510A_028 as FCOrder'+
                           ' from ORD510A,ORD510B,INV150,INV140,TAS530,TAS533'+
                           ' where O510A_001=O510B_001 and O510B_003=I150_001 and O510B_004=I140_001 and O510B_024<O510B_026 and T533_001=T530_001 and T533_002=O510B_001 and T533_003=O510B_002 and T533_008+T533_009<T533_010 and O510A_007='+InttoStr(ACurrNo);
    if ACustNo<>0 then
      adsInv150.CommandText:=adsInv150.CommandText+' and O510A_017='+IntToStr(ACustNo);
    adsInv150.CommandText:=adsInv150.CommandText+' order by O510B_001,O510B_002';
  end else
  begin
    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, '+
                           ' T533_004 as FQty,O510B_013 as FPrice,O510B_013*T533_004 as FAmount,T533_009 as FDisAmt,O510B_016 as FFinish,O510B_005-O510B_016 as FBanlance, '+
                           ' O510B_011 as FTaxRate,O510B_012 as FTaxAmount,T533_008 as FInvAmount,T530_002 as FSourceOrder,O510A_028 as FCOrder'+
                           ' from ORD510A,ORD510B,INV150,INV140,TAS530,TAS533'+
                           ' where O510A_001=O510B_001 and O510B_003=I150_001 and O510B_004=I140_001 and T533_001=T530_001 and T533_002=O510B_001 and T533_003=O510B_002 and O510B_024>0 and T533_008>0 and O510A_007='+InttoStr(ACurrNo);
    if ACustNo<>0 then
      adsInv150.CommandText:=adsInv150.CommandText+' and O510A_017='+IntToStr(ACustNo);
    adsInv150.CommandText:=adsInv150.CommandText+' order by O510B_001,O510B_002';
  end;

  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');      //销售数量  重写 T533_004
  adsInv150.FieldByName('FPrice').DisplayLabel:=GetDBString('COM00008033');    //销售单价  重写 O510B_013
  adsInv150.FieldByName('FAmount').DisplayLabel:=GetDBString('COM00008034');   //销售金额  重写 O510B_013*T533_004
  adsInv150.FieldByName('FDisAmt').DisplayLabel:=GetDBString('COM00009015');   //折扣金额  重写 T533_009
  adsInv150.FieldByName('FFinish').DisplayLabel:=GetDBString('COM00008035');   //已发货量  可去掉
  adsInv150.FieldByName('FBanlance').DisplayLabel:=GetDBString('COM00008036'); //未发货量  可去掉
  adsInv150.FieldByName('FTaxRate').DisplayLabel:=GetDBString('COM00009016');   //销售税率
  adsInv150.FieldByName('FTaxAmount').DisplayLabel:=GetDBString('COM00009017'); //销售税额
  adsInv150.FieldByName('FInvAmount').DisplayLabel:=GetDBString('COM00009018'); //发票金额   重写 T533_008
  adsInv150.FieldByName('FSourceOrder').DisplayLabel:=GetDBString('COM00009026'); //来源编号 重写 T530_002
  adsInv150.FieldByName('FCOrder').DisplayLabel:=GetDBString('COM00009027');      //客户订单编号

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

//销售定单  CSH510
procedure THwSelDataAForm.GetCsh510BItems(ACustNo,ACurrNo:Integer);
begin
  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select I150_005 as FSel,A510B_001 as FInvCode,A510B_002 as FInvLineNo,A510B_003 as FOrder,A510B_004 as FOrderLine,'+
                         ' I150_002 as FItemID,I150_003 as FItemName,I150_004 as FItemSpec,I140_003 as FUnitName,'+
                         ' A510B_010-A510B_012 as FRecAmount,0 as FFactAmt'+
                         ' from ACR510A,ACR510B,ORD510B,INV150,INV140'+
                         ' where A510A_001=A510B_001 and A510B_003=O510B_001 and A510B_004=O510B_002 and O510B_003=I150_001 and'+
                         ' O510B_004=I140_001 and A510A_002=0 and A510A_003 in (0,2)';
  if ACustNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and A510A_012='+IntToStr(ACustNo);
  if ACurrNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and A510A_007='+IntToStr(ACurrNo);
  adsInv150.CommandText:=adsInv150.CommandText+' order by O510B_001,O510B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');        //选择
  adsInv150.FieldByName('FInvCode').DisplayLabel:=GetDBString('COM00009028');    //发票编号
  adsInv150.FieldByName('FInvLineNo').DisplayLabel:=GetDBString('COM00009029');  //发票行号
  adsInv150.FieldByName('FOrder').DisplayLabel:=GetDBString('COM00008031');      //销售定单
  adsInv150.FieldByName('FOrderLine').DisplayLabel:=GetDBString('COM00008025');  //单据行号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');     //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');   //料品名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');   //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');   //单位名称
  adsInv150.FieldByName('FRecAmount').DisplayLabel:=GetDBString('COM00009030');  //应收金额
  adsInv150.FieldByName('FFactAmt').DisplayLabel:=GetDBString('COM00009031');    //实收金额
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

//采购定单  CSH510
procedure THwSelDataAForm.GetCsh510CItems(ACustNo,ACurrNo:Integer);
begin
  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select I150_005 as FSel,A510B_001 as FInvCode,A510B_002 as FInvLineNo,A510B_003 as FOrder,A510B_004 as FOrderLine,'+
                         ' I150_002 as FItemID,I150_003 as FItemName,I150_004 as FItemSpec,I140_003 as FUnitName,'+
                         ' A510B_010-A510B_012 as FRecAmount,0 as FFactAmt'+
                         ' from ACP510A,ACP510B,PUR510B,INV150,INV140'+
                         ' where A510A_001=A510B_001 and A510B_003=P510B_001 and A510B_004=P510B_002 and P510B_003=I150_001 and'+
                         ' P510B_004=I140_001 and A510A_002=0 and A510A_003 in (0,2)';
  if ACustNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and A510A_012='+IntToStr(ACustNo);
  if ACurrNo<>0 then
    adsInv150.CommandText:=adsInv150.CommandText+' and A510A_007='+IntToStr(ACurrNo);
  adsInv150.CommandText:=adsInv150.CommandText+' order by P510B_001,P510B_002';
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');        //选择
  adsInv150.FieldByName('FInvCode').DisplayLabel:=GetDBString('COM00009028');    //发票编号
  adsInv150.FieldByName('FInvLineNo').DisplayLabel:=GetDBString('COM00009029');  //发票行号
  adsInv150.FieldByName('FOrder').DisplayLabel:=GetDBString('COM00008031');      //销售定单
  adsInv150.FieldByName('FOrderLine').DisplayLabel:=GetDBString('COM00008025');  //单据行号
  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');     //料品编号
  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');   //料品名称
  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');   //规格型号
  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');   //单位名称
  adsInv150.FieldByName('FRecAmount').DisplayLabel:=GetDBString('COM00009030');  //应收金额
  adsInv150.FieldByName('FFactAmt').DisplayLabel:=GetDBString('COM00009031');    //实收金额
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

//任务工单  CSH510
procedure THwSelDataAForm.GetCsh510DItems(ACustNo,ACurrNo:Integer);
begin
  adsInv150.DisableControls;
  adsInv150.Close;
  adsInv150.CommandText:='select T510_004 as FSel,T520_001 as FCode,T520_002 as FTaskCode,T520_003 as FPerson,T510_002 as FTaskName,T510_018 as FProName  from TAS520,TAS510 where T520_002=T510_001';
showmessage('FTaskCode');
  adsInv150.Open;
  adsInv150.FieldByName('FSel').DisplayLabel:=GetDBString('COM00008011');        //选择    FTasCode
//  adsInv150.FieldByName('FInvCode').DisplayLabel:=GetDBString('COM00009028');    //发票编号
//  adsInv150.FieldByName('FInvLineNo').DisplayLabel:=GetDBString('COM00009029');  //发票行号
//  adsInv150.FieldByName('FOrder').DisplayLabel:=GetDBString('COM00008031');      //销售定单
//  adsInv150.FieldByName('FOrderLine').DisplayLabel:=GetDBString('COM00008025');  //单据行号
//  adsInv150.FieldByName('FItemID').DisplayLabel:=GetDBString('COM00008012');     //料品编号
//  adsInv150.FieldByName('FItemName').DisplayLabel:=GetDBString('COM00008013');     //料品名称
//  adsInv150.FieldByName('FItemSpec').DisplayLabel:=GetDBString('COM00008014');   //规格型号
//  adsInv150.FieldByName('FUnitName').DisplayLabel:=GetDBString('COM00008016');   //单位名称
//  adsInv150.FieldByName('FRecAmount').DisplayLabel:=GetDBString('COM00009030');  //应收金额
//  adsInv150.FieldByName('FFactAmt').DisplayLabel:=GetDBString('COM00009031');    //实收金额
  adsInv150.FieldByName('FCode').DisplayLabel:=GetDBString('COM00009031');          //工单编号
  adsInv150.FieldByName('FTaskCode').DisplayLabel:=GetDBString('COM00009031');      //任务编号
  adsInv150.FieldByName('FPerson').DisplayLabel:=GetDBString('COM00009031');        //执行人员
  adsInv150.FieldByName('FTaskName').DisplayLabel:=GetDBString('COM00009031');      //任务名称
  adsInv150.FieldByName('FProName').DisplayLabel:=GetDBString('COM00009031');       //产品序号
  pnlLeft.Visible:=False;
  Splitter1.Visible:=False;
  adsInv150.EnableControls;
end;

end.
上一页 1 2 34
💿 文件大小 5005 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#ERP #代码 #企业信息 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -