Advertisement
Guest User

Microsoft Dynamics AX 2012 Class: ACTDMFDefinitionGroupCopy

a guest
Feb 17th, 2016
200
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.69 KB | None | 0 0
  1. Exportfile for AOT version 1.0 or later
  2. Formatversion: 1
  3.  
  4. ***Element: CLS
  5.  
  6. ; Microsoft Dynamics AX Class: ACTDMFDefinitionGroupCopy descargados
  7. ; --------------------------------------------------------------------------------
  8. CLSVERSION 1
  9.  
  10. CLASS #ACTDMFDefinitionGroupCopy
  11. PROPERTIES
  12. Name #ACTDMFDefinitionGroupCopy
  13. Extends #RunBase
  14. Origin #{C566D936-9791-474E-8E02-7BAD0D239D78}
  15. ENDPROPERTIES
  16.  
  17. METHODS
  18. SOURCE #classDeclaration
  19. #class ACTDMFDefinitionGroupCopy extends RunBase
  20. #{
  21. # DialogField dlgDMFDefinitionGroupNameDestination,
  22. # dlgReplaceValue1,
  23. # dlgReplaceValue2,
  24. # dlgDMFDefinitionGroupNameSource;
  25. # str replaceValue1,
  26. # replaceValue2;
  27. # DMFDefinitionGroup dmfDefinitionGroup;
  28. # DMFDefinationGroupName dmfDefinitionGroupNameDestination,
  29. # dmfDefinitionGroupNameSource;
  30. #
  31. # #define.CurrentVersion(1)
  32. # #localmacro.CurrentList
  33. # replaceValue1,
  34. # replaceValue2,
  35. # dmfDefinitionGroupNameSource
  36. # #endmacro
  37. #}
  38. ENDSOURCE
  39. SOURCE #dialog
  40. #protected Object dialog()
  41. #{
  42. # DialogRunbase ret;
  43. #
  44. # ret = super();
  45. #
  46. # if (this.parmDMFDefinitionGroup())
  47. # ret.addText(this.parmDMFDefinitionGroup().DefinationGroupName);
  48. # else
  49. # dlgDMFDefinitionGroupNameDestination = ret.addFieldValue(extendedTypeStr(DMFDefinationGroupName), dmfDefinitionGroupNameDestination);
  50. #
  51. # dlgReplaceValue1 = ret.addFieldValue(extendedTypeStr(String30), replaceValue1, "@SYS81169");
  52. # dlgReplaceValue2 = ret.addFieldValue(extendedTypeStr(String30), replaceValue2, "@SYS68002");
  53. # dlgDMFDefinitionGroupNameSource = ret.addFieldValue(extendedTypeStr(DMFDefinationGroupName), dmfDefinitionGroupNameSource, "@DMF106");
  54. #
  55. # return ret;
  56. #}
  57. ENDSOURCE
  58. SOURCE #getFromDialog
  59. #public boolean getFromDialog()
  60. #{
  61. # boolean ret;
  62. #
  63. # ret = super();
  64. # if (dlgDMFDefinitionGroupNameDestination != null)
  65. # {
  66. # dmfDefinitionGroupNameDestination = dlgDMFDefinitionGroupNameDestination.value();
  67. # dmfDefinitionGroup = DMFDefinitionGroup::find(dmfDefinitionGroupNameDestination);
  68. # }
  69. # replaceValue1 = dlgReplaceValue1.value();
  70. # replaceValue2 = dlgReplaceValue2.value();
  71. # dmfDefinitionGroupNameSource = dlgDMFDefinitionGroupNameSource.value();
  72. # return ret;
  73. #}
  74. ENDSOURCE
  75. SOURCE #pack
  76. #public container pack()
  77. #{
  78. # return [#CurrentVersion,#CurrentList];
  79. #}
  80. ENDSOURCE
  81. SOURCE #parmDMFDefinitionGroup
  82. #DMFDefinitionGroup parmDMFDefinitionGroup(DMFDefinitionGroup _dmfDefinitionGroup = dmfDefinitionGroup)
  83. #{
  84. # dmfDefinitionGroup = _dmfDefinitionGroup;
  85. # return dmfDefinitionGroup;
  86. #}
  87. ENDSOURCE
  88. SOURCE #run
  89. #public void run()
  90. #{
  91. # DMFDefinitionGroup dmfDefinitionGroupSource = DMFDefinitionGroup::find(dmfDefinitionGroupNameSource);
  92. # DMFDefinitionGroupEntity dmfDefinitionGroupEntitySource,
  93. # dmfDefinitionGroupEntityDestination;
  94. # Counter iCnt;
  95. # boolean execption;
  96. # super();
  97. #
  98. # ttsBegin;
  99. # while select dmfDefinitionGroupEntitySource where dmfDefinitionGroupEntitySource.DefinitionGroup == dmfDefinitionGroupSource.DefinationGroupName
  100. # {
  101. # dmfDefinitionGroupEntityDestination.clear();
  102. # dmfDefinitionGroupEntityDestination.initValue();
  103. # buf2Buf(dmfDefinitionGroupEntitySource, dmfDefinitionGroupEntityDestination);
  104. # dmfDefinitionGroupEntityDestination.DefinitionGroup = dmfDefinitionGroupNameDestination;
  105. #
  106. # // Replace
  107. # if (strLen(replaceValue1) > 0)
  108. # {
  109. # if (strLen(dmfDefinitionGroupEntityDestination.QueryForODBC) > 0)
  110. # {
  111. # if (strscan(dmfDefinitionGroupEntityDestination.QueryForODBC, replaceValue1, 1, strLen(dmfDefinitionGroupEntityDestination.QueryForODBC)))
  112. # {
  113. # dmfDefinitionGroupEntityDestination.QueryForODBC = strReplace(dmfDefinitionGroupEntityDestination.QueryForODBC, replaceValue1, replaceValue2);
  114. # }
  115. # }
  116. # else if (strLen(dmfDefinitionGroupEntityDestination.SampleFilePath) > 0)
  117. # {
  118. # if (strscan(dmfDefinitionGroupEntityDestination.SampleFilePath, replaceValue1, 1, strLen(dmfDefinitionGroupEntityDestination.SampleFilePath)))
  119. # {
  120. # dmfDefinitionGroupEntityDestination.SampleFilePath = strReplace(dmfDefinitionGroupEntityDestination.SampleFilePath, replaceValue1, replaceValue2);
  121. # }
  122. # }
  123. # }
  124. #
  125. # if (dmfDefinitionGroupEntityDestination.validateWrite())
  126. # {
  127. # dmfDefinitionGroupEntityDestination.insert();
  128. # iCnt++;
  129. #
  130. # // Validate, generate mapping
  131. # if(DMFDataSource::find(dmfDefinitionGroupEntityDestination.Source).Type == DMFSourceType::ODBC)
  132. # {
  133. # execption = DMFDefinitionGroupEntity::validateStatus(dmfDefinitionGroupEntityDestination);
  134. # }
  135. # if(!execption)
  136. # {
  137. # DMFXmlGeneration::generateMapping(dmfDefinitionGroupEntityDestination);
  138. # }
  139. #
  140. # if (DMFHierarchyValidation::validateMandatoryFieldsMapping(dmfDefinitionGroupEntityDestination.Entity, dmfDefinitionGroupEntityDestination.DefinitionGroup))
  141. # {
  142. # throw error("@DMF899");
  143. # }
  144. #
  145. # if(DMFEntity::find(dmfDefinitionGroupEntityDestination.Entity).ParentEntityName !='')
  146. # {
  147. # DMFHierarchyValidation::compositEntityValidation(dmfDefinitionGroupEntityDestination);
  148. # }
  149. # DMFHierarchyValidation::definitionEntityValidation(dmfDefinitionGroupEntityDestination,tableName2id(tableStr(DMFDefinitionGroupEntity)),'',true);
  150. # }
  151. # else
  152. # {
  153. # setprefix(dmfDefinitionGroupEntitySource.DefinitionGroup + " - " + dmfDefinitionGroupEntitySource.Entity);
  154. # throw error(strFmt("@SYS117281",tableId2PName(tableNum(DMFDefinitionGroup))));
  155. # }
  156. # }
  157. # ttsCommit;
  158. # info("@SYS60762" + " - " + int2str(iCnt) + " " + "@SYS25782");
  159. #}
  160. ENDSOURCE
  161. SOURCE #unpack
  162. #public boolean unpack(container packedClass)
  163. #{
  164. # Version version = RunBase::getVersion(packedClass);
  165. # switch (version)
  166. # {
  167. # case #CurrentVersion:
  168. # [version,#CurrentList] = packedClass;
  169. # break;
  170. # default:
  171. # return false;
  172. # }
  173. # return true;
  174. #}
  175. ENDSOURCE
  176. SOURCE #validate
  177. #public boolean validate(Object calledFrom = null) // The object/form which calls the method
  178. #{
  179. # boolean ret;
  180. # DMFDefinitionGroupEntity dmfDefinitionGroupEntity;
  181. #
  182. # ret = super(calledFrom);
  183. #
  184. # if (strLen(dmfDefinitionGroupNameDestination) == 0)
  185. # ret = ret && checkFailed(strFmt("@SYS84378",new SysDictType(extendedtypenum(DMFDefinationGroupName)).label()));
  186. #
  187. # if (!dmfDefinitionGroup)
  188. # ret = ret && checkFailed(strFmt("@SYS76877",tableId2PName(tableNum(DMFDefinitionGroup))));
  189. #
  190. # if (strLen(dmfDefinitionGroupNameSource) == 0)
  191. # ret = ret && checkFailed(strFmt("@SYS84378","@DMF106"));
  192. #
  193. # if (!DMFDefinitionGroup::find(dmfDefinitionGroupNameSource))
  194. # ret = ret && checkFailed(strFmt("@SYS76877",tableId2PName(tableNum(DMFDefinitionGroup))));
  195. #
  196. # select firstOnly1 dmfDefinitionGroupEntity where dmfDefinitionGroupEntity.DefinitionGroup == dmfDefinitionGroupNameDestination;
  197. # if (dmfDefinitionGroupEntity)
  198. # {
  199. # ret = ret && checkFailed("@SYS57612");
  200. # }
  201. #
  202. # return ret;
  203. #}
  204. ENDSOURCE
  205. SOURCE #main
  206. #static void main(Args args)
  207. #{
  208. # ACTDMFDefinitionGroupCopy clz = new ACTDMFDefinitionGroupCopy();
  209. # ;
  210. #
  211. # if (args && args.dataset() == tablenum(DMFDefinitionGroup))
  212. # {
  213. # clz.parmDMFDefinitionGroup(args.record().dataSource());
  214. # }
  215. # if(clz.prompt())
  216. # {
  217. # clz.run();
  218. # }
  219. #}
  220. ENDSOURCE
  221. ENDMETHODS
  222. ENDCLASS
  223.  
  224. ***Element: END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement