mfbb.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "mFbb.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)

TKSFbb *sdFbb;
//---------------------------------------------------------------------------
__fastcall TKSFbb::TKSFbb()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFbb::ValidHeadValues()
{
    AnsiString m_FbbNo=GetMasterValue("FbbNo");
    AnsiString b_FbbNo=GetMasterOldValue("FbbNo");
    if(m_FbbNo<=0)
      throw Exception("出纳帐流水号必须大于零");
    if(m_FbbNo!=b_FbbNo)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select FbbCac from sdFbb where FbbNo="+AnsiString(m_FbbNo)
                         +" and FbbCac='"+GetMasterValue("FbbCac")+"' and FbbFMonth='"+GetMasterValue("FbbFMonth")+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("期间:'"+GetMasterValue("FbbFMonth")+"',帐户:'"+GetMasterValue("FbbCac")+"'的流水号:"+AnsiString(m_FbbNo)+"已经存在");
      }
    }

    int m_FbbType;
    m_FbbType=GetMasterValue("FbbType");
    if(m_FbbType<1 || m_FbbType>7)
      throw Exception("出纳日记帐的类型只能为(1-费用,2-客户往来,3-供应商往来,4-部门,5-个人,6-内部转帐,7-换汇.)");

        double m_FbbAmt;
    m_FbbAmt=GetMasterValue("FbbAmt");
    if(m_FbbAmt<0 )
      throw Exception("金额不能小于零");

    AnsiString  m_FbbExpense;
    m_FbbExpense=GetMasterValue("FbbExpense");
    if(m_FbbType==1 && m_FbbExpense.IsEmpty())
      throw Exception("必须选择费用代码");

    AnsiString  m_FbbClient;

    m_FbbClient=GetMasterValue("FbbClient");
    if(m_FbbType==2 && m_FbbClient.IsEmpty())
      throw Exception("必须选择客户");

    AnsiString  m_FbbSupply;
    m_FbbSupply=GetMasterValue("FbbSupply");
    if(m_FbbType==3 && m_FbbSupply.IsEmpty())
      throw Exception("必须选择供应商");

    AnsiString  m_FbbDept;
    m_FbbDept=GetMasterValue("FbbDept");
    if(m_FbbType==4 && m_FbbDept.IsEmpty())
      throw Exception("必须选择部门");

    AnsiString  m_FbbEmployee;
    m_FbbEmployee=GetMasterValue("FbbEmployee");
    if(m_FbbType==5 && m_FbbEmployee.IsEmpty())
      throw Exception("必须选择个人");

    AnsiString  m_FbbFromCac;
    m_FbbFromCac=GetMasterValue("FbbFromCac");
    if(m_FbbType>=6  && m_FbbFromCac.IsEmpty())
       throw Exception("必须选择转出帐号");

    double m_FbbFromRate;
    m_FbbFromRate=GetMasterValue("FbbFromRate");
    if(m_FbbType==7 && m_FbbFromRate<0)
      throw Exception("汇率不能小于零");

    double m_FbbFromAmt;
    m_FbbFromAmt=GetMasterValue("FbbFromAmt");
    if(m_FbbType==7 && m_FbbFromAmt<0)
       throw Exception("转出金额不能小于零");

}
//---------------------------------------------------------------------------
void __fastcall TKSFbb::CmdExec(AnsiString Param)
{

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