mzth.cpp

科思ERP部分源码及控件

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

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

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

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

   AnsiString  m_ZthDate;
   m_ZthDate=GetMasterValue("ZthDate");
    if(m_ZthDate.LowerCase().IsEmpty())
      throw Exception("在途登记日期不能为空");

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

   AnsiString  m_ZthCheckDate;
   AnsiString  b_ZthCheckDate;

   m_ZthCheckDate=GetMasterValue("ZthCheckDate");
   m_ZthCheck=GetMasterValue("ZthCheck");
    if(m_ZthCheck==1)
    {
      if(m_ZthCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
    }

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

   AnsiString  m_ZthCancelDate;
   AnsiString  b_ZthCancelDate;

   m_ZthCancelDate=GetMasterValue("ZthCancelDate");
   m_ZthCancel=GetMasterValue("ZthCancel");
    if(m_ZthCancel==1)
    {
      if(m_ZthCancelDate.LowerCase().IsEmpty())
        throw Exception("取消日期不能为空");
    }
    else
      b_ZthCancelDate.LowerCase()="";

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

   AnsiString  m_ZtdCode;
   AnsiString  b_ZtdCode;
   m_ZtdCode=GetDetailValue("ZtdCode");
   b_ZtdCode=GetDetailOldValue("ZtdCode");
    b_ZtdCode.LowerCase() = m_ZtdCode.LowerCase();

   int m_ZtdPodLine;
   int b_ZtdPodLine;
//   AnsiString m_ZtdGoods;
   AnsiString m_ZtdUnit;
   double  m_ZtdConvRate;
   double  m_ZtdPrice;
   AnsiString  m_ZtdSendDate;
   AnsiString  m_ZtdRecDate;
   AnsiString  m_ZtdReqDate;

    if(m_ZtdPodLine<=0)
      throw Exception("采购单行不能小于零");


   m_ZtdSendDate=GetDetailValue("ZtdSendDate");

   m_ZtdReqDate=GetDetailValue("ZtdReqDate");

   m_ZtdRecDate=GetDetailValue("ZtdRecDate");

   AnsiString  m_ZtdPreDate;
   AnsiString  b_ZtdPreDate;
   bool  m_ZtdClose;
   m_ZtdPreDate=GetDetailValue("ZtdPreDate");
   b_ZtdPreDate=GetDetailOldValue("ZtdPreDate");
   m_ZtdSendDate=GetDetailValue("ZtdSendDate");
   m_ZtdClose=GetDetailValue("ZtdClose");
    if(m_ZtdPreDate.LowerCase().IsEmpty()==false)
    {
     if(m_ZtdSendDate.IsEmpty()==false && m_ZtdPreDate.LowerCase() < m_ZtdSendDate)
      throw Exception("预计到达日期不能在发出日期之前");
    }
    else
      b_ZtdPreDate.LowerCase()="";

   AnsiString  m_ZtdCloseDate;
   AnsiString  b_ZtdCloseDate;

   m_ZtdCloseDate=GetDetailValue("ZtdCloseDate");
   b_ZtdCloseDate=GetDetailOldValue("ZtdCloseDate");
   m_ZtdClose=GetDetailValue("ZtdClose");
    if(m_ZtdClose==1)
    {
      if(m_ZtdCloseDate.LowerCase().IsEmpty())
        throw Exception("结清日期不能为空");
    }
    else
      b_ZtdCloseDate.LowerCase()="";
}
//---------------------------------------------------------------------------
void __fastcall TKSZth::CmdExec(AnsiString Param)
{

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