vw_pivoh.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Pivoh.h"
#include "VW_Pivod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Pivoh *frmVW_Pivoh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Pivoh::TfrmVW_Pivoh(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgPivoh->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Pivoh::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_Pivoh::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Pivoh::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select distinct "
          +AnsiString("PivohCode, ")           //发票号码
          +AnsiString("PivohDate, ")           //发票日期
          +AnsiString("PivohType, ")           //发票类型
          +AnsiString("PivohContract, ")       //合同号
          +AnsiString("SupplyName, ")          //供应商编码
          +AnsiString("PivohBankName, ")       //开户行名称
          +AnsiString("PivohBankNo, ")         //开户帐号
          +AnsiString("PivohDept, ")            //采购部门
          +AnsiString("PivohBuyer, ")          //业务员
          +AnsiString("CurrencyName, ")        //币种
          +AnsiString("PivohEnrate, ")         //汇率
          +AnsiString("TaxName, ")             //税名
          +AnsiString("PivohTaxRate, ")        //税率
          +AnsiString("PivohDesc, ")           //备注
          +AnsiString("SettleModeName, ")      //结算方式
          +AnsiString("PivohApDate, ")         //付款日期
          +AnsiString("PivohFmonth, ")         //财务月份
          +AnsiString("PivohRed, ")            //红字
          +AnsiString("PivohTaxNo, ")          //税号
          +AnsiString("PivohTel, ")            //电话
          +AnsiString("PivohCacCode, ")        //公司帐号
          +AnsiString("PivohCacBankName, ")    //开户行名称
          +AnsiString("PivohAmt, ")            //金额
          +AnsiString("PivohTaxAmt, ")         //税额
          +AnsiString("PivohSumAmt, ")         //价税合计
          +AnsiString("PivohZkAmt, ")          //折扣
          +AnsiString("PivohUser, ")           //操作员
          +AnsiString("PivohCheck, ")          //审核
          +AnsiString("PivohChecker, ")        //审核员
          +AnsiString("PivohCheckDate, ")      //审核日期
          +AnsiString("PivohCancel, ")         //作废
          +AnsiString("PivohCancelDate, ")     //作废日期
          +AnsiString("PivohPoCode ");         //采购单号
 Fromstr=" from SDVW_Pivoh ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by PivohDate desc,Pivohcode desc ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgPivoh->RowCount=1;
 LateBillCode="";
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("PivohCode")+
          "\t"+RsQuery->FieldByName("PivohFmonth")+
          "\t"+RsQuery->FieldByName("PivohDate")+
          "\t"+DataConvert("PivohType",RsQuery->FieldByName("PivohType"))+
          "\t"+(RsQuery->FieldByName("PivohRed")=="1"?"是":"否")+
          "\t"+RsQuery->FieldByName("PivohContract")+
          "\t"+RsQuery->FieldByName("SupplyName")+
          "\t"+RsQuery->FieldByName("PivohPoCode")+
          "\t"+RsQuery->FieldByName("PivohBankName")+
          "\t"+RsQuery->FieldByName("PivohBankNo")+
          "\t"+RsQuery->FieldByName("PivohDept")+
          "\t"+RsQuery->FieldByName("PivohBuyer")+
          "\t"+RsQuery->FieldByName("CurrencyName")+
          "\t"+RsQuery->FieldByName("PivohEnrate")+
          "\t"+RsQuery->FieldByName("TaxName")+
          "\t"+RsQuery->FieldByName("PivohTaxNo")+
          "\t"+RsQuery->FieldByName("PivohTaxRate")+
          "\t"+RsQuery->FieldByName("SettleModeName")+
          "\t"+RsQuery->FieldByName("PivohApDate")+
          "\t"+RsQuery->FieldByName("PivohTel")+
          "\t"+RsQuery->FieldByName("PivohCacCode")+
          "\t"+RsQuery->FieldByName("PivohCacBankName")+
          "\t"+RsQuery->FieldByName("PivohAmt")+
          "\t"+RsQuery->FieldByName("PivohTaxAmt")+
          "\t"+RsQuery->FieldByName("PivohSumAmt")+
          "\t"+RsQuery->FieldByName("PivohZkAmt")+
          "\t"+RsQuery->FieldByName("PivohUser")+
          "\t"+(RsQuery->FieldByName("PivohCheck")=="1"?"是":"否")+
          "\t"+(RsQuery->FieldByName("PivohCancel")=="1"?"是":"否")+
          "\t"+RsQuery->FieldByName("PivohDesc");
  sgPivoh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Pivoh::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="PIVOHTYPE")
 {
  if(sFieldValue=="1")
   return("普通");
  if(sFieldValue=="2")
   return("专用");
 }
 return("");
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Pivoh::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgPivoh->RowCount < 2 || sgPivoh->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("PivodLine, ")           //行号
          +AnsiString("PivodGoods, ")          //物料编码
          +AnsiString("GoodsName, ")           //物料名称
          +AnsiString("PivodUnit, ")           //计量单位
          +AnsiString("PivodQty, ")            //数量
          +AnsiString("PivodPrice, ")          //单价
          +AnsiString("PivodTaxPrice, ")       //含税价
          +AnsiString("PivodAmt, ")            //金额
          +AnsiString("PivodTaxAmt, ")         //税额
          +AnsiString("PivodSumAmt, ")         //合计
          +AnsiString("PivodZkAmt, ")          //折扣
          +AnsiString("PivodPodLine, ")        //采购单行号
          +AnsiString("PivodDesc ");          //备注
 Fromstr=" from SDVW_Pivod ";
/*
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
*/
 Wherestr=" where PivodCode='"+sgPivoh->Cells[0][sgPivoh->Row]+"'";
 Orderstr=" order by PivodLine ";
// sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Pivod *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Pivod(this);
  p->lblPivohCode->Caption=sgPivoh->Cells[0][sgPivoh->Row];
  p->lblPivohPoCode->Caption=sgPivoh->Cells[7][sgPivoh->Row];
  p->sgPivod->RowCount=1;
  RsQuery=NewResultSet();
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("PivodLine")+
          "\t"+RsQuery->FieldByName("PivodPodLine")+
          "\t"+RsQuery->FieldByName("PivodGoods")+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("PivodUnit")+
          "\t"+RsQuery->FieldByName("PivodQty")+
          "\t"+RsQuery->FieldByName("PivodPrice")+
          "\t"+RsQuery->FieldByName("PivodTaxPrice")+
          "\t"+RsQuery->FieldByName("PivodAmt")+
          "\t"+RsQuery->FieldByName("PivodTaxAmt")+
          "\t"+RsQuery->FieldByName("PivodSumAmt")+
          "\t"+RsQuery->FieldByName("PivodZkAmt")+
          "\t"+RsQuery->FieldByName("PivodDesc");
   p->sgPivod->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgPivod->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pivoh::muFirstClick(TObject *Sender)
{
 if(sgPivoh->RowCount > 1)
 {
  sgPivoh->Row=1;
 }

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




void __fastcall TfrmVW_Pivoh::sgPivohDblClick(TObject *Sender)
{
 int ARow=sgPivoh->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------