Снегопат

$engine JScript
$uname ПереборМодулей
$dname Перебор модулей 1С из конфигурации
$addin global
$addin stdlib
$addin stdcommands

//stdlib.require('TextWindow.js', SelfScript);
stdlib.require('SyntaxAnalysis.js', SelfScript);
global.connectGlobals(SelfScript);

SelfScript.self['macrosПеребрать все модули 1С из конфигурации'] = function() {

   var index =0;
   stdlib.forAllMdObjects(metadata.current.rootObject,
      function(mdObj){
         try{
            var mdObj_name = mdObj.name;
               
            var mdc = mdObj.mdclass;
            var mdc_name = mdc.name(1)
            var formName = ""
            // для объектов форм по умолчанию не показываются полные имена метаданных, приходится специально вычислять метаданное
            if (mdc_name == "Форма") {
               formName = "."+mdObj_name
               mdObj_name = mdObj.parent.name;
               mdc_name = mdObj.parent.mdclass.name(1);
               //Message("      " + mdObj.parent.name + " - " +mdc_name + "." + mdObj_name)
            }
             for(var i = 0, c = mdc.propertiesCount; i < c; i++)
             {
                 var mdProp = mdc.propertyAt(i)

                 var mdPropName = mdProp.name(1);
                 if(mdObj.isPropModule(mdPropName)) {
                  sourceText = mdObj.getModuleText(mdPropName);
                  if(sourceText.length){
                     //Message("   " + mdObj.parent.name + " - " +mdc.name(1) + formName + "." + mdObj.name + "." + mdPropName)
                     context = SyntaxAnalysis.AnalyseModule(sourceText, true);
                     var method = context.getMethodByName("ПередЗаписью");
                     if (method){
                        Message(""+index+" " + mdc_name + "." + mdObj_name + formName + "." + mdPropName+ " - метод ПередЗаписью ")
                        index++
                     }
                     var method = context.getMethodByName("ПриЗаписи");
                     if (method){
                        Message(""+index+" " + mdc_name + "." + mdObj_name +"." + mdPropName+ " - метод ПриЗаписи ")
                        index++
                     }
                  }
               }
             }
            
         }
         catch(e){}
      })
}

   try{
      mdObj.setModuleText(mdPropName, newText);
      Message(""+index+" " + mdc_name + "." + mdObj_name + formName + "." + mdPropName+ " - поменял метод "+methodName+" - добавил проверку на ОбменДанными.Загрузка")
   }catch(e) {
      Message("Ошибка изменения текста: " + mdc_name + "." + mdObj_name + formName + "." + mdPropName+ " - метод "+methodName+"")
   }