msugt.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 106 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "mSugt.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)
TKSSugt *sdSugt;
//---------------------------------------------------------------------------
__fastcall TKSSugt::TKSSugt()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSugt::ValidHeadValues()
{

   AnsiString  m_SugtSugCode;
   AnsiString  b_SugtSugCode;
   m_SugtSugCode=GetMasterValue("SugtSugCode");
   b_SugtSugCode=GetMasterOldValue("SugtSugCode");
   AnsiString  m_SugtFmonth;
   m_SugtFmonth=GetMasterValue("SugtFmonth");
   AnsiString  m_SugtLoc;
   m_SugtLoc=GetMasterValue("SugtLoc");
   AnsiString  m_SugtGoods;
   m_SugtGoods=GetMasterValue("SugtGoods");

    if(m_SugtFmonth.IsEmpty())
       throw Exception("当前的财务月份不能为空!");
    if(m_SugtLoc.IsEmpty())
       throw Exception("物料的存储货位不能为空!");
    if(m_SugtGoods.IsEmpty())
       throw Exception("物料的编码不能为空!");
    if(m_SugtSugCode.IsEmpty())
       throw Exception("备货单号不能为空!");
    if(m_SugtSugCode.Length()>18)
       throw Exception("备货单号:'"+m_SugtSugCode+"'的长度不能大于18!");
    if(m_SugtSugCode.UpperCase()!=b_SugtSugCode.UpperCase())
    {
      /* if(this->FindKey(KeyStr))
          throw Exception("备货单号'"+m_SugtSugCode+"'的帐已经存在!");   */     //???????????
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("select SughCode from sdSugh where SughCode='"+m_SugtSugCode+"'");
       Query->Open();
       if(Query->RecordCount<=0)
       {
          Query->Close();
          throw Exception("备货单号:'"+m_SugtSugCode+"'的资料未定义!");
       }
    }


   m_SugtFmonth=GetMasterValue("SugtFmonth");


   m_SugtLoc=GetMasterValue("SugtLoc");


   m_SugtGoods=GetMasterValue("SugtGoods");

  double m_SugtBoyQty;
   m_SugtBoyQty=GetMasterValue("SugtBoyQty");
    if(m_SugtBoyQty<0)
       throw Exception("年初的数量不能小于零!");

  double m_SugtBopQty;
   m_SugtBopQty=GetMasterValue("SugtBopQty");
    if(m_SugtBopQty<0)
       throw Exception("期初的数量不能小于零!");

  double m_SugtIopQty;
   m_SugtIopQty=GetMasterValue("SugtIopQty");

 double m_SugtOopQty;
   m_SugtOopQty=GetMasterValue("SugtOopQty");

  double m_SugtIoyQty;
   m_SugtIoyQty=GetMasterValue("SugtIoyQty");
    if(m_SugtIoyQty<0)
       throw Exception("年初的发出数量不能小于零!");

  double m_SugtOoyQty;
   m_SugtOoyQty=GetMasterValue("SugtOoyQty");
    if(m_SugtOoyQty<0)
       throw Exception("年初的收入数量不能小于零!");

 double m_SugtAoyQty;
   m_SugtAoyQty=GetMasterValue("SugtAoyQty");

  int m_SugtClose;
   m_SugtClose=GetMasterValue("SugtClose");

  int m_SugtInit;
   m_SugtInit=GetMasterValue("SugtInit");
}
//---------------------------------------------------------------------------
void __fastcall TKSSugt::CmdExec(AnsiString Param)
{

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