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

Text File | 1998-04-04 | 16KB | 594 lines

object fm1500102PartneriRepUpit: Tfm1500102PartneriRepUpit
  Left = 372
  Top = 210
  HelpContext = 150010200
  BorderStyle = bsDialog
  Caption = 'fm1500102PartneriRepUpit'
  ClientHeight = 508
  ClientWidth = 539
  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 PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 539
    Height = 439
    ActivePage = pgPartneriPopis
    Align = alClient
    MultiLine = True
    TabHeight = 22
    TabOrder = 0
    object pgPartneriPopis: TTabSheet
      HelpContext = 150010201
      Caption = 'Popis poslovnih partnera'
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 531
        Height = 407
        Align = alClient
        TabOrder = 0
        object Bevel8: TBevel
          Left = 17
          Top = 201
          Width = 492
          Height = 36
        end
        object Bevel5: TBevel
          Left = 18
          Top = 363
          Width = 421
          Height = 66
        end
        object Bevel3: TBevel
          Left = 18
          Top = 87
          Width = 310
          Height = 106
          Style = bsRaised
        end
        object Bevel1: TBevel
          Left = 18
          Top = 245
          Width = 419
          Height = 110
        end
        object Bevel12: TBevel
          Left = 28
          Top = 118
          Width = 142
          Height = 63
        end
        object Label13: TLabel
          Left = 20
          Top = 434
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label14: TLabel
          Left = 34
          Top = 111
          Width = 115
          Height = 13
          Caption = 'Ispis partnera od do �ifre'
        end
        object Label1: TLabel
          Left = 25
          Top = 274
          Width = 22
          Height = 13
          Caption = 'Filter'
        end
        object Bevel2: TBevel
          Left = 178
          Top = 118
          Width = 141
          Height = 64
        end
        object Label5: TLabel
          Left = 184
          Top = 109
          Width = 121
          Height = 13
          Caption = 'Ispis partnera od do slova'
        end
        object edPartneriPopisNaslov: TEdit
          Left = 20
          Top = 449
          Width = 403
          Height = 21
          TabOrder = 11
          Text = 'edPartneriPopisNaslov'
        end
        object edOdPartneriPopisSifra: TEdit
          Left = 37
          Top = 129
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'edOdPartneriPopisSifra'
        end
        object edDoPartneriPopisSifra: TEdit
          Left = 37
          Top = 154
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'edDoPartneriPopisSifra'
        end
        object rgRedoslijedPartneriPopis: TRadioGroup
          Left = 19
          Top = 10
          Width = 171
          Height = 61
          Caption = 'Redoslijed ispisa po'
          ItemIndex = 0
          Items.Strings = (
            'abecedi'
            '�ifri partnera')
          TabOrder = 0
        end
        object cbPartneriPopisSvi: TCheckBox
          Left = 26
          Top = 94
          Width = 133
          Height = 17
          Caption = 'Ispis svih partnera'
          State = cbChecked
          TabOrder = 1
        end
        object edPartneriPopisFilter: TEdit
          Left = 60
          Top = 270
          Width = 363
          Height = 21
          CharCase = ecLowerCase
          TabOrder = 2
          Text = 'edpartneripopisfilter'
        end
        object edOdPartneriPopisAbeceda: TEdit
          Left = 187
          Top = 129
          Width = 121
          Height = 21
          TabOrder = 5
          Text = 'edOdPartneriPopisAbeceda'
        end
        object edDoPartneriPopisAbeceda: TEdit
          Left = 187
          Top = 154
          Width = 121
          Height = 21
          TabOrder = 6
          Text = 'edDoPartneriPopisAbeceda'
        end
        object edPartneriPopisDjelatnost: TEdit
          Left = 24
          Top = 397
          Width = 63
          Height = 21
          TabOrder = 8
          Text = 'edPartneriPopisDjelatnost'
          OnChange = edPartneriPopisDjelatnostChange
          OnKeyPress = edPartneriPopisDjelatnostKeyPress
        end
        object btPartneriPopisDjelatnost: TButton
          Left = 93
          Top = 400
          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 = 9
          TabStop = False
          OnClick = btPartneriPopisDjelatnostClick
        end
        object edPartneriPopisNazivDjelatnosti: TEdit
          Left = 112
          Top = 397
          Width = 311
          Height = 21
          TabStop = False
          ReadOnly = True
          TabOrder = 10
          Text = 'edPartneriPopisNazivDjelatnosti'
        end
        object cbPartneriPopisDjelatnost: TCheckBox
          Left = 24
          Top = 376
          Width = 279
          Height = 17
          Caption = 'U izvje�taj uklju�i samo partnere sljede�e djelatnosti'
          TabOrder = 7
        end
        object cbPartneriPopisZaposleni: TCheckBox
          Left = 209
          Top = 15
          Width = 150
          Height = 17
          Caption = 'Uklju�i popis zaposlenih'
          State = cbChecked
          TabOrder = 12
        end
        object cbPartneriPopisFilter: TCheckBox
          Left = 26
          Top = 252
          Width = 353
          Height = 17
          Caption = 'Uklju�i samo partnere koji zadovoljavaju filter'
          TabOrder = 13
        end
        object rgPartneriPopisTipFiltera: TRadioGroup
          Left = 25
          Top = 296
          Width = 399
          Height = 54
          Caption = 'Na�in upotrebe filtera'
          ItemIndex = 0
          Items.Strings = (
            'uklju�i partnera ako je zadovoljen bilo koji uvjet iz filtera'
            'uklju�i partnera samo ako su svi uvjeti iz filtera zadovoljeni')
          TabOrder = 14
        end
        object cbPartneriPopisSadrziTekst: TCheckBox
          Left = 21
          Top = 209
          Width = 290
          Height = 17
          Caption = 'Uklju�i samo partnere koji bilo gdje u nazivu sadr�e tekst'
          TabOrder = 15
        end
        object edPartneriPopisSadrziTekst: TEdit
          Left = 311
          Top = 207
          Width = 179
          Height = 21
          CharCase = ecLowerCase
          TabOrder = 16
          Text = 'edpartneripopissadrzitekst'
        end
        object rgPartneriFormatIspisa: TRadioGroup
          Left = 341
          Top = 84
          Width = 136
          Height = 73
          Caption = 'Format papira za ispis'
          ItemIndex = 0
          Items.Strings = (
            'A4'
            'A5 za rokovnik')
          TabOrder = 17
        end
        object cbPartneriPopisUkljuciSifru: TCheckBox
          Left = 209
          Top = 35
          Width = 150
          Height = 17
          Caption = 'Uklju�i �ifru partnera'
          TabOrder = 18
        end
        object cbPartneriPopisZabiljeska: TCheckBox
          Left = 209
          Top = 55
          Width = 230
          Height = 17
          Caption = 'Uklju�i zabilje�ke partnera'
          State = cbChecked
          TabOrder = 19
        end
      end
    end
    object pgSuradniciPopis: TTabSheet
      HelpContext = 150010202
      Caption = 'Popis poslovnih suradnika'
      object ScrollBox2: TScrollBox
        Left = 0
        Top = 0
        Width = 531
        Height = 407
        Align = alClient
        TabOrder = 0
        object Bevel4: TBevel
          Left = 17
          Top = 101
          Width = 367
          Height = 126
          Style = bsRaised
        end
        object Bevel6: TBevel
          Left = 26
          Top = 144
          Width = 162
          Height = 70
        end
        object Label2: TLabel
          Left = 17
          Top = 263
          Width = 79
          Height = 13
          Caption = 'Naslov izvje�taja'
        end
        object Label3: TLabel
          Left = 32
          Top = 137
          Width = 122
          Height = 13
          Caption = 'Ispis suradnika od do �ifre'
        end
        object Label6: TLabel
          Left = 18
          Top = 7
          Width = 108
          Height = 13
          Caption = 'Upi�ite kriterije za ispis:'
        end
        object Bevel7: TBevel
          Left = 212
          Top = 144
          Width = 162
          Height = 70
        end
        object Label9: TLabel
          Left = 218
          Top = 135
          Width = 128
          Height = 13
          Caption = 'Ispis suradnika od do slova'
        end
        object edSuradniciPopisNaslov: TEdit
          Left = 17
          Top = 278
          Width = 229
          Height = 21
          TabOrder = 6
          Text = 'edPartneriPopisNaslov'
        end
        object edOdSuradniciPopisSifra: TEdit
          Left = 35
          Top = 159
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edOdSuradniciPopisSifra'
        end
        object edDoSuradniciPopisSifra: TEdit
          Left = 35
          Top = 184
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'edDoSuradniciPopisSifra'
        end
        object rgRedoslijedSuradniciPopis: TRadioGroup
          Left = 17
          Top = 29
          Width = 171
          Height = 61
          Caption = 'Redoslijed ispisa po'
          ItemIndex = 0
          Items.Strings = (
            'abecedi'
            '�ifri suradnika')
          TabOrder = 0
        end
        object cbSuradniciPopisSvi: TCheckBox
          Left = 25
          Top = 112
          Width = 133
          Height = 17
          Caption = 'Ispis svih suradnika'
          State = cbChecked
          TabOrder = 1
        end
        object edOdSuradniciPopisAbeceda: TEdit
          Left = 221
          Top = 159
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'edOdSuradniciPopisAbeceda'
        end
        object edDoSuradniciPopisAbeceda: TEdit
          Left = 221
          Top = 184
          Width = 121
          Height = 21
          TabOrder = 5
          Text = 'edDoSuradniciPopisAbeceda'
        end
        object rgSuradniciFormatIspisa: TRadioGroup
          Left = 195
          Top = 34
          Width = 136
          Height = 57
          Caption = 'Format papira za ispis'
          ItemIndex = 0
          Items.Strings = (
            'A4'
            'A5 za rokovnik')
          TabOrder = 7
        end
        object cbSuradniciZabiljeska: TCheckBox
          Left = 17
          Top = 235
          Width = 364
          Height = 17
          Caption = 'Uklju�i zabilje�ke suradnika'
          State = cbChecked
          TabOrder = 8
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 439
    Width = 539
    Height = 69
    Align = alBottom
    TabOrder = 1
    object Label4: TLabel
      Left = 288
      Top = 2
      Width = 49
      Height = 13
      Caption = 'Broj &kopija'
      FocusControl = edBrojKopija
    end
    object bbIspis: TBitBtn
      Left = 7
      Top = 8
      Width = 75
      Height = 25
      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 = 7
      Top = 35
      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 = 183
      Height = 55
      Caption = ' Lokacija ispisa '
      ItemIndex = 0
      Items.Strings = (
        'Ekran'
        'Pisa�, fax')
      TabOrder = 2
    end
    object bbPromjenaPisaca: TBitBtn
      Left = 288
      Top = 42
      Width = 163
      Height = 19
      Caption = 'Promjena pisa�a'
      TabOrder = 3
      OnClick = bbPromjenaPisacaClick
    end
    object upDownBrojKopija: TUpDown
      Left = 354
      Top = 16
      Width = 15
      Height = 21
      Associate = edBrojKopija
      Min = 1
      Max = 1000
      Position = 1
      TabOrder = 4
      Thousands = False
      Wrap = False
    end
    object edBrojKopija: TEdit
      Left = 288
      Top = 16
      Width = 66
      Height = 21
      TabOrder = 5
      Text = '1'
    end
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 468
    Top = 341
  end
  object ta1Vri_sif: TTable
    Tag = 2
    DatabaseName = 'Skupne'
    TableName = 'vri_sif.db'
    Left = 371
    Top = 58
    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
end