pdmhreport.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "PdmhReport.h"
#include "VW_Pdmd.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"
TfrmPdmhReport *frmPdmhReport;
//---------------------------------------------------------------------------
__fastcall TfrmPdmhReport::TfrmPdmhReport(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=sgPdmh;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdmhReport::InitEditControl()
{
 AddGroupItem(edPdmhCodeBox,edPdmhCode,"PdmhCode","PdmhCode","\t单据编号");
 AddGroupItem(edPdmhWoCodeBox,edPdmhWoCode,"PdmhWo","PdmhWo","\t加工单号");
 AddGroupItem(cbPdmhPosTypeBox,cbPdmhPosType,"PdmhPosType","PdmhPosType","\t收发类型");
 AddGroupItem(cbPdmhFMonthBox,cbPdmhFMonth,"PdmhFmonth","PdmhFmonth","\t财务月份");
 l_SumField ="";
 l_SumField+="";
 l_SumDisp="";
 l_DefField="PdmhCode,PdmhFmonth,PdmhDate,PdmhPosType,PdmhWo,PdmhCheck1,PdmhChecker,PdmhCheckDate,PdmhUser1,PdmhDesc from SDVW_Pdmh ";
 l_DefDisp="\t单据编号\t财务月份\t制单日期\t收发类型\t加工单号\t审核\t审核人\t审核日期\t制单人\t备注";
 s_DateField="PdmhDate";

  FillComboBox(Handle,cbPdmhPosType,"SELECT PdmhPosType=(select PosTypeName from sdPosType where PosTypeCode=PdmhPosType) FROM sdPdmh","PdmhPosType");
  FillComboBox(Handle,cbPdmhFMonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdmhReport::edPdmhCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="003[单据编号][财务月份][制单日期]select PdmhCode,PdmhFmonth,PdmhDate from SDVW_Pdmh  order by PdmhDate DESC,PdmhCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"单号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edPdmhCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdmhReport::edPdmhWoCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="004[加工单号][单据编号][财务月份][制单日期]select PdmhWo,PdmhCode,PdmhFmonth,PdmhDate from SDVW_Pdmh  order by PdmhDate DESC,PdmhCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"加工单号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edPdmhWoCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdmhReport::dtDateEnChange(TObject *Sender)
{

 dtDateBg->Text=dtDateEn->Text;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdmhReport::sgPdmhDblClick(TObject *Sender)
{
    int ARow=sgPdmh->Row;
    if(ARow>0)
       FillGridWithDetail();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPdmhReport::GetDetailQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    if(sgPdmh->RowCount < 2)
       return("");
    if(sgPdmh->Row == 0)
       return("");
    Selectstr="select "
            +AnsiString("PdmdLine, ")
            +AnsiString("PdmdProcess1, ")
            +AnsiString("PdmdLoc1, ")
            +AnsiString("PdmdGoods, ")
            +AnsiString("PdmdGoodsName, ")
            +AnsiString("PdmdUnit, ")
            +AnsiString("PdmdQty, ")     //报废数量
            +AnsiString("PdmdType, ")
            +AnsiString("PdmdDesc ");

    Fromstr=" from SDVW_Pdmd ";
    Wherestr=" where PdmdCode='"+sgPdmh->Cells[1][sgPdmh->Row]+"'";
    Orderstr=" order by PdmdLine ";
    return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdmhReport::FillGridWithDetail()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmVW_Pdmd *VW_Pdmd;
    sSql=GetDetailQueryStr();  //取Detail查询的SQL语句
    if(sSql=="")
       return;
    try
    {
      VW_Pdmd=new TfrmVW_Pdmd(this);
      int ARow=sgPdmh->Row;
      VW_Pdmd->sePdmhCode->Text=sgPdmh->Cells[1][ARow];
      VW_Pdmd->scPdmhFmonth->Text=sgPdmh->Cells[2][ARow];
      VW_Pdmd->dePdmhDate->Text=sgPdmh->Cells[3][ARow];
      VW_Pdmd->scPdmhWoCode->Text=sgPdmh->Cells[5][ARow];

      VW_Pdmd->sgPdmd->RowCount=1;
      RsQuery=new  TComResultSet(Handle,g_ClientHandle);
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         ItemStr=  RsQuery->FieldByName("PdmdLine")+
              "\t"+RsQuery->FieldByName("PdmdProcess1")+
              "\t"+RsQuery->FieldByName("PdmdLoc1")+
              "\t"+RsQuery->FieldByName("PdmdGoods")+
              "\t"+RsQuery->FieldByName("PdmdGoodsName")+
              "\t"+RsQuery->FieldByName("PdmdUnit")+
              "\t"+RsQuery->FieldByName("PdmdQty")+
              "\t"+RsQuery->FieldByName("PdmdType")+
              "\t"+RsQuery->FieldByName("PdmdDesc");
       VW_Pdmd->sgPdmd->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
    if(VW_Pdmd->sgPdmd->RowCount > 1)
       VW_Pdmd->ShowModal();
    }
    __finally
    {
       delete VW_Pdmd;
    }
}