Exportfile for AOT version 1.0 or later
Formatversion: 1

***Element: FRM

; Microsoft Dynamics AX Forms unloaded
; --------------------------------------------------------------------------------
FRMVERSION 12

FORM #ProjProjectsListPage
  PROPERTIES
    Name                #ProjProjectsListPage
    FormTemplate        #ListPage
    InteractionClass    #ProjProjectsListPageInteraction
    Origin              #{D0091B22-1480-4AE4-93D2-913A25397B61}
  ENDPROPERTIES
  
  METHODS
  ENDMETHODS
  OBJECTBANK
  ENDOBJECTBANK
  
  PARTREFERENCES
  ENDPARTREFERENCES
  
  DESIGN
    CONTAINER
      CONTROL BUTTON
        PROPERTIES
          Name                #NewButton
          ElementPosition     #1932735281
          HierarchyParent     #NewGroup
          Text                #New Button
          ButtonDisplay       #Image only
          NormalImage         #12345
          ImageLocation       #EmbeddedResource
          ShowShortCut        #No
          MultiSelect         #Yes
          Big                 #Yes
        ENDPROPERTIES
        
        METHODS
        ENDMETHODS
      ENDCONTROL 
      
    ENDCONTAINER
    
  ENDDESIGN
  
  PERMISSIONS #Permissions
    PROPERTIES
    ENDPROPERTIES
    
  ENDPERMISSIONS
  
ENDFORM


***Element: CLS

; Microsoft Dynamics AX Class: ProjProjectsListPageInteraction unloaded
; --------------------------------------------------------------------------------
  CLSVERSION 1
  
  CLASS #ProjProjectsListPageInteraction
    PROPERTIES
      Name                #ProjProjectsListPageInteraction
      Extends             #SysListPageInteractionBase
      Origin              #{D306073E-63E0-4E32-BF8F-A5D915822228}
    ENDPROPERTIES
    
    METHODS
      SOURCE #classDeclaration
        #public class ProjProjectsListPageInteraction extends SysListPageInteractionBase
        #{
        #    ProjTable       projTable;
        #    ProjStatusType  projStatusType;
        #
        #    FormControlName newButtonName;
        #
        #    Set             selectedProjects;
        #
        #    #DEFINE.ProjectsListPage (ProjProjectsListPage)
        #}
      ENDSOURCE
      SOURCE #enableNewButton
        #public boolean enableNewButton(FormDataSource  _formDataSource)
        #{
        #    ProjTable   projTableLocal;
        #
        #    boolean     ret = true;
        #
        #    for (projTableLocal = _formDataSource.getFirst(1); projTableLocal; projTableLocal = _formDataSource.getNext())
        #    {
        #        if (selectedProjects.elements() && !selectedProjects.in(projTableLocal.ProjInvoiceProjId))
        #        {
        #            ret = false;
        #            break;
        #        }
        #
        #        selectedProjects.add(projTableLocal.ProjInvoiceProjId);
        #    }
        #
        #    return ret;
        #}
      ENDSOURCE
      SOURCE #initialized
        #public void initialized()
        #{
        #    super();
        #
        #    newButtonName = formControlStr(ProjProjectsListPage, NewButton);
        #
        #    selectedProjects = new Set(Types::String);
        #}
      ENDSOURCE
      SOURCE #selectionChanged
        #public void selectionChanged()
        #{
        #    super();
        #
        #    this.enableButton(newButtonName,
        #    this.enableNewButton(this.listPage().activeRecord(queryDataSourceStr(ProjTable_NoFilter, ProjTable)).dataSource()));
        #}
      ENDSOURCE
    ENDMETHODS
  ENDCLASS

***Element: PRN

; Microsoft Dynamics AX Project : Enable_Disable_ListPage_Button unloaded
; --------------------------------------------------------------------------------
  PROJECTVERSION 2
  
  PROJECT #Enable_Disable_ListPage_Button
  PRIVATE
  PROPERTIES
    Name                #Enable_Disable_ListPage_Button
    Origin              #{53C522A9-F4BA-4E7D-8100-684E5883161C}
  ENDPROPERTIES
  
    PROJECTCLASS ProjectNode
    BEGINNODE
      FILETYPE 0
      UTILTYPE 11
      UTILOBJECTID 0
      NODETYPE 201
      NAME #ProjProjectsListPage
    ENDNODE
    BEGINNODE
      FILETYPE 0
      UTILTYPE 45
      UTILOBJECTID 1018849
      NODETYPE 329
      NAME #ProjProjectsListPageInteraction
    ENDNODE
  ENDPROJECT
  

***Element: END