supplygdsquery.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 89 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SupplyGdsQuery.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "GroupBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmSupplyGdsQuery *frmSupplyGdsQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSupplyGdsQuery::TfrmSupplyGdsQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=DataReptGrid;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSupplyGdsQuery::InitEditControl()
{
 AddGroupItem(edGoodBox,edgoods,"PODGOODS","PODGOODS,GoodsName","\t物料编码\t物料名称");
 AddGroupItem(edDeptBox,edDept,"PODDEPT","PODDEPT,DeptName","\t部门编码\t部门名称");
 AddGroupItem(cbsdSthBox,cbsdSth,"PohSupply","PohSupply,SupplyName","\t供应商编码\t供应商名称");
 AddGroupItem(cbsdLocBox,cbsdLoc,"PODLOC","PODLOC,LocName","\t货位编码\t货位名称");
 AddGroupItem(cbsdPmpcBox,cbsdPmpc,"GoodsPmpccode","PmpcName","\t分类名称");
 AddGroupItem(sysFmonthBox,cbsdMonth,"PohDate","PohDate","\t财务月份");
 l_SumField=" sum(PodQty) as PodQty,sum(PodAmt) as PodAmt,sum(PodDQty) as PodDQty,sum(PodRQty) as PodRQty, sum(PodFQty) as PodFQty,sum(PodEQty) as PodEQty,sum(PodWQty) as PodWQty from KSVW_Supply  " ;
 l_SumDisp="\t采购数量\t采购金额\t送货数量\t收货数量\t返修数量\t换货数量\t在途数量";
 l_DefField=" PohSupply,SUPPLYNAME,   PodGoods,GoodsName,PmpcName, PodLoc,LocName,      PodDept,DeptName, UnitName,PohDate,PodReqDate,PmodeName,CurrencyName,BuyerName,PodPrice, PodQty, PodAmt, PodDQty, PodRQty, podFQty, PodEQty, PodWQty, PodCode   FROM ksVW_Supply"; //bu
 l_DefDisp="\t供应商代码\t供应商名称\t物料编号\t物料名称\t物料分类\t货位编码\t货位名称\t部门编码\t部门名称\t单位\t操作日期\t需求日期\t采购方式\t币种\t操作员\t单价\t采购数量\t采购金额\t送货数量\t收货数量\t返修数量\t换货数量\t在途数量";
 s_DateField="PohDate";

  FillComboBox(Handle,cbsdLoc,"SELECT LocCode,memo=LocCode+space(1)+LocName FROM sdLoc order by LocCode","memo","LocCode");
  //FillComboBox(Handle,cbsdRept,"SELECT PosTypeCode,memo=PosTypeCode+space(1)+PosTypeName FROM sdPosType order by PosTypeCode","PosTypeCode","memo");
  FillComboBox(Handle,cbsdMonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
  FillComboBox(Handle,cbsdSth,"SELECT SupplyCode,memo=SupplyCode+space(1)+SupplyName FROM sdSupply order by SupplyCode","memo","SupplyCode");
  FillComboBox(Handle,cbsdPmpc,"SELECT PmpcCode,memo=PmpcCode+space(1)+PmpcName FROM sdPmpc where len(pmpccode)<=6 order by PmpcCode","memo","PmpcCode");
  edDept->Text="" ;
  edgoods->Text="" ;
  cbsdLoc->Text="" ;
  //cbsdRept->Text="" ;
  cbsdSth->Text="";
  cbsdPmpc->Text="";
  cbsdMonth->Text="";
}
//---------------------------------------------------------------------------


void __fastcall TfrmSupplyGdsQuery::edgoodsButtonClick(TObject *Sender)
{
   if(OpenGoodsForm("")) //过滤条件
    {
       edgoods->Text=GetGoodsValue(gtOpenForm,"GoodsCode");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmSupplyGdsQuery::edDeptButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="004[部门编码][部门名称][联系人][电话]select DeptCode,DeptName,DeptLinkman,DeptTel from sdDept  order by DeptCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"入库货位查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edDept->Text=(p->ColData[1]);
  }
  delete p;

}
//---------------------------------------------------------------------------