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

Text File | 1998-04-04 | 21KB | 795 lines

object fm3100900OpDoprinosi: Tfm3100900OpDoprinosi
  Left = 366
  Top = 198
  Width = 660
  Height = 392
  HelpContext = 310000012
  VertScrollBar.Tracking = True
  Caption = 'fm3100900OpDoprinosi'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial CE'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  Position = poDefaultPosOnly
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 652
    Height = 27
    Align = alTop
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object Label4: TLabel
      Left = 208
      Top = 7
      Width = 27
      Height = 14
      Caption = '&Tra�i:'
      FocusControl = edTrazi
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 1
      Width = 200
      Height = 25
      Align = alLeft
      Hints.Strings = (
        'Prvi red'
        'Prethodni red'
        'Sljede�i red'
        'Posljednji red'
        'Novi prazni red'
        'Obri�i cijeli red'
        'Izmjena polja'
        'Spremi'
        'Odustani'
        'Obnovi, osvje�i podatke sa diska')
      TabOrder = 0
    end
    object cbTrazi: TComboBox
      Left = 237
      Top = 3
      Width = 136
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'razdoblje;prezime djelatnika')
      TabOrder = 1
    end
    object edTrazi: TEdit
      Left = 374
      Top = 3
      Width = 167
      Height = 22
      Hint = 'Upisivanjem pojedinih znakova �e se pretra�ivati podaci'
      TabOrder = 2
      OnChange = edTraziChange
    end
    object Panel1: TPanel
      Left = 555
      Top = 1
      Width = 96
      Height = 25
      Align = alRight
      BevelOuter = bvNone
      Caption = 'Panel1'
      TabOrder = 3
      object bbIzlaz: TBitBtn
        Left = 18
        Top = 2
        Width = 75
        Height = 22
        Hint = 'Prekid rada i 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 sb: TStatusBar
    Left = 0
    Top = 346
    Width = 652
    Height = 19
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial CE'
    Font.Style = [fsBold]
    Panels = <
      item
        Text = 'Status'
        Width = 100
      end
      item
        Width = 100
      end>
    ParentFont = False
    SimplePanel = False
  end
  object PageControl: TPageControl
    Left = 0
    Top = 27
    Width = 652
    Height = 319
    ActivePage = pgTabela
    Align = alClient
    TabOrder = 2
    object pgTabela: TTabSheet
      Hint = 'Tabelarni pregled podataka'
      Caption = 'T&abelarni prikaz'
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 644
        Height = 290
        Align = alClient
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial CE'
        TitleFont.Style = []
        Columns = <
          item
            FieldName = 'razdoblje'
            ReadOnly = True
            Title.Caption = 'Razdoblje'
            Width = 74
          end
          item
            FieldName = 'radnik'
            ReadOnly = True
            Title.Caption = '�ifra'
            Width = 49
          end
          item
            FieldName = 'cfRadnik'
            ReadOnly = True
            Title.Caption = 'Djelatnik'
            Width = 162
          end
          item
            FieldName = 'cfSifraDoprinosa'
            ReadOnly = True
            Title.Caption = 'Doprinos'
            Width = 169
          end
          item
            FieldName = 'cftip_doprinosa'
            ReadOnly = True
            Title.Caption = 'Tip'
            Width = 97
          end
          item
            FieldName = 'iznos'
            Title.Caption = 'Iznos'
            Width = 104
          end
          item
            FieldName = 'cfPorezna_ispostava'
            ReadOnly = True
            Title.Caption = 'Porezna ispostava'
            Width = 145
          end>
      end
    end
  end
  object ta1OpDoprinosi: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'opDoprinosi'
    Left = 882
    Top = 118
    object ta1OpDoprinosiRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1OpDoprinosiRazdoblje: TStringField
      FieldName = 'Razdoblje'
      Size = 8
    end
    object ta1OpDoprinosiRadnik: TIntegerField
      FieldName = 'Radnik'
      DisplayFormat = '0;;-'
    end
    object ta1OpDoprinosiSifraDoprinosa: TIntegerField
      FieldName = 'SifraDoprinosa'
    end
    object ta1OpDoprinosiTip_doprinosa: TIntegerField
      FieldName = 'Tip_doprinosa'
    end
    object ta1OpDoprinosiIznos: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
    end
    object ta1OpDoprinosiPorezna_ispostava: TIntegerField
      FieldName = 'Porezna_ispostava'
    end
    object ta1OpDoprinosicfRadnik: TStringField
      FieldName = 'cfRadnik'
      Size = 50
      Calculated = True
    end
    object ta1OpDoprinosicfSifraDoprinosa: TStringField
      FieldName = 'cfSifraDoprinosa'
      Size = 50
      Calculated = True
    end
    object ta1OpDoprinosicfTip_doprinosa: TStringField
      FieldName = 'cfTip_doprinosa'
      Size = 50
      Calculated = True
    end
    object ta1OpDoprinosicfPorezna_ispostava: TStringField
      FieldName = 'cfPorezna_ispostava'
      Size = 50
      Calculated = True
    end
  end
  object ds1OpDoprinosi: TDataSource
    DataSet = ta1OpDoprinosi
    Left = 961
    Top = 114
  end
  object ta3OpDoprinosi: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'opDoprinosi'
    Left = 882
    Top = 192
    object ta3OpDoprinosiRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta3OpDoprinosiRazdoblje: TStringField
      FieldName = 'Razdoblje'
      Size = 8
    end
    object ta3OpDoprinosiRadnik: TIntegerField
      FieldName = 'Radnik'
      DisplayFormat = '0;;-'
    end
    object ta3OpDoprinosiSifraDoprinosa: TIntegerField
      FieldName = 'SifraDoprinosa'
    end
    object ta3OpDoprinosiTip_doprinosa: TIntegerField
      FieldName = 'Tip_doprinosa'
    end
    object ta3OpDoprinosiIznos: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
    end
    object ta3OpDoprinosiPorezna_ispostava: TIntegerField
      FieldName = 'Porezna_ispostava'
    end
    object ta3OpDoprinosicfRadnik: TStringField
      FieldName = 'cfRadnik'
      Size = 50
      Calculated = True
    end
    object ta3OpDoprinosicfSifraDoprinosa: TStringField
      FieldName = 'cfSifraDoprinosa'
      Size = 50
      Calculated = True
    end
    object ta3OpDoprinosicfTip_doprinosa: TStringField
      FieldName = 'cfTip_doprinosa'
      Size = 50
      Calculated = True
    end
    object ta3OpDoprinosicfPorezna_ispostava: TStringField
      FieldName = 'cfPorezna_ispostava'
      Size = 50
      Calculated = True
    end
  end
  object ta1Vri_sif: TTable
    Tag = 2
    DatabaseName = 'Skupne'
    TableName = 'vri_sif.db'
    Left = 831
    Top = 288
    object ta1Vri_sifSifrarnik: TStringField
      DisplayLabel = '�ifrarnik'
      FieldName = 'Sifrarnik'
      Size = 30
    end
    object ta1Vri_sifSifra: TSmallintField
      DisplayLabel = '�ifra'
      FieldName = 'Sifra'
    end
    object ta1Vri_sifNaziv: TStringField
      FieldName = 'Naziv'
      Size = 50
    end
    object ta1Vri_sifSkr_naziv: TStringField
      DisplayLabel = 'Skra�eni naziv'
      FieldName = 'Skr_naziv'
      Size = 4
    end
    object ta1Vri_sifTip: TSmallintField
      FieldName = 'Tip'
    end
    object ta1Vri_sifKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta1Vri_sifTekst: TBlobField
      FieldName = 'Tekst'
      BlobType = ftFmtMemo
    end
    object ta1Vri_sifZasticen: TBooleanField
      FieldName = 'Zasticen'
    end
    object ta1Vri_sifcfTip: TStringField
      DisplayLabel = 'Tip dokumenta'
      FieldName = 'cfTip'
      Calculated = True
    end
  end
  object ta1VrsteRada: TTable
    Tag = 2
    DatabaseName = 'skupne'
    TableName = 'VrsteRada'
    Left = 822
    Top = 369
    object ta1VrsteRadaSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1VrsteRadaNaziv: TStringField
      FieldName = 'Naziv'
      Size = 50
    end
    object ta1VrsteRadaTip_rada: TIntegerField
      FieldName = 'Tip_rada'
    end
    object ta1VrsteRadaSkupina_rada: TIntegerField
      FieldName = 'Skupina_rada'
    end
    object ta1VrsteRadaKoeficijent: TFloatField
      FieldName = 'Koeficijent'
      DisplayFormat = ',0.00'
    end
    object ta1VrsteRadaTip_obracuna: TIntegerField
      FieldName = 'Tip_obracuna'
    end
    object ta1VrsteRadaBrojRazdobljaUnazad: TIntegerField
      FieldName = 'BrojRazdobljaUnazad'
    end
    object ta1VrsteRadaOsnovicaZaDohodak: TBooleanField
      FieldName = 'OsnovicaZaDohodak'
    end
    object ta1VrsteRadacfTip_rada: TStringField
      FieldName = 'cfTip_rada'
      Size = 50
      Calculated = True
    end
    object ta1VrsteRadacfSkupina_rada: TStringField
      FieldName = 'cfSkupina_rada'
      Size = 50
      Calculated = True
    end
    object ta1VrsteRadacfTip_obracuna: TStringField
      FieldName = 'cfTip_obracuna'
      Size = 50
      Calculated = True
    end
    object ta1VrsteRadacfOsnovicazaDohodak: TStringField
      FieldName = 'cfOsnovicazaDohodak'
      Calculated = True
    end
  end
  object ta1Doprinosi: TTable
    Tag = 2
    DatabaseName = 'skupne'
    TableName = 'Doprinosi'
    Left = 819
    Top = 450
    object ta1DoprinosiSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1DoprinosiTip_doprinosa: TIntegerField
      FieldName = 'Tip_doprinosa'
    end
    object ta1DoprinosiRedBr: TIntegerField
      FieldName = 'RedBr'
    end
    object ta1DoprinosiNaziv: TStringField
      FieldName = 'Naziv'
      Size = 50
    end
    object ta1DoprinosiSkupina_rada: TIntegerField
      FieldName = 'Skupina_rada'
    end
    object ta1DoprinosiStopa: TFloatField
      FieldName = 'Stopa'
      DisplayFormat = ',0.000%'
      EditFormat = '0.000'
    end
    object ta1Doprinosicftip_doprinosa: TStringField
      FieldName = 'cftip_doprinosa'
      Size = 50
      Calculated = True
    end
    object ta1DoprinosicfSkupina_rada: TStringField
      FieldName = 'cfSkupina_rada'
      Size = 50
      Calculated = True
    end
  end
  object ta1LockOp: TTable
    DatabaseName = 'praznegod'
    TableName = '_lockOp'
    Left = 819
    Top = 512
  end
  object ta1Radnici: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'radnici'
    Left = 900
    Top = 281
    object ta1RadniciSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1RadniciPrezime: TStringField
      FieldName = 'Prezime'
      Size = 30
    end
    object ta1RadniciIme: TStringField
      FieldName = 'Ime'
    end
    object ta1RadniciTitula: TStringField
      FieldName = 'Titula'
    end
    object ta1RadniciFunkcija: TStringField
      FieldName = 'Funkcija'
      Size = 50
    end
    object ta1RadniciJmbg: TStringField
      FieldName = 'Jmbg'
      Size = 13
    end
    object ta1RadniciBroj_osobne: TStringField
      FieldName = 'Broj_osobne'
      Size = 8
    end
    object ta1RadniciBroj_radne: TStringField
      FieldName = 'Broj_radne'
      Size = 7
    end
    object ta1RadniciOpcina_radne: TIntegerField
      FieldName = 'Opcina_radne'
    end
    object ta1RadniciBroj_osig: TStringField
      FieldName = 'Broj_osig'
      Size = 11
    end
    object ta1RadniciNacin_isplate: TIntegerField
      FieldName = 'Nacin_isplate'
    end
    object ta1RadniciBroj_racuna_tek: TStringField
      FieldName = 'Broj_racuna_tek'
      Size = 10
    end
    object ta1RadniciBroj_racuna_knj: TStringField
      FieldName = 'Broj_racuna_knj'
      Size = 10
    end
    object ta1RadniciSpol: TIntegerField
      FieldName = 'Spol'
    end
    object ta1RadniciIme_oca: TStringField
      FieldName = 'Ime_oca'
    end
    object ta1RadniciDjev_prezime: TStringField
      FieldName = 'Djev_prezime'
      Size = 30
    end
    object ta1RadniciMjesto_rodjenja: TStringField
      FieldName = 'Mjesto_rodjenja'
    end
    object ta1RadniciOpcina_rodjenja: TIntegerField
      FieldName = 'Opcina_rodjenja'
    end
    object ta1RadniciDatum_rodjenja: TDateField
      FieldName = 'Datum_rodjenja'
    end
    object ta1RadniciDrzavljanstvo: TIntegerField
      FieldName = 'Drzavljanstvo'
    end
    object ta1RadniciNacionalnost: TIntegerField
      FieldName = 'Nacionalnost'
    end
    object ta1RadniciBroj_djece: TIntegerField
      FieldName = 'Broj_djece'
    end
    object ta1RadniciObiteljsko_stanje: TIntegerField
      FieldName = 'Obiteljsko_stanje'
    end
    object ta1RadniciMjesto_stan: TStringField
      FieldName = 'Mjesto_stan'
    end
    object ta1RadniciOpcina_stan: TIntegerField
      FieldName = 'Opcina_stan'
    end
    object ta1RadniciAdresa_stan: TStringField
      FieldName = 'Adresa_stan'
      Size = 30
    end
    object ta1RadniciTelefon_stan: TStringField
      FieldName = 'Telefon_stan'
      Size = 15
    end
    object ta1RadniciZanimanje: TStringField
      FieldName = 'Zanimanje'
      Size = 40
    end
    object ta1RadniciKvalifikacija: TIntegerField
      FieldName = 'Kvalifikacija'
    end
    object ta1RadniciSkola: TStringField
      FieldName = 'Skola'
      Size = 40
    end
    object ta1RadniciJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object ta1RadniciPosao: TIntegerField
      FieldName = 'Posao'
    end
    object ta1RadniciPosao2: TIntegerField
      FieldName = 'Posao2'
    end
    object ta1RadniciPrvo_zaposlenje: TDateField
      FieldName = 'Prvo_zaposlenje'
    end
    object ta1RadniciStaz_prije_mjes: TIntegerField
      FieldName = 'Staz_prije_mjes'
    end
    object ta1RadniciStaz_prije_dani: TIntegerField
      FieldName = 'Staz_prije_dani'
    end
    object ta1RadniciDatum_zaposlenja: TDateField
      FieldName = 'Datum_zaposlenja'
    end
    object ta1RadniciVojska: TBooleanField
      FieldName = 'Vojska'
    end
    object ta1RadniciRadni_odnos: TIntegerField
      FieldName = 'Radni_odnos'
    end
    object ta1RadniciPrestao: TBooleanField
      FieldName = 'Prestao'
    end
    object ta1RadniciPrestao_datum: TDateField
      FieldName = 'Prestao_datum'
    end
    object ta1RadniciPrestao_nacin: TIntegerField
      FieldName = 'Prestao_nacin'
    end
    object ta1RadniciFaktor_odbitaka: TFloatField
      FieldName = 'Faktor_odbitaka'
    end
    object ta1RadniciSindikat: TBooleanField
      FieldName = 'Sindikat'
    end
    object ta1RadniciCekanje: TBooleanField
      FieldName = 'Cekanje'
    end
    object ta1RadniciInvalid2: TBooleanField
      FieldName = 'Invalid2'
    end
    object ta1RadniciInvalid3: TBooleanField
      FieldName = 'Invalid3'
    end
    object ta1RadniciZabiljeska: TBlobField
      FieldName = 'Zabiljeska'
      BlobType = ftFmtMemo
    end
    object ta1RadnicicfPrezime_ime: TStringField
      FieldName = 'cfPrezime_ime'
      Size = 50
      Calculated = True
    end
  end
  object ta3Radnici: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'radnici'
    Left = 964
    Top = 279
    object IntegerField1: TIntegerField
      FieldName = 'Sifra'
    end
    object StringField1: TStringField
      FieldName = 'Prezime'
      Size = 30
    end
    object StringField2: TStringField
      FieldName = 'Ime'
    end
    object StringField3: TStringField
      FieldName = 'Titula'
    end
    object StringField4: TStringField
      FieldName = 'Funkcija'
      Size = 50
    end
    object StringField5: TStringField
      FieldName = 'Jmbg'
      Size = 13
    end
    object StringField6: TStringField
      FieldName = 'Broj_osobne'
      Size = 8
    end
    object StringField7: TStringField
      FieldName = 'Broj_radne'
      Size = 7
    end
    object IntegerField2: TIntegerField
      FieldName = 'Opcina_radne'
    end
    object StringField8: TStringField
      FieldName = 'Broj_osig'
      Size = 11
    end
    object IntegerField3: TIntegerField
      FieldName = 'Nacin_isplate'
    end
    object StringField9: TStringField
      FieldName = 'Broj_racuna_tek'
      Size = 10
    end
    object StringField10: TStringField
      FieldName = 'Broj_racuna_knj'
      Size = 10
    end
    object IntegerField4: TIntegerField
      FieldName = 'Spol'
    end
    object StringField11: TStringField
      FieldName = 'Ime_oca'
    end
    object StringField12: TStringField
      FieldName = 'Djev_prezime'
      Size = 30
    end
    object StringField13: TStringField
      FieldName = 'Mjesto_rodjenja'
    end
    object IntegerField5: TIntegerField
      FieldName = 'Opcina_rodjenja'
    end
    object DateField1: TDateField
      FieldName = 'Datum_rodjenja'
    end
    object IntegerField6: TIntegerField
      FieldName = 'Drzavljanstvo'
    end
    object IntegerField7: TIntegerField
      FieldName = 'Nacionalnost'
    end
    object IntegerField8: TIntegerField
      FieldName = 'Broj_djece'
    end
    object IntegerField9: TIntegerField
      FieldName = 'Obiteljsko_stanje'
    end
    object StringField14: TStringField
      FieldName = 'Mjesto_stan'
    end
    object IntegerField10: TIntegerField
      FieldName = 'Opcina_stan'
    end
    object StringField15: TStringField
      FieldName = 'Adresa_stan'
      Size = 30
    end
    object StringField16: TStringField
      FieldName = 'Telefon_stan'
      Size = 15
    end
    object StringField17: TStringField
      FieldName = 'Zanimanje'
      Size = 40
    end
    object IntegerField11: TIntegerField
      FieldName = 'Kvalifikacija'
    end
    object StringField18: TStringField
      FieldName = 'Skola'
      Size = 40
    end
    object IntegerField12: TIntegerField
      FieldName = 'Jedinica'
    end
    object IntegerField13: TIntegerField
      FieldName = 'Posao'
    end
    object IntegerField14: TIntegerField
      FieldName = 'Posao2'
    end
    object DateField2: TDateField
      FieldName = 'Prvo_zaposlenje'
    end
    object IntegerField15: TIntegerField
      FieldName = 'Staz_prije_mjes'
    end
    object IntegerField16: TIntegerField
      FieldName = 'Staz_prije_dani'
    end
    object DateField3: TDateField
      FieldName = 'Datum_zaposlenja'
    end
    object BooleanField1: TBooleanField
      FieldName = 'Vojska'
    end
    object IntegerField17: TIntegerField
      FieldName = 'Radni_odnos'
    end
    object BooleanField2: TBooleanField
      FieldName = 'Prestao'
    end
    object DateField4: TDateField
      FieldName = 'Prestao_datum'
    end
    object IntegerField18: TIntegerField
      FieldName = 'Prestao_nacin'
    end
    object FloatField1: TFloatField
      FieldName = 'Faktor_odbitaka'
    end
    object BooleanField3: TBooleanField
      FieldName = 'Sindikat'
    end
    object BooleanField4: TBooleanField
      FieldName = 'Cekanje'
    end
    object BooleanField5: TBooleanField
      FieldName = 'Invalid2'
    end
    object BooleanField6: TBooleanField
      FieldName = 'Invalid3'
    end
    object BlobField1: TBlobField
      FieldName = 'Zabiljeska'
      BlobType = ftFmtMemo
    end
    object StringField19: TStringField
      FieldName = 'cfPrezime_ime'
      Size = 50
      Calculated = True
    end
  end
end