mrefund.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSRefund *sdRefund;
//---------------------------------------------------------------------------
__fastcall TKSRefund::TKSRefund()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidHeadValues()
{
 //退款单号
      ValidRefundCode();
  //月份
      ValidRefundFmonth();
  //日期
      ValidRefundDate();
  //客户
      ValidRefundClient();
  //币种
      ValidRefundCurrency();
  //汇率
      ValidRefundEnrate();
 //退款金额
      ValidRefundAmt();
  //结算方式
      ValidRefundSettleMode();
  //结算号
      ValidRefundSettleCode();
  //来源
      ValidRefundFrom();
  //出纳流水号
      ValidRefundFbbNo();
  //出纳帐号
      ValidRefundFbbCac();
  //收款单号
      ValidRefundArrb();
  //退款原因
      ValidRefundRfr();
  //核销金额
      ValidRefundCAmt();
 //备注
      ValidRefundDesc();
  //操作员
      ValidRefundUser();
  //审核标志
      ValidRefundCheck();
  //审核人
      ValidRefundChecker();
  //审核日期
      ValidRefundCheckDate();
  //状态
      ValidRefundState();
  //系统日期
      ValidRefundSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundCode()  //退款单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundClient()  //客户
{

}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundCurrency()  //币种
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundEnrate()  //汇率
{
  double m_RefundEnrate;
   AnsiString  m_RefundCurrency;
   m_RefundCurrency=GetMasterValue("RefundCurrency");
   m_RefundEnrate=GetMasterValue("RefundEnrate");
    if(m_RefundEnrate<=0 )
       throw Exception("汇率必须大于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundAmt()  //退款金额
{
  double m_RefundAmt;
   m_RefundAmt=GetMasterValue("RefundAmt");
    if(m_RefundAmt<0 )
       throw Exception("金额不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundSettleMode()  //结算方式
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundSettleCode()  //结算号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundFrom()  //来源
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundFbbNo()  //出纳流水号
{
   int m_RefundFbbNo;
   m_RefundFbbNo=GetMasterValue("RefundFbbNo");
    if(m_RefundFbbNo<0)
     throw Exception("出纳流水号不能小于0");
/*
    if(m_RefundFrom == 1) //由出纳账生成
    else
     b_RefundFbbNo=0;
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundFbbCac()  //出纳帐号
{
   AnsiString  m_RefundFbbCac;
   int  m_RefundFrom;
   m_RefundFbbCac=GetMasterValue("RefundFbbCac");
   m_RefundFrom=GetMasterValue("RefundFrom");
    if(m_RefundFrom == 1) //由出纳账生成
    {
     if(m_RefundFbbCac.IsEmpty())
      throw Exception("退款单由出纳账生成，账号不能为空");
    }
 /*
   else               //手工录入
    {
     b_RefundFbbCac="";
    }
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundArrb()  //收款单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundRfr()  //退款原因
{
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundCAmt()  //核销金额
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundCheck()  //审核标志
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundChecker()  //审核人
{
/*
   AnsiString  m_RefundChecker;
   int m_RefundCheck;
   m_RefundChecker=GetMasterValue("RefundChecker");
   m_RefundCheck=GetMasterValue("RefundCheck");
    if(m_RefundCheck == 1)
    {
      if(m_RefundChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_RefundChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_RefundChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_RefundChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/    
}

//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundState()  //状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::ValidRefundSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRefund::CmdExec(AnsiString Param)
{

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