mlabh.cpp

科思ERP部分源码及控件

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

TKSLabh *sdLabh;
//---------------------------------------------------------------------------
__fastcall TKSLabh::TKSLabh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidHeadValues()
{
  //计时单号
      ValidLabhCode();
  //制单日期
      ValidLabhDate();
  //财务月份
      ValidLabhFmonth();
  //车间
      ValidLabhShop();
  //班组
      ValidLabhTeam();
  //状态
      ValidLabhState();
  //备注
      ValidLabhDesc();
  //操作员
      ValidLabhUser();
  //审核
      ValidLabhCheck();
  //审核员
      ValidLabhChecker();
  //审核日期
      ValidLabhCheckDate();
  //系统日期
      ValidLabhSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhCode()  //计时单号
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhDate()  //制单日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhFmonth()  //财务月份
{
    AnsiString  m_LabhFmonth;
    AnsiString  b_LabhFmonth;
    m_LabhFmonth=GetMasterValue("LabhFmonth");
    b_LabhFmonth=GetMasterOldValue("LabhFmonth");

    if(m_LabhFmonth!= b_LabhFmonth)
    {
      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_LabhFmonth<tFcstr)
      {
         Query->Close();
         throw Exception("财务月份不能小于当前月份!");
      }
       Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhShop()  //车间
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhTeam()  //班组
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhState()  //状态
{
    int m_LabhState;
    m_LabhState=GetMasterValue("LabhState");
    if(m_LabhState!=1 && m_LabhState!=2 && m_LabhState!=3)
       throw Exception("工时登记单据的状态只能为(1-预备,2-确认,3-结清.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhDesc()  //备注
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhUser()  //操作员
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhCheck()  //审核
{
    int m_LabhCheck;
    m_LabhCheck=GetMasterValue("LabhCheck");
    if(m_LabhCheck!=0 && m_LabhCheck!=1)
       throw Exception("审核标识的取值只能是(0-未审核,1-已审核.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhChecker()  //审核员
{
    int m_LabhCheck;
    AnsiString  m_LabhChecker;
    AnsiString  b_LabhChecker;
    m_LabhCheck=GetMasterValue("LabhCheck");
    m_LabhChecker=GetMasterValue("LabhChecker");
    b_LabhChecker=GetMasterOldValue("LabhChecker");
    if(m_LabhCheck==1)
    {
      if(m_LabhChecker!=b_LabhChecker)
      {
         Query->Close();
         Query->SQL->Clear();
         Query->SQL->Add("select ProducterCode from sdProducter Where ProducterCode='"+m_LabhChecker+"' and ProducterCheck=1");
         Query->Open();
         if(Query->RecordCount<=0)
         {
            Query->Close();
            throw Exception("审核人：'"+m_LabhChecker+"'未定义,或无审核的权限!");
         }
         Query->Close();
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabhSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidItemValues()
{
      ValidLabdCode();
      ValidLabdEmployee();
      ValidLabdLine();
      ValidLabdWo();
      ValidLabdProcess();
      ValidLabdTime();
      ValidLabdPrice();
      ValidLabdDType();
      ValidLabdDesc();
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdCode()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdEmployee()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdLine()
{
    int m_LabdLine;
    m_LabdLine=GetDetailValue("LabdLine");
    if(m_LabdLine<=0)
       throw Exception("工时登记单的行号不能小于等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdWo()
{
    AnsiString  m_LabdWo;
    AnsiString  b_LabdWo;
    m_LabdWo=GetDetailValue("LabdWo");
    b_LabdWo=GetDetailOldValue("LabdWo");

    if(m_LabdWo!=b_LabdWo)
    {
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("Select WoCode from sdWo Where WoCheck=1 and WoCancel=0 and WoClose=0 and WoCode='"+m_LabdWo+"'");
       Query->Open();
       if(Query->RecordCount<=0)
       {
          Query->Close();
          throw Exception("加工单:'"+m_LabdWo+"'不存在,或已结清,或已作废,或未审核!");
       }
       Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdProcess()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdTime()
{
    double m_LabdTime;
    m_LabdTime=GetDetailValue("LabdTime");
    if(m_LabdTime<=0)
       throw Exception("工时登记单的工时时间不能小于和等于0!");
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdPrice()
{
    double m_LabdPrice;
    m_LabdPrice=GetDetailValue("LabdPrice");
    if(m_LabdPrice<=0)
       throw Exception("工时登记单的工时单价不能小于和等于0!");
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdDType()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::ValidLabdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSLabh::CmdExec(AnsiString Param)
{

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