mgmth_r.cpp

科思ERP部分源码及控件

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

TKSGmth_R *sdGmth_R;
//---------------------------------------------------------------------------
__fastcall TKSGmth_R::TKSGmth_R()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidHeadValues()
{
  //领料单号
      ValidGmthCode();
  //财务月份
      ValidGmthFmonth();
  //领料日期
      ValidGmthDate();
  //工单号
      ValidGmthWoCode();
  //领料部门
      ValidGmthDept();
  //收发存类型
      ValidGmthPosType();
  //领料类型
      ValidGmthType();
  //备注
      ValidGmthDesc();
  //操作员
      ValidGmthUser();
  //审核标志
      ValidGmthCheck();
  //审核人
      ValidGmthChecker();
  //审核日期
      ValidGmthCheckDate();
  //状态
      ValidGmthState();
  //系统日期
      ValidGmthSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthCode()  //领料单号
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthFmonth()  //财务月份
{
    AnsiString  m_GmthFmonth;
    m_GmthFmonth=GetMasterValue("GmthFmonth");

    if(m_GmthFmonth.Length()>6)
       throw Exception("财务月份的长度不能大于6!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthDate()  //领料日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthWoCode()  //工单号
{
    AnsiString  m_GmthWoCode;
    AnsiString  b_GmthWoCode;
    m_GmthWoCode=GetMasterValue("GmthWoCode");
    b_GmthWoCode=GetMasterOldValue("GmthWoCode");

    if(m_GmthWoCode.UpperCase()!= b_GmthWoCode.UpperCase())
    {
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("Select WoCode from sdWo where WoCheck=1 and WoClose=0 and WoCancel=0 and WoCode='"+m_GmthWoCode+"'");
       Query->Open();
       if(Query->RecordCount==0)
       {
          Query->Close();
          throw Exception("加工单:'"+m_GmthWoCode+"'不存在,或已结清,或已作废,或未审核!");
       }
       Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthDept()  //领料部门
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthPosType()  //收发存类型
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthType()  //领料类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthUser()  //操作员
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthCheck()  //审核标志
{
    int m_GmthCheck;
    m_GmthCheck=GetMasterValue("GmthCheck");
    if(m_GmthCheck!=0 && m_GmthCheck!=1)
      throw Exception("审核标志只能取值(0-未审核,1-已审核)!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthChecker()  //审核人
{
    int m_GmthCheck;
    AnsiString  m_GmthChecker;
    AnsiString  b_GmthChecker;
    m_GmthCheck=GetMasterValue("GmthCheck");
    m_GmthChecker=GetMasterValue("GmthChecker");
    b_GmthChecker=GetMasterOldValue("GmthChecker");
    if(m_GmthCheck==1)
    {
      if(m_GmthChecker!=b_GmthChecker)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select ProducterCode from sdProducter where ProducterCode='"+m_GmthChecker+"' and ProducterCheck=1");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核人'"+m_GmthChecker+"'未定义或无审核的权限!");
        }
        Query->Close();
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthState()  //状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmthSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidItemValues()
{
      ValidGmtdCode();
      ValidGmtdLine();
      ValidGmtdGoods();
      ValidGmtdUnit();
      ValidGmtdWoCode();
      ValidGmtdSLoc();
      ValidGmtdBatch();
      ValidGmtdOQty();
      ValidGmtdIPrice();
      ValidGmtdIAmt();
      ValidGmtdPQty();
      ValidGmtdCQty();
      ValidGmtdQty();
      ValidGmtdDQty();
      ValidGmtdDesc();
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdCode()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdLine()
{
    int m_GmtdLine;
    m_GmtdLine=GetDetailValue("GmtdLine");
    if(m_GmtdLine<=0)
       throw Exception("定额领料表明细的行号不能小于和等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdGoods()
{
    AnsiString  m_GmtdGoods;
    AnsiString  b_GmtdGoods;
    m_GmtdGoods=GetDetailValue("GmtdGoods");
    b_GmtdGoods=GetDetailOldValue("GmtdGoods");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdUnit()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdWoCode()
{
    AnsiString  m_GmtdWoCode;
    AnsiString  b_GmtdWoCode;
    m_GmtdWoCode=GetDetailValue("GmtdWoCode");
    b_GmtdWoCode=GetDetailOldValue("GmtdWoCode");
    
    if(m_GmtdWoCode != b_GmtdWoCode)
    {
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("Select WoCode from sdWo where WoCheck=1 and WoCancel=0 and WoClose=0 and WoCode='"+m_GmtdWoCode+"'");
       Query->Open();
       if(Query->RecordCount==0)
       {
          Query->Close();
          throw Exception("加工单:'"+m_GmtdWoCode+"'不存在,或已结清,或已作废,或未审核!");
       }
       Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdSLoc()
{
    AnsiString  m_GmtdSLoc;
    AnsiString  b_GmtdSLoc;
    AnsiString  m_GmtdGoods;
    m_GmtdGoods=GetDetailValue("GmtdGoods");
    m_GmtdSLoc=GetDetailValue("GmtdSLoc");
    b_GmtdSLoc=GetDetailOldValue("GmtdSLoc");

      if(m_GmtdSLoc != b_GmtdSLoc)
      {
         //存在性,合法性
         Query->Close();
         Query->SQL->Clear();
         Query->SQL->Add("select LgLocCode from sdLg where LgState=1 and LgLocCode='"+m_GmtdSLoc+"' and LgGoodsCode='"+m_GmtdGoods+"'");
         Query->Open();
         if(Query->RecordCount==0)
         {
            Query->Close();
            throw Exception("出料货位:'"+m_GmtdSLoc+"'不能存放物料:'"+m_GmtdGoods+"'!");
         }
         Query->Close();
      }
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdBatch()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdOQty()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdIPrice()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdIAmt()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdPQty()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdCQty()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdQty()
{
    double m_GmtdQty;
    m_GmtdQty=AnsiString(GetDetailValue("GmtdQty")).ToDouble();
    if(m_GmtdQty<0)
       throw Exception("领料的数量不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdDQty()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::ValidGmtdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_R::CmdExec(AnsiString Param)
{

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