marrb.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSArrb *sdArrb;
//---------------------------------------------------------------------------
__fastcall TKSArrb::TKSArrb()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidHeadValues()
{
  //收款单号
      ValidArrbCode();
 //收款月份
      ValidArrbFmonth();
  //收款日期
      ValidArrbDate();
  //客户编码
      ValidArrbClient();
  //货币编码
      ValidArrbCurrency();
  //汇率
      ValidArrbEnrate();
 //收款金额
      ValidArrbAmt();
 //结算方式
      ValidArrbSettleMode();
  //结算号
      ValidArrbSettleCode();
  //收款类型
      ValidArrbRbt();
  //来源类型
      ValidArrbFrom();
  //出纳流水号
      ValidArrbFbbNo();
  //出纳账号
      ValidArrbFbbCac();
  //状态
      ValidArrbState();
  //备注
      ValidArrbDesc();
  //核销金额
      ValidArrbCAmt();
  //退款金额
      ValidArrbBAmt();
  //操作员
      ValidArrbUser();
  //审核标志
      ValidArrbCheck();
  //审核人
      ValidArrbChecker();
  //审核日期
      ValidArrbCheckDate();
  //系统日期
      ValidArrbSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbCode()  //收款单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbFmonth()  //收款月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbDate()  //收款日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbClient()  //客户编码
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbCurrency()  //货币编码
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbEnrate()  //汇率
{
  double m_ArrbEnrate;
   AnsiString  m_ArrbCurrency;
   m_ArrbCurrency=GetMasterValue("ArrbCurrency");
   m_ArrbEnrate=GetMasterValue("ArrbEnrate");
    if(m_ArrbEnrate<=0 )
       throw Exception("汇率必须大于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbAmt()  //收款金额
{
  double m_ArrbAmt;
   m_ArrbAmt=GetMasterValue("ArrbAmt");
    if(m_ArrbAmt<0 )
       throw Exception("金额不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbSettleMode()  //结算方式
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbSettleCode()  //结算号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbRbt()  //收款类型
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbFrom()  //来源类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbFbbNo()  //出纳流水号
{
   int m_ArrbFbbNo;
   m_ArrbFbbNo=GetMasterValue("ArrbFbbNo");
    if(m_ArrbFbbNo<0)
     throw Exception("出纳流水号不能小于0");
/*
     m_ArrbFbbNo=value;
    else
     m_ArrbFbbNo=0;
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbFbbCac()  //出纳账号
{
   AnsiString  m_ArrbFbbCac;
   int m_ArrbFrom;
   m_ArrbFrom=GetMasterValue("ArrbFrom");
   m_ArrbFbbCac=GetMasterValue("ArrbFbbCac");
    if(m_ArrbFrom == 1) //由出纳账生成
    {
     if(m_ArrbFbbCac.IsEmpty())
      throw Exception("收款单由出纳账生成，账号不能为空");
    }
/*
    else               //手工录入
    {
     b_ArrbFbbCac="";
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbState()  //状态
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbCAmt()  //核销金额
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbBAmt()  //退款金额
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbUser()  //操作员
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbCheck()  //审核标志
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbChecker()  //审核人
{
/*
   AnsiString  m_ArrbChecker;
   int  m_ArrbCheck;
   m_ArrbChecker=GetMasterValue("ArrbChecker");
   m_ArrbCheck=GetMasterValue("ArrbCheck");
    if(m_ArrbCheck == 1)
    {
      if(m_ArrbChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_ArrbChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_ArrbChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_ArrbChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/    
}

//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrb::ValidArrbSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArrb::CmdExec(AnsiString Param)
{

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