Exportfile for AOT version 1.0 or later
Formatversion: 1

***Element: CLS

; Microsoft Dynamics Class: MyRunBaseClass nicht geladen
; --------------------------------------------------------------------------------
  CLSVERSION 1
  
  CLASS #MyRunBaseClass
    PROPERTIES
      Name                #MyRunBaseClass
      Extends             #RunBaseBatch
      RunOn               #Called from
    ENDPROPERTIES
    
    METHODS
      Version: 3
      SOURCE #updateTransDateParameter
        #void updateTransDateParameter(TransDate _transDate)
        #{
        #    ;
        #    dfTransDate.value(_transDate);
        #}
      ENDSOURCE
      SOURCE #caption
        #public ClassDescription caption()
        #{
        #    return "RunBaseBatch Object";
        #}
      ENDSOURCE
      SOURCE #classDeclaration
        #public class MyRunBaseClass extends RunBaseBatch
        #{
        #    QueryRun    queryRun;
        #    DialogField dfTransDate;
        #
        #    TransDate   transDate;
        #
        #    #define.CurrentVersion(1)
        #    #localmacro.currentList
        #        transDate
        #    #endmacro
        #
        #}
      ENDSOURCE
      SOURCE #dialog
        #protected Object dialog(DialogRunbase dialog, boolean forceOnClient)
        #{
        #    DialogRunbase ret;
        #
        #    ret = super(dialog, forceOnClient);
        #
        #    // just a parameter as usual ...
        #    dfTransDate = ret.addFieldValue(typeid(TransDate), transDate, 'A parameter');
        #
        #    // add the menu item button to the custom or extended selection form
        #    ret.addMenuItemButton(MenuItemType::Display, menuItemDisplayStr(MyRunBaseSelectionForm));
        #
        #    return ret;
        #}
      ENDSOURCE
      SOURCE #new
        #protected void new()
        #{
        #    super();
        #}
      ENDSOURCE
      SOURCE #pack
        #public container pack()
        #{
        #    return [#CurrentVersion, #currentList, this.queryRun().pack()];
        #}
      ENDSOURCE
      SOURCE #queryRun
        #public QueryRun queryRun()
        #{
        #    Query   query;
        #    ;
        #    if (! queryRun)
        #    {
        #        query = new Query();
        #        query.addDataSource(tablenum(CustTable));
        #        queryRun = new QueryRun(query);
        #    }
        #    return queryRun;
        #}
      ENDSOURCE
      SOURCE #showQuerySelectButton
        #boolean showQuerySelectButton()
        #{
        #    return false;
        #}
      ENDSOURCE
      SOURCE #showQueryValues
        #public boolean showQueryValues()
        #{
        #    return true;
        #}
      ENDSOURCE
      SOURCE #unpack
        #public boolean unpack(container _packedClass)
        #{
        #    Version             version = RunBase::getVersion(_packedClass);
        #    PackedQueryRun      packedQR;
        #
        #    boolean             ret;
        #    ;
        #    switch(version)
        #    {
        #        case #CurrentVersion:
        #            [version, #currentList, packedQR] = _packedClass;
        #            queryRun = new QueryRun(packedQR);
        #            ret = true;
        #
        #
        #    }
        #    return ret;
        #}
      ENDSOURCE
      SOURCE #construct
        #static MyRunBaseClass construct()
        #{
        #    MyRunBaseClass ret = new MyRunBaseClass();
        #    ;
        #    return ret;
        #}
      ENDSOURCE
      SOURCE #main
        #static void main(Args _args)
        #{
        #    MyRunBaseClass  runBaseClass = MyRunBaseClass::construct();
        #    ;
        #    if (runBaseClass.prompt())
        #    {
        #        runBaseClass.run();
        #    }
        #}
      ENDSOURCE
    ENDMETHODS
  ENDCLASS

***Element: FRM

; Microsoft Dynamics Forms unloaded
; --------------------------------------------------------------------------------
FRMVERSION 5

