mgmth_d.cpp

科思ERP部分源码及控件

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

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

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::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 tFcstr=Query->FieldValues["FcMonth"];
      if(m_GmthFmonth<tFcstr)
      {
        Query->Close();
        throw Exception("财务月份不能小于当前月份");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmthDate()  //领料日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmthWoCode()  //工单号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmthDept()  //领料部门
{
    AnsiString  m_GmthDept;
    AnsiString  b_GmthDept;
    m_GmthDept=GetMasterValue("GmthDept");
    b_GmthDept=GetMasterOldValue("GmthDept");

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmthPosType()  //收发存类型
{

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

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmthCheck()  //审核标志
{
    int m_GmthCheck;
    m_GmthCheck=GetMasterValue("GmthCheck");
    if(m_GmthCheck!=0 && m_GmthCheck!=1)
       throw Exception("审核标志只能取值(0-未审核,1-已审核.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::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_D::ValidGmthCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmthState()  //状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmthSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidItemValues()
{

      ValidGmtdCode();
      ValidGmtdLine();
      ValidGmtdGoods();
      ValidGmtdUnit();
      ValidGmtdWoCode();
      ValidGmtdSLoc();
      ValidGmtdProcess();
      ValidGmtdDLoc();
      ValidGmtdBatch();
      ValidGmtdQty();
      ValidGmtdDQty();
      ValidGmtdDesc();
      ValidGmtdOQty();
      ValidGmtdIPrice();
      ValidGmtdIAmt();
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdCode()
{

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

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

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdSLoc()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdProcess()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdDLoc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdBatch()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdQty()
{
    double m_GmtdQty;
    m_GmtdQty=GetDetailValue("GmtdQty");
    if(m_GmtdQty<0 ||m_GmtdQty==0)
       throw Exception("部门领料的数量不能小于零或等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdDQty()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGmth_D::ValidGmtdOQty()
{

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

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

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