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

Text File | 1998-04-04 | 30KB | 1,112 lines

object fm2300300BlagRepUpit: Tfm2300300BlagRepUpit
  Left = 506
  Top = 363
  HelpContext = 230030000
  BorderStyle = bsDialog
  Caption = 'fm2300300BlagRepUpit'
  ClientHeight = 402
  ClientWidth = 562
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poScreenCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 8
    Top = 87
    Width = 79
    Height = 13
    Caption = 'Naslov izvje�taja'
  end
  object Label7: TLabel
    Left = 211
    Top = 110
    Width = 132
    Height = 13
    Caption = 'Upi�ite kriterij za ispis od do:'
  end
  object Bevel4: TBevel
    Left = 207
    Top = 115
    Width = 182
    Height = 65
  end
  object Label8: TLabel
    Left = 35
    Top = 82
    Width = 132
    Height = 13
    Caption = 'Upi�ite kriterij za ispis od do:'
  end
  object Bevel5: TBevel
    Left = 31
    Top = 87
    Width = 182
    Height = 65
  end
  object Panel3: TPanel
    Left = 0
    Top = 333
    Width = 562
    Height = 69
    Align = alBottom
    TabOrder = 0
    object Label10: TLabel
      Left = 258
      Top = 12
      Width = 49
      Height = 13
      Caption = 'Broj &kopija'
      FocusControl = edBrojKopija
    end
    object bbIspis: TBitBtn
      Left = 7
      Top = 7
      Width = 75
      Height = 25
      Hint = 'Ispis izvje�taja na teku�u lokaciju'
      Caption = 'Is&pis'
      Default = True
      TabOrder = 0
      OnClick = bbIspisClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object bbPrekid: TBitBtn
      Left = 6
      Top = 36
      Width = 75
      Height = 25
      Caption = 'I&zlaz'
      TabOrder = 1
      OnClick = bbPrekidClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object rgLokacija: TRadioGroup
      Left = 96
      Top = 6
      Width = 153
      Height = 55
      Caption = ' Lokacija ispisa '
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Ekran'
        'Pisa�, fax')
      TabOrder = 2
    end
    object bbPromjenaPisaca: TBitBtn
      Left = 342
      Top = 23
      Width = 181
      Height = 25
      Caption = 'Promjena pisa�a'
      TabOrder = 3
      OnClick = bbPromjenaPisacaClick
    end
    object upDownBrojKopija: TUpDown
      Left = 324
      Top = 26
      Width = 15
      Height = 21
      Associate = edBrojKopija
      Min = 1
      Max = 1000
      Position = 1
      TabOrder = 4
      Thousands = False
      Wrap = False
    end
    object edBrojKopija: TEdit
      Left = 258
      Top = 26
      Width = 66
      Height = 21
      TabOrder = 5
      Text = '1'
    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 562
    Height = 333
    ActivePage = pgTemSpec
    Align = alClient
    MultiLine = True
    TabHeight = 22
    TabOrder = 1
    OnChange = PageControlChange
    object pgDnevnik: TTabSheet
      HelpContext = 210080001
      Caption = 'Blagajni�ki dnevnik'
      object ScrollBox2: TScrollBox
        Left = 0
        Top = 0
        Width = 554
        Height = 279
        Align = alClient
        TabOrder = 0
        object Label1: TLabel
          Left = 11
          Top = 210
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label2: TLabel
          Left = 8
          Top = 16
          Width = 274
          Height = 13
          Caption = 'Odaberite blagajnu i blagajni�ki dnevnik (izvje�taj) za ispis:'
        end
        object edDnevnikNaslov: TEdit
          Left = 9
          Top = 225
          Width = 352
          Height = 21
          TabOrder = 0
          Text = 'edDnevnikNaslov'
        end
        object DBGrid1: TDBGrid
          Left = 8
          Top = 64
          Width = 497
          Height = 137
          Options = [dgTitles, dgIndicator, 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 = 'cfsifblagnaziv'
              Title.Caption = 'Blagajna'
              Width = 77
            end
            item
              FieldName = 'brdnev'
              Title.Caption = 'Dnevnik'
              Width = 46
            end
            item
              FieldName = 'pocetak'
              Title.Caption = 'Po�etak'
              Width = 72
            end
            item
              FieldName = 'kraj'
              Title.Caption = 'Kraj'
              Width = 72
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometUlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Primitak'
              Width = 89
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometIzlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Izdatak'
              Width = 89
            end>
        end
        object DBNavigator1: TDBNavigator
          Left = 8
          Top = 42
          Width = 135
          Height = 21
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
          Hints.Strings = (
            'Prvi red'
            'Prethodni red'
            'Sljede�i red'
            'Posljednji red'
            ''
            ''
            ''
            ''
            ''
            'Obnovi, osvje�i podatke sa diska')
          TabOrder = 2
        end
      end
    end
    object pgDokumenti: TTabSheet
      HelpContext = 210080002
      Caption = 'Uplatnice i isplatnice'
      object ScrollBox3: TScrollBox
        Left = 0
        Top = 0
        Width = 554
        Height = 279
        Align = alClient
        TabOrder = 0
        object Bevel3: TBevel
          Left = 12
          Top = 218
          Width = 277
          Height = 47
        end
        object Label6: TLabel
          Left = 18
          Top = 213
          Width = 141
          Height = 13
          Caption = 'Od do rednog broja dnevnika:'
        end
        object Label4: TLabel
          Left = 6
          Top = 6
          Width = 415
          Height = 13
          Caption =
            'Odaberite blagajnu i blagajni�ki dnevnik (izvje�taj) za koje isp' +
            'isujete uplatnice/isplatnice:'
        end
        object edDokumentiDoRedbr: TEdit
          Left = 150
          Top = 234
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edDokumentiDoRedbr'
        end
        object edDokumentiOdRedbr: TEdit
          Left = 18
          Top = 234
          Width = 121
          Height = 21
          TabOrder = 1
          Text = 'edDokumentiOdRedbr'
        end
        object cbDokumentiSvi: TCheckBox
          Left = 11
          Top = 194
          Width = 278
          Height = 17
          Caption = 'Uklju�i sve dokumente selektiranog dnevnika'
          State = cbChecked
          TabOrder = 0
        end
        object DBNavigator2: TDBNavigator
          Left = 8
          Top = 24
          Width = 135
          Height = 21
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
          Hints.Strings = (
            'Prvi red'
            'Prethodni red'
            'Sljede�i red'
            'Posljednji red'
            ''
            ''
            ''
            ''
            ''
            'Obnovi, osvje�i podatke sa diska')
          TabOrder = 3
        end
        object DBGrid2: TDBGrid
          Left = 8
          Top = 48
          Width = 497
          Height = 137
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 4
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              FieldName = 'cfsifblagnaziv'
              Title.Caption = 'Blagajna'
              Width = 77
            end
            item
              FieldName = 'brdnev'
              Title.Caption = 'Dnevnik'
              Width = 46
            end
            item
              FieldName = 'pocetak'
              Title.Caption = 'Po�etak'
              Width = 72
            end
            item
              FieldName = 'kraj'
              Title.Caption = 'Kraj'
              Width = 72
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometUlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Primitak'
              Width = 89
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometIzlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Izdatak'
              Width = 89
            end>
        end
      end
    end
    object pgTemRek: TTabSheet
      HelpContext = 210080004
      Caption = 'Temeljnice za glavnu knjigu'
      object ScrollBox4: TScrollBox
        Left = 0
        Top = 0
        Width = 554
        Height = 279
        Align = alClient
        TabOrder = 0
        object Label15: TLabel
          Left = 10
          Top = 195
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label5: TLabel
          Left = 6
          Top = 6
          Width = 374
          Height = 13
          Caption =
            'Odaberite blagajnu i blagajni�ki dnevnik (izvje�taj) za kojeg sp' +
            'isujete temeljnicu:'
        end
        object edTemrekNaslov: TEdit
          Left = 11
          Top = 210
          Width = 302
          Height = 21
          TabOrder = 0
          Text = 'edTemrekNaslov'
        end
        object DBNavigator3: TDBNavigator
          Left = 8
          Top = 24
          Width = 135
          Height = 21
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
          Hints.Strings = (
            'Prvi red'
            'Prethodni red'
            'Sljede�i red'
            'Posljednji red'
            ''
            ''
            ''
            ''
            ''
            'Obnovi, osvje�i podatke sa diska')
          TabOrder = 1
        end
        object DBGrid3: TDBGrid
          Left = 8
          Top = 48
          Width = 497
          Height = 137
          Options = [dgTitles, dgIndicator, 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 = 'cfsifblagnaziv'
              Title.Caption = 'Blagajna'
              Width = 77
            end
            item
              FieldName = 'brdnev'
              Title.Caption = 'Dnevnik'
              Width = 46
            end
            item
              FieldName = 'pocetak'
              Title.Caption = 'Po�etak'
              Width = 72
            end
            item
              FieldName = 'kraj'
              Title.Caption = 'Kraj'
              Width = 72
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometUlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Primitak'
              Width = 89
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometIzlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Izdatak'
              Width = 89
            end>
        end
      end
    end
    object pgTemSpec: TTabSheet
      HelpContext = 210080005
      Caption = 'Specifikacija temeljnica '
      object ScrollBox5: TScrollBox
        Left = 0
        Top = 0
        Width = 554
        Height = 279
        Align = alClient
        TabOrder = 0
        object Label19: TLabel
          Left = 8
          Top = 201
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label9: TLabel
          Left = 6
          Top = 6
          Width = 435
          Height = 13
          Caption =
            'Odaberite blagajnu i blagajni�ki dnevnik (izvje�taj) za kojeg sp' +
            'isujete specifikaciju temeljnice:'
        end
        object edTemspecNaslov: TEdit
          Left = 9
          Top = 216
          Width = 302
          Height = 21
          TabOrder = 0
          Text = 'edTemspecNaslov'
        end
        object DBNavigator4: TDBNavigator
          Left = 8
          Top = 28
          Width = 135
          Height = 21
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
          Hints.Strings = (
            'Prvi red'
            'Prethodni red'
            'Sljede�i red'
            'Posljednji red'
            ''
            ''
            ''
            ''
            ''
            'Obnovi, osvje�i podatke sa diska')
          TabOrder = 1
        end
        object DBGrid4: TDBGrid
          Left = 8
          Top = 52
          Width = 497
          Height = 137
          Options = [dgTitles, dgIndicator, 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 = 'cfsifblagnaziv'
              Title.Caption = 'Blagajna'
              Width = 77
            end
            item
              FieldName = 'brdnev'
              Title.Caption = 'Dnevnik'
              Width = 46
            end
            item
              FieldName = 'pocetak'
              Title.Caption = 'Po�etak'
              Width = 72
            end
            item
              FieldName = 'kraj'
              Title.Caption = 'Kraj'
              Width = 72
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometUlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Primitak'
              Width = 89
            end
            item
              Alignment = taRightJustify
              FieldName = 'prometIzlaza'
              Title.Alignment = taRightJustify
              Title.Caption = 'Izdatak'
              Width = 89
            end>
        end
      end
    end
    object pgKontoSpec: TTabSheet
      HelpContext = 210080006
      Caption = 'Specifikacije dokumenata po kontima'
      object ScrollBox6: TScrollBox
        Left = 0
        Top = 0
        Width = 554
        Height = 279
        VertScrollBar.Position = 3
        Align = alClient
        TabOrder = 0
        object Bevel16: TBevel
          Left = 13
          Top = 13
          Width = 434
          Height = 86
          Style = bsRaised
        end
        object Bevel14: TBevel
          Left = 14
          Top = 121
          Width = 235
          Height = 81
          Style = bsRaised
        end
        object Label22: TLabel
          Left = 14
          Top = 239
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label24: TLabel
          Left = 20
          Top = 115
          Width = 156
          Height = 13
          Caption = 'Uklju�i dokumente od do datuma'
        end
        object Label21: TLabel
          Left = 20
          Top = 9
          Width = 137
          Height = 13
          Caption = 'Upi�ite konto za specifikaciju'
        end
        object Label25: TLabel
          Left = 29
          Top = 56
          Width = 6
          Height = 13
          Caption = 'ili'
        end
        object edKontospecNaslov: TEdit
          Left = 14
          Top = 254
          Width = 255
          Height = 21
          TabOrder = 6
          Text = 'edKontospecNaslov'
        end
        object edKontospecDoDatum: TEdit
          Left = 29
          Top = 166
          Width = 121
          Height = 21
          TabOrder = 5
          Text = 'edKontospecDoDatum'
        end
        object edKontospecOdDatum: TEdit
          Left = 29
          Top = 138
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'edKontospecOdDatum'
        end
        object edKontospecKonto: TEdit
          Left = 27
          Top = 29
          Width = 109
          Height = 21
          TabOrder = 0
          Text = 'edKontospecKonto'
          OnChange = edKontospecKontoChange
          OnKeyPress = edKontospecKontoKeyPress
        end
        object cbKontospecSvakonta: TCheckBox
          Left = 29
          Top = 74
          Width = 346
          Height = 17
          Caption = 'Specifikacija za sva konta koja su imala knji�enja'
          State = cbChecked
          TabOrder = 3
        end
        object edKontospecNazivkonta: TEdit
          Left = 160
          Top = 29
          Width = 270
          Height = 21
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 2
          Text = 'edKontospecNazivkonta'
        end
        object btKontospecKonto: TButton
          Left = 140
          Top = 32
          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 = 1
          TabStop = False
          OnClick = btKontospecKontoClick
        end
        object cbKontospecSamoRekap: TCheckBox
          Left = 13
          Top = 215
          Width = 347
          Height = 17
          Caption = 'U izvje�taj uklju�i samo ukupni iznos za konto bez dokumenata'
          TabOrder = 7
        end
      end
    end
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 474
    Top = 474
  end
  object ta9Konta: TTable
    Tag = 2
    DatabaseName = 'skupne'
    TableName = 'konta.db'
    Left = 849
    Top = 400
    object ta9KontaSintetika_analitika: TStringField
      FieldName = 'Sintetika_analitika'
      Size = 1
    end
    object ta9KontaKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta9KontaNaziv: TStringField
      DisplayWidth = 100
      FieldName = 'Naziv'
      Size = 100
    end
    object ta9KontaPrihod_trosak: TSmallintField
      FieldName = 'Prihod_trosak'
    end
    object ta9KontacfKonto: TStringField
      DisplayWidth = 120
      FieldName = 'cfKonto'
      Size = 120
      Calculated = True
    end
    object ta9Kontacfsintetika_analitika: TStringField
      FieldName = 'cfsintetika_analitika'
      Calculated = True
    end
    object ta9Kontacfprihod_trosak: TStringField
      FieldName = 'cfprihod_trosak'
      Calculated = True
    end
    object ta9KontaPsDuguje: TFloatField
      FieldName = 'PsDuguje'
    end
    object ta9KontaPsPotrazuje: TFloatField
      FieldName = 'PsPotrazuje'
    end
    object ta9KontaPrDuguje: TFloatField
      FieldName = 'PrDuguje'
    end
    object ta9KontaPrPotrazuje: TFloatField
      FieldName = 'PrPotrazuje'
    end
    object ta9KontaSaDuguje: TFloatField
      FieldName = 'SaDuguje'
    end
    object ta9KontaSaPotrazuje: TFloatField
      FieldName = 'SaPotrazuje'
    end
  end
  object ta9Vri_sif: TTable
    Tag = 2
    DatabaseName = 'Skupne'
    TableName = 'vri_sif.db'
    Left = 857
    Top = 538
    object ta9Vri_sifSifrarnik: TStringField
      DisplayLabel = '�ifrarnik'
      FieldName = 'Sifrarnik'
      Size = 30
    end
    object ta9Vri_sifSifra: TSmallintField
      DisplayLabel = '�ifra'
      FieldName = 'Sifra'
    end
    object ta9Vri_sifNaziv: TStringField
      FieldName = 'Naziv'
      Size = 50
    end
    object ta9Vri_sifSkr_naziv: TStringField
      DisplayLabel = 'Skra�eni naziv'
      FieldName = 'Skr_naziv'
      Size = 4
    end
    object ta9Vri_sifTip: TSmallintField
      FieldName = 'Tip'
    end
    object ta9Vri_sifKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta9Vri_sifTekst: TBlobField
      FieldName = 'Tekst'
      BlobType = ftFmtMemo
    end
    object ta9Vri_sifZasticen: TBooleanField
      FieldName = 'Zasticen'
    end
    object ta9Vri_sifcfTip: TStringField
      DisplayLabel = 'Tip dokumenta'
      FieldName = 'cfTip'
      Calculated = True
    end
  end
  object ta9Jedinice: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'jedinice'
    Left = 789
    Top = 402
    object ta9JediniceSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta9JediniceTip: TSmallintField
      FieldName = 'Tip'
    end
    object ta9JediniceNaziv: TStringField
      FieldName = 'Naziv'
      Size = 40
    end
    object ta9JediniceAdresa: TStringField
      FieldName = 'Adresa'
      Size = 60
    end
    object ta9JediniceKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta9JedinicecfTip: TStringField
      FieldName = 'cfTip'
      Calculated = True
    end
  end
  object ta9Dneblag: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'dneblag'
    Left = 848
    Top = 129
    object ta9DneblagRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta9DneblagSifblag: TSmallintField
      FieldName = 'Sifblag'
    end
    object ta9DneblagBrdnev: TSmallintField
      FieldName = 'Brdnev'
    end
    object ta9DneblagRedbr: TIntegerField
      FieldName = 'Redbr'
    end
    object ta9DneblagDokument: TSmallintField
      FieldName = 'Dokument'
    end
    object ta9DneblagBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta9DneblagDatum: TDateField
      FieldName = 'Datum'
    end
    object ta9DneblagKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta9DneblagOpis: TStringField
      FieldName = 'Opis'
      Size = 80
    end
    object ta9DneblagPrimitak: TFloatField
      FieldName = 'Primitak'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta9DneblagIzdatak: TFloatField
      FieldName = 'Izdatak'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta9DneblagBlagajnik: TStringField
      FieldName = 'Blagajnik'
      Size = 30
    end
    object ta9DneblagUpla_prim: TStringField
      FieldName = 'Upla_prim'
      Size = 30
    end
    object ta9DneblagJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object ta9DneblagcfDokumentNaziv: TStringField
      FieldName = 'cfDokumentNaziv'
      Calculated = True
    end
    object ta9DneblagcfSifblagNaziv: TStringField
      FieldName = 'cfSifblagNaziv'
      Calculated = True
    end
    object ta9DneblagcfKontoNaziv: TStringField
      FieldName = 'cfKontoNaziv'
      Size = 70
      Calculated = True
    end
  end
  object ta9Blag: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'blag'
    Left = 820
    Top = 214
    object ta9BlagRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta9BlagSifblag: TSmallintField
      FieldName = 'Sifblag'
    end
    object ta9BlagBrdnev: TSmallintField
      FieldName = 'Brdnev'
    end
    object ta9BlagPocetak: TDateField
      FieldName = 'Pocetak'
    end
    object ta9BlagKraj: TDateField
      FieldName = 'Kraj'
    end
    object ta9BlagPrometUlaza: TFloatField
      FieldName = 'PrometUlaza'
      DisplayFormat = ',0.00;;-'
    end
    object ta9BlagPrometIzlaza: TFloatField
      FieldName = 'PrometIzlaza'
      DisplayFormat = ',0.00;;-'
    end
    object ta9Blagcfsifblagnaziv: TStringField
      FieldName = 'cfsifblagnaziv'
      Calculated = True
    end
    object ta9BlagcfPrenesen: TStringField
      FieldName = 'cfPrenesen'
      Calculated = True
    end
  end
  object ta9Partneri: TTable
    Tag = 2
    DatabaseName = 'c:\knjigovodstvo\data\skupne'
    TableName = 'partneri'
    TableType = ttParadox
    Left = 760
    Top = 143
    object ta9PartneriSifra: TIntegerField
      DisplayLabel = '�ifra partnera'
      FieldName = 'Sifra'
    end
    object ta9PartneriNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object ta9PartneriPtt: TStringField
      DisplayLabel = 'Po�tanski broj'
      FieldName = 'Ptt'
      Size = 5
    end
    object ta9PartneriMjesto: TStringField
      FieldName = 'Mjesto'
      Size = 40
    end
    object ta9PartneriUlica: TStringField
      FieldName = 'Ulica'
      Size = 60
    end
    object ta9PartneriZemlja: TSmallintField
      FieldName = 'Zemlja'
    end
    object ta9PartneriDjelatnost: TSmallintField
      FieldName = 'Djelatnost'
    end
    object ta9PartneriBanka: TIntegerField
      FieldName = 'Banka'
    end
    object ta9PartneriTelefon: TStringField
      DisplayLabel = 'Telefoni i faxovi'
      FieldName = 'Telefon'
      Size = 50
    end
    object ta9PartneriOpcina: TSmallintField
      DisplayLabel = 'Op�ina'
      FieldName = 'Opcina'
    end
    object ta9PartneriMaticni_broj: TStringField
      DisplayLabel = 'Mati�ni broj ili JMBG'
      FieldName = 'Maticni_broj'
      Size = 15
    end
    object ta9PartneriZiro_racun1: TStringField
      DisplayLabel = '�iro-ra�un 1'
      FieldName = 'Ziro_racun1'
      Size = 50
    end
    object ta9PartneriZiro_racun2: TStringField
      DisplayLabel = '�iro-ra�un 2'
      FieldName = 'Ziro_racun2'
      Size = 50
    end
    object ta9PartneriRabat: TFloatField
      DisplayLabel = 'Rabat u veleprodaji'
      FieldName = 'Rabat'
      DisplayFormat = '.0000'#39' %'#39
      EditFormat = '.0000'
    end
    object ta9PartneriPorezni_obveznik: TSmallintField
      DisplayLabel = 'Porezni obveznik prema PDV-u'
      FieldName = 'Porezni_obveznik'
    end
    object ta9PartnericfPorezni_obveznik: TStringField
      FieldName = 'cfPorezni_obveznik'
      Calculated = True
    end
    object ta9PartneriMemo: TBlobField
      FieldName = 'Memo'
      BlobType = ftFmtMemo
    end
    object ta9PartneriFilter: TStringField
      FieldName = 'Filter'
      Size = 60
    end
    object ta9PartneriSifra_djelat: TStringField
      FieldName = 'Sifra_djelat'
      Size = 10
    end
    object ta9PartneriNaziv_djelat: TStringField
      FieldName = 'Naziv_djelat'
      Size = 100
    end
  end
  object ta9Tecaj: TTable
    Tag = 2
    DatabaseName = 'skupne'
    TableName = 'tecaj'
    Left = 760
    Top = 497
    object ta9TecajTecaj: TSmallintField
      FieldName = 'Tecaj'
    end
    object ta9TecajValuta: TSmallintField
      FieldName = 'Valuta'
    end
    object ta9TecajDatum: TDateField
      FieldName = 'Datum'
    end
    object ta9TecajIznos_valute: TSmallintField
      FieldName = 'Iznos_valute'
    end
    object ta9TecajIznos_tecaja: TCurrencyField
      FieldName = 'Iznos_tecaja'
      DisplayFormat = ',0.0000'
      EditFormat = ',0.0000'
      Currency = False
    end
    object ta9TecajcfTecaj: TStringField
      DisplayWidth = 50
      FieldName = 'cfTecaj'
      Size = 50
      Calculated = True
    end
    object ta9TecajcfValuta: TStringField
      FieldName = 'cfValuta'
      Calculated = True
    end
  end
  object ds9Blag: TDataSource
    DataSet = ta9Blag
    Left = 888
    Top = 215
  end
end