mrep.cpp

科思ERP部分源码及控件

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

TKSRep *sdRep;
//---------------------------------------------------------------------------
__fastcall TKSRep::TKSRep()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidHeadValues()
{
    //父件编码
      ValidRepPgoods();
    //原件编码
      ValidRepOgoods();
    //新件编码
      ValidRepNgoods();
    //计量单位
      ValidRepUnit();
    //消耗定额
      ValidRepQty();
    //损耗率
      ValidRepShl();
    //子件类型
      ValidRepType();
    //计划策略
      ValidRepPp();
    //来源
      ValidRepFrom();
    //订货策略
      ValidRepOp();
    //工序
      ValidRepProcess();
    //备注
      ValidRepDesc();
    //生效日期
      ValidRepEdate();
    //失效日期
      ValidRepIdate();
    //配置类型
      ValidRepCfg();
    //偏置时间
      ValidRepLot();
    //低层码
      ValidRepLlc();
    //操作员
      ValidRepUser();
    //审核标志
      ValidRepCheck();
    //审核人
      ValidRepChecker();
    //审核日期
      ValidRepCheckDate();
    //系统日期
      ValidRepSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepPgoods()  //父件编码
{

}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepOgoods()  //原件编码
{

}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepNgoods()  //新件编码
{
   AnsiString  m_RepOgoods;
   AnsiString  m_RepNgoods;
   AnsiString  b_RepNgoods;
   m_RepOgoods=GetMasterValue("RepOgoods");
   m_RepNgoods=GetMasterValue("RepNgoods");
   b_RepNgoods=GetMasterOldValue("RepNgoods");

   if(m_RepOgoods.UpperCase()==m_RepNgoods.UpperCase())
      throw Exception("新的工程替换件编码不能和原来的工程替换件编码相同!");
   if(m_RepNgoods.UpperCase()!=b_RepNgoods.UpperCase())
   {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select GoodsUnitCode,GoodsType,GoodsFrom from sdGoods Where GoodsType<>1 and GoodsCode='"+m_RepNgoods+"'");
      Query->Open();
      if(Query->RecordCount==0)
      {
         Query->Close();
         throw Exception("该物料编码:'"+m_RepNgoods+"'不存在或者不符合条件!");
      }
      Query->Close();
   }
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepUnit()  //计量单位
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepQty()  //消耗定额
{
   double m_RepQty;
   m_RepQty=GetMasterValue("RepQty");
   if(m_RepQty<=0)
      throw Exception("消耗定额不能小于等于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepShl()  //损耗率
{
   double m_RepShl;
   m_RepShl=GetMasterValue("RepShl");
   if(m_RepShl<0 || m_RepShl>=1)
      throw Exception("损耗率不能小于0,大于和等于1.");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepType()  //子件类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepPp()  //计划策略
{
   int m_RepPp;
   m_RepPp=GetMasterValue("RepPp");
   if(m_RepPp!=1 && m_RepPp!=2 && m_RepPp!=3 && m_RepPp!=4 && m_RepPp!=5 && m_RepPp!=6)
      throw Exception("计划方法只能取值1-MRP,2-MPS,3-订货点,4-预测,5-成套件,6-自定义");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepFrom()  //来源
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepOp()  //订货策略
{
   int m_RepOp;
   m_RepOp=GetMasterValue("RepOp");
   if(m_RepOp!=1 && m_RepOp!=1 && m_RepOp!=2 && m_RepOp!=3 && m_RepOp!=4 && m_RepOp!=5 && m_RepOp!=6)
      throw Exception("订货策略只能取值1-无策略，2-订货点策略，3-订货上限策略，\n4-定期订货策略，5-定量订货策略，6-手工订货策略!");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepProcess()  //工序
{

}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepDesc()  //备注
{

}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepEdate()  //生效日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepIdate()  //失效日期
{
   AnsiString  m_RepIdate;
   AnsiString  m_RepEdate;
   m_RepIdate=GetMasterValue("RepIdate");
   m_RepEdate=GetMasterValue("RepEdate");

   if(!m_RepIdate.IsEmpty())
      if(m_RepIdate<=m_RepEdate)
        throw Exception("失效日期不能小于等于生效日期!");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepCfg()  //配置类型
{
   int m_RepCfg;
   m_RepCfg=GetMasterValue("RepCfg");
   if(m_RepCfg!=1 && m_RepCfg!=2 && m_RepCfg!=3)
      throw Exception("配置类型只能取值1-必需件,2-可选件,3-常用件.");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepLot()  //偏置时间
{
   double m_RepLot;
   m_RepLot=GetMasterValue("RepLot");
   if(m_RepLot<0)
      throw Exception("偏置时间不能小于零.");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepLlc()  //低层码
{
   int m_RepLlc;
   m_RepLlc=GetMasterValue("RepLlc");
   if(m_RepLlc<=0)
      throw Exception("低层码不能小于等于零.");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepUser()  //操作员
{

}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepCheck()  //审核标志
{
   int m_RepCheck;
   m_RepCheck=GetMasterValue("RepCheck");
   if(m_RepCheck!=0 && m_RepCheck!=1)
      throw Exception("审核标识只能为0-未审核,1-已审核.");
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepChecker()  //审核人
{

}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::ValidRepSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRep::CmdExec(AnsiString Param)
{

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