Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Exportfile for AOT version 1.0 or later
- Formatversion: 1
- ***Element: DBT
- ; Microsoft Dynamics AX Table : MPRParameters unloaded
- ; --------------------------------------------------------------------------------
- TABLEVERSION 1
- TABLE #MPRParameters
- PROPERTIES
- Name #MPRParameters
- ENDPROPERTIES
- FIELDS
- FIELD #TableName
- STRING
- PROPERTIES
- Name #TableName
- Table #MPRParameters
- ExtendedDataType
- ARRAY
- #TableName
- #
- ENDARRAY
- StringSize #40
- ENDPROPERTIES
- FIELD #tabelid
- INT
- PROPERTIES
- Name #tabelid
- Table #MPRParameters
- ExtendedDataType
- ARRAY
- #tableId
- #
- ENDARRAY
- ENDPROPERTIES
- ENDFIELDS
- GROUPS
- ENDGROUPS
- INDICES
- ENDINDICES
- REFERENCES
- ENDREFERENCES
- DELETEACTIONS
- ENDDELETEACTIONS
- ENDTABLE
- ***Element: CLS
- ; Microsoft Dynamics AX Class: MPRParameterTables verwijderd
- ; --------------------------------------------------------------------------------
- CLSVERSION 1
- CLASS #MPRParameterTables
- PROPERTIES
- Name #MPRParameterTables
- Extends #
- RunOn #Called from
- ENDPROPERTIES
- METHODS
- Version: 3
- SOURCE #run
- #void run()
- #{
- # UtilElements utilElements;
- # Query q = new Query();
- # QueryBuildDatasource qbd;
- # QueryBuildRange range;
- # QueryRun qr;
- # ;
- # qbd = q.addDataSource(tableNum(UtilElements));
- # qbd.addRange(FieldNum(UtilElements, recordType)).value(enum2str(UtilElementType::Table));
- # qbd.addRange(FieldNum(UtilElements, Name)).value(queryValue("*parameters"));
- #
- # qr = new QueryRun(q);
- #
- # while (qr.next())
- # {
- # utilElements = qr.get(tableNum(utilElements));
- #
- # mprParameters.clear();
- # mprParameters.TableName = utilElements.name;
- # mprParameters.insert();
- # }
- #
- #}
- ENDSOURCE
- SOURCE #parmMprParameters
- #public MPRParameters parmMprParameters(MPRParameters _mprParameters = mprParameters)
- #{
- # ;
- # mprParameters = _mprParameters;
- #
- # return mprParameters;
- #}
- #
- ENDSOURCE
- SOURCE #main
- #public static void main(Args args)
- #{
- # MPRParameterTables x = MPRParameterTables::construct();
- # ;
- # if ( args && args.dataset() == tableNum(MPRParameters) )
- # {
- # // pass the data back to the caller
- # x.parmMprParameters( args.record() );
- # }
- #
- # // Fill the parameters tabel
- # x.run();
- #}
- #
- ENDSOURCE
- SOURCE #construct
- #public static MPRParameterTables construct()
- #{
- # return new MPRParameterTables();
- #}
- #
- ENDSOURCE
- SOURCE #classDeclaration
- #class MPRParameterTables
- #{
- # MPRParameters mprParameters;
- #}
- ENDSOURCE
- ENDMETHODS
- ENDCLASS
- ***Element: FRM
- ; Microsoft Dynamics AX Forms unloaded
- ; --------------------------------------------------------------------------------
- FRMVERSION 5
- FORM #MPRParameters
- PROPERTIES
- Name #MPRParameters
- ENDPROPERTIES
- METHODS
- Version: 3
- SOURCE #classDeclaration
- #public class FormRun extends ObjectRun
- #{
- #}
- ENDSOURCE
- ENDMETHODS
- OBJECTBANK
- PROPERTIES
- ENDPROPERTIES
- ENDOBJECTBANK
- JOINS
- ENDJOINS
- DESIGN
- PROPERTIES
- SaveSize #Yes
- ENDPROPERTIES
- CONTAINER
- CONTROL TAB
- PROPERTIES
- Name #Tab
- Width #Column width
- Height #Column height
- ENDPROPERTIES
- CONTAINER
- CONTROL TABPAGE
- PROPERTIES
- Name #TabPage
- Width #Column width
- Height #Column height
- Caption #Overview
- ENDPROPERTIES
- CONTAINER
- CONTROL GRID
- PROPERTIES
- Name #Grid
- Width #Column width
- Height #Column height
- ENDPROPERTIES
- CONTAINER
- ENDCONTAINER
- ENDCONTROL
- ENDCONTAINER
- ENDCONTROL
- CONTROL TABPAGE
- PROPERTIES
- Name #TabPage1
- Caption #General
- ENDPROPERTIES
- CONTAINER
- ENDCONTAINER
- ENDCONTROL
- ENDCONTAINER
- ENDCONTROL
- CONTROL BUTTONGROUP
- PROPERTIES
- Name #ButtonGroup
- ENDPROPERTIES
- CONTAINER
- ENDCONTAINER
- ENDCONTROL
- ENDCONTAINER
- ENDDESIGN
- ENDFORM
- ***Element: JOB
- ; Microsoft Dynamics AX Job: listparameterTables verwijderd
- ; --------------------------------------------------------------------------------
- JOBVERSION 1
- SOURCE #listparameterTables
- #static void listparameterTables(Args _args)
- #{
- # UtilElements utilElements;
- # ;
- # while select utilElements
- # where utilElements.recordType == UtilElementType::Table
- # && utilElements.name like "*parameters*"
- # {
- # info(utilElements.name);
- # }
- #}
- ENDSOURCE
- ***Element: JOB
- ; Microsoft Dynamics AX Job: exportDataJob verwijderd
- ; --------------------------------------------------------------------------------
- JOBVERSION 1
- SOURCE #exportDataJob
- #static void exportDataJob(Args _args)
- #{
- # Dialog dlg;
- # DialogField dlfInFile, dlfOutPath;
- # AsciiIO asciiIoIn,asciiIoOut;
- # container c;
- # str tablename,s;
- # SysDictField dictField;
- # SysDictTable dictTable;
- # int fieldcnt, fieldidx;
- # FilePath filePath;
- # Common common;
- # ;
- # dlg = new Dialog('exporteren tabellen');
- # dlfInFile = dlg.addField(typeid(FileNameOpen),'Tabellen bestand');
- # dlfOutPath= dlg.addField(typeid(FilePath),'Opslaan in');
- #
- # if (!dlg.run())
- # return;
- # asciiIoIn = new AsciiIo(dlfInFile.value(),'r');
- # filePath = dlfOutPath.value();
- # if (substr(filepath,strlen(filepath),1) != '\\')
- # {
- # filepath += '\\';
- # }
- #
- # while(asciiIoIn.status() == IO_Status::Ok)
- # {
- # c = asciiIoIn.read();
- # if (!c)
- # continue;
- # [tablename] = c;
- # if (!tablename2id(tablename))
- # {
- # warning(strfmt('Tabelnaam %1 onbekend',tablename));
- # }
- # dictTable = new SysDictTable(tablename2id(tablename));
- #
- # asciiIoOut = new AsciiIo(filepath+dictTAble.name()+'.csv','w');
- # asciiIoOUt.outFieldDelimiter(';');
- # asciiIoOut.outRecordDelimiter('\n');
- # if (asciiIoOut.status() == IO_Status::Ok)
- # {
- # fieldcnt = dicttable.fieldCnt();
- # c = ['TableId'];
- # for(fieldidx=1; fieldidx<=fieldcnt;fieldidx++)
- # {
- # c = c + [dicttable.fieldName(dicttable.fieldCnt2Id(fieldidx))];
- # }
- # asciiIoOut.write(c);
- # common = dicttable.makeRecord();
- # while select common
- # {
- #//. c = connull();
- # for(fieldidx=1; fieldidx<=fieldcnt;fieldidx++)
- # {
- #/*
- # switch (dicttable.fieldObject(dicttable.fieldCnt2Id(fieldidx)).baseType())
- # {
- # case Types::String:
- # case Types::VarString:
- # case Types::RString:
- # s = common.(dicttable.fieldCnt2Id(fieldidx));
- # c = c + [strrem(s,';\n\r')];
- # break;
- # default:
- # c = c + [common.(dicttable.fieldCnt2Id(fieldidx))];
- # break;
- #
- #
- # }
- #*/ }
- # asciiIoOut.write(buf2con(common));
- # }
- # asciiIoOut = null;
- #
- # }
- # else
- # warning(strfmt('Bestand %1 kon niet geopend worden voor schrijven',filepath+dictTAble.name()+'.csv'));
- # }
- #}
- ENDSOURCE
- ***Element: PRN
- ; Microsoft Dynamics AX Project : MPRConfiguration unloaded
- ; --------------------------------------------------------------------------------
- PROJECTVERSION 2
- PROJECT #MPRConfiguration
- SHARED
- PROPERTIES
- Name #MPRConfiguration
- ENDPROPERTIES
- PROJECTCLASS ProjectNode
- GROUP #DataDictionary
- PROPERTIES
- Name #DataDictionary
- ProjectGroupType #DataDictionary
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- GROUP #Tables
- PROPERTIES
- Name #Tables
- ProjectGroupType #Tables
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- BEGINNODE
- FILETYPE 0
- UTILTYPE 44
- UTILOBJECTID 50004
- NODETYPE 204
- NAME #MPRParameters
- ENDNODE
- ENDGROUP
- GROUP #ExtendedDataTypes
- PROPERTIES
- Name #ExtendedDataTypes
- ProjectGroupType #ExtendedDataTypes
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- GROUP #BaseEnums
- PROPERTIES
- Name #BaseEnums
- ProjectGroupType #BaseEnums
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- GROUP #ConfigurationKeys
- PROPERTIES
- Name #ConfigurationKeys
- ProjectGroupType #ConfigurationKeys
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- GROUP #SecurityKeys
- PROPERTIES
- Name #SecurityKeys
- ProjectGroupType #SecurityKeys
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- ENDGROUP
- GROUP #Classes
- PROPERTIES
- Name #Classes
- ProjectGroupType #Classes
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- BEGINNODE
- FILETYPE 0
- UTILTYPE 45
- UTILOBJECTID 50025
- NODETYPE 329
- NAME #MPRParameterTables
- ENDNODE
- ENDGROUP
- GROUP #Forms
- PROPERTIES
- Name #Forms
- ProjectGroupType #Forms
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- BEGINNODE
- FILETYPE 0
- UTILTYPE 11
- UTILOBJECTID 0
- NODETYPE 201
- NAME #MPRParameters
- ENDNODE
- ENDGROUP
- GROUP #Reports
- PROPERTIES
- Name #Reports
- ProjectGroupType #Reports
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- GROUP #Jobs
- PROPERTIES
- Name #Jobs
- ProjectGroupType #Jobs
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- BEGINNODE
- FILETYPE 0
- UTILTYPE 5
- UTILOBJECTID 0
- NODETYPE 215
- NAME #listparameterTables
- ENDNODE
- BEGINNODE
- FILETYPE 0
- UTILTYPE 5
- UTILOBJECTID 0
- NODETYPE 215
- NAME #exportDataJob
- ENDNODE
- ENDGROUP
- GROUP #Menus
- PROPERTIES
- Name #Menus
- ProjectGroupType #Menus
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- GROUP #MenuItems
- PROPERTIES
- Name #MenuItems
- ProjectGroupType #MenuItems
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- GROUP #Display
- PROPERTIES
- Name #Display
- ProjectGroupType #Display
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- GROUP #Output
- PROPERTIES
- Name #Output
- ProjectGroupType #Output
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- GROUP #Action
- PROPERTIES
- Name #Action
- ProjectGroupType #Action
- GroupMask #
- PreventEditProperties #No
- ENDPROPERTIES
- ENDGROUP
- ENDGROUP
- ENDPROJECT
- ***Element: END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement