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

Text File | 1998-04-04 | 20KB | 787 lines

object fm3000400KadRepUpit: Tfm3000400KadRepUpit
  Left = 365
  Top = 187
  HelpContext = 310000028
  BorderStyle = bsDialog
  Caption = 'fm3000400KadRepUpit'
  ClientHeight = 475
  ClientWidth = 611
  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 = 406
    Width = 611
    Height = 69
    Align = alBottom
    TabOrder = 0
    object Label35: 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 bbIzlaz: TBitBtn
      Left = 6
      Top = 36
      Width = 75
      Height = 25
      Caption = 'I&zlaz'
      TabOrder = 1
      OnClick = bbIzlazClick
      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 = 344
      Top = 23
      Width = 175
      Height = 25
      Hint = 'Promjena teku�eg pisa�a'
      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
      Hint = 'Broj kopija na pisa�u'
      TabOrder = 5
      Text = '1'
    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 611
    Height = 406
    ActivePage = pgMatKarton
    Align = alClient
    MultiLine = True
    TabHeight = 22
    TabOrder = 1
    OnChange = PageControlChange
    object pgRadniciPop: TTabSheet
      HelpContext = 240100200
      Caption = 'Popis djelatnika - osnovni podaci'
      object ScrollBox7: TScrollBox
        Left = 0
        Top = 0
        Width = 603
        Height = 374
        Align = alClient
        TabOrder = 0
        object Bevel22: TBevel
          Left = 16
          Top = 107
          Width = 540
          Height = 126
          Style = bsRaised
        end
        object Bevel26: TBevel
          Left = 26
          Top = 150
          Width = 162
          Height = 70
        end
        object Label29: TLabel
          Left = 17
          Top = 247
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label30: TLabel
          Left = 32
          Top = 143
          Width = 102
          Height = 13
          Caption = 'Ispis od do prezimena'
        end
        object Label31: TLabel
          Left = 18
          Top = 7
          Width = 108
          Height = 13
          Caption = 'Upi�ite kriterije za ispis:'
        end
        object Bevel27: TBevel
          Left = 212
          Top = 150
          Width = 151
          Height = 70
        end
        object Label32: TLabel
          Left = 218
          Top = 144
          Width = 73
          Height = 13
          Caption = 'Ispis od do �ifre'
        end
        object Bevel28: TBevel
          Left = 386
          Top = 150
          Width = 151
          Height = 70
        end
        object Label33: TLabel
          Left = 392
          Top = 144
          Width = 90
          Height = 13
          Caption = 'Ispis od do jedinice'
        end
        object edRadnicipopNaslov: TEdit
          Left = 17
          Top = 262
          Width = 229
          Height = 21
          TabOrder = 6
          Text = 'edRadnicipopNaslov'
        end
        object edRadnicipopNazivOd: TEdit
          Left = 35
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edRadnicipopNazivOd'
        end
        object edRadnicipopNazivDo: TEdit
          Left = 35
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'edRadnicipopNazivDo'
        end
        object rgRadnicipopRedoslijed: TRadioGroup
          Left = 17
          Top = 29
          Width = 284
          Height = 68
          Caption = 'Redoslijed ispisa po'
          ItemIndex = 0
          Items.Strings = (
            '�ifri'
            'abecedi'
            'poslovnoj jedinici, abecedi')
          TabOrder = 0
        end
        object cbRadnicipopSvi: TCheckBox
          Left = 25
          Top = 118
          Width = 133
          Height = 17
          Caption = 'Ispis svih djelatnika'
          State = cbChecked
          TabOrder = 1
        end
        object edRadnicipopSifraOd: TEdit
          Left = 221
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'edRadnicipopSifraOd'
        end
        object edRadnicipopSifraDo: TEdit
          Left = 221
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 5
          Text = 'edRadnicipopSifraDo'
        end
        object edRadnicipopJedinicaOd: TEdit
          Left = 395
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 7
          Text = 'edRadnicipopJedinicaOd'
        end
        object edRadniciPopJedinicaDo: TEdit
          Left = 395
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 8
          Text = 'edRadniciPopJedinicaDo'
        end
        object cbRadnicipopOtisli: TCheckBox
          Left = 311
          Top = 76
          Width = 244
          Height = 17
          Caption = 'Uklju�i djelatnike koji su oti�li'
          TabOrder = 9
        end
        object cbRadnicipopKojiRade: TCheckBox
          Left = 311
          Top = 56
          Width = 244
          Height = 17
          Caption = 'Uklju�i djelatnike u radnom odnosu'
          State = cbChecked
          TabOrder = 10
        end
      end
    end
    object pgMatKarton: TTabSheet
      HelpContext = 240100300
      Caption = 'Mati�ni kartoni djelatnika - detaljni podaci'
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 603
        Height = 374
        Align = alClient
        TabOrder = 0
        object Bevel1: TBevel
          Left = 16
          Top = 107
          Width = 573
          Height = 126
          Style = bsRaised
        end
        object Bevel3: TBevel
          Left = 26
          Top = 150
          Width = 162
          Height = 70
        end
        object Label1: TLabel
          Left = 17
          Top = 253
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label2: TLabel
          Left = 32
          Top = 143
          Width = 102
          Height = 13
          Caption = 'Ispis od do prezimena'
        end
        object Label4: TLabel
          Left = 18
          Top = 7
          Width = 108
          Height = 13
          Caption = 'Upi�ite kriterije za ispis:'
        end
        object Bevel6: TBevel
          Left = 212
          Top = 150
          Width = 151
          Height = 70
        end
        object Label5: TLabel
          Left = 218
          Top = 144
          Width = 73
          Height = 13
          Caption = 'Ispis od do �ifre'
        end
        object Bevel2: TBevel
          Left = 386
          Top = 150
          Width = 151
          Height = 70
        end
        object Label13: TLabel
          Left = 392
          Top = 144
          Width = 90
          Height = 13
          Caption = 'Ispis od do jedinice'
        end
        object edMatkartonNaslov: TEdit
          Left = 17
          Top = 268
          Width = 229
          Height = 21
          TabOrder = 6
          Text = 'edRadnicipopNaslov'
        end
        object edMatkartonNazivOd: TEdit
          Left = 35
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edMatkartonNazivOd'
        end
        object edMatkartonNazivDo: TEdit
          Left = 35
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'edMatkartonNazivDo'
        end
        object rgMatkartonRedoslijed: TRadioGroup
          Left = 17
          Top = 29
          Width = 284
          Height = 68
          Caption = 'Redoslijed ispisa po'
          ItemIndex = 0
          Items.Strings = (
            '�ifri'
            'abecedi'
            'poslovnoj jedinici, abecedi')
          TabOrder = 0
        end
        object cbMatkartonSvi: TCheckBox
          Left = 25
          Top = 118
          Width = 133
          Height = 17
          Caption = 'Ispis svih djelatnika'
          State = cbChecked
          TabOrder = 1
        end
        object edMatkartonSifraOd: TEdit
          Left = 221
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'edMatkartonSifraOd'
        end
        object edMatkartonSifraDo: TEdit
          Left = 221
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 5
          Text = 'edMatkartonSifraDo'
        end
        object edMatkartonJedinicaOd: TEdit
          Left = 395
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 7
          Text = 'edMatkartonJedinicaOd'
        end
        object edMatkartonJedinicaDo: TEdit
          Left = 395
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 8
          Text = 'edMatkartonJedinicaDo'
        end
        object cbMatkartonKojirade: TCheckBox
          Left = 311
          Top = 56
          Width = 244
          Height = 17
          Caption = 'Uklju�i djelatnike u radnom odnosu'
          State = cbChecked
          TabOrder = 9
        end
        object cbMatkartonOtisli: TCheckBox
          Left = 311
          Top = 76
          Width = 244
          Height = 17
          Caption = 'Uklju�i djelatnike koji su oti�li'
          TabOrder = 10
        end
      end
    end
    object pgPoslovi: TTabSheet
      HelpContext = 240100400
      Caption = '   Popis poslova   '
      object ScrollBox2: TScrollBox
        Left = 0
        Top = 0
        Width = 603
        Height = 374
        Align = alClient
        TabOrder = 0
        object Bevel8: TBevel
          Left = 16
          Top = 107
          Width = 360
          Height = 126
          Style = bsRaised
        end
        object Bevel9: TBevel
          Left = 26
          Top = 150
          Width = 162
          Height = 70
        end
        object Label6: TLabel
          Left = 17
          Top = 247
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label9: TLabel
          Left = 32
          Top = 143
          Width = 85
          Height = 13
          Caption = 'Ispis od do naziva'
        end
        object Label10: TLabel
          Left = 18
          Top = 7
          Width = 108
          Height = 13
          Caption = 'Upi�ite kriterije za ispis:'
        end
        object Bevel10: TBevel
          Left = 212
          Top = 150
          Width = 151
          Height = 70
        end
        object Label11: TLabel
          Left = 218
          Top = 144
          Width = 73
          Height = 13
          Caption = 'Ispis od do �ifre'
        end
        object edPosloviNaslov: TEdit
          Left = 17
          Top = 262
          Width = 229
          Height = 21
          TabOrder = 6
          Text = 'edPosloviNaslov'
        end
        object edPosloviNazivOd: TEdit
          Left = 35
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edPosloviNazivOd'
        end
        object edPosloviNazivDo: TEdit
          Left = 35
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'edPosloviNazivDo'
        end
        object rgPosloviRedoslijed: TRadioGroup
          Left = 17
          Top = 29
          Width = 284
          Height = 68
          Caption = 'Redoslijed ispisa po'
          ItemIndex = 0
          Items.Strings = (
            '�ifri'
            'nazivu')
          TabOrder = 0
        end
        object cbPosloviSvi: TCheckBox
          Left = 25
          Top = 118
          Width = 133
          Height = 17
          Caption = 'Ispis svih poslova'
          State = cbChecked
          TabOrder = 1
        end
        object edPosloviSifraOd: TEdit
          Left = 221
          Top = 165
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'edPosloviSifraOd'
        end
        object edPosloviSifraDo: TEdit
          Left = 221
          Top = 190
          Width = 121
          Height = 21
          TabOrder = 5
          Text = 'edPosloviSifraDo'
        end
      end
    end
    object pgDjeca: TTabSheet
      HelpContext = 240101100
      Caption = '   Djeca djelatnika   '
      object ScrollBox3: TScrollBox
        Left = 0
        Top = 0
        Width = 603
        Height = 374
        Align = alClient
        TabOrder = 0
        object Bevel11: TBevel
          Left = 16
          Top = 29
          Width = 360
          Height = 126
          Style = bsRaised
        end
        object Label12: TLabel
          Left = 17
          Top = 175
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label14: TLabel
          Left = 18
          Top = 7
          Width = 108
          Height = 13
          Caption = 'Upi�ite kriterije za ispis:'
        end
        object Bevel13: TBevel
          Left = 26
          Top = 69
          Width = 151
          Height = 70
        end
        object Label15: TLabel
          Left = 32
          Top = 63
          Width = 121
          Height = 13
          Caption = 'Ispis od do �ifre djelatnika'
        end
        object edDjecaNaslov: TEdit
          Left = 17
          Top = 190
          Width = 229
          Height = 21
          TabOrder = 3
          Text = 'edDjecaNaslov'
        end
        object cbDjecaSvi: TCheckBox
          Left = 25
          Top = 40
          Width = 150
          Height = 17
          Caption = 'Ispis djece svih djelatnika'
          State = cbChecked
          TabOrder = 0
        end
        object edDjecaSifraOd: TEdit
          Left = 35
          Top = 84
          Width = 121
          Height = 21
          TabOrder = 1
          Text = 'edDjecaSifraOd'
        end
        object edDjecaSifraDo: TEdit
          Left = 35
          Top = 109
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edDjecaSifraDo'
        end
      end
    end
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 517
    Top = 502
  end
  object ta9Vri_sif: TTable
    Tag = 2
    DatabaseName = 'Skupne'
    TableName = 'vri_sif.db'
    Left = 745
    Top = 290
    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 = 735
    Top = 224
    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
end