marob.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSArob *sdArob;
//---------------------------------------------------------------------------
__fastcall TKSArob::TKSArob()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidHeadValues()
{
 //应收单号
      ValidArobCode();
  //月份
      ValidArobFmonth();
  //日期
      ValidArobDate();
 //客户
      ValidArobClient();
  //币种
      ValidArobCurrency();
 //汇率
      ValidArobEnrate();
 //金额
      ValidArobAmt();
  //核销金额
      ValidArobCAmt();
  //坏账金额
      ValidArobBAmt();
 //红冲金额
      ValidArobRAmt();
  //红字
      ValidArobRed();
  //红冲应收单号
      ValidArobDocCode();
  //应收日期
      ValidArobRDate();
  //备注
      ValidArobDesc();
  //操作员
      ValidArobUser();
  //审核标志
      ValidArobCheck();
  //审核人
      ValidArobChecker();
  //审核日期
      ValidArobCheckDate();
 //系统日期
      ValidArobSysDate();

}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobCode()  //应收单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobClient()  //客户
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobCurrency()  //币种
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobEnrate()  //汇率
{
  double m_ArobEnrate;
   AnsiString  m_ArobCurrency;
   m_ArobCurrency=GetMasterValue("ArobCurrency");
   m_ArobEnrate=GetMasterValue("ArobEnrate");
    if(m_ArobEnrate<=0 )
       throw Exception("汇率必须大于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobAmt()  //金额
{
  double m_ArobAmt;
   m_ArobAmt=GetMasterValue("ArobAmt");
    if(m_ArobAmt<0 )
       throw Exception("应收金额不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobCAmt()  //核销金额
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobBAmt()  //坏账金额
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobRAmt()  //红冲金额
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobRed()  //红字
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobDocCode()  //红冲应收单号
{
   AnsiString  m_ArobDocCode;
   int m_ArobRed;
   m_ArobRed=GetMasterValue("ArobRed");
   m_ArobDocCode=GetMasterValue("ArobDocCode");
    if(m_ArobRed == -1)
    {
     if(m_ArobDocCode.IsEmpty())
      throw Exception("红字应收单必须输入原应收单号");
    }
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobRDate()  //应收日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobCheck()  //审核标志
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobChecker()  //审核人
{
/*
   AnsiString  m_ArobChecker;
   AnsiString  m_ArobCheck;
   m_ArobChecker=GetMasterValue("ArobChecker");
   m_ArobCheck=GetMasterValue("ArobCheck");
    if(m_ArobCheck == 1)
    {
      if(m_ArobChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_ArobChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_ArobChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_ArobChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/    
}

//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::ValidArobSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArob::CmdExec(AnsiString Param)
{

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