maprih.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSAprih *sdAprih;
//---------------------------------------------------------------------------
__fastcall TKSAprih::TKSAprih()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidHeadValues()
{
  //红字发票冲销单号
      ValidAprihCode();
  //日期
      ValidAprihDate();
 //操作员
      ValidAprihUser();
  //审核标志
      ValidAprihCheck();
  //审核人
      ValidAprihChecker();
  //审核日期
      ValidAprihCheckDate();
  //备注
      ValidAprihDesc();
  //系统日期
      ValidAprihSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihCode()  //红字发票冲销单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihUser()  //操作员
{
/*
   AnsiString  m_AprihUser;
   AnsiString  b_AprihUser;
   m_AprihUser=GetMasterValue("AprihUser");
   b_AprihUser=GetMasterOldValue("AprihUser");
    if(m_AprihUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_AprihUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_AprihUser!=b_AprihUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_AprihUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_AprihUser+"未定义!");
      }
      Query->Close();
    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihCheck()  //审核标志
{
   int m_AprihCheck;
    m_AprihCheck=GetMasterValue("AprihCheck");
    if(m_AprihCheck!=0 && m_AprihCheck!=1)
      throw Exception("审核标志只能取值: 0-未审核1-已审核!");
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihChecker()  //审核人
{
/*
   AnsiString  m_AprihChecker;
   int  m_AprihCheck;
   m_AprihChecker=GetMasterValue("AprihChecker");
   m_AprihCheck=GetMasterValue("AprihCheck");
    if(m_AprihCheck==1)
    {
      if(m_AprihChecker.IsEmpty())
        throw Exception("审核员编码不能为空!");
      if(m_AprihChecker.Length()>18)
        throw Exception("审核员长度不能大于18!");
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_AprihChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_AprihChecker+"未定义或没有审核权限!");
        }
        Query->Close();
      }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihCheckDate()  //审核日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihDesc()  //备注
{
 }

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidAprihSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidItemValues()
{

      ValidApridCode();
      ValidApridLine();
      ValidApridApiCode();
      ValidApridApiLine();
      ValidApridCavCode();
      ValidApridCavLine();
      ValidApridAmt();
      ValidApridDesc();
}
//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidApridCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidApridLine()
{
   int m_ApridLine;
   m_ApridLine=GetDetailValue("ApridLine");
   AnsiString  m_ApridCode;
   m_ApridCode=GetDetailValue("ApridCode");
    if(m_ApridLine<=0)
      throw Exception("行号必须大于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidApridApiCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidApridApiLine()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidApridCavCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidApridCavLine()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAprih::ValidApridAmt()
{
  double m_ApridAmt;
   m_ApridAmt=GetDetailValue("ApridAmt");
   if(m_ApridAmt<=0)
      throw Exception("金额不能小于等于零!");
}

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

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