gpreptdataquery.cpp

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

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

#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 resource "*.dfm"
TfrmGPReptDataQuery *frmGPReptDataQuery;
//---------------------------------------------------------------------------
__fastcall TfrmGPReptDataQuery::TfrmGPReptDataQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=DataReptGrid;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGPReptDataQuery::InitEditControl()
{
 
 dtDateEn->Text="";
 dtDateBg->Text=dtDateEn->Text;

 AddGroupItem(edGoodBox,edgoods,"sysGoods","sysGoods,syssName","\t物料编码\t物料名称");
 AddGroupItem(edDeptBox,edDept,"sysDept","sysDept","\t部门");
 AddGroupItem(cbsdSthBox,cbsdSth,"LocSthCode","LocSthCode","\t仓库");
 AddGroupItem(cbsdLocBox,cbsdLoc,"sysLoc","sysLoc","\t货位");
 AddGroupItem(cbsdReptBox,cbsdRept,"sysType","sysType","\t库存事务");
 AddGroupItem(cbsdPmpcBox,cbsdPmpc,"sysPmpccode","sysPmpccode","\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, sysType, sysDept, sysPmpccode, sysLoc,LocSthCode, sysUnit, sysPrice, MaccBopQty,MaccBopAmt, 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出库金额";
  s_DateField="sysDate";


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