vw_preth.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Preth.h"
#include "VW_Pretd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Preth *frmVW_Preth;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Preth::TfrmVW_Preth(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgPreth->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Preth::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_Preth::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Preth::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("PrethCode, ")           //退货单号
          +AnsiString("PrethDate, ")           //退货日期
          +AnsiString("PrethFmonth, ")         //月份
          +AnsiString("SupplyName, ")          //供应商编码
          +AnsiString("CurrencyName, ")        //币种
          +AnsiString("TaxName, ")             //税名
          +AnsiString("PosTypeName, ")         //收发类型
          +AnsiString("PsiteName, ")           //退货地址
          +AnsiString("PrethUser, ")           //经办人
          +AnsiString("SettleModeName, ")      //结算方式
          +AnsiString("DeliverName, ")         //交货方式
          +AnsiString("PretRrDesc, ")          //退货原因
          +AnsiString("PrethCheck, ")          //审核
          +AnsiString("PrethCancel, ")         //取消
          +AnsiString("PrethClose, ")          //结清
          +AnsiString("PrethDesc, ")           //备注
          +AnsiString("PrethType, ")           //退货类型
          +AnsiString("TransModeName, ")       //运输方式
          +AnsiString("Amt ");                 //汇总金额
 Fromstr=" from SDVW_Preth ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by PrethDate desc,Prethcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgPreth->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("PrethCode")+
          "\t"+RsQuery->FieldByName("PrethFmonth")+
          "\t"+RsQuery->FieldByName("PrethDate")+
          "\t"+DataConvert("PrethType",RsQuery->FieldByName("PrethType"))+
          "\t"+RsQuery->FieldByName("PosTypeName")+
          "\t"+RsQuery->FieldByName("SupplyName")+
          "\t"+RsQuery->FieldByName("Amt")+
          "\t"+RsQuery->FieldByName("CurrencyName")+
          "\t"+RsQuery->FieldByName("TaxName")+
          "\t"+RsQuery->FieldByName("SettleModeName")+
          "\t"+RsQuery->FieldByName("PsiteName")+
          "\t"+RsQuery->FieldByName("DeliverName")+
          "\t"+RsQuery->FieldByName("TransModeName")+
          "\t"+RsQuery->FieldByName("PrethUser")+
          "\t"+(RsQuery->FieldByName("PrethCheck")=="1"?"是":"否")+//审核
          "\t"+(RsQuery->FieldByName("PrethCancel")=="1"?"是":"否")+//取消
          "\t"+(RsQuery->FieldByName("PrethClose")=="1"?"是":"否")+//取消
          "\t"+RsQuery->FieldByName("PretRrDesc")+
          "\t"+RsQuery->FieldByName("PrethDesc");
  sgPreth->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Preth::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="PRETHTYPE")
 {
  if(sFieldValue=="1")
   return("1-据收货单退货");
  if(sFieldValue=="2")
   return("2-据供应商退货");
 }
 if(sFieldName=="PRETDSTATE")
 {
  if(sFieldValue=="1")
   return("1-准备");
  if(sFieldValue=="2")
   return("2-确认");
  if(sFieldValue=="3")
   return("3-已执行");
 }
 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Preth::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgPreth->RowCount < 2 || sgPreth->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("PretdLine, ")           //行号
          +AnsiString("PretdPrecCode, ")       //收货单号
          +AnsiString("PretdPrecdLine, ")      //收货单行号
          +AnsiString("PretdSo, ")             //销售订单号
          +AnsiString("PretdSodLine, ")        //销售订单行号
          +AnsiString("PretdQty, ")            //退货数量
          +AnsiString("PretdGoods, ")          //物料编码
          +AnsiString("GoodsName, ")           //物料编码
          +AnsiString("PretdUnit, ")           //计量单位
          +AnsiString("PretdConv, ")           //折算系数
          +AnsiString("LocName, ")             //货位
          +AnsiString("PretdPrice, ")          //单价
          +AnsiString("PretdAmt, ")            //金额
          +AnsiString("PretdTaxAmt, ")         //税额
          +AnsiString("PretdBatch, ")          //批号
          +AnsiString("PretdDesc, ")           //备注
          +AnsiString("PretdState, ")          //状态
          +AnsiString("PretdIprice, ")         //库存单价
          +AnsiString("PretdIamt, ")           //库存金额
          +AnsiString("PretdClose, ")          //结清
          +AnsiString("PretdExes ");           //退货费用
 Fromstr=" from SDVW_Pretd ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where PretdCode='"+sgPreth->Cells[0][sgPreth->Row]+"'";
 Orderstr=" order by PretdLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Pretd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Pretd(this);
  p->lblPrethCode->Caption=sgPreth->Cells[0][sgPreth->Row];
  p->sgPretd->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("PretdLine")+
          "\t"+RsQuery->FieldByName("LocName")+
          "\t"+RsQuery->FieldByName("PretdGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("PretdQty")+
          "\t"+RsQuery->FieldByName("PretdUnit")+
          "\t"+RsQuery->FieldByName("PretdConv")+
          "\t"+RsQuery->FieldByName("PretdPrice")+
          "\t"+RsQuery->FieldByName("PretdAmt")+
          "\t"+RsQuery->FieldByName("PretdTaxAmt")+
          "\t"+RsQuery->FieldByName("PretdIprice")+
          "\t"+RsQuery->FieldByName("PretdIamt")+
          "\t"+RsQuery->FieldByName("PretdExes")+
          "\t"+RsQuery->FieldByName("PretdPrecCode")+
          "\t"+RsQuery->FieldByName("PretdPrecdLine")+
          "\t"+RsQuery->FieldByName("PretdSo")+
          "\t"+RsQuery->FieldByName("PretdSodLine")+
          "\t"+RsQuery->FieldByName("PretdBatch")+
          "\t"+DataConvert("PretdState",RsQuery->FieldByName("PretdState"))+
          "\t"+(RsQuery->FieldByName("PretdClose")=="1"?"是":"否")+
          "\t"+RsQuery->FieldByName("PretdDesc");
   p->sgPretd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgPretd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Preth::muFirstClick(TObject *Sender)
{
 if(sgPreth->RowCount > 1)
 {
  sgPreth->Row=1;
 }

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




void __fastcall TfrmVW_Preth::sgPrethDblClick(TObject *Sender)
{
 int ARow=sgPreth->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------