marrih.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSArrih *sdArrih;
//---------------------------------------------------------------------------
__fastcall TKSArrih::TKSArrih()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidHeadValues()
{
  //红字发票冲销单号
      ValidArrihCode();
  //日期
      ValidArrihDate();
  //操作员
      ValidArrihUser();
  //审核标志
      ValidArrihCheck();
  //审核人
      ValidArrihChecker();
  //审核日期
      ValidArrihCheckDate();
  //备注
      ValidArrihDesc();
  //系统日期
      ValidArrihSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihCode()  //红字发票冲销单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihDate()  //日期
{

}

//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihUser()  //操作员
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihCheck()  //审核标志
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihChecker()  //审核人
{
/*
   AnsiString  m_ArrihChecker;
   int  m_ArrihCheck;
   m_ArrihChecker=GetMasterValue("ArrihChecker");
   m_ArrihCheck=GetMasterValue("ArrihCheck");
    if(m_ArrihCheck == 1)
    {
      if(m_ArrihChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_ArrihChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_ArrihChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_ArrihChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/    
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArrihSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidItemValues()
{
      ValidArridCode();
      ValidArridLine();
      ValidArridAriCode();
      ValidArridAriLine();
      ValidArridCavCode();
      ValidArridCavLine();
      ValidArridAmt();
      ValidArridDesc();
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridLine()
{
   int m_ArridLine;
   AnsiString  m_ArridCode;
   m_ArridCode=GetDetailValue("ArridCode");
   m_ArridLine=GetDetailValue("ArridLine");
    if(m_ArridLine < 1)
     throw Exception("行号必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridAriCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridAriLine()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridCavCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridCavLine()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridAmt()
{
  double m_ArridAmt;
   m_ArridAmt=GetDetailValue("ArridAmt");
    if(m_ArridAmt<=0)
      throw Exception("核销金额必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::ValidArridDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrih::CmdExec(AnsiString Param)
{

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