Exportfile for AOT version 1.0 or later Formatversion: 1 ***Element: CLS ; Microsoft Dynamics AX Class: TstRunBase unloaded ; -------------------------------------------------------------------------------- CLSVERSION 1 CLASS #TstRunBase PROPERTIES Name #TstRunBase Extends #RunBaseBatch RunOn #Called from ENDPROPERTIES METHODS Version: 3 SOURCE #parmArgs #public Args parmArgs(Args _args = args) #{ # ; # args = _args; # # return args; #} # ENDSOURCE SOURCE #canGoBatchJournal #public boolean canGoBatchJournal() #{ # return true; #} ENDSOURCE SOURCE #planBatch #private RefRecId planBatch(DataAreaId _dataAreaId, RefRecId _headerRecId = 0) #{ # BatchHeader batHeader; # BatchInfo batInfo; # TstRunBase rbbTask; # ; # rbbTask = TstRunBase::construct(); # rbbTask.parmDataAreaId(_dataAreaId); # batInfo = rbbTask.batchInfo(); # batInfo.parmCaption(strfmt("%1 - %2", this.caption(), _dataAreaId)); # batInfo.parmGroupId(this.batchInfo().parmGroupId()); # # batHeader = BatchHeader ::construct(_headerRecId); # batHeader.parmCaption(strfmt("%1 - %2", this.caption(), DateTimeUtil::utcNow())); # batHeader.addTask(rbbTask); # batHeader.save(); # # info(batInfo.parmCaption()); # # return batHeader.parmBatchHeaderId(); #/* # BatchHeader batHeader; # BatchInfo batInfo; # //RunBaseBatch rbbTask; # TstRunBase rbbTask; # ; # rbbTask = TstRunBase::construct(); # rbbTask.parmDataAreaId(_dataAreaId); # batInfo = rbbTask.batchInfo(); # batInfo.parmCaption(strfmt("%1 - %2", this.caption(), _dataAreaId)); # batInfo.parmGroupId(this.batchInfo().parmGroupId()); # batHeader = BatchHeader ::construct(); # batHeader.addTask(rbbTask); # batHeader.save(); # info(batInfo.parmCaption()); #*/ #} ENDSOURCE SOURCE #executeDataArea #private void executeDataArea(DataAreaId _dataAreaId) #{ # ; # changeCompany(_dataAreaId) # { # info(curext()); # } #} ENDSOURCE SOURCE #loopDataArea #private void loopDataArea() #{ # DataArea dataArea; # Boolean batch = this.isInBatch(); # RefRecId refRecId; # ; # while select dataArea # where dataArea.isVirtual == NoYes::No # { # if (batch) # { # refRecId = this.planBatch(dataArea.id, refRecId); # } # else # { # this.executeDataArea(dataArea.id); # } # } #} ENDSOURCE SOURCE #getFromDialog #public boolean getFromDialog() #{ # boolean ret; # # ret = super(); # # if (ret) # { # this.parmDataAreaId(dfDataAreaId.value()); # } # # return ret; #} ENDSOURCE SOURCE #parmDataAreaId #public DataAreaId parmDataAreaId(DataAreaId _dataAreaId = dataAreaId) #{ # ; # dataAreaId = _dataAreaId; # # return dataAreaId; #} # ENDSOURCE SOURCE #dialog #protected Object dialog(DialogRunbase dialog, boolean forceOnClient) #{ # Dialog ret; # # ret = super(dialog, forceOnClient); # # dfDataAreaId = ret.addFieldValue(typeid(DataAreaId), this.parmDataAreaId()); # # return ret; #} ENDSOURCE SOURCE #caption #public ClassDescription caption() #{ # return "@SYS125040"; #} ENDSOURCE SOURCE #unpack #public boolean unpack(container packedClass) #{ # Version version = RunBase::getVersion(packedClass); #; # switch (version) # { # case #CurrentVersion: # [version,#CurrentList] = packedClass; # break; # default: # return false; # } # # return true; #} ENDSOURCE SOURCE #pack #public container pack() #{ # return [#CurrentVersion,#CurrentList]; #} ENDSOURCE SOURCE #construct #private static TstRunBase construct() #{ # TstRunBase tstRunBase = new TstRunBase(); # ; # return tstRunBase; #} ENDSOURCE SOURCE #run #public void run() #{ # ; # if (!this.parmDataAreaId()) # { # this.loopDataArea(); # } # else # { # this.executeDataArea(this.parmDataAreaId()); # } #} ENDSOURCE SOURCE #main #public static void main(Args _args) #{ # TstRunBase tstRunBase = TstRunBase::construct(); # ; # if (tstRunBase && tstRunBase.prompt()) # { # tstRunBase.parmArgs(_args); # tstRunBase.run(); # } #} ENDSOURCE SOURCE #classDeclaration #class TstRunBase extends RunBaseBatch #{ # DataAreaId dataAreaId; # Args args; # # DialogField dfDataAreaId; # # #define.currentVersion(1) # #localmacro.CurrentList # dataAreaId # #endmacro #} ENDSOURCE ENDMETHODS ENDCLASS ***Element: END