mpsite.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPsite *sdPsite;
//---------------------------------------------------------------------------
__fastcall TKSPsite::TKSPsite()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPsite::ValidHeadValues()
{
   AnsiString  m_PsiteName;
   m_PsiteName=GetMasterValue("PsiteName");
    if(m_PsiteName.LowerCase().IsEmpty())
      throw Exception("交货地址名称不能为空");
    if(m_PsiteName.LowerCase().Length()>20)
      throw Exception("交货地址名称长度不能大于20");

   AnsiString  m_PsiteAddr;
   m_PsiteAddr=GetMasterValue("PsiteAddr");
    if(m_PsiteAddr.LowerCase().IsEmpty())
      throw Exception("地址不能为空");
    if(m_PsiteAddr.LowerCase().Length()>40)
      throw Exception("地址长度不能大于40");

   AnsiString  m_PsiteLinkman;
   m_PsiteLinkman=GetMasterValue("PsiteLinkman");
    if(m_PsiteLinkman.LowerCase().Length()>20)
      throw Exception("联系人长度不能大于20");

   AnsiString  m_PsiteTel;
   m_PsiteTel=GetMasterValue("PsiteTel");
    if(m_PsiteTel.LowerCase().Length()>20)
      throw Exception("电话长度不能大于20");

   AnsiString  m_PsiteFax;
   m_PsiteFax=GetMasterValue("PsiteFax");
    if(m_PsiteFax.LowerCase().Length()>20)
      throw Exception("传真长度不能大于20");

   AnsiString  m_PsiteZip;
   m_PsiteZip=GetMasterValue("PsiteZip");
   if(m_PsiteZip.LowerCase().Length()>6)
     throw Exception("邮政编码长度不能大于6");

   AnsiString  m_PsiteEmail;
   m_PsiteEmail=GetMasterValue("PsiteEmail");
    if(m_PsiteEmail.LowerCase().Length()>20)
      throw Exception("E-MAIL长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSPsite::CmdExec(AnsiString Param)
{

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