msupply.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSupply *sdSupply;
//---------------------------------------------------------------------------
__fastcall TKSSupply::TKSSupply()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSupply::ValidHeadValues()
{
   AnsiString  m_SupplyDesc;
   AnsiString  b_SupplyDesc;
   m_SupplyDesc=GetMasterValue("SupplyDesc");
   b_SupplyDesc=GetMasterOldValue("SupplyDesc");
    if(m_SupplyDesc.LowerCase().Length()>40)
      throw Exception("备注长度不能大于40");
    b_SupplyDesc.LowerCase() = m_SupplyDesc.LowerCase();


   AnsiString  m_SupplyLegalman;
   AnsiString  b_SupplyLegalman;
   m_SupplyLegalman=GetMasterValue("SupplyLegalman");
   b_SupplyLegalman=GetMasterOldValue("SupplyLegalman");
    if(m_SupplyLegalman.LowerCase().Length()>10)
      throw Exception("法人名称长度不能大于10");
    b_SupplyLegalman.LowerCase() = m_SupplyLegalman.LowerCase();

   AnsiString  m_SupplyLinkman;
   AnsiString  b_SupplyLinkman;
   m_SupplyLinkman=GetMasterValue("SupplyLinkman");
   b_SupplyLinkman=GetMasterOldValue("SupplyLinkman");
    if(m_SupplyLinkman.LowerCase().Length()>20)
      throw Exception("联系人名称长度不能大于20");
    b_SupplyLinkman.LowerCase() = m_SupplyLinkman.LowerCase();

   AnsiString  m_SupplyAddr;
   AnsiString  b_SupplyAddr;
   m_SupplyAddr=GetMasterValue("SupplyAddr");
   b_SupplyAddr=GetMasterOldValue("SupplyAddr");
    if(m_SupplyAddr.LowerCase().Length()>40)
      throw Exception("地址长度不能大于40");
    b_SupplyAddr.LowerCase() = m_SupplyAddr.LowerCase();

   AnsiString  m_SupplyZip;
   AnsiString  b_SupplyZip;
   m_SupplyZip=GetMasterValue("SupplyZip");
   b_SupplyZip=GetMasterOldValue("SupplyZip");
    if(m_SupplyZip.LowerCase().Length()>6)
      throw Exception("邮编长度不能大于6");
    b_SupplyZip.LowerCase() = m_SupplyZip.LowerCase();

  AnsiString  m_SupplyTel;
   AnsiString  b_SupplyTel;
   m_SupplyTel=GetMasterValue("SupplyTel");
   b_SupplyTel=GetMasterOldValue("SupplyTel");
    if(m_SupplyTel.LowerCase().Length()>20)
      throw Exception("电话长度不能大于20");
    b_SupplyTel.LowerCase() = m_SupplyTel.LowerCase();

   AnsiString  m_SupplyFax;
   AnsiString  b_SupplyFax;
   m_SupplyFax=GetMasterValue("SupplyFax");
   b_SupplyFax=GetMasterOldValue("SupplyFax");
    if(m_SupplyFax.LowerCase().Length()>20)
      throw Exception("传真长度不能大于20");
    b_SupplyFax.LowerCase() = m_SupplyFax.LowerCase();

   AnsiString  m_SupplyEmail;
   AnsiString  b_SupplyEmail;
   m_SupplyEmail=GetMasterValue("SupplyEmail");
   b_SupplyEmail=GetMasterOldValue("SupplyEmail");
    if(m_SupplyEmail.LowerCase().Length()>20)
      throw Exception("E-MAIL长度不能大于20");
    b_SupplyEmail.LowerCase() = m_SupplyEmail.LowerCase();

   int m_SupplyCancel;
   int b_SupplyCancel;
   m_SupplyCancel=GetMasterValue("SupplyCancel");
   b_SupplyCancel=GetMasterOldValue("SupplyCancel");
   if(m_SupplyCancel!=0&&m_SupplyCancel!=1)
    throw Exception("取消标志只能取值0-正常1-取消");
   b_SupplyCancel = m_SupplyCancel;

   AnsiString  m_SupplyTaxNo;
   AnsiString  b_SupplyTaxNo;
   m_SupplyTaxNo=GetMasterValue("SupplyTaxNo");
   b_SupplyTaxNo=GetMasterOldValue("SupplyTaxNo");
    if(m_SupplyTaxNo.LowerCase().Length()>18)
      throw Exception("税号长度不能大于18");
    b_SupplyTaxNo.LowerCase() = m_SupplyTaxNo.LowerCase();

   int m_SupplyFreq;
   m_SupplyFreq=GetMasterValue("SupplyFreq");
    if(m_SupplyFreq<0)
      throw Exception("交易频度不能小于零");

   AnsiString  m_SupplyCreateDate;
   m_SupplyCreateDate=GetMasterValue("SupplyCreateDate");
    if(m_SupplyCreateDate.LowerCase().IsEmpty())
      throw Exception("创建日期不能为空");

   AnsiString  m_SupplyCancelDate;
   AnsiString  b_SupplyCancelDate;
   m_SupplyCancelDate=GetMasterValue("SupplyCancelDate");

   m_SupplyCreateDate=GetMasterValue("SupplyCreateDate");
    if((m_SupplyCreateDate.IsEmpty()==false)&&(m_SupplyCancelDate.LowerCase().IsEmpty()==false))
       throw Exception("取消日期必须在创建日期之后");

   double m_SupplyApAmt;
   m_SupplyApAmt=GetMasterValue("SupplyApAmt");

   AnsiString  m_SupplyCreditTerm;
   m_SupplyCreditTerm=GetMasterValue("SupplyCreditTerm");

   AnsiString  m_SupplyLtDate;
   m_SupplyLtDate=GetMasterValue("SupplyLtDate");

   double m_SupplyLtAmt;
   m_SupplyLtAmt=GetMasterValue("SupplyLtAmt");

   AnsiString  m_SupplyLpDate;
   m_SupplyLpDate=GetMasterValue("SupplyLpDate");
   double m_SupplyLpAmt;
   m_SupplyLpAmt=GetMasterValue("SupplyLpAmt");
}
//---------------------------------------------------------------------------
void __fastcall TKSSupply::CmdExec(AnsiString Param)
{

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