marrsh.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 186 行

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

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

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

#pragma package(smart_init)
TKSArrsh *sdArrsh;
//---------------------------------------------------------------------------
__fastcall TKSArrsh::TKSArrsh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidHeadValues()
{
  //应收红冲单号
      ValidArrshCode();
  //日期
      ValidArrshDate();
  //单据类型
      ValidArrshDocType();
  //单据号
      ValidArrshDocCode();
  //备注
      ValidArrshDesc();
  //操作员
      ValidArrshUser();
  //审核标志
      ValidArrshCheck();
  //审核人
      ValidArrshChecker();
  //审核日期
      ValidArrshCheckDate();
  //系统日期
      ValidArrshSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshCode()  //应收红冲单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshDocType()  //单据类型
{
   int m_ArrshDocType;
   m_ArrshDocType=GetMasterValue("ArrshDocType");
    if(m_ArrshDocType<1 || m_ArrshDocType>3)
     throw Exception("红字核销单来源类型只能为：1-退款单，2-退回票据，3-红字应收单");
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshDocCode()  //单据号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshCheck()  //审核标志
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshChecker()  //审核人
{
/*
   AnsiString  m_ArrshChecker;
   int  m_ArrshCheck;
   m_ArrshChecker=GetMasterValue("ArrshChecker");
   m_ArrshCheck=GetMasterValue("ArrshCheck");
    if(m_ArrshCheck == 1)
    {
      if(m_ArrshChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_ArrshChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_ArrshChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_ArrshChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrshSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidItemValues()
{
      ValidArrsdCode();
      ValidArrsdLine();
      ValidArrsdDocCode();
      ValidArrsdDocLine();
      ValidArrsdConv();
      ValidArrsdRAmt();
      ValidArrsdCAmt();
      ValidArrsdDesc();
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdLine()
{
   int m_ArrsdLine;
   int b_ArrsdLine;
   AnsiString  m_ArrsdCode;
   m_ArrsdCode=GetDetailValue("ArrsdCode");
   m_ArrsdLine=GetDetailValue("ArrsdLine");
   b_ArrsdLine=GetDetailOldValue("ArrsdLine");
    if(m_ArrsdLine < 1)
     throw Exception("行号必须大于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdDocCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdDocLine()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdConv()
{
  double m_ArrsdConv;
   m_ArrsdConv=GetDetailValue("ArrsdConv");
    if(m_ArrsdConv <= 0)
     throw Exception("转换系数必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdRAmt()
{
  double m_ArrsdRAmt;
   m_ArrsdRAmt=GetDetailValue("ArrsdRAmt");
    if(m_ArrsdRAmt <= 0)
     throw Exception("红冲金额必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdCAmt()
{
  double m_ArrsdCAmt;
   m_ArrsdCAmt=GetDetailValue("ArrsdCAmt");
    if(m_ArrsdCAmt <= 0)
     throw Exception("核销金额必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::ValidArrsdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrsh::CmdExec(AnsiString Param)
{

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