vw_alfh.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Alfh.h"
#include "VW_Alfd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Alfh *frmVW_Alfh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Alfh::TfrmVW_Alfh(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgAlfh->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Alfh::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_Alfh::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Alfh::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select "
          +AnsiString("AlfhCode, ")            //调拨单号
          +AnsiString("AlfhDate, ")            //调拨日期
          +AnsiString("ODeptName, ")           //转出部门
          +AnsiString("PosTypeName, ")         //转出收发存类型
          +AnsiString("IDeptName, ")           //转入部门
          +AnsiString("AlfhDesc, ")            //备注
          +AnsiString("AlfhCheck, ")           //审核
          +AnsiString("AlfhFmonth, ")          //财务月份
          +AnsiString("AlfhUser, ")            //操作员
          +AnsiString("AlfhKeeper, ")          //仓管员
          +AnsiString("AlfhCancel, ")          //取消
          +AnsiString("AlfhType ");            //调拨类型
 Fromstr=" from SDVW_Alfh ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by AlfhDate desc,Alfhcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgAlfh->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("AlfhCode")+
          "\t"+RsQuery->FieldByName("AlfhFmonth")+
          "\t"+RsQuery->FieldByName("AlfhDate")+
          "\t"+DataConvert("AlfhType",RsQuery->FieldByName("AlfhType"))+
          "\t"+RsQuery->FieldByName("PosTypeName")+
          "\t"+RsQuery->FieldByName("ODeptName")+
          "\t"+RsQuery->FieldByName("IDeptName")+
          "\t"+(RsQuery->FieldByName("AlfhCheck")=="1"?"是":"否")+//审核
          "\t"+(RsQuery->FieldByName("AlfhCancel")=="1"?"是":"否")+//取消
          "\t"+RsQuery->FieldByName("AlfhUser")+
          "\t"+RsQuery->FieldByName("AlfhKeeper")+
          "\t"+RsQuery->FieldByName("AlfhDesc");        //备注
  sgAlfh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Alfh::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="ALFHTYPE") //入库类型数值转换
 {
  if(sFieldValue=="1")
   return("库存调拨");
 }

 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Alfh::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgAlfh->RowCount < 2 || sgAlfh->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("AlfdLine, ")            //行号
          +AnsiString("AlfdGoods, ")           //物料编码
          +AnsiString("GoodsName, ")           //物料名称
          +AnsiString("AlfdUnit, ")            //计量单位
          +AnsiString("AlfdOLoc, ")            //转出货位
          +AnsiString("AlfdILoc, ")            //转达入货位
          +AnsiString("AlfdConv, ")            //换算系数
          +AnsiString("AlfdQty, ")             //调拨数量
          +AnsiString("AlfdSBatch, ")          //原批号
          +AnsiString("AlfdSSo, ")             //原订单号
          +AnsiString("AlfdSSodLine, ")        //原订单行号
          +AnsiString("AlfdDBatch, ")          //转入批号
          +AnsiString("AlfdDSo, ")             //转入订单号
          +AnsiString("AlfdDSodLine, ")        //转入订单行号
          +AnsiString("AlfdDesc ");            //备注
 Fromstr=" from SDVW_Alfd ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where AlfdCode='"+sgAlfh->Cells[0][sgAlfh->Row]+"'";
 Orderstr=" order by AlfdLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Alfd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Alfd(this);
  p->lblAlfhCode->Caption=sgAlfh->Cells[0][sgAlfh->Row];
  p->sgAlfd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("AlfdLine")+
          "\t"+RsQuery->FieldByName("AlfdGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("AlfdUnit")+
          "\t"+RsQuery->FieldByName("AlfdOLoc")+
          "\t"+RsQuery->FieldByName("AlfdILoc")+
          "\t"+RsQuery->FieldByName("AlfdConv")+
          "\t"+RsQuery->FieldByName("AlfdQty")+
          "\t"+RsQuery->FieldByName("AlfdSBatch")+
          "\t"+RsQuery->FieldByName("AlfdSSo")+
          "\t"+RsQuery->FieldByName("AlfdSSodLine")+
          "\t"+RsQuery->FieldByName("AlfdDBatch")+
          "\t"+RsQuery->FieldByName("AlfdDSo")+
          "\t"+RsQuery->FieldByName("AlfdDSodLine")+
          "\t"+RsQuery->FieldByName("AlfdDesc");
   p->sgAlfd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgAlfd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::muFirstClick(TObject *Sender)
{
 if(sgAlfh->RowCount > 1)
 {
  sgAlfh->Row=1;
 }

}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::tbPreviousClick(TObject *Sender)
{
 if(sgAlfh->RowCount > 1 && sgAlfh->Row > 1)
 {
  sgAlfh->Row=sgAlfh->Row-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::muNextClick(TObject *Sender)
{
 if(sgAlfh->RowCount > 1 && sgAlfh->Row < sgAlfh->RowCount-1)
 {
  sgAlfh->Row=sgAlfh->Row+1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::muLastClick(TObject *Sender)
{
 if(sgAlfh->RowCount > 1)
 {
  sgAlfh->Row=sgAlfh->RowCount-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Alfh::sgAlfhDblClick(TObject *Sender)
{
 int ARow=sgAlfh->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------