BUG 11/BUGCD1998_02.ISO/aplic/trade/_setup.1/main.exe/0/RCDATA/TKONTNIPLAN/TKONTNIPLAN.txt

Text File | 1998-01-05 | 15KB | 671 lines

object KontniPlan: TKontniPlan
  Tag = 1
  Left = 151
  Top = 108
  ActiveControl = gPodGrupe
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Dr�avni kontni plan'
  ClientHeight = 453
  ClientWidth = 632
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 320
    Top = 424
    Width = 307
    Height = 5
    Shape = bsBottomLine
  end
  object Bevel6: TBevel
    Left = 320
    Top = 404
    Width = 307
    Height = 5
    Shape = bsBottomLine
  end
  object Bevel10: TBevel
    Left = 320
    Top = 384
    Width = 307
    Height = 5
    Shape = bsBottomLine
  end
  object Bevel4: TBevel
    Left = 536
    Top = 348
    Width = 5
    Height = 101
    Shape = bsRightLine
  end
  object Bevel3: TBevel
    Left = 452
    Top = 348
    Width = 5
    Height = 101
    Shape = bsRightLine
  end
  object Bevel14: TBevel
    Left = 368
    Top = 348
    Width = 5
    Height = 101
    Shape = bsRightLine
  end
  object Bevel17: TBevel
    Left = 320
    Top = 364
    Width = 305
    Height = 5
    Shape = bsBottomLine
  end
  object Bevel1: TBevel
    Left = 320
    Top = 348
    Width = 307
    Height = 101
    Shape = bsFrame
  end
  object Label4: TLabel
    Left = 376
    Top = 353
    Width = 77
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Duguje'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 324
    Top = 353
    Width = 34
    Height = 13
    Caption = 'Konto'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 459
    Top = 353
    Width = 78
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Potra�uje'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label8: TLabel
    Left = 544
    Top = 353
    Width = 77
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Saldo'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText1: TMyDBText
    Left = 376
    Top = 432
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = xKonta1
  end
  object DBText2: TMyDBText
    Left = 324
    Top = 432
    Width = 43
    Height = 15
    DataField = 'Konto'
    DataSource = xKonta1
  end
  object DBText3: TMyDBText
    Left = 460
    Top = 432
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = xKonta1
  end
  object DBText4: TMyDBText
    Left = 544
    Top = 432
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = xKonta1
  end
  object DBText5: TMyDBText
    Left = 376
    Top = 412
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = xKonta2
  end
  object DBText6: TMyDBText
    Left = 324
    Top = 412
    Width = 43
    Height = 15
    DataField = 'Konto'
    DataSource = xKonta2
  end
  object DBText7: TMyDBText
    Left = 460
    Top = 412
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = xKonta2
  end
  object DBText8: TMyDBText
    Left = 544
    Top = 412
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = xKonta2
  end
  object DBText9: TMyDBText
    Left = 376
    Top = 392
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = xKonta3
  end
  object DBText10: TMyDBText
    Left = 324
    Top = 392
    Width = 43
    Height = 15
    DataField = 'Konto'
    DataSource = xKonta3
  end
  object DBText11: TMyDBText
    Left = 460
    Top = 392
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = xKonta3
  end
  object DBText12: TMyDBText
    Left = 544
    Top = 392
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = xKonta3
  end
  object DBText13: TMyDBText
    Left = 376
    Top = 372
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = xKonta4
  end
  object DBText14: TMyDBText
    Left = 324
    Top = 372
    Width = 43
    Height = 15
    DataField = 'Konto'
    DataSource = xKonta4
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText15: TMyDBText
    Left = 460
    Top = 372
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = xKonta4
  end
  object DBText16: TMyDBText
    Left = 544
    Top = 372
    Width = 77
    Height = 15
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = xKonta4
  end
  object gPodGrupe: TMyDBGrid
    Left = 318
    Top = 2
    Width = 311
    Height = 345
    FindByName = True
    DataSource = sKonta4
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gPodGrupeDrawDataCell
  end
  object gKlase: TMyDBGrid
    Left = 4
    Top = 2
    Width = 311
    Height = 93
    FindByName = True
    DataSource = sKonta1
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gKlaseDrawDataCell
  end
  object gGrupe: TMyDBGrid
    Left = 4
    Top = 97
    Width = 311
    Height = 130
    FindByName = True
    DataSource = sKonta2
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gGrupeDrawDataCell
  end
  object gSintetika: TMyDBGrid
    Left = 4
    Top = 229
    Width = 311
    Height = 219
    FindByName = True
    DataSource = sKonta3
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gSintetikaDrawDataCell
  end
  object sKonta1: TDataSource
    DataSet = tKonta1
    Left = 52
    Top = 44
  end
  object sKonta2: TDataSource
    DataSet = tKonta2
    Left = 48
    Top = 152
  end
  object sKonta3: TDataSource
    DataSet = tKonta3
    Left = 52
    Top = 296
  end
  object sKonta4: TDataSource
    DataSet = tKonta4
    Left = 360
    Top = 44
  end
  object xKonta1: TDataSource
    DataSet = vKonta1
    Left = 110
    Top = 44
  end
  object xKonta2: TDataSource
    DataSet = vKonta2
    Left = 106
    Top = 152
  end
  object xKonta3: TDataSource
    DataSet = vKonta3
    Left = 110
    Top = 296
  end
  object xKonta4: TDataSource
    DataSet = vKonta4
    Left = 418
    Top = 44
  end
  object vKonta4: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Lokal'
    IndexFieldNames = 'OrgJed;Konto'
    MasterFields = 'OrgJed;PodGrupa'
    MasterSource = sKonta4
    TableName = 'S_KONTA4.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 390
    Top = 44
    object vKonta4Konto: TStringField
      FieldName = 'Konto'
      Size = 4
    end
    object vKonta4OrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object vKonta4Duguje: TFloatField
      Tag = -11
      FieldName = 'Duguje'
      Precision = 9
    end
    object vKonta4Potrazuje: TFloatField
      Tag = -11
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object vKonta4Saldo: TFloatField
      Tag = -11
      FieldName = 'Saldo'
      Precision = 9
    end
  end
  object tKonta4: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Global'
    IndexFieldNames = 'Podgrupa'
    TableName = 'KONTA4.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 332
    Top = 44
    object tKonta4PodGrupa: TStringField
      DisplayLabel = 'Pod'
      DisplayWidth = 5
      FieldName = 'PodGrupa'
      Size = 4
    end
    object tKonta4Naziv: TStringField
      DisplayLabel = 'Naziv podgrupe'
      DisplayWidth = 40
      FieldName = 'Naziv'
      Size = 60
    end
    object tKonta4OrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
      Calculated = True
    end
  end
  object vKonta3: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Lokal'
    IndexFieldNames = 'OrgJed;Konto'
    MasterFields = 'OrgJed;Sintetika'
    MasterSource = sKonta3
    TableName = 'S_KONTA3.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 82
    Top = 296
    object vKonta3Konto: TStringField
      FieldName = 'Konto'
      Size = 3
    end
    object vKonta3OrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object vKonta3Duguje: TFloatField
      Tag = -11
      FieldName = 'Duguje'
      Precision = 9
    end
    object vKonta3Potrazuje: TFloatField
      Tag = -11
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object vKonta3Saldo: TFloatField
      Tag = -11
      FieldName = 'Saldo'
      Precision = 9
    end
  end
  object tKonta3: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Global'
    IndexFieldNames = 'Sintetika'
    TableName = 'KONTA3.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 24
    Top = 296
    object tKonta3Sintetika: TStringField
      Alignment = taCenter
      DisplayLabel = 'Sint'
      DisplayWidth = 4
      FieldName = 'Sintetika'
      Size = 3
    end
    object tKonta3Naziv: TStringField
      DisplayLabel = 'Naziv sintetike'
      DisplayWidth = 36
      FieldName = 'Naziv'
      Size = 60
    end
    object tKonta3AOP: TSmallintField
      DisplayWidth = 4
      FieldName = 'AOP'
    end
    object tKonta3OrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
      Calculated = True
    end
  end
  object vKonta2: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Lokal'
    IndexFieldNames = 'OrgJed;Konto'
    MasterFields = 'OrgJed;Grupa'
    MasterSource = sKonta2
    TableName = 'S_KONTA2.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 78
    Top = 152
    object vKonta2Konto: TStringField
      FieldName = 'Konto'
      Size = 2
    end
    object vKonta2OrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object vKonta2Duguje: TFloatField
      Tag = -11
      FieldName = 'Duguje'
      Precision = 9
    end
    object vKonta2Potrazuje: TFloatField
      Tag = -11
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object vKonta2Saldo: TFloatField
      Tag = -11
      FieldName = 'Saldo'
      Precision = 9
    end
  end
  object tKonta2: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Global'
    IndexFieldNames = 'Grupa'
    TableName = 'KONTA2.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 20
    Top = 152
    object tKonta2Grupa: TStringField
      DisplayLabel = 'Gr'
      DisplayWidth = 3
      FieldName = 'Grupa'
      Size = 2
    end
    object tKonta2Naziv: TStringField
      DisplayLabel = 'Naziv grupe'
      DisplayWidth = 37
      FieldName = 'Naziv'
      Size = 60
    end
    object tKonta2AOP: TSmallintField
      DisplayWidth = 4
      FieldName = 'AOP'
    end
    object tKonta2OrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
      Calculated = True
    end
  end
  object vKonta1: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Lokal'
    IndexFieldNames = 'OrgJed;Konto'
    MasterFields = 'OrgJed;Klasa'
    MasterSource = sKonta1
    TableName = 'S_KONTA1.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 82
    Top = 44
    object vKonta1Konto: TStringField
      FieldName = 'Konto'
      Size = 1
    end
    object vKonta1OrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object vKonta1Duguje: TFloatField
      Tag = -11
      Alignment = taCenter
      FieldName = 'Duguje'
      Precision = 9
    end
    object vKonta1Potrazuje: TFloatField
      Tag = -11
      Alignment = taCenter
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object vKonta1Saldo: TFloatField
      Tag = -11
      Alignment = taCenter
      FieldName = 'Saldo'
      Precision = 9
    end
  end
  object tKonta1: TMyTable
    BeforeDelete = No_Delete
    DatabaseName = 'Global'
    IndexFieldNames = 'Klasa'
    TableName = 'KONTA1.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 24
    Top = 44
    object tKonta1Klasa: TStringField
      DisplayLabel = 'K'
      DisplayWidth = 2
      FieldName = 'Klasa'
      Size = 1
    end
    object tKonta1Naziv: TStringField
      DisplayLabel = 'Naziv klase'
      DisplayWidth = 38
      FieldName = 'Naziv'
      Size = 60
    end
    object tKonta1AOP: TSmallintField
      DisplayWidth = 4
      FieldName = 'AOP'
    end
    object tKonta1OrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
      Calculated = True
    end
  end
end