vw_arivh.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 324 行

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Arivh.h"
#include "VW_Arivd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmVW_Arivh *frmVW_Arivh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arivh::TfrmVW_Arivh(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 //初始化
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgArivh->RowCount=1;
 QueryGrid=sgArivh;
}
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arivh::TfrmVW_Arivh(TComponent* Owner,AnsiString wherestr)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgArivh->RowCount=1;
 QueryGrid=sgArivh;

 tbControl->Enabled=false;
 TBorderIcons tempBI = BorderIcons;
 tempBI >> biMinimize;
 BorderIcons = tempBI;
 FilterStr=wherestr;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::tbQueryClick(TObject *Sender)
{
 // if(!ShowQueryWindow())
  //  return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Arivh::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select "
          +AnsiString("ArivhCode, ")           //应收发票号
          +AnsiString("ArivhFmonth, ")         //月份
          +AnsiString("ArivhDate, ")           //日期
          +AnsiString("ClientName, ")         //客户
          +AnsiString("CurrencyName, ")       //币种
          +AnsiString("ArivhEnrate, ")         //汇率
          +AnsiString("ArivhRed, ")            //红字
          +AnsiString("ArivhDesc, ")           //备注
          +AnsiString("ArivhRDate, ")          //应收日期
          +AnsiString("ArivhUser, ")           //操作员
          +AnsiString("ArivhCheck, ")          //审核标志
          +AnsiString("ArivhChecker, ")        //审核人
          +AnsiString("ArivhCheckDate, ")      //审核日期
          +AnsiString("TotalAmt ");
 Fromstr=" from SdVW_Arivh ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by ArivhFmonth DESC,ArivhClient,ArivhCode ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgArivh->RowCount=1;
 LateBillCode="";
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  AnsiString tmp;
  tmp=RsQuery->FieldByName("ArivhRed")=="-1"?"√":"";
  ItemStr=tmp+
          "\t"+RsQuery->FieldByName("ArivhFmonth")+
          "\t"+RsQuery->FieldByName("ClientName")+
          "\t"+RsQuery->FieldByName("ArivhCode")+
          "\t"+RsQuery->FieldByName("ArivhDate")+
          "\t"+RsQuery->FieldByName("CurrencyName")+
          "\t"+RsQuery->FieldByName("ArivhEnrate")+
          "\t"+RsQuery->FieldByName("TotalAmt")+
          "\t"+RsQuery->FieldByName("ArivhRDate")+
          "\t"+(RsQuery->FieldByName("ArivhCheck")=="1"?"√":"")+
          "\t"+RsQuery->FieldByName("ArivhChecker")+
          "\t"+RsQuery->FieldByName("ArivhCheckDate")+
          "\t"+RsQuery->FieldByName("ArivhUser")+
          "\t"+RsQuery->FieldByName("ArivhDesc");
  sgArivh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Arivh::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName == "ARIVDDOCTYPE")
 {
  if(sFieldValue == "0")
   return("无");
  if(sFieldValue == "1")
   return("销售发货单");
  if(sFieldValue == "2")
   return("销售退货单");
  if(sFieldValue == "3")
   return("原应收发票");
 }
 if(sFieldName == "ARIVDFROM")
 {
  if(sFieldValue == "1")
   return("手工");
  if(sFieldValue == "2")
   return("生成");
 }
 return("");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Arivh::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgArivh->RowCount < 2 || sgArivh->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("ArivdLine, ")           //发票行号
          +AnsiString("ArivdArlt, ")           //行类型
          +AnsiString("ArivdDocType, ")        //来源单据类型
          +AnsiString("ArivdDocCode, ")        //单据号
          +AnsiString("ArivdDocLine, ")        //单据行号
          +AnsiString("ArivdGoods, ")          //物料编码
          +AnsiString("ArivdUnit, ")           //计量单位
          +AnsiString("ArivdQty, ")            //数量
          +AnsiString("ArivdPrice, ")          //单价
          +AnsiString("ArivdTaxCode, ")        //税码
          +AnsiString("ArivdTRate, ")          //税率
          +AnsiString("ArivdTAmt, ")           //税额
          +AnsiString("ArivdNAmt, ")           //净额
          +AnsiString("ArivdAmt, ")            //合计
          +AnsiString("ArivdDRate, ")          //折扣率
          +AnsiString("ArivdDAmt, ")           //折扣额
          +AnsiString("ArivdCAmt, ")           //核销金额
          +AnsiString("ArivdRAmt, ")           //红冲金额
          +AnsiString("ArivdFrom, ")           //来源
          +AnsiString("ArivdState, ")          //状态
          +AnsiString("ArivdDesc, ")           //备注
          +AnsiString("ArivdPzCode, ")         //凭证号
          +AnsiString("ArivdBAmt ");           //坏账金额

 Fromstr=" from SdVW_Arivd ";
 Wherestr =" where ArivdCode='"+sgArivh->Cells[3][sgArivh->Row]+"'";
 Orderstr=" order by ArivdLine";
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Arivd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Arivd(this);
  p->seCode->Text=sgArivh->Cells[3][sgArivh->Row];
  p->seClientName->Text=sgArivh->Cells[2][sgArivh->Row];
  p->seDocType->Text="";
  p->sgArivd->RowCount=1;
  RsQuery=new  TComResultSet(Handle,g_ClientHandle);
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   if(p->seDocType->Text == "")
    p->seDocType->Text=DataConvert("ArivdDocType",RsQuery->FieldByName("ArivdDocType"));
   ItemStr=    RsQuery->FieldByName("ArivdLine")+
          "\t"+RsQuery->FieldByName("ArivdArlt")+
          "\t"+DataConvert("ArivdFrom",RsQuery->FieldByName("ArivdFrom"))+
          "\t"+RsQuery->FieldByName("ArivdDocCode")+
          "\t"+RsQuery->FieldByName("ArivdDocLine")+
          "\t"+RsQuery->FieldByName("ArivdGoods")+
          "\t"+RsQuery->FieldByName("ArivdUnit")+
          "\t"+RsQuery->FieldByName("ArivdQty")+
          "\t"+RsQuery->FieldByName("ArivdPrice")+
          "\t"+RsQuery->FieldByName("ArivdDRate")+
          "\t"+RsQuery->FieldByName("ArivdDAmt")+
          "\t"+RsQuery->FieldByName("ArivdNAmt")+
          "\t"+RsQuery->FieldByName("ArivdTaxCode")+
          "\t"+RsQuery->FieldByName("ArivdTRate")+
          "\t"+RsQuery->FieldByName("ArivdTAmt")+
          "\t"+RsQuery->FieldByName("ArivdAmt")+
          "\t"+RsQuery->FieldByName("ArivdCAmt")+
          "\t"+RsQuery->FieldByName("ArivdRAmt")+
          "\t"+RsQuery->FieldByName("ArivdBAmt")+
          "\t"+RsQuery->FieldByName("ArivdPzCode")+
          "\t"+RsQuery->FieldByName("ArivdDesc");
   p->sgArivd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgArivd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arivh::muFirstClick(TObject *Sender)
{
 if(sgArivh->RowCount > 1)
 {
  sgArivh->Row=1;
 }

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