marcavh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSArcavh *sdArcavh;
//---------------------------------------------------------------------------
__fastcall TKSArcavh::TKSArcavh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidHeadValues()
{
  //核销单号
      ValidArcavhCode();
  //核销日期
      ValidArcavhDate();
  //单据类型
      ValidArcavhDocType();
  //来款单据号
      ValidArcavhDocCode();
  //操作员
      ValidArcavhUser();
  //审核
      ValidArcavhCheck();
 //审核人
      ValidArcavhChecker();
  //审核日期
      ValidArcavhCheckDate();
  //备注
      ValidArcavhDesc();
  //系统日期
      ValidArcavhSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhCode()  //核销单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhDate()  //核销日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhDocType()  //单据类型
{
   int m_ArcavhDocType;
   m_ArcavhDocType=GetMasterValue("ArcavhDocType");
    if(m_ArcavhDocType<1 || m_ArcavhDocType>3)
     throw Exception("来款单据类型只能是：1-收款单，2-预收单，3-票据");
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhDocCode()  //来款单据号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhUser()  //操作员
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhCheck()  //审核
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhChecker()  //审核人
{
/*
   AnsiString  m_ArcavhChecker;
   int m_ArcavhCheck;
   m_ArcavhChecker=GetMasterValue("ArcavhChecker");
   m_ArcavhCheck=GetMasterValue("ArcavhCheck");
   if(m_ArcavhCheck == 1)
    {
      if(m_ArcavhChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_ArcavhChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_ArcavhChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_ArcavhChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhCheckDate()  //审核日期
{
/*
    if(m_ArcavhCheck == 0)
     b_ArcavhCheckDate="";
    else
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavhSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidItemValues()
{
      ValidArcavdCode();
      ValidArcavdLine();
      ValidArcavdDocType();
      ValidArcavdDocCode();
      ValidArcavdDocLine();
      ValidArcavdConv();
      ValidArcavdRAmt();
      ValidArcavdCAmt();
      ValidArcavdDesc();
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdLine()
{
   int m_ArcavdLine;
   int b_ArcavdLine;
   AnsiString  m_ArcavdCode;
   m_ArcavdCode=GetDetailValue("ArcavdCode");
   m_ArcavdLine=GetDetailValue("ArcavdLine");
   b_ArcavdLine=GetDetailOldValue("ArcavdLine");
    if(m_ArcavdLine < 1)
     throw Exception("行号必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdDocType()
{
   int m_ArcavdDocType;
   m_ArcavdDocType=GetDetailValue("ArcavdDocType");
    if(m_ArcavdDocType !=1 && m_ArcavdDocType!=2)
     throw Exception("应收单据类型只能是：1-应收发票，2-其他应收单");
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdDocCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdDocLine()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdConv()
{
  double m_ArcavdConv;
   m_ArcavdConv=GetDetailValue("ArcavdConv");
    if(m_ArcavdConv <= 0)
     throw Exception("转换系数必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdRAmt()
{
  double m_ArcavdRAmt;
   m_ArcavdRAmt=GetDetailValue("ArcavdRAmt");
    if(m_ArcavdRAmt <= 0)
     throw Exception("收款金额必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdCAmt()
{
  double m_ArcavdCAmt;
   m_ArcavdCAmt=GetDetailValue("ArcavdCAmt");
    if(m_ArcavdCAmt <= 0)
     throw Exception("核销金额必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::ValidArcavdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArcavh::CmdExec(AnsiString Param)
{

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