PageRenderTime 68ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 0ms

/HRManager/__history/EMPLOYEEUnit.dfm.~56~

https://github.com/oista/NPO
Unknown | 5222 lines | 5221 code | 1 blank | 0 comment | 0 complexity | a069f3c32d7b004b5c66dcae3a83997e MD5 | raw file
  1. inherited EMPLOYEE: TEMPLOYEE
  2. Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080' '
  3. ClientHeight = 661
  4. ClientWidth = 1140
  5. ExplicitWidth = 1148
  6. ExplicitHeight = 695
  7. PixelsPerInch = 96
  8. TextHeight = 13
  9. inherited Panel1: TPanel
  10. Top = 620
  11. Width = 1140
  12. ExplicitTop = 620
  13. ExplicitWidth = 1140
  14. inherited Button1: TButton
  15. Left = 977
  16. ExplicitLeft = 977
  17. end
  18. inherited Button2: TButton
  19. Left = 1058
  20. ExplicitLeft = 1058
  21. end
  22. end
  23. inherited Panel2: TPanel
  24. Left = 33
  25. Width = 1107
  26. Height = 620
  27. ExplicitLeft = 33
  28. ExplicitWidth = 1107
  29. ExplicitHeight = 620
  30. inherited Splitter1: TSplitter
  31. Height = 620
  32. ExplicitHeight = 596
  33. end
  34. inherited Panel3: TPanel
  35. Width = 1104
  36. Height = 620
  37. ExplicitWidth = 1104
  38. ExplicitHeight = 620
  39. inherited Splitter2: TSplitter
  40. Top = 320
  41. Width = 1104
  42. Height = 0
  43. ExplicitLeft = 0
  44. ExplicitTop = 365
  45. ExplicitWidth = 728
  46. ExplicitHeight = 0
  47. end
  48. inherited Panel5: TPanel
  49. Top = 320
  50. Width = 1104
  51. Height = 300
  52. ExplicitTop = 320
  53. ExplicitWidth = 1104
  54. ExplicitHeight = 300
  55. object PageControl2: TPageControl
  56. Left = 0
  57. Top = 0
  58. Width = 1104
  59. Height = 300
  60. ActivePage = TabSheet13
  61. Align = alClient
  62. TabOrder = 0
  63. object TabSheet2: TTabSheet
  64. Caption = #1056#1072#1073'. '#1084#1077#1089#1090#1072
  65. OnShow = CLJobStructure
  66. object VrDbGrid1: TVrDbGrid
  67. AlignWithMargins = True
  68. Left = 3
  69. Top = 34
  70. Width = 1090
  71. Height = 235
  72. Margins.Top = 0
  73. ScrollBars = ssHorizontal
  74. ShowCheckBoxes = True
  75. CheckFieldName = 'ID'
  76. CheckedRowsColoured = True
  77. CheckedRowsColour = clYellow
  78. MultiSelect = True
  79. ColouredRows = True
  80. CrmEvnColor = clInfoBk
  81. CrmOddColor = clWindow
  82. SortChangeEnable = True
  83. Align = alClient
  84. DataSource = DataSource2
  85. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  86. TabOrder = 0
  87. TitleFont.Charset = DEFAULT_CHARSET
  88. TitleFont.Color = clWindowText
  89. TitleFont.Height = -11
  90. TitleFont.Name = 'Tahoma'
  91. TitleFont.Style = []
  92. Columns = <
  93. item
  94. Expanded = False
  95. FieldName = 'ID'
  96. Visible = False
  97. SortMode = smNone
  98. end
  99. item
  100. Expanded = False
  101. FieldName = 'DCODE'
  102. Width = 43
  103. Visible = True
  104. SortMode = smNone
  105. end
  106. item
  107. Expanded = False
  108. FieldName = 'INDATE'
  109. Width = 74
  110. Visible = True
  111. SortMode = smNone
  112. end
  113. item
  114. Expanded = False
  115. FieldName = 'CITEZENID'
  116. Visible = False
  117. SortMode = smNone
  118. end
  119. item
  120. Expanded = False
  121. FieldName = 'STRUCTUREID'
  122. Visible = False
  123. SortMode = smNone
  124. end
  125. item
  126. Expanded = False
  127. FieldName = 'JOBTITLE'
  128. Width = 450
  129. Visible = True
  130. SortMode = smNone
  131. end
  132. item
  133. Expanded = False
  134. FieldName = 'QUALIFICATION'
  135. Width = 75
  136. Visible = True
  137. SortMode = smNone
  138. end
  139. item
  140. Expanded = False
  141. FieldName = 'WORKUNITTYPE'
  142. Width = 134
  143. Visible = True
  144. SortMode = smNone
  145. end
  146. item
  147. Expanded = False
  148. FieldName = 'CATEGORYNUMB'
  149. Visible = False
  150. SortMode = smNone
  151. end
  152. item
  153. Expanded = False
  154. FieldName = 'AMOUNT'
  155. Width = 45
  156. Visible = True
  157. SortMode = smNone
  158. end
  159. item
  160. Expanded = False
  161. FieldName = 'SALARY'
  162. Width = 85
  163. Visible = True
  164. SortMode = smNone
  165. end
  166. item
  167. Expanded = False
  168. FieldName = 'AGREEMENTDATE'
  169. Visible = True
  170. SortMode = smNone
  171. end
  172. item
  173. Expanded = False
  174. FieldName = 'CONTRACT'
  175. Visible = True
  176. SortMode = smNone
  177. end
  178. item
  179. Expanded = False
  180. FieldName = 'CODE'
  181. Visible = False
  182. SortMode = smNone
  183. end
  184. item
  185. Expanded = False
  186. FieldName = 'CONDITION'
  187. Visible = False
  188. SortMode = smNone
  189. end
  190. item
  191. Expanded = False
  192. FieldName = 'WORKTYPE'
  193. Visible = False
  194. SortMode = smNone
  195. end
  196. item
  197. Expanded = False
  198. FieldName = 'RATECODE'
  199. Visible = False
  200. SortMode = smNone
  201. end>
  202. end
  203. object GridPanel6: TGridPanel
  204. AlignWithMargins = True
  205. Left = 3
  206. Top = 3
  207. Width = 1090
  208. Height = 28
  209. Align = alTop
  210. BevelOuter = bvNone
  211. ColumnCollection = <
  212. item
  213. SizeStyle = ssAbsolute
  214. Value = 152.000000000000000000
  215. end
  216. item
  217. Value = 100.000000000000000000
  218. end>
  219. ControlCollection = <
  220. item
  221. Column = -1
  222. Row = -1
  223. end
  224. item
  225. Column = 0
  226. Control = PKDBEditButtons6
  227. Row = 0
  228. end
  229. item
  230. Column = 1
  231. Control = PKDBFindPanel6
  232. Row = 0
  233. end>
  234. RowCollection = <
  235. item
  236. Value = 100.000000000000000000
  237. end>
  238. TabOrder = 1
  239. object PKDBEditButtons6: TPKDBEditButtons
  240. Left = 0
  241. Top = 0
  242. Width = 150
  243. Height = 28
  244. TableName = 'HR_EMPLOYEE'
  245. PrimaryFieldName = 'ID'
  246. ParentFieldName = 'ID'
  247. Grid = VrDbGrid1
  248. Connection = DataModule1.ADConnection1
  249. UseTempTable = False
  250. EditDialogClassName = 'TEMPLOYEEDIT'
  251. DesignSize = (
  252. 150
  253. 28)
  254. end
  255. object PKDBFindPanel6: TPKDBFindPanel
  256. Left = 152
  257. Top = 0
  258. Width = 938
  259. Height = 27
  260. QuerysCollection = <
  261. item
  262. Query = ADQuery1
  263. QueryCaption = #1056#1072#1073#1086#1095#1080#1077' '#1084#1077#1089#1090#1072
  264. MainQuery = False
  265. FieldList = <
  266. item
  267. FieldName = 'ID'
  268. FieldCaption = 'ID'
  269. FieldType = ffNumber
  270. DisplayName = 'ID'
  271. end
  272. item
  273. FieldName = 'CITEZENID'
  274. FieldCaption = 'CITEZENID'
  275. FieldType = ffNumber
  276. DisplayName = 'CITEZENID'
  277. end
  278. item
  279. FieldName = 'STRUCTUREID'
  280. FieldCaption = 'STRUCTUREID'
  281. FieldType = ffNumber
  282. DisplayName = 'STRUCTUREID'
  283. end
  284. item
  285. FieldName = 'JOBTITLE'
  286. FieldCaption = #1044#1086#1083#1078#1085#1086#1089#1090#1100
  287. FieldType = ffString
  288. DisplayName = 'JOBTITLE'
  289. end
  290. item
  291. FieldName = 'QUALIFICATION'
  292. FieldCaption = #1050#1074#1072#1083#1080#1092'.'
  293. FieldType = ffString
  294. DisplayName = 'QUALIFICATION'
  295. end
  296. item
  297. FieldName = 'CATEGORYNUMB'
  298. FieldCaption = #1050#1072#1090#1077#1075'.'
  299. FieldType = ffNumber
  300. DisplayName = 'CATEGORYNUMB'
  301. end
  302. item
  303. FieldName = 'AMOUNT'
  304. FieldCaption = #1050#1086#1083'-'#1074#1086'.'
  305. FieldType = ffNumber
  306. DisplayName = 'AMOUNT'
  307. end
  308. item
  309. FieldName = 'SALARY'
  310. FieldCaption = #1057#1090#1072#1074#1082#1072'('#1054#1082#1083#1072#1076')'
  311. FieldType = ffNumber
  312. DisplayName = 'SALARY'
  313. end
  314. item
  315. FieldName = 'DCODE'
  316. FieldCaption = #1055#1086#1076#1088'.'
  317. FieldType = ffString
  318. DisplayName = 'DCODE'
  319. end
  320. item
  321. FieldName = 'CONTRACT'
  322. FieldCaption = #1050#1086#1085#1090#1088#1072#1082#1090
  323. FieldType = ffString
  324. DisplayName = 'CONTRACT'
  325. end
  326. item
  327. FieldName = 'CONDITION'
  328. FieldCaption = #1059#1089#1083#1086#1074#1080#1103' '#1090#1088#1091#1076#1072
  329. FieldType = ffString
  330. DisplayName = 'CONDITION'
  331. end
  332. item
  333. FieldName = 'WORKTYPE'
  334. FieldCaption = #1058#1080#1087' '#1088#1072#1073#1086#1090#1099
  335. FieldType = ffString
  336. DisplayName = 'WORKTYPE'
  337. end
  338. item
  339. FieldName = 'RATECODE'
  340. FieldCaption = #1057#1090#1072#1074#1082#1072
  341. FieldType = ffString
  342. DisplayName = 'RATECODE'
  343. end
  344. item
  345. FieldName = 'INDATE'
  346. FieldCaption = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095'.'
  347. FieldType = ffDate
  348. DisplayName = 'INDATE'
  349. end
  350. item
  351. FieldName = 'AGREEMENTDATE'
  352. FieldCaption = #8470' '#1076#1086#1075#1086#1074#1086#1088#1072
  353. FieldType = ffDate
  354. DisplayName = 'AGREEMENTDATE'
  355. end>
  356. end>
  357. DesignSize = (
  358. 938
  359. 27)
  360. end
  361. end
  362. end
  363. object TabSheet6: TTabSheet
  364. Caption = #1040#1090#1090#1077#1089#1090#1072#1094#1080#1103
  365. ImageIndex = 4
  366. OnShow = CLAttestat
  367. object GridPanel5: TGridPanel
  368. AlignWithMargins = True
  369. Left = 3
  370. Top = 3
  371. Width = 1090
  372. Height = 28
  373. Align = alTop
  374. BevelOuter = bvNone
  375. ColumnCollection = <
  376. item
  377. SizeStyle = ssAbsolute
  378. Value = 152.000000000000000000
  379. end
  380. item
  381. Value = 100.000000000000000000
  382. end>
  383. ControlCollection = <
  384. item
  385. Column = -1
  386. Row = -1
  387. end
  388. item
  389. Column = 0
  390. Control = PKDBEditButtons5
  391. Row = 0
  392. end
  393. item
  394. Column = 1
  395. Control = PKDBFindPanel5
  396. Row = 0
  397. end>
  398. RowCollection = <
  399. item
  400. Value = 100.000000000000000000
  401. end>
  402. TabOrder = 0
  403. object PKDBEditButtons5: TPKDBEditButtons
  404. Left = 0
  405. Top = 0
  406. Width = 150
  407. Height = 28
  408. TableName = 'HR_ATESTATION'
  409. PrimaryFieldName = 'ID'
  410. ParentFieldName = 'ID'
  411. Grid = VrDbGrid4
  412. Connection = DataModule1.ADConnection1
  413. UseTempTable = False
  414. EditDialogClassName = 'TATESTATIONEDIT'
  415. DesignSize = (
  416. 150
  417. 28)
  418. end
  419. object PKDBFindPanel5: TPKDBFindPanel
  420. Left = 152
  421. Top = 0
  422. Width = 938
  423. Height = 27
  424. QuerysCollection = <
  425. item
  426. Query = ADQuery2
  427. QueryCaption = #1040#1090#1077#1089#1090#1072#1094#1080#1103
  428. MainQuery = False
  429. FieldList = <
  430. item
  431. FieldName = 'EVENTDATE'
  432. FieldCaption = #1044#1072#1090#1072' '#1072#1090#1090#1077#1089#1090#1072#1094#1080#1080
  433. FieldType = ffDate
  434. DisplayName = 'EVENTDATE'
  435. end
  436. item
  437. FieldName = 'DECISION'
  438. FieldCaption = #1056#1077#1096#1077#1085#1080#1077' '#1082#1086#1084#1080#1089#1089#1080#1080
  439. FieldType = ffString
  440. DisplayName = 'DECISION'
  441. end
  442. item
  443. FieldName = 'DOCNUMB'
  444. FieldCaption = #8470' '#1044#1086#1082'. ('#1087#1088#1086#1090#1086#1082#1086#1083#1072')'
  445. FieldType = ffString
  446. DisplayName = 'DOCNUMB'
  447. end
  448. item
  449. FieldName = 'DOCDATE'
  450. FieldCaption = #1044#1072#1090#1072' '#1076#1086#1082'-'#1090#1072'.'
  451. FieldType = ffDate
  452. DisplayName = 'DOCDATE'
  453. end
  454. item
  455. FieldName = 'REASON'
  456. FieldCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  457. FieldType = ffString
  458. DisplayName = 'REASON'
  459. end>
  460. end>
  461. DesignSize = (
  462. 938
  463. 27)
  464. end
  465. end
  466. object VrDbGrid4: TVrDbGrid
  467. AlignWithMargins = True
  468. Left = 3
  469. Top = 34
  470. Width = 1090
  471. Height = 235
  472. Margins.Top = 0
  473. ScrollBars = ssHorizontal
  474. ShowCheckBoxes = True
  475. CheckFieldName = 'ID'
  476. CheckedRowsColoured = True
  477. CheckedRowsColour = clYellow
  478. MultiSelect = True
  479. ColouredRows = False
  480. CrmEvnColor = clInfoBk
  481. CrmOddColor = clWindow
  482. SortChangeEnable = True
  483. Align = alClient
  484. DataSource = DataSource3
  485. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  486. TabOrder = 1
  487. TitleFont.Charset = DEFAULT_CHARSET
  488. TitleFont.Color = clWindowText
  489. TitleFont.Height = -11
  490. TitleFont.Name = 'Tahoma'
  491. TitleFont.Style = []
  492. Columns = <
  493. item
  494. Expanded = False
  495. FieldName = 'ID'
  496. Visible = False
  497. SortMode = smNone
  498. end
  499. item
  500. Expanded = False
  501. FieldName = 'CITEZENID'
  502. Visible = False
  503. SortMode = smNone
  504. end
  505. item
  506. Expanded = False
  507. FieldName = 'EMPLOYEEID'
  508. Visible = False
  509. SortMode = smNone
  510. end
  511. item
  512. Expanded = False
  513. FieldName = 'EVENTDATE'
  514. Width = 94
  515. Visible = True
  516. SortMode = smNone
  517. end
  518. item
  519. Expanded = False
  520. FieldName = 'RATING'
  521. Width = 76
  522. Visible = True
  523. SortMode = smNone
  524. end
  525. item
  526. Expanded = False
  527. FieldName = 'DECISION'
  528. Width = 186
  529. Visible = True
  530. SortMode = smNone
  531. end
  532. item
  533. Expanded = False
  534. FieldName = 'DOCNUMB'
  535. Width = 114
  536. Visible = True
  537. SortMode = smNone
  538. end
  539. item
  540. Expanded = False
  541. FieldName = 'DOCDATE'
  542. Width = 79
  543. Visible = True
  544. SortMode = smNone
  545. end
  546. item
  547. Expanded = False
  548. FieldName = 'ORGNAME'
  549. Width = 115
  550. Visible = True
  551. SortMode = smNone
  552. end
  553. item
  554. Expanded = False
  555. FieldName = 'OUTDATE'
  556. Width = 91
  557. Visible = True
  558. SortMode = smNone
  559. end
  560. item
  561. Expanded = False
  562. FieldName = 'REASON'
  563. Width = 1000
  564. Visible = True
  565. SortMode = smNone
  566. end>
  567. end
  568. end
  569. object TabSheet7: TTabSheet
  570. Caption = #1050#1074#1072#1083#1080#1092#1080#1082#1072#1094#1080#1103
  571. ImageIndex = 5
  572. OnShow = ClCvaliffication
  573. object GridPanel2: TGridPanel
  574. AlignWithMargins = True
  575. Left = 3
  576. Top = 3
  577. Width = 1090
  578. Height = 28
  579. Align = alTop
  580. BevelOuter = bvNone
  581. ColumnCollection = <
  582. item
  583. SizeStyle = ssAbsolute
  584. Value = 152.000000000000000000
  585. end
  586. item
  587. Value = 100.000000000000000000
  588. end>
  589. ControlCollection = <
  590. item
  591. Column = -1
  592. Row = -1
  593. end
  594. item
  595. Column = 0
  596. Control = PKDBEditButtons2
  597. Row = 0
  598. end
  599. item
  600. Column = 1
  601. Control = PKDBFindPanel2
  602. Row = 0
  603. end>
  604. RowCollection = <
  605. item
  606. Value = 100.000000000000000000
  607. end>
  608. TabOrder = 0
  609. object PKDBEditButtons2: TPKDBEditButtons
  610. Left = 0
  611. Top = 0
  612. Width = 150
  613. Height = 28
  614. TableName = 'HR_SKILLUP'
  615. PrimaryFieldName = 'ID'
  616. ParentFieldName = 'ID'
  617. Grid = VrDbGrid5
  618. Connection = DataModule1.ADConnection1
  619. UseTempTable = False
  620. EditDialogClassName = 'TSKILLUPEDIT'
  621. DesignSize = (
  622. 150
  623. 28)
  624. end
  625. object PKDBFindPanel2: TPKDBFindPanel
  626. Left = 152
  627. Top = 0
  628. Width = 938
  629. Height = 27
  630. QuerysCollection = <
  631. item
  632. Query = ADQuery3
  633. QueryCaption = #1050#1074#1072#1083#1080#1092#1080#1082#1072#1094#1080#1103
  634. MainQuery = False
  635. FieldList = <
  636. item
  637. FieldName = 'INDATE'
  638. FieldCaption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1086#1073#1091#1095#1077#1085#1080#1103
  639. FieldType = ffDate
  640. DisplayName = 'INDATE'
  641. end
  642. item
  643. FieldName = 'OUTDATE'
  644. FieldCaption = #1044#1072#1090#1072' '#1082#1086#1085#1094#1072' '#1086#1073#1091#1095#1077#1085#1080#1103
  645. FieldType = ffDate
  646. DisplayName = 'OUTDATE'
  647. end
  648. item
  649. FieldName = 'EDTYPE'
  650. FieldCaption = #1042#1080#1076' '#1087#1086#1074#1099#1096#1077#1085#1080#1103' '#1082#1074#1072#1083#1080#1092#1080#1082#1072#1094#1080#1080
  651. FieldType = ffString
  652. DisplayName = 'EDTYPE'
  653. end
  654. item
  655. FieldName = 'ORGANISATION'
  656. FieldCaption = #1054#1073#1088#1072#1079#1086#1074#1072#1090#1077#1083#1100#1085#1086#1077' '#1091#1095#1077#1088#1077#1078#1076#1077#1085#1080#1077
  657. FieldType = ffString
  658. DisplayName = 'ORGANISATION'
  659. end
  660. item
  661. FieldName = 'DOCTYPE'
  662. FieldCaption = #1044#1086#1082#1091#1084#1077#1085#1090
  663. FieldType = ffString
  664. DisplayName = 'DOCTYPE'
  665. end
  666. item
  667. FieldName = 'DOCNUMB'
  668. FieldCaption = #1057#1077#1088#1080#1103', '#1085#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  669. FieldType = ffString
  670. DisplayName = 'DOCNUMB'
  671. end
  672. item
  673. FieldName = 'DOCDATE'
  674. FieldCaption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080' '
  675. FieldType = ffDate
  676. DisplayName = 'DOCDATE'
  677. end
  678. item
  679. FieldName = 'REASON'
  680. FieldCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  681. FieldType = ffString
  682. DisplayName = 'REASON'
  683. end>
  684. end>
  685. DesignSize = (
  686. 938
  687. 27)
  688. end
  689. end
  690. object VrDbGrid5: TVrDbGrid
  691. AlignWithMargins = True
  692. Left = 3
  693. Top = 34
  694. Width = 1090
  695. Height = 235
  696. Margins.Top = 0
  697. ScrollBars = ssHorizontal
  698. ShowCheckBoxes = True
  699. CheckFieldName = 'ID'
  700. CheckedRowsColoured = True
  701. CheckedRowsColour = clYellow
  702. MultiSelect = True
  703. ColouredRows = False
  704. CrmEvnColor = clInfoBk
  705. CrmOddColor = clWindow
  706. SortChangeEnable = True
  707. Align = alClient
  708. DataSource = DataSource4
  709. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  710. TabOrder = 1
  711. TitleFont.Charset = DEFAULT_CHARSET
  712. TitleFont.Color = clWindowText
  713. TitleFont.Height = -11
  714. TitleFont.Name = 'Tahoma'
  715. TitleFont.Style = []
  716. Columns = <
  717. item
  718. Expanded = False
  719. FieldName = 'ID'
  720. Visible = False
  721. SortMode = smNone
  722. end
  723. item
  724. Expanded = False
  725. FieldName = 'CITEZENID'
  726. Visible = False
  727. SortMode = smNone
  728. end
  729. item
  730. Expanded = False
  731. FieldName = 'EMPLOYEEID'
  732. Visible = False
  733. SortMode = smNone
  734. end
  735. item
  736. Expanded = False
  737. FieldName = 'INDATE'
  738. Width = 124
  739. Visible = True
  740. SortMode = smNone
  741. end
  742. item
  743. Expanded = False
  744. FieldName = 'OUTDATE'
  745. Width = 118
  746. Visible = True
  747. SortMode = smNone
  748. end
  749. item
  750. Expanded = False
  751. FieldName = 'EDTYPE'
  752. Width = 236
  753. Visible = True
  754. SortMode = smNone
  755. end
  756. item
  757. Expanded = False
  758. FieldName = 'ORGANISATION'
  759. Width = 176
  760. Visible = True
  761. SortMode = smNone
  762. end
  763. item
  764. Expanded = False
  765. FieldName = 'DOCTYPE'
  766. Width = 71
  767. Visible = True
  768. SortMode = smNone
  769. end
  770. item
  771. Expanded = False
  772. FieldName = 'DOCNUMB'
  773. Width = 96
  774. Visible = True
  775. SortMode = smNone
  776. end
  777. item
  778. Expanded = False
  779. FieldName = 'DOCDATE'
  780. Width = 88
  781. Visible = True
  782. SortMode = smNone
  783. end
  784. item
  785. Expanded = False
  786. FieldName = 'REASON'
  787. Width = 1000
  788. Visible = True
  789. SortMode = smNone
  790. end>
  791. end
  792. end
  793. object TabSheet8: TTabSheet
  794. Caption = #1055#1077#1088#1077#1087#1086#1076#1075#1086#1090#1086#1074#1082#1072' '
  795. ImageIndex = 6
  796. OnShow = CLRetraining
  797. object GridPanel7: TGridPanel
  798. AlignWithMargins = True
  799. Left = 3
  800. Top = 3
  801. Width = 1090
  802. Height = 28
  803. Align = alTop
  804. BevelOuter = bvNone
  805. ColumnCollection = <
  806. item
  807. SizeStyle = ssAbsolute
  808. Value = 152.000000000000000000
  809. end
  810. item
  811. Value = 100.000000000000000000
  812. end>
  813. ControlCollection = <
  814. item
  815. Column = -1
  816. Row = -1
  817. end
  818. item
  819. Column = 0
  820. Control = PKDBEditButtons7
  821. Row = 0
  822. end
  823. item
  824. Column = 1
  825. Control = PKDBFindPanel7
  826. Row = 0
  827. end>
  828. RowCollection = <
  829. item
  830. Value = 100.000000000000000000
  831. end>
  832. TabOrder = 0
  833. object PKDBEditButtons7: TPKDBEditButtons
  834. Left = 0
  835. Top = 0
  836. Width = 150
  837. Height = 28
  838. TableName = 'HR_RETRAINING'
  839. PrimaryFieldName = 'ID'
  840. ParentFieldName = 'ID'
  841. Grid = VrDbGrid6
  842. Connection = DataModule1.ADConnection1
  843. UseTempTable = False
  844. EditDialogClassName = 'TRETRAININGEDIT'
  845. DesignSize = (
  846. 150
  847. 28)
  848. end
  849. object PKDBFindPanel7: TPKDBFindPanel
  850. Left = 152
  851. Top = 0
  852. Width = 938
  853. Height = 27
  854. QuerysCollection = <
  855. item
  856. Query = ADQuery4
  857. QueryCaption = #1055#1077#1088#1077#1087#1086#1076#1075#1086#1090#1086#1074#1082#1072
  858. MainQuery = False
  859. FieldList = <
  860. item
  861. FieldName = 'INDATE'
  862. FieldCaption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1086#1073#1091#1095#1077#1085#1080#1103
  863. FieldType = ffDate
  864. DisplayName = 'INDATE'
  865. end
  866. item
  867. FieldName = 'OUTDATE'
  868. FieldCaption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103' '#1086#1073#1091#1095#1077#1085#1080#1103
  869. FieldType = ffDate
  870. DisplayName = 'OUTDATE'
  871. end
  872. item
  873. FieldName = 'JOBTITLE'
  874. FieldCaption = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1086#1089#1090#1100
  875. FieldType = ffString
  876. DisplayName = 'JOBTITLE'
  877. end
  878. item
  879. FieldName = 'DOCTYPE'
  880. FieldCaption = #1044#1086#1082#1091#1084#1077#1085#1090
  881. FieldType = ffString
  882. DisplayName = 'DOCTYPE'
  883. end
  884. item
  885. FieldName = 'DOCNUMB'
  886. FieldCaption = #8470' '#1044#1086#1082#1091#1084#1077#1085#1090#1072
  887. FieldType = ffString
  888. DisplayName = 'DOCNUMB'
  889. end
  890. item
  891. FieldName = 'DOCDATE'
  892. FieldCaption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080' '
  893. FieldType = ffDate
  894. DisplayName = 'DOCDATE'
  895. end
  896. item
  897. FieldName = 'REASON'
  898. FieldCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  899. FieldType = ffString
  900. DisplayName = 'REASON'
  901. end>
  902. end>
  903. DesignSize = (
  904. 938
  905. 27)
  906. end
  907. end
  908. object VrDbGrid6: TVrDbGrid
  909. AlignWithMargins = True
  910. Left = 3
  911. Top = 34
  912. Width = 1090
  913. Height = 235
  914. Margins.Top = 0
  915. ScrollBars = ssHorizontal
  916. ShowCheckBoxes = True
  917. CheckFieldName = 'ID'
  918. CheckedRowsColoured = True
  919. CheckedRowsColour = clYellow
  920. MultiSelect = True
  921. ColouredRows = True
  922. CrmEvnColor = clInfoBk
  923. CrmOddColor = clWindow
  924. SortChangeEnable = True
  925. Align = alClient
  926. DataSource = DataSource5
  927. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  928. TabOrder = 1
  929. TitleFont.Charset = DEFAULT_CHARSET
  930. TitleFont.Color = clWindowText
  931. TitleFont.Height = -11
  932. TitleFont.Name = 'Tahoma'
  933. TitleFont.Style = []
  934. Columns = <
  935. item
  936. Expanded = False
  937. FieldName = 'ID'
  938. Visible = False
  939. SortMode = smNone
  940. end
  941. item
  942. Expanded = False
  943. FieldName = 'CITEZENID'
  944. Visible = False
  945. SortMode = smNone
  946. end
  947. item
  948. Expanded = False
  949. FieldName = 'EMPLOYEEID'
  950. Visible = False
  951. SortMode = smNone
  952. end
  953. item
  954. Expanded = False
  955. FieldName = 'INDATE'
  956. Width = 70
  957. Visible = True
  958. SortMode = smNone
  959. end
  960. item
  961. Expanded = False
  962. FieldName = 'OUTDATE'
  963. Width = 88
  964. Visible = True
  965. SortMode = smNone
  966. end
  967. item
  968. Expanded = False
  969. FieldName = 'JOBTITLE'
  970. Width = 299
  971. Visible = True
  972. SortMode = smNone
  973. end
  974. item
  975. Expanded = False
  976. FieldName = 'DOCTYPE'
  977. Width = 100
  978. Visible = True
  979. SortMode = smNone
  980. end
  981. item
  982. Expanded = False
  983. FieldName = 'DOCNUMB'
  984. Width = 100
  985. Visible = True
  986. SortMode = smNone
  987. end
  988. item
  989. Expanded = False
  990. FieldName = 'DOCDATE'
  991. Width = 73
  992. Visible = True
  993. SortMode = smNone
  994. end
  995. item
  996. Expanded = False
  997. FieldName = 'REASON'
  998. Visible = True
  999. SortMode = smNone
  1000. end>
  1001. end
  1002. end
  1003. object TabSheet5: TTabSheet
  1004. Caption = #1053#1072#1075#1088#1072#1076#1099
  1005. ImageIndex = 3
  1006. OnShow = CLAwards
  1007. object GridPanel4: TGridPanel
  1008. AlignWithMargins = True
  1009. Left = 3
  1010. Top = 3
  1011. Width = 1090
  1012. Height = 28
  1013. Align = alTop
  1014. BevelOuter = bvNone
  1015. ColumnCollection = <
  1016. item
  1017. SizeStyle = ssAbsolute
  1018. Value = 152.000000000000000000
  1019. end
  1020. item
  1021. Value = 100.000000000000000000
  1022. end>
  1023. ControlCollection = <
  1024. item
  1025. Column = -1
  1026. Row = -1
  1027. end
  1028. item
  1029. Column = 0
  1030. Control = PKDBEditButtons4
  1031. Row = 0
  1032. end
  1033. item
  1034. Column = 1
  1035. Control = PKDBFindPanel4
  1036. Row = 0
  1037. end>
  1038. RowCollection = <
  1039. item
  1040. Value = 100.000000000000000000
  1041. end>
  1042. TabOrder = 0
  1043. object PKDBEditButtons4: TPKDBEditButtons
  1044. Left = 0
  1045. Top = 0
  1046. Width = 150
  1047. Height = 28
  1048. TableName = 'HR_AWARD'
  1049. PrimaryFieldName = 'ID'
  1050. ParentFieldName = 'ID'
  1051. Grid = VrDbGrid3
  1052. Connection = DataModule1.ADConnection1
  1053. UseTempTable = False
  1054. EditDialogClassName = 'TAWARDEDIT'
  1055. DesignSize = (
  1056. 150
  1057. 28)
  1058. end
  1059. object PKDBFindPanel4: TPKDBFindPanel
  1060. Left = 152
  1061. Top = 0
  1062. Width = 938
  1063. Height = 27
  1064. QuerysCollection = <
  1065. item
  1066. Query = ADQuery5
  1067. QueryCaption = #1053#1072#1075#1088#1072#1076#1099
  1068. MainQuery = False
  1069. KeyFieldName = 'ID'
  1070. FieldList = <
  1071. item
  1072. FieldName = 'AWARDTYPE'
  1073. FieldCaption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1085#1072#1075#1088#1072#1076#1099
  1074. FieldType = ffString
  1075. DisplayName = 'AWARDTYPE'
  1076. end
  1077. item
  1078. FieldName = 'DOCTYPE'
  1079. FieldCaption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  1080. FieldType = ffString
  1081. DisplayName = 'DOCTYPE'
  1082. end
  1083. item
  1084. FieldName = 'DOCNUMB'
  1085. FieldCaption = #1053#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  1086. FieldType = ffString
  1087. DisplayName = 'DOCNUMB'
  1088. end
  1089. item
  1090. FieldName = 'DOCDATE'
  1091. FieldCaption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
  1092. FieldType = ffDate
  1093. DisplayName = 'DOCDATE'
  1094. end>
  1095. end>
  1096. DesignSize = (
  1097. 938
  1098. 27)
  1099. end
  1100. end
  1101. object VrDbGrid3: TVrDbGrid
  1102. AlignWithMargins = True
  1103. Left = 3
  1104. Top = 34
  1105. Width = 1090
  1106. Height = 235
  1107. Margins.Top = 0
  1108. ScrollBars = ssHorizontal
  1109. ShowCheckBoxes = True
  1110. CheckFieldName = 'ID'
  1111. CheckedRowsColoured = True
  1112. CheckedRowsColour = clYellow
  1113. MultiSelect = True
  1114. ColouredRows = True
  1115. CrmEvnColor = clInfoBk
  1116. CrmOddColor = clWindow
  1117. SortChangeEnable = True
  1118. Align = alClient
  1119. DataSource = DataSource6
  1120. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  1121. TabOrder = 1
  1122. TitleFont.Charset = DEFAULT_CHARSET
  1123. TitleFont.Color = clWindowText
  1124. TitleFont.Height = -11
  1125. TitleFont.Name = 'Tahoma'
  1126. TitleFont.Style = []
  1127. Columns = <
  1128. item
  1129. Expanded = False
  1130. FieldName = 'ID'
  1131. Visible = False
  1132. SortMode = smNone
  1133. end
  1134. item
  1135. Expanded = False
  1136. FieldName = 'CITEZENID'
  1137. Visible = False
  1138. SortMode = smNone
  1139. end
  1140. item
  1141. Expanded = False
  1142. FieldName = 'EMPLOYEEID'
  1143. Visible = False
  1144. SortMode = smNone
  1145. end
  1146. item
  1147. Expanded = False
  1148. FieldName = 'AWARDTYPE'
  1149. Width = 205
  1150. Visible = True
  1151. SortMode = smNone
  1152. end
  1153. item
  1154. Expanded = False
  1155. FieldName = 'DOCTYPE'
  1156. Width = 140
  1157. Visible = True
  1158. SortMode = smNone
  1159. end
  1160. item
  1161. Expanded = False
  1162. FieldName = 'DOCNUMB'
  1163. Width = 100
  1164. Visible = True
  1165. SortMode = smNone
  1166. end
  1167. item
  1168. Expanded = False
  1169. FieldName = 'DOCDATE'
  1170. Width = 1500
  1171. Visible = True
  1172. SortMode = smNone
  1173. end>
  1174. end
  1175. end
  1176. object TabSheet9: TTabSheet
  1177. Caption = #1054#1090#1087#1091#1089#1082
  1178. ImageIndex = 7
  1179. OnShow = CLHolidays
  1180. object GridPanel8: TGridPanel
  1181. AlignWithMargins = True
  1182. Left = 3
  1183. Top = 3
  1184. Width = 1090
  1185. Height = 28
  1186. Align = alTop
  1187. BevelOuter = bvNone
  1188. ColumnCollection = <
  1189. item
  1190. SizeStyle = ssAbsolute
  1191. Value = 152.000000000000000000
  1192. end
  1193. item
  1194. Value = 100.000000000000000000
  1195. end>
  1196. ControlCollection = <
  1197. item
  1198. Column = -1
  1199. Row = -1
  1200. end
  1201. item
  1202. Column = 0
  1203. Control = PKDBEditButtons8
  1204. Row = 0
  1205. end
  1206. item
  1207. Column = 1
  1208. Control = PKDBFindPanel8
  1209. Row = 0
  1210. end>
  1211. RowCollection = <
  1212. item
  1213. Value = 100.000000000000000000
  1214. end>
  1215. TabOrder = 0
  1216. object PKDBEditButtons8: TPKDBEditButtons
  1217. Left = 0
  1218. Top = 0
  1219. Width = 150
  1220. Height = 28
  1221. TableName = 'HR_HOLIDAY'
  1222. PrimaryFieldName = 'ID'
  1223. ParentFieldName = 'ID'
  1224. Grid = VrDbGrid7
  1225. Connection = DataModule1.ADConnection1
  1226. UseTempTable = False
  1227. EditDialogClassName = 'THOLIDAYEDIT'
  1228. DesignSize = (
  1229. 150
  1230. 28)
  1231. end
  1232. object PKDBFindPanel8: TPKDBFindPanel
  1233. Left = 152
  1234. Top = 0
  1235. Width = 938
  1236. Height = 27
  1237. QuerysCollection = <
  1238. item
  1239. Query = ADQuery6
  1240. QueryCaption = #1054#1090#1087#1091#1089#1082
  1241. MainQuery = False
  1242. KeyFieldName = 'ID'
  1243. FieldList = <
  1244. item
  1245. FieldName = 'HOLTYPE'
  1246. FieldCaption = #1058#1080#1087' '#1086#1090#1087#1091#1089#1082#1072
  1247. FieldType = ffString
  1248. DisplayName = 'HOLTYPE'
  1249. end
  1250. item
  1251. FieldName = 'WORKDATE1'
  1252. FieldCaption = #1055#1077#1088#1080#1086#1076' '#1088#1072#1073#1086#1090#1099' ('#1085#1072#1095#1072#1083#1086')'
  1253. FieldType = ffDate
  1254. DisplayName = 'WORKDATE1'
  1255. end
  1256. item
  1257. FieldName = 'WORKDATE2'
  1258. FieldCaption = #1055#1077#1088#1080#1086#1076' '#1088#1072#1073#1086#1090#1099' ('#1082#1086#1085#1077#1094')'
  1259. FieldType = ffDate
  1260. DisplayName = 'WORKDATE2'
  1261. end
  1262. item
  1263. FieldName = 'INDATE'
  1264. FieldCaption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1086#1090#1087#1089#1082#1072
  1265. FieldType = ffDate
  1266. DisplayName = 'INDATE'
  1267. end
  1268. item
  1269. FieldName = 'OUTDATE'
  1270. FieldCaption = #1044#1072#1090#1072' '#1082#1086#1085#1094#1072' '#1086#1090#1087#1091#1089#1082#1072
  1271. FieldType = ffDate
  1272. DisplayName = 'OUTDATE'
  1273. end
  1274. item
  1275. FieldName = 'DAYS'
  1276. FieldCaption = #1063#1080#1089#1083#1086' '#1076#1085#1077#1081
  1277. FieldType = ffString
  1278. DisplayName = 'DAYS'
  1279. end
  1280. item
  1281. FieldName = 'REASON'
  1282. FieldCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  1283. FieldType = ffString
  1284. DisplayName = 'REASON'
  1285. end>
  1286. end>
  1287. DesignSize = (
  1288. 938
  1289. 27)
  1290. end
  1291. end
  1292. object VrDbGrid7: TVrDbGrid
  1293. AlignWithMargins = True
  1294. Left = 3
  1295. Top = 34
  1296. Width = 1090
  1297. Height = 235
  1298. Margins.Top = 0
  1299. ScrollBars = ssHorizontal
  1300. ShowCheckBoxes = True
  1301. CheckFieldName = 'ID'
  1302. CheckedRowsColoured = True
  1303. CheckedRowsColour = clYellow
  1304. MultiSelect = True
  1305. ColouredRows = True
  1306. CrmEvnColor = clInfoBk
  1307. CrmOddColor = clWindow
  1308. SortChangeEnable = True
  1309. Align = alClient
  1310. DataSource = DataSource7
  1311. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  1312. TabOrder = 1
  1313. TitleFont.Charset = DEFAULT_CHARSET
  1314. TitleFont.Color = clWindowText
  1315. TitleFont.Height = -11
  1316. TitleFont.Name = 'Tahoma'
  1317. TitleFont.Style = []
  1318. Columns = <
  1319. item
  1320. Expanded = False
  1321. FieldName = 'ID'
  1322. Visible = False
  1323. SortMode = smNone
  1324. end
  1325. item
  1326. Expanded = False
  1327. FieldName = 'CITEZENID'
  1328. Visible = False
  1329. SortMode = smNone
  1330. end
  1331. item
  1332. Expanded = False
  1333. FieldName = 'EMPLOYEEID'
  1334. Visible = False
  1335. SortMode = smNone
  1336. end
  1337. item
  1338. Expanded = False
  1339. FieldName = 'HOLTYPE'
  1340. Width = 135
  1341. Visible = True
  1342. SortMode = smNone
  1343. end
  1344. item
  1345. Expanded = False
  1346. FieldName = 'WORKDATE1'
  1347. Width = 133
  1348. Visible = True
  1349. SortMode = smNone
  1350. end
  1351. item
  1352. Expanded = False
  1353. FieldName = 'WORKDATE2'
  1354. Visible = True
  1355. SortMode = smNone
  1356. end
  1357. item
  1358. Expanded = False
  1359. FieldName = 'INDATE'
  1360. Width = 110
  1361. Visible = True
  1362. SortMode = smNone
  1363. end
  1364. item
  1365. Expanded = False
  1366. FieldName = 'OUTDATE'
  1367. Width = 111
  1368. Visible = True
  1369. SortMode = smNone
  1370. end
  1371. item
  1372. Expanded = False
  1373. FieldName = 'DAYS'
  1374. Width = 63
  1375. Visible = True
  1376. SortMode = smNone
  1377. end
  1378. item
  1379. Expanded = False
  1380. FieldName = 'REASON'
  1381. Width = 1000
  1382. Visible = True
  1383. SortMode = smNone
  1384. end>
  1385. end
  1386. end
  1387. object TabSheet10: TTabSheet
  1388. Caption = #1051#1100#1075#1086#1090#1099
  1389. ImageIndex = 8
  1390. OnShow = CLSocial
  1391. object GridPanel9: TGridPanel
  1392. AlignWithMargins = True
  1393. Left = 3
  1394. Top = 3
  1395. Width = 1090
  1396. Height = 28
  1397. Align = alTop
  1398. BevelOuter = bvNone
  1399. ColumnCollection = <
  1400. item
  1401. SizeStyle = ssAbsolute
  1402. Value = 152.000000000000000000
  1403. end
  1404. item
  1405. Value = 100.000000000000000000
  1406. end>
  1407. ControlCollection = <
  1408. item
  1409. Column = -1
  1410. Row = -1
  1411. end
  1412. item
  1413. Column = 0
  1414. Control = PKDBEditButtons9
  1415. Row = 0
  1416. end
  1417. item
  1418. Column = 1
  1419. Control = PKDBFindPanel9
  1420. Row = 0
  1421. end>
  1422. RowCollection = <
  1423. item
  1424. Value = 100.000000000000000000
  1425. end>
  1426. TabOrder = 0
  1427. object PKDBEditButtons9: TPKDBEditButtons
  1428. Left = 0
  1429. Top = 0
  1430. Width = 150
  1431. Height = 28
  1432. TableName = 'HR_SOCIAL'
  1433. PrimaryFieldName = 'ID'
  1434. ParentFieldName = 'ID'
  1435. Grid = VrDbGrid8
  1436. Connection = DataModule1.ADConnection1
  1437. UseTempTable = False
  1438. EditDialogClassName = 'TSOCIALEDIT'
  1439. DesignSize = (
  1440. 150
  1441. 28)
  1442. end
  1443. object PKDBFindPanel9: TPKDBFindPanel
  1444. Left = 152
  1445. Top = 0
  1446. Width = 938
  1447. Height = 27
  1448. QuerysCollection = <
  1449. item
  1450. Query = ADQuery7
  1451. QueryCaption = #1051#1100#1075#1086#1090#1099
  1452. MainQuery = False
  1453. KeyFieldName = 'ID'
  1454. FieldList = <
  1455. item
  1456. FieldName = 'PRIVTYPE'
  1457. FieldCaption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1083#1100#1075#1086#1090#1099
  1458. FieldType = ffString
  1459. DisplayName = 'PRIVTYPE'
  1460. end
  1461. item
  1462. FieldName = 'DOCNUMB'
  1463. FieldCaption = #1053#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  1464. FieldType = ffString
  1465. DisplayName = 'DOCNUMB'
  1466. end
  1467. item
  1468. FieldName = 'DOCDATE'
  1469. FieldCaption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
  1470. FieldType = ffDate
  1471. DisplayName = 'DOCDATE'
  1472. end
  1473. item
  1474. FieldName = 'REASON'
  1475. FieldCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  1476. FieldType = ffString
  1477. DisplayName = 'REASON'
  1478. end>
  1479. end>
  1480. DesignSize = (
  1481. 938
  1482. 27)
  1483. end
  1484. end
  1485. object VrDbGrid8: TVrDbGrid
  1486. AlignWithMargins = True
  1487. Left = 3
  1488. Top = 34
  1489. Width = 1090
  1490. Height = 235
  1491. Margins.Top = 0
  1492. ScrollBars = ssHorizontal
  1493. ShowCheckBoxes = True
  1494. CheckFieldName = 'ID'
  1495. CheckedRowsColoured = True
  1496. CheckedRowsColour = clYellow
  1497. MultiSelect = True
  1498. ColouredRows = True
  1499. CrmEvnColor = clInfoBk
  1500. CrmOddColor = clWindow
  1501. SortChangeEnable = True
  1502. Align = alClient
  1503. DataSource = DataSource8
  1504. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  1505. TabOrder = 1
  1506. TitleFont.Charset = DEFAULT_CHARSET
  1507. TitleFont.Color = clWindowText
  1508. TitleFont.Height = -11
  1509. TitleFont.Name = 'Tahoma'
  1510. TitleFont.Style = []
  1511. Columns = <
  1512. item
  1513. Expanded = False
  1514. FieldName = 'PRIVTYPE'
  1515. Width = 333
  1516. Visible = True
  1517. SortMode = smNone
  1518. end
  1519. item
  1520. Expanded = False
  1521. FieldName = 'DOCNUMB'
  1522. Width = 109
  1523. Visible = True
  1524. SortMode = smNone
  1525. end
  1526. item
  1527. Expanded = False
  1528. FieldName = 'DOCDATE'
  1529. Width = 75
  1530. Visible = True
  1531. SortMode = smNone
  1532. end
  1533. item
  1534. Expanded = False
  1535. FieldName = 'REASON'
  1536. Width = 1000
  1537. Visible = True
  1538. SortMode = smNone
  1539. end>
  1540. end
  1541. end
  1542. object TabSheet4: TTabSheet
  1543. Caption = #1044#1080#1089#1094#1080#1087#1083#1080#1085#1072
  1544. ImageIndex = 2
  1545. OnShow = CLDiscipline
  1546. object GridPanel3: TGridPanel
  1547. AlignWithMargins = True
  1548. Left = 3
  1549. Top = 3
  1550. Width = 1090
  1551. Height = 28
  1552. Align = alTop
  1553. BevelOuter = bvNone
  1554. ColumnCollection = <
  1555. item
  1556. SizeStyle = ssAbsolute
  1557. Value = 152.000000000000000000
  1558. end
  1559. item
  1560. Value = 100.000000000000000000
  1561. end>
  1562. ControlCollection = <
  1563. item
  1564. Column = -1
  1565. Row = -1
  1566. end
  1567. item
  1568. Column = 0
  1569. Control = PKDBEditButtons3
  1570. Row = 0
  1571. end
  1572. item
  1573. Column = 1
  1574. Control = PKDBFindPanel3
  1575. Row = 0
  1576. end>
  1577. RowCollection = <
  1578. item
  1579. Value = 100.000000000000000000
  1580. end>
  1581. TabOrder = 0
  1582. object PKDBEditButtons3: TPKDBEditButtons
  1583. Left = 0
  1584. Top = 0
  1585. Width = 150
  1586. Height = 28
  1587. TableName = 'HR_DISCIPLINE'
  1588. PrimaryFieldName = 'ID'
  1589. ParentFieldName = 'ID'
  1590. Grid = VrDbGrid2
  1591. Connection = DataModule1.ADConnection1
  1592. UseTempTable = False
  1593. EditDialogClassName = 'TDISCIPLINEEDIT'
  1594. DesignSize = (
  1595. 150
  1596. 28)
  1597. end
  1598. object PKDBFindPanel3: TPKDBFindPanel
  1599. Left = 152
  1600. Top = 0
  1601. Width = 938
  1602. Height = 27
  1603. QuerysCollection = <
  1604. item
  1605. Query = ADQuery13
  1606. QueryCaption = #1053#1072#1088#1091#1096#1077#1085#1080#1103' '#1090#1088#1091#1076#1086#1074#1086#1081' '#1076#1080#1089#1094#1080#1087#1083#1080#1085#1099
  1607. MainQuery = False
  1608. KeyFieldName = 'ID'
  1609. FieldList = <
  1610. item
  1611. FieldName = 'EVENTDATE'
  1612. FieldCaption = #1044#1072#1090#1072' '#1085#1072#1088#1091#1096#1077#1085#1080#1103
  1613. FieldType = ffDate
  1614. DisplayName = 'EVENTDATE'
  1615. end
  1616. item
  1617. FieldName = 'BASICDOC'
  1618. FieldCaption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  1619. FieldType = ffString
  1620. DisplayName = 'BASICDOC'
  1621. end
  1622. item
  1623. FieldName = 'EVENTTYPE'
  1624. FieldCaption = #1058#1080#1087' '#1085#1072#1088#1091#1096#1077#1085#1080#1103
  1625. FieldType = ffString
  1626. DisplayName = 'EVENTTYPE'
  1627. end
  1628. item
  1629. FieldName = 'COLLECTTYPE'
  1630. FieldCaption = #1042#1080#1076' '#1074#1079#1099#1089#1082#1072#1085#1080#1103
  1631. FieldType = ffString
  1632. DisplayName = 'COLLECTTYPE'
  1633. end>
  1634. end>
  1635. DesignSize = (
  1636. 938
  1637. 27)
  1638. end
  1639. end
  1640. object VrDbGrid2: TVrDbGrid
  1641. AlignWithMargins = True
  1642. Left = 3
  1643. Top = 34
  1644. Width = 1090
  1645. Height = 235
  1646. Margins.Top = 0
  1647. ScrollBars = ssHorizontal
  1648. ShowCheckBoxes = True
  1649. CheckFieldName = 'ID'
  1650. CheckedRowsColoured = True
  1651. CheckedRowsColour = clYellow
  1652. MultiSelect = True
  1653. ColouredRows = True
  1654. CrmEvnColor = clInfoBk
  1655. CrmOddColor = clWindow
  1656. SortChangeEnable = True
  1657. Align = alClient
  1658. DataSource = DataSource13
  1659. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  1660. TabOrder = 1
  1661. TitleFont.Charset = DEFAULT_CHARSET
  1662. TitleFont.Color = clWindowText
  1663. TitleFont.Height = -11
  1664. TitleFont.Name = 'Tahoma'
  1665. TitleFont.Style = []
  1666. Columns = <
  1667. item
  1668. Expanded = False
  1669. FieldName = 'ID'
  1670. Visible = False
  1671. SortMode = smNone
  1672. end
  1673. item
  1674. Expanded = False
  1675. FieldName = 'EVENTDATE'
  1676. Width = 99
  1677. Visible = True
  1678. SortMode = smNone
  1679. end
  1680. item
  1681. Expanded = False
  1682. FieldName = 'EVENTTYPE'
  1683. Width = 302
  1684. Visible = True
  1685. SortMode = smNone
  1686. end
  1687. item
  1688. Expanded = False
  1689. FieldName = 'COLLECTTYPE'
  1690. Width = 100
  1691. Visible = True
  1692. SortMode = smNone
  1693. end
  1694. item
  1695. Expanded = False
  1696. FieldName = 'BASICDOC'
  1697. Width = 1200
  1698. Visible = True
  1699. SortMode = smNone
  1700. end
  1701. item
  1702. Expanded = False
  1703. FieldName = 'CITEZENID'
  1704. Visible = False
  1705. SortMode = smNone
  1706. end
  1707. item
  1708. Expanded = False
  1709. FieldName = 'STATUSID'
  1710. Visible = False
  1711. SortMode = smNone
  1712. end
  1713. item
  1714. Expanded = False
  1715. FieldName = 'CHANGESTATUSDATE'
  1716. Visible = False
  1717. SortMode = smNone
  1718. end
  1719. item
  1720. Expanded = False
  1721. FieldName = 'STATUSNAME'
  1722. Visible = False
  1723. SortMode = smNone
  1724. end
  1725. item
  1726. Expanded = False
  1727. FieldName = 'EMPLOYEEID'
  1728. Visible = False
  1729. SortMode = smNone
  1730. end>
  1731. end
  1732. end
  1733. object TabSheet13: TTabSheet
  1734. Caption = #1042#1086#1080#1085#1089#1082#1080#1081' '#1091#1095#1077#1090
  1735. ImageIndex = 3
  1736. object PKDBBLabelComboBox2: TPKDBBLabelComboBox
  1737. Left = 15
  1738. Top = 70
  1739. Width = 434
  1740. Height = 21
  1741. ItemHeight = 13
  1742. TabOrder = 0
  1743. Text = #1047#1074#1072#1085#1080#1077
  1744. DBTable = 'HR_FACETCONTENT'
  1745. PrimaryKey = 'ID'
  1746. content = 'rowcontent'
  1747. constraint = ' facetid=1487'
  1748. Table = PKDBTable1
  1749. TableField = 'RANKID'
  1750. EditLabel.Width = 36
  1751. EditLabel.Height = 13
  1752. EditLabel.Caption = #1047#1074#1072#1085#1080#1077
  1753. end
  1754. object PKDBBLabelComboBox1: TPKDBBLabelComboBox
  1755. Left = 15
  1756. Top = 25
  1757. Width = 434
  1758. Height = 21
  1759. ItemHeight = 13
  1760. TabOrder = 1
  1761. Text = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1079#1072#1087#1072#1089#1072
  1762. DBTable = 'HR_FACETCONTENT'
  1763. PrimaryKey = 'ID'
  1764. content = 'rowcontent'
  1765. constraint = ' facetid=69957'
  1766. Table = PKDBTable1
  1767. TableField = 'STOCKATEGID'
  1768. EditLabel.Width = 91
  1769. EditLabel.Height = 13
  1770. EditLabel.Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1079#1072#1087#1072#1089#1072
  1771. end
  1772. object PKDBLabelEdit1: TPKDBLabelEdit
  1773. Left = 15
  1774. Top = 115
  1775. Width = 434
  1776. Height = 21
  1777. TabOrder = 2
  1778. Text = #1057#1086#1089#1090#1072#1074' ('#1087#1088#1086#1092#1080#1083#1100')'
  1779. Table = PKDBTable1
  1780. TableField = 'PROFIL'
  1781. EditLabel.Width = 91
  1782. EditLabel.Height = 13
  1783. EditLabel.Caption = #1057#1086#1089#1090#1072#1074' ('#1087#1088#1086#1092#1080#1083#1100')'
  1784. end
  1785. object PKDBLabelEdit2: TPKDBLabelEdit
  1786. Left = 15
  1787. Top = 160
  1788. Width = 186
  1789. Height = 21
  1790. TabOrder = 3
  1791. Text = #1055#1086#1083#1085#1086#1077' '#1082#1086#1076#1086#1074#1086#1077' '#1086#1073#1086#1079#1085#1072#1095#1077#1085#1080#1077' '#1042#1059#1057
  1792. Table = PKDBTable1
  1793. TableField = 'VUS'
  1794. EditLabel.Width = 174
  1795. EditLabel.Height = 13
  1796. EditLabel.Caption = #1055#1086#1083#1085#1086#1077' '#1082#1086#1076#1086#1074#1086#1077' '#1086#1073#1086#1079#1085#1072#1095#1077#1085#1080#1077' '#1042#1059#1057
  1797. end
  1798. object PKDBBLabelComboBox3: TPKDBBLabelComboBox
  1799. Left = 224
  1800. Top = 160
  1801. Width = 225
  1802. Height = 21
  1803. ItemHeight = 13
  1804. TabOrder = 4
  1805. Text = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1075#1086#1076#1085#1086#1089#1090#1080' '#1082' '#1074#1086#1077#1085#1085#1086#1081' '#1089#1083#1091#1078#1073#1077
  1806. DBTable = 'HR_FACETCONTENT'
  1807. PrimaryKey = 'ID'
  1808. content = 'rowcontent'
  1809. constraint = ' facetid=59895'
  1810. Table = PKDBTable1
  1811. TableField = 'MILITSTATUSID'
  1812. EditLabel.Width = 198
  1813. EditLabel.Height = 13
  1814. EditLabel.Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1075#1086#1076#1085#1086#1089#1090#1080' '#1082' '#1074#1086#1077#1085#1085#1086#1081' '#1089#1083#1091#1078#1073#1077
  1815. end
  1816. object Button3: TButton
  1817. Left = 495
  1818. Top = 205
  1819. Width = 114
  1820. Height = 39
  1821. Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
  1822. TabOrder = 5
  1823. OnClick = Button3Click
  1824. end
  1825. object PKDBBLabelComboBox4: TPKDBBLabelComboBox
  1826. Left = 15
  1827. Top = 205
  1828. Width = 434
  1829. Height = 21
  1830. ItemHeight = 13
  1831. TabOrder = 6
  1832. Text = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1074#1086#1077#1085#1085#1086#1075#1086' '#1082#1086#1084#1080#1089#1089#1072#1088#1080#1072#1090#1072' '#1087#1086' '#1084#1077#1089#1090#1091' '#1078#1080#1090#1077#1083#1100#1089#1090#1074#1072
  1833. DBTable = 'HR_ORGANISATION'
  1834. PrimaryKey = 'ID'
  1835. content = 'name'
  1836. constraint = ' organisationtype=59793'
  1837. Table = PKDBTable1
  1838. TableField = 'VOENKOMID'
  1839. EditLabel.Width = 307
  1840. EditLabel.Height = 13
  1841. EditLabel.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1074#1086#1077#1085#1085#1086#1075#1086' '#1082#1086#1084#1080#1089#1089#1072#1088#1080#1072#1090#1072' '#1087#1086' '#1084#1077#1089#1090#1091' '#1078#1080#1090#1077#1083#1100#1089#1090#1074#1072
  1842. end
  1843. object PKDBLabelEdit3: TPKDBLabelEdit
  1844. Left = 495
  1845. Top = 70
  1846. Width = 274
  1847. Height = 21
  1848. TabOrder = 7
  1849. Text = #1054#1073#1097#1080#1081' '#1091#1095#1077#1090' ('#1085#1086#1084#1077#1088' '#1082#1086#1084#1072#1085#1076#1099', '#1087#1072#1088#1090#1080#1080')'
  1850. Table = PKDBTable1
  1851. TableField = 'MILACCOUNTGEN'
  1852. EditLabel.Width = 194
  1853. EditLabel.Height = 13
  1854. EditLabel.Caption = #1054#1073#1097#1080#1081' '#1091#1095#1077#1090' ('#1085#1086#1084#1077#1088' '#1082#1086#1084#1072#1085#1076#1099', '#1087#1072#1088#1090#1080#1080')'
  1855. end
  1856. object PKDBLabelEdit7: TPKDBLabelEdit
  1857. Left = 495
  1858. Top = 115
  1859. Width = 274
  1860. Height = 21
  1861. TabOrder = 8
  1862. Text = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1099#1081' '#1091#1095#1077#1090
  1863. Table = PKDBTable1
  1864. TableField = 'MILACCOUNTSPEC'
  1865. EditLabel.Width = 96
  1866. EditLabel.Height = 13
  1867. EditLabel.Caption = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1099#1081' '#1091#1095#1077#1090
  1868. end
  1869. object PKDBBLabelComboBox5: TPKDBBLabelComboBox
  1870. Left = 495
  1871. Top = 25
  1872. Width = 274
  1873. Height = 21
  1874. ItemHeight = 13
  1875. TabOrder = 9
  1876. Text = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1074#1080#1076#1072' '#1074#1086#1080#1085#1089#1082#1086#1075#1086' '#1091#1095#1077#1090#1072
  1877. DBTable = 'HR_FACETCONTENT'
  1878. PrimaryKey = 'ID'
  1879. content = ' rowcontent'
  1880. constraint = ' facetid=69954'
  1881. Table = PKDBTable1
  1882. TableField = 'MILACCOUNTID'
  1883. EditLabel.Width = 161
  1884. EditLabel.Height = 13
  1885. EditLabel.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1074#1086#1080#1085#1089#1082#1086#1075#1086' '#1091#1095#1077#1090#1072
  1886. end
  1887. object PKDBLabelEdit14: TPKDBLabelEdit
  1888. Left = 495
  1889. Top = 160
  1890. Width = 274
  1891. Height = 21
  1892. TabOrder = 10
  1893. Text = #1054#1090#1084#1077#1090#1082#1072' '#1086' '#1089#1085#1103#1090#1080#1080' '#1089' '#1091#1095#1077#1090#1072
  1894. Table = PKDBTable1
  1895. TableField = 'MILREGFLAG'
  1896. EditLabel.Width = 132
  1897. EditLabel.Height = 13
  1898. EditLabel.Caption = #1054#1090#1084#1077#1090#1082#1072' '#1086' '#1089#1085#1103#1090#1080#1080' '#1089' '#1091#1095#1077#1090#1072
  1899. end
  1900. end
  1901. object TabSheet11: TTabSheet
  1902. Caption = #1054#1073#1088#1072#1079#1086#1074#1072#1085#1080#1077
  1903. ImageIndex = 1
  1904. OnShow = CLEducation
  1905. object GridPanel10: TGridPanel
  1906. AlignWithMargins = True
  1907. Left = 3
  1908. Top = 3
  1909. Width = 1090
  1910. Height = 28
  1911. Align = alTop
  1912. BevelOuter = bvNone
  1913. ColumnCollection = <
  1914. item
  1915. SizeStyle = ssAbsolute
  1916. Value = 152.000000000000000000
  1917. end
  1918. item
  1919. Value = 100.000000000000000000
  1920. end>
  1921. ControlCollection = <
  1922. item
  1923. Column = -1
  1924. Row = -1
  1925. end
  1926. item
  1927. Column = 0
  1928. Control = PKDBEditButtons10
  1929. Row = 0
  1930. end
  1931. item
  1932. Column = 1
  1933. Control = PKDBFindPanel10
  1934. Row = 0
  1935. end>
  1936. RowCollection = <
  1937. item
  1938. Value = 100.000000000000000000
  1939. end>
  1940. TabOrder = 0
  1941. object PKDBEditButtons10: TPKDBEditButtons
  1942. Left = 0
  1943. Top = 0
  1944. Width = 150
  1945. Height = 28
  1946. TableName = 'HR_DOCEDUCATION'
  1947. PrimaryFieldName = 'ID'
  1948. ParentFieldName = 'ID'
  1949. Grid = VrDbGrid9
  1950. Connection = DataModule1.ADConnection1
  1951. UseTempTable = False
  1952. EditDialogClassName = 'TDOCEDUCATIONEDIT'
  1953. DesignSize = (
  1954. 150
  1955. 28)
  1956. end
  1957. object PKDBFindPanel10: TPKDBFindPanel
  1958. Left = 152
  1959. Top = 0
  1960. Width = 938
  1961. Height = 27
  1962. QuerysCollection = <
  1963. item
  1964. Query = ADQuery3
  1965. QueryCaption = #1054#1073#1088#1072#1079#1086#1074#1072#1085#1080#1077
  1966. MainQuery = True
  1967. KeyFieldName = 'ID'
  1968. FieldList = <
  1969. item
  1970. FieldName = 'DOCSERIA'
  1971. FieldCaption = #1057#1077#1088#1080#1103' '#1076#1086#1082'-'#1090#1072'.'
  1972. FieldType = ffString
  1973. DisplayName = 'DOCSERIA'
  1974. end
  1975. item
  1976. FieldName = 'DOCNUMB'
  1977. FieldCaption = #8470' '#1076#1086#1082'-'#1090#1072'.'
  1978. FieldType = ffString
  1979. DisplayName = 'DOCNUMB'
  1980. end
  1981. item
  1982. FieldName = 'NAME'
  1983. FieldCaption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1086#1088#1075'.'
  1984. FieldType = ffString
  1985. DisplayName = 'NAME'
  1986. end
  1987. item
  1988. FieldName = 'OUTYEAR'
  1989. FieldCaption = #1043#1086#1076' '#1074#1099#1087#1091#1089#1082#1072
  1990. FieldType = ffString
  1991. DisplayName = 'OUTYEAR'
  1992. end
  1993. item
  1994. FieldName = 'DOCTYPE'
  1995. FieldCaption = #1090#1080#1087' '#1076#1086#1082'-'#1090#1072'.'
  1996. FieldType = ffString
  1997. DisplayName = 'DOCTYPE'
  1998. end
  1999. item
  2000. FieldName = 'OVEREDUCATION'
  2001. FieldCaption = #1055#1086#1089#1083#1077#1074#1091#1079#1086#1074#1089#1082#1086#1077' '#1086#1073#1088'.'
  2002. FieldType = ffString
  2003. DisplayName = 'OVEREDUCATION'
  2004. end
  2005. item
  2006. FieldName = 'SPECIALITYCODE'
  2007. FieldCaption = #1050#1086#1076' '#1089#1087#1077#1094'.'
  2008. FieldType = ffString
  2009. DisplayName = 'SPECIALITYCODE'
  2010. end
  2011. item
  2012. FieldName = 'SPECIALITY'
  2013. FieldCaption = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1086#1089#1090#1100
  2014. FieldType = ffString
  2015. DisplayName = 'SPECIALITY'
  2016. end
  2017. item
  2018. FieldName = 'CVALIFICATIONCODE'
  2019. FieldCaption = #1050#1086#1076' '#1082#1074#1072#1083'.'
  2020. FieldType = ffString
  2021. DisplayName = 'CVALIFICATIONCODE'
  2022. end
  2023. item
  2024. FieldName = 'CVALIFICATION'
  2025. FieldCaption = #1050#1074#1072#1083#1080#1092#1080#1082#1072#1094#1080#1103
  2026. FieldType = ffString
  2027. DisplayName = 'CVALIFICATION'
  2028. end
  2029. item
  2030. FieldName = 'FIO'
  2031. FieldCaption = #1060#1048#1054
  2032. FieldType = ffString
  2033. DisplayName = 'FIO'
  2034. end>
  2035. end>
  2036. DesignSize = (
  2037. 938
  2038. 27)
  2039. end
  2040. end
  2041. object VrDbGrid9: TVrDbGrid
  2042. AlignWithMargins = True
  2043. Left = 3
  2044. Top = 34
  2045. Width = 1090
  2046. Height = 235
  2047. Margins.Top = 0
  2048. ScrollBars = ssHorizontal
  2049. ShowCheckBoxes = True
  2050. CheckFieldName = 'ID'
  2051. CheckedRowsColoured = True
  2052. CheckedRowsColour = clYellow
  2053. MultiSelect = True
  2054. ColouredRows = True
  2055. CrmEvnColor = clInfoBk
  2056. CrmOddColor = clWindow
  2057. SortChangeEnable = True
  2058. Align = alClient
  2059. DataSource = DataSource15
  2060. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  2061. TabOrder = 1
  2062. TitleFont.Charset = DEFAULT_CHARSET
  2063. TitleFont.Color = clWindowText
  2064. TitleFont.Height = -11
  2065. TitleFont.Name = 'Tahoma'
  2066. TitleFont.Style = []
  2067. Columns = <
  2068. item
  2069. Expanded = False
  2070. FieldName = 'ID'
  2071. Visible = False
  2072. SortMode = smNone
  2073. end
  2074. item
  2075. Expanded = False
  2076. FieldName = 'DOCTYPE'
  2077. Width = 66
  2078. Visible = True
  2079. SortMode = smNone
  2080. end
  2081. item
  2082. Expanded = False
  2083. FieldName = 'SPECIALITY'
  2084. Width = 228
  2085. Visible = True
  2086. SortMode = smNone
  2087. end
  2088. item
  2089. Expanded = False
  2090. FieldName = 'CVALIFICATION'
  2091. Width = 90
  2092. Visible = True
  2093. SortMode = smNone
  2094. end
  2095. item
  2096. Expanded = False
  2097. FieldName = 'EDUCATIONFORM'
  2098. Width = 88
  2099. Visible = True
  2100. SortMode = smNone
  2101. end
  2102. item
  2103. Expanded = False
  2104. FieldName = 'DOCSERIA'
  2105. Width = 36
  2106. Visible = True
  2107. SortMode = smNone
  2108. end
  2109. item
  2110. Expanded = False
  2111. FieldName = 'DOCNUMB'
  2112. Width = 44
  2113. Visible = True
  2114. SortMode = smNone
  2115. end
  2116. item
  2117. Expanded = False
  2118. FieldName = 'NAME'
  2119. Width = 179
  2120. Visible = True
  2121. SortMode = smNone
  2122. end
  2123. item
  2124. Expanded = False
  2125. FieldName = 'OUTYEAR'
  2126. Visible = True
  2127. SortMode = smNone
  2128. end
  2129. item
  2130. Expanded = False
  2131. FieldName = 'OVEREDUCATION'
  2132. Visible = True
  2133. SortMode = smNone
  2134. end
  2135. item
  2136. Expanded = False
  2137. FieldName = 'SPECIALITYCODE'
  2138. Visible = True
  2139. SortMode = smNone
  2140. end
  2141. item
  2142. Expanded = False
  2143. FieldName = 'CVALIFICATIONCODE'
  2144. Visible = True
  2145. SortMode = smNone
  2146. end
  2147. item
  2148. Expanded = False
  2149. FieldName = 'FIO'
  2150. Visible = True
  2151. SortMode = smNone
  2152. end>
  2153. end
  2154. end
  2155. object TabSheet14: TTabSheet
  2156. Caption = #1040#1076#1088#1077#1089
  2157. ImageIndex = 4
  2158. OnShow = CLAdress
  2159. object GridPanel12: TGridPanel
  2160. AlignWithMargins = True
  2161. Left = 3
  2162. Top = 3
  2163. Width = 1090
  2164. Height = 28
  2165. Align = alTop
  2166. BevelOuter = bvNone
  2167. ColumnCollection = <
  2168. item
  2169. SizeStyle = ssAbsolute
  2170. Value = 152.000000000000000000
  2171. end
  2172. item
  2173. Value = 100.000000000000000000
  2174. end>
  2175. ControlCollection = <
  2176. item
  2177. Column = -1
  2178. Row = -1
  2179. end
  2180. item
  2181. Column = 0
  2182. Control = PKDBEditButtons12
  2183. Row = 0
  2184. end
  2185. item
  2186. Column = 1
  2187. Control = PKDBFindPanel12
  2188. Row = 0
  2189. end>
  2190. RowCollection = <
  2191. item
  2192. Value = 100.000000000000000000
  2193. end>
  2194. TabOrder = 0
  2195. object PKDBEditButtons12: TPKDBEditButtons
  2196. Left = 0
  2197. Top = 0
  2198. Width = 150
  2199. Height = 28
  2200. TableName = 'HR_ADRESS'
  2201. PrimaryFieldName = 'ID'
  2202. ParentFieldName = 'ID'
  2203. Grid = VrDbGrid11
  2204. Connection = DataModule1.ADConnection1
  2205. UseTempTable = False
  2206. EditDialogClassName = 'TADDRESS'
  2207. DesignSize = (
  2208. 150
  2209. 28)
  2210. end
  2211. object PKDBFindPanel12: TPKDBFindPanel
  2212. Left = 152
  2213. Top = 0
  2214. Width = 938
  2215. Height = 27
  2216. QuerysCollection = <
  2217. item
  2218. Query = ADQuery3
  2219. MainQuery = False
  2220. FieldList = <
  2221. item
  2222. FieldName = 'LASTNAME'
  2223. FieldCaption = 'LASTNAME'
  2224. FieldType = ffString
  2225. DisplayName = 'LASTNAME'
  2226. end
  2227. item
  2228. FieldName = 'NAME'
  2229. FieldCaption = 'NAME'
  2230. FieldType = ffString
  2231. DisplayName = 'NAME'
  2232. end
  2233. item
  2234. FieldName = 'FATHERSHIP'
  2235. FieldCaption = 'FATHERSHIP'
  2236. FieldType = ffString
  2237. DisplayName = 'FATHERSHIP'
  2238. end
  2239. item
  2240. FieldName = 'POL'
  2241. FieldCaption = 'POL'
  2242. FieldType = ffString
  2243. DisplayName = 'POL'
  2244. end
  2245. item
  2246. FieldName = 'BIRTHDATE'
  2247. FieldCaption = 'BIRTHDATE'
  2248. FieldType = ffDate
  2249. DisplayName = 'BIRTHDATE'
  2250. end
  2251. item
  2252. FieldName = 'BIRTHPLACE'
  2253. FieldCaption = 'BIRTHPLACE'
  2254. FieldType = ffString
  2255. DisplayName = 'BIRTHPLACE'
  2256. end
  2257. item
  2258. FieldName = 'CONDITION'
  2259. FieldCaption = 'CONDITION'
  2260. FieldType = ffString
  2261. DisplayName = 'CONDITION'
  2262. end>
  2263. end>
  2264. DesignSize = (
  2265. 938
  2266. 27)
  2267. end
  2268. end
  2269. object VrDbGrid11: TVrDbGrid
  2270. AlignWithMargins = True
  2271. Left = 3
  2272. Top = 34
  2273. Width = 1090
  2274. Height = 235
  2275. Margins.Top = 0
  2276. ScrollBars = ssHorizontal
  2277. ShowCheckBoxes = True
  2278. CheckFieldName = 'ID'
  2279. CheckedRowsColoured = True
  2280. CheckedRowsColour = clYellow
  2281. MultiSelect = True
  2282. ColouredRows = True
  2283. CrmEvnColor = clInfoBk
  2284. CrmOddColor = clWindow
  2285. SortChangeEnable = True
  2286. Align = alClient
  2287. DataSource = DataSource12
  2288. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  2289. TabOrder = 1
  2290. TitleFont.Charset = DEFAULT_CHARSET
  2291. TitleFont.Color = clWindowText
  2292. TitleFont.Height = -11
  2293. TitleFont.Name = 'Tahoma'
  2294. TitleFont.Style = []
  2295. Columns = <
  2296. item
  2297. Expanded = False
  2298. FieldName = 'ID'
  2299. Visible = False
  2300. SortMode = smNone
  2301. end
  2302. item
  2303. Expanded = False
  2304. FieldName = 'CITEZENID'
  2305. Visible = False
  2306. SortMode = smNone
  2307. end
  2308. item
  2309. Expanded = False
  2310. FieldName = 'TOWNNAME'
  2311. Width = 202
  2312. Visible = True
  2313. SortMode = smNone
  2314. end
  2315. item
  2316. Expanded = False
  2317. FieldName = 'SUBTOWN'
  2318. Width = 116
  2319. Visible = True
  2320. SortMode = smNone
  2321. end
  2322. item
  2323. Expanded = False
  2324. FieldName = 'STRRETHOUSE'
  2325. Width = 245
  2326. Visible = True
  2327. SortMode = smNone
  2328. end
  2329. item
  2330. Expanded = False
  2331. FieldName = #1058'REGION'
  2332. Width = 135
  2333. Visible = True
  2334. SortMode = smASC
  2335. end
  2336. item
  2337. Expanded = False
  2338. FieldName = 'AREA'
  2339. Width = 123
  2340. Visible = True
  2341. SortMode = smNone
  2342. end
  2343. item
  2344. Expanded = False
  2345. FieldName = 'REGDATE'
  2346. Visible = True
  2347. SortMode = smNone
  2348. end
  2349. item
  2350. Expanded = False
  2351. FieldName = 'STATUS'
  2352. Visible = True
  2353. SortMode = smNone
  2354. end>
  2355. end
  2356. end
  2357. object TabSheet3: TTabSheet
  2358. Caption = #1057#1090#1088#1072#1093#1086#1074#1072#1085#1080#1077
  2359. ImageIndex = 14
  2360. OnShow = CLInsurance
  2361. object GridPanel11: TGridPanel
  2362. AlignWithMargins = True
  2363. Left = 3
  2364. Top = 3
  2365. Width = 1090
  2366. Height = 28
  2367. Align = alTop
  2368. BevelOuter = bvNone
  2369. ColumnCollection = <
  2370. item
  2371. SizeStyle = ssAbsolute
  2372. Value = 152.000000000000000000
  2373. end
  2374. item
  2375. Value = 100.000000000000000000
  2376. end>
  2377. ControlCollection = <
  2378. item
  2379. Column = -1
  2380. Row = -1
  2381. end
  2382. item
  2383. Column = 0
  2384. Control = PKDBEditButtons11
  2385. Row = 0
  2386. end
  2387. item
  2388. Column = 1
  2389. Control = PKDBFindPanel11
  2390. Row = 0
  2391. end>
  2392. RowCollection = <
  2393. item
  2394. Value = 100.000000000000000000
  2395. end>
  2396. TabOrder = 0
  2397. object PKDBEditButtons11: TPKDBEditButtons
  2398. Left = 0
  2399. Top = 0
  2400. Width = 150
  2401. Height = 28
  2402. TableName = 'HR_INSURANCE'
  2403. PrimaryFieldName = 'ID'
  2404. ParentFieldName = 'ID'
  2405. Grid = VrDbGrid10
  2406. Connection = DataModule1.ADConnection1
  2407. UseTempTable = False
  2408. EditDialogClassName = 'TINSURANCEEDIT'
  2409. DesignSize = (
  2410. 150
  2411. 28)
  2412. end
  2413. object PKDBFindPanel11: TPKDBFindPanel
  2414. Left = 152
  2415. Top = 0
  2416. Width = 938
  2417. Height = 27
  2418. QuerysCollection = <
  2419. item
  2420. Query = ADQuery14
  2421. QueryCaption = #1057#1090#1088#1072#1093#1086#1074#1072#1085#1080#1077
  2422. MainQuery = True
  2423. KeyFieldName = 'ID'
  2424. FieldList = <
  2425. item
  2426. FieldName = 'STATUSNAME'
  2427. FieldCaption = #1057#1090#1072#1090#1091#1089
  2428. FieldType = ffString
  2429. DisplayName = 'STATUSNAME'
  2430. end
  2431. item
  2432. FieldName = 'DOCNUMB'
  2433. FieldCaption = #1053#1086#1084#1077#1088' '#1087#1086#1083#1080#1089#1072
  2434. FieldType = ffString
  2435. DisplayName = 'DOCNUMB'
  2436. end
  2437. item
  2438. FieldName = 'DELIVERYDATE'
  2439. FieldCaption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
  2440. FieldType = ffDate
  2441. DisplayName = 'DELIVERYDATE'
  2442. end
  2443. item
  2444. FieldName = 'COMPANY'
  2445. FieldCaption = #1050#1086#1084#1087#1072#1085#1080#1103
  2446. FieldType = ffString
  2447. DisplayName = 'COMPANY'
  2448. end
  2449. item
  2450. FieldName = 'SERVICE'
  2451. FieldCaption = #1050#1072#1090'. '#1086#1073#1089#1083#1091#1078#1080#1074#1072#1085#1080#1103
  2452. FieldType = ffString
  2453. DisplayName = 'SERVICE'
  2454. end
  2455. item
  2456. FieldName = 'CHAGESTATUSDATE'
  2457. FieldCaption = #1044#1072#1090#1072' '#1089#1084#1077#1085#1099' '#1089#1090#1072#1090#1091#1089#1072
  2458. FieldType = ffDate
  2459. DisplayName = 'CHAGESTATUSDATE'
  2460. end
  2461. item
  2462. FieldName = 'DOCTYPE'
  2463. FieldCaption = #1058#1080#1087' '#1087#1086#1083#1080#1089#1072
  2464. FieldType = ffString
  2465. DisplayName = 'DOCTYPE'
  2466. end>
  2467. end>
  2468. DesignSize = (
  2469. 938
  2470. 27)
  2471. end
  2472. end
  2473. object VrDbGrid10: TVrDbGrid
  2474. AlignWithMargins = True
  2475. Left = 3
  2476. Top = 34
  2477. Width = 1090
  2478. Height = 235
  2479. Margins.Top = 0
  2480. ScrollBars = ssHorizontal
  2481. ShowCheckBoxes = True
  2482. CheckFieldName = 'ID'
  2483. CheckedRowsColoured = True
  2484. CheckedRowsColour = clYellow
  2485. MultiSelect = True
  2486. ColouredRows = True
  2487. CrmEvnColor = clInfoBk
  2488. CrmOddColor = clWindow
  2489. SortChangeEnable = True
  2490. Align = alClient
  2491. DataSource = DataSource14
  2492. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  2493. TabOrder = 1
  2494. TitleFont.Charset = DEFAULT_CHARSET
  2495. TitleFont.Color = clWindowText
  2496. TitleFont.Height = -11
  2497. TitleFont.Name = 'Tahoma'
  2498. TitleFont.Style = []
  2499. Columns = <
  2500. item
  2501. Expanded = False
  2502. FieldName = 'ID'
  2503. Visible = False
  2504. SortMode = smNone
  2505. end
  2506. item
  2507. Expanded = False
  2508. FieldName = 'CITEZENID'
  2509. Visible = False
  2510. SortMode = smNone
  2511. end
  2512. item
  2513. Expanded = False
  2514. FieldName = 'DOCTYPE'
  2515. Width = 117
  2516. Visible = True
  2517. SortMode = smNone
  2518. end
  2519. item
  2520. Expanded = False
  2521. FieldName = 'DOCNUMB'
  2522. Width = 144
  2523. Visible = True
  2524. SortMode = smNone
  2525. end
  2526. item
  2527. Expanded = False
  2528. FieldName = 'COMPANY'
  2529. Width = 197
  2530. Visible = True
  2531. SortMode = smNone
  2532. end
  2533. item
  2534. Expanded = False
  2535. FieldName = 'DELIVERYDATE'
  2536. Width = 97
  2537. Visible = True
  2538. SortMode = smNone
  2539. end
  2540. item
  2541. Expanded = False
  2542. FieldName = 'SERVICE'
  2543. Width = 116
  2544. Visible = True
  2545. SortMode = smNone
  2546. end
  2547. item
  2548. Expanded = False
  2549. FieldName = 'STATUSID'
  2550. Visible = False
  2551. SortMode = smNone
  2552. end
  2553. item
  2554. Expanded = False
  2555. FieldName = 'CHAGESTATUSDATE'
  2556. Width = 117
  2557. Visible = True
  2558. SortMode = smNone
  2559. end
  2560. item
  2561. Expanded = False
  2562. FieldName = 'STATUSNAME'
  2563. Visible = True
  2564. SortMode = smNone
  2565. end>
  2566. end
  2567. end
  2568. object TabSheet15: TTabSheet
  2569. Caption = #1053#1072#1083#1086#1075'. '#1080' '#1087#1077#1085#1089' '#1091#1095#1077#1090
  2570. ImageIndex = 5
  2571. object PKDBLabelEdit4: TPKDBLabelEdit
  2572. Left = 15
  2573. Top = 25
  2574. Width = 178
  2575. Height = 21
  2576. TabOrder = 0
  2577. Text = #1048#1053#1053
  2578. Table = PKDBTable2
  2579. TableField = 'TAXNUMB'
  2580. EditLabel.Width = 21
  2581. EditLabel.Height = 13
  2582. EditLabel.Caption = #1048#1053#1053
  2583. end
  2584. object PKDBLabelEdit5: TPKDBLabelEdit
  2585. Left = 15
  2586. Top = 70
  2587. Width = 178
  2588. Height = 21
  2589. TabOrder = 1
  2590. Text = #1053#1086#1084#1077#1088' C'#1053#1048#1051#1057
  2591. EditKind = ekNumberEdit
  2592. Table = PKDBTable3
  2593. TableField = 'DOCNUMB'
  2594. EditLabel.Width = 69
  2595. EditLabel.Height = 13
  2596. EditLabel.Caption = #1053#1086#1084#1077#1088' C'#1053#1048#1051#1057
  2597. end
  2598. object PKDBLabelEdit6: TPKDBLabelEdit
  2599. Left = 15
  2600. Top = 115
  2601. Width = 178
  2602. Height = 21
  2603. TabOrder = 2
  2604. Text = #1044#1072#1090#1072' '#1087#1086#1089#1090#1072#1085#1086#1074#1082#1080' '#1085#1072' '#1087#1077#1085#1089#1080#1086#1085#1085#1099#1081' '#1091#1095#1077#1090
  2605. EditKind = ekDateEdit
  2606. Table = PKDBTable3
  2607. TableField = 'REGDATE'
  2608. EditLabel.Width = 194
  2609. EditLabel.Height = 13
  2610. EditLabel.Caption = #1044#1072#1090#1072' '#1087#1086#1089#1090#1072#1085#1086#1074#1082#1080' '#1085#1072' '#1087#1077#1085#1089#1080#1086#1085#1085#1099#1081' '#1091#1095#1077#1090
  2611. end
  2612. object Button4: TButton
  2613. Left = 15
  2614. Top = 210
  2615. Width = 110
  2616. Height = 40
  2617. Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
  2618. TabOrder = 3
  2619. OnClick = Button4Click
  2620. end
  2621. object PKDBLabelEdit8: TPKDBLabelEdit
  2622. Left = 243
  2623. Top = 25
  2624. Width = 145
  2625. Height = 21
  2626. TabOrder = 4
  2627. Text = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1090#1088#1091#1076#1086#1074#1086#1075#1086' '#1089#1090#1072#1078#1072
  2628. EditKind = ekDateEdit
  2629. Table = PKDBTable3
  2630. TableField = 'STARTWORKDATE'
  2631. EditLabel.Width = 156
  2632. EditLabel.Height = 13
  2633. EditLabel.Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1090#1088#1091#1076#1086#1074#1086#1075#1086' '#1089#1090#1072#1078#1072
  2634. end
  2635. object PKDBLabelEdit9: TPKDBLabelEdit
  2636. Left = 888
  2637. Top = 102
  2638. Width = 30
  2639. Height = 21
  2640. TabOrder = 5
  2641. Text = #1044#1072#1090#1072' '#1085#1077#1087#1088#1077#1088#1099#1074#1085#1086#1075#1086' '#1090#1088#1091#1076#1086#1074#1086#1075#1086' '#1089#1090#1072#1078#1072
  2642. Visible = False
  2643. EditKind = ekDateEdit
  2644. Table = PKDBTable3
  2645. TableField = 'TOTALWORKDATE'
  2646. EditLabel.Width = 193
  2647. EditLabel.Height = 13
  2648. EditLabel.Caption = #1044#1072#1090#1072' '#1085#1077#1087#1088#1077#1088#1099#1074#1085#1086#1075#1086' '#1090#1088#1091#1076#1086#1074#1086#1075#1086' '#1089#1090#1072#1078#1072
  2649. end
  2650. object GroupBox1: TGroupBox
  2651. Left = 431
  2652. Top = 4
  2653. Width = 257
  2654. Height = 266
  2655. Caption = ' '#1055#1077#1085#1089#1080#1103
  2656. TabOrder = 6
  2657. object PKDBLabelEdit10: TPKDBLabelEdit
  2658. Left = 24
  2659. Top = 35
  2660. Width = 209
  2661. Height = 21
  2662. TabOrder = 0
  2663. Text = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103' '#1087#1077#1085#1089#1080#1080
  2664. EditKind = ekDateEdit
  2665. Table = PKDBTable3
  2666. TableField = 'PENSIONDATE'
  2667. EditLabel.Width = 126
  2668. EditLabel.Height = 13
  2669. EditLabel.Caption = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103' '#1087#1077#1085#1089#1080#1080
  2670. end
  2671. object PKDBBLabelComboBox6: TPKDBBLabelComboBox
  2672. Left = 24
  2673. Top = 81
  2674. Width = 209
  2675. Height = 21
  2676. ItemHeight = 13
  2677. TabOrder = 1
  2678. Text = #1042#1080#1076' '#1087#1077#1085#1089#1080#1080
  2679. DBTable = 'HR_FACETCONTENT'
  2680. PrimaryKey = 'ID'
  2681. content = 'rowcontent'
  2682. constraint = ' facetid=2095'
  2683. Table = PKDBTable3
  2684. TableField = 'PENSIONTYPE'
  2685. EditLabel.Width = 57
  2686. EditLabel.Height = 13
  2687. EditLabel.Caption = #1042#1080#1076' '#1087#1077#1085#1089#1080#1080
  2688. end
  2689. object PKDBLabelEdit12: TPKDBLabelEdit
  2690. Left = 24
  2691. Top = 128
  2692. Width = 209
  2693. Height = 21
  2694. TabOrder = 2
  2695. Text = #1053#1086#1084#1077#1088' '#1087#1077#1085#1089#1080#1086#1085#1085#1086#1075#1086' '#1091#1076#1086#1089#1090#1086#1074#1077#1088#1077#1085#1080#1103
  2696. Visible = False
  2697. Table = PKDBTable3
  2698. TableField = 'PENSIONDOCNUMB'
  2699. EditLabel.Width = 179
  2700. EditLabel.Height = 13
  2701. EditLabel.Caption = #1053#1086#1084#1077#1088' '#1087#1077#1085#1089#1080#1086#1085#1085#1086#1075#1086' '#1091#1076#1086#1089#1090#1086#1074#1077#1088#1077#1085#1080#1103
  2702. end
  2703. object PKDBBLabelComboBox9: TPKDBBLabelComboBox
  2704. Left = 25
  2705. Top = 177
  2706. Width = 208
  2707. Height = 21
  2708. Color = clWhite
  2709. ItemHeight = 13
  2710. TabOrder = 3
  2711. Text = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1077#1085#1089#1080#1081' '#1087#1086' '#1089#1087#1080#1089#1082#1091' '
  2712. DBTable = 'hr_FACETCONTENT'
  2713. PrimaryKey = 'ID'
  2714. content = 'rowcontent'
  2715. constraint = ' facetid=1837738'
  2716. Table = PKDBTable3
  2717. TableField = 'PENSIONLIST'
  2718. EditLabel.Width = 153
  2719. EditLabel.Height = 13
  2720. EditLabel.Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1077#1085#1089#1080#1081' '#1087#1086' '#1089#1087#1080#1089#1082#1091' '
  2721. end
  2722. object PKDBBLabelComboBox7: TPKDBBLabelComboBox
  2723. Left = 24
  2724. Top = 224
  2725. Width = 209
  2726. Height = 21
  2727. ItemHeight = 13
  2728. TabOrder = 4
  2729. Text = #1043#1088#1091#1087#1087#1072' '#1080#1085#1074#1072#1083#1080#1076#1085#1086#1089#1090#1080
  2730. DBTable = 'HR_FACETCONTENT'
  2731. PrimaryKey = 'ID'
  2732. content = 'rowcontent'
  2733. constraint = ' facetid=2097'
  2734. Table = PKDBTable3
  2735. TableField = 'invalidgroup'
  2736. EditLabel.Width = 111
  2737. EditLabel.Height = 13
  2738. EditLabel.Caption = #1043#1088#1091#1087#1087#1072' '#1080#1085#1074#1072#1083#1080#1076#1085#1086#1089#1090#1080
  2739. end
  2740. end
  2741. object PKDBLabelEdit13: TPKDBLabelEdit
  2742. Left = 15
  2743. Top = 160
  2744. Width = 178
  2745. Height = 21
  2746. TabOrder = 7
  2747. Text = #1053#1086#1084#1077#1088' '#1090#1088#1091#1076#1086#1074#1086#1081' '#1082#1085#1080#1078#1082#1080
  2748. Table = PKDBTable4
  2749. TableField = 'BOOKNUMB'
  2750. EditLabel.Width = 124
  2751. EditLabel.Height = 13
  2752. EditLabel.Caption = #1053#1086#1084#1077#1088' '#1090#1088#1091#1076#1086#1074#1086#1081' '#1082#1085#1080#1078#1082#1080
  2753. end
  2754. object GroupBox2: TGroupBox
  2755. Left = 219
  2756. Top = 113
  2757. Width = 198
  2758. Height = 157
  2759. Caption = ' '#1056#1072#1089#1095#1077#1090' '#1089#1090#1072#1078#1072' '#1076#1083#1103' '#1073#1086#1083#1100#1085#1080#1095#1085#1099#1093' '
  2760. TabOrder = 8
  2761. object Label1: TLabel
  2762. Left = 19
  2763. Top = 23
  2764. Width = 152
  2765. Height = 13
  2766. Caption = #1044#1072#1090#1072' '#1074#1099#1093#1086#1076#1072' '#1085#1072' '#1073#1086#1083#1100#1085#1080#1095#1085#1099#1081':'
  2767. end
  2768. object Button5: TButton
  2769. Left = 23
  2770. Top = 101
  2771. Width = 146
  2772. Height = 40
  2773. Caption = ' '#1056#1072#1089#1095#1080#1090#1072#1090#1100' '#1089#1090#1072#1078
  2774. TabOrder = 0
  2775. WordWrap = True
  2776. OnClick = Button5Click
  2777. end
  2778. object MaskEdit1: TMaskEdit
  2779. Left = 24
  2780. Top = 50
  2781. Width = 145
  2782. Height = 21
  2783. EditMask = '!99/99/0000;1;_'
  2784. MaxLength = 10
  2785. TabOrder = 1
  2786. Text = ' . . '
  2787. end
  2788. end
  2789. object PKDBLabelEdit11: TPKDBLabelEdit
  2790. Left = 888
  2791. Top = 147
  2792. Width = 41
  2793. Height = 21
  2794. TabOrder = 9
  2795. Text = #1044#1072#1090#1072' '#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090#1072' '#1087#1077#1085#1089#1080#1080
  2796. Visible = False
  2797. EditKind = ekDateEdit
  2798. Table = PKDBTable3
  2799. TableField = 'PENSIONRECOUNTDATE'
  2800. EditLabel.Width = 132
  2801. EditLabel.Height = 13
  2802. EditLabel.Caption = #1044#1072#1090#1072' '#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090#1072' '#1087#1077#1085#1089#1080#1080
  2803. end
  2804. end
  2805. object TabSheet16: TTabSheet
  2806. Caption = #1056#1086#1076#1089#1090#1074#1077#1085#1085#1080#1082#1080
  2807. ImageIndex = 6
  2808. OnShow = CLFamily
  2809. object GridPanel13: TGridPanel
  2810. AlignWithMargins = True
  2811. Left = 3
  2812. Top = 3
  2813. Width = 1090
  2814. Height = 28
  2815. Align = alTop
  2816. BevelOuter = bvNone
  2817. ColumnCollection = <
  2818. item
  2819. SizeStyle = ssAbsolute
  2820. Value = 152.000000000000000000
  2821. end
  2822. item
  2823. Value = 100.000000000000000000
  2824. end>
  2825. ControlCollection = <
  2826. item
  2827. Column = -1
  2828. Row = -1
  2829. end
  2830. item
  2831. Column = 0
  2832. Control = PKDBEditButtons13
  2833. Row = 0
  2834. end
  2835. item
  2836. Column = 1
  2837. Control = PKDBFindPanel13
  2838. Row = 0
  2839. end>
  2840. RowCollection = <
  2841. item
  2842. Value = 100.000000000000000000
  2843. end>
  2844. TabOrder = 0
  2845. object PKDBEditButtons13: TPKDBEditButtons
  2846. Left = 0
  2847. Top = 0
  2848. Width = 150
  2849. Height = 28
  2850. TableName = 'HR_FAMILY'
  2851. PrimaryFieldName = 'ID'
  2852. ParentFieldName = 'ID'
  2853. Grid = VrDbGrid12
  2854. Connection = DataModule1.ADConnection1
  2855. UseTempTable = False
  2856. EditDialogClassName = 'TFAMILYEDIT'
  2857. DesignSize = (
  2858. 150
  2859. 28)
  2860. end
  2861. object PKDBFindPanel13: TPKDBFindPanel
  2862. Left = 152
  2863. Top = 0
  2864. Width = 938
  2865. Height = 27
  2866. QuerysCollection = <
  2867. item
  2868. Query = ADQuery7
  2869. MainQuery = True
  2870. KeyFieldName = 'ID'
  2871. FieldList = <
  2872. item
  2873. FieldName = 'BIRTHDATE'
  2874. FieldCaption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
  2875. FieldType = ffDate
  2876. DisplayName = 'BIRTHDATE'
  2877. end
  2878. item
  2879. FieldName = 'BIRTHPLACE'
  2880. FieldCaption = #1052#1077#1089#1090#1086' '#1088#1086#1078#1076#1077#1085#1080#1103
  2881. FieldType = ffString
  2882. DisplayName = 'BIRTHPLACE'
  2883. end
  2884. item
  2885. FieldName = 'STEP'
  2886. FieldCaption = #1057#1090#1077#1087#1077#1100' '#1088#1086#1076#1089#1090#1074#1072
  2887. FieldType = ffString
  2888. DisplayName = 'STEP'
  2889. end
  2890. item
  2891. FieldName = 'LASTNAME'
  2892. FieldCaption = #1060#1072#1084#1080#1083#1080#1103
  2893. FieldType = ffString
  2894. DisplayName = 'LASTNAME'
  2895. end
  2896. item
  2897. FieldName = 'NAME'
  2898. FieldCaption = #1048#1084#1103
  2899. FieldType = ffString
  2900. DisplayName = 'NAME'
  2901. end
  2902. item
  2903. FieldName = 'FATHERSHIP'
  2904. FieldCaption = #1054#1090#1095#1077#1089#1090#1074#1086
  2905. FieldType = ffString
  2906. DisplayName = 'FATHERSHIP'
  2907. end>
  2908. end>
  2909. DesignSize = (
  2910. 938
  2911. 27)
  2912. end
  2913. end
  2914. object VrDbGrid12: TVrDbGrid
  2915. AlignWithMargins = True
  2916. Left = 3
  2917. Top = 34
  2918. Width = 1090
  2919. Height = 235
  2920. Margins.Top = 0
  2921. ScrollBars = ssHorizontal
  2922. ShowCheckBoxes = True
  2923. CheckFieldName = 'ID'
  2924. CheckedRowsColoured = True
  2925. CheckedRowsColour = clYellow
  2926. MultiSelect = True
  2927. ColouredRows = True
  2928. CrmEvnColor = clInfoBk
  2929. CrmOddColor = clWindow
  2930. SortChangeEnable = True
  2931. Align = alClient
  2932. DataSource = DataSource11
  2933. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  2934. TabOrder = 1
  2935. TitleFont.Charset = DEFAULT_CHARSET
  2936. TitleFont.Color = clWindowText
  2937. TitleFont.Height = -11
  2938. TitleFont.Name = 'Tahoma'
  2939. TitleFont.Style = []
  2940. Columns = <
  2941. item
  2942. Expanded = False
  2943. FieldName = 'STEP'
  2944. Width = 100
  2945. Visible = True
  2946. SortMode = smNone
  2947. end
  2948. item
  2949. Expanded = False
  2950. FieldName = 'LASTNAME'
  2951. Width = 100
  2952. Visible = True
  2953. SortMode = smNone
  2954. end
  2955. item
  2956. Expanded = False
  2957. FieldName = 'NAME'
  2958. Width = 100
  2959. Visible = True
  2960. SortMode = smNone
  2961. end
  2962. item
  2963. Expanded = False
  2964. FieldName = 'FATHERSHIP'
  2965. Width = 100
  2966. Visible = True
  2967. SortMode = smNone
  2968. end
  2969. item
  2970. Expanded = False
  2971. FieldName = 'CITEZENID'
  2972. Visible = False
  2973. SortMode = smNone
  2974. end
  2975. item
  2976. Expanded = False
  2977. FieldName = 'BIRTHDATE'
  2978. Width = 3000
  2979. Visible = True
  2980. SortMode = smNone
  2981. end
  2982. item
  2983. Expanded = False
  2984. FieldName = 'BIRTHPLACE'
  2985. Visible = False
  2986. SortMode = smNone
  2987. end
  2988. item
  2989. Expanded = False
  2990. FieldName = 'ID'
  2991. Visible = False
  2992. SortMode = smNone
  2993. end
  2994. item
  2995. Expanded = False
  2996. Visible = True
  2997. SortMode = smNone
  2998. end>
  2999. end
  3000. end
  3001. object TabSheet19: TTabSheet
  3002. Caption = #1048#1089#1090#1086#1088#1080#1103' '#1088#1072#1073'.'
  3003. ImageIndex = 9
  3004. OnShow = CLJobhistory
  3005. object GridPanel15: TGridPanel
  3006. AlignWithMargins = True
  3007. Left = 3
  3008. Top = 3
  3009. Width = 1090
  3010. Height = 28
  3011. Align = alTop
  3012. BevelOuter = bvNone
  3013. ColumnCollection = <
  3014. item
  3015. SizeStyle = ssAbsolute
  3016. Value = 152.000000000000000000
  3017. end
  3018. item
  3019. Value = 100.000000000000000000
  3020. end>
  3021. ControlCollection = <
  3022. item
  3023. Column = -1
  3024. Row = -1
  3025. end
  3026. item
  3027. Column = 0
  3028. Control = PKDBEditButtons15
  3029. Row = 0
  3030. end
  3031. item
  3032. Column = 1
  3033. Control = PKDBFindPanel15
  3034. Row = 0
  3035. end>
  3036. RowCollection = <
  3037. item
  3038. Value = 100.000000000000000000
  3039. end>
  3040. TabOrder = 0
  3041. object PKDBEditButtons15: TPKDBEditButtons
  3042. Left = 0
  3043. Top = 0
  3044. Width = 150
  3045. Height = 28
  3046. TableName = 'HR_EMPLOYEE'
  3047. PrimaryFieldName = 'ID'
  3048. ParentFieldName = 'ID'
  3049. Grid = VrDbGrid14
  3050. Connection = DataModule1.ADConnection1
  3051. UseTempTable = False
  3052. EditDialogClassName = 'TJOBHISTORYEDIT'
  3053. DesignSize = (
  3054. 150
  3055. 28)
  3056. end
  3057. object PKDBFindPanel15: TPKDBFindPanel
  3058. Left = 152
  3059. Top = 0
  3060. Width = 938
  3061. Height = 27
  3062. QuerysCollection = <
  3063. item
  3064. Query = ADQuery7
  3065. MainQuery = True
  3066. KeyFieldName = 'ID'
  3067. FieldList = <
  3068. item
  3069. FieldName = 'BIRTHDATE'
  3070. FieldCaption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
  3071. FieldType = ffDate
  3072. DisplayName = 'BIRTHDATE'
  3073. end
  3074. item
  3075. FieldName = 'BIRTHPLACE'
  3076. FieldCaption = #1052#1077#1089#1090#1086' '#1088#1086#1078#1076#1077#1085#1080#1103
  3077. FieldType = ffString
  3078. DisplayName = 'BIRTHPLACE'
  3079. end
  3080. item
  3081. FieldName = 'STEP'
  3082. FieldCaption = #1057#1090#1077#1087#1077#1100' '#1088#1086#1076#1089#1090#1074#1072
  3083. FieldType = ffString
  3084. DisplayName = 'STEP'
  3085. end
  3086. item
  3087. FieldName = 'LASTNAME'
  3088. FieldCaption = #1060#1072#1084#1080#1083#1080#1103
  3089. FieldType = ffString
  3090. DisplayName = 'LASTNAME'
  3091. end
  3092. item
  3093. FieldName = 'NAME'
  3094. FieldCaption = #1048#1084#1103
  3095. FieldType = ffString
  3096. DisplayName = 'NAME'
  3097. end
  3098. item
  3099. FieldName = 'FATHERSHIP'
  3100. FieldCaption = #1054#1090#1095#1077#1089#1090#1074#1086
  3101. FieldType = ffString
  3102. DisplayName = 'FATHERSHIP'
  3103. end>
  3104. end>
  3105. DesignSize = (
  3106. 938
  3107. 27)
  3108. end
  3109. end
  3110. object VrDbGrid14: TVrDbGrid
  3111. AlignWithMargins = True
  3112. Left = 3
  3113. Top = 34
  3114. Width = 1090
  3115. Height = 235
  3116. Margins.Top = 0
  3117. ScrollBars = ssHorizontal
  3118. ShowCheckBoxes = True
  3119. CheckFieldName = 'ID'
  3120. CheckedRowsColoured = True
  3121. CheckedRowsColour = clYellow
  3122. MultiSelect = True
  3123. ColouredRows = True
  3124. CrmEvnColor = clInfoBk
  3125. CrmOddColor = clWindow
  3126. SortChangeEnable = True
  3127. Align = alClient
  3128. DataSource = DataSource9
  3129. Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  3130. TabOrder = 1
  3131. TitleFont.Charset = DEFAULT_CHARSET
  3132. TitleFont.Color = clWindowText
  3133. TitleFont.Height = -11
  3134. TitleFont.Name = 'Tahoma'
  3135. TitleFont.Style = []
  3136. Columns = <
  3137. item
  3138. Expanded = False
  3139. FieldName = 'CITEZENID'
  3140. Visible = False
  3141. SortMode = smNone
  3142. end
  3143. item
  3144. Expanded = False
  3145. FieldName = 'INDATE'
  3146. Width = 72
  3147. Visible = True
  3148. SortMode = smNone
  3149. end
  3150. item
  3151. Expanded = False
  3152. FieldName = 'OUTDATE'
  3153. Width = 66
  3154. Visible = True
  3155. SortMode = smNone
  3156. end
  3157. item
  3158. Expanded = False
  3159. FieldName = 'DEPT_NO'
  3160. Width = 48
  3161. Visible = True
  3162. SortMode = smNone
  3163. end
  3164. item
  3165. Expanded = False
  3166. FieldName = 'JOBTITLE'
  3167. Width = 329
  3168. Visible = True
  3169. SortMode = smNone
  3170. end
  3171. item
  3172. Expanded = False
  3173. FieldName = 'ROWCONTENT'
  3174. Width = 100
  3175. Visible = True
  3176. SortMode = smNone
  3177. end
  3178. item
  3179. Expanded = False
  3180. FieldName = 'SUMSAL'
  3181. Visible = True
  3182. SortMode = smNone
  3183. end
  3184. item
  3185. Expanded = False
  3186. FieldName = 'AGREEMENTNUMB'
  3187. Width = 79
  3188. Visible = True
  3189. SortMode = smNone
  3190. end
  3191. item
  3192. Expanded = False
  3193. FieldName = 'AGREEMENTDATE'
  3194. Visible = True
  3195. SortMode = smNone
  3196. end
  3197. item
  3198. Expanded = False
  3199. FieldName = 'REASON'
  3200. Width = 1000
  3201. Visible = True
  3202. SortMode = smNone
  3203. end
  3204. item
  3205. Expanded = False
  3206. FieldName = 'ID'
  3207. Visible = False
  3208. SortMode = smNone
  3209. end>
  3210. end
  3211. end
  3212. object TabSheet12: TTabSheet
  3213. Caption = #1044#1086#1087'. '#1089#1074#1077#1076#1077#1085#1080#1103
  3214. ImageIndex = 15
  3215. object PKDBBLabelComboBox8: TPKDBBLabelComboBox
  3216. Left = 17
  3217. Top = 25
  3218. Width = 216
  3219. Height = 21
  3220. ItemHeight = 13
  3221. TabOrder = 0
  3222. Text = #1042#1088#1077#1076#1085#1086#1089#1090#1100' '#1091#1089#1083#1086#1074#1080#1081' '#1090#1088#1091#1076#1072
  3223. DBTable = 'CS_FACETCONTENT'
  3224. PrimaryKey = 'ID'
  3225. content = ' rowcontent'
  3226. constraint = ' facetid=102'
  3227. Table = PKDBTable5
  3228. TableField = 'HARMCONDITIONID'
  3229. EditLabel.Width = 132
  3230. EditLabel.Height = 13
  3231. EditLabel.Caption = #1042#1088#1077#1076#1085#1086#1089#1090#1100' '#1091#1089#1083#1086#1074#1080#1081' '#1090#1088#1091#1076#1072
  3232. end
  3233. object PKDBLabelEdit15: TPKDBLabelEdit
  3234. Left = 264
  3235. Top = 25
  3236. Width = 185
  3237. Height = 21
  3238. TabOrder = 1
  3239. Text = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1076#1085#1080' '#1086#1090#1087#1091#1089#1082#1072
  3240. Table = PKDBTable5
  3241. TableField = 'HARMHOLIDAYS'
  3242. EditLabel.Width = 154
  3243. EditLabel.Height = 13
  3244. EditLabel.Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1076#1085#1080' '#1086#1090#1087#1091#1089#1082#1072
  3245. end
  3246. object PKDBLabelEdit16: TPKDBLabelEdit
  3247. Left = 17
  3248. Top = 70
  3249. Width = 216
  3250. Height = 21
  3251. Enabled = False
  3252. TabOrder = 2
  3253. Text = #1055#1088#1086#1076#1086#1083#1078#1080#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1088#1072#1073#1086#1095#1077#1075#1086' '#1074#1088#1077#1084#1077#1085#1080
  3254. Table = PKDBTable5
  3255. TableField = 'WORKTIME'
  3256. EditLabel.Width = 200
  3257. EditLabel.Height = 13
  3258. EditLabel.Caption = #1055#1088#1086#1076#1086#1083#1078#1080#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1088#1072#1073#1086#1095#1077#1075#1086' '#1074#1088#1077#1084#1077#1085#1080
  3259. end
  3260. object PKDBBLabelComboBox10: TPKDBBLabelComboBox
  3261. Left = 17
  3262. Top = 115
  3263. Width = 216
  3264. Height = 21
  3265. ItemHeight = 13
  3266. TabOrder = 3
  3267. Text = #1056#1072#1073#1086#1095#1077#1077' '#1074#1088#1077#1084#1103
  3268. DBTable = 'CS_FACETCONTENT'
  3269. PrimaryKey = 'ID'
  3270. content = ' rowcontent'
  3271. constraint = ' facetid=103'
  3272. Table = PKDBTable5
  3273. TableField = 'WORKTIMETYPEID'
  3274. EditLabel.Width = 75
  3275. EditLabel.Height = 13
  3276. EditLabel.Caption = #1056#1072#1073#1086#1095#1077#1077' '#1074#1088#1077#1084#1103
  3277. end
  3278. object Button6: TButton
  3279. Left = 71
  3280. Top = 186
  3281. Width = 110
  3282. Height = 40
  3283. Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
  3284. TabOrder = 4
  3285. OnClick = Button6Click
  3286. end
  3287. end
  3288. end
  3289. end
  3290. inherited PageControl1: TPageControl
  3291. Width = 1104
  3292. Height = 320
  3293. ExplicitWidth = 1104
  3294. ExplicitHeight = 320
  3295. inherited TabSheet1: TTabSheet
  3296. Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080' '
  3297. ExplicitWidth = 1096
  3298. ExplicitHeight = 292
  3299. inherited Grid: TVrDbGrid
  3300. Width = 1090
  3301. Height = 255
  3302. CheckFieldName = 'ID'
  3303. ColouredRows = True
  3304. PopupMenu = PopupMenu1
  3305. OnCellClick = GridCellClick
  3306. OnKeyDown = GridKeyDown
  3307. OnKeyUp = GridKeyUp
  3308. OnMouseWheel = GridMouseWheel
  3309. Columns = <
  3310. item
  3311. Expanded = False
  3312. FieldName = 'DCODE'
  3313. Width = 35
  3314. Visible = True
  3315. SortMode = smNone
  3316. end
  3317. item
  3318. Expanded = False
  3319. FieldName = 'DEPT'
  3320. Width = 100
  3321. Visible = True
  3322. SortMode = smNone
  3323. end
  3324. item
  3325. Expanded = False
  3326. FieldName = 'TABNUMB'
  3327. Width = 41
  3328. Visible = True
  3329. SortMode = smNone
  3330. end
  3331. item
  3332. Expanded = False
  3333. FieldName = 'LASTNAME'
  3334. Width = 100
  3335. Visible = True
  3336. SortMode = smNone
  3337. end
  3338. item
  3339. Expanded = False
  3340. FieldName = 'NAME'
  3341. Width = 81
  3342. Visible = True
  3343. SortMode = smNone
  3344. end
  3345. item
  3346. Expanded = False
  3347. FieldName = 'FATHERSHIP'
  3348. Width = 87
  3349. Visible = True
  3350. SortMode = smNone
  3351. end
  3352. item
  3353. Expanded = False
  3354. FieldName = 'JOBTITLE'
  3355. Width = 322
  3356. Visible = True
  3357. SortMode = smNone
  3358. end
  3359. item
  3360. Expanded = False
  3361. FieldName = 'QUALIFICATION'
  3362. Visible = False
  3363. SortMode = smNone
  3364. end
  3365. item
  3366. Expanded = False
  3367. FieldName = 'CATEGORYNUMB'
  3368. Visible = False
  3369. SortMode = smNone
  3370. end
  3371. item
  3372. Expanded = False
  3373. FieldName = 'BIRTHDATE'
  3374. Width = 71
  3375. Visible = True
  3376. SortMode = smNone
  3377. end
  3378. item
  3379. Expanded = False
  3380. FieldName = 'AMOUNT'
  3381. Visible = False
  3382. SortMode = smNone
  3383. end
  3384. item
  3385. Expanded = False
  3386. FieldName = 'SALARY'
  3387. Visible = False
  3388. SortMode = smNone
  3389. end
  3390. item
  3391. Expanded = False
  3392. FieldName = 'STATUS'
  3393. Visible = False
  3394. SortMode = smNone
  3395. end
  3396. item
  3397. Expanded = False
  3398. FieldName = 'CONTRACT'
  3399. Visible = False
  3400. SortMode = smNone
  3401. end
  3402. item
  3403. Expanded = False
  3404. FieldName = 'CONDITION'
  3405. Visible = False
  3406. SortMode = smNone
  3407. end
  3408. item
  3409. Expanded = False
  3410. FieldName = 'WORKTYPE'
  3411. Visible = False
  3412. SortMode = smNone
  3413. end
  3414. item
  3415. Expanded = False
  3416. FieldName = 'RATECODE'
  3417. Visible = False
  3418. SortMode = smNone
  3419. end
  3420. item
  3421. Expanded = False
  3422. FieldName = 'AGREEMENTNUMB'
  3423. Width = 106
  3424. Visible = True
  3425. SortMode = smNone
  3426. end
  3427. item
  3428. Expanded = False
  3429. FieldName = 'AGREEMENTDATE'
  3430. Width = 108
  3431. Visible = True
  3432. SortMode = smNone
  3433. end
  3434. item
  3435. Expanded = False
  3436. FieldName = 'FIRSTINDATE'
  3437. Width = 81
  3438. Visible = True
  3439. SortMode = smNone
  3440. end
  3441. item
  3442. Expanded = False
  3443. FieldName = 'INDATE'
  3444. Width = 80
  3445. Visible = True
  3446. SortMode = smNone
  3447. end
  3448. item
  3449. Expanded = False
  3450. FieldName = 'PASSPORTSERIES'
  3451. Width = 36
  3452. Visible = True
  3453. SortMode = smNone
  3454. end
  3455. item
  3456. Expanded = False
  3457. FieldName = 'EDUCATION'
  3458. Width = 86
  3459. Visible = True
  3460. SortMode = smNone
  3461. end
  3462. item
  3463. Expanded = False
  3464. FieldName = 'PASSPORTNUMB'
  3465. Width = 69
  3466. Visible = True
  3467. SortMode = smNone
  3468. end
  3469. item
  3470. Expanded = False
  3471. FieldName = 'PASSINST'
  3472. Visible = True
  3473. SortMode = smNone
  3474. end
  3475. item
  3476. Expanded = False
  3477. FieldName = 'ADRESS'
  3478. Visible = True
  3479. SortMode = smNone
  3480. end>
  3481. end
  3482. inherited GridPanel1: TGridPanel
  3483. Width = 1090
  3484. ExplicitWidth = 1090
  3485. inherited PKDBEditButtons1: TPKDBEditButtons
  3486. TableName = 'HR_EMPLOYEE'
  3487. PrimaryFieldName = 'ID'
  3488. ParentFieldName = 'citezenid'
  3489. Grid = Grid
  3490. Connection = DataModule1.ADConnection1
  3491. EditDialogClassName = 'TEMPLOYEEDIT'
  3492. end
  3493. inherited PKDBFindPanel1: TPKDBFindPanel
  3494. Width = 938
  3495. QuerysCollection = <
  3496. item
  3497. Query = MainQuery
  3498. QueryCaption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
  3499. MainQuery = True
  3500. KeyFieldName = 'ID'
  3501. FieldList = <
  3502. item
  3503. FieldName = 'LASTNAME'
  3504. FieldCaption = #1060#1072#1084#1080#1083#1080#1103
  3505. FieldType = ffString
  3506. DisplayName = 'LASTNAME'
  3507. end
  3508. item
  3509. FieldName = 'DCODE'
  3510. FieldCaption = #1055#1086#1076#1088'.'
  3511. FieldType = ffString
  3512. DisplayName = 'DCODE'
  3513. end
  3514. item
  3515. FieldName = 'DEPT'
  3516. FieldCaption = #1054#1090#1076#1077#1083
  3517. FieldType = ffString
  3518. DisplayName = 'DEPT'
  3519. end
  3520. item
  3521. FieldName = 'NAME'
  3522. FieldCaption = #1048#1084#1103
  3523. FieldType = ffString
  3524. DisplayName = 'NAME'
  3525. end
  3526. item
  3527. FieldName = 'FATHERSHIP'
  3528. FieldCaption = #1054#1090#1095#1077#1089#1090#1074#1086
  3529. FieldType = ffString
  3530. DisplayName = 'FATHERSHIP'
  3531. end
  3532. item
  3533. FieldName = 'JOBTITLE'
  3534. FieldCaption = #1044#1086#1083#1078#1085#1086#1089#1090#1100
  3535. FieldType = ffString
  3536. DisplayName = 'JOBTITLE'
  3537. end
  3538. item
  3539. FieldName = 'QUALIFICATION'
  3540. FieldCaption = #1050#1074#1072#1083#1080#1092'.'
  3541. FieldType = ffString
  3542. DisplayName = 'QUALIFICATION'
  3543. end
  3544. item
  3545. FieldName = 'CATEGORYNUMB'
  3546. FieldCaption = #1050#1072#1090#1077#1075'.'
  3547. FieldType = ffString
  3548. DisplayName = 'CATEGORYNUMB'
  3549. end
  3550. item
  3551. FieldName = 'AGREEMENTNUMB'
  3552. FieldCaption = #8470' '#1058#1088#1091#1076'. '#1076#1086#1075#1086#1074#1086#1088#1072
  3553. FieldType = ffString
  3554. DisplayName = 'AGREEMENTNUMB'
  3555. end
  3556. item
  3557. FieldName = 'AGREEMENTDATE'
  3558. FieldCaption = #1044#1072#1090#1072' '#1090#1088#1091#1076'. '#1076#1086#1075#1086#1074#1086#1088#1072
  3559. FieldType = ffDate
  3560. DisplayName = 'AGREEMENTDATE'
  3561. end
  3562. item
  3563. FieldName = 'AMOUNT'
  3564. FieldCaption = #1050#1086#1083'-'#1074#1086'.'
  3565. FieldType = ffString
  3566. DisplayName = 'AMOUNT'
  3567. end
  3568. item
  3569. FieldName = 'SALARY'
  3570. FieldCaption = #1054#1082#1083#1072#1076'('#1057#1090#1072#1074#1082#1072')'
  3571. FieldType = ffString
  3572. DisplayName = 'SALARY'
  3573. end
  3574. item
  3575. FieldName = 'CONTRACT'
  3576. FieldCaption = #1050#1086#1085#1090#1088#1072#1082#1090
  3577. FieldType = ffString
  3578. DisplayName = 'CONTRACT'
  3579. end
  3580. item
  3581. FieldName = 'WORKTYPE'
  3582. FieldCaption = #1058#1080#1087' '#1088#1072#1073#1086#1090#1099
  3583. FieldType = ffString
  3584. DisplayName = 'WORKTYPE'
  3585. end
  3586. item
  3587. FieldName = 'TABNUMB'
  3588. FieldCaption = #1058#1072#1073'.'#8470
  3589. FieldType = ffString
  3590. DisplayName = 'TABNUMB'
  3591. end
  3592. item
  3593. FieldName = 'FIRSTINDATE'
  3594. FieldCaption = #1044#1072#1090#1072' '#1087#1086#1089#1090#1091#1087'.'
  3595. FieldType = ffDate
  3596. DisplayName = 'FIRSTINDATE'
  3597. end
  3598. item
  3599. FieldName = 'INDATE'
  3600. FieldCaption = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095'.'
  3601. FieldType = ffDate
  3602. DisplayName = 'INDATE'
  3603. end
  3604. item
  3605. FieldName = 'PASSPORTNUMB'
  3606. FieldCaption = #8470' '#1087#1072#1089#1087#1086#1088#1090#1072
  3607. FieldType = ffString
  3608. DisplayName = 'PASSPORTNUMB'
  3609. end
  3610. item
  3611. FieldName = 'PASSINST'
  3612. FieldCaption = #1055#1072#1089#1087'. '#1086#1088#1075'-'#1080#1103'.'
  3613. FieldType = ffString
  3614. DisplayName = 'PASSINST'
  3615. end
  3616. item
  3617. FieldName = 'BIRTHDATE'
  3618. FieldCaption = #1044#1072#1090#1072' '#1088#1086#1078'.'
  3619. FieldType = ffDate
  3620. DisplayName = 'BIRTHDATE'
  3621. end
  3622. item
  3623. FieldName = 'ADRESS'
  3624. FieldCaption = #1040#1076#1088#1077#1089
  3625. FieldType = ffString
  3626. DisplayName = 'ADRESS'
  3627. end
  3628. item
  3629. FieldName = 'EDUCATION'
  3630. FieldCaption = #1054#1073#1088#1072#1079#1086#1074#1072#1085#1080#1077
  3631. FieldType = ffString
  3632. DisplayName = 'EDUCATION'
  3633. end>
  3634. end>
  3635. ExplicitWidth = 938
  3636. DesignSize = (
  3637. 938
  3638. 27)
  3639. end
  3640. end
  3641. end
  3642. end
  3643. end
  3644. end
  3645. inherited Panel6: TPanel
  3646. Width = 33
  3647. Height = 620
  3648. Visible = False
  3649. ExplicitWidth = 33
  3650. ExplicitHeight = 620
  3651. end
  3652. inherited MainQuery: TADQuery
  3653. Connection = DataModule1.ADConnection1
  3654. SQL.Strings = (
  3655. 'select * from hr_v_empcitezen t'
  3656. 'where '
  3657. '(t.statusid <> 1806639) -- '#1090#1086#1083#1100#1082#1086' '#1072#1082#1090#1080#1074#1085#1099#1077
  3658. 'and (t.workunittype=3009016) -- '#1090#1086#1083#1100#1082#1086' '#1086#1089#1085#1086#1074#1085#1072#1103' '#1088#1072#1073#1086#1090#1072)
  3659. Top = 0
  3660. object MainQueryID: TFMTBCDField
  3661. FieldName = 'ID'
  3662. end
  3663. object MainQueryCITEZENID: TFMTBCDField
  3664. FieldName = 'CITEZENID'
  3665. end
  3666. object MainQuerySTRUCTUREID: TFMTBCDField
  3667. FieldName = 'STRUCTUREID'
  3668. end
  3669. object MainQueryLASTNAME: TStringField
  3670. DisplayLabel = #1060#1072#1084#1080#1083#1080#1103
  3671. FieldName = 'LASTNAME'
  3672. Size = 200
  3673. end
  3674. object MainQueryNAME: TStringField
  3675. DisplayLabel = #1048#1084#1103
  3676. FieldName = 'NAME'
  3677. Size = 200
  3678. end
  3679. object MainQueryFATHERSHIP: TStringField
  3680. DisplayLabel = #1054#1090#1095#1077#1089#1090#1074#1086
  3681. FieldName = 'FATHERSHIP'
  3682. Size = 200
  3683. end
  3684. object MainQueryJOBTITLE: TStringField
  3685. DisplayLabel = #1044#1086#1083#1078#1085#1086#1089#1090#1100
  3686. FieldName = 'JOBTITLE'
  3687. Size = 200
  3688. end
  3689. object MainQueryQUALIFICATION: TStringField
  3690. DisplayLabel = #1050#1074#1072#1083#1080#1092'.'
  3691. FieldName = 'QUALIFICATION'
  3692. Size = 241
  3693. end
  3694. object MainQueryCATEGORYNUMB: TFMTBCDField
  3695. DisplayLabel = #1050#1072#1090#1077#1075'.'
  3696. FieldName = 'CATEGORYNUMB'
  3697. end
  3698. object MainQueryAMOUNT: TFMTBCDField
  3699. DisplayLabel = #1050#1086#1083'-'#1074#1086'.'
  3700. FieldName = 'AMOUNT'
  3701. end
  3702. object MainQuerySALARY: TFMTBCDField
  3703. DisplayLabel = #1054#1082#1083#1072#1076'('#1057#1090#1072#1074#1082#1072')'
  3704. FieldName = 'SALARY'
  3705. end
  3706. object MainQueryDCODE: TStringField
  3707. DisplayLabel = #1055#1086#1076#1088'.'
  3708. FieldName = 'DCODE'
  3709. Size = 200
  3710. end
  3711. object MainQueryCONTRACT: TStringField
  3712. DisplayLabel = #1050#1086#1085#1090#1088#1072#1082#1090
  3713. FieldName = 'CONTRACT'
  3714. Size = 200
  3715. end
  3716. object MainQueryCODE: TStringField
  3717. DisplayLabel = #1050#1086#1076' '#1089#1090#1072#1074#1082#1080
  3718. FieldName = 'CODE'
  3719. Size = 200
  3720. end
  3721. object MainQueryCONDITION: TStringField
  3722. DisplayLabel = #1059#1089#1083#1086#1074#1080#1103' '#1090#1088#1091#1076#1072
  3723. FieldName = 'CONDITION'
  3724. Size = 200
  3725. end
  3726. object MainQueryWORKTYPE: TStringField
  3727. DisplayLabel = #1058#1080#1087' '#1088#1072#1073#1086#1090#1099
  3728. FieldName = 'WORKTYPE'
  3729. Size = 200
  3730. end
  3731. object MainQueryRATECODE: TStringField
  3732. DisplayLabel = #1057#1090#1072#1074#1082#1072
  3733. FieldName = 'RATECODE'
  3734. Size = 200
  3735. end
  3736. object MainQueryAGREEMENTNUMB: TStringField
  3737. DisplayLabel = #8470' '#1058#1088#1091#1076'. '#1076#1086#1075#1086#1074#1086#1088#1072
  3738. FieldName = 'AGREEMENTNUMB'
  3739. Size = 200
  3740. end
  3741. object MainQueryAGREEMENTDATE: TDateTimeField
  3742. DisplayLabel = #1044#1072#1090#1072' '#1090#1088#1091#1076'. '#1076#1086#1075#1086#1074#1086#1088#1072
  3743. FieldName = 'AGREEMENTDATE'
  3744. end
  3745. object MainQueryTABNUMB: TStringField
  3746. DisplayLabel = #1058#1072#1073'.'#8470
  3747. FieldName = 'TABNUMB'
  3748. Size = 200
  3749. end
  3750. object MainQueryFIRSTINDATE: TDateTimeField
  3751. DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1089#1090#1091#1087'.'
  3752. FieldName = 'FIRSTINDATE'
  3753. end
  3754. object MainQueryINDATE: TDateTimeField
  3755. DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095'.'
  3756. FieldName = 'INDATE'
  3757. end
  3758. object MainQueryPASSPORTSERIES: TStringField
  3759. DisplayLabel = #1057#1077#1088#1080#1103' '#1087#1072#1089#1087#1086#1088#1090#1072
  3760. FieldName = 'PASSPORTSERIES'
  3761. Size = 9
  3762. end
  3763. object MainQueryPASSPORTNUMB: TStringField
  3764. DisplayLabel = #8470' '#1087#1072#1089#1087#1086#1088#1090#1072
  3765. FieldName = 'PASSPORTNUMB'
  3766. Size = 7
  3767. end
  3768. object MainQueryPASSINST: TStringField
  3769. DisplayLabel = #1055#1072#1089#1087'. '#1086#1088#1075'-'#1080#1103'.'
  3770. FieldName = 'PASSINST'
  3771. Size = 200
  3772. end
  3773. object MainQueryBIRTHDATE: TDateTimeField
  3774. DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078'.'
  3775. FieldName = 'BIRTHDATE'
  3776. end
  3777. object MainQueryADRESS: TStringField
  3778. DisplayLabel = #1040#1076#1088#1077#1089
  3779. FieldName = 'ADRESS'
  3780. FixedChar = True
  3781. Size = 12
  3782. end
  3783. object MainQueryEDUCATION: TStringField
  3784. DisplayLabel = #1054#1073#1088#1072#1079#1086#1074#1072#1085#1080#1077
  3785. FieldName = 'EDUCATION'
  3786. Size = 500
  3787. end
  3788. object MainQueryDEPT: TStringField
  3789. DisplayLabel = #1054#1090#1076#1077#1083
  3790. FieldName = 'DEPT'
  3791. Size = 200
  3792. end
  3793. object MainQueryWORKCONTRACTID: TFMTBCDField
  3794. FieldName = 'WORKCONTRACTID'
  3795. Precision = 38
  3796. Size = 38
  3797. end
  3798. object MainQueryOUTDATE: TDateTimeField
  3799. FieldName = 'OUTDATE'
  3800. end
  3801. object MainQuerySTATUSID: TFMTBCDField
  3802. FieldName = 'STATUSID'
  3803. Precision = 38
  3804. Size = 38
  3805. end
  3806. object MainQueryWORKUNITTYPE: TFMTBCDField
  3807. FieldName = 'WORKUNITTYPE'
  3808. Precision = 38
  3809. Size = 38
  3810. end
  3811. object MainQueryORDERID: TFMTBCDField
  3812. FieldName = 'ORDERID'
  3813. Required = True
  3814. Precision = 38
  3815. Size = 38
  3816. end
  3817. object MainQuerySTATUS: TStringField
  3818. FieldName = 'STATUS'
  3819. Size = 100
  3820. end
  3821. object MainQueryWORKUNITTYPEROW: TStringField
  3822. FieldName = 'WORKUNITTYPEROW'
  3823. Size = 500
  3824. end
  3825. end
  3826. inherited DataSource1: TDataSource
  3827. Top = 0
  3828. end
  3829. object ADQuery1: TADQuery
  3830. MasterSource = DataSource1
  3831. MasterFields = 'CITEZENID'
  3832. Connection = DataModule1.ADConnection1
  3833. SQL.Strings = (
  3834. 'select * from hr_v_jobstructure t'
  3835. 'where t.citezenid=:citezenID')
  3836. Left = 96
  3837. Top = 208
  3838. ParamData = <
  3839. item
  3840. Name = 'CITEZENID'
  3841. DataType = ftFloat
  3842. ParamType = ptInput
  3843. Size = 8
  3844. Value = 1806751.000000000000000000
  3845. end>
  3846. object ADQuery1ID: TFMTBCDField
  3847. FieldName = 'ID'
  3848. end
  3849. object ADQuery1CITEZENID: TFMTBCDField
  3850. FieldName = 'CITEZENID'
  3851. end
  3852. object ADQuery1STRUCTUREID: TFMTBCDField
  3853. FieldName = 'STRUCTUREID'
  3854. end
  3855. object ADQuery1JOBTITLE: TStringField
  3856. DisplayLabel = #1044#1086#1083#1078#1085#1086#1089#1090#1100
  3857. FieldName = 'JOBTITLE'
  3858. Size = 200
  3859. end
  3860. object ADQuery1QUALIFICATION: TStringField
  3861. DisplayLabel = #1050#1074#1072#1083#1080#1092'.'
  3862. FieldName = 'QUALIFICATION'
  3863. Size = 241
  3864. end
  3865. object ADQuery1CATEGORYNUMB: TFMTBCDField
  3866. DisplayLabel = #1050#1072#1090#1077#1075'.'
  3867. FieldName = 'CATEGORYNUMB'
  3868. end
  3869. object ADQuery1AMOUNT: TFMTBCDField
  3870. DisplayLabel = #1050#1086#1083'-'#1074#1086'.'
  3871. FieldName = 'AMOUNT'
  3872. end
  3873. object ADQuery1SALARY: TFMTBCDField
  3874. DisplayLabel = #1057#1090#1072#1074#1082#1072'('#1054#1082#1083#1072#1076')'
  3875. FieldName = 'SALARY'
  3876. end
  3877. object ADQuery1DCODE: TStringField
  3878. DisplayLabel = #1055#1086#1076#1088'.'
  3879. FieldName = 'DCODE'
  3880. Size = 200
  3881. end
  3882. object ADQuery1CONTRACT: TStringField
  3883. DisplayLabel = #1050#1086#1085#1090#1088#1072#1082#1090
  3884. FieldName = 'CONTRACT'
  3885. Size = 200
  3886. end
  3887. object ADQuery1CODE: TStringField
  3888. FieldName = 'CODE'
  3889. Visible = False
  3890. Size = 200
  3891. end
  3892. object ADQuery1CONDITION: TStringField
  3893. DisplayLabel = #1059#1089#1083#1086#1074#1080#1103' '#1090#1088#1091#1076#1072
  3894. FieldName = 'CONDITION'
  3895. Size = 200
  3896. end
  3897. object ADQuery1WORKTYPE: TStringField
  3898. DisplayLabel = #1058#1080#1087' '#1088#1072#1073#1086#1090#1099
  3899. FieldName = 'WORKTYPE'
  3900. Size = 200
  3901. end
  3902. object ADQuery1RATECODE: TStringField
  3903. DisplayLabel = #1057#1090#1072#1074#1082#1072
  3904. FieldName = 'RATECODE'
  3905. Size = 200
  3906. end
  3907. object ADQuery1INDATE: TDateTimeField
  3908. DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095'.'
  3909. FieldName = 'INDATE'
  3910. end
  3911. object ADQuery1AGREEMENTDATE: TDateTimeField
  3912. DisplayLabel = #1076#1072#1090#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
  3913. FieldName = 'AGREEMENTDATE'
  3914. end
  3915. object ADQuery1WORKUNITTYPE: TStringField
  3916. DisplayLabel = #1058#1080#1087' '#1088#1072#1073#1086#1090#1099' ('#1086#1089#1085#1086#1074'./'#1089#1086#1074#1084'.)'
  3917. FieldName = 'WORKUNITTYPE'
  3918. Size = 500
  3919. end
  3920. end
  3921. object DataSource2: TDataSource
  3922. DataSet = ADQuery1
  3923. Left = 96
  3924. Top = 240
  3925. end
  3926. object ADQuery2: TADQuery
  3927. MasterSource = DataSource1
  3928. MasterFields = 'ID'
  3929. Connection = DataModule1.ADConnection1
  3930. SQL.Strings = (
  3931. 'select * from HR_V_ATESTATION t'
  3932. 'where t.employeeid=:ID')
  3933. Left = 144
  3934. Top = 208
  3935. ParamData = <
  3936. item
  3937. Name = 'ID'
  3938. DataType = ftInteger
  3939. ParamType = ptInput
  3940. Value = 59721
  3941. end>
  3942. object ADQuery2ID: TFMTBCDField
  3943. FieldName = 'ID'
  3944. Required = True
  3945. end
  3946. object ADQuery2CITEZENID: TFMTBCDField
  3947. FieldName = 'CITEZENID'
  3948. end
  3949. object ADQuery2EMPLOYEEID: TFMTBCDField
  3950. FieldName = 'EMPLOYEEID'
  3951. end
  3952. object ADQuery2EVENTDATE: TDateTimeField
  3953. DisplayLabel = #1044#1072#1090#1072' '#1072#1090#1090#1077#1089#1090#1072#1094#1080#1080
  3954. FieldName = 'EVENTDATE'
  3955. end
  3956. object ADQuery2DECISION: TStringField
  3957. DisplayLabel = #1056#1077#1096#1077#1085#1080#1077' '#1082#1086#1084#1080#1089#1089#1080#1080
  3958. FieldName = 'DECISION'
  3959. Size = 200
  3960. end
  3961. object ADQuery2DOCNUMB: TStringField
  3962. DisplayLabel = #8470' '#1044#1086#1082'. ('#1087#1088#1086#1090#1086#1082#1086#1083#1072')'
  3963. FieldName = 'DOCNUMB'
  3964. Size = 50
  3965. end
  3966. object ADQuery2DOCDATE: TDateTimeField
  3967. DisplayLabel = #1044#1072#1090#1072' '#1076#1086#1082'-'#1090#1072'.'
  3968. FieldName = 'DOCDATE'
  3969. end
  3970. object ADQuery2REASON: TStringField
  3971. DisplayLabel = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  3972. FieldName = 'REASON'
  3973. Size = 50
  3974. end
  3975. object ADQuery2OUTDATE: TDateTimeField
  3976. DisplayLabel = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103' '#1076#1077#1081#1089#1090#1074#1080#1103
  3977. FieldName = 'OUTDATE'
  3978. Origin = 'OUTDATE'
  3979. end
  3980. object ADQuery2RATING: TStringField
  3981. DisplayLabel = #1054#1094#1077#1085#1082#1072
  3982. FieldName = 'RATING'
  3983. Origin = 'RATING'
  3984. end
  3985. object ADQuery2ORGNAME: TStringField
  3986. DisplayLabel = #1054#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
  3987. FieldName = 'ORGNAME'
  3988. Origin = 'ORGNAME'
  3989. Size = 200
  3990. end
  3991. end
  3992. object DataSource3: TDataSource
  3993. DataSet = ADQuery2
  3994. Left = 144
  3995. Top = 240
  3996. end
  3997. object ADQuery3: TADQuery
  3998. MasterSource = DataSource1
  3999. MasterFields = 'ID'
  4000. Connection = DataModule1.ADConnection1
  4001. SQL.Strings = (
  4002. 'select * from HR_V_SKILLUP t'
  4003. 'where t.employeeid=:ID')
  4004. Left = 176
  4005. Top = 208
  4006. ParamData = <
  4007. item
  4008. Name = 'ID'
  4009. DataType = ftInteger
  4010. ParamType = ptInput
  4011. Value = 59721
  4012. end>
  4013. object ADQuery3ID: TFMTBCDField
  4014. FieldName = 'ID'
  4015. Required = True
  4016. end
  4017. object ADQuery3CITEZENID: TFMTBCDField
  4018. FieldName = 'CITEZENID'
  4019. end
  4020. object ADQuery3EMPLOYEEID: TFMTBCDField
  4021. FieldName = 'EMPLOYEEID'
  4022. end
  4023. object ADQuery3INDATE: TDateTimeField
  4024. DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1086#1073#1091#1095#1077#1085#1080#1103
  4025. FieldName = 'INDATE'
  4026. end
  4027. object ADQuery3OUTDATE: TDateTimeField
  4028. DisplayLabel = #1044#1072#1090#1072' '#1082#1086#1085#1094#1072' '#1086#1073#1091#1095#1077#1085#1080#1103
  4029. FieldName = 'OUTDATE'
  4030. end
  4031. object ADQuery3EDTYPE: TStringField
  4032. DisplayLabel = #1042#1080#1076' '#1087#1086#1074#1099#1096#1077#1085#1080#1103' '#1082#1074#1072#1083#1080#1092#1080#1082#1072#1094#1080#1080
  4033. FieldName = 'EDTYPE'
  4034. Size = 500
  4035. end
  4036. object ADQuery3ORGANISATION: TStringField
  4037. DisplayLabel = #1054#1073#1088#1072#1079#1086#1074#1072#1090#1077#1083#1100#1085#1086#1077' '#1091#1095#1077#1088#1077#1078#1076#1077#1085#1080#1077
  4038. FieldName = 'ORGANISATION'
  4039. Size = 200
  4040. end
  4041. object ADQuery3DOCTYPE: TStringField
  4042. DisplayLabel = #1044#1086#1082#1091#1084#1077#1085#1090
  4043. FieldName = 'DOCTYPE'
  4044. Size = 500
  4045. end
  4046. object ADQuery3DOCNUMB: TStringField
  4047. DisplayLabel = #1057#1077#1088#1080#1103', '#1085#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  4048. FieldName = 'DOCNUMB'
  4049. Size = 100
  4050. end
  4051. object ADQuery3DOCDATE: TDateTimeField
  4052. DisplayLabel = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080' '
  4053. FieldName = 'DOCDATE'
  4054. end
  4055. object ADQuery3REASON: TStringField
  4056. DisplayLabel = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  4057. FieldName = 'REASON'
  4058. Size = 100
  4059. end
  4060. end
  4061. object DataSource4: TDataSource
  4062. DataSet = ADQuery3
  4063. Left = 176
  4064. Top = 240
  4065. end
  4066. object ADQuery4: TADQuery
  4067. MasterSource = DataSource1
  4068. MasterFields = 'ID'
  4069. Connection = DataModule1.ADConnection1
  4070. SQL.Strings = (
  4071. 'select * from HR_V_RETRAINING t'
  4072. 'where t.employeeid=:ID')
  4073. Left = 208
  4074. Top = 208
  4075. ParamData = <
  4076. item
  4077. Name = 'ID'
  4078. DataType = ftInteger
  4079. ParamType = ptInput
  4080. Value = Null
  4081. end>
  4082. object ADQuery4ID: TFMTBCDField
  4083. FieldName = 'ID'
  4084. Required = True
  4085. end
  4086. object ADQuery4CITEZENID: TFMTBCDField
  4087. FieldName = 'CITEZENID'
  4088. end
  4089. object ADQuery4EMPLOYEEID: TFMTBCDField
  4090. FieldName = 'EMPLOYEEID'
  4091. end
  4092. object ADQuery4INDATE: TDateTimeField
  4093. DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1086#1073#1091#1095#1077#1085#1080#1103
  4094. FieldName = 'INDATE'
  4095. end
  4096. object ADQuery4OUTDATE: TDateTimeField
  4097. DisplayLabel = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103' '#1086#1073#1091#1095#1077#1085#1080#1103
  4098. FieldName = 'OUTDATE'
  4099. end
  4100. object ADQuery4JOBTITLE: TStringField
  4101. DisplayLabel = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1086#1089#1090#1100
  4102. FieldName = 'JOBTITLE'
  4103. Size = 600
  4104. end
  4105. object ADQuery4DOCTYPE: TStringField
  4106. DisplayLabel = #1044#1086#1082#1091#1084#1077#1085#1090
  4107. FieldName = 'DOCTYPE'
  4108. Size = 500
  4109. end
  4110. object ADQuery4DOCNUMB: TStringField
  4111. DisplayLabel = #8470' '#1044#1086#1082#1091#1084#1077#1085#1090#1072
  4112. FieldName = 'DOCNUMB'
  4113. Size = 100
  4114. end
  4115. object ADQuery4DOCDATE: TDateTimeField
  4116. DisplayLabel = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080' '
  4117. FieldName = 'DOCDATE'
  4118. end
  4119. object ADQuery4REASON: TStringField
  4120. DisplayLabel = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  4121. FieldName = 'REASON'
  4122. Size = 200
  4123. end
  4124. end
  4125. object DataSource5: TDataSource
  4126. DataSet = ADQuery4
  4127. Left = 208
  4128. Top = 240
  4129. end
  4130. object PopupMenu1: TPopupMenu
  4131. Left = 480
  4132. object N3: TMenuItem
  4133. Caption = #1054#1092#1086#1088#1084#1080#1090#1100' '#1087#1077#1088#1077#1074#1086#1076
  4134. OnClick = N3Click
  4135. end
  4136. object N2: TMenuItem
  4137. Caption = #1054#1092#1086#1088#1084#1080#1090#1100' '#1091#1074#1086#1083#1100#1085#1077#1085#1080#1077
  4138. OnClick = N2Click
  4139. end
  4140. object N4: TMenuItem
  4141. Caption = #1054#1092#1086#1088#1084#1080#1090#1100' '#1076#1086#1087'. '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1077
  4142. OnClick = N4Click
  4143. end
  4144. object N6: TMenuItem
  4145. Caption = #1060#1086#1088#1084#1099
  4146. RadioItem = True
  4147. object N5: TMenuItem
  4148. Caption = #1042#1099#1074#1077#1089#1090#1080' '#1090#1088#1091#1076'. '#1076#1086#1075#1086#1074#1086#1088
  4149. OnClick = N5Click
  4150. end
  4151. object N1: TMenuItem
  4152. Caption = #1042#1099#1074#1077#1089#1090#1080' '#1092#1086#1088#1084#1091' '#1058'2'
  4153. OnClick = N1Click
  4154. end
  4155. object N7: TMenuItem
  4156. Caption = #1042#1099#1074#1077#1089#1090#1080' '#1087#1088#1080#1082#1072#1079' '#1086' '#1087#1088#1080#1077#1084#1077
  4157. OnClick = N7Click
  4158. end
  4159. object N8: TMenuItem
  4160. Caption = #1057#1087#1088#1072#1074#1082#1072
  4161. OnClick = N8Click
  4162. end
  4163. object N9: TMenuItem
  4164. Caption = #1057#1086#1075#1083#1072#1096#1077#1085#1080#1077' '#1086' '#1082#1086#1085#1092#1080#1076#1077#1085#1094'.'
  4165. OnClick = N9Click
  4166. end
  4167. end
  4168. end
  4169. object ADQuery5: TADQuery
  4170. MasterSource = DataSource1
  4171. MasterFields = 'ID'
  4172. Connection = DataModule1.ADConnection1
  4173. SQL.Strings = (
  4174. 'select * from HR_V_AWARD t'
  4175. 'where t.employeeid=:ID')
  4176. Left = 240
  4177. Top = 208
  4178. ParamData = <
  4179. item
  4180. Name = 'ID'
  4181. DataType = ftInteger
  4182. ParamType = ptInput
  4183. Value = Null
  4184. end>
  4185. object ADQuery5ID: TFMTBCDField
  4186. FieldName = 'ID'
  4187. Required = True
  4188. end
  4189. object ADQuery5CITEZENID: TFMTBCDField
  4190. FieldName = 'CITEZENID'
  4191. end
  4192. object ADQuery5EMPLOYEEID: TFMTBCDField
  4193. FieldName = 'EMPLOYEEID'
  4194. end
  4195. object ADQuery5AWARDTYPE: TStringField
  4196. DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1085#1072#1075#1088#1072#1076#1099
  4197. FieldName = 'AWARDTYPE'
  4198. Size = 500
  4199. end
  4200. object ADQuery5DOCTYPE: TStringField
  4201. DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  4202. FieldName = 'DOCTYPE'
  4203. Size = 500
  4204. end
  4205. object ADQuery5DOCNUMB: TStringField
  4206. DisplayLabel = #1053#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  4207. FieldName = 'DOCNUMB'
  4208. Size = 100
  4209. end
  4210. object ADQuery5DOCDATE: TDateTimeField
  4211. DisplayLabel = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
  4212. FieldName = 'DOCDATE'
  4213. end
  4214. end
  4215. object DataSource6: TDataSource
  4216. DataSet = ADQuery5
  4217. Left = 240
  4218. Top = 240
  4219. end
  4220. object ADQuery6: TADQuery
  4221. MasterSource = DataSource1
  4222. MasterFields = 'ID'
  4223. Connection = DataModule1.ADConnection1
  4224. SQL.Strings = (
  4225. 'select * from HR_V_HOLIDAY t'
  4226. 'where t.employeeid=:ID')
  4227. Left = 272
  4228. Top = 208
  4229. ParamData = <
  4230. item
  4231. Name = 'ID'
  4232. DataType = ftInteger
  4233. ParamType = ptInput
  4234. Value = Null
  4235. end>
  4236. object ADQuery6ID: TFMTBCDField
  4237. FieldName = 'ID'
  4238. Required = True
  4239. end
  4240. object ADQuery6CITEZENID: TFMTBCDField
  4241. FieldName = 'CITEZENID'
  4242. end
  4243. object ADQuery6EMPLOYEEID: TFMTBCDField
  4244. FieldName = 'EMPLOYEEID'
  4245. end
  4246. object ADQuery6HOLTYPE: TStringField
  4247. DisplayLabel = #1058#1080#1087' '#1086#1090#1087#1091#1089#1082#1072
  4248. FieldName = 'HOLTYPE'
  4249. Size = 500
  4250. end
  4251. object ADQuery6WORKDATE1: TDateTimeField
  4252. DisplayLabel = #1055#1077#1088#1080#1086#1076' '#1088#1072#1073#1086#1090#1099' ('#1085#1072#1095#1072#1083#1086')'
  4253. FieldName = 'WORKDATE1'
  4254. end
  4255. object ADQuery6WORKDATE2: TDateTimeField
  4256. DisplayLabel = #1055#1077#1088#1080#1086#1076' '#1088#1072#1073#1086#1090#1099' ('#1082#1086#1085#1077#1094')'
  4257. FieldName = 'WORKDATE2'
  4258. end
  4259. object ADQuery6INDATE: TDateTimeField
  4260. DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1086#1090#1087#1089#1082#1072
  4261. FieldName = 'INDATE'
  4262. end
  4263. object ADQuery6OUTDATE: TDateTimeField
  4264. DisplayLabel = #1044#1072#1090#1072' '#1082#1086#1085#1094#1072' '#1086#1090#1087#1091#1089#1082#1072
  4265. FieldName = 'OUTDATE'
  4266. end
  4267. object ADQuery6DAYS: TFMTBCDField
  4268. DisplayLabel = #1063#1080#1089#1083#1086' '#1076#1085#1077#1081
  4269. FieldName = 'DAYS'
  4270. Precision = 38
  4271. Size = 0
  4272. end
  4273. object ADQuery6REASON: TStringField
  4274. DisplayLabel = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  4275. FieldName = 'REASON'
  4276. Size = 100
  4277. end
  4278. end
  4279. object ADQuery7: TADQuery
  4280. MasterSource = DataSource1
  4281. MasterFields = 'ID'
  4282. Connection = DataModule1.ADConnection1
  4283. SQL.Strings = (
  4284. 'select * from HR_V_SOCIAL t'
  4285. 'where t.employeeid=:ID')
  4286. Left = 304
  4287. Top = 208
  4288. ParamData = <
  4289. item
  4290. Name = 'ID'
  4291. DataType = ftInteger
  4292. ParamType = ptInput
  4293. Value = Null
  4294. end>
  4295. object ADQuery7ID: TFMTBCDField
  4296. FieldName = 'ID'
  4297. Required = True
  4298. end
  4299. object ADQuery7CITEZENID: TFMTBCDField
  4300. FieldName = 'CITEZENID'
  4301. end
  4302. object ADQuery7EMPLOYEEID: TFMTBCDField
  4303. FieldName = 'EMPLOYEEID'
  4304. end
  4305. object ADQuery7PRIVTYPE: TStringField
  4306. DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1083#1100#1075#1086#1090#1099
  4307. FieldName = 'PRIVTYPE'
  4308. Size = 500
  4309. end
  4310. object ADQuery7DOCNUMB: TStringField
  4311. DisplayLabel = #1053#1086#1084#1077#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  4312. FieldName = 'DOCNUMB'
  4313. Size = 100
  4314. end
  4315. object ADQuery7DOCDATE: TDateTimeField
  4316. DisplayLabel = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
  4317. FieldName = 'DOCDATE'
  4318. end
  4319. object ADQuery7REASON: TStringField
  4320. DisplayLabel = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  4321. FieldName = 'REASON'
  4322. Size = 100
  4323. end
  4324. end
  4325. object DataSource7: TDataSource
  4326. DataSet = ADQuery6
  4327. Left = 272
  4328. Top = 240
  4329. end
  4330. object DataSource8: TDataSource
  4331. DataSet = ADQuery7
  4332. Left = 304
  4333. Top = 240
  4334. end
  4335. object ADQuery9: TADQuery
  4336. MasterSource = DataSource1
  4337. MasterFields = 'CITEZENID'
  4338. Connection = DataModule1.ADConnection1
  4339. SQL.Strings = (
  4340. 'select * from HR_V_DOCEDUCATION t'
  4341. 'where t.citezenid=:citezenID')
  4342. Left = 352
  4343. Top = 208
  4344. ParamData = <
  4345. item
  4346. Name = 'CITEZENID'
  4347. DataType = ftInteger
  4348. ParamType = ptInput
  4349. Value = Null
  4350. end>
  4351. object FloatField3: TFMTBCDField
  4352. FieldName = 'CITEZENID'
  4353. Required = True
  4354. end
  4355. object FloatField4: TFMTBCDField
  4356. FieldName = 'ID'
  4357. Required = True
  4358. end
  4359. object ADQuery3DOCSERIA: TStringField
  4360. DisplayLabel = #1057#1077#1088#1080#1103' '#1076#1086#1082'-'#1090#1072'.'
  4361. FieldName = 'DOCSERIA'
  4362. Size = 200
  4363. end
  4364. object StringField1: TStringField
  4365. DisplayLabel = #8470' '#1076#1086#1082'-'#1090#1072'.'
  4366. FieldName = 'DOCNUMB'
  4367. Size = 200
  4368. end
  4369. object ADQuery3NAME: TStringField
  4370. DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1086#1088#1075'.'
  4371. FieldName = 'NAME'
  4372. Size = 200
  4373. end
  4374. object ADQuery3OUTYEAR: TStringField
  4375. DisplayLabel = #1043#1086#1076' '#1074#1099#1087#1091#1089#1082#1072
  4376. FieldName = 'OUTYEAR'
  4377. Size = 4
  4378. end
  4379. object StringField2: TStringField
  4380. DisplayLabel = #1090#1080#1087' '#1076#1086#1082'-'#1090#1072'.'
  4381. FieldName = 'DOCTYPE'
  4382. Size = 500
  4383. end
  4384. object ADQuery3OVEREDUCATION: TStringField
  4385. DisplayLabel = #1055#1086#1089#1083#1077#1074#1091#1079#1086#1074#1089#1082#1086#1077' '#1086#1073#1088'.'
  4386. FieldName = 'OVEREDUCATION'
  4387. Size = 500
  4388. end
  4389. object ADQuery3SPECIALITYCODE: TStringField
  4390. DisplayLabel = #1050#1086#1076' '#1089#1087#1077#1094'.'
  4391. FieldName = 'SPECIALITYCODE'
  4392. end
  4393. object ADQuery3SPECIALITY: TStringField
  4394. DisplayLabel = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1086#1089#1090#1100
  4395. FieldName = 'SPECIALITY'
  4396. Size = 600
  4397. end
  4398. object ADQuery3CVALIFICATIONCODE: TStringField
  4399. DisplayLabel = #1050#1086#1076' '#1082#1074#1072#1083'.'
  4400. FieldName = 'CVALIFICATIONCODE'
  4401. end
  4402. object ADQuery3CVALIFICATION: TStringField
  4403. DisplayLabel = #1050#1074#1072#1083#1080#1092#1080#1082#1072#1094#1080#1103
  4404. FieldName = 'CVALIFICATION'
  4405. Size = 600
  4406. end
  4407. object ADQuery3FIO: TStringField
  4408. DisplayLabel = #1060#1048#1054
  4409. FieldName = 'FIO'
  4410. Size = 204
  4411. end
  4412. object ADQuery3EDUCATIONFORM: TStringField
  4413. DisplayLabel = #1060#1086#1088#1084#1072' '#1086#1073#1091#1095#1077#1085#1080#1103
  4414. FieldName = 'EDUCATIONFORM'
  4415. Size = 500
  4416. end
  4417. end
  4418. object ADQuery11: TADQuery
  4419. MasterSource = DataSource1
  4420. MasterFields = 'CITEZENID'
  4421. Connection = DataModule1.ADConnection1
  4422. SQL.Strings = (
  4423. 'select * from HR_V_ADRESS t'
  4424. 'where t.citezenid= :citezenID')
  4425. Left = 384
  4426. Top = 208
  4427. ParamData = <
  4428. item
  4429. Name = 'CITEZENID'
  4430. DataType = ftInteger
  4431. ParamType = ptInput
  4432. Value = Null
  4433. end>
  4434. object ADQuery11ID: TFMTBCDField
  4435. FieldName = 'ID'
  4436. Required = True
  4437. Precision = 38
  4438. Size = 38
  4439. end
  4440. object ADQuery11CITEZENID: TFMTBCDField
  4441. FieldName = 'CITEZENID'
  4442. Precision = 38
  4443. Size = 38
  4444. end
  4445. object ADQuery11REGDATE: TDateTimeField
  4446. DisplayLabel = #1044#1072#1090#1072' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1080
  4447. FieldName = 'REGDATE'
  4448. end
  4449. object ADQuery11STATUS: TFMTBCDField
  4450. DisplayLabel = #1057#1090#1072#1090#1091#1089
  4451. FieldName = 'STATUS'
  4452. Precision = 38
  4453. Size = 38
  4454. end
  4455. object ADQuery11REGION: TStringField
  4456. DisplayLabel = #1056#1077#1075#1080#1086#1085
  4457. FieldName = #1058'REGION'
  4458. Size = 70
  4459. end
  4460. object ADQuery11AREA: TStringField
  4461. DisplayLabel = #1056#1072#1081#1086#1085
  4462. FieldName = 'AREA'
  4463. Size = 70
  4464. end
  4465. object ADQuery11TOWNNAME: TStringField
  4466. DisplayLabel = #1053#1072#1089#1077#1083#1077#1085#1085#1099#1081' '#1087#1091#1085#1082#1090
  4467. FieldName = 'TOWNNAME'
  4468. Size = 70
  4469. end
  4470. object ADQuery11SUBTOWN: TStringField
  4471. DisplayLabel = #1056#1072#1081#1086#1085' '#1075#1086#1088#1086#1076#1072
  4472. FieldName = 'SUBTOWN'
  4473. Size = 70
  4474. end
  4475. object ADQuery11STRRETHOUSE: TStringField
  4476. DisplayLabel = #1040#1076#1088#1077#1089
  4477. FieldName = 'STRRETHOUSE'
  4478. Size = 78
  4479. end
  4480. end
  4481. object ADQuery12: TADQuery
  4482. MasterSource = DataSource1
  4483. MasterFields = 'CITEZENID'
  4484. Connection = DataModule1.ADConnection1
  4485. SQL.Strings = (
  4486. 'select * from HR_V_FAMILY t'
  4487. 'where t.citezenid= :citezenID')
  4488. Left = 416
  4489. Top = 208
  4490. ParamData = <
  4491. item
  4492. Name = 'CITEZENID'
  4493. DataType = ftInteger
  4494. ParamType = ptInput
  4495. Value = Null
  4496. end>
  4497. object FloatField9: TFMTBCDField
  4498. FieldName = 'ID'
  4499. Required = True
  4500. end
  4501. object FloatField10: TFMTBCDField
  4502. FieldName = 'CITEZENID'
  4503. end
  4504. object ADQuery7BIRTHDATE: TDateTimeField
  4505. DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
  4506. FieldName = 'BIRTHDATE'
  4507. end
  4508. object ADQuery7BIRTHPLACE: TStringField
  4509. DisplayLabel = #1052#1077#1089#1090#1086' '#1088#1086#1078#1076#1077#1085#1080#1103
  4510. FieldName = 'BIRTHPLACE'
  4511. Size = 200
  4512. end
  4513. object ADQuery7STEP: TStringField
  4514. DisplayLabel = #1057#1090#1077#1087#1077#1100' '#1088#1086#1076#1089#1090#1074#1072
  4515. FieldName = 'STEP'
  4516. Size = 500
  4517. end
  4518. object ADQuery7LASTNAME: TStringField
  4519. DisplayLabel = #1060#1072#1084#1080#1083#1080#1103
  4520. FieldName = 'LASTNAME'
  4521. Size = 200
  4522. end
  4523. object ADQuery7NAME: TStringField
  4524. DisplayLabel = #1048#1084#1103
  4525. FieldName = 'NAME'
  4526. Size = 200
  4527. end
  4528. object ADQuery7FATHERSHIP: TStringField
  4529. DisplayLabel = #1054#1090#1095#1077#1089#1090#1074#1086
  4530. FieldName = 'FATHERSHIP'
  4531. Size = 200
  4532. end
  4533. end
  4534. object DataSource11: TDataSource
  4535. DataSet = ADQuery12
  4536. Left = 416
  4537. Top = 240
  4538. end
  4539. object DataSource12: TDataSource
  4540. DataSet = ADQuery11
  4541. Left = 384
  4542. Top = 240
  4543. end
  4544. object DataSource15: TDataSource
  4545. DataSet = ADQuery9
  4546. Left = 352
  4547. Top = 240
  4548. end
  4549. object PKDBTable1: TPKDBTable
  4550. Fields = <
  4551. item
  4552. FieldName = 'CITEZENID'
  4553. FieldLabel = #1043#1088#1072#1078#1076#1072#1085#1080#1085
  4554. Nullable = False
  4555. FieldType = ftsNumber
  4556. ReferencingTable = 'HR_CITEZEN'
  4557. ReferencingColumn = 'ID'
  4558. IsPrimaryKey = True
  4559. DisplayName = 'CITEZENID'
  4560. end
  4561. item
  4562. FieldName = 'STOCKATEGID'
  4563. FieldLabel = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1079#1072#1087#1072#1089#1072
  4564. Nullable = True
  4565. FieldType = ftsNumber
  4566. ReferencingTable = 'HR_FACETCONTENT'
  4567. ReferencingColumn = 'ID'
  4568. LookUpRool = 'rowcontent'
  4569. DisplayName = 'STOCKATEGID'
  4570. end
  4571. item
  4572. FieldName = 'RANKID'
  4573. FieldLabel = #1047#1074#1072#1085#1080#1077
  4574. Nullable = True
  4575. FieldType = ftsNumber
  4576. ReferencingTable = 'HR_FACETCONTENT'
  4577. ReferencingColumn = 'ID'
  4578. LookUpRool = 'rowcontent'
  4579. DisplayName = 'RANKID'
  4580. end
  4581. item
  4582. FieldName = 'MILITSTATUSID'
  4583. FieldLabel = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1075#1086#1076#1085#1086#1089#1090#1080' '#1082' '#1074#1086#1077#1085#1085#1086#1081' '#1089#1083#1091#1078#1073#1077
  4584. Nullable = True
  4585. FieldType = ftsNumber
  4586. ReferencingTable = 'HR_FACETCONTENT'
  4587. ReferencingColumn = 'ID'
  4588. LookUpRool = 'rowcontent'
  4589. DisplayName = 'MILITSTATUSID'
  4590. end
  4591. item
  4592. FieldName = 'VOENKOMID'
  4593. FieldLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1074#1086#1077#1085#1085#1086#1075#1086' '#1082#1086#1084#1080#1089#1089#1072#1088#1080#1072#1090#1072' '#1087#1086' '#1084#1077#1089#1090#1091' '#1078#1080#1090#1077#1083#1100#1089#1090#1074#1072
  4594. Nullable = True
  4595. FieldType = ftsNumber
  4596. ReferencingTable = 'HR_ORGANISATION'
  4597. ReferencingColumn = 'ID'
  4598. LookUpRool = 'name'
  4599. DisplayName = 'VOENKOMID'
  4600. end
  4601. item
  4602. FieldName = 'MILACCOUNTID'
  4603. FieldLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1074#1086#1080#1085#1089#1082#1086#1075#1086' '#1091#1095#1077#1090#1072
  4604. Nullable = True
  4605. FieldType = ftsNumber
  4606. ReferencingTable = 'HR_FACETCONTENT'
  4607. ReferencingColumn = 'ID'
  4608. LookUpRool = 'rowcontent'
  4609. DisplayName = 'MILACCOUNTID'
  4610. end
  4611. item
  4612. FieldName = 'MILACCOUNTSPEC'
  4613. FieldLabel = #1057#1087#1077#1094#1080#1072#1083#1100#1085#1099#1081' '#1091#1095#1077#1090
  4614. Nullable = True
  4615. FieldType = ftsString
  4616. DisplayName = 'MILACCOUNTSPEC'
  4617. end
  4618. item
  4619. FieldName = 'VUS'
  4620. FieldLabel = #1055#1086#1083#1085#1086#1077' '#1082#1086#1076#1086#1074#1086#1077' '#1086#1073#1086#1079#1085#1072#1095#1077#1085#1080#1077' '#1042#1059#1057
  4621. Nullable = True
  4622. FieldType = ftsString
  4623. DisplayName = 'VUS'
  4624. end
  4625. item
  4626. FieldName = 'ID'
  4627. FieldLabel = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088
  4628. Nullable = False
  4629. FieldType = ftsNumber
  4630. DisplayName = 'ID'
  4631. end
  4632. item
  4633. FieldName = 'MILACCOUNTGEN'
  4634. FieldLabel = #1054#1073#1097#1080#1081' '#1091#1095#1077#1090' ('#1085#1086#1084#1077#1088' '#1082#1086#1084#1072#1085#1076#1099', '#1087#1072#1088#1090#1080#1080')'
  4635. Nullable = True
  4636. FieldType = ftsString
  4637. DisplayName = 'MILACCOUNTGEN'
  4638. end
  4639. item
  4640. FieldName = 'PROFIL'
  4641. FieldLabel = #1057#1086#1089#1090#1072#1074' ('#1087#1088#1086#1092#1080#1083#1100')'
  4642. Nullable = True
  4643. FieldType = ftsString
  4644. DisplayName = 'PROFIL'
  4645. end
  4646. item
  4647. FieldName = 'MILREGFLAG'
  4648. FieldLabel = #1054#1090#1084#1077#1090#1082#1072' '#1086' '#1089#1085#1103#1090#1080#1080' '#1089' '#1091#1095#1077#1090#1072
  4649. Nullable = True
  4650. FieldType = ftsString
  4651. DisplayName = 'MILREGFLAG'
  4652. end>
  4653. TableName = 'HR_MILITARY'
  4654. Connection = DataModule1.ADConnection1
  4655. Left = 608
  4656. Top = 624
  4657. end
  4658. object PKDBTable2: TPKDBTable
  4659. Fields = <
  4660. item
  4661. FieldName = 'CITEZENID'
  4662. FieldLabel = #1043#1088#1072#1078#1076#1072#1085#1080#1085
  4663. Nullable = False
  4664. FieldType = ftsNumber
  4665. IsPrimaryKey = True
  4666. DisplayName = 'CITEZENID'
  4667. end
  4668. item
  4669. FieldName = 'STATUSID'
  4670. FieldLabel = #1057#1090#1072#1090#1091#1089
  4671. Nullable = True
  4672. FieldType = ftsNumber
  4673. DisplayName = 'STATUSID'
  4674. end
  4675. item
  4676. FieldName = 'CHANGESTATUSDATE'
  4677. FieldLabel = #1044#1072#1090#1072' '#1089#1084#1077#1085#1099' '#1089#1090#1072#1090#1091#1089#1072
  4678. Nullable = True
  4679. FieldType = ftsDate
  4680. DisplayName = 'CHANGESTATUSDATE'
  4681. end
  4682. item
  4683. FieldName = 'TAXNUMB'
  4684. FieldLabel = #1048#1053#1053
  4685. Nullable = True
  4686. FieldType = ftsString
  4687. DisplayName = 'TAXNUMB'
  4688. end
  4689. item
  4690. FieldName = 'ID'
  4691. FieldLabel = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088
  4692. Nullable = False
  4693. FieldType = ftsNumber
  4694. DisplayName = 'ID'
  4695. end>
  4696. TableName = 'HR_TAXNUMBER'
  4697. Connection = DataModule1.ADConnection1
  4698. Left = 640
  4699. Top = 624
  4700. end
  4701. object PKDBTable3: TPKDBTable
  4702. Fields = <
  4703. item
  4704. FieldName = 'CITEZENID'
  4705. FieldLabel = #1043#1088#1072#1078#1076#1072#1085#1080#1085
  4706. Nullable = False
  4707. FieldType = ftsNumber
  4708. ReferencingTable = 'HR_CITEZEN'
  4709. ReferencingColumn = 'ID'
  4710. IsPrimaryKey = True
  4711. DisplayName = 'CITEZENID'
  4712. end
  4713. item
  4714. FieldName = 'PENSIONTYPE'
  4715. FieldLabel = #1042#1080#1076' '#1087#1077#1085#1089#1080#1080
  4716. Nullable = True
  4717. FieldType = ftsNumber
  4718. ReferencingTable = 'HR_FACETCONTENT'
  4719. ReferencingColumn = 'ID'
  4720. DisplayName = 'PENSIONTYPE'
  4721. end
  4722. item
  4723. FieldName = 'REGDATE'
  4724. FieldLabel = #1044#1072#1090#1072' '#1087#1086#1089#1090#1072#1085#1086#1074#1082#1080' '#1085#1072' '#1087#1077#1085#1089#1080#1086#1085#1085#1099#1081' '#1091#1095#1077#1090
  4725. Nullable = True
  4726. FieldType = ftsDate
  4727. DisplayName = 'REGDATE'
  4728. end
  4729. item
  4730. FieldName = 'STARTWORKDATE'
  4731. FieldLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1090#1088#1091#1076#1086#1074#1086#1075#1086' '#1089#1090#1072#1078#1072
  4732. Nullable = True
  4733. FieldType = ftsDate
  4734. DisplayName = 'STARTWORKDATE'
  4735. end
  4736. item
  4737. FieldName = 'ID'
  4738. Nullable = False
  4739. FieldType = ftsNumber
  4740. DisplayName = 'ID'
  4741. end
  4742. item
  4743. FieldName = 'TOTALWORKDATE'
  4744. FieldLabel = #1044#1072#1090#1072' '#1085#1077#1087#1088#1077#1088#1099#1074#1085#1086#1075#1086' '#1090#1088#1091#1076#1086#1074#1086#1075#1086' '#1089#1090#1072#1078#1072
  4745. Nullable = True
  4746. FieldType = ftsDate
  4747. DisplayName = 'TOTALWORKDATE'
  4748. end
  4749. item
  4750. FieldName = 'STATUSID'
  4751. FieldLabel = #1057#1090#1072#1090#1091#1089
  4752. Nullable = True
  4753. FieldType = ftsNumber
  4754. DisplayName = 'STATUSID'
  4755. end
  4756. item
  4757. FieldName = 'PENSIONRECOUNTDATE'
  4758. FieldLabel = #1044#1072#1090#1072' '#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090#1072' '#1087#1077#1085#1089#1080#1080
  4759. Nullable = True
  4760. FieldType = ftsDate
  4761. DisplayName = 'PENSIONRECOUNTDATE'
  4762. end
  4763. item
  4764. FieldName = 'CHANGESTATUSDATE'
  4765. FieldLabel = #1044#1072#1090#1072' '#1089#1084#1077#1085#1099' '#1089#1090#1072#1090#1091#1089#1072
  4766. Nullable = True
  4767. FieldType = ftsDate
  4768. DisplayName = 'CHANGESTATUSDATE'
  4769. end
  4770. item
  4771. FieldName = 'PENSIONDATE'
  4772. FieldLabel = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103' '#1087#1077#1085#1089#1080#1080
  4773. Nullable = True
  4774. FieldType = ftsDate
  4775. DisplayName = 'PENSIONDATE'
  4776. end
  4777. item
  4778. FieldName = 'DOCNUMB'
  4779. FieldLabel = #1053#1086#1084#1077#1088' C'#1053#1048#1051#1057
  4780. Nullable = True
  4781. FieldType = ftsString
  4782. DisplayName = 'DOCNUMB'
  4783. end
  4784. item
  4785. FieldName = 'PENSIONDOCNUMB'
  4786. FieldLabel = #1053#1086#1084#1077#1088' '#1087#1077#1085#1089#1080#1086#1085#1085#1086#1075#1086' '#1091#1076#1086#1089#1090#1086#1074#1077#1088#1077#1085#1080#1103
  4787. Nullable = True
  4788. FieldType = ftsString
  4789. DisplayName = 'PENSIONDOCNUMB'
  4790. end
  4791. item
  4792. FieldName = 'invalidgroup'
  4793. FieldLabel = #1043#1088#1091#1087#1087#1072' '#1080#1085#1074#1072#1083#1080#1076#1085#1086#1089#1090#1080
  4794. Nullable = True
  4795. FieldType = ftsString
  4796. ReferencingTable = 'HR_FACETCONTENT'
  4797. ReferencingColumn = 'ID'
  4798. LookUpRool = 'rowcontent'
  4799. DisplayName = 'invalidgroup'
  4800. end
  4801. item
  4802. FieldName = 'PENSIONLIST'
  4803. FieldLabel = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1077#1085#1089#1080#1081' '#1087#1086' '#1089#1087#1080#1089#1082#1091' '
  4804. Nullable = True
  4805. FieldType = ftsString
  4806. ReferencingTable = 'hr_FACETCONTENT'
  4807. ReferencingColumn = 'ID'
  4808. LookUpRool = 'rowcontent'
  4809. DisplayName = 'PENSIONLIST'
  4810. end>
  4811. TableName = 'HR_DOCSNILS'
  4812. Connection = DataModule1.ADConnection1
  4813. Left = 672
  4814. Top = 624
  4815. end
  4816. object PKDBTable4: TPKDBTable
  4817. Fields = <
  4818. item
  4819. FieldName = 'CITEZENID'
  4820. FieldLabel = #1043#1088#1072#1078#1076#1072#1085#1080#1085
  4821. Nullable = False
  4822. FieldType = ftsNumber
  4823. ReferencingTable = 'HR_CITEZEN'
  4824. ReferencingColumn = 'ID'
  4825. IsPrimaryKey = True
  4826. DisplayName = 'CITEZENID'
  4827. end
  4828. item
  4829. FieldName = 'BOOKNUMB'
  4830. FieldLabel = #1053#1086#1084#1077#1088' '#1090#1088#1091#1076#1086#1074#1086#1081' '#1082#1085#1080#1078#1082#1080
  4831. Nullable = True
  4832. FieldType = ftsString
  4833. DisplayName = 'BOOKNUMB'
  4834. end
  4835. item
  4836. FieldName = 'STATUS'
  4837. FieldLabel = #1057#1090#1072#1090#1091#1089
  4838. Nullable = True
  4839. FieldType = ftsNumber
  4840. DisplayName = 'STATUS'
  4841. end
  4842. item
  4843. FieldName = 'ID'
  4844. Nullable = False
  4845. FieldType = ftsNumber
  4846. DisplayName = 'ID'
  4847. end>
  4848. TableName = 'HR_DOCWORKBOOK'
  4849. Connection = DataModule1.ADConnection1
  4850. Left = 704
  4851. Top = 624
  4852. end
  4853. object ADQuery8: TADQuery
  4854. MasterSource = DataSource1
  4855. MasterFields = 'CITEZENID'
  4856. Connection = DataModule1.ADConnection1
  4857. SQL.Strings = (
  4858. 'select * from HR_V_JOBHISTORY t'
  4859. 'where t.citezenid= :citezenID')
  4860. Left = 448
  4861. Top = 208
  4862. ParamData = <
  4863. item
  4864. Name = 'CITEZENID'
  4865. DataType = ftInteger
  4866. ParamType = ptInput
  4867. Value = Null
  4868. end>
  4869. object ADQuery8CITEZENID: TFMTBCDField
  4870. FieldName = 'CITEZENID'
  4871. end
  4872. object ADQuery8INDATE: TDateTimeField
  4873. DisplayLabel = #1044#1072#1090#1072' '#1087#1088#1080#1077#1084#1072
  4874. FieldName = 'INDATE'
  4875. end
  4876. object ADQuery8OUTDATE: TDateTimeField
  4877. DisplayLabel = #1044#1072#1090#1072' '#1091#1074#1086#1083'.'
  4878. FieldName = 'OUTDATE'
  4879. end
  4880. object ADQuery8DEPT_NO: TStringField
  4881. DisplayLabel = #1055#1086#1076#1088'.'
  4882. FieldName = 'DEPT_NO'
  4883. Size = 200
  4884. end
  4885. object ADQuery8AGREEMENTNUMB: TStringField
  4886. DisplayLabel = #8470' '#1076#1086#1075#1086#1074#1086#1088#1072
  4887. FieldName = 'AGREEMENTNUMB'
  4888. Size = 200
  4889. end
  4890. object ADQuery8AGREEMENTDATE: TDateTimeField
  4891. DisplayLabel = #1044#1072#1090#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
  4892. FieldName = 'AGREEMENTDATE'
  4893. end
  4894. object ADQuery8JOBTITLE: TStringField
  4895. DisplayLabel = #1044#1086#1083#1078#1085#1086#1089#1090#1100
  4896. FieldName = 'JOBTITLE'
  4897. Size = 442
  4898. end
  4899. object ADQuery8SUMSAL: TFMTBCDField
  4900. DisplayLabel = #1057#1091#1084'.'#1054#1082#1083#1072#1076
  4901. FieldName = 'SUMSAL'
  4902. end
  4903. object ADQuery8REASON: TStringField
  4904. DisplayLabel = #1054#1089#1085#1086#1074#1072#1085#1080#1077' '#1087#1088#1080#1077#1084#1072
  4905. FieldName = 'REASON'
  4906. FixedChar = True
  4907. Size = 8
  4908. end
  4909. object ADQuery8ID: TFMTBCDField
  4910. FieldName = 'ID'
  4911. Required = True
  4912. end
  4913. object ADQuery8ROWCONTENT: TStringField
  4914. DisplayLabel = #1058#1080#1087' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
  4915. FieldName = 'ROWCONTENT'
  4916. Size = 500
  4917. end
  4918. end
  4919. object DataSource9: TDataSource
  4920. DataSet = ADQuery8
  4921. Left = 448
  4922. Top = 240
  4923. end
  4924. object ADQuery13: TADQuery
  4925. MasterSource = DataSource1
  4926. MasterFields = 'CITEZENID'
  4927. Connection = DataModule1.ADConnection1
  4928. SQL.Strings = (
  4929. 'select * from HR_V_DISCIPLINE t'
  4930. 'where t.citezenid= :citezenID')
  4931. Left = 512
  4932. Top = 208
  4933. ParamData = <
  4934. item
  4935. Name = 'CITEZENID'
  4936. DataType = ftInteger
  4937. ParamType = ptInput
  4938. Value = Null
  4939. end>
  4940. object ADQuery13ID: TFMTBCDField
  4941. FieldName = 'ID'
  4942. end
  4943. object ADQuery13CITEZENID: TFMTBCDField
  4944. FieldName = 'CITEZENID'
  4945. end
  4946. object ADQuery13STATUSID: TFMTBCDField
  4947. FieldName = 'STATUSID'
  4948. end
  4949. object ADQuery13CHANGESTATUSDATE: TDateTimeField
  4950. DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'. '#1089#1090#1072#1090#1091#1089#1072
  4951. FieldName = 'CHANGESTATUSDATE'
  4952. end
  4953. object ADQuery13EVENTDATE: TDateTimeField
  4954. DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1088#1091#1096#1077#1085#1080#1103
  4955. FieldName = 'EVENTDATE'
  4956. end
  4957. object ADQuery13BASICDOC: TStringField
  4958. DisplayLabel = #1054#1089#1085#1086#1074#1072#1085#1080#1077
  4959. FieldName = 'BASICDOC'
  4960. Size = 100
  4961. end
  4962. object ADQuery13STATUSNAME: TStringField
  4963. DisplayLabel = #1057#1090#1072#1090#1091#1089
  4964. FieldName = 'STATUSNAME'
  4965. Required = True
  4966. Size = 100
  4967. end
  4968. object ADQuery13EVENTTYPE: TStringField
  4969. DisplayLabel = #1058#1080#1087' '#1085#1072#1088#1091#1096#1077#1085#1080#1103
  4970. FieldName = 'EVENTTYPE'
  4971. Size = 500
  4972. end
  4973. object ADQuery13COLLECTTYPE: TStringField
  4974. DisplayLabel = #1042#1080#1076' '#1074#1079#1099#1089#1082#1072#1085#1080#1103
  4975. FieldName = 'COLLECTTYPE'
  4976. Size = 500
  4977. end
  4978. object ADQuery13EMPLOYEEID: TFMTBCDField
  4979. FieldName = 'EMPLOYEEID'
  4980. end
  4981. end
  4982. object DataSource13: TDataSource
  4983. DataSet = ADQuery13
  4984. Left = 512
  4985. Top = 240
  4986. end
  4987. object ADQuery14: TADQuery
  4988. MasterSource = DataSource1
  4989. MasterFields = 'CITEZENID'
  4990. Connection = DataModule1.ADConnection1
  4991. SQL.Strings = (
  4992. 'select * from HR_V_INSURANCE t'
  4993. 'where t.citezenid= :citezenID')
  4994. Left = 480
  4995. Top = 208
  4996. ParamData = <
  4997. item
  4998. Name = 'CITEZENID'
  4999. DataType = ftInteger
  5000. ParamType = ptInput
  5001. Value = Null
  5002. end>
  5003. object ADQuery14ID: TFMTBCDField
  5004. FieldName = 'ID'
  5005. Required = True
  5006. end
  5007. object ADQuery14CITEZENID: TFMTBCDField
  5008. FieldName = 'CITEZENID'
  5009. end
  5010. object ADQuery14STATUSID: TFMTBCDField
  5011. FieldName = 'STATUSID'
  5012. end
  5013. object ADQuery14CHAGESTATUSDATE: TDateTimeField
  5014. DisplayLabel = #1044#1072#1090#1072' '#1089#1084#1077#1085#1099' '#1089#1090#1072#1090#1091#1089#1072
  5015. FieldName = 'CHAGESTATUSDATE'
  5016. end
  5017. object ADQuery14DOCNUMB: TStringField
  5018. DisplayLabel = #1053#1086#1084#1077#1088' '#1087#1086#1083#1080#1089#1072
  5019. FieldName = 'DOCNUMB'
  5020. Size = 50
  5021. end
  5022. object ADQuery14DELIVERYDATE: TDateTimeField
  5023. DisplayLabel = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
  5024. FieldName = 'DELIVERYDATE'
  5025. end
  5026. object ADQuery14STATUSNAME: TStringField
  5027. DisplayLabel = #1057#1090#1072#1090#1091#1089
  5028. FieldName = 'STATUSNAME'
  5029. Size = 100
  5030. end
  5031. object ADQuery14COMPANY: TStringField
  5032. DisplayLabel = #1050#1086#1084#1087#1072#1085#1080#1103
  5033. FieldName = 'COMPANY'
  5034. Size = 500
  5035. end
  5036. object ADQuery14DOCTYPE: TStringField
  5037. DisplayLabel = #1058#1080#1087' '#1087#1086#1083#1080#1089#1072
  5038. FieldName = 'DOCTYPE'
  5039. Size = 500
  5040. end
  5041. object ADQuery14SERVICE: TStringField
  5042. DisplayLabel = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1086#1073#1089#1083#1091#1078'.'
  5043. FieldName = 'SERVICE'
  5044. Size = 500
  5045. end
  5046. end
  5047. object DataSource14: TDataSource
  5048. DataSet = ADQuery14
  5049. Left = 480
  5050. Top = 240
  5051. end
  5052. object ADStoredProc1: TADStoredProc
  5053. Connection = DataModule1.ADConnection1
  5054. StoredProcName = 'APPROOT.HR_SICKLIST_COUNT'
  5055. Top = 384
  5056. ParamData = <
  5057. item
  5058. Position = 1
  5059. Name = 'STAGDATE'
  5060. DataType = ftDateTime
  5061. ADDataType = dtDateTime
  5062. ParamType = ptInput
  5063. end
  5064. item
  5065. Position = 2
  5066. Name = 'SICKDATE'
  5067. DataType = ftDateTime
  5068. ADDataType = dtDateTime
  5069. ParamType = ptInput
  5070. end
  5071. item
  5072. Position = 3
  5073. Name = 'DD'
  5074. DataType = ftString
  5075. ADDataType = dtAnsiString
  5076. ParamType = ptOutput
  5077. end
  5078. item
  5079. Position = 4
  5080. Name = 'MM'
  5081. DataType = ftString
  5082. ADDataType = dtAnsiString
  5083. ParamType = ptOutput
  5084. end
  5085. item
  5086. Position = 5
  5087. Name = 'YY'
  5088. DataType = ftString
  5089. ADDataType = dtAnsiString
  5090. ParamType = ptOutput
  5091. end>
  5092. end
  5093. object PKDBTable5: TPKDBTable
  5094. Fields = <
  5095. item
  5096. FieldName = 'STRUCTUREID'
  5097. FieldLabel = #1044#1086#1083#1078#1085#1086#1089#1090#1100
  5098. Nullable = True
  5099. FieldType = ftsNumber
  5100. ReferencingTable = 'CS_SCHEDULE_STRUCTURE'
  5101. ReferencingColumn = 'ID'
  5102. IsPrimaryKey = True
  5103. DisplayName = 'STRUCTUREID'
  5104. end
  5105. item
  5106. FieldName = 'HARMCONDITIONID'
  5107. FieldLabel = #1042#1088#1077#1076#1085#1086#1089#1090#1100' '#1091#1089#1083#1086#1074#1080#1081' '#1090#1088#1091#1076#1072
  5108. Nullable = True
  5109. FieldType = ftsNumber
  5110. ReferencingTable = 'CS_FACETCONTENT'
  5111. ReferencingColumn = 'ID'
  5112. LookUpRool = ' rowcontent'
  5113. DisplayName = 'HARMCONDITIONID'
  5114. end
  5115. item
  5116. FieldName = 'WORKTIMETYPEID'
  5117. FieldLabel = #1056#1072#1073#1086#1095#1077#1077' '#1074#1088#1077#1084#1103
  5118. Nullable = True
  5119. FieldType = ftsNumber
  5120. ReferencingTable = 'CS_FACETCONTENT'
  5121. ReferencingColumn = 'ID'
  5122. LookUpRool = ' rowcontent'
  5123. DisplayName = 'WORKTIMETYPEID'
  5124. end
  5125. item
  5126. FieldName = 'WORKTIME'
  5127. FieldLabel = #1055#1088#1086#1076#1086#1083#1078#1080#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1088#1072#1073#1086#1095#1077#1075#1086' '#1074#1088#1077#1084#1077#1085#1080
  5128. Nullable = True
  5129. FieldType = ftsString
  5130. DisplayName = 'WORKTIME'
  5131. end
  5132. item
  5133. FieldName = 'ID'
  5134. Nullable = False
  5135. FieldType = ftsNumber
  5136. DisplayName = 'ID'
  5137. end
  5138. item
  5139. FieldName = 'HARMHOLIDAYS'
  5140. FieldLabel = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1077' '#1076#1085#1080' '#1086#1090#1087#1091#1089#1082#1072
  5141. Nullable = True
  5142. FieldType = ftsString
  5143. DisplayName = 'HARMHOLIDAYS'
  5144. end>
  5145. TableName = 'CS_WORKCONDITION'
  5146. Connection = DataModule1.ADConnection1
  5147. Left = 736
  5148. Top = 624
  5149. end
  5150. object ADStoredProc2: TADStoredProc
  5151. Connection = DataModule1.ADConnection1
  5152. StoredProcName = 'AE_CHANGESTATUS_EMPLOYEE'
  5153. Left = 3
  5154. Top = 352
  5155. ParamData = <
  5156. item
  5157. Name = 'OBJECTID'
  5158. DataType = ftFMTBcd
  5159. ADDataType = dtFmtBCD
  5160. Precision = 38
  5161. ParamType = ptInput
  5162. end
  5163. item
  5164. Name = 'XOUTDATE'
  5165. DataType = ftTimeStamp
  5166. ADDataType = dtDateTimeStamp
  5167. ParamType = ptInput
  5168. end>
  5169. end
  5170. object ADQuery15: TADQuery
  5171. Connection = DataModule1.ADConnection1
  5172. SQL.Strings = (
  5173. 'select * from HR_V_APPOINT_EMPLOYEE ae'
  5174. 'where ae.wcid= :wc'
  5175. '-- '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1080', '#1090#1077#1082#1091#1097#1072#1103' '#1076#1086#1083#1078#1085#1086#1089#1090#1100' '#1082#1086#1090#1086#1088#1099#1093' '#1086#1090#1083#1080#1095#1072#1077#1090#1089#1103' '#1086#1090' '#1087#1088#1086#1087#1080#1089#1072#1085#1085 +
  5176. #1086#1081' '#1074' '#1076#1086#1075#1086#1074#1086#1088#1077
  5177. '-- ( '#1050#1042#1040#1051' '#1080#1083#1080' '#1057#1055#1045#1062' )')
  5178. Top = 424
  5179. ParamData = <
  5180. item
  5181. Name = 'WC'
  5182. DataType = ftInteger
  5183. ParamType = ptInput
  5184. Value = Null
  5185. end>
  5186. object ADQuery15JOBTITLE: TStringField
  5187. FieldName = 'JOBTITLE'
  5188. Size = 200
  5189. end
  5190. object ADQuery15WCTJOB: TStringField
  5191. FieldName = 'WCTJOB'
  5192. Size = 200
  5193. end
  5194. object ADQuery15QUALIFICATION: TStringField
  5195. FieldName = 'QUALIFICATION'
  5196. Size = 241
  5197. end
  5198. object ADQuery15WCQUAL: TStringField
  5199. FieldName = 'WCQUAL'
  5200. Size = 241
  5201. end
  5202. object ADQuery15LASTNAME: TStringField
  5203. FieldName = 'LASTNAME'
  5204. Size = 200
  5205. end
  5206. object ADQuery15NAME: TStringField
  5207. FieldName = 'NAME'
  5208. Size = 200
  5209. end
  5210. object ADQuery15FATHERSHIP: TStringField
  5211. FieldName = 'FATHERSHIP'
  5212. Size = 200
  5213. end
  5214. object ADQuery15WCID: TFMTBCDField
  5215. FieldName = 'WCID'
  5216. Required = True
  5217. Precision = 38
  5218. Size = 38
  5219. end
  5220. end
  5221. end