rmbhreport.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "RmbhReport.h"
#include "VW_Rmbd.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"
TfrmRmbhReport *frmRmbhReport;
//---------------------------------------------------------------------------
__fastcall TfrmRmbhReport::TfrmRmbhReport(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=sgRmbh;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRmbhReport::InitEditControl()
{
 AddGroupItem(edRmbhCodeBox,edRmbhCode,"RmbhCode","RmbhCode","\t单据编号");
 AddGroupItem(edRmbhWoCodeBox,edRmbhWoCode,"RmbhWoCode","RmbhWoCode","\t加工单号");
 AddGroupItem(cbRmbhPosTypeBox,cbRmbhPosType,"RmbhPosType","RmbhPosType","\t收发类型");
 AddGroupItem(cbRmbhFMonthBox,cbRmbhFMonth,"RmbhFmonth","RmbhFmonth","\t财务月份");
 l_SumField ="";
 l_SumField+="";
 l_SumDisp="";
 l_DefField="RmbhCode,RmbhFmonth,RmbhDate,RmbhPosType,RmbhWoCode,RmbhCheck1,RmbhChecker,RmbhCheckDate,RmbhUser1,RmbhDesc from SDVW_Rmbh ";
 l_DefDisp="\t单据编号\t财务月份\t制单日期\t收发类型\t加工单号\t审核\t审核日期\t审核人\t制单人\t备注";
 s_DateField="RmbhDate";

  FillComboBox(Handle,cbRmbhPosType,"SELECT RmbhPosType=(select PosTypeName from sdPosType where PosTypeCode=RmbhPosType) FROM sdRmbh","RmbhPosType");
  FillComboBox(Handle,cbRmbhFMonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
}
//---------------------------------------------------------------------------
void __fastcall TfrmRmbhReport::edRmbhCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="003[单据编号][财务月份][制单日期]select RmbhCode,RmbhFmonth,RmbhDate from SDVW_Rmbh  order by RmbhDate DESC,RmbhCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"单号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edRmbhCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRmbhReport::edRmbhWoCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="004[加工单号][单据编号][财务月份][制单日期]select RmbhWoCode,RmbhCode,RmbhFmonth,RmbhDate from SDVW_Rmbh  order by RmbhDate DESC,RmbhCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"加工单号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edRmbhWoCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRmbhReport::dtDateEnChange(TObject *Sender)
{

 dtDateBg->Text=dtDateEn->Text;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRmbhReport::sgRmbhDblClick(TObject *Sender)
{
    int ARow=sgRmbh->Row;
    if(ARow>0)
       FillGridWithDetail();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmRmbhReport::GetDetailQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    if(sgRmbh->RowCount < 2)
       return("");
    if(sgRmbh->Row == 0)
       return("");
    Selectstr="select "
            +AnsiString("RmbdLine, ")
            +AnsiString("RmbdProcess, ")
            +AnsiString("RmbdGoods, ")
            +AnsiString("RmbdUnit, ")
            +AnsiString("RmbdQty, ")
            +AnsiString("RmbdRLoc, ")
            +AnsiString("RmbdLoc, ")
            +AnsiString("RmbdBatch, ")
            +AnsiString("RmbdDesc ");

    Fromstr=" from SDVW_Rmbd ";
    Wherestr=" where RmbdCode='"+sgRmbh->Cells[1][sgRmbh->Row]+"'";
    Orderstr=" order by RmbdLine ";
    return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmRmbhReport::FillGridWithDetail()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmVW_Rmbd *VW_Rmbd;
    sSql=GetDetailQueryStr();  //取Detail查询的SQL语句
    if(sSql=="")
      return;
    try
    {
      VW_Rmbd=new TfrmVW_Rmbd(this);
      int ARow=sgRmbh->Row;
      VW_Rmbd->seRmbhCode->Text=sgRmbh->Cells[1][ARow];
      VW_Rmbd->scRmbhFmonth->Text=sgRmbh->Cells[2][ARow];
      VW_Rmbd->deRmbhDate->Text=sgRmbh->Cells[3][ARow];
      VW_Rmbd->scRmbhWo->Text=sgRmbh->Cells[5][ARow];

      VW_Rmbd->sgRmbd->RowCount=1;
      RsQuery=new  TComResultSet(Handle,g_ClientHandle);
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         ItemStr=  RsQuery->FieldByName("RmbdLine")+
              "\t"+RsQuery->FieldByName("RmbdProcess")+
              "\t"+RsQuery->FieldByName("RmbdGoods")+
              "\t"+RsQuery->FieldByName("RmbdUnit")+
              "\t"+RsQuery->FieldByName("RmbdQty")+
              "\t"+RsQuery->FieldByName("RmbdRLoc")+
              "\t"+RsQuery->FieldByName("RmbdLoc")+
              "\t"+RsQuery->FieldByName("RmbdBatch")+
              "\t"+RsQuery->FieldByName("RmbdDesc");
       VW_Rmbd->sgRmbd->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
    if(VW_Rmbd->sgRmbd->RowCount > 1)
       VW_Rmbd->ShowModal();
    }
    __finally
    {
       delete VW_Rmbd;
    }
}