mwn.cpp

科思ERP部分源码及控件

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

TKSWn *sdWn;
//---------------------------------------------------------------------------
__fastcall TKSWn::TKSWn()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidHeadValues()
{
  //工票号
      ValidWnCode();
  //工单号
      ValidWnWo();
  //工序
      ValidWnProcess();
  //工票日期
      ValidWnDate();
  //物料编码
      ValidWnGoods();
  //计量单位
      ValidWnUnit();
  //计划量
      ValidWnPQty();
  //完工量
      ValidWnCQty();
  //合格量
      ValidWnEQty();
  //废品量
      ValidWnWQty();
  //返修量
      ValidWnRQty();
  //次品量
      ValidWnSQty();
  //计划开工日期
      ValidWnPsDate();
  //计划完工日期
      ValidWnPeDate();
  //实际开工日期
      ValidWnRsDate();
  //实际完工日期
      ValidWnReDate();
  //计划工时
      ValidWnPwt();
  //实用工时
      ValidWnFwt();
  //返修工时
      ValidWnRwt();
  //停工工时
      ValidWnDwt();
  //废品工时
      ValidWnWwt();
  //次品工时
      ValidWnSwt();
  //加班工时
      ValidWnOwt();
  //在制货位
      ValidWnLoc();
  //批号
      ValidWnBatch();
  //加工费率
      ValidWnPer();
  //加班费率
      ValidWnPeor();
  //计件单价
      ValidWnPrate();
  //外协标识
      ValidWnWxFlg();
  //外协费用
      ValidWnWxAmt();
  //质检标识
      ValidWnChkFlg();
  //备注
      ValidWnDesc();
  //完工
      ValidWnFshFlg();
  //完工日期
      ValidWnFshDate();
  //系统日期
      ValidWnSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnCode()  //工票号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnWo()  //工单号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnProcess()  //工序
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnDate()  //工票日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnGoods()  //物料编码
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnUnit()  //计量单位
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnPQty()  //计划量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnCQty()  //完工量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnEQty()  //合格量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnWQty()  //废品量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnRQty()  //返修量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnSQty()  //次品量
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnPsDate()  //计划开工日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnPeDate()  //计划完工日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnRsDate()  //实际开工日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnReDate()  //实际完工日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnPwt()  //计划工时
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnFwt()  //实用工时
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnRwt()  //返修工时
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnDwt()  //停工工时
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnWwt()  //废品工时
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnSwt()  //次品工时
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnOwt()  //加班工时
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnLoc()  //在制货位
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnBatch()  //批号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnPer()  //加工费率
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnPeor()  //加班费率
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnPrate()  //计件单价
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnWxFlg()  //外协标识
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnWxAmt()  //外协费用
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnChkFlg()  //质检标识
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnDesc()  //备注
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnFshFlg()  //完工
{
    int m_WnFshFlg;
    m_WnFshFlg=GetMasterValue("WnFshFlg");
    if(m_WnFshFlg!=0 && m_WnFshFlg!=1)
      throw Exception("工序完工标志只能取值(0-未完工,1-已完工)!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnFshDate()  //完工日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::ValidWnSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWn::CmdExec(AnsiString Param)
{
    if(Param.IsEmpty())
      throw Exception("参数出错!");
    Query->Close();
    Query->SQL->Clear();
    AnsiString sSQL;
    sSQL="exec sdWn_Genrate '"+Param+"'";
    Query->SQL->Add(sSQL);
    Query->ExecSQL();
    Query->Close();
}
//---------------------------------------------------------------------------