pdrhreport.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "PdrhReport.h"
#include "VW_Pdrd.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"
TfrmPdrhReport *frmPdrhReport;
//---------------------------------------------------------------------------
__fastcall TfrmPdrhReport::TfrmPdrhReport(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=sgPdrh;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrhReport::InitEditControl()
{
 AddGroupItem(edPdrhCodeBox,edPdrhCode,"PdrhCode","PdrhCode","\t单据编号");
 AddGroupItem(cbPdrhFMonthBox,cbPdrhFMonth,"PdrhFmonth","PdrhFmonth","\t财务月份");
 l_SumField ="";
 l_SumField+="";
 l_SumDisp="";
 l_DefField="PdrhCode,PdrhFmonth,PdrhDate,PdrhCheck1,PdrhChecker,PdrhCheckDate,PdrhUser1,PdrhDesc from SDVW_Pdrh ";
 l_DefDisp="\t单据编号\t财务月份\t制单日期\t审核\t审核日期\t审核人\t制单人\t备注";
 s_DateField="PdrhDate";

  FillComboBox(Handle,cbPdrhFMonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrhReport::edPdrhCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="003[单据编号][财务月份][制单日期]select PdrhCode,PdrhFmonth,PdrhDate from SDVW_Pdrh  order by PdrhDate DESC,PdrhCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"单号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edPdrhCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrhReport::dtDateEnChange(TObject *Sender)
{

 dtDateBg->Text=dtDateEn->Text;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrhReport::sgPrdhDblClick(TObject *Sender)
{
    int ARow=sgPdrh->Row;
    if(ARow>0)
       FillGridWithDetail();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPdrhReport::GetDetailQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    if(sgPdrh->RowCount < 2)
       return("");
    if(sgPdrh->Row == 1)
       return("");
    Selectstr="select "
            +AnsiString("PdrdLine, ")
            +AnsiString("PdrdWo, ")
            +AnsiString("PdrdProcess, ")
            +AnsiString("PdrdGoods, ")
            +AnsiString("PdrdCQty, ")    //完工数量
            +AnsiString("PdrdEQty, ")    //合格数量
            +AnsiString("PdrdWQty, ")    //返修数量
            +AnsiString("PdrdRQty, ")    //次品数量
            +AnsiString("PdrdSQty, ")    //废品数量
            +AnsiString("PdrdFwt, ")
            +AnsiString("PdrdRwt, ")
            +AnsiString("PdrdDwt, ")
            +AnsiString("PdrdWwt, ")
            +AnsiString("PdrdSwt, ")
            +AnsiString("PdrdOwt, ")
            +AnsiString("PdrdPsr ");

    Fromstr=" from SDVW_Pdrd ";
    Wherestr=" where PdrdCode='"+sgPdrh->Cells[1][sgPdrh->Row]+"'";
    Orderstr=" order by PdrdLine ";
    return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrhReport::FillGridWithDetail()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmVW_Pdrd *VW_Pdrd;
    sSql=GetDetailQueryStr();  //取Detail查询的SQL语句
    if(sSql=="")
       return;
    try
    {
      VW_Pdrd=new TfrmVW_Pdrd(this);
      int ARow=sgPdrh->Row;
      VW_Pdrd->sePdrhCode->Text=sgPdrh->Cells[1][ARow];
      VW_Pdrd->scPdrhFmonth->Text=sgPdrh->Cells[2][ARow];
      VW_Pdrd->dePdrhDate->Text=sgPdrh->Cells[3][ARow];
      VW_Pdrd->scPdrhUser->Text=sgPdrh->Cells[7][ARow];

      VW_Pdrd->sgPdrd->RowCount=1;
      RsQuery=new  TComResultSet(Handle,g_ClientHandle);
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         ItemStr=  RsQuery->FieldByName("PdrdLine")+
              "\t"+RsQuery->FieldByName("PdrdWo")+
              "\t"+RsQuery->FieldByName("PdrdProcess")+
              "\t"+RsQuery->FieldByName("PdrdGoods")+
              "\t"+RsQuery->FieldByName("PdrdCQty")+
              "\t"+RsQuery->FieldByName("PdrdEQty")+
              "\t"+RsQuery->FieldByName("PdrdWQty")+
              "\t"+RsQuery->FieldByName("PdrdRQty")+
              "\t"+RsQuery->FieldByName("PdrdSQty")+
              "\t"+RsQuery->FieldByName("PdrdFwt")+
              "\t"+RsQuery->FieldByName("PdrdRwt")+
              "\t"+RsQuery->FieldByName("PdrdDwt")+
              "\t"+RsQuery->FieldByName("PdrdWwt")+
              "\t"+RsQuery->FieldByName("PdrdSwt")+
              "\t"+RsQuery->FieldByName("PdrdOwt")+
              "\t"+RsQuery->FieldByName("PdrdPsr");
       VW_Pdrd->sgPdrd->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
    if(VW_Pdrd->sgPdrd->RowCount > 1)
       VW_Pdrd->ShowModal();
    }
    __finally
    {
       delete VW_Pdrd;
    }
}
//---------------------------------------------------------------------------