mdml.cpp

科思ERP部分源码及控件

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

TKSDml *sdDml;
//---------------------------------------------------------------------------
__fastcall TKSDml::TKSDml()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidHeadValues()
{
   //领料单号
      ValidDmlGmtCode();
   //领料单行号
      ValidDmlGmtdLine();
   //工单号
      ValidDmlWoCode();
   //工序号
      ValidDmlProcess();
   //分配货位
      ValidDmlLoc();
   //分配数量
      ValidDmlQty();
   //物料编码
      ValidDmlGoods();
   //计量单位
      ValidDmlUnit();
}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlGmtCode()  //领料单号
{

}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlGmtdLine()  //领料单行号
{
    int m_DmlGmtdLine;
    m_DmlGmtdLine=GetMasterValue("DmlGmtdLine");
    if(m_DmlGmtdLine<0 || m_DmlGmtdLine==0)
       throw Exception("领料单的行号不能小于或等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlWoCode()  //工单号
{

}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlProcess()  //工序号
{
    AnsiString  m_DmlProcess;
    AnsiString  b_DmlProcess;
    AnsiString  m_DmlGmtCode;
    int m_DmlGmtdLine;
    AnsiString m_DmlWoCode;
    m_DmlProcess=GetMasterValue("DmlProcess");
    b_DmlProcess=GetMasterOldValue("DmlProcess");
    m_DmlGmtCode=GetMasterValue("DmlGmtCode");
    m_DmlGmtdLine=GetMasterValue("DmlGmtdLine");
    m_DmlWoCode=GetMasterValue("DmlWoCode");

    if(m_DmlGmtdLine<0 || m_DmlGmtdLine==0)
      throw Exception("领料单的行号不能小于或等于零!");

    if(m_DmlProcess!=b_DmlProcess)
    {
      //Exist Check
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select * from sdDml where DmlGmtCode='"+m_DmlGmtCode+"' and DmlGmtdLine="+IntToStr(m_DmlGmtdLine)+" and DmlProcess='"+m_DmlProcess+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("分摊工序已存在");
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlLoc()  //分配货位
{
}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlQty()  //分配数量
{
    double m_DmlQty;
    m_DmlQty=GetMasterValue("DmlQty");
    if(m_DmlQty<0 || m_DmlQty==0)
      throw Exception("分摊的数量不能小于和等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlGoods()  //物料编码
{
    AnsiString  m_DmlGoods;
    AnsiString  b_DmlGoods;
    AnsiString  m_DmlWoCode;
    m_DmlWoCode=GetMasterValue("DmlWoCode");
    m_DmlGoods=GetMasterValue("DmlGoods");
    b_DmlGoods=GetMasterOldValue("DmlGoods");

}
//---------------------------------------------------------------------------
void __fastcall TKSDml::ValidDmlUnit()  //计量单位
{
}
//---------------------------------------------------------------------------
void __fastcall TKSDml::CmdExec(AnsiString Param)
{

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