00001: VERSION 5.00 00002: Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX" 00003: Object = "{39F22C0A-9929-11D7-B245-0050228AFF80}#12.0#0"; "SPctlib_SQL.ocx" 00004: Begin VB.Form SY_MGRegister 00005: Caption = "SY_MGRegister" 00006: ClientHeight = 8385 00007: ClientLeft = 45 00008: ClientTop = 330 00009: ClientWidth = 12765 00010: Icon = "SY_MGRegister.frx":0000 00011: LinkTopic = "Form1" 00012: LockControls = -1 'True 00013: MaxButton = 0 'False 00014: MDIChild = -1 'True 00015: MinButton = 0 'False 00016: ScaleHeight = 8385 00017: ScaleWidth = 12765 00018: Begin VB.CheckBox btSpread 00019: BeginProperty Font 00020: Name = "Small Fonts" 00021: Size = 3.75 00022: Charset = 204 00023: Weight = 400 00024: Underline = 0 'False 00025: Italic = 0 'False 00026: Strikethrough = 0 'False 00027: EndProperty 00028: Height = 132 00029: Left = 10800 00030: Style = 1 'Graphical 00031: TabIndex = 1 00032: TabStop = 0 'False 00033: Top = 0 00034: Value = 1 'Checked 00035: Width = 372 00036: End 00037: Begin VB.CommandButton btCancel 00038: Caption = "Закрыть" 00039: BeginProperty Font 00040: Name = "MS Sans Serif" 00041: Size = 8.25 00042: Charset = 204 00043: Weight = 700 00044: Underline = 0 'False 00045: Italic = 0 'False 00046: Strikethrough = 0 'False 00047: EndProperty 00048: Height = 285 00049: Left = 10080 00050: MaskColor = &H00FF00FF& 00051: Style = 1 'Graphical 00052: TabIndex = 0 00053: Top = 7920 00054: UseMaskColor = -1 'True 00055: Width = 1035 00056: End 00057: Begin TabDlg.SSTab SSTab 00058: Height = 7575 00059: Left = 0 00060: TabIndex = 2 00061: Top = 120 00062: Width = 12105 00063: _ExtentX = 21352 00064: _ExtentY = 13361 00065: _Version = 393216 00066: TabOrientation = 1 00067: Style = 1 00068: Tabs = 6 00069: TabsPerRow = 8 00070: TabHeight = 520 00071: TabMaxWidth = 3175 00072: BackColor = -2147483637 00073: ForeColor = 8388608 00074: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 00075: Name = "MS Sans Serif" 00076: Size = 9.75 00077: Charset = 204 00078: Weight = 700 00079: Underline = 0 'False 00080: Italic = 0 'False 00081: Strikethrough = 0 'False 00082: EndProperty 00083: TabCaption(0) = "История" 00084: TabPicture(0) = "SY_MGRegister.frx":014A 00085: Tab(0).ControlEnabled= -1 'True 00086: Tab(0).Control(0)= "frTab0" 00087: Tab(0).Control(0).Enabled= 0 'False 00088: Tab(0).ControlCount= 1 00089: TabCaption(1) = "Полученные задачи" 00090: TabPicture(1) = "SY_MGRegister.frx":0166 00091: Tab(1).ControlEnabled= 0 'False 00092: Tab(1).Control(0)= "frTab1" 00093: Tab(1).ControlCount= 1 00094: TabCaption(2) = "Поставленные задачи" 00095: TabPicture(2) = "SY_MGRegister.frx":0182 00096: Tab(2).ControlEnabled= 0 'False 00097: Tab(2).Control(0)= "frTab2" 00098: Tab(2).ControlCount= 1 00099: TabCaption(3) = "Неполученные сообщения" 00100: TabPicture(3) = "SY_MGRegister.frx":019E 00101: Tab(3).ControlEnabled= 0 'False 00102: Tab(3).Control(0)= "FrTab3" 00103: Tab(3).ControlCount= 1 00104: TabCaption(4) = "Неподтвержденные" 00105: TabPicture(4) = "SY_MGRegister.frx":01BA 00106: Tab(4).ControlEnabled= 0 'False 00107: Tab(4).Control(0)= "frTab4" 00108: Tab(4).ControlCount= 1 00109: TabCaption(5) = "По заказу" 00110: TabPicture(5) = "SY_MGRegister.frx":01D6 00111: Tab(5).ControlEnabled= 0 'False 00112: Tab(5).Control(0)= "frTab5" 00113: Tab(5).ControlCount= 1 00114: Begin VB.Frame frTab5 00115: BorderStyle = 0 'None 00116: Caption = "Frame1" 00117: Height = 6975 00118: Left = -74880 00119: TabIndex = 100 00120: Top = 120 00121: Width = 12015 00122: Begin SVA.SY_MGZakaz SY_MGZakaz1 00123: Height = 375 00124: Left = 240 00125: TabIndex = 116 00126: Top = 1080 00127: Width = 2775 00128: _ExtentX = 4895 00129: _ExtentY = 661 00130: End 00131: Begin VB.CheckBox chSort5 00132: Caption = "обр." 00133: ForeColor = &H8000000D& 00134: Height = 255 00135: Left = 2400 00136: TabIndex = 114 00137: Top = 360 00138: Value = 1 'Checked 00139: Width = 615 00140: End 00141: Begin VB.ComboBox cbSort5 00142: Height = 315 00143: Left = 240 00144: Style = 2 'Dropdown List 00145: TabIndex = 113 00146: Top = 600 00147: Width = 2655 00148: End 00149: Begin VB.Frame frToList5 00150: Height = 2040 00151: Left = 8880 00152: TabIndex = 104 00153: Top = 2400 00154: Width = 285 00155: Begin VB.CommandButton btSelectionCopy5 00156: Height = 255 00157: Left = 0 00158: MaskColor = &H00FF00FF& 00159: Picture = "SY_MGRegister.frx":01F2 00160: Style = 1 'Graphical 00161: TabIndex = 111 00162: ToolTipText = "Скопировать выделение" 00163: Top = 1785 00164: UseMaskColor = -1 'True 00165: Width = 270 00166: End 00167: Begin VB.CommandButton btSaveCols5 00168: Height = 255 00169: Left = 0 00170: MaskColor = &H00FF00FF& 00171: Picture = "SY_MGRegister.frx":02F4 00172: Style = 1 'Graphical 00173: TabIndex = 110 00174: ToolTipText = "Сохранить расположение и ширину столбцов" 00175: Top = 510 00176: UseMaskColor = -1 'True 00177: Width = 270 00178: End 00179: Begin VB.CommandButton btStepRight5 00180: Height = 255 00181: Left = 0 00182: MaskColor = &H00FF00FF& 00183: Picture = "SY_MGRegister.frx":03F6 00184: Style = 1 'Graphical 00185: TabIndex = 109 00186: ToolTipText = "Сдвинуть столбец вправо" 00187: Top = 255 00188: UseMaskColor = -1 'True 00189: Width = 270 00190: End 00191: Begin VB.CommandButton btStepLeft5 00192: Height = 255 00193: Left = 0 00194: MaskColor = &H00FF00FF& 00195: Picture = "SY_MGRegister.frx":04F8 00196: Style = 1 'Graphical 00197: TabIndex = 108 00198: ToolTipText = "Сдвинуть столбец влево" 00199: Top = 0 00200: UseMaskColor = -1 'True 00201: Width = 270 00202: End 00203: Begin VB.CommandButton btFindAgain5 00204: Enabled = 0 'False 00205: Height = 255 00206: Left = 0 00207: MaskColor = &H00FF00FF& 00208: Picture = "SY_MGRegister.frx":05FA 00209: Style = 1 'Graphical 00210: TabIndex = 107 00211: ToolTipText = "Поиск далее" 00212: Top = 1530 00213: UseMaskColor = -1 'True 00214: Width = 270 00215: End 00216: Begin VB.CommandButton btFind5 00217: Height = 255 00218: Left = 0 00219: MaskColor = &H00FF00FF& 00220: Picture = "SY_MGRegister.frx":06FC 00221: Style = 1 'Graphical 00222: TabIndex = 106 00223: ToolTipText = "Поиск" 00224: Top = 1275 00225: UseMaskColor = -1 'True 00226: Width = 270 00227: End 00228: Begin VB.CommandButton btRefresh5 00229: Height = 255 00230: Left = 0 00231: MaskColor = &H00FF00FF& 00232: Picture = "SY_MGRegister.frx":07FE 00233: Style = 1 'Graphical 00234: TabIndex = 105 00235: ToolTipText = "Обновить" 00236: Top = 765 00237: UseMaskColor = -1 'True 00238: Width = 270 00239: End 00240: Begin SPctlib.CheckBoxST btDisableRefresh5 00241: Height = 255 00242: Left = 0 00243: TabIndex = 112 00244: Top = 1020 00245: Width = 270 00246: _ExtentX = 476 00247: _ExtentY = 450 00248: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 00249: Name = "MS Sans Serif" 00250: Size = 8.25 00251: Charset = 204 00252: Weight = 400 00253: Underline = 0 'False 00254: Italic = 0 'False 00255: Strikethrough = 0 'False 00256: EndProperty 00257: Caption = "" 00258: DownPicture = "SY_MGRegister.frx":0900 00259: MaskColor = 16711935 00260: Picture = "SY_MGRegister.frx":0A12 00261: UseMaskColor = -1 'True 00262: ToolTip = "Запретить обновление" 00263: Style = 1 00264: End 00265: End 00266: Begin VB.CommandButton btToList5 00267: Enabled = 0 'False 00268: Height = 2295 00269: Left = 8880 00270: TabIndex = 102 00271: Top = 0 00272: Width = 270 00273: End 00274: Begin SPctlib.FlexGridST lsST55 00275: Height = 5175 00276: Left = 3600 00277: TabIndex = 103 00278: Top = 120 00279: Width = 4215 00280: _ExtentX = 7435 00281: _ExtentY = 9128 00282: Mode = 2 00283: DisableDblClkRefresh= -1 'True 00284: End 00285: Begin VB.Label Label12 00286: Caption = "Сортировать" 00287: DataField = "Счет" 00288: ForeColor = &H8000000D& 00289: Height = 255 00290: Left = 240 00291: TabIndex = 115 00292: Top = 360 00293: Width = 1455 00294: End 00295: Begin VB.Label Control55 00296: BorderStyle = 1 'Fixed Single 00297: Height = 5295 00298: Left = 0 00299: TabIndex = 101 00300: Top = 120 00301: Width = 3255 00302: End 00303: End 00304: Begin VB.Frame frTab4 00305: BorderStyle = 0 'None 00306: Caption = "Frame1" 00307: Height = 6855 00308: Left = -74880 00309: TabIndex = 83 00310: Top = 120 00311: Width = 11295 00312: Begin VB.Frame frToList4 00313: Height = 2040 00314: Left = 9120 00315: TabIndex = 91 00316: Top = 2640 00317: Width = 285 00318: Begin VB.CommandButton btRefresh4 00319: Height = 255 00320: Left = 0 00321: MaskColor = &H00FF00FF& 00322: Picture = "SY_MGRegister.frx":0B24 00323: Style = 1 'Graphical 00324: TabIndex = 98 00325: ToolTipText = "Обновить" 00326: Top = 765 00327: UseMaskColor = -1 'True 00328: Width = 270 00329: End 00330: Begin VB.CommandButton btFind4 00331: Height = 255 00332: Left = 0 00333: MaskColor = &H00FF00FF& 00334: Picture = "SY_MGRegister.frx":0C26 00335: Style = 1 'Graphical 00336: TabIndex = 97 00337: ToolTipText = "Поиск" 00338: Top = 1275 00339: UseMaskColor = -1 'True 00340: Width = 270 00341: End 00342: Begin VB.CommandButton btFindAgain4 00343: Enabled = 0 'False 00344: Height = 255 00345: Left = 0 00346: MaskColor = &H00FF00FF& 00347: Picture = "SY_MGRegister.frx":0D28 00348: Style = 1 'Graphical 00349: TabIndex = 96 00350: ToolTipText = "Поиск далее" 00351: Top = 1530 00352: UseMaskColor = -1 'True 00353: Width = 270 00354: End 00355: Begin VB.CommandButton btStepLeft4 00356: Height = 255 00357: Left = 0 00358: MaskColor = &H00FF00FF& 00359: Picture = "SY_MGRegister.frx":0E2A 00360: Style = 1 'Graphical 00361: TabIndex = 95 00362: ToolTipText = "Сдвинуть столбец влево" 00363: Top = 0 00364: UseMaskColor = -1 'True 00365: Width = 270 00366: End 00367: Begin VB.CommandButton btStepRight4 00368: Height = 255 00369: Left = 0 00370: MaskColor = &H00FF00FF& 00371: Picture = "SY_MGRegister.frx":0F2C 00372: Style = 1 'Graphical 00373: TabIndex = 94 00374: ToolTipText = "Сдвинуть столбец вправо" 00375: Top = 255 00376: UseMaskColor = -1 'True 00377: Width = 270 00378: End 00379: Begin VB.CommandButton btSaveCols4 00380: Height = 255 00381: Left = 0 00382: MaskColor = &H00FF00FF& 00383: Picture = "SY_MGRegister.frx":102E 00384: Style = 1 'Graphical 00385: TabIndex = 93 00386: ToolTipText = "Сохранить расположение и ширину столбцов" 00387: Top = 510 00388: UseMaskColor = -1 'True 00389: Width = 270 00390: End 00391: Begin VB.CommandButton btSelectionCopy4 00392: Height = 255 00393: Left = 0 00394: MaskColor = &H00FF00FF& 00395: Picture = "SY_MGRegister.frx":1130 00396: Style = 1 'Graphical 00397: TabIndex = 92 00398: ToolTipText = "Скопировать выделение" 00399: Top = 1785 00400: UseMaskColor = -1 'True 00401: Width = 270 00402: End 00403: Begin SPctlib.CheckBoxST btDasableRefresh4 00404: Height = 255 00405: Left = 0 00406: TabIndex = 99 00407: Top = 1020 00408: Width = 270 00409: _ExtentX = 476 00410: _ExtentY = 450 00411: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 00412: Name = "MS Sans Serif" 00413: Size = 8.25 00414: Charset = 204 00415: Weight = 400 00416: Underline = 0 'False 00417: Italic = 0 'False 00418: Strikethrough = 0 'False 00419: EndProperty 00420: Caption = "" 00421: DownPicture = "SY_MGRegister.frx":1232 00422: MaskColor = 16711935 00423: Picture = "SY_MGRegister.frx":1344 00424: UseMaskColor = -1 'True 00425: ToolTip = "Запретить обновление" 00426: Style = 1 00427: End 00428: End 00429: Begin VB.CommandButton btToList4 00430: Enabled = 0 'False 00431: Height = 2295 00432: Left = 9120 00433: TabIndex = 89 00434: Top = 240 00435: Width = 270 00436: End 00437: Begin VB.ComboBox cbSort4 00438: Height = 315 00439: Left = 240 00440: Style = 2 'Dropdown List 00441: TabIndex = 87 00442: Top = 720 00443: Width = 1815 00444: End 00445: Begin VB.CommandButton btDelete4 00446: Caption = "Удалить выбранные" 00447: Height = 375 00448: Left = 240 00449: TabIndex = 86 00450: Top = 1200 00451: Width = 1815 00452: End 00453: Begin VB.CheckBox chSort4 00454: Caption = "обр." 00455: ForeColor = &H8000000D& 00456: Height = 255 00457: Left = 1440 00458: TabIndex = 85 00459: Top = 480 00460: Value = 1 'Checked 00461: Width = 615 00462: End 00463: Begin SPctlib.FlexGridST lsST44 00464: Height = 5055 00465: Left = 3000 00466: TabIndex = 90 00467: Top = 360 00468: Width = 5055 00469: _ExtentX = 8916 00470: _ExtentY = 8916 00471: Mode = 2 00472: DisableDblClkRefresh= -1 'True 00473: End 00474: Begin VB.Label Label11 00475: Caption = "Сортировать" 00476: DataField = "Счет" 00477: ForeColor = &H8000000D& 00478: Height = 255 00479: Left = 240 00480: TabIndex = 88 00481: Top = 480 00482: Width = 1455 00483: End 00484: Begin VB.Label Control44 00485: BorderStyle = 1 'Fixed Single 00486: Height = 5295 00487: Left = 120 00488: TabIndex = 84 00489: Top = 360 00490: Width = 2175 00491: End 00492: End 00493: Begin VB.Frame FrTab3 00494: BorderStyle = 0 'None 00495: Height = 6015 00496: Left = -74880 00497: TabIndex = 57 00498: Top = 120 00499: Width = 9735 00500: Begin VB.Frame frToList3 00501: Height = 2040 00502: Left = 8640 00503: TabIndex = 117 00504: Top = 2520 00505: Width = 285 00506: Begin VB.CommandButton btRefresh3 00507: Height = 255 00508: Left = 0 00509: MaskColor = &H00FF00FF& 00510: Picture = "SY_MGRegister.frx":1456 00511: Style = 1 'Graphical 00512: TabIndex = 124 00513: ToolTipText = "Обновить" 00514: Top = 765 00515: UseMaskColor = -1 'True 00516: Width = 270 00517: End 00518: Begin VB.CommandButton btFind3 00519: Height = 255 00520: Left = 0 00521: MaskColor = &H00FF00FF& 00522: Picture = "SY_MGRegister.frx":1558 00523: Style = 1 'Graphical 00524: TabIndex = 123 00525: ToolTipText = "Поиск" 00526: Top = 1275 00527: UseMaskColor = -1 'True 00528: Width = 270 00529: End 00530: Begin VB.CommandButton btFindAgain3 00531: Enabled = 0 'False 00532: Height = 255 00533: Left = 0 00534: MaskColor = &H00FF00FF& 00535: Picture = "SY_MGRegister.frx":165A 00536: Style = 1 'Graphical 00537: TabIndex = 122 00538: ToolTipText = "Поиск далее" 00539: Top = 1530 00540: UseMaskColor = -1 'True 00541: Width = 270 00542: End 00543: Begin VB.CommandButton btStepLeft3 00544: Height = 255 00545: Left = 0 00546: MaskColor = &H00FF00FF& 00547: Picture = "SY_MGRegister.frx":175C 00548: Style = 1 'Graphical 00549: TabIndex = 121 00550: ToolTipText = "Сдвинуть столбец влево" 00551: Top = 0 00552: UseMaskColor = -1 'True 00553: Width = 270 00554: End 00555: Begin VB.CommandButton btStepRight3 00556: Height = 255 00557: Left = 0 00558: MaskColor = &H00FF00FF& 00559: Picture = "SY_MGRegister.frx":185E 00560: Style = 1 'Graphical 00561: TabIndex = 120 00562: ToolTipText = "Сдвинуть столбец вправо" 00563: Top = 255 00564: UseMaskColor = -1 'True 00565: Width = 270 00566: End 00567: Begin VB.CommandButton btSaveCols3 00568: Height = 255 00569: Left = 0 00570: MaskColor = &H00FF00FF& 00571: Picture = "SY_MGRegister.frx":1960 00572: Style = 1 'Graphical 00573: TabIndex = 119 00574: ToolTipText = "Сохранить расположение и ширину столбцов" 00575: Top = 510 00576: UseMaskColor = -1 'True 00577: Width = 270 00578: End 00579: Begin VB.CommandButton btSelectionCopy3 00580: Height = 255 00581: Left = 0 00582: MaskColor = &H00FF00FF& 00583: Picture = "SY_MGRegister.frx":1A62 00584: Style = 1 'Graphical 00585: TabIndex = 118 00586: ToolTipText = "Скопировать выделение" 00587: Top = 1785 00588: UseMaskColor = -1 'True 00589: Width = 270 00590: End 00591: Begin SPctlib.CheckBoxST btDisableRefresh3 00592: Height = 255 00593: Left = 0 00594: TabIndex = 125 00595: Top = 1020 00596: Width = 270 00597: _ExtentX = 476 00598: _ExtentY = 450 00599: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 00600: Name = "MS Sans Serif" 00601: Size = 8.25 00602: Charset = 204 00603: Weight = 400 00604: Underline = 0 'False 00605: Italic = 0 'False 00606: Strikethrough = 0 'False 00607: EndProperty 00608: Caption = "" 00609: DownPicture = "SY_MGRegister.frx":1B64 00610: MaskColor = 16711935 00611: Picture = "SY_MGRegister.frx":1C76 00612: UseMaskColor = -1 'True 00613: ToolTip = "Запретить обновление" 00614: Style = 1 00615: End 00616: End 00617: Begin VB.CheckBox chSort3 00618: Caption = "обр." 00619: ForeColor = &H8000000D& 00620: Height = 255 00621: Left = 1440 00622: TabIndex = 81 00623: Top = 480 00624: Value = 1 'Checked 00625: Width = 615 00626: End 00627: Begin VB.CommandButton btDelete3 00628: Caption = "Удалить выбранные" 00629: Height = 375 00630: Left = 240 00631: TabIndex = 80 00632: Top = 1200 00633: Width = 1815 00634: End 00635: Begin VB.ComboBox cbSort3 00636: Height = 315 00637: Left = 240 00638: Style = 2 'Dropdown List 00639: TabIndex = 79 00640: Top = 720 00641: Width = 1815 00642: End 00643: Begin VB.CommandButton btToList3 00644: Enabled = 0 'False 00645: Height = 2295 00646: Left = 8640 00647: TabIndex = 77 00648: Top = 240 00649: Width = 270 00650: End 00651: Begin SPctlib.FlexGridST lsST33 00652: Height = 5055 00653: Left = 2520 00654: TabIndex = 76 00655: Top = 360 00656: Width = 5055 00657: _ExtentX = 8916 00658: _ExtentY = 8916 00659: Mode = 2 00660: DisableDblClkRefresh= -1 'True 00661: End 00662: Begin VB.Label Label10 00663: Caption = "Сортировать" 00664: DataField = "Счет" 00665: ForeColor = &H8000000D& 00666: Height = 255 00667: Left = 240 00668: TabIndex = 82 00669: Top = 480 00670: Width = 1455 00671: End 00672: Begin VB.Label Control33 00673: BorderStyle = 1 'Fixed Single 00674: Height = 5295 00675: Left = 120 00676: TabIndex = 78 00677: Top = 360 00678: Width = 2175 00679: End 00680: End 00681: Begin VB.Frame frTab2 00682: BorderStyle = 0 'None 00683: Height = 5655 00684: Left = -75000 00685: TabIndex = 34 00686: Top = 120 00687: Width = 9615 00688: Begin VB.CommandButton btDelete22 00689: Caption = "Удалить задачу" 00690: Height = 375 00691: Left = 240 00692: TabIndex = 75 00693: Top = 3720 00694: Width = 1815 00695: End 00696: Begin VB.CommandButton btExec22 00697: Caption = "Снять задачу" 00698: Height = 375 00699: Left = 240 00700: TabIndex = 74 00701: Top = 3360 00702: Width = 1815 00703: End 00704: Begin VB.OptionButton opNot22 00705: Caption = "Необработанные" 00706: ForeColor = &H8000000D& 00707: Height = 255 00708: Left = 240 00709: TabIndex = 70 00710: Top = 1320 00711: Value = -1 'True 00712: Width = 1815 00713: End 00714: Begin VB.OptionButton opAll22 00715: Caption = "Все" 00716: ForeColor = &H8000000D& 00717: Height = 195 00718: Left = 240 00719: TabIndex = 69 00720: Top = 1560 00721: Width = 1695 00722: End 00723: Begin VB.ComboBox cbSort22 00724: Height = 315 00725: Left = 240 00726: Style = 2 'Dropdown List 00727: TabIndex = 67 00728: Top = 720 00729: Width = 1815 00730: End 00731: Begin VB.CheckBox chSort22 00732: Caption = "обр." 00733: ForeColor = &H8000000D& 00734: Height = 255 00735: Left = 1440 00736: TabIndex = 66 00737: Top = 480 00738: Width = 615 00739: End 00740: Begin SPctlib.FlexGridST lsST22 00741: Height = 5175 00742: Left = 2640 00743: TabIndex = 65 00744: Top = 360 00745: Width = 5775 00746: _ExtentX = 10186 00747: _ExtentY = 9128 00748: Mode = 2 00749: DisableDblClkRefresh= -1 'True 00750: End 00751: Begin VB.Frame frToList2 00752: Height = 2040 00753: Left = 9120 00754: TabIndex = 46 00755: Top = 2520 00756: Width = 285 00757: Begin VB.CommandButton btRefresh2 00758: Height = 255 00759: Left = 0 00760: MaskColor = &H00FF00FF& 00761: Picture = "SY_MGRegister.frx":1D88 00762: Style = 1 'Graphical 00763: TabIndex = 53 00764: ToolTipText = "Обновить" 00765: Top = 765 00766: UseMaskColor = -1 'True 00767: Width = 270 00768: End 00769: Begin VB.CommandButton btFind2 00770: Height = 255 00771: Left = 0 00772: MaskColor = &H00FF00FF& 00773: Picture = "SY_MGRegister.frx":1E8A 00774: Style = 1 'Graphical 00775: TabIndex = 52 00776: ToolTipText = "Поиск" 00777: Top = 1275 00778: UseMaskColor = -1 'True 00779: Width = 270 00780: End 00781: Begin VB.CommandButton btFindAgain2 00782: Enabled = 0 'False 00783: Height = 255 00784: Left = 0 00785: MaskColor = &H00FF00FF& 00786: Picture = "SY_MGRegister.frx":1F8C 00787: Style = 1 'Graphical 00788: TabIndex = 51 00789: ToolTipText = "Поиск далее" 00790: Top = 1530 00791: UseMaskColor = -1 'True 00792: Width = 270 00793: End 00794: Begin VB.CommandButton btStepLeft2 00795: Height = 255 00796: Left = 0 00797: MaskColor = &H00FF00FF& 00798: Picture = "SY_MGRegister.frx":208E 00799: Style = 1 'Graphical 00800: TabIndex = 50 00801: ToolTipText = "Сдвинуть столбец влево" 00802: Top = 0 00803: UseMaskColor = -1 'True 00804: Width = 270 00805: End 00806: Begin VB.CommandButton btStepRight2 00807: Height = 255 00808: Left = 0 00809: MaskColor = &H00FF00FF& 00810: Picture = "SY_MGRegister.frx":2190 00811: Style = 1 'Graphical 00812: TabIndex = 49 00813: ToolTipText = "Сдвинуть столбец вправо" 00814: Top = 255 00815: UseMaskColor = -1 'True 00816: Width = 270 00817: End 00818: Begin VB.CommandButton btSaveCols2 00819: Height = 255 00820: Left = 0 00821: MaskColor = &H00FF00FF& 00822: Picture = "SY_MGRegister.frx":2292 00823: Style = 1 'Graphical 00824: TabIndex = 48 00825: ToolTipText = "Сохранить расположение и ширину столбцов" 00826: Top = 510 00827: UseMaskColor = -1 'True 00828: Width = 270 00829: End 00830: Begin VB.CommandButton btSelectionCopy2 00831: Height = 255 00832: Left = 0 00833: MaskColor = &H00FF00FF& 00834: Picture = "SY_MGRegister.frx":2394 00835: Style = 1 'Graphical 00836: TabIndex = 47 00837: ToolTipText = "Скопировать выделение" 00838: Top = 1785 00839: UseMaskColor = -1 'True 00840: Width = 270 00841: End 00842: Begin SPctlib.CheckBoxST btDisableRefresh2 00843: Height = 255 00844: Left = 0 00845: TabIndex = 54 00846: Top = 1020 00847: Width = 270 00848: _ExtentX = 476 00849: _ExtentY = 450 00850: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 00851: Name = "MS Sans Serif" 00852: Size = 8.25 00853: Charset = 204 00854: Weight = 400 00855: Underline = 0 'False 00856: Italic = 0 'False 00857: Strikethrough = 0 'False 00858: EndProperty 00859: Caption = "" 00860: DownPicture = "SY_MGRegister.frx":2496 00861: MaskColor = 16711935 00862: Picture = "SY_MGRegister.frx":25A8 00863: UseMaskColor = -1 'True 00864: ToolTip = "Запретить обновление" 00865: Style = 1 00866: End 00867: End 00868: Begin VB.CommandButton btToList2 00869: Enabled = 0 'False 00870: Height = 2295 00871: Left = 9120 00872: TabIndex = 45 00873: Top = 240 00874: Width = 270 00875: End 00876: Begin SPctlib.DateBoxST DateTo22 00877: Height = 315 00878: Left = 240 00879: TabIndex = 71 00880: Top = 2520 00881: Width = 1815 00882: _ExtentX = 3201 00883: _ExtentY = 556 00884: Value = "" 00885: End 00886: Begin SPctlib.DateBoxST DateFrom22 00887: Height = 315 00888: Left = 240 00889: TabIndex = 72 00890: Top = 2160 00891: Width = 1815 00892: _ExtentX = 3201 00893: _ExtentY = 556 00894: Value = "" 00895: End 00896: Begin VB.Line Line2 00897: BorderColor = &H80000001& 00898: X1 = 240 00899: X2 = 2040 00900: Y1 = 3120 00901: Y2 = 3120 00902: End 00903: Begin VB.Line Line1 00904: BorderColor = &H80000001& 00905: X1 = 240 00906: X2 = 2040 00907: Y1 = 1200 00908: Y2 = 1200 00909: End 00910: Begin VB.Label Label9 00911: BackColor = &H8000000B& 00912: Caption = "Дата" 00913: ForeColor = &H8000000D& 00914: Height = 255 00915: Left = 240 00916: TabIndex = 73 00917: Top = 1920 00918: Width = 975 00919: End 00920: Begin VB.Label Label7 00921: Caption = "Сортировать" 00922: DataField = "Счет" 00923: ForeColor = &H8000000D& 00924: Height = 255 00925: Left = 240 00926: TabIndex = 68 00927: Top = 480 00928: Width = 1455 00929: End 00930: Begin VB.Label Control22 00931: BorderStyle = 1 'Fixed Single 00932: Height = 5295 00933: Left = 120 00934: TabIndex = 35 00935: Top = 240 00936: Width = 2175 00937: End 00938: End 00939: Begin VB.Frame frTab0 00940: Appearance = 0 'Flat 00941: BackColor = &H8000000B& 00942: BorderStyle = 0 'None 00943: ForeColor = &H80000008& 00944: Height = 6615 00945: Left = 120 00946: TabIndex = 17 00947: Top = 120 00948: Width = 8655 00949: Begin VB.CheckBox chTask00 00950: Caption = "Только задачи" 00951: ForeColor = &H00800000& 00952: Height = 255 00953: Left = 240 00954: TabIndex = 59 00955: Top = 3480 00956: Width = 1815 00957: End 00958: Begin VB.CheckBox SortCheck01 00959: Caption = "обр." 00960: ForeColor = &H8000000D& 00961: Height = 255 00962: Left = 1440 00963: TabIndex = 58 00964: Top = 1320 00965: Width = 615 00966: End 00967: Begin SPctlib.FlexGridST lsST00 00968: Height = 3735 00969: Left = 2400 00970: TabIndex = 56 00971: Top = 240 00972: Width = 5295 00973: _ExtentX = 9340 00974: _ExtentY = 6588 00975: Mode = 2 00976: DisableDblClkRefresh= -1 'True 00977: End 00978: Begin VB.CheckBox SortCheck00 00979: Caption = "обр." 00980: ForeColor = &H8000000D& 00981: Height = 255 00982: Left = 1440 00983: TabIndex = 32 00984: Top = 720 00985: Value = 1 'Checked 00986: Width = 615 00987: End 00988: Begin VB.ComboBox cbAdminUser00 00989: Height = 315 00990: Left = 240 00991: Style = 2 'Dropdown List 00992: TabIndex = 28 00993: Top = 4800 00994: Width = 1815 00995: End 00996: Begin VB.ComboBox cbSort01 00997: Height = 315 00998: Left = 240 00999: Style = 2 'Dropdown List 01000: TabIndex = 27 01001: Top = 1560 01002: Width = 1815 01003: End 01004: Begin VB.Frame frToList0 01005: Height = 2025 01006: Left = 7920 01007: TabIndex = 36 01008: Top = 2550 01009: Width = 285 01010: Begin VB.CommandButton btSelectionCopy0 01011: Height = 255 01012: Left = 0 01013: MaskColor = &H00FF00FF& 01014: Picture = "SY_MGRegister.frx":26BA 01015: Style = 1 'Graphical 01016: TabIndex = 37 01017: ToolTipText = "Скопировать выделение" 01018: Top = 1785 01019: UseMaskColor = -1 'True 01020: Width = 270 01021: End 01022: Begin VB.CommandButton btSaveCols0 01023: Height = 255 01024: Left = 0 01025: MaskColor = &H00FF00FF& 01026: Picture = "SY_MGRegister.frx":27BC 01027: Style = 1 'Graphical 01028: TabIndex = 38 01029: ToolTipText = "Сохранить расположение и ширину столбцов" 01030: Top = 510 01031: UseMaskColor = -1 'True 01032: Width = 270 01033: End 01034: Begin VB.CommandButton btStepRight0 01035: Height = 255 01036: Left = 0 01037: MaskColor = &H00FF00FF& 01038: Picture = "SY_MGRegister.frx":28BE 01039: Style = 1 'Graphical 01040: TabIndex = 39 01041: ToolTipText = "Сдвинуть столбец вправо" 01042: Top = 255 01043: UseMaskColor = -1 'True 01044: Width = 270 01045: End 01046: Begin VB.CommandButton btStepLeft0 01047: Height = 375 01048: Left = 0 01049: MaskColor = &H00FF00FF& 01050: Picture = "SY_MGRegister.frx":29C0 01051: Style = 1 'Graphical 01052: TabIndex = 40 01053: ToolTipText = "Сдвинуть столбец влево" 01054: Top = 0 01055: UseMaskColor = -1 'True 01056: Width = 270 01057: End 01058: Begin VB.CommandButton btFindAgain0 01059: Enabled = 0 'False 01060: Height = 255 01061: Left = 0 01062: MaskColor = &H00FF00FF& 01063: Picture = "SY_MGRegister.frx":2AC2 01064: Style = 1 'Graphical 01065: TabIndex = 41 01066: ToolTipText = "Поиск далее" 01067: Top = 1560 01068: UseMaskColor = -1 'True 01069: Width = 270 01070: End 01071: Begin VB.CommandButton btFind0 01072: Height = 255 01073: Left = 0 01074: MaskColor = &H00FF00FF& 01075: Picture = "SY_MGRegister.frx":2BC4 01076: Style = 1 'Graphical 01077: TabIndex = 42 01078: ToolTipText = "Поиск" 01079: Top = 1275 01080: UseMaskColor = -1 'True 01081: Width = 270 01082: End 01083: Begin VB.CommandButton btRefresh0 01084: Height = 255 01085: Left = 0 01086: MaskColor = &H00FF00FF& 01087: Picture = "SY_MGRegister.frx":2CC6 01088: Style = 1 'Graphical 01089: TabIndex = 43 01090: ToolTipText = "Обновить" 01091: Top = 765 01092: UseMaskColor = -1 'True 01093: Width = 270 01094: End 01095: Begin SPctlib.CheckBoxST btDisableRefresh0 01096: Height = 255 01097: Left = 0 01098: TabIndex = 23 01099: Top = 1020 01100: Width = 270 01101: _ExtentX = 476 01102: _ExtentY = 450 01103: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 01104: Name = "MS Sans Serif" 01105: Size = 8.25 01106: Charset = 204 01107: Weight = 400 01108: Underline = 0 'False 01109: Italic = 0 'False 01110: Strikethrough = 0 'False 01111: EndProperty 01112: Caption = "" 01113: DownPicture = "SY_MGRegister.frx":2DC8 01114: MaskColor = 16711935 01115: Picture = "SY_MGRegister.frx":2EDA 01116: UseMaskColor = -1 'True 01117: ToolTip = "Запретить обновление" 01118: Style = 1 01119: End 01120: End 01121: Begin VB.CommandButton btToList0 01122: Enabled = 0 'False 01123: Height = 2295 01124: Left = 7920 01125: TabIndex = 44 01126: Top = 240 01127: Width = 270 01128: End 01129: Begin VB.ComboBox cbSort00 01130: Height = 315 01131: Left = 240 01132: Style = 2 'Dropdown List 01133: TabIndex = 22 01134: Top = 960 01135: Width = 1815 01136: End 01137: Begin VB.ComboBox cbSetUser00 01138: Height = 315 01139: Left = 240 01140: Style = 2 'Dropdown List 01141: TabIndex = 18 01142: Top = 4080 01143: Width = 1815 01144: End 01145: Begin SPctlib.DateBoxST DateTo00 01146: Height = 315 01147: Left = 240 01148: TabIndex = 24 01149: Top = 2760 01150: Width = 1815 01151: _ExtentX = 3201 01152: _ExtentY = 556 01153: Value = "" 01154: End 01155: Begin SPctlib.DateBoxST DateFrom00 01156: Height = 315 01157: Left = 240 01158: TabIndex = 25 01159: Top = 2400 01160: Width = 1815 01161: _ExtentX = 3201 01162: _ExtentY = 556 01163: Value = "" 01164: End 01165: Begin VB.Line Line8 01166: BorderColor = &H80000001& 01167: X1 = 240 01168: X2 = 2040 01169: Y1 = 3240 01170: Y2 = 3240 01171: End 01172: Begin VB.Line Line7 01173: BorderColor = &H80000001& 01174: X1 = 240 01175: X2 = 2040 01176: Y1 = 600 01177: Y2 = 600 01178: End 01179: Begin VB.Line Line6 01180: BorderColor = &H80000001& 01181: X1 = 240 01182: X2 = 2040 01183: Y1 = 2040 01184: Y2 = 2040 01185: End 01186: Begin VB.Label lbAdmin 01187: BackColor = &H8000000B& 01188: Caption = "Отправитель" 01189: ForeColor = &H8000000D& 01190: Height = 255 01191: Left = 240 01192: TabIndex = 31 01193: Top = 4560 01194: Width = 1215 01195: End 01196: Begin VB.Label Label8 01197: BackColor = &H8000000B& 01198: Caption = "Сортировка" 01199: ForeColor = &H8000000D& 01200: Height = 255 01201: Left = 240 01202: TabIndex = 30 01203: Top = 360 01204: Width = 1455 01205: End 01206: Begin VB.Label Label4 01207: BackColor = &H8000000B& 01208: Caption = "Переписка с..." 01209: ForeColor = &H8000000D& 01210: Height = 255 01211: Left = 240 01212: TabIndex = 29 01213: Top = 3840 01214: Width = 1935 01215: End 01216: Begin VB.Label Label2 01217: BackColor = &H8000000B& 01218: Caption = "Дата" 01219: ForeColor = &H8000000D& 01220: Height = 255 01221: Left = 240 01222: TabIndex = 26 01223: Top = 2160 01224: Width = 975 01225: End 01226: Begin VB.Label Label3 01227: DataField = "Счет" 01228: ForeColor = &H8000000D& 01229: Height = 255 01230: Left = 240 01231: TabIndex = 21 01232: Top = 720 01233: Width = 1455 01234: End 01235: Begin VB.Label Label1 01236: ForeColor = &H8000000D& 01237: Height = 255 01238: Left = 240 01239: TabIndex = 20 01240: Top = 1320 01241: Width = 1215 01242: End 01243: Begin VB.Label Control0 01244: BorderStyle = 1 'Fixed Single 01245: BeginProperty Font 01246: Name = "MS Sans Serif" 01247: Size = 8.25 01248: Charset = 204 01249: Weight = 400 01250: Underline = 0 'False 01251: Italic = -1 'True 01252: Strikethrough = 0 'False 01253: EndProperty 01254: Height = 6135 01255: Left = 120 01256: TabIndex = 19 01257: Top = 240 01258: Width = 2175 01259: End 01260: End 01261: Begin VB.Frame frTab1 01262: Appearance = 0 'Flat 01263: BackColor = &H80000004& 01264: BorderStyle = 0 'None 01265: ForeColor = &H80000008& 01266: Height = 6855 01267: Left = -75000 01268: TabIndex = 13 01269: Top = 120 01270: Width = 9855 01271: Begin VB.OptionButton opAll11 01272: Caption = "Все" 01273: ForeColor = &H8000000D& 01274: Height = 195 01275: Left = 240 01276: TabIndex = 61 01277: Top = 1560 01278: Width = 1695 01279: End 01280: Begin VB.OptionButton opNot11 01281: Caption = "Необработанные" 01282: ForeColor = &H8000000D& 01283: Height = 255 01284: Left = 240 01285: TabIndex = 60 01286: Top = 1320 01287: Value = -1 'True 01288: Width = 1815 01289: End 01290: Begin SPctlib.FlexGridST lsST11 01291: Height = 6495 01292: Left = 2640 01293: TabIndex = 55 01294: Top = 240 01295: Width = 6375 01296: _ExtentX = 11245 01297: _ExtentY = 11456 01298: Mode = 2 01299: DisableDblClkRefresh= -1 'True 01300: End 01301: Begin VB.CheckBox chSort11 01302: Caption = "обр." 01303: ForeColor = &H8000000D& 01304: Height = 255 01305: Left = 1440 01306: TabIndex = 33 01307: Top = 480 01308: Width = 615 01309: End 01310: Begin VB.CommandButton btToList1 01311: Enabled = 0 'False 01312: Height = 2895 01313: Left = 9240 01314: TabIndex = 16 01315: Top = 240 01316: Width = 270 01317: End 01318: Begin VB.ComboBox cbSort1 01319: Height = 315 01320: Left = 240 01321: Style = 2 'Dropdown List 01322: TabIndex = 12 01323: Top = 720 01324: Width = 1815 01325: End 01326: Begin VB.Frame frToList1 01327: BorderStyle = 0 'None 01328: Height = 2160 01329: Left = 9270 01330: TabIndex = 3 01331: Top = 3255 01332: Width = 285 01333: Begin VB.CommandButton btSelectionCopy1 01334: Height = 255 01335: Left = 0 01336: MaskColor = &H00FF00FF& 01337: Picture = "SY_MGRegister.frx":2FEC 01338: Style = 1 'Graphical 01339: TabIndex = 10 01340: ToolTipText = "Скопировать выделение" 01341: Top = 1785 01342: UseMaskColor = -1 'True 01343: Width = 270 01344: End 01345: Begin VB.CommandButton btSaveCols1 01346: Height = 255 01347: Left = 0 01348: MaskColor = &H00FF00FF& 01349: Picture = "SY_MGRegister.frx":30EE 01350: Style = 1 'Graphical 01351: TabIndex = 9 01352: ToolTipText = "Сохранить расположение и ширину столбцов" 01353: Top = 510 01354: UseMaskColor = -1 'True 01355: Width = 270 01356: End 01357: Begin VB.CommandButton btStepRigh1 01358: Height = 255 01359: Left = 0 01360: MaskColor = &H00FF00FF& 01361: Picture = "SY_MGRegister.frx":31F0 01362: Style = 1 'Graphical 01363: TabIndex = 8 01364: ToolTipText = "Сдвинуть столбец вправо" 01365: Top = 255 01366: UseMaskColor = -1 'True 01367: Width = 270 01368: End 01369: Begin VB.CommandButton btStepLeft1 01370: Height = 255 01371: Left = 0 01372: MaskColor = &H00FF00FF& 01373: Picture = "SY_MGRegister.frx":32F2 01374: Style = 1 'Graphical 01375: TabIndex = 7 01376: ToolTipText = "Сдвинуть столбец влево" 01377: Top = 0 01378: UseMaskColor = -1 'True 01379: Width = 270 01380: End 01381: Begin VB.CommandButton btFindAgain1 01382: Enabled = 0 'False 01383: Height = 255 01384: Left = 0 01385: MaskColor = &H00FF00FF& 01386: Picture = "SY_MGRegister.frx":33F4 01387: Style = 1 'Graphical 01388: TabIndex = 6 01389: ToolTipText = "Поиск далее" 01390: Top = 1530 01391: UseMaskColor = -1 'True 01392: Width = 270 01393: End 01394: Begin VB.CommandButton btFind1 01395: Height = 255 01396: Left = 0 01397: MaskColor = &H00FF00FF& 01398: Picture = "SY_MGRegister.frx":34F6 01399: Style = 1 'Graphical 01400: TabIndex = 5 01401: ToolTipText = "Поиск" 01402: Top = 1275 01403: UseMaskColor = -1 'True 01404: Width = 270 01405: End 01406: Begin VB.CommandButton btRefresh1 01407: Height = 255 01408: Left = 0 01409: MaskColor = &H00FF00FF& 01410: Picture = "SY_MGRegister.frx":35F8 01411: Style = 1 'Graphical 01412: TabIndex = 4 01413: ToolTipText = "Обновить" 01414: Top = 765 01415: UseMaskColor = -1 'True 01416: Width = 270 01417: End 01418: Begin SPctlib.CheckBoxST btDisableRefresh1 01419: Height = 255 01420: Left = 0 01421: TabIndex = 11 01422: Top = 1020 01423: Width = 270 01424: _ExtentX = 476 01425: _ExtentY = 450 01426: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 01427: Name = "MS Sans Serif" 01428: Size = 8.25 01429: Charset = 204 01430: Weight = 400 01431: Underline = 0 'False 01432: Italic = 0 'False 01433: Strikethrough = 0 'False 01434: EndProperty 01435: Caption = "" 01436: DownPicture = "SY_MGRegister.frx":36FA 01437: MaskColor = 16711935 01438: Picture = "SY_MGRegister.frx":380C 01439: UseMaskColor = -1 'True 01440: ToolTip = "Запретить обновление" 01441: Style = 1 01442: End 01443: End 01444: Begin SPctlib.DateBoxST DateTo11 01445: Height = 315 01446: Left = 240 01447: TabIndex = 62 01448: Top = 2520 01449: Width = 1815 01450: _ExtentX = 3201 01451: _ExtentY = 556 01452: Value = "" 01453: End 01454: Begin SPctlib.DateBoxST DateFrom11 01455: Height = 315 01456: Left = 240 01457: TabIndex = 63 01458: Top = 2160 01459: Width = 1815 01460: _ExtentX = 3201 01461: _ExtentY = 556 01462: Value = "" 01463: End 01464: Begin VB.Label Label6 01465: BackColor = &H8000000B& 01466: Caption = "Дата" 01467: ForeColor = &H8000000D& 01468: Height = 255 01469: Left = 240 01470: TabIndex = 64 01471: Top = 1920 01472: Width = 975 01473: End 01474: Begin VB.Line Line3 01475: BorderColor = &H80000001& 01476: X1 = 240 01477: X2 = 2040 01478: Y1 = 1200 01479: Y2 = 1200 01480: End 01481: Begin VB.Label Label5 01482: Caption = "Сортировать" 01483: DataField = "Счет" 01484: ForeColor = &H8000000D& 01485: Height = 255 01486: Left = 240 01487: TabIndex = 15 01488: Top = 480 01489: Width = 1455 01490: End 01491: Begin VB.Label Control11 01492: BorderStyle = 1 'Fixed Single 01493: Height = 6495 01494: Left = 120 01495: TabIndex = 14 01496: Top = 240 01497: Width = 2055 01498: End 01499: End 01500: End 01501: End 01502: Attribute VB_Name = "SY_MGRegister" 01503: Attribute VB_GlobalNameSpace = False 01504: Attribute VB_Creatable = False 01505: Attribute VB_PredeclaredId = True 01506: Attribute VB_Exposed = False 01507: 'Instr=1 - вкладка 0 "История" 01508: 'Instr=2 - вкладка 1 "Полученные задачи" 01509: 'Instr=3 - вкладка 2 "Поставленые задачи" 01510: ' вкладка 3 "Неполученные задачи" 01511: ' вкладка 4 "Неподтвержденные задачи" 01512: ' вкладка 5 "По заказу" 01513: Option Explicit 01514: Dim tm As ADODB.Recordset 01515: Dim NumZakaz As Long 'Номер заказа(на пятом табе) 01516: ' 01517: Dim StartTab0 As Boolean 'Давят события комбешников при загрузке 01518: Dim StartTab1 As Boolean 01519: Dim StartTab2 As Boolean 01520: Dim StartTab3 As Boolean 01521: Dim StartTab4 As Boolean 01522: Dim StartTab5 As Boolean 01523: Dim FirstTab0 As Boolean 'Признак первого входа на конкретный ТАБ 01524: Dim FirstTab1 As Boolean 01525: Dim FirstTab2 As Boolean 01526: Dim FirstTab3 As Boolean 01527: Dim FirstTab4 As Boolean 01528: Dim FirstTab5 As Boolean 01529: '=============================== fce ================================== 01530: Private SelfVal As Integer 01531: Public Property Let Self(slf As Integer) 01532: SelfVal = slf 01533: End Property 01534: Public Property Get Self() As Integer 01535: Self = SelfVal 01536: End Property 01537: Public Property Get SelfAlignment() As FCEFormAlignmentConstants 01538: SelfAlignment = fceSizableWindow 01539: End Property 01540: Public Property Get SelfFlags() As FCEFlags 01541: SelfFlags = 0 01542: End Property 01543: Public Property Get ButtonCaption() As String 01544: ButtonCaption = "Сообщения" 01545: End Property 01546: Public Property Get TaskBarIndex() As Integer 01547: TaskBarIndex = 1 01548: End Property 01549: Public Property Get TaskBarIcon() As String 01550: TaskBarIcon = "EDITDOC" 01551: End Property 01552: Private Sub btCancel_Click() 01553: Unload Me 01554: End Sub 01555: Public Property Get MinWidth() As Long 01556: MinWidth = 10905 01557: End Property 01558: Public Property Get MinHeight() As Long 01559: MinHeight = 6000 01560: End Property 01561: Private Sub btSpread_Click() 01562: FCE.CheckResize Me, True 01563: End Sub 01564: Private Sub Form_Resize() 01565: FCE.CheckResize Me, False 01566: End Sub 01567: Public Sub AfterResize() 01568: Call AdminFormResize1(Me) 01569: End Sub 01570: Public Function DisableInnerResizing() As Boolean 01571: DisableInnerResizing = True 01572: End Function 01573: ' 01574: '============================ fce work =============================== 01575: ' 01576: Public Sub Loading() 01577: Select Case FCE.Instr(Me) 01578: Case 1: SSTab.Tab = 0 01579: Case 2: SSTab.Tab = 1 01580: Case 3: SSTab.Tab = 2 01581: End Select 01582: Call SSTab_Click(0) 01583: End Sub 01584: Private Sub SSTab_Click(PreviousTab As Integer) 01585: Call AdminFormResize1(Me) 01586: Select Case SSTab.Tab 01587: Case 0 01588: Me.Caption = "Администратор сообщений" 01589: If FirstTab0 Then 01590: lsST00.Refresh 01591: Else 01592: Call InitTab0 01593: FirstTab0 = True 01594: End If 01595: Case 1 01596: Me.Caption = "Полученные задачи" 01597: If FirstTab1 Then 01598: lsST11.Refresh 01599: Else 01600: Call InitTab1 01601: FirstTab1 = True 01602: End If 01603: Case 2 01604: Me.Caption = "Поставленные задачи" 01605: If FirstTab2 Then 01606: lsST22.Refresh 01607: Else 01608: Call InitTab2 01609: FirstTab2 = True 01610: End If 01611: Case 3 01612: Me.Caption = "Неполученные сообщения" 01613: If FirstTab3 Then 01614: lsST33.Refresh 01615: Else 01616: Call InitTab3 01617: FirstTab3 = True 01618: End If 01619: Case 4 01620: Me.Caption = "Неподтвержденные сообщения" 01621: If FirstTab4 Then 01622: lsST44.Refresh 01623: Else 01624: Call InitTab4 01625: FirstTab4 = True 01626: End If 01627: Case 5 01628: Me.Caption = "Сообщения по заказу" 01629: If FirstTab5 Then 01630: lsST55.Refresh 01631: Else 01632: Call InitTab5 01633: FirstTab5 = True 01634: End If 01635: End Select 01636: End Sub 01637: Public Sub AdminFormResize1(FRM As VB.Form) 01638: Select Case FRM.Controls("SStab").Tab 01639: Case 0 01640: Call OneFlexOnTabResize(FRM, "SStab", "btSpread", "btCancel", "btToList0", "frToList0", "Control0", "frTab0", "lsST00") 01641: Case 1 01642: Call OneFlexOnTabResize(FRM, "SStab", "btSpread", "btCancel", "btToList1", "frToList1", "Control11", "frTab1", "lsST11") 01643: Case 2 01644: Call OneFlexOnTabResize(FRM, "SStab", "btSpread", "btCancel", "btToList2", "frToList2", "Control22", "frTab2", "lsst22") 01645: Case 3 01646: Call OneFlexOnTabResize(FRM, "SStab", "btSpread", "btCancel", "btToList3", "frToList3", "Control33", "frTab3", "lsST33") 01647: Case 4 01648: Call OneFlexOnTabResize(FRM, "SStab", "btSpread", "btCancel", "btToList4", "frToList4", "Control44", "frTab4", "lsST44") 01649: Case 5 01650: Call OneFlexOnTabResize(FRM, "SStab", "btSpread", "btCancel", "btToList5", "frToList5", "Control55", "frTab5", "lsST55", 3000) 01651: End Select 01652: End Sub 01653: Private Sub Form_Activate() 01654: Select Case FCE.sActivate(Me) 01655: Case 0 01656: Case 1 'Возврат от SY_MGRead 01657: Select Case SSTab.Tab 01658: Case 0: lsST00.Refresh 01659: Case 1: lsST11.Refresh 01660: Case 2: lsST22.Refresh 01661: Case 3: lsST33.Refresh 01662: Case 4: lsST44.Refresh 01663: Case 5: lsST55.Refresh 01664: End Select 01665: Case Else 01666: End Select 01667: End Sub 01668: Private Sub Form_Unload(Cancel As Integer) 01669: FCE.Ret Me, 1 01670: End Sub 01671: ' 01672: '*************************************************** 01673: 'Нулевой таб - История 01674: '*************************************************** 01675: ' 01676: Private Sub InitTab0() 01677: StartTab0 = True 01678: Dim i As Integer, RS_User As ADODB.Recordset 01679: LB_Monitor.MessageOn "Загрузка...", 1, 0 01680: DoEvents 01681: DateFrom00.Value = Now - 30 01682: DateTo00.Value = Now + 1 01683: ' 01684: cbSetUser00.AddItem ("Все") 01685: cbSetUser00.ItemData(cbSetUser00.NewIndex) = 0 01686: cbAdminUser00.AddItem ("Все") 01687: cbAdminUser00.ItemData(cbAdminUser00.NewIndex) = 0 01688: Set RS_User = SPr("SY_MG_User", "@CurrentUser", CurrentUser) 01689: If RS_User.EOF Then MsgBox ("Ошибка - пустой список пользователей системы") 01690: While Not RS_User.EOF 01691: cbSetUser00.AddItem RS_User("Name") 01692: cbAdminUser00.AddItem RS_User("Name") 01693: cbSetUser00.ItemData(cbSetUser00.NewIndex) = RS_User("sid") 01694: cbAdminUser00.ItemData(cbAdminUser00.NewIndex) = RS_User("sid") 01695: RS_User.MoveNext 01696: Wend 01697: RS_User.Close 01698: cbSetUser00.ListIndex = FindByValue(cbSetUser00, "Все") 01699: cbAdminUser00.ListIndex = FindByItem(cbAdminUser00, CurrentUser) 01700: If Not Permit(59, False) Then 01701: lbAdmin.Enabled = False 01702: cbAdminUser00.Enabled = False 01703: End If 01704: ' 01705: Call FN_Grid.SetStructureSTGrid1(lsST00, "SY_MG_ST_AdmForm0", cbSort00, 6016) 01706: For i = 0 To cbSort00.ListCount 01707: cbSort01.AddItem cbSort00.List(i) 01708: Next i 01709: cbSort00.ListIndex = FindByValue(cbSort00, "Дата") 01710: cbSort01.ListIndex = FindByValue(cbSort01, "Получатель") 01711: ' 01712: lsST00.CurrentTab = 1 01713: LB_Monitor.MessageOff 01714: StartTab0 = False 01715: End Sub 01716: Private Sub lsST00_PrepareRowsList(EOF As Boolean) 01717: lsST00.RecSet = SPr("SY_MG_MessageReadAdmin", "@CurrentUser", CurrentUser, "@Date1", CDate(DateFrom00), "@Date2", CDate(DateTo00), "@Sort1", cbSort00.Text, "@Desc1", SortCheck00.Value, "@Sort2", cbSort01.Text, "@Desc2", SortCheck01.Value, "@JobsOnly", chTask00.Value, "@AdminUser", cbAdminUser00.ItemData(cbAdminUser00.ListIndex), "@SetUser", cbSetUser00.ItemData(cbSetUser00.ListIndex)) 01718: lsST00.RecSet = lsST00.RecSet.NextRecordset 01719: End Sub 01720: Private Sub lsST00_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 01721: Call Format_SY_MG(lsST00, ColumnTag, Code, Text) 01722: End Sub 01723: Private Sub cbSetUser00_Click() 01724: If StartTab0 Then Exit Sub 01725: lsST00.Refresh 01726: End Sub 01727: Private Sub cbadminuser00_Click() 01728: If StartTab0 Then Exit Sub 01729: lsST00.Refresh 01730: End Sub 01731: Private Sub chTask00_Click() 01732: If StartTab0 Then Exit Sub 01733: lsST00.Refresh 01734: End Sub 01735: Private Sub DateFrom00_DateChanged() 01736: If StartTab0 Then Exit Sub 01737: lsST00.Refresh 01738: End Sub 01739: Private Sub DateTo00_DateChanged() 01740: If StartTab0 Then Exit Sub 01741: lsST00.Refresh 01742: End Sub 01743: Private Sub SortCheck00_Click() 01744: If StartTab0 Then Exit Sub 01745: lsST00.Refresh 01746: End Sub 01747: Private Sub SortCheck01_Click() 01748: If StartTab0 Then Exit Sub 01749: lsST00.Refresh 01750: End Sub 01751: Private Sub cbSort00_Click() 01752: If StartTab0 Then Exit Sub 01753: lsST00.Refresh 01754: End Sub 01755: Private Sub cbSort01_Click() 01756: If StartTab0 Then Exit Sub 01757: lsST00.Refresh 01758: End Sub 01759: '----------------------- 01760: Private Sub btFind0_Click() 01761: lsST00.Find 01762: End Sub 01763: Private Sub btFindAgain0_Click() 01764: lsST00.FindAgain 01765: End Sub 01766: Private Sub lsST00_FindAgainEnabled(Enabled As Boolean) 01767: btFindAgain0.Enabled = Enabled 01768: End Sub 01769: Private Sub btRefresh0_Click() 01770: lsST00.Refresh , , , True 01771: End Sub 01772: Private Sub btSaveCols0_Click() 01773: If MsgBox("Сохранить расположение и ширину столбцов для пользователя " + Users(CurrentUser).Name + "?", vbQuestion + vbYesNo, "Вид") <> vbYes Then Exit Sub 01774: SaveVar 6016, lsST00.GetSortWidth 01775: End Sub 01776: Private Sub btStepLeft0_Click() 01777: lsST00.ShiftCurColLeft 01778: End Sub 01779: Private Sub btStepRight0_Click() 01780: lsST00.ShiftCurColRight 01781: End Sub 01782: Private Sub btSelectionCopy0_Click() 01783: lsST00.SelectionCopy 01784: End Sub 01785: Private Sub lsST00_CellDoubleClick(Code As String, sID As Long, CellLeft As Long, CellTop As Long, CellWidth As Long, CellHeight As Long, CellText As String) 01786: Select Case Code 01787: Case "Отправитель" 01788: cbSetUser00.ListIndex = FindByValue(cbSetUser00, lsST00.GetTextFromCurrentLine("Отправитель")) 01789: lsST00.Refresh 01790: Case "Получатель" 01791: cbSetUser00.ListIndex = FindByValue(cbSetUser00, lsST00.GetTextFromCurrentLine("Получатель")) 01792: lsST00.Refresh 01793: Case "Заказ" 01794: If IsNumeric(lsST00.GetTextFromCurrentLine("Заказ")) Then FCE.mCallSwitch Me, ZW_OrderCardName(Val(lsST00.GetTextFromCurrentLine("Заказ"))), 1, 2, Val(lsST00.GetTextFromCurrentLine("Заказ")) 01795: Case "К сообщению" 01796: If IsNumeric(lsST00.GetTextFromCurrentLine("К сообщению")) Then FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsST00.GetTextFromCurrentLine("К сообщению") 01797: Case Else 01798: FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsST00.CurrentID 01799: End Select 01800: End Sub 01801: 01802: ' 01803: '************************************************************************* 01804: 'Первый таб - Полученные задачи 01805: '************************************************************************* 01806: ' 01807: Private Sub InitTab1() 01808: StartTab1 = True 01809: LB_Monitor.MessageOn "Загрузка...", 1, 0 01810: DoEvents 01811: DateFrom11.Value = Now - 30 01812: DateTo11.Value = Now + 1 01813: Call opNot11_Click 01814: ' 01815: Call FN_Grid.SetStructureSTGrid1(lsST11, "SY_MG_ST_AdmForm1", cbSort1, 6017) 01816: lsST11.CurrentTab = 1 01817: LB_Monitor.MessageOff 01818: StartTab1 = False 01819: End Sub 01820: Private Sub lsST11_PrepareRowsList(EOF As Boolean) 01821: lsST11.RecSet = SPr("SY_MG_MessageReadAdmin1", "@CurrentUser", CurrentUser, "@Date1", CDate(DateFrom11), "@Date2", CDate(DateTo11), "@Sort", cbSort1.Text, "@Desc", chSort11.Value, "@JobsOnlyNotConfirmed", opNot11.Value) 01822: End Sub 01823: Private Sub lsST11_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 01824: Call Format_SY_MG(lsST11, ColumnTag, Code, Text) 01825: End Sub 01826: Private Sub DateTo11_DateChanged() 01827: If StartTab1 Then Exit Sub 01828: lsST11.Refresh 01829: End Sub 01830: Private Sub DateFrom11_DateChanged() 01831: If StartTab1 Then Exit Sub 01832: lsST11.Refresh 01833: End Sub 01834: Private Sub lsST11_CellDoubleClick(Code As String, sID As Long, CellLeft As Long, CellTop As Long, CellWidth As Long, CellHeight As Long, CellText As String) 01835: FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsST11.CurrentID 01836: End Sub 01837: Private Sub cbSort1_Click() 01838: If StartTab1 Then Exit Sub 01839: lsST11.Refresh 01840: End Sub 01841: Private Sub chSort11_Click() 01842: If StartTab1 Then Exit Sub 01843: lsST11.Refresh 01844: End Sub 01845: Private Sub opAll11_Click() 01846: DateFrom11.Enabled = True 01847: DateTo11.Enabled = True 01848: lsST11.Refresh 01849: End Sub 01850: Private Sub opNot11_Click() 01851: DateFrom11.Enabled = False 01852: DateTo11.Enabled = False 01853: lsST11.Refresh 01854: End Sub 01855: 01856: '------------------------- 01857: Private Sub btFind1_Click() 01858: lsST11.Find 01859: End Sub 01860: Private Sub btFindAgain1_Click() 01861: lsST11.FindAgain 01862: End Sub 01863: Private Sub lsST11_FindAgainEnabled(Enabled As Boolean) 01864: btFindAgain1.Enabled = Enabled 01865: End Sub 01866: Private Sub btRefresh1_Click() 01867: lsST11.Refresh , , , True 01868: End Sub 01869: Private Sub btSaveCols1_Click() 01870: If MsgBox("Сохранить расположение и ширину столбцов для пользователя " + Users(CurrentUser).Name + "?", vbQuestion + vbYesNo, "Вид") <> vbYes Then Exit Sub 01871: SaveVar 6017, lsST11.GetSortWidth 01872: End Sub 01873: Private Sub btStepLeft1_Click() 01874: lsST11.ShiftCurColLeft 01875: End Sub 01876: Private Sub btStepRight1_Click() 01877: lsST11.ShiftCurColRight 01878: End Sub 01879: Private Sub btSelectionCopy1_Click() 01880: lsST11.SelectionCopy 01881: End Sub 01882: ' 01883: '*************************************************** 01884: 'Второй таб - поставленные задачи 01885: '*************************************************** 01886: ' 01887: Private Sub InitTab2() 01888: StartTab2 = True 01889: LB_Monitor.MessageOn "Загрузка...", 1, 0 01890: DoEvents 01891: DateFrom22.Value = Now - 30 01892: DateTo22.Value = Now + 1 01893: Call opNot11_Click 01894: ' 01895: Call FN_Grid.SetStructureSTGrid1(lsST22, "SY_MG_ST_AdmForm2", cbSort22, 6018) 01896: cbSort22.ListIndex = FindByValue(cbSort22, "Дата") 01897: lsST22.CurrentTab = 1 01898: LB_Monitor.MessageOff 01899: StartTab2 = False 01900: End Sub 01901: Private Sub lsST22_PrepareRowsList(EOF As Boolean) 01902: lsST22.RecSet = SPr("SY_MG_MessageReadAdmin2", "@CurrentUser", CurrentUser, "@Date1", CDate(DateFrom22), "@Date2", CDate(DateTo22), "@Sort", cbSort22.Text, "@Desc", chSort22.Value, "@JobsOnlyNotConfirmed", opNot22.Value) 01903: End Sub 01904: Private Sub lsST22_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 01905: Call Format_SY_MG(lsST22, ColumnTag, Code, Text) 01906: End Sub 01907: Private Sub btDelete22_Click() 01908: Dim Ret As Integer 01909: Ret = SPi("SY_MG_DeleteJob", "@ID", lsST22.CurrentID, "@Full", 1) 01910: lsST22.Refresh 01911: End Sub 01912: Private Sub btExec22_Click() 01913: Dim Ret As Integer 01914: Ret = SPi("SY_MG_DeleteJob", "@ID", lsST22.CurrentID, "@Full", 0) 01915: lsST22.Refresh 01916: End Sub 01917: Private Sub DateTo22_DateChanged() 01918: If StartTab2 Then Exit Sub 01919: lsST22.Refresh 01920: End Sub 01921: Private Sub DateFrom_DateChanged() 01922: If StartTab2 Then Exit Sub 01923: lsST22.Refresh 01924: End Sub 01925: Private Sub lsst22_CellDoubleClick(Code As String, sID As Long, CellLeft As Long, CellTop As Long, CellWidth As Long, CellHeight As Long, CellText As String) 01926: FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsST22.CurrentID 01927: End Sub 01928: Private Sub cbSort22_Click() 01929: If StartTab2 Then Exit Sub 01930: lsST22.Refresh 01931: End Sub 01932: Private Sub chSort22_Click() 01933: If StartTab2 Then Exit Sub 01934: lsST22.Refresh 01935: End Sub 01936: Private Sub opAll22_Click() 01937: DateFrom22.Enabled = True 01938: DateTo22.Enabled = True 01939: lsST22.Refresh 01940: End Sub 01941: Private Sub opNot22_Click() 01942: DateFrom22.Enabled = False 01943: DateTo22.Enabled = False 01944: lsST22.Refresh 01945: End Sub 01946: 01947: '------------------------- 01948: Private Sub btFind2_Click() 01949: lsST22.Find 01950: End Sub 01951: Private Sub btFindAgain2_Click() 01952: lsST22.FindAgain 01953: End Sub 01954: Private Sub lsst22_FindAgainEnabled(Enabled As Boolean) 01955: btFindAgain2.Enabled = Enabled 01956: End Sub 01957: Private Sub btRefresh2_Click() 01958: lsST22.Refresh , , , True 01959: End Sub 01960: Private Sub btSaveCols2_Click() 01961: If MsgBox("Сохранить расположение и ширину столбцов для пользователя " + Users(CurrentUser).Name + "?", vbQuestion + vbYesNo, "Вид") <> vbYes Then Exit Sub 01962: SaveVar 6018, lsST22.GetSortWidth 01963: End Sub 01964: Private Sub btStepLeft2_Click() 01965: lsST22.ShiftCurColLeft 01966: End Sub 01967: Private Sub btStepRight2_Click() 01968: lsST22.ShiftCurColRight 01969: End Sub 01970: Private Sub btSelectionCopy2_Click() 01971: lsST22.SelectionCopy 01972: End Sub 01973: ' 01974: 01975: ' 01976: '*************************************************** 01977: 'Третий таб - неполученные задачи 01978: '*************************************************** 01979: ' 01980: Private Sub InitTab3() 01981: StartTab3 = True 01982: LB_Monitor.MessageOn "Загрузка...", 1, 0 01983: DoEvents 01984: Call FN_Grid.SetStructureSTGrid1(lsST33, "SY_MG_ST_AdmForm3", cbSort3, 6019) 01985: cbSort3.ListIndex = FindByValue(cbSort3, "Дата") 01986: lsST33.CurrentTab = 1 01987: LB_Monitor.MessageOff 01988: StartTab3 = False 01989: End Sub 01990: Private Sub lsST33_PrepareRowsList(EOF As Boolean) 01991: lsST33.RecSet = SPr("SY_MG_MessageReadAdmin3", "@CurrentUser", CurrentUser, "@Sort", cbSort3.Text, "@Desc", chSort3.Value) 01992: End Sub 01993: Private Sub lsST33_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 01994: Call Format_SY_MG(lsST33, ColumnTag, Code, Text) 01995: End Sub 01996: Private Sub btDelete3_Click() 01997: Dim Ret As Integer 01998: Call PacketST(lsST33, "SY_MG_DeleteJob", "@Full", 1) 01999: lsST33.Refresh 02000: End Sub 02001: Private Sub lsst33_CellDoubleClick(Code As String, sID As Long, CellLeft As Long, CellTop As Long, CellWidth As Long, CellHeight As Long, CellText As String) 02002: FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsST33.CurrentID 02003: End Sub 02004: Private Sub cbSort3_Click() 02005: If StartTab3 Then Exit Sub 02006: lsST33.Refresh 02007: End Sub 02008: Private Sub chSort3_Click() 02009: If StartTab3 Then Exit Sub 02010: lsST33.Refresh 02011: End Sub 02012: '------------------------- 02013: Private Sub btFind3_Click() 02014: lsST33.Find 02015: End Sub 02016: Private Sub btFindAgain3_Click() 02017: lsST33.FindAgain 02018: End Sub 02019: Private Sub lsst33_FindAgainEnabled(Enabled As Boolean) 02020: btFindAgain3.Enabled = Enabled 02021: End Sub 02022: Private Sub btRefresh3_Click() 02023: lsST33.Refresh , , , True 02024: End Sub 02025: Private Sub btSaveCols3_Click() 02026: If MsgBox("Сохранить расположение и ширину столбцов для пользователя " + Users(CurrentUser).Name + "?", vbQuestion + vbYesNo, "Вид") <> vbYes Then Exit Sub 02027: SaveVar 6019, lsST33.GetSortWidth 02028: End Sub 02029: Private Sub btStepLeft3_Click() 02030: lsST33.ShiftCurColLeft 02031: End Sub 02032: Private Sub btStepRight3_Click() 02033: lsST33.ShiftCurColRight 02034: End Sub 02035: Private Sub btSelectionCopy3_Click() 02036: lsST33.SelectionCopy 02037: End Sub 02038: ' 02039: ' 02040: '*************************************************** 02041: 'Четвертый таб - неподтвержденные сообщения 02042: '*************************************************** 02043: ' 02044: Private Sub InitTab4() 02045: StartTab4 = True 02046: LB_Monitor.MessageOn "Загрузка...", 1, 0 02047: DoEvents 02048: Call FN_Grid.SetStructureSTGrid1(lsST44, "SY_MG_ST_AdmForm4", cbSort4, 6020) 02049: cbSort4.ListIndex = FindByValue(cbSort4, "Дата") 02050: lsST44.CurrentTab = 1 02051: LB_Monitor.MessageOff 02052: StartTab4 = False 02053: End Sub 02054: Private Sub lsst44_PrepareRowsList(EOF As Boolean) 02055: lsST44.RecSet = SPr("SY_MG_MessageReadAdmin4", "@CurrentUser", CurrentUser, "@Sort", cbSort3.Text, "@Desc", chSort3.Value) 02056: End Sub 02057: Private Sub lsst44_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 02058: Call Format_SY_MG(lsST44, ColumnTag, Code, Text) 02059: End Sub 02060: Private Sub btDelete4_Click() 02061: Dim Ret As Integer 02062: Call PacketST(lsST44, "SY_MG_DeleteJob", "@Full", 1) 02063: lsST44.Refresh 02064: End Sub 02065: Private Sub lsst44_CellDoubleClick(Code As String, sID As Long, CellLeft As Long, CellTop As Long, CellWidth As Long, CellHeight As Long, CellText As String) 02066: FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsST44.CurrentID 02067: End Sub 02068: Private Sub cbSort4_Click() 02069: If StartTab4 Then Exit Sub 02070: lsST44.Refresh 02071: End Sub 02072: Private Sub chSort4_Click() 02073: If StartTab4 Then Exit Sub 02074: lsST44.Refresh 02075: End Sub 02076: '------------------------- 02077: Private Sub btFind4_Click() 02078: lsST44.Find 02079: End Sub 02080: Private Sub btFindAgain4_Click() 02081: lsST44.FindAgain 02082: End Sub 02083: Private Sub lsst44_FindAgainEnabled(Enabled As Boolean) 02084: btFindAgain4.Enabled = Enabled 02085: End Sub 02086: Private Sub btRefresh4_Click() 02087: lsST44.Refresh , , , True 02088: End Sub 02089: Private Sub btSaveCols4_Click() 02090: If MsgBox("Сохранить расположение и ширину столбцов для пользователя " + Users(CurrentUser).Name + "?", vbQuestion + vbYesNo, "Вид") <> vbYes Then Exit Sub 02091: SaveVar 6020, lsST44.GetSortWidth 02092: End Sub 02093: Private Sub btStepLeft4_Click() 02094: lsST44.ShiftCurColLeft 02095: End Sub 02096: Private Sub btStepRight4_Click() 02097: lsST44.ShiftCurColRight 02098: End Sub 02099: Private Sub btSelectionCopy4_Click() 02100: lsST44.SelectionCopy 02101: End Sub 02102: ' 02103: ' 02104: '*************************************************** 02105: 'Пятый таб - Сообщения по заказу 02106: '*************************************************** 02107: ' 02108: Private Sub InitTab5() 02109: StartTab5 = True 02110: LB_Monitor.MessageOn "Загрузка...", 1, 0 02111: DoEvents 02112: Call FN_Grid.SetStructureSTGrid1(lsST55, "SY_MG_ST_AdmForm5", cbSort5, 6021) 02113: cbSort5.ListIndex = FindByValue(cbSort5, "Дата") 02114: lsST55.CurrentTab = 1 02115: LB_Monitor.MessageOff 02116: StartTab5 = False 02117: End Sub 02118: Private Sub lsST55_BeforeRefresh(Cancel As Boolean) 02119: NumZakaz = SY_MGZakaz1.GetZakazNumber 02120: End Sub 02121: Private Sub lsst55_PrepareRowsList(EOF As Boolean) 02122: lsST55.RecSet = SPr("SY_MG_MessageReadAdmin5", "@CurrentUser", CurrentUser, "@Sort", cbSort3.Text, "@Desc", chSort3.Value, "@Zakaz", NumZakaz) 02123: End Sub 02124: Private Sub lsst55_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 02125: Call Format_SY_MG(lsST55, ColumnTag, Code, Text) 02126: End Sub 02127: Private Sub lsst55_CellDoubleClick(Code As String, sID As Long, CellLeft As Long, CellTop As Long, CellWidth As Long, CellHeight As Long, CellText As String) 02128: FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsST55.CurrentID 02129: End Sub 02130: Private Sub cbSort5_Click() 02131: If StartTab5 Then Exit Sub 02132: lsST55.Refresh 02133: End Sub 02134: Private Sub chSort5_Click() 02135: If StartTab5 Then Exit Sub 02136: lsST55.Refresh 02137: End Sub 02138: '------------------------- 02139: Private Sub btFind5_Click() 02140: lsST55.Find 02141: End Sub 02142: Private Sub btFindAgain5_Click() 02143: lsST55.FindAgain 02144: End Sub 02145: Private Sub lsst55_FindAgainEnabled(Enabled As Boolean) 02146: btFindAgain5.Enabled = Enabled 02147: End Sub 02148: Private Sub btRefresh5_Click() 02149: lsST55.Refresh , , , True 02150: End Sub 02151: Private Sub btSaveCols5_Click() 02152: If MsgBox("Сохранить расположение и ширину столбцов для пользователя " + Users(CurrentUser).Name + "?", vbQuestion + vbYesNo, "Вид") <> vbYes Then Exit Sub 02153: SaveVar 6021, lsST55.GetSortWidth 02154: End Sub 02155: Private Sub btStepLeft5_Click() 02156: lsST55.ShiftCurColLeft 02157: End Sub 02158: Private Sub btStepRight5_Click() 02159: lsST55.ShiftCurColRight 02160: End Sub 02161: Private Sub btSelectionCopy5_Click() 02162: lsST55.SelectionCopy 02163: End Sub 02164: ' 02165: VERSION 5.00 02166: Begin VB.Form SY_TXTView 02167: AutoRedraw = -1 'True 02168: Caption = "Текст сообщения " 02169: ClientHeight = 4020 02170: ClientLeft = 60 02171: ClientTop = 345 02172: ClientWidth = 9975 02173: Icon = "SY_TXTView.frx":0000 02174: LinkTopic = "Form1" 02175: MaxButton = 0 'False 02176: MDIChild = -1 'True 02177: MinButton = 0 'False 02178: ScaleHeight = 9334.904 02179: ScaleMode = 0 'User 02180: ScaleWidth = 9975 02181: Begin VB.CommandButton btCancel 02182: Appearance = 0 'Flat 02183: BeginProperty Font 02184: Name = "MS Sans Serif" 02185: Size = 8.25 02186: Charset = 204 02187: Weight = 700 02188: Underline = 0 'False 02189: Italic = 0 'False 02190: Strikethrough = 0 'False 02191: EndProperty 02192: Height = 735 02193: Left = 9360 02194: Picture = "SY_TXTView.frx":014A 02195: Style = 1 'Graphical 02196: TabIndex = 2 02197: Tag = "Lock" 02198: Top = 3000 02199: Width = 495 02200: End 02201: Begin VB.CheckBox btSpread 02202: BeginProperty Font 02203: Name = "Small Fonts" 02204: Size = 3.75 02205: Charset = 204 02206: Weight = 400 02207: Underline = 0 'False 02208: Italic = 0 'False 02209: Strikethrough = 0 'False 02210: EndProperty 02211: Height = 132 02212: Left = 9600 02213: Style = 1 'Graphical 02214: TabIndex = 1 02215: TabStop = 0 'False 02216: Top = 0 02217: Value = 1 'Checked 02218: Width = 372 02219: End 02220: Begin VB.TextBox Text1 02221: BackColor = &H80000000& 02222: Height = 2655 02223: Left = 120 02224: MultiLine = -1 'True 02225: ScrollBars = 2 'Vertical 02226: TabIndex = 0 02227: Top = 120 02228: Width = 9735 02229: End 02230: End 02231: Attribute VB_Name = "SY_TXTView" 02232: Attribute VB_GlobalNameSpace = False 02233: Attribute VB_Creatable = False 02234: Attribute VB_PredeclaredId = True 02235: Attribute VB_Exposed = False 02236: 'Arg1 - отображаемый текст 02237: 'Arg2 - номер сообщения 02238: Option Explicit 02239: Private SelfVal As Integer 02240: Public Property Let Self(slf As Integer) 02241: SelfVal = slf 02242: End Property 02243: Public Property Get Self() As Integer 02244: Self = SelfVal 02245: End Property 02246: Public Property Get SelfAlignment() As FCEFormAlignmentConstants 02247: SelfAlignment = fceSizableWindow 02248: End Property 02249: Public Property Get SelfFlags() As FCEFlags 02250: SelfFlags = 0 02251: End Property 02252: Public Property Get ButtonCaption() As String 02253: ButtonCaption = "Текст Сообщения" 02254: End Property 02255: Public Property Get TaskBarIndex() As Integer 02256: TaskBarIndex = 2 02257: End Property 02258: Public Property Get TaskBarIcon() As String 02259: TaskBarIcon = "EDITDOC" 02260: End Property 02261: Private Sub btCancel_Click() 02262: Unload Me 02263: End Sub 02264: Public Property Get MinWidth() As Long 02265: MinWidth = 10905 02266: End Property 02267: Public Property Get MinHeight() As Long 02268: MinHeight = 6000 02269: End Property 02270: Private Sub btSpread_Click() 02271: FCE.CheckResize Me, True 02272: End Sub 02273: Private Sub Form_Resize() 02274: FCE.CheckResize Me, False 02275: End Sub 02276: Public Sub AfterResize() 02277: Text1.Left = Me.ScaleLeft + 50 02278: Text1.Top = Me.ScaleTop + 400 02279: Text1.Height = Me.ScaleHeight - 3000 02280: Text1.Width = Me.ScaleWidth - 200 02281: btSpread.Top = Me.ScaleTop + 50 02282: btSpread.Left = Me.ScaleWidth - 395 02283: btCancel.Left = Me.ScaleWidth - 800 02284: btCancel.Top = Me.ScaleHeight - 2000 02285: End Sub 02286: Public Function DisableInnerResizing() As Boolean 02287: DisableInnerResizing = True 02288: End Function 02289: 02290: '============================ fce work =============================== 02291: Private Sub Form_Activate() 02292: Select Case FCE.sActivate(Me) 02293: ' Case 5 02294: End Select 02295: End Sub 02296: Private Sub Form_Unload(Cancel As Integer) 02297: FCE.Ret Me, 1 02298: End Sub 02299: Public Sub Loading() 02300: Text1.Text = FCE.Arg1(Me) 02301: Me.Caption = Me.Caption & CStr(FCE.Arg2(Me)) 02302: End Sub 02303: VERSION 5.00 02304: Object = "{39F22C0A-9929-11D7-B245-0050228AFF80}#12.0#0"; "SPctlib_SQL.ocx" 02305: Begin VB.Form SY_MGRead 02306: AutoRedraw = -1 'True 02307: BorderStyle = 1 'Fixed Single 02308: Caption = "Сообщение" 02309: ClientHeight = 4185 02310: ClientLeft = 45 02311: ClientTop = 330 02312: ClientWidth = 9975 02313: ForeColor = &H00000000& 02314: Icon = "SY_MGRead.frx":0000 02315: LinkTopic = "Form1" 02316: LockControls = -1 'True 02317: MaxButton = 0 'False 02318: MDIChild = -1 'True 02319: MinButton = 0 'False 02320: ScaleHeight = 9718.054 02321: ScaleMode = 0 'User 02322: ScaleWidth = 9975 02323: Begin SPctlib.NumericBoxST FreezeTime 02324: Height = 285 02325: Left = 2760 02326: TabIndex = 17 02327: Top = 3600 02328: Width = 855 02329: _ExtentX = 1508 02330: _ExtentY = 503 02331: Text = " 5" 02332: ForeColor = -2147483640 02333: MinValue = 1 02334: MaxValue = 15 02335: End 02336: Begin VB.CommandButton btCancel 02337: Appearance = 0 'Flat 02338: BeginProperty Font 02339: Name = "MS Sans Serif" 02340: Size = 8.25 02341: Charset = 204 02342: Weight = 700 02343: Underline = 0 'False 02344: Italic = 0 'False 02345: Strikethrough = 0 'False 02346: EndProperty 02347: Height = 735 02348: Left = 9360 02349: Picture = "SY_MGRead.frx":014A 02350: Style = 1 'Graphical 02351: TabIndex = 14 02352: Tag = "Lock" 02353: Top = 3240 02354: Width = 495 02355: End 02356: Begin VB.CommandButton btZakaz 02357: Caption = "Заказ" 02358: Enabled = 0 'False 02359: Height = 375 02360: Left = 8640 02361: TabIndex = 9 02362: Top = 0 02363: Width = 1215 02364: End 02365: Begin VB.CommandButton btToMsg 02366: Caption = "К сообщению" 02367: Enabled = 0 'False 02368: Height = 375 02369: Left = 8640 02370: TabIndex = 8 02371: Top = 360 02372: Width = 1215 02373: End 02374: Begin VB.CommandButton btOK 02375: BackColor = &H80000000& 02376: Caption = "OK" 02377: BeginProperty Font 02378: Name = "MS Sans Serif" 02379: Size = 9.75 02380: Charset = 204 02381: Weight = 700 02382: Underline = 0 'False 02383: Italic = 0 'False 02384: Strikethrough = 0 'False 02385: EndProperty 02386: Height = 735 02387: Left = 2400 02388: MaskColor = &H00000000& 02389: Style = 1 'Graphical 02390: TabIndex = 7 02391: Top = 2040 02392: Width = 7455 02393: End 02394: Begin VB.CommandButton btReplay 02395: Caption = "Ответить" 02396: Height = 375 02397: Left = 120 02398: TabIndex = 6 02399: Top = 2400 02400: Width = 2055 02401: End 02402: Begin VB.CommandButton btTask 02403: Caption = "Выполнено" 02404: Height = 375 02405: Left = 120 02406: TabIndex = 5 02407: Top = 2040 02408: Width = 2055 02409: End 02410: Begin VB.CommandButton btInfo 02411: Caption = "Инфо" 02412: Height = 375 02413: Left = 8640 02414: TabIndex = 4 02415: Top = 720 02416: Width = 1215 02417: End 02418: Begin VB.CommandButton btFreeze 02419: Caption = "Отложить" 02420: Height = 375 02421: Left = 120 02422: TabIndex = 3 02423: Top = 3480 02424: Width = 2055 02425: End 02426: Begin VB.CommandButton btGetBrowser 02427: Caption = "Крупнее" 02428: Enabled = 0 'False 02429: Height = 375 02430: Left = 7560 02431: TabIndex = 2 02432: Top = 0 02433: Width = 855 02434: End 02435: Begin VB.TextBox Text1 02436: BackColor = &H80000000& 02437: Height = 735 02438: Left = 960 02439: MultiLine = -1 'True 02440: ScrollBars = 2 'Vertical 02441: TabIndex = 1 02442: Top = 360 02443: Width = 6375 02444: End 02445: Begin VB.CommandButton btGetTXT 02446: Caption = "Крупнее" 02447: Enabled = 0 'False 02448: Height = 375 02449: Left = 6480 02450: TabIndex = 0 02451: Top = 0 02452: Width = 855 02453: End 02454: Begin VB.Line Line3 02455: BorderColor = &H00800000& 02456: X1 = 120 02457: X2 = 9840 02458: Y1 = 3343.846 02459: Y2 = 3343.846 02460: End 02461: Begin VB.Line Line2 02462: BorderColor = &H00800000& 02463: X1 = 2400 02464: X2 = 9840 02465: Y1 = 6966.347 02466: Y2 = 6966.347 02467: End 02468: Begin VB.Label Label3 02469: Caption = "мин" 02470: Height = 255 02471: Left = 3720 02472: TabIndex = 16 02473: Top = 3600 02474: Width = 375 02475: End 02476: Begin VB.Label Label1 02477: Caption = "на" 02478: Height = 255 02479: Left = 2520 02480: TabIndex = 15 02481: Top = 3600 02482: Width = 255 02483: End 02484: Begin VB.Label lbFrom 02485: Caption = "Отправитель" 02486: BeginProperty Font 02487: Name = "MS Sans Serif" 02488: Size = 8.25 02489: Charset = 204 02490: Weight = 700 02491: Underline = 0 'False 02492: Italic = 0 'False 02493: Strikethrough = 0 'False 02494: EndProperty 02495: ForeColor = &H00800000& 02496: Height = 255 02497: Left = 1320 02498: TabIndex = 13 02499: Top = 120 02500: Width = 3015 02501: End 02502: Begin VB.Label lbDate 02503: Caption = "Дата" 02504: BeginProperty Font 02505: Name = "MS Sans Serif" 02506: Size = 8.25 02507: Charset = 204 02508: Weight = 700 02509: Underline = 0 'False 02510: Italic = 0 'False 02511: Strikethrough = 0 'False 02512: EndProperty 02513: ForeColor = &H00800000& 02514: Height = 255 02515: Left = 4320 02516: TabIndex = 12 02517: Top = 120 02518: Width = 2175 02519: End 02520: Begin VB.Line Line1 02521: BorderColor = &H00800000& 02522: X1 = 120 02523: X2 = 9840 02524: Y1 = 3622.5 02525: Y2 = 3622.5 02526: End 02527: Begin VB.Label Label2 02528: Caption = "Ваши действия:" 02529: ForeColor = &H00800000& 02530: Height = 255 02531: Left = 120 02532: TabIndex = 11 02533: Top = 1680 02534: Width = 1335 02535: End 02536: Begin VB.Image Image1 02537: Height = 840 02538: Left = 0 02539: Picture = "SY_MGRead.frx":0513 02540: Top = 240 02541: Width = 900 02542: End 02543: Begin VB.Label Label4 02544: Caption = "от" 02545: ForeColor = &H00800000& 02546: Height = 255 02547: Left = 960 02548: TabIndex = 10 02549: Top = 120 02550: Width = 375 02551: End 02552: Begin VB.Image Image2 02553: BorderStyle = 1 'Fixed Single 02554: Height = 735 02555: Left = 7560 02556: Stretch = -1 'True 02557: Top = 360 02558: Width = 855 02559: End 02560: End 02561: Attribute VB_Name = "SY_MGRead" 02562: Attribute VB_GlobalNameSpace = False 02563: Attribute VB_Creatable = False 02564: Attribute VB_PredeclaredId = True 02565: Attribute VB_Exposed = False 02566: ' 02567: Option Explicit 02568: ' 02569: Dim tm As ADODB.Recordset 02570: Dim xFileName As String 02571: Dim NotReading As Boolean 'если так не прочитал 02572: ' 02573: Private SelfVal As Integer 02574: Public Property Let Self(slf As Integer) 02575: SelfVal = slf 02576: End Property 02577: Public Property Get Self() As Integer 02578: Self = SelfVal 02579: End Property 02580: Public Property Get SelfAlignment() As FCEFormAlignmentConstants 02581: SelfAlignment = fceCenterWindow 02582: End Property 02583: Public Property Get SelfFlags() As FCEFlags 02584: SelfFlags = 0 02585: End Property 02586: Public Property Get ButtonCaption() As String 02587: ButtonCaption = "Сообщение" 02588: End Property 02589: Public Property Get TaskBarIndex() As Integer 02590: TaskBarIndex = 2 02591: End Property 02592: Public Property Get TaskBarIcon() As String 02593: TaskBarIcon = "EDITDOC" 02594: End Property 02595: '============================ fce work =============================== 02596: Private Sub Form_Activate() 02597: Select Case FCE.sActivate(Me) 02598: End Select 02599: End Sub 02600: Public Sub Loading() 02601: Me.Caption = "Сообщение " & FCE.Arg1(Me) 02602: Set tm = SPr("SY_MG_MessageReadOne", "@ID", FCE.Arg1(Me), "@CurrentUser", CurrentUser) 02603: lbFrom.Caption = tm("Получатель") 02604: lbDate.Caption = tm("Дата") 02605: Text1.Text = DeNull(tm("Текст сообщения")) 02606: If Len(Text1.Text) > 200 Then btGetTXT.Enabled = True 02607: If tm("Прилагается файл") <> "" Then 02608: btGetBrowser.Enabled = True 02609: Call SyLoadPicture 02610: End If 02611: If tm("Заказ") > 0 Then btZakaz.Enabled = True 02612: If tm("К сообщению") > 0 Then btToMsg.Enabled = True 02613: If IsNull(tm("Комп Получателя")) Then 02614: If tm("Требуется подтверждение") Then 02615: btReplay.Enabled = False 02616: btOK.BackColor = &HFFC0FF 02617: btOK.Caption = "Я прочитал, понял и подтверждаю получение данного сообщения" 02618: Else 02619: btOK.BackColor = &H8000000F 02620: btOK.Caption = "OK" 02621: End If 02622: Else 02623: btOK.BackColor = &H8000000F 02624: btOK.Caption = "Закрыть" 02625: End If 02626: If tm("Задача") Then 02627: btReplay.Enabled = False 02628: If tm("Требуется исполнение") Then 02629: btTask.Enabled = True 02630: Else 02631: btTask.Enabled = False 02632: End If 02633: Else 02634: btTask.Enabled = False 02635: End If 02636: NotReading = True 02637: End Sub 02638: Private Sub SyLoadPicture() 02639: Dim X As Integer, Bufer As String 02640: '"%USERPROFILE%\Local Settings\Temp\" - почему-то не проходит 02641: xFileName = App.Path & "\" & GetFileNameFromPath(tm("Прилагается файл")) 02642: X = FreeFile 02643: Bufer = tm.Fields("FileContent") 02644: Open xFileName For Binary Access Write As #X 02645: Put #X, , Bufer 02646: Close #X 02647: On Error GoTo NoPicture 02648: Image2.Picture = LoadPicture(xFileName) 02649: Exit Sub 02650: NoPicture: 02651: Image2.Picture = LoadPicture("FileAttach.gif") 02652: End Sub 02653: Private Sub btGetBrowser_Click() 02654: If xFileName = "" Then Exit Sub 02655: 'Пусть эксплорер по расширению сам определяет чего делать с файлом 02656: SY_HTMLView.Show 02657: SY_HTMLView.WebBrowser1.Navigate xFileName 02658: SY_HTMLView.Caption = "Просмотр " & xFileName 02659: End Sub 02660: Private Sub btGetTXT_Click() 02661: FCE.sCall Me, "SY_TXTView", 1, 1, tm("Текст сообщения"), tm("ID") 02662: End Sub 02663: Private Sub btToMsg_Click() 02664: FCE.sCall Me, "SY_MGRead", 1, 1, tm("К сообщению") 02665: End Sub 02666: Private Sub btZakaz_Click() 02667: FCE.mCall Me, ZW_OrderCardName(Val(tm("Заказ"))), 1, 2, Val(tm("Заказ")) 02668: End Sub 02669: Private Sub btInfo_Click() 02670: Dim Profile As New Collection 02671: Profile.Add tm("Приоритет") 02672: Profile.Add tm("Время жизни") 02673: Profile.Add tm("Срок жизни") 02674: Profile.Add tm("Время всплытия") 02675: Profile.Add tm("Задача") 02676: Profile.Add tm("Требуется уведомление") 02677: Profile.Add tm("Требуется подтверждение") 02678: Profile.Add tm("Требуется исполнение") 02679: FCE.sCall Me, "SY_MGInfo", 1, 1, tm("SenderID"), , , , , , , , Profile 02680: End Sub 02681: Private Sub btReplay_Click() 02682: NotReading = False 02683: Dim Ret As Integer, MachineName As String 02684: MachineName = GetMachineName() 02685: Ret = SPi("SY_MG_MessageConfirm", "@ID", tm("ID"), "@ComputerName", MachineName, "@CurrentUser", CurrentUser, "@JobComlpete", 0) 02686: Call ConfirmMSG(Ret) 02687: Call SY_MG_QueryRemove(tm("ID")) 02688: FCE.sCall Me, "SY_MGNew", 2, 1, tm("ID"), tm("SenderID") 02689: End Sub 02690: Private Sub btCancel_Click() 'закрыли форму кнопкой 02691: If NotReading Then Call SY_MG_FreezeAdd(tm("ID"), FreezeTime) 02692: Unload Me 02693: End Sub 02694: Private Sub Form_Unload(Cancel As Integer) 'закрыли крестиком 02695: If NotReading Then Call SY_MG_FreezeAdd(tm("ID"), FreezeTime) 02696: FCE.Ret Me, 1 02697: End Sub 02698: Private Sub btOK_Click() 'Закрыли по ОК 02699: NotReading = False 02700: Dim Ret As Integer, MachineName As String 02701: MachineName = GetMachineName() 02702: Ret = SPi("SY_MG_MessageConfirm", "@ID", tm("ID"), "@ComputerName", MachineName, "@CurrentUser", CurrentUser, "@JobComlpete", 0) 02703: Call ConfirmMSG(Ret) 02704: Call SY_MG_QueryRemove(tm("ID")) 02705: Unload Me 02706: End Sub 02707: Private Sub btTask_Click() 02708: NotReading = False 02709: Dim Ret As Integer, MachineName As String 02710: MachineName = GetMachineName() 02711: Ret = SPi("SY_MG_MessageConfirm", "@ID", tm("ID"), "@ComputerName", MachineName, "@CurrentUser", CurrentUser, "@JobComlpete", 1) 02712: Call ConfirmMSG(Ret) 02713: Call SY_MG_QueryRemove(tm("ID")) 02714: Unload Me 02715: End Sub 02716: Private Sub ConfirmMSG(Ret As Integer) 02717: 'Формирование кода возврата в "SY_MG_MessageConfirm" 02718: 'Return (@Confirm*1 + @Comlpete*2 + @Ret*4) 02719: '--@Confirm=1 при постановке отметки о прочтении 02720: '--@Comlpete=1 при постановке отметки об исполнении 02721: '--@Ret=1 нотификация не отправлена 02722: Select Case Ret 02723: Case 0 02724: MsgBox ("Состояние невозможно.Отметка о чтении и исполнении не проставлена, а нотификация отправлена.") 02725: Case 1 02726: MsgBox ("Отметка о чтении. Нотификация отправлена.") 02727: Case 2 02728: MsgBox ("Отметка об исполнении. Нотификация отправлена.") 02729: Case 3 02730: MsgBox ("Отметка о чтениии и исполнении. Нотификация отправлена.") 02731: Case 4 02732: MsgBox ("Отметок о чтении и исполнении нет. Нотификации нет.") 02733: Case 5 02734: MsgBox ("Отметка о чтении. Нотификации нет.") 02735: Case 6 02736: MsgBox ("Отметка об исполнении. Нотификации нет.") 02737: Case 7 02738: MsgBox ("Отметка о чтении и исполнении. Нотификации нет.") 02739: End Select 02740: End Sub 02741: Private Sub btFreeze_Click() 02742: Unload Me 02743: End Sub 02744: 02745: VERSION 5.00 02746: Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx" 02747: Object = "{39F22C0A-9929-11D7-B245-0050228AFF80}#12.0#0"; "SPctlib_SQL.ocx" 02748: Begin VB.Form SY_MGNew 02749: AutoRedraw = -1 'True 02750: BorderStyle = 1 'Fixed Single 02751: Caption = "SY_MGNew" 02752: ClientHeight = 6870 02753: ClientLeft = 45 02754: ClientTop = 330 02755: ClientWidth = 9975 02756: Icon = "SY_MGNew.frx":0000 02757: LinkTopic = "Form1" 02758: LockControls = -1 'True 02759: MaxButton = 0 'False 02760: MDIChild = -1 'True 02761: MinButton = 0 'False 02762: ScaleHeight = 6870 02763: ScaleWidth = 9975 02764: Begin VB.OptionButton opComp 02765: Caption = "Компьютеру" 02766: ForeColor = &H00800000& 02767: Height = 255 02768: Left = 1680 02769: TabIndex = 29 02770: Top = 360 02771: Width = 1455 02772: End 02773: Begin VB.OptionButton OpUser 02774: Caption = "Пользователю" 02775: ForeColor = &H00800000& 02776: Height = 255 02777: Left = 1680 02778: TabIndex = 28 02779: Top = 120 02780: Value = -1 'True 02781: Width = 1575 02782: End 02783: Begin MSComDlg.CommonDialog OpenFile1 02784: Left = 7440 02785: Top = 3960 02786: _ExtentX = 847 02787: _ExtentY = 847 02788: _Version = 393216 02789: End 02790: Begin SVA.SY_MGProfile SY_MGProfile1 02791: Height = 1815 02792: Left = 3450 02793: TabIndex = 27 02794: Top = 120 02795: Width = 6375 02796: _ExtentX = 11245 02797: _ExtentY = 3201 02798: End 02799: Begin VB.CommandButton btOpen 02800: Caption = "Открыть" 02801: Height = 255 02802: Left = 1200 02803: TabIndex = 26 02804: Top = 2520 02805: Width = 975 02806: End 02807: Begin SVA.SY_MGZakaz SY_MGZakaz1 02808: Height = 375 02809: Left = 3450 02810: TabIndex = 25 02811: Top = 1965 02812: Width = 2775 02813: _ExtentX = 4471 02814: _ExtentY = 661 02815: End 02816: Begin SVA.SY_MGFile SY_MGFile1 02817: Height = 615 02818: Left = 6570 02819: TabIndex = 24 02820: Top = 1920 02821: Width = 3375 02822: _ExtentX = 5953 02823: _ExtentY = 1085 02824: End 02825: Begin SPctlib.FlexGridST lsUser 02826: Height = 1575 02827: Left = 120 02828: TabIndex = 22 02829: Top = 600 02830: Width = 3135 02831: _ExtentX = 5530 02832: _ExtentY = 2778 02833: Mode = 2 02834: DisableDblClkRefresh= -1 'True 02835: End 02836: Begin VB.CheckBox chUser 02837: BackColor = &H8000000B& 02838: Caption = "Рассылка" 02839: ForeColor = &H00800000& 02840: Height = 255 02841: Left = 120 02842: TabIndex = 21 02843: Top = 360 02844: Width = 1095 02845: End 02846: Begin VB.TextBox txMessage 02847: BackColor = &H00E0E0E0& 02848: Height = 735 02849: Left = 120 02850: MultiLine = -1 'True 02851: ScrollBars = 2 'Vertical 02852: TabIndex = 20 02853: Top = 2760 02854: Width = 9735 02855: End 02856: Begin VB.Frame frToList2 02857: Height = 2025 02858: Left = 9600 02859: TabIndex = 11 02860: Top = 4680 02861: Width = 285 02862: Begin VB.CommandButton btSelectionCopy 02863: Height = 255 02864: Left = 0 02865: MaskColor = &H00FF00FF& 02866: Picture = "SY_MGNew.frx":014A 02867: Style = 1 'Graphical 02868: TabIndex = 18 02869: ToolTipText = "Скопировать выделение" 02870: Top = 1785 02871: UseMaskColor = -1 'True 02872: Width = 270 02873: End 02874: Begin VB.CommandButton btSaveCols 02875: Height = 255 02876: Left = 0 02877: MaskColor = &H00FF00FF& 02878: Picture = "SY_MGNew.frx":024C 02879: Style = 1 'Graphical 02880: TabIndex = 17 02881: ToolTipText = "Сохранить расположение и ширину столбцов" 02882: Top = 510 02883: UseMaskColor = -1 'True 02884: Width = 270 02885: End 02886: Begin VB.CommandButton btStepRight 02887: Height = 255 02888: Left = 0 02889: MaskColor = &H00FF00FF& 02890: Picture = "SY_MGNew.frx":034E 02891: Style = 1 'Graphical 02892: TabIndex = 16 02893: ToolTipText = "Сдвинуть столбец вправо" 02894: Top = 255 02895: UseMaskColor = -1 'True 02896: Width = 270 02897: End 02898: Begin VB.CommandButton btStepLeft 02899: Height = 255 02900: Left = 0 02901: MaskColor = &H00FF00FF& 02902: Picture = "SY_MGNew.frx":0450 02903: Style = 1 'Graphical 02904: TabIndex = 15 02905: ToolTipText = "Сдвинуть столбец влево" 02906: Top = 0 02907: UseMaskColor = -1 'True 02908: Width = 270 02909: End 02910: Begin VB.CommandButton btFindAgain 02911: Enabled = 0 'False 02912: Height = 255 02913: Left = 0 02914: MaskColor = &H00FF00FF& 02915: Picture = "SY_MGNew.frx":0552 02916: Style = 1 'Graphical 02917: TabIndex = 14 02918: ToolTipText = "Поиск далее" 02919: Top = 1530 02920: UseMaskColor = -1 'True 02921: Width = 270 02922: End 02923: Begin VB.CommandButton btFind 02924: Height = 255 02925: Left = 0 02926: MaskColor = &H00FF00FF& 02927: Picture = "SY_MGNew.frx":0654 02928: Style = 1 'Graphical 02929: TabIndex = 13 02930: ToolTipText = "Поиск" 02931: Top = 1275 02932: UseMaskColor = -1 'True 02933: Width = 270 02934: End 02935: Begin VB.CommandButton btRefresh 02936: Height = 255 02937: Left = 0 02938: MaskColor = &H00FF00FF& 02939: Picture = "SY_MGNew.frx":0756 02940: Style = 1 'Graphical 02941: TabIndex = 12 02942: ToolTipText = "Обновить" 02943: Top = 765 02944: UseMaskColor = -1 'True 02945: Width = 270 02946: End 02947: Begin SPctlib.CheckBoxST btDisableRefresh 02948: Height = 255 02949: Left = 0 02950: TabIndex = 19 02951: Top = 1020 02952: Width = 270 02953: _ExtentX = 476 02954: _ExtentY = 450 02955: BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 02956: Name = "MS Sans Serif" 02957: Size = 8.25 02958: Charset = 204 02959: Weight = 400 02960: Underline = 0 'False 02961: Italic = 0 'False 02962: Strikethrough = 0 'False 02963: EndProperty 02964: Caption = "" 02965: DownPicture = "SY_MGNew.frx":0858 02966: MaskColor = 16711935 02967: Picture = "SY_MGNew.frx":096A 02968: UseMaskColor = -1 'True 02969: ToolTip = "Запретить обновление" 02970: Style = 1 02971: End 02972: End 02973: Begin VB.CheckBox LogSort 02974: Caption = "Обр." 02975: Height = 255 02976: Left = 4800 02977: TabIndex = 10 02978: Top = 4080 02979: Value = 1 'Checked 02980: Width = 855 02981: End 02982: Begin VB.CheckBox btSpread 02983: BeginProperty Font 02984: Name = "Small Fonts" 02985: Size = 3.75 02986: Charset = 204 02987: Weight = 400 02988: Underline = 0 'False 02989: Italic = 0 'False 02990: Strikethrough = 0 'False 02991: EndProperty 02992: Height = 132 02993: Left = 10350 02994: Style = 1 'Graphical 02995: TabIndex = 0 02996: TabStop = 0 'False 02997: Top = 40 02998: Value = 1 'Checked 02999: Width = 372 03000: End 03001: Begin VB.ComboBox cbSetSort 03002: Height = 315 03003: Left = 3720 03004: Style = 2 'Dropdown List 03005: TabIndex = 8 03006: Top = 4320 03007: Width = 2415 03008: End 03009: Begin SPctlib.FlexGridST lsLog 03010: Height = 2055 03011: Left = 120 03012: TabIndex = 6 03013: Top = 4680 03014: Width = 9375 03015: _ExtentX = 16536 03016: _ExtentY = 3625 03017: Mode = 2 03018: TabsCount = 0 03019: DisableDblClkRefresh= -1 'True 03020: End 03021: Begin SPctlib.DateBoxST DateTo 03022: Height = 315 03023: Left = 1920 03024: TabIndex = 5 03025: Top = 4320 03026: Width = 1695 03027: _ExtentX = 2990 03028: _ExtentY = 556 03029: Value = "" 03030: End 03031: Begin SPctlib.DateBoxST DateFrom 03032: Height = 315 03033: Left = 120 03034: TabIndex = 4 03035: Top = 4320 03036: Width = 1815 03037: _ExtentX = 3201 03038: _ExtentY = 556 03039: Value = "" 03040: End 03041: Begin VB.CommandButton btOK 03042: Appearance = 0 'Flat 03043: BeginProperty Font 03044: Name = "MS Sans Serif" 03045: Size = 8.25 03046: Charset = 204 03047: Weight = 700 03048: Underline = 0 'False 03049: Italic = 0 'False 03050: Strikethrough = 0 'False 03051: EndProperty 03052: Height = 855 03053: Left = 8400 03054: Picture = "SY_MGNew.frx":0A7C 03055: Style = 1 'Graphical 03056: TabIndex = 9 03057: Top = 3720 03058: Width = 915 03059: End 03060: Begin VB.CommandButton btCancel 03061: Appearance = 0 'Flat 03062: BeginProperty Font 03063: Name = "MS Sans Serif" 03064: Size = 8.25 03065: Charset = 204 03066: Weight = 700 03067: Underline = 0 'False 03068: Italic = 0 'False 03069: Strikethrough = 0 'False 03070: EndProperty 03071: Height = 855 03072: Left = 9360 03073: Picture = "SY_MGNew.frx":0FE9 03074: Style = 1 'Graphical 03075: TabIndex = 1 03076: Tag = "Lock" 03077: Top = 3720 03078: Width = 495 03079: End 03080: Begin VB.Label LenMessage 03081: ForeColor = &H00800000& 03082: Height = 255 03083: Left = 2280 03084: TabIndex = 30 03085: Top = 2520 03086: Width = 1695 03087: End 03088: Begin VB.Line Line1 03089: BorderColor = &H00800000& 03090: X1 = 120 03091: X2 = 8040 03092: Y1 = 3840 03093: Y2 = 3840 03094: End 03095: Begin VB.Label Label2 03096: Caption = "Сообщение" 03097: ForeColor = &H00800000& 03098: Height = 255 03099: Left = 240 03100: TabIndex = 23 03101: Top = 2520 03102: Width = 1095 03103: End 03104: Begin VB.Label Label10 03105: Caption = "Сортировать" 03106: ForeColor = &H00800000& 03107: Height = 255 03108: Left = 3720 03109: TabIndex = 7 03110: Top = 4080 03111: Width = 1515 03112: End 03113: Begin VB.Label Label3 03114: Caption = "Журнал сообщений:" 03115: BeginProperty Font 03116: Name = "MS Sans Serif" 03117: Size = 8.25 03118: Charset = 204 03119: Weight = 700 03120: Underline = 0 'False 03121: Italic = 0 'False 03122: Strikethrough = 0 'False 03123: EndProperty 03124: ForeColor = &H00800000& 03125: Height = 255 03126: Left = 120 03127: TabIndex = 3 03128: Top = 4080 03129: Width = 2115 03130: End 03131: Begin VB.Label Label1 03132: Caption = "Кому:" 03133: BeginProperty Font 03134: Name = "MS Sans Serif" 03135: Size = 8.25 03136: Charset = 204 03137: Weight = 700 03138: Underline = 0 'False 03139: Italic = 0 'False 03140: Strikethrough = 0 'False 03141: EndProperty 03142: ForeColor = &H00800000& 03143: Height = 255 03144: Left = 120 03145: TabIndex = 2 03146: Top = 120 03147: Width = 1035 03148: End 03149: End 03150: Attribute VB_Name = "SY_MGNew" 03151: Attribute VB_GlobalNameSpace = False 03152: Attribute VB_Creatable = False 03153: Attribute VB_PredeclaredId = True 03154: Attribute VB_Exposed = False 03155: 'Instr=2 03156: 'arg1 - номер связанного сообщения 03157: 'arg2 - SenderID 03158: ' 03159: Option Explicit 03160: 03161: Dim tm As ADODB.Recordset 03162: Dim RecipientType As Integer 03163: Dim LenOverFlow As Boolean 03164: '=============================== fce ================================== 03165: Private SelfVal As Integer 03166: Public Property Let Self(slf As Integer) 03167: SelfVal = slf 03168: End Property 03169: Public Property Get Self() As Integer 03170: Self = SelfVal 03171: End Property 03172: Public Property Get SelfAlignment() As FCEFormAlignmentConstants 03173: SelfAlignment = fceCenterWindow 03174: End Property 03175: Public Property Get SelfFlags() As FCEFlags 03176: SelfFlags = 0 03177: End Property 03178: Public Property Get ButtonCaption() As String 03179: ButtonCaption = "Кошельки" 03180: End Property 03181: Public Property Get TaskBarIndex() As Integer 03182: TaskBarIndex = 1 03183: End Property 03184: Public Property Get TaskBarIcon() As String 03185: TaskBarIcon = "EDITDOC" 03186: End Property 03187: 03188: 03189: '============================ fce work =============================== 03190: Private Sub Form_Activate() 03191: Select Case FCE.sActivate(Me) 03192: 'Case 5 03193: ' If FCE.Val0(Me) = 1 Then 03194: ' Unload Me 03195: ' Else 03196: ' FN_CurrentUser = FCE.Val1(Me) 03197: ' Call PrepareForm 03198: ' End If 03199: ' Case Else 03200: ' lsLog.Refresh , , True 03201: End Select 03202: End Sub 03203: 03204: 03205: Private Sub Form_Terminate() 03206: Set tm = Nothing 03207: End Sub 03208: Private Sub Form_Unload(Cancel As Integer) 03209: Set tm = Nothing 03210: FCE.Ret Me, 1 03211: End Sub 03212: ' 03213: 'Начальная инициализация формы 03214: ' 03215: Public Sub Loading() 03216: LB_Monitor.MessageOn "Загрузка...", 1, 0 03217: DoEvents 03218: ' 03219: DateFrom.Value = Now - 30 03220: DateTo.Value = Now + 1 03221: chUser.Value = Unchecked 03222: Call OpUser_Click 'машины или юзера 03223: Call chUser_Click 'список пользователей 03224: Call SY_MGProfile1.InitPofile(CurrentUser, True) 03225: Call SetStructureSTGrid1(lsLog, "SY_MG_ST_NewForm", cbSetSort, 6015) 03226: lsLog.CurrentTab = 1 03227: If FCE.Instr(Me) = 2 Then 03228: lsUser.Refresh "sid", FCE.Arg2(Me) 03229: End If 03230: ' 03231: LB_Monitor.MessageOff 03232: End Sub 03233: Private Sub OpUser_Click() 03234: RecipientType = 0 03235: End Sub 03236: Private Sub opComp_Click() 03237: MsgBox ("Sorry, рассылка компьютеру пока не реализована") 03238: OpUser.Value = True 03239: 'RecipientType = 1 03240: End Sub 03241: ' 03242: '------------------------------- таблица юзеров ------------------------------- 03243: ' 03244: Private Sub chUser_Click() 03245: lsUser.TabsCount = 0 03246: If chUser.Value = 0 Then 03247: Call SetStructureSTGrid1(lsUser, "SY_MG_ST_User", Nothing) 03248: Else 03249: Call SetStructureSTGrid1(lsUser, "SY_MG_ST_User1", Nothing) 03250: End If 03251: lsUser.CurrentTab = 1 03252: End Sub 03253: Private Sub txMessage_Change() 03254: LenMessage = Format(Len(txMessage), "#,###") & " символов." 03255: If Len(txMessage) > 3500 Then LenOverFlow = True 03256: End Sub 03257: Private Sub btOpen_Click() 03258: LenOverFlow = False 03259: txMessage.SetFocus 03260: OpenFile1.Filter = "Текстовый файл (*.txt)" 03261: OpenFile1.ShowOpen 03262: If OpenFile1.FileName = "" Then Exit Sub 03263: Dim X As Integer, Str1 As String 03264: X = FreeFile 03265: Open OpenFile1.FileName For Input Access Read Shared As #X 03266: LB_Monitor.MessageOn "Загрузка...", 1, 0 03267: DoEvents 03268: Line Input #X, Str1 03269: If Asc(Str1) = 239 Or Asc(Str1) = 255 Then 03270: MsgBox ("Sorry, пока поддерживается только ANSI-кодировка. UTF8 и Unicode в следующем релизе") 03271: Exit Sub 03272: End If 03273: txMessage = txMessage + Str1 + vbCrLf 03274: Do While Not EOF(X) 03275: Line Input #X, Str1 03276: If Not LenOverFlow Then 03277: txMessage = txMessage + Str1 + vbCrLf 03278: Else 03279: MsgBox ("Sorry,Эта версия не поддерживает отправку более 3500 символов.") 03280: Exit Do 03281: End If 03282: Loop 03283: Close #X 03284: LB_Monitor.MessageOff 03285: End Sub 03286: Private Sub btOK_Click() 03287: Dim iPriority As Integer, iLivetime As Integer, iLiveTimeType As Integer, iPopUpTime As Integer, IsTask As Boolean, IsTaskReplay As Boolean, IsAccept As Boolean, IsConfirmNeeded As Boolean, IsConfirm As Boolean 03288: Dim sFilename As String, lNumZakaz As Long, Ret As Integer, MachineName As String, sFileContent As String, ToMsg As Integer 03289: Call SY_MGProfile1.GetProfile(iPriority, iLivetime, iLiveTimeType, iPopUpTime, IsTask, IsTaskReplay, IsAccept, IsConfirmNeeded) 03290: Call SY_MGFile1.GetFileName(sFilename, sFileContent) 03291: lNumZakaz = SY_MGZakaz1.GetZakazNumber 03292: MachineName = GetMachineName() 03293: If FCE.Instr(Me) = 2 Then 03294: ToMsg = FCE.Val1(Me) 03295: IsConfirm = True 03296: Else 03297: ToMsg = 0 03298: End If 03299: 'MsgBox (lsUser.CurrentID & vbCrLf & lsUser.CheckBoxed & vbCrLf & CurrentUser & vbCrLf & GetMachineName() & vbCrLf & iPriority & vbCrLf & iLivetime & vbCrLf & iLiveTimeType & vbCrLf & iPopUpTime & vbCrLf & IsTask & vbCrLf & IsTaskReplay & vbCrLf & IsAccept & vbCrLf & IsConfirmNeeded & vbCrLf & sFilename & vbCrLf & txMessage) 03300: If chUser.Value = 0 Then 03301: Ret = SPi("SY_MG_MessageWrite", "@ID", lsUser.CurrentID, "@CurrentUser", CurrentUser, "@MachineName", MachineName, "@txMessage", Left(txMessage, 3500), "@lNumZakaz", lNumZakaz, "@sFilename", sFilename, "@FileContent", sFileContent, "@iPriority", iPriority, "@iLivetime", iLivetime, "@iLiveTimeType", iLiveTimeType, "@iPopUpTime", iPopUpTime, "@IsTask", IsTask, "@IsTaskReplay", IsTaskReplay, "@IsAccept", IsAccept, "@IsConfirmNeeded", IsConfirmNeeded, "@ToMsg", ToMsg, "@RecipientType", RecipientType, "@IsConfirm", IsConfirm, "@IsConfirmJob", 0) 03302: If Ret = 1 Then MsgBox ("Операция недопустима") 03303: Else 03304: On Error GoTo event1 03305: Call PacketST(lsUser, "SY_MG_MessageWrite", "@CurrentUser", CurrentUser, "@MachineName", MachineName, "@txMessage", Left(txMessage, 3500), "@lNumZakaz", lNumZakaz, "@sFilename", sFilename, "@FileContent", sFileContent, "@iPriority", iPriority, "@iLivetime", iLivetime, "@iLiveTimeType", iLiveTimeType, "@iPopUpTime", iPopUpTime, "@IsTask", IsTask, "@IsTaskReplay", IsTaskReplay, "@IsAccept", IsAccept, "@IsConfirmNeeded", IsConfirmNeeded, "@ToMsg", FCE.Arg1(Me), "@RecipientType", RecipientType, "@IsConfirm", IsConfirm, "@IsConfirmJob", 0) 03306: End If 03307: lsLog.Refresh 03308: Exit Sub 03309: event1: MsgBox ("err.number") 03310: End Sub 03311: Private Sub btCancel_Click() 'закрыли форму 03312: Unload Me 03313: End Sub 03314: ' 03315: '---------------------------- 03316: ' 03317: 03318: Private Sub lsLog_CellDoubleClick(Code As String, sID As Long, CellLeft As Long, CellTop As Long, CellWidth As Long, CellHeight As Long, CellText As String) 03319: FCE.mCallSwitch Me, "SY_MGRead", 1, 1, lsLog.CurrentID 03320: End Sub 03321: Private Sub cbSetSort_click() 03322: lsLog.Refresh 03323: End Sub 03324: Private Sub LogSort_Click() 03325: lsLog.Refresh 03326: End Sub 03327: Private Sub DateFrom_DateChanged() 03328: lsLog.Refresh 03329: End Sub 03330: Private Sub DateTo_DateChanged() 03331: lsLog.Refresh 03332: End Sub 03333: ' 03334: '-------------------------- 03335: ' 03336: Private Sub lsUser_PrepareRowsList(EOF As Boolean) 03337: lsUser.RecSet = SPr("SY_MG_User", "@CurrentUser", CurrentUser) 03338: End Sub 03339: Private Sub lsUser_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 03340: Text = DeNull(lsUser.RecSet(Code)) 03341: End Sub 03342: ' 03343: '-------------------------- 03344: ' 03345: 03346: Private Sub lsLog_PrepareRowsList(EOF As Boolean) 03347: lsLog.RecSet = SPr("SY_MG_MessageReadAll", "@CurrentUser", CurrentUser, "@Sort", cbSetSort.Text, "@Desc", LogSort.Value, "@Date1", CDate(DateFrom), "@Date2", CDate(DateTo)) 03348: End Sub 03349: Private Sub lsLog_ReadCell(Code As String, Text As String, Pic As Object, ItemData As Long, Alignment As MSFlexGridLib.AlignmentSettings, ForeColor As stdole.OLE_COLOR, BackColor As stdole.OLE_COLOR, FontName As String, FontSize As Currency, FontBold As Boolean, FontItalic As Boolean, CheckBox As stdole.OLE_TRISTATE, ColumnTag As String) 03350: Call Format_SY_MG(lsLog, ColumnTag, Code, Text) 03351: End Sub 03352: ' 03353: '------------------------- 03354: ' 03355: Private Sub btFind_Click() 03356: lsLog.Find 03357: End Sub 03358: Private Sub btFindAgain_Click() 03359: lsLog.FindAgain 03360: End Sub 03361: Private Sub lsLOg_FindAgainEnabled(Enabled As Boolean) 03362: btFindAgain.Enabled = Enabled 03363: End Sub 03364: Private Sub btRefresh_Click() 03365: lsLog.Refresh , , , True 03366: End Sub 03367: Private Sub btSaveCols_Click() 03368: If MsgBox("Сохранить расположение и ширину столбцов для пользователя " + Users(CurrentUser).Name + "?", vbQuestion + vbYesNo, "Вид") <> vbYes Then Exit Sub 03369: SaveVar 6013, lsLog.GetSortWidth 03370: End Sub 03371: Private Sub btStepLeft_Click() 03372: lsLog.ShiftCurColLeft 03373: End Sub 03374: Private Sub btStepRight_Click() 03375: lsLog.ShiftCurColRight 03376: End Sub 03377: Private Sub btSelectionCopy_Click() 03378: lsLog.SelectionCopy 03379: End Sub 03380: ' 03381: 03382: VERSION 5.00 03383: Begin VB.Form SY_MGInfo 03384: AutoRedraw = -1 'True 03385: BorderStyle = 1 'Fixed Single 03386: Caption = "Реквизиты сообщения" 03387: ClientHeight = 3195 03388: ClientLeft = 45 03389: ClientTop = 330 03390: ClientWidth = 6990 03391: Icon = "SY_MGInfo.frx":0000 03392: LinkTopic = "Form1" 03393: MaxButton = 0 'False 03394: MDIChild = -1 'True 03395: MinButton = 0 'False 03396: ScaleHeight = 7419.159 03397: ScaleMode = 0 'User 03398: ScaleWidth = 6990 03399: Begin SVA.SY_MGProfile SY_MGProfile1 03400: Height = 1935 03401: Left = 240 03402: TabIndex = 1 03403: Top = 120 03404: Width = 6495 03405: _ExtentX = 11456 03406: _ExtentY = 3413 03407: End 03408: Begin VB.CommandButton btCancel 03409: Appearance = 0 'Flat 03410: BeginProperty Font 03411: Name = "MS Sans Serif" 03412: Size = 8.25 03413: Charset = 204 03414: Weight = 700 03415: Underline = 0 'False 03416: Italic = 0 'False 03417: Strikethrough = 0 'False 03418: EndProperty 03419: Height = 735 03420: Left = 6240 03421: Picture = "SY_MGInfo.frx":014A 03422: Style = 1 'Graphical 03423: TabIndex = 0 03424: Tag = "Lock" 03425: Top = 2280 03426: Width = 495 03427: End 03428: End 03429: Attribute VB_Name = "SY_MGInfo" 03430: Attribute VB_GlobalNameSpace = False 03431: Attribute VB_Creatable = False 03432: Attribute VB_PredeclaredId = True 03433: Attribute VB_Exposed = False 03434: 'Arg1 - CurrentUser 03435: Option Explicit 03436: Private SelfVal As Integer 03437: Public Property Let Self(slf As Integer) 03438: SelfVal = slf 03439: End Property 03440: Public Property Get Self() As Integer 03441: Self = SelfVal 03442: End Property 03443: Public Property Get SelfAlignment() As FCEFormAlignmentConstants 03444: SelfAlignment = fceCenterWindow 03445: End Property 03446: Public Property Get SelfFlags() As FCEFlags 03447: SelfFlags = 0 03448: End Property 03449: Public Property Get ButtonCaption() As String 03450: ButtonCaption = "Реквизиты" 03451: End Property 03452: Public Property Get TaskBarIndex() As Integer 03453: TaskBarIndex = 2 03454: End Property 03455: Public Property Get TaskBarIcon() As String 03456: TaskBarIcon = "EDITDOC" 03457: End Property 03458: 03459: 03460: '============================ fce work =============================== 03461: Private Sub Form_Activate() 03462: Select Case FCE.sActivate(Me) 03463: End Select 03464: End Sub 03465: Private Sub Form_Unload(Cancel As Integer) 03466: FCE.Ret Me, 1 03467: End Sub 03468: Private Sub btCancel_Click() 'закрыли форму 03469: Unload Me 03470: End Sub 03471: Public Sub Loading() 03472: Call SY_MGProfile1.InitPofile(FCE.Arg1(Me), False, FCE.ArgObject1(Me)) 03473: End Sub
Comments (
)
)
Link to this page:
//www.vb-net.com/wanted/message/Frm.htm
|
|
