"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(me![|F01579]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 11,
"PaneGroup": 52,
"PaneNumber": 0,
"DatabaseTypeID": 8,
"DocType": 2,
"DocName": "Ресурсы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00331",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(me![|F02977]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 13,
"PaneGroup": 43,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 2,
"DocName": "Сотрудники",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00005",
"Code": "Private Sub Form_Activate()\r\n Me![|P00017].requery\r\nEnd Sub\r\nPrivate Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(me![|F01122]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n Endif\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00332].*, [|T00331].[|F02978], [|T00404].[|F02979] FROM ([|T00404] RIGHT JOIN [|T00331] ON [|T00404].[|F03275] = [|T00331].[|F03275]) INNER JOIN [|T00332] ON [|T00331].[|F02977] = [|T00332].[|F02977];",
"Code": "Private Sub Form_Current()\r\n If IsLoaded(\"|P00014\") then \r\n Forms![|P00014]![|C02398] = Me![|F02981]\r\n End If\r\nEnd Sub"
},
{
"PaneID": 21,
"PaneGroup": 30,
"PaneNumber": 0,
"DatabaseTypeID": 2,
"DocType": 3,
"DocName": "Описание имущества",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00010].*, [|T00261].[|F02357], [|T00363].[|F02175] FROM ([|T00010] LEFT JOIN [|T00261] ON [|T00010].[|F02796] = [|T00261].[|F02796]) LEFT JOIN [|T00363] ON [|T00010].[|F03105] = [|T00363].[|F03105];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 22,
"PaneGroup": 33,
"PaneNumber": 0,
"DatabaseTypeID": 14,
"DocType": 3,
"DocName": "Адреса по фамилиям",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00325",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 23,
"PaneGroup": 34,
"PaneNumber": 0,
"DatabaseTypeID": 14,
"DocType": 3,
"DocName": "Данные",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00325"
},
{
"PaneID": 26,
"PaneGroup": 45,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 3,
"DocName": "Фонды по отделам",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 327,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00254].*, [|T00327].[|F01119] FROM [|T00254] LEFT JOIN [|T00327] ON [|T00254].[|F02921] = [|T00327].[|F02921];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00404].[|F02979], [|T00331].*, [|T00332].[|F03276], [|T00403].*, [|F03102] & \", \" & [|F03101] AS [|S00014]\r\nFROM ([|T00404] RIGHT JOIN [|T00331] ON [|T00404].[|F03275] = [|T00331].[|F03275]) INNER JOIN ([|T00332] INNER JOIN ([|T00192] RIGHT JOIN [|T00403] ON [|T00192].[|F01579] = [|T00403].[|F01579]) ON [|T00332].[|F02981] = [|T00403].[|F02981]) ON [|T00331].[|F02977] = [|T00332].[|F02977] WHERE ((([|T00332].[|F03276])>=Forms![|P00285]![|C02413] And ([|T00332].[|F03276])<=Forms![|P00285]![|C02414]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00285\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00285\", , , , , acDialog, \"|P00031\"\r\n If Not IsLoaded(\"|P00285\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 32,
"PaneGroup": 56,
"PaneNumber": 0,
"DatabaseTypeID": 8,
"DocType": 3,
"DocName": "Ресурсы по типам",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00331].*, [|T00404].[|F02979] FROM [|T00404] RIGHT JOIN [|T00331] ON [|T00404].[|F03275] = [|T00331].[|F03275];"
},
{
"PaneID": 33,
"PaneGroup": 29,
"PaneNumber": 0,
"DatabaseTypeID": 2,
"DocType": 3,
"DocName": "Опись по стоимости",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00261].[|F02357], [|T00010].* FROM [|T00010] LEFT JOIN [|T00261] ON [|T00010].[|F02796] = [|T00261].[|F02796];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 34,
"PaneGroup": 31,
"PaneNumber": 0,
"DatabaseTypeID": 2,
"DocType": 3,
"DocName": "Опись по типам",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00363].[|F02175], [|T00261].[|F02357], [|T00010].*\r\nFROM [|T00261] RIGHT JOIN ([|T00363] RIGHT JOIN [|T00010] ON [|T00363].[|F03105] = [|T00010].|F03105) ON [|T00261].[|F02796]=[|T00010].[|F02796];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 36,
"PaneGroup": 58,
"PaneNumber": 0,
"DatabaseTypeID": 18,
"DocType": 2,
"DocName": "Студенты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00312",
"Code": "Private Sub Form_Load()\r\n If Me.OpenArgs = \"GotoNew\" And Not IsNull(Me![|F02912]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n If IsLoaded(\"|P00038\") then \r\n If Forms![|P00038]![|P00039].form.recordsetclone.recordcount>0 then\r\n Me.Requery\r\n DoCmd.GotoControl \"|F02912\"\r\n if isnull(Forms![|P00038]![|P00039].form![|F02912]) then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , 70\r\n Else\r\n DoCmd.FindRecord Forms![|P00038]![|P00039].form![|F02912]\r\n End If\r\n End If\r\n End If\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 38,
"PaneGroup": 57,
"PaneNumber": 0,
"DatabaseTypeID": 18,
"DocType": 2,
"DocName": "Занятия",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00313",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F02913]) Then\r\n DoCmd.GoToControl \"|F02916\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 \r\n Me![|P00039].Requery\r\n Me![|P00039].form![|F02912].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"SQL": "SELECT DISTINCTROW [|T00313].*, [|T00312].*, [|T00327].[|F03019], [|T00327].[|F01119], [|T00382].[|F02922] FROM [|T00312] INNER JOIN (([|T00382] RIGHT JOIN ([|T00327] RIGHT JOIN [|T00313] ON [|T00327].[|F02921] = [|T00313].[|F02921]) ON [|T00382].[|F03210] = [|T00313].[|F03210]) INNER JOIN [|T00383] ON [|T00313].[|F02913] = [|T00383].[|F02913]) ON [|T00312].[|F02912] = [|T00383].[|F02912];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 42,
"PaneGroup": 63,
"PaneNumber": 0,
"DatabaseTypeID": 18,
"DocType": 3,
"DocName": "Студенты",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00312",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 43,
"PaneGroup": 64,
"PaneNumber": 0,
"DatabaseTypeID": 15,
"DocType": 2,
"DocName": "Исполнители",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00337",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F02988]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 44,
"PaneGroup": 65,
"PaneNumber": 0,
"DatabaseTypeID": 15,
"DocType": 2,
"DocName": "Альбомы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00351",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F03052]) Then\r\n DoCmd.GoToControl \"|F03059\"\r\n End If\r\nEnd Sub",
"SQL": "SELECT DISTINCTROW [|T00370].* FROM [|T00370] WHERE (([|T00370].[|F01122]=[forms]![|P00060]![|F01122]));",
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00060\") then\r\n MsgBox \"|S00267\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n If IsLoaded(\"|P00060\") Then\r\n If Forms![|P00060]![|P00184].form.recordsetclone.recordcount>0 then\r\n DoCmd.GotoControl \"|F03151\"\r\n DoCmd.FindRecord Forms![|P00060]![|P00184].form![|F03151]\r\n End If\r\n End If\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"SQL": "SELECT DISTINCTROW [|T00370].*,[|T00329].[|F02993], [|T00329].[|F02994], [|T00329].[|F02995], [|T00329].[|F02996], [|T00328].[|F02975], [|T00005].[|F03150], [|T00005].[|F00001], [|T00005].[|F00002] FROM [|T00005] INNER JOIN ([|T00370] INNER JOIN ([|T00328] RIGHT JOIN [|T00329] ON [|T00328].[|F02974] = [|T00329].[|F02974]) ON [|T00370].[|F03151] = [|T00329].[|F03151]) ON [|T00005].[|F01122] = [|T00370].[|F01122] WHERE (([|T00370].[|F03151]=[forms]![|P00061]![|F03151]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00061\") then\r\n MsgBox \"|S00745\"\r\n Cancel=True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00328].[|F02975], [|T00328].[|F02997], Sum([|T00329].[|F02994]) AS [|F02994] FROM [|T00370] INNER JOIN ([|T00328] RIGHT JOIN [|T00329] ON [|T00328].[|F02974] = [|T00329].[|F02974]) ON [|T00370].[|F03151] = [|T00329].[|F03151] WHERE ((([|T00370].[|F02259])>=[Forms]![|P00186]![|C01637] And ([|T00370].[|F02259])<=[Forms]![|P00186]![|C01638])) GROUP BY [|T00328].[|F02975], [|T00328].[|F02997];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00186\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00186\", , , , , acDialog, \"|P00064\"\r\n If Not IsLoaded(\"|P00186\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 65,
"PaneGroup": 83,
"PaneNumber": 0,
"DatabaseTypeID": 16,
"DocType": 2,
"DocName": "Рецепты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"LinkChildFields": "|F01084",
"LinkMasterFields": "|F01084",
"SQL": "|T00160",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F01084]) Then\r\n DoCmd.GoToControl \"|F02947\"\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 66,
"PaneGroup": 84,
"PaneNumber": 0,
"DatabaseTypeID": 16,
"DocType": 3,
"DocName": "Данные рецепта",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 1,
"SQL": "SELECT DISTINCTROW [|T00160].*, [|T00377].[|F02998] FROM [|T00377] RIGHT JOIN [|T00160] ON [|T00377].[|F03176] = [|T00160].[|F03176];"
"SQL": "SELECT DISTINCTROW [|T00398].*, [|T00192].[|F03082] FROM [|T00192] INNER JOIN [|T00398] ON [|T00192].[|F01579] = [|T00398].[|F01579] WHERE (([|T00398].[|F01579]=[forms]![|P00070]![|F01579]));",
"Code": "Private Sub Form_Current()\r\n If IsNull(me![|F03262]) Then\r\n DoCmd.GoToControl \"|F03271\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Open(Cancel as Integer)\r\n If Not IsLoaded(\"|P00070\") then \r\n msgbox \"|S00255\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n if isloaded(\"|P00070\") then\r\n If Forms![|P00070]![|P00276].form.recordsetclone.recordcount>0 then\r\n DoCmd.GotoControl \"|F03262\"\r\n DoCmd.FindRecord Forms![|P00070]![|P00276].form![|F03262]\r\n End If\r\n End if\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 80,
"PaneGroup": 99,
"PaneNumber": 0,
"DatabaseTypeID": 13,
"DocType": 2,
"DocName": "Книги",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00007",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F00148]) then\r\n DoCmd.GotoControl \"|F00084\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" and not isnull(Me![|F00148]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"SQL": "SELECT DISTINCTROW [|T00007].*, [|T00040].[|F00002] & \", \" & [|F00001] AS [|S00015], [|T00354].[|F03062] FROM ([|T00354] RIGHT JOIN [|T00007] ON [|T00354].[|F03061] = [|T00007].[|F03061]) LEFT JOIN ([|T00040] RIGHT JOIN [|T00353] ON [|T00040].[|F00564] = [|T00353].[|F00564]) ON [|T00007].[|F00148] = [|T00353].[|F00148];"
},
{
"PaneID": 89,
"PaneGroup": 105,
"PaneNumber": 0,
"DatabaseTypeID": 17,
"DocType": 2,
"DocName": "Список вин",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00311",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F02903]) Then\r\n DoCmd.GoToControl \"|F02933\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me![|P00090].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"Code": "Private Sub >>|S00119<<()\r\nOn Error Goto Err_>>|S00119<<\r\n If IsNull(Forms![|P00089]![|F02903]) Then\r\n MsgBox \"|S00131\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenForm \"|P00093\"\r\n End If\r\n\r\nExit_>>|S00119<<:\r\n Exit Sub\r\n\r\nErr_>>|S00119<<:\r\n MsgBox Err.Description\r\n Resume Exit_>>|S00119<<\r\nEnd Sub"
},
{
"PaneID": 91,
"PaneGroup": 106,
"PaneNumber": 0,
"DatabaseTypeID": 17,
"DocType": 3,
"DocName": "Вина по типам",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00374].[|F02906], [|T00311].[|F02902], [|T00311].[|F02933], [|T00311].[|F02897], [|T00311].[|F03173], Sum([|T00339].[|F00324]) AS [|F00324]\r\nFROM ([|T00374] RIGHT JOIN [|T00311] ON [|T00374].[|F03171] = [|T00311].[|F03171]) INNER JOIN [|T00339] ON [|T00311].[|F02903] = [|T00339].[|F02903]\r\nGROUP BY [|T00374].[|F02906], [|T00311].[|F02902], [|T00311].[|F02933], [|T00311].[|F02897], [|T00311].[|F03173];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 92,
"PaneGroup": 107,
"PaneNumber": 0,
"DatabaseTypeID": 17,
"DocType": 3,
"DocName": "Вина по годам",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00374].[|F02906], [|T00311].[|F02902], [|T00311].[|F02933], [|T00311].[|F02897], [|T00311].[|F03173], Sum([|T00339].[|F00324]) AS [|F00324]\r\nFROM ([|T00374] RIGHT JOIN [|T00311] ON [|T00374].[|F03171] = [|T00311].[|F03171]) INNER JOIN [|T00339] ON [|T00311].[|F02903] = [|T00339].[|F02903]\r\nGROUP BY [|T00374].[|F02906], [|T00311].[|F02902], [|T00311].[|F02933], [|T00311].[|F02897], [|T00311].[|F03173];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 93,
"PaneGroup": 108,
"PaneNumber": 0,
"DatabaseTypeID": 17,
"DocType": 2,
"DocName": "Покупка вина",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00339].* FROM [|T00339] WHERE (([|T00339].[|F02903]=[forms]![|P00089]![|F02903]));",
"Code": "Private Sub Form_Open(Cancel as Integer)\r\n If Not IsLoaded(\"|P00089\") then \r\n msgbox \"|S00257\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n if isloaded(\"|P00089\") then\r\n If not isnull(Forms![|P00089]![|P00090].form![|F03003]) then \r\n DoCmd.GotoControl \"|F03003\"\r\n DoCmd.FindRecord Forms![|P00089]![|P00090].form![|F03003]\r\n Else\r\n If Forms![|P00089]![|P00090].form.recordsetclone.recordcount>0 then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End if\r\n End If\r\n End if\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00374].[|F02906], [|T00311].[|F02902], [|T00311].[|F02933], [|T00311].[|F02897], [|T00311].[|F03173], Sum([|T00339].[|F00324]) AS [|F00324]\r\nFROM ([|T00374] RIGHT JOIN [|T00311] ON [|T00374].[|F03171] = [|T00311].[|F03171]) INNER JOIN [|T00339] ON [|T00311].[|F02903] = [|T00339].[|F02903]\r\nGROUP BY [|T00374].[|F02906], [|T00311].[|F02902], [|T00311].[|F02933], [|T00311].[|F02897], [|T00311].[|F03173];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 97,
"PaneGroup": 113,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 2,
"DocName": "Сотрудники",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT [|T00005].* FROM [|T00005] ORDER BY [|T00005].[|F00002];",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(me![|F01122]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F00154]) Then\r\n DoCmd.GoToControl \"|F01122\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Open(Cancel as Integer)\r\n If Not IsLoaded(\"|P00135\") then \r\n msgbox \"|S00254\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n If IsLoaded(\"|P00135\") Then\r\n If Forms![|P00135]![|P00136].Form.RecordsetClone.RecordCount > 0 Then\r\n DoCmd.GoToControl \"|F00154\"\r\n DoCmd.FindRecord Forms![|P00135]![|P00136].Form![|F00154]\r\n End If\r\n End If\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"SQL": "SELECT [|T00040].* FROM [|T00040] ORDER BY [|T00040].[|F00002], [|T00040].[|F00001];",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F00564]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 117,
"PaneGroup": 126,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 2,
"DocName": "Отделения",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 327,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00327",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F02921]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 118,
"PaneGroup": 127,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 2,
"DocName": "Типы фондов",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00381",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03192]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 120,
"PaneGroup": 59,
"PaneNumber": 0,
"DatabaseTypeID": 18,
"DocType": 2,
"DocName": "Тесты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 4,
"SQL": "SELECT DISTINCTROW [|T00313].[|F02913] FROM [|T00313] WHERE (([|T00313].[|F02913]=[forms]![|P00038]![|F02913]));",
"Code": "Private Sub Form_Open(Cancel as Integer)\r\n If Not IsLoaded(\"|P00038\") then \r\n msgbox \"|S00275\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\n Me.Requery\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 122,
"PaneGroup": 129,
"PaneNumber": 0,
"DatabaseTypeID": 22,
"DocType": 2,
"DocName": "Учетные записи",
"Caption": "Учетные записи",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00304",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F01967]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03021]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00304].[|F01151], [|T00304].[|F02025], Sum([|T00222].[|F03002]) AS [|F03002], Sum([|T00222].[|F02202]) AS [|F02202]\r\nFROM [|T00304] LEFT JOIN [|T00222] ON [|T00304].[|F01967] = [|T00222].[|F01967]\r\nWHERE ((([|T00222].[|F02369])>=[forms]![|P00349]![|C02933] And ([|T00222].[|F02369])<=[Forms]![|P00349]![|C02934]))\r\nGROUP BY [|T00304].[|F01151], [|T00304].[|F02025];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00349\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00349\", , , , , acDialog, \"|P00126\"\r\n If Not IsLoaded(\"|P00349\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 127,
"PaneGroup": 133,
"PaneNumber": 0,
"DatabaseTypeID": 22,
"DocType": 3,
"DocName": "Список операций",
"Caption": "Список операций",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00222].*, [|T00304].[|F02025] FROM [|T00304] RIGHT JOIN [|T00222] ON [|T00304].[|F01967] = [|T00222].[|F01967] WHERE ((([|T00222].[|F02369])>=[forms]![|P00349]![|C02933] And ([|T00222].[|F02369])<=[Forms]![|P00349]![|C02934]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00349\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00349\", , , , , acDialog, \"|P00127\"\r\n If Not IsLoaded(\"|P00349\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00342].[|F02356], [|T00304].[|F01151], [|T00304].[|F02025], Sum([|T00222].[|F03002]) AS [|F03002], Sum([|T00222].[|F02202]) AS [|F02202]\r\nFROM [|T00342] RIGHT JOIN ([|T00304] LEFT JOIN [|T00222] ON [|T00304].[|F01967] = [|T00222].[|F01967]) ON [|T00342].[|F03021] = [|T00304].[|F03021]\r\nWHERE ((([|T00222].[|F02369])>=[forms]![|P00349]![|C02933]) AND (([|T00222].[|F02369])<=[Forms]![|P00349]![|C02934]))\r\nGROUP BY [|T00342].[|F02356], [|T00304].[|F01151], [|T00304].[|F02025];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00349\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00349\", , , , , acDialog, \"|P00128\"\r\n If Not IsLoaded(\"|P00349\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03056]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00013].[|F00154], [|T00013].[|F01579], [|T00013].[|F00352], [|T00013].[|F00359], [|T00013].[|F03030], Sum(Clng(nz([|F00324]*[|F02149]*(1-[|F00356]))*100)/100) AS [|F03107], [|T00013].[|F00353], [|Q00004].[|S00006] AS [|S00006] FROM ([|T00013] LEFT JOIN [|Q00004] ON [|T00013].[|F00154] = [|Q00004].[|F00154]) LEFT JOIN [|T00056] ON [|T00013].[|F00154] = [|T00056].[|F00154] GROUP BY [|T00013].[|F00154], [|T00013].[|F01579], [|T00013].[|F00352], [|T00013].[|F00359], [|T00013].[|F03030], [|T00013].[|F00353], [|Q00004].[|S00006];",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F01581]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 141,
"PaneGroup": 144,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 2,
"DocName": "Методы оплаты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00343",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03025]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 142,
"PaneGroup": 145,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 2,
"DocName": "Доставка",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00346",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03027]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 143,
"PaneGroup": 146,
"PaneNumber": 0,
"DatabaseTypeID": 4,
"DocType": 2,
"DocName": "Контакты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 2,
"SQL": "|T00003",
"NumPages": 2,
"PageHeight": 3800
},
{
"PaneID": 144,
"PaneGroup": 147,
"PaneNumber": 0,
"DatabaseTypeID": 2,
"DocType": 2,
"DocName": "Помещения",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00363",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03105]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 145,
"PaneGroup": 148,
"PaneNumber": 0,
"DatabaseTypeID": 2,
"DocType": 2,
"DocName": "Типы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00261",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F02796]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 146,
"PaneGroup": 149,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 3,
"DocName": "Список клиентов",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00192",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 148,
"PaneGroup": 151,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 3,
"DocName": "Счет",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT [|T00013].*, [|T00056].[|F01882], [|T00056].[|F01581], [|T00056].[|F00324], [|T00056].[|F02149], [|T00056].[|F00356], [|T00192].[|F03082], [|T00192].[|F03101], [|T00192].[|F03102], [|T00192].[|F03011], [|T00192].[|F00005], [|T00192].[|F03089], [|T00192].[|F00139], [|T00192].[|F00008], [|T00192].[|F01558], [|T00192].[|F03101] & \" \" & [|T00192].[|F03102] AS [|S00014], [|T00346].[|F03029], [|T00228].[|F02126] FROM [|T00192] RIGHT JOIN ([|T00228] INNER JOIN (([|T00346] RIGHT JOIN ([|T00005] RIGHT JOIN [|T00013] ON [|T00005].[|F01122] = [|T00013].[|F01122]) ON [|T00346].[|F03027] = [|T00013].[|F03027]) RIGHT JOIN [|T00056] ON [|T00013].[|F00154] = [|T00056].[|F00154]) ON [|T00228].[|F01581] = [|T00056].[|F01581]) ON [|T00192].[|F01579] = [|T00013].[|F01579]\r\nORDER BY [|T00013].[|F00353];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00138\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n If Not IsLoaded(\"|P00135\") then\r\n MsgBox \"|S00764\"\r\n Cancel=True\r\n Else\r\n DoCmd.OpenForm \"|P00138\", , , , , acDialog\r\n If Not IsLoaded(\"|P00138\") Then\r\n Cancel = True\r\n End If\r\n End If\r\nEnd Sub"
},
{
"PaneID": 150,
"PaneGroup": 153,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 3,
"DocName": "Неоплаченные счета",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW Sum(IIf((Date()-[|F00353])<31,[|S00007]*(1+[|F03030])+[|F00359]- nz([|S00006]),0)) AS [|S00008], Sum(IIf((Date()-[|F00353])<61 And (Date()-[|F00353]>30),[|S00007]*(1+[|F03030])+[|F00359]-nz([|S00006]),0)) AS [|S00009], Sum(IIf((Date()-[|F00353])<91 And (Date()-[|F00353]>60),[|S00007]*(1+[|F03030])+[|F00359]-nz([|S00006]),0)) AS [|S00010], Sum(IIf((Date()-[|F00353])>90,[|S00007]*(1+[|F03030])+[|F00359]-nz([|S00006]),0)) AS [|S00011], Sum([|S00007]*(1+[|F03030])+[|F00359]-nz([|S00006])) AS [|S00012], [|Q00003].[|F03082] FROM [|Q00003] WHERE ((([|Q00003].[|F00353]) Is Not Null)) GROUP BY [|Q00003].[|F03082] HAVING (((Sum([|S00007]*(1+[|F03030])+[|F00359]-nz([|S00006])))>0));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00192].[|F03082], Sum([|Q00020].[|S00004]) AS [|S00004], Sum(CLng([|Q00020].[|S00004]*[|Q00020].[|F03030]*100)/100) AS [|S00005], Sum([|Q00020].[|F00359]) AS [|S00003], Sum([|Q00020].[|S00002]) AS [|S00002] FROM [|T00192] INNER JOIN [|Q00020] ON [|T00192].[|F01579] = [|Q00020].[|F01579] WHERE ((([|Q00020].[|F00352])>=[forms]![|P00154]![|C01273] And ([|Q00020].[|F00352])<=[forms]![|P00154]![|C01274])) GROUP BY [|T00192].[|F03082];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00154\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00154\", , , , , acDialog, \"|P00151\"\r\n If Not IsLoaded(\"|P00154\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|F00002] & \", \" & [|F00001] AS [|S00013], Sum([|Q00022].[|S00004]) AS [|S00004], Sum(CLng([|Q00022].[|S00004]*[|Q00022].[|F03030]*100)/100) AS [|S00005], Sum([|Q00022].[|F00359]) AS [|S00003], Sum([|Q00022].[|S00002]) AS [|S00002] FROM [|T00005] INNER JOIN [|Q00022] ON [|T00005].[|F01122] = [|Q00022].[|F01122] WHERE ((([|Q00022].[|F00352])>=[forms]![|P00154]![|C01273] And ([|Q00022].[|F00352])<=[forms]![|P00154]![|C01274])) GROUP BY [|F00002] & \", \" & [|F00001];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00154\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00154\", , , , , acDialog, \"|P00152\"\r\n If Not IsLoaded(\"|P00154\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 153,
"PaneGroup": 156,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 3,
"DocName": "Продажи по товарам",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00228].[|F02126], Sum(CLng([|T00056].[|F00324]*[|T00056].[|F02149]*(1-[|T00056].[|F00356])*100)/100) AS [|S00004], Sum([|T00056].[|F00324]) AS [|S00002] FROM [|T00228] INNER JOIN ([|T00013] INNER JOIN [|T00056] ON [|T00013].[|F00154] = [|T00056].[|F00154]) ON [|T00228].[|F01581] = [|T00056].[|F01581] WHERE ((([|T00013].[|F00352])>=[forms]![|P00154]![|C01273] And ([|T00013].[|F00352])<=[forms]![|P00154]![|C01274])) GROUP BY [|T00228].[|F02126];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00154\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00154\", , , , , acDialog, \"|P00153\"\r\n If Not IsLoaded(\"|P00154\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 154,
"PaneGroup": 157,
"PaneNumber": 0,
"DatabaseTypeID": 3,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open (Cancel As Integer)\r\n Me.caption = Forms![|P00154].openargs\r\nEnd Sub"
"Code": "Private Sub Form_Open(Cancel as Integer)\r\n If Not IsLoaded(\"|P00143\") then\r\n msgbox \"|S00747\"\r\n Cancel = True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 157,
"PaneGroup": 159,
"PaneNumber": 0,
"DatabaseTypeID": 4,
"DocType": 2,
"DocName": "Типы контактов",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00360",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03079]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 158,
"PaneGroup": 160,
"PaneNumber": 0,
"DatabaseTypeID": 4,
"DocType": 3,
"DocName": "Список по алфавиту",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00003].* FROM [|T00003];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 160,
"PaneGroup": 162,
"PaneNumber": 0,
"DatabaseTypeID": 4,
"DocType": 3,
"DocName": "Звонки за неделю",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00003].[|F00001], [|T00003].[|F00002], [|T00359].[|F03097], [|T00359].[|F02163], [|T00359].[|F03098], [|T00003].[|F00010], [|T00003].[|F03115], [|T00003].[|F02319], [|T00003].[|F00011], [|T00003].[|F00980] FROM [|T00003] INNER JOIN [|T00359] ON [|T00003].[|F00144] = [|T00359].[|F00144] WHERE (([|T00359].[|F03097]>=[forms]![|P00163]![|C01364] And [|T00359].[|F03097]<=[forms]![|P00163]![|C01365]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00163\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00163\", , , , , acDialog, \"|P00160\"\r\n If Not IsLoaded(\"|P00163\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 163,
"PaneGroup": 165,
"PaneNumber": 0,
"DatabaseTypeID": 4,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open (Cancel As Integer)\r\n Me.caption = Me.openargs\r\n Me![|C01364] = Date - Weekday(Date, 2) + 1\r\n Me![|C01365] = Me![|C01364] + 6\r\nEnd Sub"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03122]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 172,
"PaneGroup": 172,
"PaneNumber": 0,
"DatabaseTypeID": 10,
"DocType": 2,
"DocName": "Методы оплаты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00343",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03025]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00365].*, [|Q00004].[|S00006] FROM [|T00365] LEFT JOIN [|Q00004] ON [|T00365].[|F03121] = [|Q00004].[|F03121] WHERE (([|T00365].[|F03137]>[|Q00004].[|S00006]) OR ([|Q00004].[|S00006] Is Null) OR ([|T00365].[|F03121]=Forms![|P00174]![|F03121]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00174\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00174\", , , , , acDialog\r\n If Not IsLoaded(\"|P00174\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|F00002] & \", \" & [|F00001] AS [|S00045], [|T00365].*, [|T00369].[|F03123] FROM [|T00369] RIGHT JOIN [|T00365] ON [|T00369].[|F03122] = [|T00365].[|F03122];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 183,
"PaneGroup": 182,
"PaneNumber": 0,
"DatabaseTypeID": 10,
"DocType": 3,
"DocName": "Неуплата взносов",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00365].*, [|Q00004].[|S00006] FROM [|T00365] LEFT JOIN [|Q00004] ON [|T00365].[|F03121] = [|Q00004].[|F03121] WHERE (([|T00365].[|F03137]>[|Q00004].[|S00006])) OR (([|Q00004].[|S00006] Is Null));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F02974]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 186,
"PaneGroup": 184,
"PaneNumber": 0,
"DatabaseTypeID": 12,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n Me.caption = Me.openargs\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00005].[|F00002] & \", \" & [|T00005].[|F00001] AS [|S00013], [|T00328].[|F02975], [|T00328].[|F02997], Sum([|T00329].[|F02994]) AS [|F02994]\r\nFROM ([|T00005] INNER JOIN [|T00370] ON [|T00005].[|F01122] = [|T00370].[|F01122]) INNER JOIN ([|T00328] RIGHT JOIN [|T00329] ON [|T00328].[|F02974] = [|T00329].[|F02974]) ON [|T00370].[|F03151] = [|T00329].[|F03151] WHERE ((([|T00370].[|F02259])>=[Forms]![|P00186]![|C01637] And ([|T00370].[|F02259])<=[Forms]![|P00186]![|C01638]))\r\nGROUP BY [|T00005].[|F00002] & \", \" & [|T00005].[|F00001], [|T00328].[|F02975], [|T00328].[|F02997];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00186\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00186\", , , , , acDialog, \"|P00187\"\r\n If Not IsLoaded(\"|P00186\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 188,
"PaneGroup": 186,
"PaneNumber": 0,
"DatabaseTypeID": 19,
"DocType": 2,
"DocName": "Места хранения",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00373",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03169]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00309].*, [|T00029].*, [|T00373].[|F03170] FROM [|T00309] INNER JOIN ([|T00373] RIGHT JOIN [|T00029] ON [|T00373].[|F03169] = [|T00029].[|F03169]) ON [|T00309].[|F02872] = [|T00029].[|F02872];"
},
{
"PaneID": 190,
"PaneGroup": 188,
"PaneNumber": 0,
"DatabaseTypeID": 17,
"DocType": 2,
"DocName": "Типы вин",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00374",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03171]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 191,
"PaneGroup": 189,
"PaneNumber": 0,
"DatabaseTypeID": 16,
"DocType": 2,
"DocName": "Типы пищи",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00377",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03176]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 192,
"PaneGroup": 190,
"PaneNumber": 0,
"DatabaseTypeID": 16,
"DocType": 2,
"DocName": "Компоненты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00375",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03178]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00376].*, [|T00375].[|F03179] FROM [|T00375] INNER JOIN [|T00376] ON [|T00375].[|F03178] = [|T00376].[|F03178];"
},
{
"PaneID": 197,
"PaneGroup": 192,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 2,
"DocName": "Снижение стоимости",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 3,
"SQL": "SELECT DISTINCTROW [|T00254].* FROM [|T00254] WHERE (([|T00254].[|F02345]=[forms]![|P00008]![|F02345]));",
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00008\") then\r\n MsgBox \"|S00265\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me.Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 198,
"PaneGroup": 193,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 2,
"DocName": "Обслуживание",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 3,
"SQL": "SELECT DISTINCTROW [|T00254].* FROM [|T00254] WHERE (([|T00254].[|F02345]=[forms]![|P00008]![|F02345]));",
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00008\") then\r\n MsgBox \"|S00266\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me.Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n if err<>2279 then\r\n MsgBox Err.Description\r\n end if\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 199,
"PaneGroup": 194,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n Me.caption =Me.openargs\r\nEnd Sub"
},
{
"PaneID": 200,
"PaneGroup": 195,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 2,
"DocName": "Состояние",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00380",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03183]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03181]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00254].*, [|T00380].[|F02936] FROM [|T00005] RIGHT JOIN ([|T00380] RIGHT JOIN [|T00254] ON [|T00380].[|F03183] = [|T00254].[|F03183]) ON [|T00005].[|F01122] = [|T00254].[|F01122];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00381].[|F03193], [|T00254].[|F02346], [|T00254].[|F02864], [|T00254].[|F00073], [|T00254].[|F03187], [|T00254].[|F02350], [|T00254].[|F01059], [|T00254].[|F03188], Sum([|T00371].[|F03163]) AS [|F03163] FROM ([|T00381] RIGHT JOIN [|T00254] ON [|T00381].[|F03192] = [|T00254].[|F03192]) INNER JOIN [|T00371] ON [|T00254].[|F02345] = [|T00371].[|F02345] WHERE ((([|T00371].[|F03162])>=[Forms]![|P00199]![|C02852] And ([|T00371].[|F03162])<=[Forms]![|P00199]![|C02853])) GROUP BY [|T00381].[|F03193], [|T00254].[|F02346], [|T00254].[|F02864], [|T00254].[|F00073], [|T00254].[|F03187], [|T00254].[|F02350], [|T00254].[|F01059], [|T00254].[|F03188];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00199\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00199\", , , , , acDialog, \"|P00205\"\r\n If Not IsLoaded(\"|P00199\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00254].*, [|T00372].[|F03165], [|T00372].[|F03184], [|T00372].[|F03185], [|T00372].[|F03167] FROM [|T00254] INNER JOIN [|T00372] ON [|T00254].[|F02345] = [|T00372].[|F02345] WHERE (([|T00372].[|F03165]>=Forms![|P00199]![|C02852] And [|T00372].[|F03165]<=Forms![|P00199]![|C02853]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00199\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00199\", , , , , acDialog, \"|P00206\"\r\n If Not IsLoaded(\"|P00199\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 207,
"PaneGroup": 42,
"PaneNumber": 0,
"DatabaseTypeID": 7,
"DocType": 3,
"DocName": "Фонды по типам",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00381].[|F03193], [|T00254].* FROM [|T00381] RIGHT JOIN [|T00254] ON [|T00381].[|F03192] = [|T00254].[|F03192];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 208,
"PaneGroup": 201,
"PaneNumber": 0,
"DatabaseTypeID": 24,
"DocType": 2,
"DocName": "Вкладчики",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00392",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F03240]) Then\r\n DoCmd.GoToControl \"|F03242\"\r\n End If\r\nEnd Sub"
},
{
"PaneID": 209,
"PaneGroup": 202,
"PaneNumber": 0,
"DatabaseTypeID": 13,
"DocType": 3,
"DocName": "Цитаты по авторам",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|F00002] & \", \" & [|F00001] AS [|S00015], [|T00355].[|F03064], [|T00355].[|F03068], [|T00007].[|F00084] FROM [|T00040] RIGHT JOIN ([|T00007] RIGHT JOIN [|T00355] ON [|T00007].[|F00148] = [|T00355].[|F00148]) ON [|T00040].[|F00564] = [|T00355].[|F00564];"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03061]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 213,
"PaneGroup": 205,
"PaneNumber": 0,
"DatabaseTypeID": 18,
"DocType": 2,
"DocName": "Факультеты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00327",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F02921]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 214,
"PaneGroup": 206,
"PaneNumber": 0,
"DatabaseTypeID": 18,
"DocType": 2,
"DocName": "Преподаватели",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00382",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03210]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00327].*, [|T00313].*, [|T00382].* FROM [|T00327] RIGHT JOIN ([|T00382] RIGHT JOIN [|T00313] ON [|T00382].[|F03210] = [|T00313].[|F03210]) ON [|T00327].[|F02921] = [|T00313].[|F02921];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00313].*, [|T00312].*, [|T00384].*, [|T00385].*, [|F00002] & \", \" & [|F00001] AS [|S00017] FROM [|T00384] INNER JOIN (([|T00312] INNER JOIN ([|T00313] INNER JOIN [|T00383] ON [|T00313].[|F02913] = [|T00383].[|F02913]) ON [|T00312].[|F02912] = [|T00383].[|F02912]) INNER JOIN [|T00385] ON [|T00312].[|F02912] = [|T00385].[|F02912]) ON ([|T00313].[|F02913] = [|T00384].[|F02913]) AND ([|T00384].[|F03202] = [|T00385].[|F03202]);",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 224,
"PaneGroup": 211,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Посетители",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00388",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F03219]) Then\r\n DoCmd.GoToControl \"|F03082\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me![|P00241].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 225,
"PaneGroup": 212,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Мероприятия",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00015",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F00156]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 226,
"PaneGroup": 213,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Регистрация",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00386].* FROM [|T00388] INNER JOIN [|T00386] ON [|T00388].[|F03219] = [|T00386].[|F03219] WHERE (([|T00386].[|F03219]=[forms]![|P00224]![|F03219]));",
"Code": "Private Sub Form_AfterInsert()\r\n if Me![|C01907]<=0 then \r\n MsgBox \"|S00786\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Open(Cancel as Integer)\r\n If Not IsLoaded(\"|P00224\") then\r\n msgbox \"|S00251\"\r\n Cancel = True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Current()\r\nOn Error Goto Err_Form_Current\r\n Me![|F03225].Requery\r\n\r\nExit_Form_Current:\r\n Exit Sub\r\n\r\nErr_Form_Current:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Current\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n If IsLoaded(\"|P00224\") then\r\n Me.[|C01912].requery\r\n Me.Requery\r\n If Forms![|P00224]![|P00241].form.recordsetclone.recordcount > 0 Then\r\n DoCmd.GotoControl \"|F03217\"\r\n DoCmd.FindRecord Forms![|P00224]![|P00241].form![|F03217]\r\n End If\r\n End If\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub"
},
{
"PaneID": 227,
"PaneGroup": 214,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Методы оплаты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00343",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03025]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 228,
"PaneGroup": 215,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Оплата",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00193].* FROM [|T00193] WHERE (([|T00193].[|F03217]=[forms]![|P00224]![|P00241].[form]![|F03217]));",
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00224\") then\r\n MsgBox \"|S00250\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub\r\nPrivate Sub Form_BeforeInsert (Cancel As Integer)\r\nOn Error Goto Err_Form_BeforeInsert\r\n Me![|F01176] = Date\r\n Me![|F02271] = [Forms]![|P00224]![|P00241].form![|C01918]\r\n\r\nExit_Form_BeforeInsert:\r\n Exit Sub\r\n\r\nErr_Form_BeforeInsert:\r\n MsgBox Err.Description\r\n Resume Exit_Form_BeforeInsert\r\nEnd Sub"
},
{
"PaneID": 229,
"PaneGroup": 216,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Печать счета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5
},
{
"PaneID": 230,
"PaneGroup": 217,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n Me.caption = Me.openargs\r\nEnd Sub"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03225]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 233,
"PaneGroup": 220,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 3,
"DocName": "Счет",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT [|T00388].*, [|T00386].*, [|T00015].*, [|T00005].* FROM [|T00388] INNER JOIN ([|T00005] RIGHT JOIN ([|T00015] INNER JOIN [|T00386] ON [|T00015].[|F00156] = [|T00386].[|F00156]) ON [|T00005].[|F01122] = [|T00386].[|F01122]) ON [|T00388].[|F03219] = [|T00386].[|F03219];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00229\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00229\", , , , , acDialog\r\n If Not IsLoaded(\"|P00229\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00386].[|F03217], [|T00386].[|F03229], [|T00015].[|F00180], [|T00015].[|F02925], [|T00386].[|F03030], [|Q00002].[|S00006], [|T00386].[|F03219] FROM [|T00015] INNER JOIN ([|T00386] LEFT JOIN [|Q00002] ON [|T00386].[|F03217] = [|Q00002].[|F03217]) ON [|T00015].[|F00156] = [|T00386].[|F00156] ORDER BY [|T00386].[|F03217];",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F01122]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 245,
"PaneGroup": 227,
"PaneNumber": 0,
"DatabaseTypeID": 9,
"DocType": 2,
"DocName": "Типы мероприятий",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00387",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03230]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 246,
"PaneGroup": 228,
"PaneNumber": 0,
"DatabaseTypeID": 21,
"DocType": 2,
"DocName": "Тренировки",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00393",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull([|F03613]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Current()\r\n If IsNull(Me![|F03613]) Then\r\n DoCmd.GoToControl \"|F03245\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me![|P00261].Form.Requery\r\n Me![|P00261].form![|F03248].Requery\r\n Me![|P00261].form![|F03251].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull([|F03248]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 254,
"PaneGroup": 234,
"PaneNumber": 0,
"DatabaseTypeID": 21,
"DocType": 2,
"DocName": "Типы упражнений",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00397",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03255]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 255,
"PaneGroup": 235,
"PaneNumber": 0,
"DatabaseTypeID": 21,
"DocType": 2,
"DocName": "Единицы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00395",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03251]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00396].*, [|T00395].[|F02923], [|T00397].[|F02844] FROM ([|T00395] RIGHT JOIN [|T00396] ON [|T00395].[|F03251] = [|T00396].[|F03251]) LEFT JOIN [|T00397] ON [|T00396].[|F03255] = [|T00397].[|F03255];"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03268]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 263,
"PaneGroup": 242,
"PaneNumber": 0,
"DatabaseTypeID": 5,
"DocType": 2,
"DocName": "Методы оплаты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00343",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03025]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 264,
"PaneGroup": 243,
"PaneNumber": 0,
"DatabaseTypeID": 5,
"DocType": 2,
"DocName": "Оплата",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00193].* FROM [|T00193] WHERE (([|T00193].[|F03262]=[forms]![|P00070]![|P00276].[form]![|F03262]));",
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00070\") then\r\n MsgBox \"|S00261\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub\r\nPrivate Sub Form_BeforeInsert (Cancel As Integer)\r\nOn Error Goto Err_Form_BeforeInsert\r\n Me![|F01176] = Date\r\n Me![|F02271] = [Forms]![|P00070]![|P00276].Form![|C02207]\r\n\r\nExit_Form_BeforeInsert:\r\n Exit Sub\r\n\r\nErr_Form_BeforeInsert:\r\n MsgBox Err.Description\r\n Resume Exit_Form_BeforeInsert\r\nEnd Sub"
},
{
"PaneID": 265,
"PaneGroup": 244,
"PaneNumber": 0,
"DatabaseTypeID": 5,
"DocType": 2,
"DocName": "Печать счета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5
},
{
"PaneID": 266,
"PaneGroup": 245,
"PaneNumber": 0,
"DatabaseTypeID": 5,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n Me.caption = Me.openargs\r\nEnd Sub"
"SQL": "SELECT [|T00192].*, [|T00398].*, [|T00005].[|F00002] & \", \" & [|T00005].[|F00001] AS [|S00013], [|T00192].[|F03102] & \", \" & [|T00192].[|F03101] AS [|S00014] FROM [|T00192] INNER JOIN ([|T00005] RIGHT JOIN [|T00398] ON [|T00005].[|F01122] = [|T00398].[|F01122]) ON [|T00192].[|F01579] = [|T00398].[|F01579] WHERE ((([|T00398].[|F03262])=forms![|P00070].[|P00276].form![|F03262]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00265\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n If Not IsLoaded(\"|P00070\") Then \r\n msgbox \"|S00790\"\r\n Cancel = True\r\n Else\r\n DoCmd.OpenForm \"|P00265\", , , , , acDialog\r\n If Not IsLoaded(\"|P00265\") Then\r\n Cancel = True\r\n End If\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|F00002] & \", \" & [|F00001] AS [|S00013], Sum(CLng((nz([|Q00011].[|S00022])+nz([|Q00012].[|S00023]))*[|F03030]*100)/100) AS [|S00005], Sum([|Q00011].[|S00022]) AS [|S00026], Sum([|Q00012].[|S00023]) AS [|S00025] FROM (([|T00005] RIGHT JOIN [|T00398] ON [|T00005].[|F01122] = [|T00398].[|F01122]) LEFT JOIN [|Q00011] ON [|T00398].[|F03262] = [|Q00011].[|F03262]) LEFT JOIN [|Q00012] ON [|T00398].[|F03262] = [|Q00012].[|F03262] WHERE ((([|T00398].[|F03263])>=Forms![|P00266]![|C02240] And ([|T00398].[|F03263])<=Forms![|P00266]![|C02241])) GROUP BY [|F00002] & \", \" & [|F00001];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00266\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00266\", , , , , acDialog, \"|P00269\"\r\n If Not IsLoaded(\"|P00266\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 270,
"PaneGroup": 249,
"PaneNumber": 0,
"DatabaseTypeID": 5,
"DocType": 3,
"DocName": "Продажи по месяцам",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW (CLng((nz([|Q00011].[|S00022])+nz([|Q00012].[|S00023]))*[|F03030]*100)/100) AS [|S00005], [|Q00011].[|S00022], [|Q00012].[|S00023], [|T00398].[|F03263]\r\nFROM ([|T00398] LEFT JOIN [|Q00011] ON [|T00398].[|F03262] = [|Q00011].[|F03262]) LEFT JOIN [|Q00012] ON [|T00398].[|F03262] = [|Q00012].[|F03262]\r\nWHERE ((([|T00398].[|F03263])>=[forms]![|P00266]![|C02240] And ([|T00398].[|F03263])<=[forms]![|P00266]![|C02241]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00266\"\r\nEnd Sub\r\nSub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00266\", , , , , acDialog, \"|P00270\"\r\n If Not IsLoaded(\"|P00266\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 271,
"PaneGroup": 250,
"PaneNumber": 0,
"DatabaseTypeID": 5,
"DocType": 3,
"DocName": "Завершенные заказы",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00192].[|F03082], [|F03102] & \", \" & [|F03101] AS [|S00014], [|T00192].[|F01558], [|T00398].[|F03262], [|T00398].[|F03263], [|T00398].[|F03264], [|T00398].[|F03610], (CLng((nz([|Q00011].[|S00022])+nz([|Q00012].[|S00023]))*[|F03030]*100)/100)+[|S00022]+[|S00023] AS [|S00036] FROM [|T00192] INNER JOIN (([|T00398] LEFT JOIN [|Q00011] ON [|T00398].[|F03262] = [|Q00011].[|F03262]) LEFT JOIN [|Q00012] ON [|T00398].[|F03262] = [|Q00012].[|F03262]) ON [|T00192].[|F01579] = [|T00398].[|F01579] WHERE (([|T00398].[|F03263] Is Not Null) AND ([|T00398].[|F03265] Is Null));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW Avg((CLng((nz([|Q00011].[|S00022])+nz([|Q00012].[|S00023]))*nz([|F03030])*100)/100)+nz([|S00022])+nz([|S00023])) AS [|S00036] FROM ([|T00398] LEFT JOIN [|Q00011] ON [|T00398].[|F03262] = [|Q00011].[|F03262]) LEFT JOIN [|Q00012] ON [|T00398].[|F03262] = [|Q00012].[|F03262] WHERE (([|T00398].[|F03271]>=[forms]![|P00266]![|S00032] And [|T00398].[|F03271]<=[forms]![|P00266]![|S00033]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00266\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00266\", , , , , acDialog, \"|P00273\"\r\n If Not IsLoaded(\"|P00266\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00398].[|F03262], [|T00398].[|F01579], [|T00398].[|F03271], [|T00398].[|F03030], [|Q00002].[|S00006], [|Q00012].[|S00023], [|Q00011].[|S00022], [|T00398].[|F03263] FROM (([|T00398] LEFT JOIN [|Q00013] ON [|T00398].[|F03262] = [|Q00013].[|F03262]) LEFT JOIN [|Q00012] ON [|T00398].[|F03262] = [|Q00012].[|F03262]) LEFT JOIN [|Q00011] ON [|T00398].[|F03262] = [|Q00011].[|F03262];",
"SQL": "SELECT DISTINCTROW [|T00399].*, [|T00401].[|F03269], [|T00401].[|F03274] FROM [|T00401] INNER JOIN [|T00399] ON [|T00401].[|F03268] = [|T00399].[|F03268];"
},
{
"PaneID": 280,
"PaneGroup": 247,
"PaneNumber": 2,
"DatabaseTypeID": 5,
"DocType": 3,
"DocName": "Счета за ресурсы",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"LinkChildFields": "|F03262",
"LinkMasterFields": "|F03262",
"SQL": "SELECT DISTINCTROW [|T00400].*, [|F00002] & \", \" & [|F00001] AS [|S00034] FROM [|T00400] INNER JOIN [|T00005] ON [|T00400].[|F01122] = [|T00005].[|F01122];"
},
{
"PaneID": 281,
"PaneGroup": 255,
"PaneNumber": 0,
"DatabaseTypeID": 5,
"DocType": 2,
"DocName": "Сотрудники",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00005",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F01122]) Then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"SQL": "SELECT DISTINCTROW [|T00403].* FROM [|T00403] ORDER BY [|T00403].[|F03278];"
},
{
"PaneID": 284,
"PaneGroup": 256,
"PaneNumber": 0,
"DatabaseTypeID": 8,
"DocType": 2,
"DocName": "Заполнение",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Const TIMEALLOCATED = 1\r\nConst TIMEFREE = 0\r\nDim aTimeSlots(143) As Byte\r\nDim dbs As database\r\nDim rstSchedule As recordset\r\nDim rstScheduleDtl As recordset\r\nPrivate Sub Form_Open(Cancel as Integer)\r\nOn Error GoTo Form_Open_Error\r\n If Not IsLoaded(\"|P00014\") then \r\n msgbox \"|S00277\"\r\n Cancel=True\r\n Else\r\n If Not IsNull(Forms![|P00014]![|P00018].Form![|F02977]) Then\r\n Me!OK.Enabled = True\r\n End If\r\n End If\r\n\r\nForm_Open_Exit:\r\n DoCmd.Hourglass False\r\n Exit Sub\r\n\r\nForm_Open_Error:\r\n MsgBox Err.Description\r\n Resume Form_Open_Exit\r\nEnd Sub\r\nPrivate Function isOverlap(intBeginTime As Integer, intEndTime As Integer) As Boolean\r\n Dim intTimeSlot As Integer\r\n For intTimeSlot = intBeginTime To intEndTime - 1\r\n If aTimeSlots(intTimeSlot) = TIMEALLOCATED Then\r\n isOverlap = True\r\n Exit Function\r\n End If\r\n Next intTimeSlot\r\n isOverlap = False\r\nEnd Function\r\n\r\nFunction SkipThisDay(intDow As Integer) As Boolean\r\n SkipThisDay = False\r\n Select Case intDow\r\n Case 1 'Sunday\r\n If Me![|C02410] <> True Then SkipThisDay = True\r\n Case 2 'Monday\r\n If Me![|C02404] <> True Then SkipThisDay = True\r\n Case 3 'Tuesday\r\n If Me![|C02405] <> True Then SkipThisDay = True\r\n Case 4 'Wednesday\r\n If Me![|C02406] <> True Then SkipThisDay = True\r\n Case 5 'Thursday\r\n If Me![|C02407] <> True Then SkipThisDay = True\r\n Case 6 'Friday\r\n If Me![|C02408] <> True Then SkipThisDay = True\r\n Case 7 'Saturday\r\n If Me![|C02409] <> True Then SkipThisDay = True\r\n End Select\r\nEnd Function\r\n\r\nFunction isPreviousRecs(lngResourceId As Long, dblCurrentDate As Date) As Boolean 'checks for previous recs and loads them into aTimeSlots array\r\n Dim qdf As QueryDef\r\n Dim rstTimes As recordset\r\n Dim intTimeSlot As Integer\r\n Dim intBeginTime As Integer\r\n Dim intEndTime As Integer\r\n\r\n Set qdf = dbs.QueryDefs(\"|Q00018\")\r\n qdf![|S00032] = dblCurrentDate - 1\r\n qdf![|S00033] = dblCurrentDate + 1\r\n qdf![|S00237] = lngResourceId\r\n Set rstTimes = qdf.openrecordset\r\n \r\n If rstTimes.RecordCount = 0 Then\r\n isPreviousRecs = False\r\n Exit Function\r\n End If\r\n \r\n 'initialize atimeSlots\r\n For intTimeSlot = 0 To 143\r\n aTimeSlots(intTimeSlot) = TIMEFREE\r\n Next intTimeSlot\r\n \r\n Do While Not rstTimes.EOF\r\n If rstTimes![|F03276] < dblCurrentDate Then\r\n intBeginTime = Hour(rstTimes![|F03278]) * 2\r\n ElseIf rstTimes![|F03276] = dblCurrentDate Then\r\n intBeginTime = (Hour(rstTimes![|F03278]) * 2) + 48\r\n Else\r\n intBeginTime = (Hour(rstTimes![|F03278]) * 2) + 96\r\n End If\r\n If Minute(rstTimes![|F03278]) = 30 Then\r\n intBeginTime = intBeginTime + 1\r\n End If\r\n \r\n If rstTimes![|F03276] < dblCurrentDate Then\r\n intEndTime = Hour(rstTimes![|F03279]) * 2\r\n ElseIf rstTimes![|F03276] = dblCurrentDate Then\r\n intEndTime = (Hour(rstTimes![|F03279]) * 2) + 48\r\n Else\r\n intEndTime = (Hour(rstTimes![|F03279]) * 2) + 96\r\n End If\r\n If Minute(rstTimes![|F03279]) = 30 Then\r\n intEndTime = intEndTime + 1\r\n End If\r\n If intEndTime <= intBeginTime Then 'endtime occurs the following day\r\n intEndTime = intEndTime + 48\r\n if intEndTime > 143 then\r\n intEndTime=143\r\n End If \r\n End If\r\n For intTimeSlot = intBeginTime To intEndTime - 1 'mark the times as booked\r\n aTimeSlots(intTimeSlot) = TIMEALLOCATED\r\n Next intTimeSlot\r\n rstTimes.movenext\r\n Loop\r\n\r\n isPreviousRecs = True\r\n rstTimes.Close\r\nEnd Function"
},
{
"PaneID": 285,
"PaneGroup": 257,
"PaneNumber": 0,
"DatabaseTypeID": 8,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5
},
{
"PaneID": 286,
"PaneGroup": 258,
"PaneNumber": 0,
"DatabaseTypeID": 8,
"DocType": 2,
"DocName": "Типы ресурсов",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00404",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03275]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 287,
"PaneGroup": 259,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Партнеры",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00405",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F03281]) Then\r\n DoCmd.GoToControl \"|F03101\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me![|P00309].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 288,
"PaneGroup": 260,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Проекты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00307].* FROM [|T00307] WHERE (([|T00307].[|F03281]=[forms]![|T00405]![|F03281]));",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F02862]) Then\r\n DoCmd.GoToControl \"|F02302\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00287\") then \r\n msgbox \"|S00252\"\r\n Cancel=True\r\n Endif\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n if isloaded(\"|P00287\") then\r\n If Forms![|P00287]![|P00309].form.recordsetclone.recordcount>0 then\r\n DoCmd.GotoControl \"|F02862\"\r\n DoCmd.FindRecord Forms![|P00287]![|P00309].form![|F02862]\r\n DoCmd.GotoControl \"|F02302\"\r\n End If\r\n End if\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub\r\nPrivate Sub Form_BeforeInsert (Cancel As Integer)\r\nOn Error Goto Err_Form_BeforeInsert\r\n Me![|F03281] = forms![|T00405]![|F03281]\r\n\r\nExit_Form_BeforeInsert:\r\n Exit Sub\r\n\r\nErr_Form_BeforeInsert:\r\n MsgBox Err.Description\r\n Resume Exit_Form_BeforeInsert\r\nEnd Sub\r\nPrivate Sub Form_Load ()\r\n If Me.openargs = \"GotoNew\" And Not IsNull([|F02862]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 289,
"PaneGroup": 261,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Печать счета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00287\") then\r\n MsgBox \"|S00330\"\r\n Cancel=True\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 290,
"PaneGroup": 262,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Наряды на работы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00410",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F03289]) Then\r\n DoCmd.GoToControl \"|F01122\"\r\n End If\r\nEnd Sub\r\n\r\nPrivate Sub Form_Activate()\r\nOn Error GoTo Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me![|P00314].form![|F02862].Requery\r\n Me![|P00315].form![|F02862].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub"
},
{
"PaneID": 291,
"PaneGroup": 263,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Сотрудники",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00005",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F01122]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 292,
"PaneGroup": 264,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Статьи расходов",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00408",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03293]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 293,
"PaneGroup": 265,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Методы оплаты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00343",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03025]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 294,
"PaneGroup": 266,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 2,
"DocName": "Оплата",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00193].* FROM [|T00193] WHERE (([|T00193].[|F02862]=[forms]![|P00287]![|P00309].[form]![|F02862]));",
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00287\") then\r\n MsgBox \"|S00262\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub\r\nPrivate Sub Form_BeforeInsert (Cancel As Integer)\r\nOn Error Goto Err_Form_BeforeInsert\r\n Me![|F01176] = Date\r\n Me![|F02271] = [Forms]![|P00287]![|P00309].form![|C02453]\r\n\r\nExit_Form_BeforeInsert:\r\n Exit Sub\r\n\r\nErr_Form_BeforeInsert:\r\n MsgBox Err.Description\r\n Resume Exit_Form_BeforeInsert\r\nEnd Sub"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03295]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 298,
"PaneGroup": 270,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 3,
"DocName": "Счет",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00307].*, [|T00405].*, [|T00005].[|F00002] & \", \" & [|T00005].[|F00001] AS [|S00041] FROM [|T00005] RIGHT JOIN ([|T00405] INNER JOIN [|T00307] ON [|T00405].[|F03281] = [|T00307].[|F03281]) ON [|T00005].[|F01122] = [|T00307].[|F01122];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n forms![|P00289].visible = True\r\nEnd Sub\r\nPrivate Sub Report_Open(Cancel As Integer)\r\nOn Error Goto Err_Report_Open_Click\r\n if not isloaded(\"|P00289\") then \r\n msgbox \"|S00253\"\r\n Cancel=True\r\n End If\r\n\r\nExit_Report_Open_Click:\r\n Exit Sub\r\n\r\nErr_Report_Open_Click:\r\n MsgBox Err.Description\r\n Resume Exit_Report_Open_Click\r\nEnd Sub"
},
{
"PaneID": 300,
"PaneGroup": 272,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 3,
"DocName": "Наряд на работу",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00410].[|F03289], [|T00410].[|F03195], [|F00002] & \", \" & [|F00001] AS [|S00013] FROM [|T00005] INNER JOIN [|T00410] ON [|T00005].[|F01122] = [|T00410].[|F01122];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 301,
"PaneGroup": 273,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 3,
"DocName": "Счета по проекту",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00405].[|F03082], [|T00307].[|F02302], Sum([|T00409].[|F02304]) AS [|S00042], Sum([|F02304]*[|F03273]) AS [|S00043], [|Q00015].[|S00037] FROM (([|T00405] LEFT JOIN [|T00307] ON [|T00405].[|F03281] = [|T00307].[|F03281]) LEFT JOIN [|T00409] ON [|T00307].[|F02862] = [|T00409].[|F02862]) LEFT JOIN [|Q00015] ON [|T00307].[|F02862] = [|Q00015].[|F02862] WHERE (([|T00409].[|F03298]>=[forms]![|P00295]![|C02559] And [|T00409].[|F03298]<=[forms]![|P00295]![|C02560])) GROUP BY [|T00405].[|F03082], [|T00307].[|F02302], [|Q00015].[|S00037];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00295\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00295\", , , , , acDialog, \"|P00301\"\r\n If Not IsLoaded(\"|P00295\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 302,
"PaneGroup": 274,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 3,
"DocName": "Список клиентов",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00405",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub"
},
{
"PaneID": 303,
"PaneGroup": 275,
"PaneNumber": 0,
"DatabaseTypeID": 20,
"DocType": 3,
"DocName": "Оплата по проекту",
"PaneContent": 0,
"TargetDevice": 2,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00405].[|F03082], [|T00307].[|F02302], [|F00002] & \", \" & [|F00001] AS [|S00013], Sum([|T00409].[|F02304]) AS [|S00042], Sum([|F02304]*[|T00409].[|F03273]) AS [|S00043], [|Q00015].[|S00037] FROM [|T00005] INNER JOIN ([|T00410] INNER JOIN ((([|T00405] INNER JOIN [|T00307] ON [|T00405].[|F03281] = [|T00307].[|F03281]) LEFT JOIN [|Q00015] ON [|T00307].[|F02862] = [|Q00015].[|F02862]) INNER JOIN [|T00409] ON [|T00307].[|F02862] = [|T00409].[|F02862]) ON [|T00410].[|F03289] = [|T00409].[|F03289]) ON [|T00005].[|F01122] = [|T00410].[|F01122] WHERE (([|T00409].[|F03298]>=[forms]![|P00295]![|C02559] And [|T00409].[|F03298]<=[forms]![|P00295]![|C02560])) GROUP BY [|T00405].[|F03082], [|T00307].[|F02302], [|F00002] & \", \" & [|F00001], [|Q00015].[|S00037];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00295\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00295\", , , , , acDialog, \"|P00303\"\r\n If Not IsLoaded(\"|P00295\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00405].[|F03082], [|T00307].[|F02302], [|T00407].[|F03296], Sum([|T00409].[|F02304]) AS [|S00042], Sum([|F02304]*[|F03273]) AS [|S00043], [|Q00015].[|S00037] FROM [|T00407] RIGHT JOIN ((([|T00405] LEFT JOIN [|T00307] ON [|T00405].[|F03281] = [|T00307].[|F03281]) LEFT JOIN [|Q00015] ON [|T00307].[|F02862] = [|Q00015].[|F02862]) LEFT JOIN [|T00409] ON [|T00307].[|F02862] = [|T00409].[|F02862]) ON [|T00407].[|F03295] = [|T00409].[|F03295] WHERE (([|T00409].[|F03298]>=[forms]![|P00295]![|C02559] And [|T00409].[|F03298]<=[forms]![|P00295]![|C02560])) GROUP BY [|T00405].[|F03082], [|T00307].[|F02302], [|T00407].[|F03296], [|Q00015].[|S00037];",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00295\"\r\nEnd Sub\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00295\", , , , , acDialog, \"|P00306\"\r\n If Not IsLoaded(\"|P00295\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|Q00017].[|S00006], [|T00307].[|F03281], [|T00307].[|F02862], [|T00307].[|F02302], [|Q00016].[|S00038], [|Q00016].[|S00040], [|Q00014].[|S00037] FROM (([|Q00017] RIGHT JOIN [|T00307] ON [|Q00017].[|F02862] = [|T00307].[|F02862]) LEFT JOIN [|Q00016] ON [|T00307].[|F02862] = [|Q00016].[|F02862]) LEFT JOIN [|Q00014] ON [|T00307].[|F02862] = [|Q00014].[|F02862] ORDER BY [|T00307].[|F02302];",
"SQL": "SELECT DISTINCTROW [|T00409].*, [|T00409].[|F03273]*[|F02304] AS [|S00044], [|F00002] & \", \" & [|F00001] AS [|S00013], [|T00407].[|F03296] FROM [|T00005] INNER JOIN ([|T00410] INNER JOIN ([|T00409] INNER JOIN [|T00407] ON [|T00409].[|F03295] = [|T00407].[|F03295]) ON [|T00410].[|F03289] = [|T00409].[|F03289]) ON [|T00005].[|F01122] = [|T00410].[|F01122] WHERE (([|T00409].[|F03298]>=[forms]![|P00289]![|C02491] And [|T00409].[|F03298]<=[forms]![|P00289]![|C02492]) And ([|T00409].[|F02862]=[forms]![|P00289]![|C02485]));"
"SQL": "SELECT DISTINCTROW [|T00407].[|F03296], [|T00409].[|F03273], Sum([|T00409].[|F02304]) AS [|F02304], Sum([|T00409].[|F03273]*[|T00409].[|F02304]) AS [|S00044]\r\nFROM [|T00410] INNER JOIN ([|T00409] INNER JOIN [|T00407] ON [|T00409].[|F03295] = [|T00407].[|F03295]) ON [|T00410].[|F03289] = [|T00409].[|F03289]\r\nWHERE ((([|T00409].[|F03298])>=[forms]![|P00289]![|C02491] And ([|T00409].[|F03298])<=[forms]![|P00289]![|C02492]) AND (([|T00409].[|F02862])=[forms]![|P00289]![|C02485]))\r\nGROUP BY [|T00407].[|F03296], [|T00409].[|F03273];"
"SQL": "SELECT DISTINCTROW [|T00408].[|F03294], Sum([|T00406].[|F03292]) AS [|F03292]\r\nFROM [|T00410] INNER JOIN ([|T00406] INNER JOIN [|T00408] ON [|T00406].[|F03293] = [|T00408].[|F03293]) ON [|T00410].[|F03289] = [|T00406].[|F03289]\r\nWHERE ((([|T00406].[|F02996])>=[forms]![|P00289]![|C02491] And ([|T00406].[|F02996])<=[forms]![|P00289]![|C02492]) AND (([|T00406].[|F02862])=[forms]![|P00289]![|C02485]))\r\nGROUP BY [|T00408].[|F03294];"
"SQL": "SELECT DISTINCTROW [|T00406].*, [|T00408].[|F03294], [|T00307].[|F02302] FROM ([|T00410] INNER JOIN ([|T00406] LEFT JOIN [|T00408] ON [|T00406].[|F03293] = [|T00408].[|F03293]) ON [|T00410].[|F03289] = [|T00406].[|F03289]) INNER JOIN [|T00307] ON [|T00406].[|F02862] = [|T00307].[|F02862];"
},
{
"PaneID": 322,
"PaneGroup": 280,
"PaneNumber": 0,
"DatabaseTypeID": 11,
"DocType": 2,
"DocName": "Товары",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00228",
"Code": "Private Sub Form_Current()\r\n if isnull(me![|F01581]) then\r\n docmd.gotocontrol \"|F02126\"\r\n End if\r\nEnd Sub\r\n\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me![|P00331].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n if err<>2279 then\r\n MsgBox Err.Description\r\n end if\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 323,
"PaneGroup": 281,
"PaneNumber": 0,
"DatabaseTypeID": 11,
"DocType": 2,
"DocName": "Заказы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00412",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F03301]) Then\r\n DoCmd.GoToControl \"|F03046\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me![|P00332].form![|F01581].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 324,
"PaneGroup": 282,
"PaneNumber": 0,
"DatabaseTypeID": 11,
"DocType": 2,
"DocName": "Сотрудники",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00005",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull([|F01122]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 325,
"PaneGroup": 283,
"PaneNumber": 0,
"DatabaseTypeID": 11,
"DocType": 2,
"DocName": "Поставщики",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00017",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull([|F00338]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 326,
"PaneGroup": 284,
"PaneNumber": 0,
"DatabaseTypeID": 11,
"DocType": 2,
"DocName": "Типы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00261",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull([|F02796]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull([|F03027]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
},
{
"PaneID": 329,
"PaneGroup": 287,
"PaneNumber": 0,
"DatabaseTypeID": 11,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n Me.caption = Me.openargs\r\nEnd Sub"
"Code": "Private Sub >>|S00108<<()\r\nOn Error Goto Err_>>|S00108<<\r\n If IsNull(forms![|P00322]![|F01581]) Then\r\n MsgBox \"|S00129\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70\r\n DoCmd.OpenForm \"|P00323\"\r\n If Me![|F03301]>0 Then\r\n DoCmd.GotoControl \"|F03301\"\r\n DoCmd.FindRecord Me![|F03301]\r\n Else\r\n If not isnull(Forms![|P00323]![|F03301]) then \r\n DoCmd.DoMenuItem acFormBar,3,0,,acMenuVer70\r\n End If\r\n End If\r\n End If\r\n\r\nExit_>>|S00108<<:\r\n Exit Sub\r\n\r\nErr_>>|S00108<<:\r\n MsgBox Err.Description\r\n Resume Exit_>>|S00108<<\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00228].[|F01581], [|T00228].[|F02126], [|T00228].[|F02153], [|T00228].[|F03307], Sum(nz([|F03303])-nz([|F03304])-nz([|F03305])) AS [|S00093], Sum(nz([|F03302])-nz([|F03303])) AS [|S00094] FROM [|T00228] INNER JOIN [|T00411] ON [|T00228].[|F01581] = [|T00411].[|F01581] GROUP BY [|T00228].[|F01581], [|T00228].[|F02126], [|T00228].[|F02153], [|T00228].[|F03307];"
"SQL": "SELECT DISTINCTROW [|T00228].[|F02126], [|T00411].*\r\nFROM [|T00228] INNER JOIN [|T00411] ON [|T00228].[|F01581] = [|T00411].[|F01581] WHERE ((([|T00411].[|F02369])>=[forms]![|P00329]![|C02725]) And (([|T00411].[|F02369])<=[forms]![|P00329]![|C02726]));",
"Code": "Private Sub Report_Close()\r\n DoCmd.Close acForm, \"|P00329\"\r\nEnd Sub\r\n\r\nPrivate Sub Report_Open (Cancel As Integer)\r\n DoCmd.OpenForm \"|P00329\", , , , , acDialog, \"|P00335\"\r\n If Not IsLoaded(\"|P00329\") Then\r\n Cancel = True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 336,
"PaneGroup": 292,
"PaneNumber": 0,
"DatabaseTypeID": 11,
"DocType": 3,
"DocName": "Заказ",
"PaneContent": 0,
"TargetDevice": 1,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00005].*, [|T00228].*, [|T00411].*, [|T00412].*, [|T00017].*, nz([|T00411].[|F02149])*nz([|F03302]) AS [|S00095], [|T00346].[|F03029] FROM [|T00017] INNER JOIN ([|T00228] INNER JOIN ([|T00346] RIGHT JOIN ([|T00411] INNER JOIN ([|T00005] RIGHT JOIN [|T00412] ON [|T00005].[|F01122] = [|T00412].[|F01122]) ON [|T00411].[|F03301] = [|T00412].[|F03301]) ON [|T00346].[|F03027] = [|T00412].[|F03027]) ON [|T00228].[|F01581] = [|T00411].[|F01581]) ON [|T00017].[|F00338] = [|T00412].[|F00338] WHERE ((([|T00412].[|F03301])=[forms]![|P00323]![|F03301]));",
"Code": "Private Sub Report_NoData(Cancel As Integer)\r\n MsgBox \"|S00773\"\r\n Cancel = -1\r\nEnd Sub\r\nPrivate Sub Report_Open(Cancel As Integer)\r\n If Not IsLoaded(\"|P00323\") then\r\n MsgBox \"|S00746\"\r\n Cancel=True\r\n End If\r\nEnd Sub"
},
{
"PaneID": 338,
"PaneGroup": 294,
"PaneNumber": 0,
"DatabaseTypeID": 23,
"DocType": 2,
"DocName": "Актеры",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00482",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F00080]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub",
"PageHeight": 4660
},
{
"PaneID": 339,
"PaneGroup": 295,
"PaneNumber": 0,
"DatabaseTypeID": 23,
"DocType": 2,
"DocName": "Видеоленты",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 1,
"NumProps": 0,
"SQL": "|T00479",
"Code": "Private Sub Form_Current()\r\n If IsNull(Me![|F03589]) Then\r\n DoCmd.GoToControl \"|F01004\"\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error GoTo Err_Form_Activate\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me![|P00343].Requery\r\n Me![|P00343].form![|F03590].Requery\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub",
"SQL": "SELECT DISTINCTROW [|T00478].*, [|T00481].[|F03598] FROM [|T00481] RIGHT JOIN [|T00478] ON [|T00481].[|F03590] = [|T00478].[|F03590];"
},
{
"PaneID": 345,
"PaneGroup": 299,
"PaneNumber": 0,
"DatabaseTypeID": 23,
"DocType": 2,
"DocName": "Видеопрограммы",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 1,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "SELECT DISTINCTROW [|T00478].* FROM [|T00478] WHERE (([|T00478].[|F03589]=[forms]![|P00339]![|F03589]));",
"Code": "Private Sub Form_Open(Cancel as Integer)\r\n If Not IsLoaded(\"|P00339\") then \r\n msgbox \"|S00791\"\r\n Cancel=True\r\n End If\r\nEnd Sub\r\nPrivate Sub Form_Activate()\r\nOn Error Goto Err_Form_Activate\r\n Me.Requery\r\n Me.[|F03590].requery\r\n If IsLoaded(\"|P00339\") Then\r\n If Not IsNull(Forms![|P00339]![|P00343].Form![|F03586]) Then\r\n DoCmd.GotoControl \"|F03586\"\r\n DoCmd.FindRecord Forms![|P00339]![|P00343].form![|F03586]\r\n Else\r\n If Forms![|P00339]![|P00343].form.recordsetclone.recordcount>0 then\r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\n End If\r\n End If\r\n\r\nExit_Form_Activate:\r\n Exit Sub\r\n\r\nErr_Form_Activate:\r\n MsgBox Err.Description\r\n Resume Exit_Form_Activate\r\nEnd Sub"
},
{
"PaneID": 346,
"PaneGroup": 300,
"PaneNumber": 0,
"DatabaseTypeID": 23,
"DocType": 2,
"DocName": "Типы программ",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 0,
"OnFirstSwitchboardPage": 0,
"NumProps": 0,
"SQL": "|T00481",
"Code": "Private Sub Form_Load()\r\n If Me.openargs = \"GotoNew\" And Not IsNull(Me![|F03590]) Then \r\n DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70\r\n End If\r\nEnd Sub"
"SQL": "SELECT DISTINCTROW [|T00482].*, [|T00478].[|F03586], [|T00478].[|F03587] FROM [|T00482] LEFT JOIN ([|T00478] RIGHT JOIN [|T00483] ON [|T00478].[|F03586] = [|T00483].[|F03586]) ON [|T00482].[|F00080] = [|T00483].[|F00080];"
},
{
"PaneID": 349,
"PaneGroup": 302,
"PaneNumber": 0,
"DatabaseTypeID": 22,
"DocType": 2,
"DocName": "Период отчета",
"PaneContent": 1,
"TargetDevice": 0,
"FitToPage": 0,
"ReqTblID": 0,
"NoSwitchboardItem": 1,
"OnFirstSwitchboardPage": 0,
"NumProps": 5,
"Code": "Private Sub Form_Open(Cancel As Integer)\r\n Me.caption = Forms![|P00154].openargs\r\nEnd Sub"