mssd.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSsd *sdSsd;
//---------------------------------------------------------------------------
__fastcall TKSSsd::TKSSsd()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSsd::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //客户代码
      ValidSsdClient();
      break;
    case 2:  //币种
      ValidSsdCurrency();
      break;
    case 3:  //银行帐号
      ValidSsdBankNo();
      break;
    case 4:  //银行名称
      ValidSsdBankName();
      break;
    case 5:  //客户主币种
      ValidSsdPrimary();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSsd::ValidSsdClient()  //客户代码
{                          /*/
   AnsiString  m_SsdClient;
   AnsiString  b_SsdClient;
   m_SsdClient=GetMasterValue("SsdClient");
   b_SsdClient=GetMasterOldValue("SsdClient");
    if(m_SsdClient.IsEmpty())
      throw Exception("客户编码不能为空");
    if(m_SsdClient.Length()>18)
      throw Exception("客户编码长度不能大于18");
    if(m_SsdClient!=b_SsdClient)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select clientcode from sdclient where clientcode='"+m_SsdClient+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("客户编码:'"+m_SsdClient+"'未定义");
      }
      Query->Close();
    }                         /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSsd::ValidSsdCurrency()  //币种
{
   AnsiString  m_SsdCurrency;
   AnsiString  b_SsdCurrency;
   m_SsdCurrency=GetMasterValue("SsdCurrency");
   b_SsdCurrency=GetMasterOldValue("SsdCurrency");
    if(m_SsdCurrency.IsEmpty())
      throw Exception("币种编码不能为空");
    if(m_SsdCurrency.Length()>18)
      throw Exception("币种编码长度不能大于18");
    if(m_SsdCurrency!=b_SsdCurrency)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select currencycode from sdcurrency where currencycode='"+GetMasterValue("SsdCurrency")+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("币种编码:'"+m_SsdCurrency+"'未定义");
      }
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select * from sdSsd where Ssdcurrency='"+m_SsdCurrency+"' and SsdClient='"+GetMasterValue("SsdClient")+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("该客户的币种为:'"+m_SsdCurrency+"'已有定义");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSSsd::ValidSsdBankNo()  //银行帐号
{
   AnsiString  m_SsdBankNo;
   AnsiString  b_SsdBankNo;
   m_SsdBankNo=GetMasterValue("SsdBankNo");
   b_SsdBankNo=GetMasterOldValue("SsdBankNo");
   if(m_SsdBankNo.IsEmpty())
   throw Exception("银行帐号不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsd::ValidSsdBankName()  //银行名称
{
   AnsiString  m_SsdBankName;
   AnsiString  b_SsdBankName;
   m_SsdBankName=GetMasterValue("SsdBankName");
   b_SsdBankName=GetMasterOldValue("SsdBankName");
   if(m_SsdBankName.IsEmpty())
   throw Exception("银行名称不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsd::ValidSsdPrimary()  //客户主币种
{
   int m_SsdPrimary;
   int b_SsdPrimary;
   m_SsdPrimary=GetMasterValue("SsdPrimary");
   b_SsdPrimary=GetMasterOldValue("SsdPrimary");
       if(m_SsdPrimary!=b_SsdPrimary)
       {
        if(m_SsdPrimary==1)
          {
            Query->Close();
            Query->SQL->Clear();
            Query->SQL->Add("Select * from sdSsd where SsdClient='"+GetMasterValue("SsdClient")+"' and SsdPrimary=1 and SsdCurrency<>'"+GetMasterValue("SsdCurrency")+"'");
            Query->Open();
            if(Query->RecordCount>0)
            {
              Query->Close();
              throw Exception("该客户已有默认主币种");
            }
            Query->Close();
          }
       }
}
//---------------------------------------------------------------------------
void __fastcall TKSSsd::CmdExec(AnsiString Param)
{

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