mweph.cpp

科思ERP部分源码及控件

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

TKSWeph *sdWeph;
//---------------------------------------------------------------------------
__fastcall TKSWeph::TKSWeph()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidHeadValues()
{
  //成品单号
      ValidWephCode();
  //财务月份
      ValidWephFmonth();
  //日期
      ValidWephDate();
  //收发存类型
      ValidWephPosType();
  //备注
      ValidWephDesc();
  //审核
      ValidWephCheck();
  //审核人
      ValidWephChecker();
  //审核日期
      ValidWephCheckDate();
  //操作员
      ValidWephUser();
  //状态
      ValidWephState();
  //系统日期
      ValidWephSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephCode()  //成品单号
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephFmonth()  //财务月份
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephDate()  //日期
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephPosType()  //收发存类型
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephDesc()  //备注
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephCheck()  //审核
{
    int m_WephCheck;
    m_WephCheck=GetMasterValue("WephCheck");
    if(m_WephCheck!=0 && m_WephCheck!=1)
       throw Exception("审核标志只能取值为(0-未审核,1-已审核.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephChecker()  //审核人
{
    int m_WephCheck;
    AnsiString  m_WephChecker;
    AnsiString  b_WephChecker;
    m_WephChecker=GetMasterValue("WephChecker");
    b_WephChecker=GetMasterOldValue("WephChecker");
    m_WephCheck=GetMasterValue("WephCheck");
    if(m_WephCheck==1)
    {
      if(m_WephChecker!=b_WephChecker)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select ProducterCode from sdProducter where productercode='"+m_WephChecker+"' and productercheck = 1");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核人:'"+m_WephChecker+"'未定义或没有审核权限!");
        }
        Query->Close();
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephUser()  //操作员
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephState()    //状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWephSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidItemValues()
{
      ValidWepdCode();
      ValidWepdLine();
      ValidWepdWo();
      ValidWepdGoods();
      ValidWepdLoc();
      ValidWepdBatch();
      ValidWepdSod();
      ValidWepdSodLine();
      ValidWepdCQty();
      ValidWepdEQty();
      ValidWepdWQty();
      ValidWepdRQty();
      ValidWepdSQty();
      ValidWepdWsr();
      ValidWepdDesc();
      ValidWepdIQty();
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdCode()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdLine()
{
    int m_WepdLine;
    m_WepdLine=GetDetailValue("WepdLine");
    if(m_WepdLine<=0)
       throw Exception("完成品入库登记单行号不能小于等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdWo()
{
    AnsiString  m_WepdWo;
    AnsiString  b_WepdWo;
    m_WepdWo=GetDetailValue("WepdWo");
    b_WepdWo=GetDetailOldValue("WepdWo");

    if(UpperCase(m_WepdWo)!=UpperCase(b_WepdWo))
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select * from sdWo where WoCheck=1 and WoClose=0 and WoCancel=0 and WoCode ='"+m_WepdWo+"'");
      Query->Open();
      if(Query->RecordCount <= 0)
      {
        Query->Close();
        throw Exception("加工单:'"+m_WepdWo+"'不存在,或已结清,或已作废,或未审核!");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdGoods()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdLoc()
{
    AnsiString  m_WepdLoc;
    AnsiString  b_WepdLoc;
    AnsiString  m_WepdGoods;
    m_WepdLoc=GetDetailValue("WepdLoc");
    b_WepdLoc=GetDetailOldValue("WepdLoc");
    m_WepdGoods=GetDetailValue("WepdGoods");

    if(UpperCase(m_WepdLoc)!=UpperCase(b_WepdLoc))
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select LgGoodsCode from sdLg where LgGoodsCode='"+m_WepdGoods+"' and LgLocCode='"+m_WepdLoc+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("入库货位:'"+m_WepdLoc+"'不能存放货物:"+m_WepdGoods+"");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdBatch()
{
    AnsiString  m_WepdBatch;
    AnsiString  b_WepdBatch;
    m_WepdBatch=GetDetailValue("WepdBatch");
    b_WepdBatch=GetDetailOldValue("WepdBatch");

    if(m_WepdBatch.IsEmpty()==false && UpperCase(m_WepdBatch)!=UpperCase(b_WepdBatch))
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select BatchCode from sdBatch where BatchCode='"+m_WepdBatch+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("批号编码:"+m_WepdBatch+"未定义!");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdSod()
{
    AnsiString  m_WepdSod;
    AnsiString  b_WepdSod;
    m_WepdSod=GetDetailValue("WepdSod");
    b_WepdSod=GetDetailOldValue("WepdSod");

    if(!m_WepdSod.IsEmpty() && UpperCase(m_WepdSod)!=UpperCase(b_WepdSod))
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select Sohcode from sdSoh where SohCheck=1 and SohCancel=0 and SohClose=0 and Sohcode='"+m_WepdSod+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("订单:"+m_WepdSod+"不存在,或未审核,或已作废,或已结清!");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdSodLine()
{
    int m_WepdSodLine;
    int b_WepdSodLine;
    AnsiString m_WepdSod;
    m_WepdSodLine=GetDetailValue("WepdSodLine");
    b_WepdSodLine=GetDetailOldValue("WepdSodLine");
    m_WepdSod=GetDetailValue("WepdSod");
    if(m_WepdSod.IsEmpty()==false)
    {
      if(m_WepdSodLine!=b_WepdSodLine)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select SodCode,SodGoods from sdSod where SodCode='"+m_WepdSod+"' and SodLine="+AnsiString(m_WepdSodLine)+"");
        Query->Open();
        if(Query->RecordCount<=0)
        {
           Query->Close();
           throw Exception("订单行号:'"+AnsiString(m_WepdSodLine)+"'不存在!");
        }
        Query->Close();
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdCQty()
{
    double m_WepdCQty;
    m_WepdCQty=GetDetailValue("WepdCQty");
    if(m_WepdCQty<=0)
       throw Exception("完工数量必须大于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdEQty()
{
    double m_WepdEQty;
    double m_WepdCQty;
    m_WepdEQty=GetDetailValue("WepdEQty");
    m_WepdCQty=GetDetailValue("WepdCQty");
    if(m_WepdEQty<0)
      throw Exception("合格数量不能小于零!");
    if(m_WepdEQty>m_WepdCQty)
      throw Exception("合格数量不能大于完工数量!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdWQty()
{
    double m_WepdWQty;
    double m_WepdCQty;
    m_WepdWQty=GetDetailValue("WepdWQty");
    m_WepdCQty=GetDetailValue("WepdCQty");
    if(m_WepdWQty<0)
      throw Exception("废品数量不能小于零!");
    if(m_WepdWQty>m_WepdCQty)
      throw Exception("废品数量不能大于完工数量!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdRQty()
{
    double m_WepdCQty;
    double m_WepdRQty;
    m_WepdCQty=GetDetailValue("WepdCQty");
    m_WepdRQty=GetDetailValue("WepdRQty");
    if(m_WepdRQty<0)
      throw Exception("返修数量不能小于零!");
    if(m_WepdRQty>m_WepdCQty)
      throw Exception("返修数量不能大于完工数量!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdSQty()
{
    double m_WepdCQty;
    double m_WepdSQty;
    m_WepdCQty=GetDetailValue("WepdCQty");
    m_WepdSQty=GetDetailValue("WepdSQty");
    if(m_WepdSQty<0)
      throw Exception("次品数量不能小于零!");
    if(m_WepdSQty>m_WepdCQty)
      throw Exception("次品数量不能大于完工数量!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdWsr()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdDesc()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::ValidWepdIQty()
{
    double m_WepdIQty;
    m_WepdIQty=GetDetailValue("WepdIQty");
    if(m_WepdIQty<0)
      throw Exception("入库数量不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWeph::CmdExec(AnsiString Param)
{

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