vw_pish_sum.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Pish_Sum.h"
#include "VW_Pisd_Sum.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Pish_Sum *frmVW_Pish_Sum;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Pish_Sum::TfrmVW_Pish_Sum(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgPish->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Pish_Sum::ShowQueryWindow()
{
  TfrmQuForm *FQuery=new TfrmQuForm(this,this->Name);
  FQuery->ShowModal();
  if(FQuery->CancelQuery)
    return false;
  FilterStr=FQuery->CreateSqlString;
  delete FQuery;
  return true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Pish_Sum::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Groupstr,Orderstr;
 Selectstr="select "
          +AnsiString("PisdGoods,GoodsName, ")
          +AnsiString("sum(pisdQty) Qty, ")
          +AnsiString("sum(pisdAmt) Amt ");
 Fromstr=" from SDVW_Pish_Sum ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Groupstr=" group by PisdGoods,GoodsName";
 Orderstr=" order by PisdGoods";
 sSQL=Selectstr+Fromstr+Wherestr+Groupstr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgPish->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("PisdGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("Qty")+
          "\t"+RsQuery->FieldByName("Amt");
  sgPish->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Pish_Sum::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="PISHTYPE") //入库类型数值转换
 {
  if(sFieldValue=="1")
   return("采购收货");
  if(sFieldValue=="2")
   return("销售退货");
  if(sFieldValue=="3")
   return("盘盈入库");
 }
 if(sFieldName=="PISDFROM")
 {
  if(sFieldValue=="0")
   return("录入");
  if(sFieldValue=="1")
   return("生成");
 }
 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Pish_Sum::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgPish->RowCount < 2 || sgPish->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("PishCode, ")
          +AnsiString("PishDate, ")
          +AnsiString("PishType, ")
          +AnsiString("PosTypeName, ")
          +AnsiString("PisdLine, ")
          +AnsiString("LocName, ")
          +AnsiString("PisdQty,")
          +AnsiString("PisdAmt,")
          +AnsiString("PisdFrom,")
          +AnsiString("PisdFromCode,")
          +AnsiString("PisdFromLine ");
 Fromstr=" from SDVW_Pisd_Sum ";
 Wherestr=" where PisdGoods='"+sgPish->Cells[0][sgPish->Row]+"'";
 if(FilterStr!="")
  Wherestr=Wherestr+" and ("+FilterStr+")";
 Orderstr=" order by PishDate desc,PishCode,PisdLine ";
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Pisd_Sum *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Pisd_Sum(this);
  p->lblPisdGoods->Caption=sgPish->Cells[0][sgPish->Row];
  p->lblGoodsName->Caption=sgPish->Cells[1][sgPish->Row];
  p->sgPisd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("PishCode")+
          "\t"+RsQuery->FieldByName("PishDate")+
          "\t"+DataConvert("PishType",RsQuery->FieldByName("PishType"))+
          "\t"+RsQuery->FieldByName("PosTypeName")+
          "\t"+RsQuery->FieldByName("PisdLine")+
          "\t"+RsQuery->FieldByName("LocName")+
          "\t"+RsQuery->FieldByName("PisdQty")+
          "\t"+RsQuery->FieldByName("PisdAmt")+
          "\t"+DataConvert("PisdFrom",RsQuery->FieldByName("PisdFrom"))+
          "\t"+RsQuery->FieldByName("PisdFromCode")+
          "\t"+RsQuery->FieldByName("PisdFromLine");
   p->sgPisd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgPisd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::muFirstClick(TObject *Sender)
{
 if(sgPish->RowCount > 1)
 {
  sgPish->Row=1;
 }

}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::tbPreviousClick(TObject *Sender)
{
 if(sgPish->RowCount > 1 && sgPish->Row > 1)
 {
  sgPish->Row=sgPish->Row-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::muNextClick(TObject *Sender)
{
 if(sgPish->RowCount > 1 && sgPish->Row < sgPish->RowCount-1)
 {
  sgPish->Row=sgPish->Row+1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::muLastClick(TObject *Sender)
{
 if(sgPish->RowCount > 1)
 {
  sgPish->Row=sgPish->RowCount-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish_Sum::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();
}
//---------------------------------------------------------------------------




void __fastcall TfrmVW_Pish_Sum::sgPishDblClick(TObject *Sender)
{
 int ARow=sgPish->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------