/Gedemin/Transaction/gdv_frmAcctGeneralLedger_unit.dfm
Unknown | 340 lines | 340 code | 0 blank | 0 comment | 0 complexity | f2dbfeca5759bc316d54b0a79af9aee3 MD5 | raw file
1inherited 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 340end