SetPricing.py 2.83 KB
Newer Older
Jean-Paul Smets's avatar
Jean-Paul Smets committed
1 2 3
##############################################################################
#
# Copyright (c) 2002 Nexedi SARL and Contributors. All Rights Reserved.
4
#                    Jean-Paul Smets-Solanes <jp@nexedi.com>
Jean-Paul Smets's avatar
Jean-Paul Smets committed
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
#
# WARNING: This program as such is intended to be used by professional
# programmers who take the whole responsability of assessing all potential
# consequences resulting from its eventual inadequacies and bugs
# End users who are looking for a ready-to-use solution with commercial
# garantees and support are strongly adviced to contract a Free Software
# Service Company
#
# This program is Free Software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
##############################################################################

from AccessControl import ClassSecurityInfo

31
from Products.ERP5Type import Permissions, PropertySheet
Jean-Paul Smets's avatar
Jean-Paul Smets committed
32 33
from Products.ERP5Type.XMLMatrix import XMLMatrix

Jean-Paul Smets's avatar
Jean-Paul Smets committed
34
from Products.ERP5.Document.MappedValue import MappedValue
Jean-Paul Smets's avatar
Jean-Paul Smets committed
35

36
class SetPricing(MappedValue, XMLMatrix):
Jean-Paul Smets's avatar
Jean-Paul Smets committed
37 38 39 40 41 42
    """
      Un element de tarif est un prix pour un ensemble de conditions d'application...
    """

    meta_type = 'ERP5 Set Pricing'
    portal_type = 'Set Pricing'
43
    add_permission = Permissions.AddPortalContent
Jean-Paul Smets's avatar
Jean-Paul Smets committed
44 45 46

    # Declarative security
    security = ClassSecurityInfo()
47
    security.declareObjectProtected(Permissions.AccessContentsInformation)
Jean-Paul Smets's avatar
Jean-Paul Smets committed
48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

    # Declarative properties
    property_sheets = ( PropertySheet.Base
                      , PropertySheet.XMLObject
                      , PropertySheet.CategoryCore
                      , PropertySheet.Price
                      , PropertySheet.Pricing
                      )

    security.declareProtected(Permissions.ModifyPortalContent, '_setQuantityRangeList')
    def _setQuantityRangeList(self, category_list):
      """
        Defines the possible base categories which Quantity value (Q)
        variate on
      """
      self._setCategoryMembership('quantity_range', category_list, base=0)
      self.setCellRange((None,), category_list, base_id = 'destination_base_price')

    security.declareProtected(Permissions.ModifyPortalContent, 'setQuantityRangeList')
    def setQuantityRangeList(self, category_list):
      self._setQuantityRangeList(category_list)
      self.reindexObject()