mprepb.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop
#include "mPrePb.h"

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

#pragma package(smart_init)
TKSPrePb *sdPrePb;
//---------------------------------------------------------------------------
__fastcall TKSPrePb::TKSPrePb()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidHeadValues()
{
  //预付单号
      ValidPrePbCode();
  //月份
      ValidPrePbFmonth();
  //日期
      ValidPrePbDate();
  //供应商
      ValidPrePbSupply();
 //币种
      ValidPrePbCurrency();
 //汇率
      ValidPrePbEnrate();
  //金额
      ValidPrePbAmt();
  //结算方式
      ValidPrePbSettleMode();
 //结算号
      ValidPrePbSettleCode();
  //备注
      ValidPrePbDesc();
  //核销金额
      ValidPrePbCAmt();
 //出纳号
      ValidPrePbFbbNo();
  //出纳帐号
      ValidPrePbFbbCac();
  //来源
      ValidPrePbFrom();
 //操作员
      ValidPrePbUser();
 //审核标志
      ValidPrePbCheck();
  //审核人
      ValidPrePbChecker();
 //审核日期
      ValidPrePbCheckDate();
  //状态
      ValidPrePbState();
 //系统日期
      ValidPrePbSysDate();

}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbCode()  //预付单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbDate()  //日期
{

}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbSupply()  //供应商
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbCurrency()  //币种
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbEnrate()  //汇率
{
  double m_PrePbEnrate;
  AnsiString m_PrePbCurrency;
  m_PrePbCurrency=GetMasterValue("PrePbCurrency");
   m_PrePbEnrate=GetMasterValue("PrePbEnrate");
    if(m_PrePbEnrate<=0)
      throw Exception("汇率不能小于等于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbAmt()  //金额
{
  double m_PrePbAmt;
   m_PrePbAmt=GetMasterValue("PrePbAmt");
     if(m_PrePbAmt<0)
        throw Exception("金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbSettleMode()  //结算方式
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbSettleCode()  //结算号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbCAmt()  //核销金额
{
  double m_PrePbCAmt;
   m_PrePbCAmt=GetMasterValue("PrePbCAmt");
     if(m_PrePbCAmt<0)
        throw Exception("核销金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbFbbNo()  //出纳号
{

}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbFbbCac()  //出纳帐号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbFrom()  //来源
{
   int m_PrePbFrom;
   m_PrePbFrom=GetMasterValue("PrePbFrom");
    if (m_PrePbFrom!=1 && m_PrePbFrom!=2)
        throw Exception("来源只能取值: 1-手工 2-生成");
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbUser()  //操作员
{
/*
   AnsiString  m_PrePbUser;
   AnsiString  b_PrePbUser;
   m_PrePbUser=GetMasterValue("PrePbUser");
   b_PrePbUser=GetMasterOldValue("PrePbUser");
    if(m_PrePbUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_PrePbUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_PrePbUser!=b_PrePbUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_PrePbUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_PrePbUser+"未定义!");
      }
      Query->Close();
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbCheck()  //审核标志
{
   int m_PrePbCheck;
   m_PrePbCheck=GetMasterValue("PrePbCheck");
    if(m_PrePbCheck!=0 && m_PrePbCheck!=1)
       throw Exception("审核标志只能取值: 0-未审核 1-已审核!");
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbChecker()  //审核人
{
/*
   AnsiString  m_PrePbChecker;
   int  m_PrePbCheck;
   m_PrePbChecker=GetMasterValue("PrePbChecker");
   m_PrePbCheck=GetMasterValue("PrePbCheck");
   if(m_PrePbCheck==1)
   {
      if(m_PrePbChecker.IsEmpty())
        throw Exception("审核员编码不能为空!");
      if(m_PrePbChecker.Length()>18)
        throw Exception("审核员长度不能大于18!");
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_PrePbChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_PrePbChecker+"未定义或没有审核权限!");
        }
        Query->Close();
    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbState()  //状态
{
   int m_PrePbState;
   m_PrePbState=GetMasterValue("PrePbState");
    if(m_PrePbState!=1&&m_PrePbState!=2)
      throw Exception("状态只能取值: 1-状态一 2-状态二!");
}

//---------------------------------------------------------------------------
void __fastcall TKSPrePb::ValidPrePbSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrePb::CmdExec(AnsiString Param)
{

}
//---------------------------------------------------------------------------