msodt.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

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

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

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

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


   AnsiString  m_SodtSoCode;
   AnsiString  b_SodtSoCode;
   m_SodtSoCode=GetMasterValue("SodtSoCode");
   b_SodtSoCode=GetMasterOldValue("SodtSoCode");
   AnsiString  m_SodtFmonth;
   m_SodtFmonth=GetMasterValue("SodtFmonth");
   AnsiString  m_SodtGoods;
   m_SodtGoods=GetMasterValue("SodtGoods");
   AnsiString  m_SodtLoc;
   m_SodtLoc=GetMasterValue("SodtLoc");
    if(m_SodtFmonth.IsEmpty())
       throw Exception("当前的财务月份不能为空!");
    if(m_SodtLoc.IsEmpty())
       throw Exception("物料的存储货位不能为空!");
    if(m_SodtGoods.IsEmpty())
       throw Exception("物料的编码不能为空!");
    if(m_SodtSoCode.IsEmpty())
       throw Exception("订单单号不能为空!");
    if(m_SodtSoCode.Length()>18)
       throw Exception("订单单号:'"+m_SodtSoCode+"'的长度不能大于18!");
    if(m_SodtSoCode.UpperCase()!=b_SodtSoCode.UpperCase())
    {
      /* if(this->FindKey(KeyStr))
          throw Exception("订单单号'"+m_SodtSoCode+"'的帐已经存在!");     */
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("select SohCode from sdSoh where SohCode='"+m_SodtSoCode+"' and SohCheck=1 and SohClose=0");
       Query->Open();
       if(Query->RecordCount<=0)
       {
          Query->Close();
          throw Exception("订单单号:'"+m_SodtSoCode+"'的资料未定义,或未审核,或已结清!");
       }
    }


   m_SodtFmonth=GetMasterValue("SodtFmonth");


   m_SodtLoc=GetMasterValue("SodtLoc");


   m_SodtGoods=GetMasterValue("SodtGoods");

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

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

 double m_SodtIopQty;
   m_SodtIopQty=GetMasterValue("SodtIopQty");

 double m_SodtOopQty;
   m_SodtOopQty=GetMasterValue("SodtOopQty");

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

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

 double m_SodtAoyQty;
   m_SodtAoyQty=GetMasterValue("SodtAoyQty");

  int m_SodtClose;
   m_SodtClose=GetMasterValue("SodtClose");

  int m_SodtInit;
   m_SodtInit=GetMasterValue("SodtInit");
}
//---------------------------------------------------------------------------
void __fastcall TKSSodt::CmdExec(AnsiString Param)
{

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