mmfch.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "mMfch.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)

TKSMfch *sdMfch;
//---------------------------------------------------------------------------
__fastcall TKSMfch::TKSMfch()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidHeadValues()
{
  //制造费分摊单
      ValidMfchCode();
  //财务月份
      ValidMfchFmonth();
  //日期
      ValidMfchDate();
  //操作员
      ValidMfchUser();
  //审核标志
      ValidMfchCheck();
  //审核人
      ValidMfchChecker();
  //审核日期
      ValidMfchCheckDate();
  //备注
      ValidMfchDesc();
  //系统日期
      ValidMfchSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchCode()  //制造费分摊单
{

}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchFmonth()  //财务月份
{

}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchDate()  //日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchUser()  //操作员
{

}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchCheck()  //审核标志
{
    int m_MfchCheck;
    m_MfchCheck=GetMasterValue("MfchCheck");
    if(m_MfchCheck!=0 && m_MfchCheck!=1)
      throw Exception("审核标志只能取值0-未审核1-已审");
}

//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchChecker()  //审核人
{
    int m_MfchCheck;
    AnsiString  m_MfchChecker;
    AnsiString  b_MfchChecker;
    m_MfchCheck=GetMasterValue("MfchCheck");
    m_MfchChecker=GetMasterValue("MfchChecker");
    b_MfchChecker=GetMasterOldValue("MfchChecker");
    if(m_MfchCheck==1)
    {

      if(m_MfchChecker!=b_MfchChecker)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select ProducterCode from sdProducter where ProducterCode='"+m_MfchChecker+"' and Productercheck=1");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员代码未定义或没有审核权限");
        }
        Query->Close();
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfchSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidItemValues()
{
      ValidMfcdCode();
      ValidMfcdLine();
      ValidMfcdWoCode();
      ValidMfcdExpense();
      ValidMfcdAmt();
      ValidMfcdDesc();
      ValidMfcdState();
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfcdCode()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfcdLine()
{
    int m_MfcdLine;
    m_MfcdLine=GetDetailValue("MfcdLine");
    if(m_MfcdLine<=0)
       throw Exception("行号不能小于等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfcdWoCode()
{
    AnsiString  m_MfcdWoCode;
    AnsiString  b_MfcdWoCode;
    m_MfcdWoCode=GetDetailValue("MfcdWoCode");
    b_MfcdWoCode=GetDetailOldValue("MfcdWoCode");

    if(m_MfcdWoCode!=b_MfcdWoCode)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select WoCode from sdWo where WoCheck=1 and WoCode='"+m_MfcdWoCode+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("加工单:"+m_MfcdWoCode+"不存在或尚未生效");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfcdExpense()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfcdAmt()
{
    double m_MfcdAmt;
    m_MfcdAmt=GetDetailValue("MfcdAmt");
    if(m_MfcdAmt < 0)
      throw Exception("分摊费用不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfcdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::ValidMfcdState()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSMfch::CmdExec(AnsiString Param)
{
}
//---------------------------------------------------------------------------