gpreptdataquery.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 119 行

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

#include <vcl.h>
#pragma hdrstop

#include "GPRepTDataQuery.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"
TfrmGPReptDataQuery *frmGPReptDataQuery;
//---------------------------------------------------------------------------
__fastcall TfrmGPReptDataQuery::TfrmGPReptDataQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=DataReptGrid;
  AnsiString YearStr,MonthStr,DateStr;
  DateStr=DateToStr(Date());
  YearStr=DateStr.SubString(1,4);
  MonthStr=DateStr.SubString(6,8);
  if(MonthStr.Pos('-')-1>1)
  {
  MonthStr=MonthStr.SubString(1,MonthStr.Pos('-')-1);
  cbsdMonth->Text=YearStr+MonthStr;
  }
  else
  {
   MonthStr=MonthStr.SubString(1,MonthStr.Pos('-')-1);
   cbsdMonth->Text=YearStr+"0"+MonthStr;
  }
  dtDateEn->Text= DateToStr(Date());
  dtDateBg->Text= dtDateEn->Text;


}
//---------------------------------------------------------------------------
void __fastcall TfrmGPReptDataQuery::InitEditControl()
{
  //dtDateEn->Text="2003-02-25";//DateToStr(Date());

 //dtDateBg->Text=dtDateEn->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=" AVG(MaccBopQty) as MaccBopQty ,AVG(MaccBopAmt) as MaccBopAmt,sum(sysPQty) as sysPQty, sum(sysPAmt) as sysPAmt,sum(sysGQty) as sysGQty,sum(sysGAmt) as sysGAmt,AVG(MaccRopQty) as MaccRopQty,AVG(MaccRopAmt) as maccRopAmt,AVG(MACCFopQty) as MACCFopQty,AVG(MACCFopAmt) as MACCFopAmt,AVG(MaccBopQty)  + AVG(maccRopQty)+sum(sysPQty -sysGQty)-AVG(MACCFopQty) as MaccEndQty,AVG(MaccBopAmt) +AVG(maccRopAmt)+sum(sysPAmt -sysGAmt)-AVG(MACCFopAmt) as MaccEndAmt from ksVW_ReptMacc " ;
 l_SumDisp="\t期初数量\t期初金额\t入库数量\t入库金额\t出库数量\t出库金额\t调整数量\t调整金额\t结存数量\t结存金额\t差别数量\t差别金额";
 sbBar->Panels->Items[0]->Text="差别数量与金额：指非直接由出入库单操作的数量,金额";
 l_DefField=" syscode, sysGoods, syssName, sysDate, sysFmonth,sysUnitName, sysPrice, MaccBopQty,MaccBopAmt, sysPQty, sysPAmt, sysGQty, sysGAmt, sysType,sysTypeName, sysDept,sysDeptName, sysPmpccode,sysPmpcName, sysLoc,sysLocName,LocSthCode,LocSthName 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货位名称\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 TfrmGPReptDataQuery::edgoodsButtonClick(TObject *Sender)
{
   if(OpenGoodsForm("")) //过滤条件
    {
       edgoods->Text=GetGoodsValue(gtOpenForm,"GoodsCode");
    }
}
//---------------------------------------------------------------------------

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

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

void __fastcall TfrmGPReptDataQuery::dtDateEnChange(TObject *Sender)
{

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