mprocess.cpp

科思ERP部分源码及控件

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

TKSProcess *sdProcess;
//---------------------------------------------------------------------------
__fastcall TKSProcess::TKSProcess()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSProcess::ValidHeadValues()
{
  //代码
      ValidProcessCode();
  //名称
      ValidProcessName();
  //工作中心
      ValidProcessWc();
  //在制货位
      ValidProcessLoc();
  //生效日期
      ValidProcessEdate();
  //失效日期
      ValidProcessIdate();
  //工序状态
      ValidProcessState();
  //检验标识
      ValidProcessChkFlg();
  //外协标识
      ValidProcessWxFlg();
  //类型
      ValidProcessType();
  //准外协费
      ValidProcessWxAmt();
  //特殊工艺要求
      ValidProcessSpec();
  //排队提前期
      ValidProcessQlt();
  //准备提前期
      ValidProcessSlt();
  //加工提前期
      ValidProcessRlt();
  //等待提前期
      ValidProcessWlt();
  //移动提前期
      ValidProcessMlt();
  //备注
      ValidProcessDesc();
  //操作员
      ValidProcessUser();
  //系统时间
      ValidProcessSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessCode()  //代码
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessName()  //名称
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessWc()  //工作中心
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessLoc()  //在制货位
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessEdate()  //生效日期
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessIdate()  //失效日期
{
   AnsiString  m_ProcessIdate;
   AnsiString  m_ProcessEdate;
   m_ProcessIdate=GetMasterValue("ProcessIdate");
   m_ProcessEdate=GetMasterValue("ProcessEdate");

     if(m_ProcessIdate<=m_ProcessEdate)
       throw Exception("失效日期不能小于等于生效日期!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessState()  //工序状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessChkFlg()  //检验标识
{
   int m_ProcessChkFlg;
   m_ProcessChkFlg=GetMasterValue("ProcessChkFlg");
   if(m_ProcessChkFlg!=0 && m_ProcessChkFlg!=1)
     throw Exception("检验标志只能取值(0-不检验,1-需检验).");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessWxFlg()  //外协标识
{
   int m_ProcessWxFlg;
   m_ProcessWxFlg=GetMasterValue("ProcessWxFlg");
   if(m_ProcessWxFlg!=0 && m_ProcessWxFlg!=1)
     throw Exception("外协标志只能取值(0-公司生产,1-外协).");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessType()  //类型
{
   int m_ProcessType;
   m_ProcessType=GetMasterValue("ProcessType");
   if(m_ProcessType!=1 && m_ProcessType!=2 && m_ProcessType!=3 && m_ProcessType!=4)
     throw Exception("工序类型只能取值(1-正常,2-平行,3-交叉,4-混合).");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessWxAmt()  //准外协费
{
   int m_ProcessWxFlg;
   double m_ProcessWxAmt;
   m_ProcessWxFlg=GetMasterValue("ProcessWxFlg");
   m_ProcessWxAmt=GetMasterValue("ProcessWxAmt");
   if(m_ProcessWxFlg!=0)
     if(m_ProcessWxAmt<=0)
       throw Exception("外协工序时需输入外协费!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessSpec()  //特殊工艺要求
{

}
//---------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessQlt()  //排队提前期
{
   double m_ProcessQlt;
   m_ProcessQlt=GetMasterValue("ProcessQlt");
   if(m_ProcessQlt<0)
     throw Exception("排队提前期不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessSlt()  //准备提前期
{
   double m_ProcessSlt;
   m_ProcessSlt=GetMasterValue("ProcessSlt");
   if(m_ProcessSlt<0)
     throw Exception("准备提前期不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessRlt()  //加工提前期
{
   double m_ProcessRlt;
   m_ProcessRlt=GetMasterValue("ProcessRlt");
   if(m_ProcessRlt<0)
     throw Exception("加工提前期不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessWlt()  //等待提前期
{
   double m_ProcessWlt;
   m_ProcessWlt=GetMasterValue("ProcessWlt");
   if(m_ProcessWlt<0)
     throw Exception("等待提前期不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessMlt()  //移动提前期
{
   double m_ProcessMlt;
   m_ProcessMlt=GetMasterValue("ProcessMlt");
   if(m_ProcessMlt<0)
     throw Exception("移动提前期不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessDesc()  //备注
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessUser()  //操作员
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSProcess::ValidProcessSysDate()  //系统时间
{
}
//---------------------------------------------------------------------------
void __fastcall TKSProcess::CmdExec(AnsiString Param)
{

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