Dr. Watson 2.0/DRWATSON2.iso/OFFICE/WZMAIN80.MDE/bw_TblBtnActions.json

JavaScript Object Notation | 1997-03-17 | 10KB

{
    "schema": {
        "ActionID": "Integer",
        "Description": "Text (50)",
        "DefaultCaption": "Text (50)",
        "DefaultPictureID": "Integer",
        "SuggestedPictureIDs": "Text (50)",
        "CategoryID": "Integer",
        "NeedDocName": "Boolean NOT NULL",
        "Declarations": "Text (255)",
        "Body": "Memo/Hyperlink (255)",
        "ErrHandler": "Text (255)"
    },
    "data": [
        {
            "ActionID": 1,
            "Description": "Следующая запись",
            "DefaultCaption": "Следующая запись",
            "DefaultPictureID": 321,
            "SuggestedPictureIDs": "2,28,33,268,133,321",
            "CategoryID": 1,
            "NeedDocName": 0,
            "Body": "DoCmd.GoToRecord , , acNEXT"
        },
        {
            "ActionID": 2,
            "Description": "Предыдущая запись",
            "DefaultCaption": "Предыдущая запись",
            "DefaultPictureID": 322,
            "SuggestedPictureIDs": "1,19,21,282,119,322",
            "CategoryID": 1,
            "NeedDocName": 0,
            "Body": "DoCmd.GoToRecord , , acPREVIOUS"
        },
        {
            "ActionID": 3,
            "Description": "Первая запись",
            "DefaultCaption": "Первая запись",
            "DefaultPictureID": 323,
            "SuggestedPictureIDs": "3,41,43,296,105,323",
            "CategoryID": 1,
            "NeedDocName": 0,
            "Body": "DoCmd.GoToRecord ,,acFIRST"
        },
        {
            "ActionID": 4,
            "Description": "Последняя запись",
            "DefaultCaption": "Последняя запись",
            "DefaultPictureID": 324,
            "SuggestedPictureIDs": "4,26,35,91,147,324",
            "CategoryID": 1,
            "NeedDocName": 0,
            "Body": "DoCmd.GoToRecord , , acLAST"
        },
        {
            "ActionID": 5,
            "Description": "Поиск записи",
            "DefaultCaption": "Поиск записи",
            "DefaultPictureID": 167,
            "SuggestedPictureIDs": "37,167",
            "CategoryID": 1,
            "NeedDocName": 0,
            "Body": "Screen.PreviousControl.SetFocus\r\nDoCmd.DoMenuItem acFORMBAR,acEDITMENU, 10,,acMENUVER70"
        },
        {
            "ActionID": 6,
            "Description": "Сохранение записи",
            "DefaultCaption": "Сохранение записи",
            "DefaultPictureID": 183,
            "SuggestedPictureIDs": "38,53,54,183,227",
            "CategoryID": 2,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR, acRECORDSMENU, acSAVERECORD,,acMENUVER70"
        },
        {
            "ActionID": 7,
            "Description": "Восстановление записи",
            "DefaultCaption": "Восстановление записи",
            "DefaultPictureID": 248,
            "SuggestedPictureIDs": "8,189,248,294",
            "CategoryID": 2,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR, acEDITMENU,acUNDO,,acMENUVER70"
        },
        {
            "ActionID": 8,
            "Description": "Удаление записи",
            "DefaultCaption": "Удаление записи",
            "DefaultPictureID": 304,
            "SuggestedPictureIDs": "55,58,304,148",
            "CategoryID": 2,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR, acEDITMENU, 8,,acMENUVER70\r\nDoCmd.DoMenuItem acFORMBAR, acEDITMENU, 6,,acMENUVER70"
        },
        {
            "ActionID": 9,
            "Description": "Печать записи",
            "DefaultCaption": "Печать записи",
            "DefaultPictureID": 166,
            "SuggestedPictureIDs": "166",
            "CategoryID": 2,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR, acEDITMENU, 8,,acMENUVER70\r\nDoCmd.PrintOut acSELECTION"
        },
        {
            "ActionID": 10,
            "Description": "Открытие формы",
            "DefaultCaption": "Открытие формы",
            "DefaultPictureID": 137,
            "SuggestedPictureIDs": "137",
            "CategoryID": 3,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String\r\nDim stLinkCriteria as String",
            "Body": "DoCmd.OpenForm stDocName,,,stLinkCriteria"
        },
        {
            "ActionID": 11,
            "Description": "Печать отчета",
            "DefaultCaption": "Печать отчета",
            "DefaultPictureID": 166,
            "SuggestedPictureIDs": "51,166,146",
            "CategoryID": 4,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String",
            "Body": "DoCmd.OpenReport stDocName, acNORMAL"
        },
        {
            "ActionID": 12,
            "Description": "Закрытие формы",
            "DefaultCaption": "Закрытие формы",
            "DefaultPictureID": 93,
            "SuggestedPictureIDs": "6,93",
            "CategoryID": 3,
            "NeedDocName": 0,
            "Body": "DoCmd.Close"
        },
        {
            "ActionID": 13,
            "Description": "Печать таблицы",
            "DefaultCaption": "Печать таблицы",
            "DefaultPictureID": 166,
            "SuggestedPictureIDs": "166,104",
            "CategoryID": 9,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String\r\nDim MyForm as Form",
            "Body": "Set MyForm = Screen.ActiveForm\r\nDoCmd.SelectObject acTABLE,stDocName,TRUE\r\nDoCmd.PrintOut\r\nDoCmd.SelectObject acFORM,MyForm.Name, FALSE"
        },
        {
            "ActionID": 14,
            "Description": "Печать формы",
            "DefaultCaption": "Печать формы",
            "DefaultPictureID": 166,
            "SuggestedPictureIDs": "166",
            "CategoryID": 3,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String\r\nDim MyForm as Form",
            "Body": "Set MyForm = Screen.ActiveForm\r\nDoCmd.SelectObject acFORM,stDocName,TRUE\r\nDoCmd.PrintOut\r\nDoCmd.SelectObject acFORM,MyForm.Name, FALSE"
        },
        {
            "ActionID": 16,
            "Description": "Просмотр отчета",
            "DefaultCaption": "Просмотр отчета",
            "DefaultPictureID": 51,
            "SuggestedPictureIDs": "51,219,199,186",
            "CategoryID": 4,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String",
            "Body": "DoCmd.OpenReport stDocName, acPREVIEW"
        },
        {
            "ActionID": 17,
            "Description": "Обновление данных",
            "DefaultCaption": "Обновление",
            "DefaultPictureID": 0,
            "CategoryID": 3,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR, acRECORDSMENU, 5,,acMENUVER70"
        },
        {
            "ActionID": 18,
            "Description": "Запуск приложения",
            "DefaultCaption": "Запуск приложения",
            "DefaultPictureID": 0,
            "SuggestedPictureIDs": "73,68,212,201,145,159",
            "CategoryID": 7,
            "NeedDocName": 0,
            "Declarations": "Dim stAppName as String",
            "Body": "call Shell(stAppName, 1)"
        },
        {
            "ActionID": 19,
            "Description": "Применение фильтра",
            "DefaultCaption": "Применение фильтра",
            "DefaultPictureID": 178,
            "SuggestedPictureIDs": "178,92,315",
            "CategoryID": 3,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR,acRECORDSMENU,2,,acMENUVER70"
        },
        {
            "ActionID": 20,
            "Description": "Изменение фильтра",
            "DefaultCaption": "Изменение фильтра",
            "DefaultPictureID": 95,
            "SuggestedPictureIDs": "95,283",
            "CategoryID": 3,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR,acRECORDSMENU,0,2,acMENUVER70"
        },
        {
            "ActionID": 21,
            "Description": "Запуск запроса",
            "DefaultCaption": "Выполнение запроса",
            "DefaultPictureID": 52,
            "SuggestedPictureIDs": "52,290,141,127,113,99",
            "CategoryID": 9,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String",
            "Body": "DoCmd.OpenQuery stDocName, acNORMAL,acEDIT"
        },
        {
            "ActionID": 22,
            "Description": "Добавление записи",
            "DefaultCaption": "Добавление записи",
            "DefaultPictureID": 214,
            "SuggestedPictureIDs": "48,56,161,214",
            "CategoryID": 2,
            "NeedDocName": 0,
            "Body": "DoCmd.GoToRecord , , acNEWREC"
        },
        {
            "ActionID": 23,
            "Description": "Запуск макроса",
            "DefaultCaption": "Запуск макроса",
            "DefaultPictureID": 160,
            "SuggestedPictureIDs": "160,275",
            "CategoryID": 9,
            "NeedDocName": 1
        },
        {
            "ActionID": 26,
            "Description": "Выход из приложения",
            "DefaultCaption": "Выход из приложения",
            "DefaultPictureID": 6,
            "SuggestedPictureIDs": "6,93",
            "CategoryID": 7,
            "NeedDocName": 0,
            "Body": "DoCmd.Quit"
        },
        {
            "ActionID": 27,
            "Description": "Запуск блокнота",
            "DefaultCaption": "Запуск блокнота",
            "DefaultPictureID": 73,
            "SuggestedPictureIDs": "60,61,73",
            "CategoryID": 7,
            "NeedDocName": 0,
            "Body": "call Shell(\"NOTEPAD.EXE\", 1)"
        },
        {
            "ActionID": 28,
            "Description": "Набор номера",
            "DefaultCaption": "Набор номера",
            "DefaultPictureID": 15,
            "SuggestedPictureIDs": "15,158",
            "CategoryID": 9,
            "NeedDocName": 0,
            "Declarations": "Dim stDialStr as String\r\nDim PrevCtl as Control\r\nConst ERR_OBJNOTEXIST = 2467\r\nConst ERR_OBJNOTSET = 91",
            "Body": "Set PrevCtl = Screen.PreviousControl\r\n\r\nIf TypeOf PrevCtl Is TEXTBOX Then\r\n  stDialStr = iif(VarType(PrevCtl) >  V_NULL ,PrevCtl,\"\")\r\nElseIf TypeOf PrevCtl Is LISTBOX Then\r\n  stDialStr = iif(VarType(PrevCtl) >  V_NULL ,PrevCtl,\"\")\r\nElseIf TypeOf PrevCtl Is COMBOBOX Then\r\n  stDialStr = iif(VarType(PrevCtl) > V_NULL ,PrevCtl,\"\")\r\nElse\r\n  stDialStr = \"\"\r\nEnd If\r\n\r\nApplication.Run \"utility.wlib_AutoDial\",stDialStr",
            "ErrHandler": "if (Err = ERR_OBJNOTEXIST) or (Err = ERR_OBJNOTSET) Then\r\n  Resume Next\r\nEnd If\r\nMsgBox Err.Description"
        },
        {
            "ActionID": 29,
            "Description": "Найти далее",
            "DefaultCaption": "Найти далее",
            "DefaultPictureID": 211,
            "SuggestedPictureIDs": "211",
            "CategoryID": 1,
            "NeedDocName": 0,
            "Body": "Screen.PreviousControl.SetFocus\r\nDoCmd.FindNext"
        },
        {
            "ActionID": 30,
            "Description": "Дублирование записи",
            "DefaultCaption": "Дублирование записи",
            "DefaultPictureID": 228,
            "SuggestedPictureIDs": "225,228",
            "CategoryID": 2,
            "NeedDocName": 0,
            "Body": "DoCmd.DoMenuItem acFORMBAR,acEDITMENU,8,,acMENUVER70\r\nDoCmd.DoMenuItem acFORMBAR,acEDITMENU,2,,acMENUVER70\r\nDoCmd.DoMenuItem acFORMBAR,acEDITMENU,5,,acMENUVER70 'Paste Append"
        },
        {
            "ActionID": 31,
            "Description": "Вывод отчета в файл",
            "DefaultCaption": "Отчет в файл",
            "DefaultPictureID": 51,
            "SuggestedPictureIDs": "51,130,116,144",
            "CategoryID": 4,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String",
            "Body": "DoCmd.OutputTo acREPORT,stDocName"
        },
        {
            "ActionID": 32,
            "Description": "Отправка отчета",
            "DefaultCaption": "Отправка отчета",
            "DefaultPictureID": 63,
            "SuggestedPictureIDs": "63,190,187,146",
            "CategoryID": 4,
            "NeedDocName": 1,
            "Declarations": "Dim stDocName as String",
            "Body": "DoCmd.SendObject acREPORT,stDocName"
        },
        {
            "ActionID": 33,
            "Description": "Запуск MS Excel",
            "DefaultCaption": "Запуск Excel",
            "DefaultPictureID": 159,
            "SuggestedPictureIDs": "159",
            "CategoryID": 7,
            "NeedDocName": 0,
            "Declarations": "Dim oApp as Object",
            "Body": "Set oApp = CreateObject(\"Excel.Application\")\r\noApp.Visible = TRUE\r\n'Only XL 97 supports UserControl Property\r\non error resume next \r\noApp.UserControl = TRUE"
        },
        {
            "ActionID": 34,
            "Description": "Запуск MS Word",
            "DefaultCaption": "Запуск Word",
            "DefaultPictureID": 145,
            "SuggestedPictureIDs": "145",
            "CategoryID": 7,
            "NeedDocName": 0,
            "Declarations": "Dim oApp as Object",
            "Body": "Set oApp = CreateObject(\"Word.Application\")\r\noApp.Visible = TRUE"
        },
        {
            "ActionID": 35,
            "Description": "Печать текущей формы",
            "DefaultCaption": "Печать формы",
            "DefaultPictureID": 166,
            "SuggestedPictureIDs": "166",
            "CategoryID": 3,
            "NeedDocName": 0,
            "Body": "DoCmd.PrintOut"
        }
    ]
}