mpptt.cpp

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

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

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

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

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

   AnsiString  m_Pptt1ID;
   m_Pptt1ID=GetMasterValue("Pptt1ID");

   AnsiString  m_Pptt2ID;
   m_Pptt2ID=GetMasterValue("Pptt2ID");

  AnsiString  m_PpttFmonth;
   m_PpttFmonth=GetMasterValue("PpttFmonth");

  AnsiString  m_PpttLoc;
   m_PpttLoc=GetMasterValue("PpttLoc");

  AnsiString  m_PpttGoods;
   m_PpttGoods=GetMasterValue("PpttGoods");

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

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

  double m_PpttIopQty;
   m_PpttIopQty=GetMasterValue("PpttIopQty");

   double m_PpttOopQty;
   m_PpttOopQty=GetMasterValue("PpttOopQty");

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

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

 double m_PpttAoyQty;
   m_PpttAoyQty=GetMasterValue("PpttAoyQty");

  int m_PpttClose;
   m_PpttClose=GetMasterValue("PpttClose");

  int m_PpttInit;
   m_PpttInit=GetMasterValue("PpttInit");
}
//---------------------------------------------------------------------------
void __fastcall TKSPptt::CmdExec(AnsiString Param)
{

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