mgmth_c.cpp

科思ERP部分源码及控件

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

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

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

    if(m_GmthFmonth.Length()>6)
       throw Exception("财务月份的长度不能大于6！");
    if(m_GmthFmonth != b_GmthFmonth)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select FcMonth from sdFc where FcCurrent=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("未定义当前财务月份!");
      }
      AnsiString s=Query->FieldValues["FcMonth"];
      if(m_GmthFmonth<s)
      {
        Query->Close();
        throw Exception("财务月份不能小于当前月份!");
      }
       Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmthDate()  //领料日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmthWoCode()  //工单号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmthDept()  //领料部门
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmthPosType()  //收发存类型
{
    AnsiString  m_GmthPosType;
    AnsiString  b_GmthPosType;
    m_GmthPosType=GetMasterValue("GmthPosType");
    b_GmthPosType=GetMasterOldValue("GmthPosType");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmthType()  //领料类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmthDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmthUser()  //操作员
{

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

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

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdWoCode()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdSLoc()
{
    AnsiString  m_GmtdSLoc;
    AnsiString  b_GmtdSLoc;
    m_GmtdSLoc=GetDetailValue("GmtdSLoc");
    b_GmtdSLoc=GetDetailOldValue("GmtdSLoc");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdProcess()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdDLoc()
{

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

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdQty()
{
    double m_GmtdQty;
    m_GmtdQty=GetDetailValue("GmtdQty");
    if(m_GmtdQty<0 ||m_GmtdQty==0)
       throw Exception("共用件领料的数量不能小于或等于零！");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdDQty()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_C::ValidGmtdOQty()
{

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

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

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