mwrg.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "mWrg.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
TKSWrg *sdWrg;
//---------------------------------------------------------------------------
__fastcall TKSWrg::TKSWrg()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidHeadValues()
{
  //工单号
      ValidWrgWo();
  //工序号
      ValidWrgProcess();
  //工序名称
      ValidWrgName();
  //序号
      ValidWrgNo();
  //来源方式
      ValidWrgFrom();
  //工作中心
      ValidWrgWc();
  //在制货位
      ValidWrgLoc();
  //工序状态
      ValidWrgState();
  //检验标识
      ValidWrgChkFlg();
  //生效日期
      ValidWrgEdate();
  //失效日期
      ValidWrgIdate();
  //外协标识
      ValidWrgWxFlg();
  //外协费用
      ValidWrgWxAmt();
  //工序类型
      ValidWrgType();
  //排队时间
      ValidWrgQlt();
  //准备时间
      ValidWrgSlt();
  //加工时间
      ValidWrgRlt();
  //等待时间
      ValidWrgWlt();
  //移动时间
      ValidWrgMlt();
  //备注
      ValidWrgDesc();
  //计划量
      ValidWrgPQty();
  //完工量
      ValidWrgCQty();
  //合格量
      ValidWrgEQty();
  //废品量
      ValidWrgWQty();
  //返修量
      ValidWrgRQty();
  //次品量
      ValidWrgSQty();
  //操作员
      ValidWrgUser();
  //工艺路线状态
      ValidWrgStatus();
  //系统日期
      ValidWrgSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgWo()  //工单号
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgProcess()  //工序号
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgName()  //工序名称
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgNo()  //序号
{
   int m_WrgNo,b_WrgNo;
   AnsiString m_WrgWo;
   m_WrgNo=GetMasterValue("WrgNo");
   b_WrgNo=GetMasterOldValue("WrgNo");
   m_WrgWo=GetMasterValue("WrgWo");

   if(m_WrgNo<=0)
     throw Exception("序号不能小于等于零!");
   else
   {
       if(m_WrgNo!=b_WrgNo)
       {
         Query->Close();
         Query->SQL->Clear();
         Query->SQL->Add("select * from sdWrg where WrgWo='"+m_WrgWo+"' and WrgNo="+AnsiString(m_WrgNo)+"");
         Query->Open();
         if(Query->RecordCount>0)
         {
           Query->Close();
           throw Exception("工单:'"+m_WrgWo+"'的工序序号:'"+AnsiString(m_WrgNo)+"'已经存在!");
         }
         Query->Close();
       }
   }
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgFrom()  //来源方式
{
   int m_WrgFrom;
   m_WrgFrom=GetMasterValue("WrgFrom");
   if(m_WrgFrom!=1 && m_WrgFrom!=2)
     throw Exception("来源方式只能取值(1-工艺路线,2-工单路线.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgWc()  //工作中心
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgLoc()  //在制货位
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgState()  //工序状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgChkFlg()  //检验标识
{
   int m_WrgChkFlg;
   m_WrgChkFlg=GetMasterValue("WrgChkFlg");
   if(m_WrgChkFlg!=0 && m_WrgChkFlg!=1)
      throw Exception("检验标志只能取值(0-不检验,1-需检验.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgEdate()  //生效日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgIdate()  //失效日期
{
   AnsiString  m_WrgEdate;
   AnsiString  m_WrgIdate;
   m_WrgEdate=GetMasterValue("WrgEdate");
   m_WrgIdate=GetMasterValue("WrgIdate");

     if(m_WrgIdate<=m_WrgEdate)
       throw Exception("失效日期不能小于等于生效日期!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgWxFlg()  //外协标识
{
   int m_WrgWxFlg;
   m_WrgWxFlg=GetMasterValue("WrgWxFlg");
   if(m_WrgWxFlg!=0 && m_WrgWxFlg!=1)
     throw Exception("外协标志只能取值(0-非外协,1-外协.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgWxAmt()  //外协费用
{
   int m_WrgWxFlg;
   double m_WrgWxAmt;
   m_WrgWxFlg=GetMasterValue("WrgWxFlg");
   m_WrgWxAmt=GetMasterValue("WrgWxAmt");
   if(m_WrgWxAmt<0)
     throw Exception("外协费率不能小于零!");
   if(m_WrgWxFlg==1 && m_WrgWxAmt== 0)
     throw Exception("当工序是外协工序时,外协费率不能等于零.");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgType()  //工序类型
{
   int m_WrgType;
   m_WrgType=GetMasterValue("WrgType");
   if(m_WrgType!=1 && m_WrgType!=2 && m_WrgType!=3 && m_WrgType!=4)
     throw Exception("工序类型只能取值(1-正常,2-平行,3-交叉,4-混合.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgQlt()  //排队时间
{
   double m_WrgQlt;
   m_WrgQlt=GetMasterValue("WrgQlt");
   if(m_WrgQlt<0)
      throw Exception("排队时间不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgSlt()  //准备时间
{
   double m_WrgSlt;
   m_WrgSlt=GetMasterValue("WrgSlt");
   if(m_WrgSlt<0)
     throw Exception("准备时间不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgRlt()  //加工时间
{
   double m_WrgRlt;
   m_WrgRlt=GetMasterValue("WrgRlt");
   if(m_WrgRlt<0)
     throw Exception("加工时间不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgWlt()  //等待时间
{
   double m_WrgWlt;
   m_WrgWlt=GetMasterValue("WrgWlt");
   if(m_WrgWlt<0)
     throw Exception("等待时间不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgMlt()  //移动时间
{
   double m_WrgMlt;
   m_WrgMlt=GetMasterValue("WrgMlt");
   if(m_WrgMlt<0)
     throw Exception("移动时间不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgDesc()  //备注
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgPQty()  //计划量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgCQty()  //完工量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgEQty()  //合格量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgWQty()  //废品量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgRQty()  //返修量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgSQty()  //次品量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgUser()  //操作员
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgStatus()  //工艺路线状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::ValidWrgSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWrg::CmdExec(AnsiString Param)
{

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