mpquote.cpp

科思ERP部分源码及控件

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

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

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

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

  AnsiString  m_PquoteSdate;
  m_PquoteSdate=GetMasterValue("PquoteSdate");

  AnsiString  m_PquoteDesc;
   m_PquoteDesc=GetMasterValue("PquoteDesc");


  AnsiString  m_PquoteSysDate;
   m_PquoteSysDate=GetMasterValue("PquoteSysDate");

  double m_PquoteQty1;
  double b_PquoteQty1;
   m_PquoteQty1=GetMasterValue("PquoteQty1");
   b_PquoteQty1=GetMasterOldValue("PquoteQty1");
   if(m_PquoteQty1<0)
     throw Exception("数量不能小于零");
   b_PquoteQty1   =   m_PquoteQty1;

  double m_PquotePrice1;
  double b_PquotePrice1;
   m_PquotePrice1=GetMasterValue("PquotePrice1");
   b_PquotePrice1=GetMasterOldValue("PquotePrice1");
    if(m_PquotePrice1<0)
      throw Exception("单价不能小于零");
    b_PquotePrice1   =   m_PquotePrice1;

  double m_PquoteRebate1;
  double b_PquoteRebate1;
   m_PquoteRebate1=GetMasterValue("PquoteRebate1");
   b_PquoteRebate1=GetMasterOldValue("PquoteRebate1");
    if(m_PquoteRebate1<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate1   =   m_PquoteRebate1;

  double m_PquoteQty2;
  double b_PquoteQty2;
   m_PquoteQty2=GetMasterValue("PquoteQty2");
   b_PquoteQty2=GetMasterOldValue("PquoteQty2");
    if(m_PquoteQty2<0)
      throw Exception("数量不能小于零");
    b_PquoteQty2   =   m_PquoteQty2;

  double m_PquotePrice2;
  double b_PquotePrice2;
   m_PquotePrice2=GetMasterValue("PquotePrice2");
   b_PquotePrice2=GetMasterOldValue("PquotePrice2");
    if(m_PquotePrice2<0)
      throw Exception("单价不能小于零");
    b_PquotePrice2   =   m_PquotePrice2;

  double m_PquoteRebate2;
  double b_PquoteRebate2;
   m_PquoteRebate2=GetMasterValue("PquoteRebate2");
   b_PquoteRebate2=GetMasterOldValue("PquoteRebate2");
    if(m_PquoteRebate2<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate2   =   m_PquoteRebate2;

  double m_PquoteQty3;
  double b_PquoteQty3;
   m_PquoteQty3=GetMasterValue("PquoteQty3");
   b_PquoteQty3=GetMasterOldValue("PquoteQty3");
    if(m_PquoteQty3<0)
      throw Exception("数量不能小于零");
    b_PquoteQty3   =   m_PquoteQty3;

  double m_PquotePrice3;
  double b_PquotePrice3;
   m_PquotePrice3=GetMasterValue("PquotePrice3");
   b_PquotePrice3=GetMasterOldValue("PquotePrice3");
    if(m_PquotePrice3<0)
      throw Exception("单价不能小于零");
    b_PquotePrice3   =   m_PquotePrice3;

  double m_PquoteRebate3;
  double b_PquoteRebate3;
   m_PquoteRebate3=GetMasterValue("PquoteRebate3");
   b_PquoteRebate3=GetMasterOldValue("PquoteRebate3");
    if(m_PquoteRebate3<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate3   =   m_PquoteRebate3;

  double m_PquoteQty4;
  double b_PquoteQty4;
   m_PquoteQty4=GetMasterValue("PquoteQty4");
   b_PquoteQty4=GetMasterOldValue("PquoteQty4");
    if(m_PquoteQty4<0)
      throw Exception("数量不能小于零");
    b_PquoteQty4   =   m_PquoteQty4;

  double m_PquotePrice4;
  double b_PquotePrice4;
   m_PquotePrice4=GetMasterValue("PquotePrice4");
   b_PquotePrice4=GetMasterOldValue("PquotePrice4");
    if(m_PquotePrice4<0)
      throw Exception("单价不能小于零");
    b_PquotePrice4   =   m_PquotePrice4;

  double m_PquoteRebate4;
  double b_PquoteRebate4;
   m_PquoteRebate4=GetMasterValue("PquoteRebate4");
   b_PquoteRebate4=GetMasterOldValue("PquoteRebate4");
    if(m_PquoteRebate4<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate4   =   m_PquoteRebate4;

  double m_PquoteQty5;
  double b_PquoteQty5;
   m_PquoteQty5=GetMasterValue("PquoteQty5");
   b_PquoteQty5=GetMasterOldValue("PquoteQty5");
    if(m_PquoteQty5<0)
      throw Exception("数量不能小于零");
    b_PquoteQty5   =   m_PquoteQty5;

  double m_PquotePrice5;
  double b_PquotePrice5;
   m_PquotePrice5=GetMasterValue("PquotePrice5");
   b_PquotePrice5=GetMasterOldValue("PquotePrice5");
    if(m_PquotePrice5<0)
      throw Exception("单价不能小于零");
    b_PquotePrice5   =   m_PquotePrice5;

  double m_PquoteRebate5;
  double b_PquoteRebate5;
   m_PquoteRebate5=GetMasterValue("PquoteRebate5");
   b_PquoteRebate5=GetMasterOldValue("PquoteRebate5");
    if(m_PquoteRebate5<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate5   =   m_PquoteRebate5;

  double m_PquoteQty6;
  double b_PquoteQty6;
   m_PquoteQty6=GetMasterValue("PquoteQty6");
   b_PquoteQty6=GetMasterOldValue("PquoteQty6");
    if(m_PquoteQty6<0)
      throw Exception("数量不能小于零");
    b_PquoteQty6   =   m_PquoteQty6;

  double m_PquotePrice6;
  double b_PquotePrice6;
   m_PquotePrice6=GetMasterValue("PquotePrice6");
   b_PquotePrice6=GetMasterOldValue("PquotePrice6");
    if(m_PquotePrice6<0)
      throw Exception("单价不能小于零");
    b_PquotePrice6   =   m_PquotePrice6;

  double m_PquoteRebate6;
  double b_PquoteRebate6;
   m_PquoteRebate6=GetMasterValue("PquoteRebate6");
   b_PquoteRebate6=GetMasterOldValue("PquoteRebate6");
    if(m_PquoteRebate6<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate6   =   m_PquoteRebate6;

  double m_PquoteQty7;
  double b_PquoteQty7;
   m_PquoteQty7=GetMasterValue("PquoteQty7");
   b_PquoteQty7=GetMasterOldValue("PquoteQty7");
    if(m_PquoteQty7<0)
      throw Exception("数量不能小于零");
    b_PquoteQty7   =   m_PquoteQty7;

  double m_PquotePrice7;
  double b_PquotePrice7;
   m_PquotePrice7=GetMasterValue("PquotePrice7");
   b_PquotePrice7=GetMasterOldValue("PquotePrice7");
    if(m_PquotePrice7<0)
      throw Exception("单价不能小于零");
    b_PquotePrice7   =   m_PquotePrice7;

  double m_PquoteRebate7;
  double b_PquoteRebate7;
   m_PquoteRebate7=GetMasterValue("PquoteRebate7");
   b_PquoteRebate7=GetMasterOldValue("PquoteRebate7");
    if(m_PquoteRebate7<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate7   =   m_PquoteRebate7;

  double m_PquoteQty8;
  double b_PquoteQty8;
   m_PquoteQty8=GetMasterValue("PquoteQty8");
   b_PquoteQty8=GetMasterOldValue("PquoteQty8");
    if(m_PquoteQty8<0)
      throw Exception("数量不能小于零");
    b_PquoteQty8   =   m_PquoteQty8;

  double m_PquotePrice8;
  double b_PquotePrice8;
   m_PquotePrice8=GetMasterValue("PquotePrice8");
   b_PquotePrice8=GetMasterOldValue("PquotePrice8");
    if(m_PquotePrice8<0)
      throw Exception("单价不能小于零");
    b_PquotePrice8   =   m_PquotePrice8;

  double m_PquoteRebate8;
  double b_PquoteRebate8;
   m_PquoteRebate8=GetMasterValue("PquoteRebate8");
   b_PquoteRebate8=GetMasterOldValue("PquoteRebate8");
    if(m_PquoteRebate8<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate8   =   m_PquoteRebate8;

  double m_PquoteQty9;
  double b_PquoteQty9;
   m_PquoteQty9=GetMasterValue("PquoteQty9");
   b_PquoteQty9=GetMasterOldValue("PquoteQty9");
    if(m_PquoteQty9<0)
      throw Exception("数量不能小于零");
    b_PquoteQty9   =   m_PquoteQty9;

  double m_PquotePrice9;
  double b_PquotePrice9;
   m_PquotePrice9=GetMasterValue("PquotePrice9");
   b_PquotePrice9=GetMasterOldValue("PquotePrice9");
    if(m_PquotePrice9<0)
      throw Exception("单价不能小于零");
    b_PquotePrice9   =   m_PquotePrice9;

  double m_PquoteRebate9;
  double b_PquoteRebate9;
   m_PquoteRebate9=GetMasterValue("PquoteRebate9");
   b_PquoteRebate9=GetMasterOldValue("PquoteRebate9");
    if(m_PquoteRebate9<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate9   =   m_PquoteRebate9;

  double m_PquoteQty10;
  double b_PquoteQty10;
   m_PquoteQty10=GetMasterValue("PquoteQty10");
   b_PquoteQty10=GetMasterOldValue("PquoteQty10");
    if(m_PquoteQty10<0)
      throw Exception("数量不能小于零");
    b_PquoteQty10   =   m_PquoteQty10;

  double m_PquotePrice10;
  double b_PquotePrice10;
   m_PquotePrice10=GetMasterValue("PquotePrice10");
   b_PquotePrice10=GetMasterOldValue("PquotePrice10");
    if(m_PquotePrice10<0)
      throw Exception("单价不能小于零");
    b_PquotePrice10   =   m_PquotePrice10;

  double m_PquoteRebate10;
  double b_PquoteRebate10;
   m_PquoteRebate10=GetMasterValue("PquoteRebate10");
   b_PquoteRebate10=GetMasterOldValue("PquoteRebate10");
    if(m_PquoteRebate10<0)
      throw Exception("折扣不能小于零");
    b_PquoteRebate10   =   m_PquoteRebate10;
}
//---------------------------------------------------------------------------
void __fastcall TKSPquote::CmdExec(AnsiString Param)
{

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