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

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

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

#pragma package(smart_init)
TKSPsd *sdPsd;
//---------------------------------------------------------------------------
__fastcall TKSPsd::TKSPsd()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPsd::ValidHeadValues()
{

   AnsiString  m_PsdBankName;
   AnsiString  b_PsdBankName;
   m_PsdBankName=GetMasterValue("PsdBankName");
   b_PsdBankName=GetMasterOldValue("PsdBankName");
   if(m_PsdBankName.LowerCase().IsEmpty())
    throw Exception("銀行名稱不允許為空");
   if(m_PsdBankName.LowerCase().Length() > 20)
    throw Exception("銀行名稱長度不能多于20（10個漢字）");
   b_PsdBankName.LowerCase() = m_PsdBankName.LowerCase();

   AnsiString  m_PsdBankNo;
   AnsiString  b_PsdBankNo;
   m_PsdBankNo=GetMasterValue("PsdBankNo");
   b_PsdBankNo=GetMasterOldValue("PsdBankNo");
   if(m_PsdBankNo.LowerCase().IsEmpty())
    throw Exception("銀行帳號不允許為空");
   if(m_PsdBankNo.LowerCase().Length() > 30)
    throw Exception("銀行帳號長度不能多于30");
    b_PsdBankNo.LowerCase() = m_PsdBankNo.LowerCase();
}
//---------------------------------------------------------------------------
void __fastcall TKSPsd::CmdExec(AnsiString Param)
{

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