gpreptotalquery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "GPRepTotalQuery.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"
TfrmGPRepTotalQuery *frmGPRepTotalQuery;
//---------------------------------------------------------------------------
__fastcall TfrmGPRepTotalQuery::TfrmGPRepTotalQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=DataReptGrid;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGPRepTotalQuery::InitEditControl()
{

 //dtDateEn->Text="";
 //dtDateBg->Text="";

 AddGroupItem(edGoodBox,edgoods,"sysGoods","sysGoods,syssName","\t物料编码\t物料名称");
 AddGroupItem(edDeptBox,edDept,"sysDept","sysDept,sysDeptName","\t部门编码\t部门名称");
 AddGroupItem(cbsdSthBox,cbsdSth,"LocSthCode","LocSthCode,LocSthName","\t仓库编码\t仓库名称");
 AddGroupItem(cbsdLocBox,cbsdLoc,"sysLoc","sysLoc,sysLocName","\t货位编码\t货位名称");
 AddGroupItem(cbsdReptBox,cbsdRept,"sysType","sysType,sysTypeName","\t库存事务\t事务名称");
 AddGroupItem(cbsdPmpcBox,cbsdPmpc,"sysPmpccode","sysPmpccode,sysPmpcName","\t物料分类\t分类名称");
 AddGroupItem(sysFmonthBox,cbsdMonth,"sysFmonth","sysFmonth","\t财务月份");
 l_SumField=" sum(sysPQty) as sysPQty, sum(sysPAmt) as sysPAmt,sum(sysGQty) as sysGQty,sum(sysGAmt) as sysGAmt from ksVW_ReptMacc " ;
 l_SumDisp="\t入库数量\t入库金额\t出库数量\t出库金额";
 l_DefField=" syscode, sysGoods, syssName, sysDate, sysFmonth, sysType,sysTypeName, sysDept,sysDeptName, sysPmpccode,sysPmpcName, sysLoc,sysLocName,LocSthCode,LocSthName, sysUnitName, sysPrice,  sysPQty, sysPAmt, sysGQty, sysGAmt FROM ksVW_ReptMacc"; //bu
 l_DefDisp="\t出入库单号\t物料编号\t物料名称\t出入库日期\t财务月份\t库存事务\t事务名称\t部门编码\t部门名称\t物料分类\t分类名称\t货位编码\t货位名称\t仓库编码\t仓库名称\t单位\t单价\t入库数量\t入库金额\t出库数量\t出库金额";
  s_DateField="sysDate";

  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","memo","PosTypeCode");
  FillComboBox(Handle,cbsdMonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
  FillComboBox(Handle,cbsdSth,"SELECT SthCode,memo=SthCode+space(1)+SthName FROM sdSth order by SthCode","memo","SthCode");
  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 TfrmGPRepTotalQuery::edgoodsButtonClick(TObject *Sender)
{
   if(OpenGoodsForm("")) //过滤条件
    {
       edgoods->Text=GetGoodsValue(gtOpenForm,"GoodsCode");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGPRepTotalQuery::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;

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