woreport.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "WoReport.h"
#include "VW_Wod.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"
TfrmWoReport *frmWoReport;
//---------------------------------------------------------------------------
__fastcall TfrmWoReport::TfrmWoReport(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=sgWo;
}
//---------------------------------------------------------------------------
void __fastcall TfrmWoReport::InitEditControl()
{
 
// dtDateEn->Text="";
// dtDateBg->Text="";

 AddGroupItem(edWoCodeBox,edWoCode,"WoCode","WoCode","\t工单号");
 AddGroupItem(edWoGoodsBox,edWoGoods,"WoGoods","WoGoods,WoGoodsName","\t加工件码\t加工件名称");
 AddGroupItem(cbTypeBox,cbType,"WoType1","WoType1","\t工单类型");
 AddGroupItem(cbFromBox,cbFrom,"WoFrom1","WoFrom1","\t工单来源");
 l_SumField =" ";
 l_SumDisp=" ";
 l_DefField=" WoCode,WoType1,WoFrom1,WoGoods,WoUnit,WoQty,WoCQty,WoDate,WoRdate,WoSdate,WoCheck1,WoClose1,WoSoCode,WoSodLine FROM sdVW_Wo"; //bu
 l_DefDisp="\t加工单号\t类型\t来源\t加工件码\t单位\t要求数\t完工数\t录单日期\t要求日期\t开始日期\t已审核\t已结清\t订单号\t订单行号";
  s_DateField="WoSDate";

  FillComboBox(Handle,cbType,"SELECT DISTINCT WOTYPE1=case WoType when 1 then '常规' when 2 then '返工' when 3 then '改装' when 4 then '委外' when 5 then '副产品' end from SDVW_Wo","WOTYPE1","WOTYPE1");
  FillComboBox(Handle,cbFrom,"SELECT DISTINCT WOFROM1=case WoFrom when 1 then '手工录入' when 2 then '计划生成' end FROM SDVW_Wo","WOFROM1","WOFROM1");
}
//---------------------------------------------------------------------------
void __fastcall TfrmWoReport::edWoGoodsButtonClick(TObject *Sender)
{
   if(OpenGoodsForm("")) //过滤条件
    {
       edWoGoods->Text=GetGoodsValue(gtOpenForm,"GoodsCode");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWoReport::edWoCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="004[加工单号][录单日期][要求日期][开始日期]select WoCode,WoDate,WoRdate,WoSdate from SDVW_Wod  order by WoDate DESC,WoCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"加工单号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edWoCode->Text=(p->ColData[1]);
  }
  delete p;

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

void __fastcall TfrmWoReport::dtDateEnChange(TObject *Sender)
{
 dtDateBg->Text=dtDateEn->Text;
}
//---------------------------------------------------------------------------


void __fastcall TfrmWoReport::sgWoDblClick(TObject *Sender)
{
    int ARow=sgWo->Row;
    int ACol=sgWo->Col;
    if(ARow>0 && ACol==1)
    {
       try{
          frmVW_Wod =new TfrmVW_Wod(this);
          frmVW_Wod->WoCode=sgWo->Cells[ACol][ARow];
          frmVW_Wod->ShowModal();
       }
       __finally
       {
          delete frmVW_Wod;
       }
    }
}
//---------------------------------------------------------------------------