vw_prech.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Prech.h"
#include "VW_Precd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Prech *frmVW_Prech;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Prech::TfrmVW_Prech(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgPrech->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Prech::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_Prech::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Prech::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("PrechCode, ")           //收货单号
          +AnsiString("PrechFmonth, ")         //财务月份
          +AnsiString("PrechDate, ")           //收货日期
          +AnsiString("PosTypeName, ")         //收发类型
          +AnsiString("PrechType, ")           //收退货类型
          +AnsiString("PrechTransCode, ")      //货运单号
          +AnsiString("SupplyName, ")          //供应商
          +AnsiString("CurrencyName, ")        //币种
          +AnsiString("TaxName, ")             //税码
          +AnsiString("PrechSendDate, ")       //发货日期
          +AnsiString("PrechCheck, ")          //审核
          +AnsiString("PrechChecker, ")        //审核人
          +AnsiString("PrechUser, ")           //操作员
          +AnsiString("PrechCancel, ")         //作废
          +AnsiString("PrechClose, ")          //结清
          +AnsiString("PsiteName, ")           //交货地址
          +AnsiString("DeliverName, ")         //交货方式
          +AnsiString("TransModeName, ")       //运输方式
          +AnsiString("SettleModeName ");      //结算方式
 Fromstr=" from SDVW_Prech ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by PrechDate desc,Prechcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgPrech->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("PrechCode")+
          "\t"+RsQuery->FieldByName("PrechFmonth")+
          "\t"+RsQuery->FieldByName("PrechDate")+
          "\t"+DataConvert("PrechType",RsQuery->FieldByName("PrechType"))+
          "\t"+RsQuery->FieldByName("SupplyName")+
          "\t"+RsQuery->FieldByName("CurrencyName")+
          "\t"+RsQuery->FieldByName("TaxName")+
          "\t"+RsQuery->FieldByName("PsiteName")+
          "\t"+RsQuery->FieldByName("DeliverName")+
          "\t"+RsQuery->FieldByName("TransModeName")+
          "\t"+RsQuery->FieldByName("SettleModeName")+
          "\t"+RsQuery->FieldByName("PrechTransCode")+
          "\t"+RsQuery->FieldByName("PrechSendDate")+
          "\t"+RsQuery->FieldByName("PosTypeName")+
          "\t"+(RsQuery->FieldByName("PrechCheck")=="1"?"是":"否")+//审核
          "\t"+(RsQuery->FieldByName("PrechClose")=="1"?"是":"否")+//结清
          "\t"+(RsQuery->FieldByName("PrechCancel")=="1"?"是":"否")+//取消
          "\t"+RsQuery->FieldByName("PrechUser");
  sgPrech->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Prech::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 sFieldValue=UpperCase(sFieldValue);
 if(sFieldName=="PRECHTYPE")
 {
  if(sFieldValue=="P")
   return("按订单");
  if(sFieldValue=="G")
   return("按物料");
  if(sFieldValue=="N")
   return("非计划");
 }
 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Prech::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgPrech->RowCount < 2 || sgPrech->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("PrecdLine, ")           //收货单行号
          +AnsiString("PrecdCode, ")           //收货单号
          +AnsiString("PrecdPo, ")             //采购单号
          +AnsiString("PrecdPodLine, ")        //采购单行号
          +AnsiString("PrecdGoods, ")          //物料代码
          +AnsiString("GoodsName, ")           //物料名称
          +AnsiString("PrecdUnit, ")           //计量单位
          +AnsiString("PrecdConv, ")           //换算比率
          +AnsiString("PrecdQty, ")            //收货数量
          +AnsiString("PrecdPrice, ")          //收货单价
          +AnsiString("PrecdAmt, ")            //收货金额
          +AnsiString("PrecdTAmt, ")           //税额
          +AnsiString("PrecdKAmt, ")           //折扣
          +AnsiString("PrecdRAmt, ")           //折让
          +AnsiString("PrecdOAmt, ")           //其它费用
          +AnsiString("LocName, ")             //货位名称
          +AnsiString("PrecdDQty, ")           //送货数量
          +AnsiString("PrecdEQty, ")           //合格数量
          +AnsiString("PrecdBQty, ")           //退货数量
          +AnsiString("PrecdIQty, ")           //入库数量
          +AnsiString("PrecdVQty, ")           //发票数量
          +AnsiString("PrecdBatch, ")          //批号
          +AnsiString("PrecdSo, ")             //销售订单号
          +AnsiString("PrecdSodLine, ")        //订单行号
          +AnsiString("PrecdCDate, ")          //交货日期
          +AnsiString("PrecdRDate, ")          //需求日期
          +AnsiString("PrecdDesc, ")           //备注
          +AnsiString("PrecdClose, ")          //结清
          +AnsiString("PrecdState ");          //行状态
 Fromstr=" from SDVW_Precd ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where PrecdCode='"+sgPrech->Cells[0][sgPrech->Row]+"'";
 Orderstr=" order by PrecdLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Precd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Precd(this);
  p->lblPrechCode->Caption=sgPrech->Cells[0][sgPrech->Row];
  p->sgPrecd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("PrecdLine")+
          "\t"+RsQuery->FieldByName("PrecdPo")+
          "\t"+RsQuery->FieldByName("PrecdPodLine")+
          "\t"+RsQuery->FieldByName("LocName")+
          "\t"+RsQuery->FieldByName("PrecdGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("PrecdBatch")+
          "\t"+RsQuery->FieldByName("PrecdUnit")+
          "\t"+RsQuery->FieldByName("PrecdConv")+
          "\t"+RsQuery->FieldByName("PrecdDQty")+
          "\t"+RsQuery->FieldByName("PrecdQty")+
          "\t"+RsQuery->FieldByName("PrecdEQty")+
          "\t"+RsQuery->FieldByName("PrecdIQty")+
          "\t"+RsQuery->FieldByName("PrecdBQty")+
          "\t"+RsQuery->FieldByName("PrecdVQty")+
          "\t"+RsQuery->FieldByName("PrecdPrice")+
          "\t"+RsQuery->FieldByName("PrecdAmt")+
          "\t"+RsQuery->FieldByName("PrecdTAmt")+
          "\t"+RsQuery->FieldByName("PrecdKAmt")+
          "\t"+RsQuery->FieldByName("PrecdRAmt")+
          "\t"+RsQuery->FieldByName("PrecdOAmt")+
          "\t"+RsQuery->FieldByName("PrecdSo")+
          "\t"+RsQuery->FieldByName("PrecdSodLine")+
          "\t"+RsQuery->FieldByName("PrecdCDate")+
          "\t"+RsQuery->FieldByName("PrecdRDate")+
          "\t"+(RsQuery->FieldByName("PrecdClose")=="1"?"是":"否")+
          "\t"+RsQuery->FieldByName("PrecdDesc");

   p->sgPrecd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgPrecd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete p;
  delete RsQuery;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Prech::muFirstClick(TObject *Sender)
{
 if(sgPrech->RowCount > 1)
 {
  sgPrech->Row=1;
 }

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




void __fastcall TfrmVW_Prech::sgPrechDblClick(TObject *Sender)
{
 int ARow=sgPrech->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------