vw_tsh.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Tsh.h"
#include "VW_Tsd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Tsh *frmVW_Tsh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Tsh::TfrmVW_Tsh(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgTsh->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Tsh::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_Tsh::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Tsh::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("TshCode, ")        //盘点单号
          +AnsiString("TshDate, ")        //盘点日期
          +AnsiString("TshFmonth, ")      //财务月份
          +AnsiString("PosTypeName, ")    //收发存项目名称
          +AnsiString("TshInvFlg, ")      //入库标志
          +AnsiString("DeptName, ")       //部门
          +AnsiString("TshCheck, ")       //审核
          +AnsiString("TshDesc, ")        //备注
          +AnsiString("TshCancel, ")      //取消
          +AnsiString("TshUser, ")        //操作员
          +AnsiString("TshType, ")        //盘点类型
          +AnsiString("TshCDate, ")       //完成日期
          +AnsiString("TshKeeper, ")      //仓管员
          +AnsiString("IAmt, ")           //汇总盘盈金额
          +AnsiString("OAmt ");           //汇总盘亏金额
 Fromstr=" from SDVW_Tsh ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by TshDate desc,Tshcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgTsh->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("TshCode")+
          "\t"+RsQuery->FieldByName("TshDate")+
          "\t"+RsQuery->FieldByName("TshFmonth")+
          "\t"+DataConvert("TshType",RsQuery->FieldByName("TshType"))+
          "\t"+RsQuery->FieldByName("PosTypeName")+
          "\t"+DataConvert("TshInvFlg",RsQuery->FieldByName("TshInvFlg"))+
          "\t"+RsQuery->FieldByName("DeptName")+
          "\t"+RsQuery->FieldByName("IAmt")+
          "\t"+RsQuery->FieldByName("OAmt")+
          "\t"+(RsQuery->FieldByName("TshCheck")=="1"?"是":"否")+
          "\t"+(RsQuery->FieldByName("TshCancel")=="1"?"是":"否")+
          "\t"+RsQuery->FieldByName("TshCDate")+
          "\t"+RsQuery->FieldByName("TshUser")+
          "\t"+RsQuery->FieldByName("TshKeeper")+
          "\t"+RsQuery->FieldByName("TshDesc");
  sgTsh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Tsh::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="TSHTYPE") //盘点类型数值转换
 {
  if(sFieldValue=="1")
   return("常规盘点");
  if(sFieldValue=="2")
   return("循环盘点");
 }
 if(sFieldName=="TSHINVFLG")
 {
  if(sFieldValue=="1")
   return("否");
  if(sFieldValue=="2")
   return("是");
 }
 if(sFieldName=="TSDFLG")
 {
  if(sFieldValue=="-1")
   return("亏");
  if(sFieldValue=="0")
   return("平");
  if(sFieldValue=="1")
   return("盈");
 }
 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Tsh::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgTsh->RowCount < 2 || sgTsh->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("TsdLine, ")        //行号
          +AnsiString("LocName, ")         //货位名称
          +AnsiString("TsdGoods, ")       //物料编码
          +AnsiString("GoodsName, ")       //物料名称
          +AnsiString("TsdUnit, ")        //计量单位
          +AnsiString("TsdBatch, ")       //批号
          +AnsiString("TsdSod, ")         //订单号
          +AnsiString("TsdSodLine, ")     //订单行号
          +AnsiString("TsdAQty, ")        //帐面数
          +AnsiString("TsdTQty, ")        //实盘数
          +AnsiString("TsdDQty, ")        //差异数
          +AnsiString("TsdFlg, ")         //盈/亏标识
          +AnsiString("TsdAPrice, ")      //帐面单价
          +AnsiString("TsdAAmt, ")        //帐面金额
          +AnsiString("TsdTPrice, ")      //实盘单价
          +AnsiString("TsdTAmt, ")        //实盘金额
          +AnsiString("TsdDesc, ")        //备注
          +AnsiString("TsdIoQty ");       //出入库数量
 Fromstr=" from SDVW_Tsd ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where TsdCode='"+sgTsh->Cells[0][sgTsh->Row]+"'";
 Orderstr=" order by TsdLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Tsd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Tsd(this);
  p->lblTshCode->Caption=sgTsh->Cells[0][sgTsh->Row];
  p->sgTsd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("TsdLine")+
          "\t"+RsQuery->FieldByName("LocName")+
          "\t"+RsQuery->FieldByName("TsdGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("TsdUnit")+
          "\t"+RsQuery->FieldByName("TsdBatch")+
          "\t"+RsQuery->FieldByName("TsdAQty")+
          "\t"+RsQuery->FieldByName("TsdTQty")+
          "\t"+RsQuery->FieldByName("TsdDQty")+
          "\t"+DataConvert("TsdFlg",RsQuery->FieldByName("TsdFlg"))+
          "\t"+RsQuery->FieldByName("TsdAPrice")+
          "\t"+RsQuery->FieldByName("TsdAAmt")+
          "\t"+RsQuery->FieldByName("TsdTPrice")+
          "\t"+RsQuery->FieldByName("TsdTAmt")+
          "\t"+RsQuery->FieldByName("TsdIoQty")+
          "\t"+RsQuery->FieldByName("TsdSod")+
          "\t"+RsQuery->FieldByName("TsdSodLine")+
          "\t"+RsQuery->FieldByName("TsdDesc");     //备注
   p->sgTsd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgTsd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Tsh::muFirstClick(TObject *Sender)
{
 if(sgTsh->RowCount > 1)
 {
  sgTsh->Row=1;
 }

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




void __fastcall TfrmVW_Tsh::sgTshDblClick(TObject *Sender)
{
 int ARow=sgTsh->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------