vw_pish.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Pish.h"
#include "VW_Pisd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Pish *frmVW_Pish;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Pish::TfrmVW_Pish(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgPish->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Pish::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::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Pish::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("PishCode, ")        //入库单号
          +AnsiString("PishDate, ")        //入库日期
          +AnsiString("PishFmonth, ")      //财务月份
          +AnsiString("PishType, ")        //入库类型
          +AnsiString("PosTypeName, ")     //收发存类型
          +AnsiString("PishDesc, ")        //备注
          +AnsiString("PishState, ")       //状态
          +AnsiString("PishRed, ")         //红字
          +AnsiString("PishUser, ")        //操作员
          +AnsiString("PishKeeper, ")      //仓管员
          +AnsiString("PishCheck, ")       //审核
          +AnsiString("PishChecker, ")     //审核人
          +AnsiString("PishCheckDate, ")   //审核日期
          +AnsiString("PishPost, ")        //记帐
          +AnsiString("PishPoster, ")      //记帐人
          +AnsiString("PishPostDate, ")    //记帐日期
          +AnsiString("PishCancel, ")      //取消
          +AnsiString("PishCancelDate, ")  //取消日期
          +AnsiString("PishSysDate, ")      //系统日期
          +AnsiString("Amt ");
 Fromstr=" from SDVW_Pish ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by PishDate desc,Pishcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::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("PishCode")+        //入库单号
          "\t"+RsQuery->FieldByName("PishDate")+        //入库日期
          "\t"+RsQuery->FieldByName("PishFmonth")+      //财务月份
          "\t"+DataConvert("PishType",RsQuery->FieldByName("PishType"))+//入库类型
          "\t"+RsQuery->FieldByName("PosTypeName")+     //收发存类型
          "\t"+RsQuery->FieldByName("Amt")+
          "\t"+RsQuery->FieldByName("PishUser")+        //操作员
          "\t"+RsQuery->FieldByName("PishKeeper")+      //仓管员
          "\t"+(RsQuery->FieldByName("PishCheck")=="1"?"是":"否")+//审核
          "\t"+RsQuery->FieldByName("PishChecker")+     //审核人
          "\t"+RsQuery->FieldByName("PishCheckDate")+   //审核日期
          "\t"+(RsQuery->FieldByName("PishPost")=="1"?"是":"否")+//记帐
          "\t"+RsQuery->FieldByName("PishPoster")+      //记帐人
          "\t"+RsQuery->FieldByName("PishPostDate")+    //记帐日期
          "\t"+(RsQuery->FieldByName("PishCancel")=="1"?"是":"否")+//取消
          "\t"+RsQuery->FieldByName("PishCancelDate")+  //取消日期
          "\t"+RsQuery->FieldByName("PishSysDate")+     //系统日期
          "\t"+DataConvert("PishState",RsQuery->FieldByName("PishState"))+//状态
          "\t"+RsQuery->FieldByName("PishDesc");        //备注
  sgPish->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Pish::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="PISHTYPE") //入库类型数值转换
 {
  if(sFieldValue=="1")
   return("采购收货");
  if(sFieldValue=="2")
   return("生产入库");
  if(sFieldValue=="3")
   return("销售退货");
  if(sFieldValue=="4")
   return("退料");
  if(sFieldValue=="5")
   return("其他入库");
 }
 if(sFieldName=="PISHSTATE")
 {
  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::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgPish->RowCount < 2 || sgPish->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("PisdLine, ")     //行号
          +AnsiString("PisdGoods, ")    //物料编码
          +AnsiString("PisdUnit, ")     //计量单位
          +AnsiString("PisdQty, ")      //入库数量
          +AnsiString("PisdPrice, ")    //入库单价
          +AnsiString("PisdAmt, ")      //入库金额
          +AnsiString("LocName, ")      //货位名称
          +AnsiString("PisdFrom, ")    //来源
          +AnsiString("PisdFromCode, ")    //来源单号
          +AnsiString("PisdFromLine, ")    //来源行号
          +AnsiString("PisdBatch, ")    //批号
          +AnsiString("PisdSod, ")      //订单号
          +AnsiString("PisdSodLine, ")  //订单行号
          +AnsiString("PisdDesc ");     //备注
 Fromstr=" from SDVW_Pisd ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where PisdCode='"+sgPish->Cells[0][sgPish->Row]+"'";
 Orderstr=" order by PisdLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Pisd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Pisd(this);
  p->lblPishCode->Caption=sgPish->Cells[0][sgPish->Row];
  p->sgPisd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("PisdLine")+     //行号
          "\t"+RsQuery->FieldByName("LocName")+      //货位
          "\t"+RsQuery->FieldByName("PisdGoods")+    //物料编码
          "\t"+RsQuery->FieldByName("PisdUnit")+     //计量单位
          "\t"+RsQuery->FieldByName("PisdQty")+      //入库数量
          "\t"+RsQuery->FieldByName("PisdPrice")+    //入库单价
          "\t"+RsQuery->FieldByName("PisdAmt")+      //入库金额
          "\t"+DataConvert("PisdFrom",RsQuery->FieldByName("PisdFrom"))+     //来源
          "\t"+RsQuery->FieldByName("PisdFromCode")+ //来源单号
          "\t"+RsQuery->FieldByName("PisdFromLine")+ //来源行号
          "\t"+RsQuery->FieldByName("PisdBatch")+    //批号
          "\t"+RsQuery->FieldByName("PisdSod")+      //订单号
          "\t"+RsQuery->FieldByName("PisdSodLine")+  //订单行号
          "\t"+RsQuery->FieldByName("PisdDesc");     //备注
   p->sgPisd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgPisd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pish::muFirstClick(TObject *Sender)
{
 if(sgPish->RowCount > 1)
 {
  sgPish->Row=1;
 }

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




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