vw_scraph.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Scraph.h"
#include "VW_Scrapd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Scraph *frmVW_Scraph;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Scraph::TfrmVW_Scraph(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgScraph->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Scraph::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_Scraph::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Scraph::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("ScraphCode, ")          //报废单号
          +AnsiString("ScraphDate, ")          //报废日期
          +AnsiString("ScraphFmonth, ")        //财务月份
          +AnsiString("PosTypeName, ")         //收发存项目名称
          +AnsiString("DeptName, ")            //报废部门名称
          +AnsiString("ScraphCheck, ")         //审核
          +AnsiString("ScraphCancel, ")        //取消
          +AnsiString("ScraphUser, ")          //操作员
          +AnsiString("ScraphKeeper, ")        //仓管员
          +AnsiString("ScraphDesc ");          //备注
 Fromstr=" from SDVW_Scraph ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by ScraphDate desc,Scraphcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgScraph->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("ScraphCode")+
          "\t"+RsQuery->FieldByName("ScraphFmonth")+
          "\t"+RsQuery->FieldByName("ScraphDate")+
          "\t"+RsQuery->FieldByName("PosTypeName")+
          "\t"+RsQuery->FieldByName("DeptName")+
          "\t"+(RsQuery->FieldByName("ScraphCheck")=="1"?"是":"否")+//审核
          "\t"+(RsQuery->FieldByName("ScraphCancel")=="1"?"是":"否")+//取消
          "\t"+RsQuery->FieldByName("ScraphUser")+
          "\t"+RsQuery->FieldByName("ScraphKeeper")+
          "\t"+RsQuery->FieldByName("ScraphDesc");        //备注
  sgScraph->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Scraph::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Scraph::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgScraph->RowCount < 2 || sgScraph->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("ScrapdLine, ")          //行号
          +AnsiString("Locname, ")             //货位名称
          +AnsiString("ScrapdGoods, ")         //物料编码
          +AnsiString("GoodsName, ")           //物料名称
          +AnsiString("ScrapdUnit, ")          //计量单位
          +AnsiString("ScrapdBatch, ")         //批号
          +AnsiString("ScrapdSod, ")           //订单号
          +AnsiString("ScrapdSodLine, ")       //订单行号
          +AnsiString("ScrapdQty, ")           //报废数量
          +AnsiString("SrDesc, ")              //报废原因说明
          +AnsiString("ScrapdDesc ");          //备注
 Fromstr=" from SDVW_Scrapd ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where ScrapdCode='"+sgScraph->Cells[0][sgScraph->Row]+"'";
 Orderstr=" order by ScrapdLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Scrapd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Scrapd(this);
  p->lblScraphCode->Caption=sgScraph->Cells[0][sgScraph->Row];
  p->sgScrapd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("ScrapdLine")+
          "\t"+RsQuery->FieldByName("LocName")+
          "\t"+RsQuery->FieldByName("ScrapdGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("ScrapdUnit")+
          "\t"+RsQuery->FieldByName("ScrapdBatch")+
          "\t"+RsQuery->FieldByName("ScrapdSod")+
          "\t"+RsQuery->FieldByName("ScrapdSodLine")+
          "\t"+RsQuery->FieldByName("ScrapdQty")+
          "\t"+RsQuery->FieldByName("SrDesc")+
          "\t"+RsQuery->FieldByName("ScrapdDesc");
   p->sgScrapd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgScrapd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Scraph::muFirstClick(TObject *Sender)
{
 if(sgScraph->RowCount > 1)
 {
  sgScraph->Row=1;
 }

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




void __fastcall TfrmVW_Scraph::sgScraphDblClick(TObject *Sender)
{
 int ARow=sgScraph->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------