Exportfile for AOT version 1.0 or later Formatversion: 1 ***Element: FRM ; Microsoft Dynamics Forms unloaded ; -------------------------------------------------------------------------------- FRMVERSION 5 FORM #MyTable PROPERTIES Name #MyTable ENDPROPERTIES METHODS Version: 3 SOURCE #classDeclaration #public class FormRun extends ObjectRun #{ #} ENDSOURCE ENDMETHODS OBJECTBANK DATASOURCE OBJECTPOOL PROPERTIES Name #MyTable Table #MyTable ENDPROPERTIES FIELDLIST ENDFIELDLIST ENDOBJECTPOOL ENDDATASOURCE ENDOBJECTBANK JOINS ENDJOINS DESIGN PROPERTIES Caption #MyTable form ENDPROPERTIES CONTAINER CONTROL TAB ;==== controlId:12290, containerId: 0, containerdata: 0 ;---------------------------------------------------------- PROPERTIES Name #Tab Width #Column width Height #Column height ENDPROPERTIES CONTAINER CONTROL TABPAGE ;==== controlId:12291, containerId:12290, containerdata: 0 ;---------------------------------------------------------- PROPERTIES Name #TabPage Caption #@SYS50012 ENDPROPERTIES CONTAINER CONTROL GRID ;==== controlId:12292, containerId:12291, containerdata: 0 ;---------------------------------------------------------- PROPERTIES Name #Grid Width #Column width Height #Column height DataSource #MyTable ENDPROPERTIES CONTAINER CONTROL STRINGEDIT ;==== controlId:12293, containerId:12292, containerdata: 0 ;---------------------------------------------------------- PROPERTIES Name #MyTable_MyFieldStr DataSource #MyTable DataField #MyFieldStr ENDPROPERTIES ENDCONTROL CONTROL INTEDIT ;==== controlId:12294, containerId:12292, containerdata: 0 ;---------------------------------------------------------- PROPERTIES Name #MyTable_MyFieldInt DataSource #MyTable DataField #MyFieldInt ENDPROPERTIES ENDCONTROL ENDCONTAINER ENDCONTROL ENDCONTAINER ENDCONTROL ENDCONTAINER ENDCONTROL CONTROL BUTTONGROUP ;==== controlId:12295, containerId: 0, containerdata: 0 ;---------------------------------------------------------- PROPERTIES Name #ButtonGroup ENDPROPERTIES CONTAINER CONTROL BUTTON ;==== controlId:12296, containerId:12295, containerdata: 0 ;---------------------------------------------------------- PROPERTIES Name #btnSend Text #Send electronically MultiSelect #Yes ENDPROPERTIES METHODS Version: 3 SOURCE #clicked #void clicked() #{ # MyTable myTableLocal; # ; # # for (myTableLocal = myTable_ds.getFirst(true) ? myTable_ds.getFirst(true) : myTable; # myTableLocal; # myTableLocal = myTable_ds.getNext()) # { # if (myTableLocal.canXMLBeSent()) # { # myTableLocal.sendElectronically(XMLDocPurpose::Original); # } # else # { # warning (strfmt("MyTable record %1 could not be sent.", myTableLocal.RecId)); # } # } # # super(); #} ENDSOURCE ENDMETHODS ENDCONTROL ENDCONTAINER ENDCONTROL ENDCONTAINER ENDDESIGN ENDFORM ***Element: DBT ; Microsoft Dynamics Table : MyTable unloaded ; -------------------------------------------------------------------------------- TABLEVERSION 1 TABLE #MyTable PROPERTIES Name #MyTable ENDPROPERTIES FIELDS FIELD #MyFieldStr STRING PROPERTIES Name #MyFieldStr Table #MyTable ENDPROPERTIES FIELD #MyFieldInt INT PROPERTIES Name #MyFieldInt Table #MyTable ENDPROPERTIES ENDFIELDS GROUPS ENDGROUPS INDICES ENDINDICES REFERENCES ENDREFERENCES DELETEACTIONS ENDDELETEACTIONS METHODS Version: 3 SOURCE #canXMLBeSent #boolean canXMLBeSent() #{ # boolean ret; # AifActionId actionId; # AifEndpointList endpointList; # AifConstraint aifConstraint = new AifConstraint(); # AifConstraintList aifConstraintList = new AifConstraintList(); # ; # # actionId = AifAction::getDefaultSendAction(classnum(AxdMyTable)); # # if(actionId) # { # aifConstraint.parmType(AifConstraintType::NoConstraint) ; # aifConstraintList.addConstraint(aifConstraint) ; # # endpointList = AifSendService::getEligibleEndpoints(actionId, aifConstraintList); # # if(endpointList.getEndpointCount()>0) # { # ret = true; # } # # } # # return ret; #} ENDSOURCE SOURCE #sendElectronically #void sendElectronically(XMLDocPurpose _xMLDocPurpose, AifSendMode _aifSendMode = AifSendMode::Async) #{ # AxdSendContext axdSendContext = AxdSendContext::construct(); # AifEntityKey aifEntityKey = AifEntityKey::construct(); # Map keyData; # AifConstraintList aifConstraintList = new AifConstraintList(); # AifConstraint aifConstraint = new AifConstraint(); # ; # keyData = SysDictTable::getKeyData(this); # # aifEntityKey.parmTableId(this.TableId); # aifEntityKey.parmRecId(this.RecId); # aifEntityKey.parmKeyDataMap(keyData); # # axdSendContext.parmXMLDocPurpose(_xMLDocPurpose); # axdSendContext.parmSecurity(false); # # aifConstraint.parmType(AifConstraintType::NoConstraint) ; # aifConstraintList.addConstraint(aifConstraint) ; # # AifSendService::submitDefault( # classnum(AxdMyTable), # aifEntityKey, # aifConstraintList, # _aifSendMode, # axdSendContext.pack()); #} ENDSOURCE ENDMETHODS ENDTABLE ***Element: CLS ; Microsoft Dynamics Class: AxMyTable unloaded ; -------------------------------------------------------------------------------- CLSVERSION 1 CLASS #AxMyTable PROPERTIES Name #AxMyTable Extends #AxInternalBase RunOn #Called from ENDPROPERTIES METHODS Version: 3 SOURCE #axOrig #public AxMyTable axOrig() #{ # return super(); #} # ENDSOURCE SOURCE #classDeclaration #class AxMyTable extends AxInternalBase #{ # MyTable MyTable; # # int cacheRecordIdx;//TODO delete if no cache record # int cacheObjectIdx;//TODO delete if no cache object #} # ENDSOURCE SOURCE #currentRecord #public MyTable currentRecord(MyTable _MyTable = MyTable) #{ # if (!prmisdefault(_MyTable)) # { # super(_MyTable); # MyTable = _MyTable; # } # else # { # super(); # } # # return MyTable; #} # ENDSOURCE SOURCE #emptyRecord #protected MyTable emptyRecord() #{ # MyTable localMyTable; # ; # return localMyTable; #} # ENDSOURCE SOURCE #MyTable #public MyTable myTable(MyTable _myTable = myTable) #{ # if (!prmisdefault(_myTable)) # { # this.setCurrentRecordFromExternal(_myTable); # } # # return this.currentRecord(); #} # ENDSOURCE SOURCE #parmMyFieldInt #public Integer parmMyFieldInt(Integer _myFieldInt = 0) #{ # if (!prmisdefault(_myFieldInt)) # { # this.setField(fieldNum(MyTable, MyFieldInt), _myFieldInt); # } # # return myTable.MyFieldInt; #} # ENDSOURCE SOURCE #parmMyFieldStr #public str parmMyFieldStr(str _myFieldStr = '') #{ # if (!prmisdefault(_myFieldStr)) # { # this.setField(fieldNum(MyTable, MyFieldStr), _myFieldStr); # } # # return myTable.MyFieldStr; #} # ENDSOURCE SOURCE #setMyFieldInt #protected void setMyFieldInt() #{ # if (this.isMethodExecuted(funcName(), fieldNum(MyTable, MyFieldInt))) # { # return; # } #} # ENDSOURCE SOURCE #setMyFieldStr #protected void setMyFieldStr() #{ # if (this.isMethodExecuted(funcName(), fieldNum(MyTable, MyFieldStr))) # { # return; # } #} # ENDSOURCE SOURCE #setTableFields #protected void setTableFields() #{ # super(); # # useMapPolicy = false; # # this.setMyFieldStr(); # this.setMyFieldInt(); # # useMapPolicy = true; #} # ENDSOURCE SOURCE #construct #static AxMyTable construct() #{ # return new AxMyTable(); #} # ENDSOURCE SOURCE #newMyTable #public static AxMyTable newMyTable(MyTable _MyTable) #{ # AxMyTable AxMyTable = AxMyTable::construct(); # ; # AxMyTable.MyTable(_MyTable); # # return AxMyTable; #} # ENDSOURCE ENDMETHODS ENDCLASS ***Element: QUE ; Microsoft Dynamics Query: AxdMyTable unloaded ; -------------------------------------------------------------------------------- VERSION 8 QUERY #AxdMyTable PROPERTIES Name #AxdMyTable Version #5 NextUniqueId #1001 ENDPROPERTIES METHODS Version: 3 SOURCE #classDeclaration #public class QueryRun extends ObjectRun #{ #} ENDSOURCE ENDMETHODS BLOCKS BLOCK #MyTable PROPERTIES Name #MyTable Table #MyTable UniqueId #1000 ENDPROPERTIES FIELDLIST PROPERTIES ENDPROPERTIES ENDFIELDLIST SORTING ENDSORTING LINES ENDLINES BLOCKS ENDBLOCKS ENDBLOCK ENDBLOCKS ENDQUERY ***Element: CLS ; Microsoft Dynamics Class: axdMyTable unloaded ; -------------------------------------------------------------------------------- CLSVERSION 1 CLASS #axdMyTable PROPERTIES Name #axdMyTable Extends #AxdBase RunOn #Called from ENDPROPERTIES METHODS Version: 3 SOURCE #classDeclaration #class axdMyTable extends AxdBase #{ #} # ENDSOURCE SOURCE #getActionList #public AifActionInfoList getActionList() #{ # AifActionInfoList Actions = new AifActionInfoList(); # AifActionInfo aifActionInfo; # ; # aifActionInfo = new AifActionInfo(); # aifActionInfo.parmActionId(strfmt('%1%2', methodstr(AxdBase, findEntityKeyList), this.getName())); # aifActionInfo.parmActionType(AifActionType::QueryEntityKeys); # aifActionInfo.parmExternalName(aifActionInfo.parmActionId()); # aifActionInfo.parmMethodName(methodstr(AxdBase, findEntityKeyList)); # //TODO make label # aifActionInfo.parmLabel("Send entity keys for axdMyTable document"); # //TODO make label for description # aifActionInfo.parmDescription(""); # aifActionInfo.parmDisplayMenuItemName(menuitemdisplaystr(AifDocConfiguration)); # # actions.add(aifActionInfo); # # aifActionInfo = new AifActionInfo(); # aifActionInfo.parmActionId(strfmt('%1%2', methodstr(AxdBase, findList), this.getName())); # aifActionInfo.parmActionType(AifActionType::QueryDocuments); # aifActionInfo.parmExternalName(aifActionInfo.parmActionId()); # aifActionInfo.parmMethodName(methodstr(AxdBase, findList)); # //TODO make label # aifActionInfo.parmLabel("Send axdMyTable document from query"); # //TODO make label for description # aifActionInfo.parmDescription(""); # aifActionInfo.parmDisplayMenuItemName(menuitemdisplaystr(AifDocConfiguration)); # # actions.add(aifActionInfo); # # aifActionInfo = new AifActionInfo(); # aifActionInfo.parmActionId(strfmt('%1%2', methodstr(AxdBase, read), this.getName())); # aifActionInfo.parmActionType(AifActionType::SendDocument); # aifActionInfo.parmExternalName(aifActionInfo.parmActionId()); # aifActionInfo.parmMethodName(methodstr(AxdBase, read)); # //TODO make label # aifActionInfo.parmLabel("Send axdMyTable document"); # //TODO make label for description # aifActionInfo.parmDescription(""); # aifActionInfo.parmDisplayMenuItemName(menuitemdisplaystr(AifDocConfiguration)); # # actions.add(aifActionInfo); # # aifActionInfo = new AifActionInfo(); # aifActionInfo.parmActionId(strfmt('%1%2', methodstr(AxdBase, readList), this.getName())); # aifActionInfo.parmActionType(AifActionType::SendDocumentList); # aifActionInfo.parmExternalName(aifActionInfo.parmActionId()); # aifActionInfo.parmMethodName(methodstr(AxdBase, readList)); # //TODO make label # aifActionInfo.parmLabel("Send list of axdMyTable document"); # //TODO make label for description # aifActionInfo.parmDescription(""); # aifActionInfo.parmDisplayMenuItemName(menuitemdisplaystr(AifDocConfiguration)); # # actions.add(aifActionInfo); # # aifActionInfo = new AifActionInfo(); # aifActionInfo.parmActionId(strfmt('%1%2', methodstr(AxdBase, create), this.getName())); # aifActionInfo.parmActionType(AifActionType::ReceiveDocument); # aifActionInfo.parmExternalName(aifActionInfo.parmActionId()); # aifActionInfo.parmMethodName(methodstr(AxdBase, create)); # //TODO make label # aifActionInfo.parmLabel("Receive axdMyTable document"); # //TODO make label for description of create # aifActionInfo.parmDescription(""); # aifActionInfo.parmDisplayMenuItemName(menuitemdisplaystr(AifDocConfiguration)); # # actions.add(aifActionInfo); # # aifActionInfo = new AifActionInfo(); # aifActionInfo.parmActionId(strfmt('%1%2', methodstr(AxdBase, createList), this.getName())); # aifActionInfo.parmActionType(AifActionType::ReceiveDocumentList); # aifActionInfo.parmExternalName(aifActionInfo.parmActionId()); # aifActionInfo.parmMethodName(methodstr(AxdBase, createList)); # //TODO make label # aifActionInfo.parmLabel("Receive axdMyTable document"); # //TODO make label for description of create list # aifActionInfo.parmDescription(""); # aifActionInfo.parmDisplayMenuItemName(menuitemdisplaystr(AifDocConfiguration)); # # actions.add(aifActionInfo); # # return actions; #} # ENDSOURCE SOURCE #getConstraintList #public void getConstraintList(Common _curRec, AifConstraintList _constraintList) #{ # AifConstraint aifConstraint = new AifConstraint(); # // TODO verify right table # MyTable MyTable; # ; # if (_curRec.TableId != tablenum(MyTable)) # { # throw error(strfmt("@SYS23396",funcname())); # } # MyTable = _curRec ; # // TODO set right constraint type # aifConstraint.parmType(AIFConstraintType::Vendor); # // TODO set right field for constraint id # //aifConstraint.parmId(MyTable.IdType); # _constraintList.addConstraint(aifConstraint) ; #} # ENDSOURCE SOURCE #GetLabel #public LabelDescription getLabel() #{ # //TODO Check if name is OK and create label # return "axdMyTable document"; #} # ENDSOURCE SOURCE #initQueryFromEntityKey #public void initQueryFromEntityKey(AifEntityKey _aifEntityKey = null, boolean _validateEntityKey = false) #{ # //TODO Delete this method or create checks and disabeling datasources into this method # //TODO create checks # super(_aifEntityKey,_validateEntityKey); # //TODO Disable data sources #} # ENDSOURCE SOURCE #initQueryFromQuery #public void initQueryFromQuery(AifQueryCriteria _queryCriteria) #{ # //TODO Delete this method or create checks and disabeling datasources into this method # //TODO create checks # super(_queryCriteria); # //TODO Disable data sources #} # ENDSOURCE SOURCE #prepareForSave #public boolean prepareForSave(AxdStack _axdStack, str _dataSourceName) #{ # //TODO: Remember to make code for validating fields that are added to the initMandatoryFieldsMap method # // that are not mandatory in the table # axMyTable axMyTable; # ; # switch (classidget(_axdStack.top())) # { # case classnum(AxMyTable) : # axMyTable = _axdStack.top(); # //TODO Put validating code for MyTable here # return true; # # default : # error(strfmt("@SYS88979",classId2Name(classidget(_axdStack.top())))); # return false; # } # return false; #} # ENDSOURCE ENDMETHODS ENDCLASS ***Element: JOB ; Microsoft Dynamics Job: GenerateXSDSchema_axdMyTable unloaded ; -------------------------------------------------------------------------------- JOBVERSION 1 SOURCE #GenerateXSDSchema_axdMyTable #static void GenerateXSDSchema_axdMyTable(Args _args) #{ # axdMyTable axdMyTable; # XML xml; # XMLDocument xmlDocument; # ; # axdMyTable = AxdBase::newClassId(classnum(axdMyTable)); # xml = axdMyTable.getSchema(); # xmlDocument = XMLDocument::newXML(xml); # //TODO Select file to write XML output to # xmlDocument.save("c:\\XSDSchema_axdMyTable.xml"); #} # ENDSOURCE ***Element: PRN ; Microsoft Dynamics Project : axdMyTable_AIF unloaded ; -------------------------------------------------------------------------------- PROJECTVERSION 2 PROJECT #axdMyTable_AIF PRIVATE PROPERTIES Name #axdMyTable_AIF ENDPROPERTIES BEGINNODE FILETYPE 0 UTILTYPE 11 UTILOBJECTID 0 NODETYPE 201 NAME #MyTable ENDNODE BEGINNODE FILETYPE 0 UTILTYPE 44 UTILOBJECTID 50029 NODETYPE 204 NAME #MyTable ENDNODE BEGINNODE FILETYPE 0 UTILTYPE 45 UTILOBJECTID 50136 NODETYPE 329 NAME #AxMyTable ENDNODE BEGINNODE FILETYPE 0 UTILTYPE 20 UTILOBJECTID 0 NODETYPE 330 NAME #AxdMyTable ENDNODE BEGINNODE FILETYPE 0 UTILTYPE 45 UTILOBJECTID 50135 NODETYPE 329 NAME #axdMyTable ENDNODE BEGINNODE FILETYPE 0 UTILTYPE 5 UTILOBJECTID 0 NODETYPE 215 NAME #GenerateXSDSchema_axdMyTable ENDNODE ENDPROJECT ***Element: END