msquote.cpp

科思ERP部分源码及控件

void __fastcall TKSSquote::ValidSquoteEdate()  //停用日期
{
   AnsiString  m_SquoteEdate;
   m_SquoteEdate=GetMasterValue("SquoteEdate");
    if(m_SquoteEdate.IsEmpty())
      throw Exception("失效日期不能为空！");
//      throw Exception("失效日期不能小于等于生效日期");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteSpt()  //价格类型
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteUser()  //操作员
{
/*   AnsiString  m_SquoteUser;
   AnsiString  b_SquoteUser;
   m_SquoteUser=GetMasterValue("SquoteUser");
   b_SquoteUser=GetMasterOldValue("SquoteUser");
   if(m_SquoteUser.IsEmpty())
      throw Exception("操作员不能为空");
   if(m_SquoteUser.Length()>18)
      throw Exception("不能大于18");
    if(m_SquoteUser!=b_SquoteUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT UserCODE FROM SDUser WHERE UserCode='"+m_SquoteUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员未定义");
      }
     Query->Close();
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty1()  //数量段一
{
  double m_SquoteQty1;
   m_SquoteQty1=GetMasterValue("SquoteQty1");
    if(m_SquoteQty1<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice1()  //单价一
{
  double m_SquotePrice1;
   m_SquotePrice1=GetMasterValue("SquotePrice1");
    if(m_SquotePrice1<0)
      throw Exception("价格不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate1()  //折扣一
{
  double m_SquoteRebate1;
   m_SquoteRebate1=GetMasterValue("SquoteRebate1");
    if(m_SquoteRebate1<0||m_SquoteRebate1>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty2()  //数量段2
{
  double m_SquoteQty2;
   m_SquoteQty2=GetMasterValue("SquoteQty2");
    if(m_SquoteQty2<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice2()  //单价2
{
  double m_SquotePrice2;
   m_SquotePrice2=GetMasterValue("SquotePrice2");
    if(m_SquotePrice2<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate2()  //折扣2
{
  double m_SquoteRebate2;
   m_SquoteRebate2=GetMasterValue("SquoteRebate2");
    if(m_SquoteRebate2<0||m_SquoteRebate2>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty3()  //数量段3
{
  double m_SquoteQty3;
   m_SquoteQty3=GetMasterValue("SquoteQty3");
    if(m_SquoteQty3<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice3()  //单价3
{
  double m_SquotePrice3;
   m_SquotePrice3=GetMasterValue("SquotePrice3");
    if(m_SquotePrice3<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate3()  //折扣3
{
  double m_SquoteRebate3;
   m_SquoteRebate3=GetMasterValue("SquoteRebate3");
    if(m_SquoteRebate3<0||m_SquoteRebate3>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty4()  //数量段4
{
  double m_SquoteQty4;
   m_SquoteQty4=GetMasterValue("SquoteQty4");
    if(m_SquoteQty4<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice4()  //价格段4
{
  double m_SquotePrice4;
   m_SquotePrice4=GetMasterValue("SquotePrice4");
    if(m_SquotePrice4<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate4()  //折扣4
{
  double m_SquoteRebate4;
   m_SquoteRebate4=GetMasterValue("SquoteRebate4");
    if(m_SquoteRebate4<0||m_SquoteRebate4>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty5()  //数量段5
{
  double m_SquoteQty5;
   m_SquoteQty5=GetMasterValue("SquoteQty5");
    if(m_SquoteQty5<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice5()  //价格段5
{
  double m_SquotePrice5;
   m_SquotePrice5=GetMasterValue("SquotePrice5");
    if(m_SquotePrice5<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate5()  //折扣5
{
  double m_SquoteRebate5;
   m_SquoteRebate5=GetMasterValue("SquoteRebate5");
    if(m_SquoteRebate5<0||m_SquoteRebate5>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty6()  //数量段6
{
  double m_SquoteQty6;
   m_SquoteQty6=GetMasterValue("SquoteQty6");
    if(m_SquoteQty6<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice6()  //价格段6
{
  double m_SquotePrice6;
   m_SquotePrice6=GetMasterValue("SquotePrice6");
    if(m_SquotePrice6<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate6()  //折扣6
{
  double m_SquoteRebate6;
   m_SquoteRebate6=GetMasterValue("SquoteRebate6");
    if(m_SquoteRebate6<0||m_SquoteRebate6>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty7()  //数量段7
{
  double m_SquoteQty7;
   m_SquoteQty7=GetMasterValue("SquoteQty7");
    if(m_SquoteQty7<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice7()  //价格段7
{
  double m_SquotePrice7;
   m_SquotePrice7=GetMasterValue("SquotePrice7");
    if(m_SquotePrice7<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate7()  //折扣7
{
  double m_SquoteRebate7;
   m_SquoteRebate7=GetMasterValue("SquoteRebate7");
    if(m_SquoteRebate7<0||m_SquoteRebate7>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty8()  //数量段8
{
  double m_SquoteQty8;
   m_SquoteQty8=GetMasterValue("SquoteQty8");
    if(m_SquoteQty8<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice8()  //价格8
{
  double m_SquotePrice8;
   m_SquotePrice8=GetMasterValue("SquotePrice8");
    if(m_SquotePrice8<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate8()  //折扣8
{
  double m_SquoteRebate8;
   m_SquoteRebate8=GetMasterValue("SquoteRebate8");
    if(m_SquoteRebate8<0||m_SquoteRebate8>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty9()  //数量段9
{
  double m_SquoteQty9;
   m_SquoteQty9=GetMasterValue("SquoteQty9");
    if(m_SquoteQty9<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice9()  //价格9
{
  double m_SquotePrice9;
   m_SquotePrice9=GetMasterValue("SquotePrice9");
    if(m_SquotePrice9<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate9()  //折扣9
{
  double m_SquoteRebate9;
   m_SquoteRebate9=GetMasterValue("SquoteRebate9");
    if(m_SquoteRebate9<0||m_SquoteRebate9>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteQty10()  //数量段10
{
  double m_SquoteQty10;
   m_SquoteQty10=GetMasterValue("SquoteQty10");
    if(m_SquoteQty10<0)
      throw Exception("数量不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquotePrice10()  //价格10
{
  double m_SquotePrice10;
   m_SquotePrice10=GetMasterValue("SquotePrice10");
    if(m_SquotePrice10<0)
      throw Exception("单价不能小于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::ValidSquoteRebate10()  //折扣10
{
  double m_SquoteRebate10;
   m_SquoteRebate10=GetMasterValue("SquoteRebate10");
    if(m_SquoteRebate10<0||m_SquoteRebate10>1)
      throw Exception("折扣需在0-1范围");
}
//---------------------------------------------------------------------------
void __fastcall TKSSquote::CmdExec(AnsiString Param)
{

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