FORM #MyRunBaseSelectionForm
  PROPERTIES
    Name                #MyRunBaseSelectionForm
  ENDPROPERTIES
  
  METHODS
    Version: 3
    SOURCE #closeOk
      #public void closeOk()
      #{
      #    QueryBuildRange qbr;
      #    ;
      #    qbr = caller.queryRun().query().dataSourceTable(tablenum(CustTable)).findRange(fieldnum(CustTable, AccountNum));
      #    if (! qbr)
      #    {
      #        qbr = caller.queryRun().query().dataSourceTable(tablenum(CustTable)).addRange(fieldnum(CustTable, AccountNum));
      #    }
      #
      #    // this code is just demonstration, don't
      #    switch(mostUsedCustomerRadio.selection())
      #    {
      #        case 0:
      #            qbr.value('73422');
      #            break;
      #
      #        case 1:
      #            qbr.value('82256');
      #            break;
      #
      #        case 2:
      #            qbr.value('97778');
      #            break;
      #    }
      #
      #    caller.dialogUpdate(); // update query ranges
      #    info('Customer set');
      #
      #    caller.updateTransDateParameter(systemDateGet());
      #    info('Date parameter set');
      #
      #    super();
      #}
    ENDSOURCE
    SOURCE #classDeclaration
      #public class FormRun extends ObjectRun
      #{
      #    MyRunBaseClass  caller;
      #}
    ENDSOURCE
    SOURCE #init
      #public void init()
      #{
      #    FormRun         formRunCaller;
      #    DialogRunBase   dialogRunBase;
      #    ;
      #    formRunCaller = element.args().caller();
      #    dialogRunBase = formRunCaller.args().caller();
      #    caller = dialogRunBase.runBaseBatch();
      #    super();
      #
      #
      #    mostUsedCustomerRadio.add("73422 Mr. Tonelli");
      #    mostUsedCustomerRadio.add("82256 Mr. Spacy");
      #    mostUsedCustomerRadio.add("97778 Mr. Cook");
      #
      #}
    ENDSOURCE
  ENDMETHODS
  OBJECTBANK
  ENDOBJECTBANK
  
  JOINS
  ENDJOINS
  
  DESIGN
    PROPERTIES
      Caption             #Select Customer
      Columns             #2
      ArrangeGuide        
        ARRAY INDEX Columns 
          #0
          #0
        ENDARRAY
    ENDPROPERTIES
    
    CONTAINER
      CONTROL RADIOBUTTON
        ;==== controlId:12289, containerId: 0, containerdata:111   
        ;----------------------------------------------------------
        PROPERTIES
          Name                #MostUsedCustomerRadio
          AutoDeclaration     #Yes
          Caption             #Top 3 Customers
        ENDPROPERTIES
        
      ENDCONTROL 
      
      CONTROL BUTTONGROUP
        ;==== controlId:12290, containerId: 0, containerdata: 0   
        ;----------------------------------------------------------
        PROPERTIES
          Name                #ButtonGroup
        ENDPROPERTIES
        
        CONTAINER
          CONTROL COMMANDBUTTON
            ;==== controlId:12291, containerId:12290, containerdata:12290   
            ;----------------------------------------------------------
            PROPERTIES
              Name                #OkBtn
              Command             #263
            ENDPROPERTIES
            
          ENDCONTROL 
          
          CONTROL COMMANDBUTTON
            ;==== controlId:12292, containerId:12290, containerdata:12290   
            ;----------------------------------------------------------
            PROPERTIES
              Name                #CancelBtn
              Command             #264
            ENDPROPERTIES
            
          ENDCONTROL 
          
        ENDCONTAINER
        
      ENDCONTROL 
      
    ENDCONTAINER
    
  ENDDESIGN
  
ENDFORM


***Element: FTM

; Microsoft Dynamics MENUITEM : MyRunBaseSelectionForm unloaded
; --------------------------------------------------------------------------------
  VERSION 1
  
  MENUITEM #MyRunBaseSelectionForm
    Type: 1
    PROPERTIES
      Name                #MyRunBaseSelectionForm
      Label               #Pick customer
      Object              #MyRunBaseSelectionForm
    ENDPROPERTIES
    
  ENDMENUITEM
  

***Element: PRN

; Microsoft Dynamics Project : RunBaseDialogCommunication unloaded
; --------------------------------------------------------------------------------
  PROJECTVERSION 2
  
  PROJECT #RunBaseDialogCommunication
   PRIVATE
  PROPERTIES
    Name                #RunBaseDialogCommunication
  ENDPROPERTIES
  
    GROUP #Classes
      PROPERTIES
        Name                #Classes
        ProjectGroupType    #Classes
        GroupMask           #
        PreventEditProperties #No
      ENDPROPERTIES
      
      BEGINNODE
        FILETYPE 0
        UTILTYPE 45
        UTILOBJECTID 40201
        NODETYPE 329
        NAME #MyRunBaseClass
      ENDNODE
      ENDGROUP
      
    GROUP #Forms
      PROPERTIES
        Name                #Forms
        ProjectGroupType    #Forms
        GroupMask           #
        PreventEditProperties #No
      ENDPROPERTIES
      
      BEGINNODE
        FILETYPE 0
        UTILTYPE 11
        UTILOBJECTID 0
        NODETYPE 201
        NAME #MyRunBaseSelectionForm
      ENDNODE
      ENDGROUP
      
    GROUP #MenuItems
      PROPERTIES
        Name                #MenuItems
        ProjectGroupType    #Display
        GroupMask           #
        PreventEditProperties #No
      ENDPROPERTIES
      
      BEGINNODE
        FILETYPE 0
        UTILTYPE 1
        UTILOBJECTID 0
        NODETYPE 296
        NAME #MyRunBaseSelectionForm
      ENDNODE
      ENDGROUP
      
  ENDPROJECT
  

***Element: END