mpreth.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPreth *sdPreth;
//---------------------------------------------------------------------------
__fastcall TKSPreth::TKSPreth()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPreth::ValidHeadValues()
{

   AnsiString  m_PrethDate;
   m_PrethDate=GetMasterValue("PrethDate");
    if(m_PrethDate.LowerCase().IsEmpty())
      throw Exception("退货日期不能为空");

   AnsiString  m_PrethFmonth;
   AnsiString  b_PrethFmonth;
   m_PrethFmonth=GetMasterValue("PrethFmonth");
   b_PrethFmonth=GetMasterOldValue("PrethFmonth");
    AnsiString s;
    if(m_PrethFmonth.LowerCase().IsEmpty())
      throw Exception("财务月份不能为空");
    b_PrethFmonth =   m_PrethFmonth;

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

   AnsiString  m_PrethCheckDate;
   AnsiString  b_PrethCheckDate;
   m_PrethCheckDate=GetMasterValue("PrethCheckDate");

   m_PrethCheck=GetMasterValue("PrethCheck");
    if(m_PrethCheck==1)
    {
      if(m_PrethCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
    }

   int m_PrethCancel;
   m_PrethCancel=GetMasterValue("PrethCancel");
    if(m_PrethCancel!=0 && m_PrethCancel!=1)
      throw Exception("取消标志只能取值0-正常1-取消");

   AnsiString  m_PrethCancelDate;
   AnsiString  b_PrethCancelDate;
   m_PrethCancelDate=GetMasterValue("PrethCancelDate");

   m_PrethCancel=GetMasterValue("PrethCancel");
    if(m_PrethCancel==1)
    {
      if(m_PrethCancelDate.LowerCase().IsEmpty())
        throw Exception("取消日期不能为空");
    }

}
//---------------------------------------------------------------------------
void __fastcall TKSPreth::ValidItemValues()
{

   int m_PretdLine;
   int b_PretdLine;
   m_PretdLine=GetDetailValue("PretdLine");
   b_PretdLine=GetDetailOldValue("PretdLine");
    if(m_PretdLine<=0)
      throw Exception("行号必须大于零");

  AnsiString  m_PretdCode;
   m_PretdCode=GetDetailValue("PretdCode");

  double m_PretdAmt;
   m_PretdAmt=GetDetailValue("PretdAmt");
    //尚未处理反算单价

  double m_PretdTaxAmt;
   m_PretdTaxAmt=GetDetailValue("PretdTaxAmt");

   int m_PretdState;
   m_PretdState=GetDetailValue("PretdState");

}
//---------------------------------------------------------------------------
void __fastcall TKSPreth::CmdExec(AnsiString Param)
{

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