OBJECT Page 7 Customer Price Groups
{
  OBJECT-PROPERTIES
  {
    Date=;
    Time=;
    Version List=;
  }
  PROPERTIES
  {
    CaptionML=ENU=Customer Price Groups;
    SourceTable=Table6;
    PageType=List;
    ActionList=ACTIONS
    {
      { 1900000003;0 ;ActionContainer;
                      ActionContainerType=RelatedInformation }
      { 17      ;1   ;ActionGroup;
                      CaptionML=ENU=Cust. &Price Group;
                      Image=Group }
      { 18      ;2   ;Action    ;
                      Name=SalesPrices;
                      CaptionML=ENU=Sales &Prices;
                      RunObject=Page 7002;
                      RunPageView=SORTING(Sales Type,Sales Code);
                      RunPageLink=Sales Type=CONST(Customer Price Group),
                                  Sales Code=FIELD(Code);
                      Image=SalesPrices }
    }
  }
  CONTROLS
  {
    { 1900000001;0;Container;
                ContainerType=ContentArea }

    { 1   ;1   ;Group     ;
                GroupType=Repeater }

    { 2   ;2   ;Field     ;
                SourceExpr=Code }

    { 10  ;2   ;Field     ;
                SourceExpr=Description }

    { 12  ;2   ;Field     ;
                SourceExpr="Allow Line Disc." }

    { 6   ;2   ;Field     ;
                SourceExpr="Allow Invoice Disc." }

    { 4   ;2   ;Field     ;
                SourceExpr="Price Includes VAT" }

    { 8   ;2   ;Field     ;
                SourceExpr="VAT Bus. Posting Gr. (Price)" }

    { 1900000007;0;Container;
                ContainerType=FactBoxArea }

    { 1900383207;1;Part   ;
                Visible=FALSE;
                PartType=System;
                SystemPartID=RecordLinks }

    { 1905767507;1;Part   ;
                Visible=FALSE;
                PartType=System;
                SystemPartID=Notes }

  }
  CODE
  {

    PROCEDURE GetSelectionFilter@4() : Text;
    VAR
      CustPriceGr@1001 : Record 6;
      SelectionFilterManagement@1002 : Codeunit 46;
    BEGIN
      CurrPage.SETSELECTIONFILTER(CustPriceGr);
      EXIT(SelectionFilterManagement.GetSelectionFilterForCustomerPriceGroup(CustPriceGr));
    END;

    BEGIN
    END.
  }
}