vw_gosh.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Gosh.h"
#include "VW_Gosd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Gosh *frmVW_Gosh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Gosh::TfrmVW_Gosh(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgGosh->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Gosh::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_Gosh::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Gosh::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("GoshCode, ")        //出库单号
          +AnsiString("GoshDate, ")        //出库日期
          +AnsiString("GoshFmonth, ")      //财务月份
          +AnsiString("GoshType, ")        //出库类型
          +AnsiString("PosTypeName, ")     //收发存类型
          +AnsiString("GoshDesc, ")        //备注
          +AnsiString("GoshState, ")       //状态
          +AnsiString("GoshRed, ")         //红字
          +AnsiString("GoshUser, ")        //操作员
          +AnsiString("GoshKeeper, ")      //仓管员
          +AnsiString("GoshCheck, ")       //审核
          +AnsiString("GoshChecker, ")     //审核人
          +AnsiString("GoshCheckDate, ")   //审核日期
          +AnsiString("GoshPost, ")        //记帐
          +AnsiString("GoshPoster, ")      //记帐人
          +AnsiString("GoshPostDate, ")    //记帐日期
          +AnsiString("GoshCancel, ")      //取消
          +AnsiString("GoshCancelDate, ")  //取消日期
          +AnsiString("GoshSysDate, ")      //系统日期
          +AnsiString("Amt ");
 Fromstr=" from SDVW_Gosh ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by GoshDate desc,Goshcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgGosh->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("GoshCode")+        //出库单号
          "\t"+RsQuery->FieldByName("GoshDate")+        //出库日期
          "\t"+RsQuery->FieldByName("GoshFmonth")+      //财务月份
          "\t"+DataConvert("GoshType",RsQuery->FieldByName("GoshType"))+//出库类型
          "\t"+RsQuery->FieldByName("PosTypeName")+     //收发存类型
          "\t"+RsQuery->FieldByName("Amt")+
          "\t"+RsQuery->FieldByName("GoshUser")+        //操作员
          "\t"+RsQuery->FieldByName("GoshKeeper")+      //仓管员
          "\t"+(RsQuery->FieldByName("GoshCheck")=="1"?"是":"否")+//审核
          "\t"+RsQuery->FieldByName("GoshChecker")+     //审核人
          "\t"+RsQuery->FieldByName("GoshCheckDate")+   //审核日期
          "\t"+(RsQuery->FieldByName("GoshPost")=="1"?"是":"否")+//记帐
          "\t"+RsQuery->FieldByName("GoshPoster")+      //记帐人
          "\t"+RsQuery->FieldByName("GoshPostDate")+    //记帐日期
          "\t"+(RsQuery->FieldByName("GoshCancel")=="1"?"是":"否")+//取消
          "\t"+RsQuery->FieldByName("GoshCancelDate")+  //取消日期
          "\t"+RsQuery->FieldByName("GoshSysDate")+     //系统日期
          "\t"+DataConvert("GoshState",RsQuery->FieldByName("GoshState"))+//状态
          "\t"+RsQuery->FieldByName("GoshDesc");        //备注
  sgGosh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Gosh::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="GOSHTYPE") //出库类型数值转换
 {
  if(sFieldValue=="1")
   return("销售发货");
  if(sFieldValue=="2")
   return("采购退货");
  if(sFieldValue=="3")
   return("领料");
  if(sFieldValue=="4")
   return("其他出库");
 }
 if(sFieldName=="GOSHSTATE") //出库类型数值转换
 {
  if(sFieldValue=="1")
   return("待审核");
  if(sFieldValue=="2")
   return("已生效");
  if(sFieldValue=="3")
   return("已结清");
 }
 if(sFieldName=="GOSDFROM")
 {
  if(sFieldValue=="0")
   return("录入");
  if(sFieldValue=="1")
   return("生成");
 }

 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Gosh::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgGosh->RowCount < 2 || sgGosh->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("GosdLine, ")     //行号
          +AnsiString("GosdGoods, ")    //物料编码
          +AnsiString("GosdUnit, ")     //计量单位
          +AnsiString("GosdQty, ")      //出库数量
          +AnsiString("GosdPrice, ")    //出库单价
          +AnsiString("GosdAmt, ")      //出库金额
          +AnsiString("LocName, ")      //货位名称
          +AnsiString("GosdFrom, ")     //来源
          +AnsiString("GosdFromCode, ") //来源单号
          +AnsiString("GosdFromLine, ") //来源行号
          +AnsiString("GosdBatch, ")    //批号
          +AnsiString("GosdSod, ")      //订单号
          +AnsiString("GosdSodLine, ")  //订单行号
          +AnsiString("GosdDesc ");     //备注
 Fromstr=" from SDVW_Gosd ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where GosdCode='"+sgGosh->Cells[0][sgGosh->Row]+"'";
 Orderstr=" order by GosdLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Gosd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Gosd(this);
  p->lblGoshCode->Caption=sgGosh->Cells[0][sgGosh->Row];
  p->sgGosd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("GosdLine")+     //行号
          "\t"+RsQuery->FieldByName("LocName")+      //货位
          "\t"+RsQuery->FieldByName("GosdGoods")+    //物料编码
          "\t"+RsQuery->FieldByName("GosdUnit")+     //计量单位
          "\t"+RsQuery->FieldByName("GosdQty")+      //出库数量
          "\t"+RsQuery->FieldByName("GosdPrice")+    //出库单价
          "\t"+RsQuery->FieldByName("GosdAmt")+      //出库金额
          "\t"+DataConvert("GosdFrom",RsQuery->FieldByName("GosdFrom"))+    //批号
          "\t"+RsQuery->FieldByName("GosdFromCode")+    //批号
          "\t"+RsQuery->FieldByName("GosdFromLine")+    //批号
          "\t"+RsQuery->FieldByName("GosdBatch")+    //批号
          "\t"+RsQuery->FieldByName("GosdSod")+      //订单号
          "\t"+RsQuery->FieldByName("GosdSodLine")+  //订单行号
          "\t"+RsQuery->FieldByName("GosdDesc");     //备注
   p->sgGosd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgGosd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gosh::muFirstClick(TObject *Sender)
{
 if(sgGosh->RowCount > 1)
 {
  sgGosh->Row=1;
 }

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




void __fastcall TfrmVW_Gosh::sgGoshDblClick(TObject *Sender)
{
 int ARow=sgGosh->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------