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 ( )
<00>  <01>  <02>  <03>  <04>  <05>  <06>  <07>  <08>  <09>  <10>  <11>  <12>  <13>  <14>  <15>  <16>  <17>  <18>  <19>  <20>  <21>  <22>  <23
Link to this page: //www.vb-net.com/wanted/message/Frm.htm
<SITEMAP>  <MVC>  <ASP>  <NET>  <DATA>  <KIOSK>  <FLEX>  <SQL>  <NOTES>  <LINUX>  <MONO>  <FREEWARE>  <DOCS>  <ENG>  <CHAT ME>  <ABOUT ME>  < THANKS ME>