vw_poh.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Poh.h"
#include "VW_Pod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Poh *frmVW_Poh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Poh::TfrmVW_Poh(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgPoh->RowCount=1;
}
//---------------------------------------------------------------------------
__fastcall TfrmVW_Poh::TfrmVW_Poh(TComponent* Owner,AnsiString wherestr)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgPoh->RowCount=1;

 tbControl->Visible=false;
// frmVW_Poh->BorderIcons  >> biMinimize;
 FilterStr=wherestr;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Poh::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_Poh::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Poh::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("PohCode, ")             //采购单号
          +AnsiString("SupplyName, ")          //供应商代码
          +AnsiString("CurrencyName, ")        //币种
          +AnsiString("TaxName, ")             //税码
          +AnsiString("PmodeName, ")           //采购方式
          +AnsiString("PohContract, ")         //合同号
          +AnsiString("SettleModeName, ")      //结算方式
          +AnsiString("PohBuyer, ")            //采购员
          +AnsiString("PohDate, ")             //操作日期
          +AnsiString("PohDesc, ")             //备注
          +AnsiString("PohSugDate, ")          //建议发放日期
          +AnsiString("PohAmt, ")              //采购单总金额
          +AnsiString("PohPayTerm, ")          //付款期限
          +AnsiString("PohPrePayAmt, ")        //预付订金
          +AnsiString("PohCheck, ")            //是否批准(确认)
          +AnsiString("PohCancel, ")           //取消否
          +AnsiString("PohCarriage, ")         //运费
          +AnsiString("PohStop, ")             //采购单中止
          +AnsiString("PohClose, ")            //结清
          +AnsiString("PsiteName, ")           //交货地址
          +AnsiString("DeliverName, ")         //交货方式
          +AnsiString("TransModeName, ")       //运输方式
          +AnsiString("PohUser ");             //操作员
 Fromstr=" from SDVW_Poh ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by PohDate desc,Pohcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgPoh->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("PohCode")+
          "\t"+RsQuery->FieldByName("PohDate")+
          "\t"+RsQuery->FieldByName("PmodeName")+
          "\t"+RsQuery->FieldByName("PohAmt")+
          "\t"+RsQuery->FieldByName("SupplyName")+
          "\t"+RsQuery->FieldByName("SettleModeName")+
          "\t"+RsQuery->FieldByName("CurrencyName")+
          "\t"+RsQuery->FieldByName("TaxName")+
          "\t"+RsQuery->FieldByName("PsiteName")+
          "\t"+RsQuery->FieldByName("DeliverName")+
          "\t"+RsQuery->FieldByName("TransModeName")+
          "\t"+RsQuery->FieldByName("PohContract")+
          "\t"+RsQuery->FieldByName("PohSugDate")+
          "\t"+RsQuery->FieldByName("PohPayTerm")+
          "\t"+RsQuery->FieldByName("PohPrePayAmt")+
          "\t"+RsQuery->FieldByName("PohCarriage")+
          "\t"+RsQuery->FieldByName("PohUser")+
          "\t"+(RsQuery->FieldByName("PohCheck")=="1"?"是":"否")+//审核
          "\t"+(RsQuery->FieldByName("PohCancel")=="1"?"是":"否")+//取消
          "\t"+(RsQuery->FieldByName("PohStop")=="1"?"是":"否")+//取消
          "\t"+(RsQuery->FieldByName("PohClose")=="1"?"是":"否")+//取消
          "\t"+RsQuery->FieldByName("PohBuyer")+
          "\t"+RsQuery->FieldByName("PohDesc");
  sgPoh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Poh::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="PODTYPE")
 {
  if(sFieldValue=="1")
   return("1-手工录入");
  if(sFieldValue=="2")
   return("2-自动生成");
 }
 if(sFieldName=="PODSTATUS")
 {
  if(sFieldValue=="1")
   return("1-待审核");
  if(sFieldValue=="2")
   return("2-已确认");
  if(sFieldValue=="3")
   return("3-已下达");
  if(sFieldValue=="4")
   return("4-已关闭");
 }
 if(sFieldName=="PODFROM")
 {
  if(sFieldValue=="1")
   return("1-常规需求");
  if(sFieldValue=="2")
   return("2-MRP需求");
  if(sFieldValue=="3")
   return("3-库存需求");
 }
 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Poh::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgPoh->RowCount < 2 || sgPoh->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("PodLine, ")             //采购单行号
          +AnsiString("PodGoods, ")            //货物编码
          +AnsiString("GoodsName, ")           //货物编码
          +AnsiString("PodUnit, ")             //采购单位
          +AnsiString("PodConvRate, ")         //换算比率
          +AnsiString("PodQty, ")              //采购数量
          +AnsiString("PodPrice, ")            //采购单价
          +AnsiString("PodAmt, ")              //采购金额
          +AnsiString("PodType, ")             //行类型
          +AnsiString("PodStatus, ")           //行状态
          +AnsiString("PodFrom, ")             //需求来源
          +AnsiString("LocName, ")             //需求货位
          +AnsiString("PodDept, ")            //需求部门
          +AnsiString("PodReqDate, ")          //需求日期
          +AnsiString("PodRecDate, ")          //交货日期
          +AnsiString("PodDesc, ")             //备注
          +AnsiString("PodClose, ")            //结清标志
          +AnsiString("PodDQty, ")            //送货数量
          +AnsiString("PodRQty, ")            //收货数量
          +AnsiString("PodBQty, ")             //退货数量
          +AnsiString("PodFQty, ")            //返修数量
          +AnsiString("PodEQty ")             //换货数量
          +AnsiString("PodWQty, ")            //在途数量
          +AnsiString("PodSo, ")               //订单号
          +AnsiString("PodSodLine, ")          //订单行号
          +AnsiString("PodBatch, ")            //批号
          +AnsiString("PodSendDate, ")         //发货日期
          +AnsiString("PodFromCode, ")         //来源单号
          +AnsiString("PodFromLine ");         //来源行号
 Fromstr=" from SDVW_Pod ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where PodCode='"+sgPoh->Cells[0][sgPoh->Row]+"'";
 Orderstr=" order by PodLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Pod *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Pod(this);
  p->lblPohCode->Caption=sgPoh->Cells[0][sgPoh->Row];
  p->sgPod->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("PodLine")+
          "\t"+RsQuery->FieldByName("PodDept")+
          "\t"+RsQuery->FieldByName("LocName")+
          "\t"+RsQuery->FieldByName("PodGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("PodQty")+
          "\t"+RsQuery->FieldByName("PodUnit")+
          "\t"+RsQuery->FieldByName("PodConvRate")+
          "\t"+RsQuery->FieldByName("PodPrice")+
          "\t"+RsQuery->FieldByName("PodAmt")+
          "\t"+DataConvert("PodType",RsQuery->FieldByName("PodType"))+
          "\t"+DataConvert("PodFrom",RsQuery->FieldByName("PodFrom"))+
          "\t"+RsQuery->FieldByName("PodReqDate")+
          "\t"+RsQuery->FieldByName("PodSendDate")+
          "\t"+RsQuery->FieldByName("PodRecDate")+
          "\t"+RsQuery->FieldByName("PodDQty")+
          "\t"+RsQuery->FieldByName("PodRQty")+
          "\t"+RsQuery->FieldByName("PodBQty")+
          "\t"+RsQuery->FieldByName("PodFQty")+
          "\t"+RsQuery->FieldByName("PodWQty")+
          "\t"+RsQuery->FieldByName("PodSo")+
          "\t"+RsQuery->FieldByName("PodSodLine")+
          "\t"+RsQuery->FieldByName("PodBatch")+
          "\t"+(RsQuery->FieldByName("PodClose")=="1"?"是":"否")+
          "\t"+DataConvert("PodStatus",RsQuery->FieldByName("PodStatus"))+
          "\t"+RsQuery->FieldByName("PodFromCode")+
          "\t"+RsQuery->FieldByName("PodFromLine")+
          "\t"+RsQuery->FieldByName("PodDesc");
   p->sgPod->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgPod->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Poh::muFirstClick(TObject *Sender)
{
 if(sgPoh->RowCount > 1)
 {
  sgPoh->Row=1;
 }

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