BUG 14/BUGCD1998_05.ISO/aplic/ipos/_setup.1/Knjigovodstvo.exe/0/RCDATA/TFM0005000PROMJENAPARTNERA/TFM0005000PROMJENAPARTNERA.txt

Text File | 1998-04-04 | 23KB | 774 lines

object fm0005000PromjenaPartnera: Tfm0005000PromjenaPartnera
  Left = 372
  Top = 214
  Width = 502
  Height = 444
  HelpContext = 500000
  Caption = 'fm0005000PromjenaPartnera'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = bbIzlazClick
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object paForma: TPanel
    Left = 0
    Top = 0
    Width = 494
    Height = 417
    Align = alClient
    TabOrder = 0
    object paPrvi: TPanel
      Left = 1
      Top = 1
      Width = 492
      Height = 51
      Align = alTop
      TabOrder = 0
      object Label1: TLabel
        Left = 9
        Top = 23
        Width = 279
        Height = 26
        Caption =
          'Bilo kakve operacije na partnerima i godinama mo�ete raditi samo' +
          ' ako nemate otvorenih drugih prozora'
        WordWrap = True
      end
      object lbUpozorenje: TLabel
        Left = 9
        Top = 9
        Width = 65
        Height = 13
        Caption = 'Upozorenje'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel4: TPanel
        Left = 383
        Top = 1
        Width = 108
        Height = 49
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object bbIzlaz: TBitBtn
          Left = 28
          Top = 23
          Width = 73
          Height = 22
          Hint = 'Izlaz iz prozora'
          Caption = 'I&zlaz'
          TabOrder = 0
          OnClick = bbIzlazClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
            03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
            0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
            0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
            0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
            0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
            0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
            0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
            0333337F777FFFFF7F3333000000000003333377777777777333}
          NumGlyphs = 2
        end
      end
    end
    object dgFirme: TDBGrid
      Left = 1
      Top = 52
      Width = 381
      Height = 122
      Align = alClient
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          FieldName = 'sifra'
          ReadOnly = True
          Title.Caption = '�ira'
        end
        item
          FieldName = 'naziv'
          ReadOnly = True
          Title.Caption = 'Naziv'
          Width = 563
        end>
    end
    object dgGodine: TDBGrid
      Left = 382
      Top = 52
      Width = 111
      Height = 122
      Align = alRight
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          FieldName = 'godina'
          Title.Caption = 'Poslovna godina'
          Width = 84
        end>
    end
    object paTipke: TPanel
      Left = 1
      Top = 174
      Width = 492
      Height = 242
      Align = alBottom
      TabOrder = 3
      object Bevel7: TBevel
        Left = 17
        Top = 18
        Width = 334
        Height = 64
      end
      object Bevel5: TBevel
        Left = 358
        Top = 90
        Width = 121
        Height = 66
      end
      object Bevel4: TBevel
        Left = 358
        Top = 18
        Width = 121
        Height = 64
      end
      object Bevel3: TBevel
        Left = 17
        Top = 90
        Width = 334
        Height = 65
      end
      object Bevel2: TBevel
        Left = 17
        Top = 162
        Width = 334
        Height = 70
      end
      object Label5: TLabel
        Left = 24
        Top = 182
        Width = 148
        Height = 13
        Caption = 'Ukupno otvorenih firmi-partnera'
      end
      object Label6: TLabel
        Left = 24
        Top = 196
        Width = 160
        Height = 13
        Caption = 'Ukupno poslovnih godina za firmu'
      end
      object lbBrojFirmi: TLabel
        Left = 196
        Top = 182
        Width = 59
        Height = 13
        Caption = 'lbBrojFirmi'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object lbBrojGodina: TLabel
        Left = 196
        Top = 196
        Width = 73
        Height = 13
        Caption = 'lbBrojGodina'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label9: TLabel
        Left = 24
        Top = 168
        Width = 145
        Height = 13
        Caption = 'Maksimalno dozvoljen broj firmi'
      end
      object lbMaksimalnoFirmi: TLabel
        Left = 196
        Top = 168
        Width = 103
        Height = 13
        Caption = 'lbMaksimalnoFirmi'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object lbPartnerStalni: TLabel
        Left = 108
        Top = 108
        Width = 239
        Height = 13
        AutoSize = False
        Caption = 'lbPartnerStalni'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label11: TLabel
        Left = 24
        Top = 110
        Width = 61
        Height = 13
        Caption = 'Firma-partner'
      end
      object Label12: TLabel
        Left = 24
        Top = 129
        Width = 79
        Height = 13
        Caption = 'Poslovna godina'
      end
      object lbGodinaStalna: TLabel
        Left = 108
        Top = 130
        Width = 87
        Height = 13
        Caption = 'lbGodinaStalna'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label10: TLabel
        Left = 23
        Top = 84
        Width = 294
        Height = 18
        AutoSize = False
        Caption = 'Aktivna firma i poslovna godina kod svakog ulaska u program'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Bevel6: TBevel
        Left = 358
        Top = 162
        Width = 121
        Height = 70
      end
      object Label17: TLabel
        Left = 377
        Top = 11
        Width = 65
        Height = 13
        Caption = ' PROMJENA '
      end
      object Label18: TLabel
        Left = 378
        Top = 85
        Width = 70
        Height = 13
        Caption = ' OTVARANJE '
      end
      object Label19: TLabel
        Left = 378
        Top = 157
        Width = 67
        Height = 13
        Caption = ' BRISANJE !!!'
      end
      object Label21: TLabel
        Left = 24
        Top = 210
        Width = 132
        Height = 13
        Caption = 'Ukupno godina za sve firme'
      end
      object lbBrojGodinaSvi: TLabel
        Left = 196
        Top = 210
        Width = 91
        Height = 13
        Caption = 'lbBrojGodinaSvi'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label22: TLabel
        Left = 24
        Top = 13
        Width = 101
        Height = 13
        Caption = 'Aktivna firma i godina'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 24
        Top = 38
        Width = 61
        Height = 13
        Caption = 'Firma-partner'
      end
      object lbPartnerTekuci: TLabel
        Left = 109
        Top = 38
        Width = 237
        Height = 13
        AutoSize = False
        Caption = 'lbPartnerTekuci'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label25: TLabel
        Left = 24
        Top = 57
        Width = 79
        Height = 13
        Caption = 'Poslovna godina'
      end
      object lbGodinaTekuca: TLabel
        Left = 108
        Top = 58
        Width = 94
        Height = 13
        Caption = 'lbGodinaTekuca'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object bbPromjena: TBitBtn
        Left = 368
        Top = 26
        Width = 99
        Height = 22
        Hint = 'Promjena firme i godine do izlaska iz programa'
        Caption = '&Trenutna promj.'
        TabOrder = 0
        OnClick = bbPromjenaClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
          300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
          330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
          333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
          339977FF777777773377000BFB03333333337773FF733333333F333000333333
          3300333777333333337733333333333333003333333333333377333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object bbStalnaPromjena: TBitBtn
        Left = 368
        Top = 53
        Width = 99
        Height = 22
        Hint = 'Promjena firme i godine za stalno'
        Caption = 'Stalna promj.'
        TabOrder = 1
        OnClick = bbStalnaPromjenaClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
          7700333333337777777733333333008088003333333377F73377333333330088
          88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
          000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
          FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
          99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
      end
      object bbOtvoriGodinu: TBitBtn
        Left = 368
        Top = 100
        Width = 99
        Height = 22
        Hint = 'Otvaranje nove godine za aktivnu firmu'
        Caption = 'Otvori godinu'
        TabOrder = 2
        OnClick = bbOtvoriGodinuClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object bbOtvoriFirmu: TBitBtn
        Left = 368
        Top = 127
        Width = 99
        Height = 22
        Hint = 'Otvaranje nove mati�ne firme'
        Caption = 'Otvori firmu'
        TabOrder = 3
        OnClick = bbOtvoriFirmuClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
          07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
          0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object bbObrisiGodinu: TBitBtn
        Left = 368
        Top = 173
        Width = 99
        Height = 22
        Hint = 'Brisanje specificirane poslovne godine'
        Caption = 'Obri�i godinu'
        TabOrder = 4
        OnClick = bbObrisiGodinuClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
          555557777F777555F55500000000555055557777777755F75555005500055055
          555577F5777F57555555005550055555555577FF577F5FF55555500550050055
          5555577FF77577FF555555005050110555555577F757777FF555555505099910
          555555FF75777777FF555005550999910555577F5F77777775F5500505509990
          3055577F75F77777575F55005055090B030555775755777575755555555550B0
          B03055555F555757575755550555550B0B335555755555757555555555555550
          BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
          50BB555555555555575F555555555555550B5555555555555575}
        NumGlyphs = 2
      end
      object bbObrisiFirmu: TBitBtn
        Left = 368
        Top = 199
        Width = 99
        Height = 22
        Hint = 'Brisanje specificirane firme'
        Caption = 'Obri�i firmu'
        TabOrder = 5
        OnClick = bbObrisiFirmuClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
          305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
          005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
          B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
          B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
          B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
          B0557777FF577777F7F500000E055550805577777F7555575755500000555555
          05555777775555557F5555000555555505555577755555557555}
        NumGlyphs = 2
      end
      object paUpit: TPanel
        Left = -93
        Top = 103
        Width = 443
        Height = 118
        BevelInner = bvLowered
        BorderWidth = 7
        TabOrder = 6
        Visible = False
        object Label2: TLabel
          Left = 12
          Top = 52
          Width = 140
          Height = 13
          Caption = 'Poslovna godina za otvaranje'
        end
        object Label3: TLabel
          Left = 13
          Top = 25
          Width = 95
          Height = 13
          Caption = 'Partner za otvaranje'
        end
        object bbOtvaranje: TBitBtn
          Left = 257
          Top = 73
          Width = 75
          Height = 25
          Caption = '&Otvaranje'
          TabOrder = 0
          OnClick = bbOtvaranjeClick
        end
        object bbOdustani: TBitBtn
          Left = 348
          Top = 73
          Width = 75
          Height = 25
          Caption = 'O&dustani'
          TabOrder = 1
          OnClick = bbOdustaniClick
        end
        object edPartner: TEdit
          Left = 231
          Top = 21
          Width = 199
          Height = 21
          TabStop = False
          Color = clBtnFace
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 2
        end
        object dePartner: TEdit
          Left = 155
          Top = 20
          Width = 70
          Height = 21
          TabOrder = 3
          Text = 'dePartner'
          OnChange = dePartnerChange
          OnKeyPress = dePartnerKeyPress
        end
        object deGodina: TEdit
          Left = 155
          Top = 50
          Width = 70
          Height = 21
          TabOrder = 4
          Text = 'deGodina'
        end
        object btPartner: TButton
          Left = 138
          Top = 23
          Width = 15
          Height = 15
          Caption = '...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial CE'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          TabStop = False
          OnClick = btPartnerClick
        end
      end
    end
  end
  object ta1MaticneFirme: TTable
    Tag = 5
    Left = 191
    Top = 96
  end
  object ta1MaticneGodine: TTable
    Tag = 5
    Left = 205
    Top = 179
  end
  object ta1Sistem: TTable
    Tag = 1
    DatabaseName = 'sistem'
    TableName = 'sistem.DB'
    Left = 43
    Top = 104
  end
  object ta1Partneri: TTable
    Tag = 2
    DatabaseName = 'c:\knjigovodstvo\data\skupne'
    TableName = 'partneri'
    TableType = ttParadox
    Left = 38
    Top = 173
    object ta1PartneriSifra: TIntegerField
      DisplayLabel = '�ifra partnera'
      FieldName = 'Sifra'
    end
    object ta1PartneriNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object ta1PartneriPtt: TStringField
      DisplayLabel = 'Po�tanski broj'
      FieldName = 'Ptt'
      Size = 5
    end
    object ta1PartneriMjesto: TStringField
      FieldName = 'Mjesto'
      Size = 40
    end
    object ta1PartneriUlica: TStringField
      FieldName = 'Ulica'
      Size = 60
    end
    object ta1PartneriZemlja: TSmallintField
      FieldName = 'Zemlja'
    end
    object ta1PartneriDjelatnost: TSmallintField
      FieldName = 'Djelatnost'
    end
    object ta1PartneriBanka: TIntegerField
      FieldName = 'Banka'
    end
    object ta1PartneriTelefon: TStringField
      DisplayLabel = 'Telefoni i faxovi'
      FieldName = 'Telefon'
      Size = 50
    end
    object ta1PartneriOpcina: TSmallintField
      DisplayLabel = 'Op�ina'
      FieldName = 'Opcina'
    end
    object ta1PartneriMaticni_broj: TStringField
      DisplayLabel = 'Mati�ni broj ili JMBG'
      FieldName = 'Maticni_broj'
      Size = 15
    end
    object ta1PartneriZiro_racun1: TStringField
      DisplayLabel = '�iro-ra�un 1'
      FieldName = 'Ziro_racun1'
      Size = 50
    end
    object ta1PartneriZiro_racun2: TStringField
      DisplayLabel = '�iro-ra�un 2'
      FieldName = 'Ziro_racun2'
      Size = 50
    end
    object ta1PartneriRabat: TFloatField
      DisplayLabel = 'Rabat u veleprodaji'
      FieldName = 'Rabat'
      DisplayFormat = '.0000'#39' %'#39
      EditFormat = '.0000'
    end
    object ta1PartneriPorezni_obveznik: TSmallintField
      DisplayLabel = 'Porezni obveznik prema PDV-u'
      FieldName = 'Porezni_obveznik'
    end
    object ta1PartnericfPorezni_obveznik: TStringField
      FieldName = 'cfPorezni_obveznik'
      Calculated = True
    end
    object ta1PartneriMemo: TBlobField
      FieldName = 'Memo'
      BlobType = ftFmtMemo
    end
    object ta1PartneriFilter: TStringField
      FieldName = 'Filter'
      Size = 60
    end
    object ta1PartneriSifra_djelat: TStringField
      FieldName = 'Sifra_djelat'
      Size = 10
    end
    object ta1PartneriNaziv_djelat: TStringField
      FieldName = 'Naziv_djelat'
      Size = 100
    end
  end
  object ta2MaticneFirme: TTable
    Tag = 5
    Left = 281
    Top = 100
  end
  object ta2MaticneGodine: TTable
    Tag = 5
    Left = 295
    Top = 183
  end
  object ds1MaticneFirme: TDataSource
    DataSet = ta1MaticneFirme
    Left = 425
    Top = 98
  end
  object ds1MaticneGodine: TDataSource
    DataSet = ta1MaticneGodine
    Left = 428
    Top = 154
  end
end