/Gedemin/Transaction/gdv_frmAcctGeneralLedger_unit.dfm

http://gedemin.googlecode.com/ · Unknown · 340 lines · 340 code · 0 blank · 0 comment · 0 complexity · f2dbfeca5759bc316d54b0a79af9aee3 MD5 · raw file

  1. inherited gdv_frmGeneralLedger: Tgdv_frmGeneralLedger
  2. Left = 250
  3. Top = 188
  4. Width = 1066
  5. Height = 631
  6. HelpContext = 351
  7. Caption = '??????? ?????'
  8. DefaultMonitor = dmDesktop
  9. PixelsPerInch = 96
  10. TextHeight = 13
  11. inherited sLeft: TSplitter
  12. Left = 273
  13. Height = 565
  14. end
  15. inherited TBDock1: TTBDock
  16. Width = 1058
  17. inherited tbMainToolbar: TTBToolbar
  18. DockPos = -5
  19. end
  20. inherited TBToolbar2: TTBToolbar
  21. DockPos = 0
  22. inherited Panel4: TPanel
  23. Width = 224
  24. inherited lblPeriod: TLabel
  25. Left = 2
  26. end
  27. inherited SpeedButton1: TSpeedButton
  28. Left = 198
  29. end
  30. inherited gsPeriodEdit: TgsPeriodEdit
  31. Left = 47
  32. end
  33. end
  34. end
  35. inherited TBToolbar1: TTBToolbar
  36. Left = 429
  37. DockPos = 312
  38. inherited pCofiguration: TPanel
  39. inherited iblConfiguratior: TgsIBLookupComboBox
  40. gdClassName = 'TgdcAcctGeneralLedgerConfig'
  41. end
  42. end
  43. end
  44. end
  45. inherited Panel1: TPanel
  46. Left = 279
  47. Width = 770
  48. Height = 565
  49. TabOrder = 2
  50. inherited ibgrMain: TgsIBGrid
  51. Width = 770
  52. Height = 565
  53. end
  54. end
  55. inherited TBDock2: TTBDock
  56. Height = 565
  57. end
  58. inherited TBDock3: TTBDock
  59. Left = 1049
  60. Height = 565
  61. end
  62. inherited TBDock4: TTBDock
  63. Top = 595
  64. Width = 1058
  65. end
  66. inherited pLeft: TPanel
  67. Width = 264
  68. Height = 565
  69. TabOrder = 1
  70. inherited ScrollBox: TScrollBox
  71. Width = 264
  72. Height = 548
  73. inherited Panel5: TPanel
  74. Top = 184
  75. Width = 248
  76. Height = 93
  77. TabOrder = 1
  78. inherited Label17: TLabel
  79. Top = 137
  80. Visible = False
  81. end
  82. inherited bAccounts: TButton
  83. Top = 132
  84. TabOrder = 5
  85. Visible = False
  86. end
  87. inherited cbSubAccount: TCheckBox
  88. Top = 156
  89. TabOrder = 7
  90. Visible = False
  91. end
  92. inherited cbIncludeInternalMovement: TCheckBox
  93. Top = 60
  94. TabOrder = 4
  95. end
  96. object cbShowDebit: TCheckBox [4]
  97. Left = 8
  98. Top = 15
  99. Width = 147
  100. Height = 17
  101. Caption = '??????????? ?? ??????'
  102. Checked = True
  103. State = cbChecked
  104. TabOrder = 1
  105. end
  106. object cbShowCredit: TCheckBox [5]
  107. Left = 8
  108. Top = 30
  109. Width = 155
  110. Height = 17
  111. Caption = '??????????? ?? ???????'
  112. Checked = True
  113. State = cbChecked
  114. TabOrder = 2
  115. end
  116. object cbShowCorrSubAccount: TCheckBox [6]
  117. Left = 8
  118. Top = 45
  119. Width = 187
  120. Height = 17
  121. Caption = '??????????????? ? ??????????'
  122. Checked = True
  123. State = cbChecked
  124. TabOrder = 6
  125. end
  126. object cbAutoBuildReport: TCheckBox [7]
  127. Left = 8
  128. Top = 0
  129. Width = 193
  130. Height = 17
  131. Caption = '????????????? ?????????????'
  132. TabOrder = 0
  133. end
  134. inherited cbAccounts: TComboBox
  135. Top = 132
  136. Width = 175
  137. TabOrder = 3
  138. Visible = False
  139. end
  140. object chkBuildGroup: TCheckBox
  141. Left = 8
  142. Top = 76
  143. Width = 137
  144. Height = 15
  145. Caption = '??????? ?? ??????? '
  146. Checked = True
  147. State = cbChecked
  148. TabOrder = 8
  149. OnClick = chkBuildGroupClick
  150. end
  151. end
  152. inherited frAcctQuantity: TfrAcctQuantity
  153. Top = 318
  154. Width = 248
  155. TabOrder = 4
  156. inherited ppMain: TgdvParamPanel
  157. Width = 248
  158. end
  159. end
  160. inherited frAcctSum: TfrAcctSum
  161. Top = 359
  162. Width = 248
  163. TabOrder = 6
  164. inherited ppMain: TgdvParamPanel
  165. Width = 248
  166. inherited pnlEQ: TPanel
  167. Width = 236
  168. end
  169. inherited pnlQuantity: TPanel
  170. Width = 236
  171. end
  172. inherited pnlTop: TPanel
  173. Width = 236
  174. end
  175. end
  176. end
  177. inherited frAcctAnalytics: TfrAcctAnalytics
  178. Top = 277
  179. Width = 248
  180. TabOrder = 2
  181. Visible = False
  182. inherited ppAnalytics: TgdvParamPanel
  183. Width = 248
  184. end
  185. end
  186. inherited frAcctCompany: TfrAcctCompany
  187. Top = 580
  188. Width = 248
  189. TabOrder = 3
  190. inherited ppMain: TgdvParamPanel
  191. Width = 248
  192. inherited cbAllCompanies: TCheckBox
  193. Width = 211
  194. end
  195. inherited iblCompany: TgsIBLookupComboBox
  196. Width = 161
  197. OnChange = frAcctCompanyiblCompanyChange
  198. end
  199. end
  200. end
  201. inherited ppAppear: TgdvParamPanel
  202. Top = 640
  203. Width = 248
  204. Height = 38
  205. inherited cbExtendedFields: TCheckBox
  206. Top = 37
  207. Visible = False
  208. end
  209. object cbEnchancedSaldo: TCheckBox
  210. Left = 14
  211. Top = 20
  212. Width = 195
  213. Height = 17
  214. Caption = '??????????? ??????'
  215. Color = 16316664
  216. Font.Charset = DEFAULT_CHARSET
  217. Font.Color = clBlack
  218. Font.Height = -11
  219. Font.Name = 'MS Sans Serif'
  220. Font.Style = []
  221. ParentColor = False
  222. ParentFont = False
  223. TabOrder = 1
  224. end
  225. end
  226. object pCardOfAccount: TPanel
  227. Left = 0
  228. Top = 0
  229. Width = 248
  230. Height = 184
  231. Align = alTop
  232. BevelOuter = bvNone
  233. BorderWidth = 3
  234. Color = 15329769
  235. TabOrder = 0
  236. object lCardOfaccount: TLabel
  237. Left = 4
  238. Top = 3
  239. Width = 67
  240. Height = 13
  241. Caption = '???? ??????:'
  242. end
  243. object ptvGroup: TPanel
  244. Left = 3
  245. Top = 16
  246. Width = 242
  247. Height = 165
  248. Align = alBottom
  249. Anchors = [akLeft, akTop, akRight, akBottom]
  250. BevelOuter = bvLowered
  251. FullRepaint = False
  252. TabOrder = 0
  253. object tvGroup: TgsDBTreeView
  254. Left = 1
  255. Top = 1
  256. Width = 240
  257. Height = 163
  258. DataSource = dsAcctChart
  259. KeyField = 'ID'
  260. ParentField = 'PARENT'
  261. DisplayField = 'ALIAS'
  262. ImageValueList.Strings = (
  263. '')
  264. Align = alClient
  265. BorderStyle = bsNone
  266. Color = 16316664
  267. DragMode = dmAutomatic
  268. HideSelection = False
  269. Indent = 19
  270. RightClickSelect = True
  271. SortType = stText
  272. TabOrder = 0
  273. OnChange = tvGroupChange
  274. MainFolderHead = False
  275. MainFolder = False
  276. MainFolderCaption = '???'
  277. WithCheckBox = False
  278. end
  279. end
  280. end
  281. end
  282. inherited Panel2: TPanel
  283. Width = 264
  284. inherited sbCloseParamPanel: TSpeedButton
  285. Left = 243
  286. end
  287. end
  288. end
  289. inherited dsMain: TDataSource
  290. DataSet = ibdsMain
  291. Left = 552
  292. Top = 104
  293. end
  294. inherited alMain: TActionList
  295. Top = 48
  296. inherited actGoto: TAction
  297. Caption = '??????? ?? ????? ?????'
  298. Hint = '??????? ?? ????? ?????'
  299. end
  300. end
  301. inherited gdMacrosMenu: TgdMacrosMenu
  302. Top = 48
  303. end
  304. inherited gdReportMenu: TgdReportMenu
  305. Top = 48
  306. end
  307. inherited gsQueryFilter: TgsQueryFilter
  308. Left = 520
  309. Top = 104
  310. end
  311. inherited Transaction: TIBTransaction
  312. Left = 624
  313. end
  314. inherited ppMain: TPopupMenu
  315. Left = 440
  316. Top = 48
  317. end
  318. inherited AccountDelayTimer: TTimer
  319. Left = 264
  320. Top = 32
  321. end
  322. object gdcAcctChart: TgdcAcctBase [15]
  323. Left = 112
  324. Top = 168
  325. end
  326. object dsAcctChart: TDataSource [16]
  327. DataSet = gdcAcctChart
  328. Left = 48
  329. Top = 136
  330. end
  331. object ibdsMain: TgdvAcctGeneralLedger
  332. CachedUpdates = True
  333. InsertSQL.Strings = (
  334. 'INSERT INTO AC_LEDGER_ACCOUNTS (ACCOUNTKEY) VALUES (-1)')
  335. ModifySQL.Strings = (
  336. 'UPDATE AC_LEDGER_ACCOUNTS SET ACCOUNTKEY = -1')
  337. Left = 606
  338. Top = 166
  339. end
  340. end