mecoh.cpp

科思ERP部分源码及控件

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

TKSEcoh *sdEcoh;
//---------------------------------------------------------------------------
__fastcall TKSEcoh::TKSEcoh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidHeadValues()
{
  //更改单号
      ValidEcohCode();
  //文件号
      ValidEcohFileNo();
  //日期
      ValidEcohDate();
  //启用日期
      ValidEcohEdate();
  //失效日期
      ValidEcohIdate();
  //物品编码
      ValidEcohGoods();
  //备注
      ValidEcohDesc();
  //操作员
      ValidEcohUser();
  //审核
      ValidEcohCheck();
  //审核人
      ValidEcohChecker();
  //审核日期
      ValidEcohCheckDate();
  //系统日期
      ValidEcohSysDate();
  //版本号
      ValidEcohVer();
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohCode()  //更改单号
{
   AnsiString  m_EcohCode;
   AnsiString  b_EcohCode;
   m_EcohCode=GetMasterValue("EcohCode");
   b_EcohCode=GetMasterOldValue("EcohCode");

   if(m_EcohCode.Length()>18)
      throw Exception("工程更改单的单号长度不能大于18!");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohFileNo()  //文件号
{
   AnsiString  m_EcohFileNo;
   AnsiString  b_EcohFileNo;
   m_EcohFileNo=GetMasterValue("EcohFileNo");
   b_EcohFileNo=GetMasterOldValue("EcohFileNo");

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohDate()  //日期
{
   AnsiString  m_EcohDate;
   m_EcohDate=GetMasterValue("EcohDate");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohEdate()  //启用日期
{
   AnsiString  m_EcohEdate;
   m_EcohEdate=GetMasterValue("EcohEdate");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohIdate()  //失效日期
{
   AnsiString  m_EcohIdate;
   AnsiString  m_EcohEdate;
   m_EcohIdate=GetMasterValue("EcohIdate");
   m_EcohEdate=GetMasterValue("EcohEdate");
   if(!m_EcohIdate.IsEmpty())
      if(m_EcohIdate<=m_EcohEdate)
        throw Exception("失效日期不能小于等于生效日期!");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohGoods()  //物品编码
{
   AnsiString  m_EcohGoods;
   AnsiString  b_EcohGoods;
   m_EcohGoods=GetMasterValue("EcohGoods");
   b_EcohGoods=GetMasterOldValue("EcohGoods");

   if(m_EcohGoods.Length()>18)
      throw Exception("工程更改单的物品编码长度不能大于18!");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohDesc()  //备注
{

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohUser()  //操作员
{

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohCheck()  //审核
{
   int m_EcohCheck;
   m_EcohCheck=GetMasterValue("EcohCheck");
   if(m_EcohCheck!=0 && m_EcohCheck!=1)
      throw Exception("审核的标识只能为0-未审核,1-已审核.");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohChecker()  //审核人
{
   int  m_EcohCheck;
   AnsiString  m_EcohChecker,b_EcohChecker;
   m_EcohCheck=GetMasterValue("EcohCheck");
   m_EcohChecker=GetMasterValue("EcohChecker");
   b_EcohChecker=GetMasterOldValue("EcohChecker");
   if(m_EcohCheck==1)
   {
      if(m_EcohChecker.Length()>18)
         throw Exception("审核员的编码长度不能大于18.");
   }
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcohVer()  //版本号
{
   AnsiString  m_EcohVer;
   AnsiString  b_EcohVer;
   m_EcohVer=GetMasterValue("EcohVer");
   b_EcohVer=GetMasterOldValue("EcohVer");

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidItemValues()
{
      ValidEcodLine();
      ValidEcodCode();
      ValidEcodBgoods();
      ValidEcodAgoods();
      ValidEcodUnit();
      ValidEcodQty();
      ValidEcodShl();
      ValidEcodType();
      ValidEcodPp();
      ValidEcodFrom();
      ValidEcodOp();
      ValidEcodProcess();
      ValidEcodCfg();
      ValidEcodLot();
      ValidEcodDesc();
      ValidEcodReason();

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodLine()
{
   int m_EcodLine;
   int b_EcodLine;
   AnsiString m_EcohCode;
   m_EcodLine=GetDetailValue("EcodLine");
   b_EcodLine=GetDetailOldValue("EcodLine");
   m_EcohCode=GetMasterValue("EcohCode");
   if(m_EcodLine<0 || m_EcodLine==0)
      throw Exception("工程更改单的行号必须为整数且大于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodCode()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodBgoods()
{
   AnsiString  m_EcodBgoods;
   AnsiString  b_EcodBgoods;
   m_EcodBgoods=GetDetailValue("EcodBgoods");
   b_EcodBgoods=GetDetailOldValue("EcodBgoods");

   if(m_EcodBgoods.Length()>18)
      throw Exception("工程更改单更改前的物料编码长度不能大于18!");

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodAgoods()
{
   AnsiString  m_EcodBgoods;
   AnsiString  m_EcodAgoods;
   AnsiString  b_EcodAgoods;
   m_EcodBgoods=GetDetailValue("EcodBgoods");
   m_EcodAgoods=GetDetailValue("EcodAgoods");
   b_EcodAgoods=GetDetailOldValue("EcodAgoods");
   if(m_EcodAgoods.Length()>18)
      throw Exception("工程更改单更改后的物料编码长度不能大于18!");
   if(m_EcodAgoods.UpperCase()==m_EcodBgoods.UpperCase())
      throw Exception("工程更改单更改前后的物料编码不能相同!");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodUnit()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodQty()
{
   double m_EcodQty;
   m_EcodQty=GetDetailValue("EcodQty");
   if(m_EcodQty<=0)
      throw Exception("消耗定额不能小于和等于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodShl()
{
   double m_EcodShl;
   m_EcodShl=GetDetailValue("EcodShl");
   if(m_EcodShl<0 || m_EcodShl>=1)
      throw Exception("损耗率不能小于0,大于和等于1.");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodType()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodPp()
{
   int m_EcodPp;
   m_EcodPp=GetDetailValue("EcodPp");
   if(m_EcodPp!=1 && m_EcodPp!=2 && m_EcodPp!=3 && m_EcodPp!=4 && m_EcodPp!=5 && m_EcodPp!=6)
      throw Exception("计划方法只能取值1-MRP,2-MPS,3-订货点,4-预测,5-成套件,6-自定义");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodFrom()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodOp()
{
   int m_EcodOp;
   m_EcodOp=GetDetailValue("EcodOp");
   if(m_EcodOp!=1 && m_EcodOp!=1 && m_EcodOp!=2 && m_EcodOp!=3 && m_EcodOp!=4 && m_EcodOp!=5 && m_EcodOp!=6)
      throw Exception("订货策略只能取值1-无策略，2-订货点策略，3-订货上限策略，\n4-定期订货策略，5-定量订货策略，6-手工订货策略!");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodProcess()
{
   AnsiString  m_EcodProcess;
   AnsiString  b_EcodProcess;
   m_EcodProcess=GetDetailValue("EcodProcess");
   b_EcodProcess=GetDetailOldValue("EcodProcess");
   if(m_EcodProcess.Length()>18)
      throw Exception("工序编码的长度不能大于18.");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodCfg()
{
   int m_EcodCfg;
   m_EcodCfg=GetDetailValue("EcodCfg");
   if(m_EcodCfg!=1 && m_EcodCfg!=2 && m_EcodCfg!=3)
      throw Exception("配置类型只能取值1-必需件,2-可选件,3-常用件");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodLot()
{
   double m_EcodLot;
   m_EcodLot=GetDetailValue("EcodLot");
   if(m_EcodLot<0)
      throw Exception("偏置时间不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodDesc()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::ValidEcodReason()
{
   AnsiString  m_EcodReason;
   AnsiString  b_EcodReason;
   m_EcodReason=GetDetailValue("EcodReason");
   b_EcodReason=GetDetailOldValue("EcodReason");

}
//---------------------------------------------------------------------------
void __fastcall TKSEcoh::CmdExec(AnsiString Param)
{

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