mgmth_a.cpp

科思ERP部分源码及控件

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

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

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

    if(m_GmthFmonth.Length()>6)
       throw Exception("财务月份的长度不能大于6!");

    Query->Close();
    Query->SQL->Clear();
    Query->SQL->Add("select FcMonth from sdFc where FcCurrent=1");
    Query->Open();

    AnsiString s=Query->FieldValues["FcMonth"];
      if(m_GmthFmonth<s)
      {
        Query->Close();
        throw Exception("财务月份不能小于当前月份");
      }
       Query->Close();
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmthDate()  //领料日期
{

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

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

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmthCheck()  //审核标志
{
    int m_GmthCheck;
    m_GmthCheck=GetMasterValue("GmthCheck");
    if(m_GmthCheck!=0 && m_GmthCheck!=1)
      throw Exception("审核标志只能取值(0-未审核,1-已审核.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::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_A::ValidGmthCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmthState()  //状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmthSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidItemValues()
{
      ValidGmtdCode();
      ValidGmtdLine();
      ValidGmtdGoods();
      ValidGmtdUnit();
      ValidGmtdWoCode();
      ValidGmtdSLoc();
      ValidGmtdProcess();
      ValidGmtdDLoc();
      ValidGmtdBatch();
      ValidGmtdQty();
      ValidGmtdDQty();
      ValidGmtdDesc();
      ValidGmtdOQty();
      ValidGmtdIPrice();
      ValidGmtdIAmt();
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdCode()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdLine()
{
    int m_GmtdLine;
    m_GmtdLine=GetDetailValue("GmtdLine");
    if(m_GmtdLine<=0)
       throw Exception("补料单明细的行号不能小于和等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdGoods()
{
    AnsiString  m_GmtdGoods;
    AnsiString  b_GmtdGoods;
    m_GmtdGoods=GetDetailValue("GmtdGoods");
    b_GmtdGoods=GetDetailOldValue("GmtdGoods");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdUnit()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdWoCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdSLoc()
{
    AnsiString  m_GmtdSLoc;
    AnsiString  b_GmtdSLoc;
    AnsiString  m_GmtdDLoc;
    m_GmtdDLoc=GetDetailValue("GmtdDLoc");
    m_GmtdSLoc=GetDetailValue("GmtdSLoc");
    b_GmtdSLoc=GetDetailOldValue("GmtdSLoc");

    if(m_GmtdSLoc.UpperCase()==m_GmtdDLoc.UpperCase())
      throw Exception("发料的货位和领料的货位不能相同!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdProcess()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdDLoc()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdBatch()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdQty()
{
    double m_GmtdQty;
    m_GmtdQty=GetDetailValue("GmtdQty");
    if(m_GmtdQty<0 ||m_GmtdQty==0)
       throw Exception("补料单补料的数量不能小于零或等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdDQty()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdOQty()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdIPrice()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::ValidGmtdIAmt()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_A::CmdExec(AnsiString Param)
{
}
//---------------------------------------------------------------------------