mpbeh.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 79 行

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

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

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

#pragma package(smart_init)
TKSPbeh *sdPbeh;
//---------------------------------------------------------------------------
__fastcall TKSPbeh::TKSPbeh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPbeh::ValidHeadValues()
{
    AnsiString  m_PbehFmonth;
    m_PbehFmonth=GetMasterValue("PbehFmonth");
    if(m_PbehFmonth.LowerCase().IsEmpty())
      throw Exception("财务月份不能为空");

   AnsiString  m_PbehDate;
   m_PbehDate=GetMasterValue("PbehDate");
    if(m_PbehDate.LowerCase().IsEmpty())
      throw Exception("填单日期不能为空");

   int m_PbehCheck;
   m_PbehCheck=GetMasterValue("PbehCheck");
    if(m_PbehCheck!=0 && m_PbehCheck!=1)
      throw Exception("审核标志只能取值0-未审核1-已审");

   AnsiString  m_PbehCheckDate;
   AnsiString  b_PbehCheckDate;

   m_PbehCheckDate=GetMasterValue("PbehCheckDate");
   m_PbehCheck=GetMasterValue("PbehCheck");
    if(m_PbehCheck==1)
    {
      if(m_PbehCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
    }
    else
      b_PbehCheckDate.LowerCase()="";

  AnsiString  m_PbehDesc;
   m_PbehDesc=GetMasterValue("PbehDesc");

   AnsiString  m_PbehSysDate;
   m_PbehSysDate=GetMasterValue("PbehSysDate");
}

//---------------------------------------------------------------------------
void __fastcall TKSPbeh::ValidItemValues()
{
   int m_PbedPrecdLine;
   m_PbedPrecdLine=GetDetailValue("PbedPrecdLine");
    if(m_PbedPrecdLine < 1)
      throw Exception("收货单行号不能小于1");


  double m_PbedAmt;
   m_PbedAmt=GetDetailValue("PbedAmt");
    if(m_PbedAmt < 0)
      throw Exception("分摊费用不能小于零");

  AnsiString  m_PbedDesc;
   m_PbedDesc=GetDetailValue("PbedDesc");

}

//---------------------------------------------------------------------------
void __fastcall TKSPbeh::CmdExec(AnsiString Param)
{

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