BUG 11/BUGCD1998_02.ISO/aplic/trade/_setup.1/main.exe/0/RCDATA/TPOCETNOSTANJEPARTNERA/TPOCETNOSTANJEPARTNERA.txt

Text File | 1998-01-05 | 28KB | 914 lines

object PocetnoStanjePartnera: TPocetnoStanjePartnera
  Tag = 1
  Left = 159
  Top = 163
  ActiveControl = gTable
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Po�etno stanje partnera'
  ClientHeight = 314
  ClientWidth = 632
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object NoteBook: TNotebook
    Left = 0
    Top = 0
    Width = 632
    Height = 314
    Align = alClient
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'Zaglavlje'
      object Bevel5: TBevel
        Left = 4
        Top = 276
        Width = 341
        Height = 33
        Style = bsRaised
      end
      object Bevel2: TBevel
        Left = 80
        Top = 228
        Width = 3
        Height = 45
        Style = bsRaised
      end
      object Bevel1: TBevel
        Left = 4
        Top = 228
        Width = 173
        Height = 46
        Shape = bsFrame
        Style = bsRaised
      end
      object Bojano: TShape
        Left = 6
        Top = 230
        Width = 74
        Height = 42
        Brush.Color = clRed
        Pen.Style = psClear
      end
      object Bevel4: TBevel
        Left = 452
        Top = 228
        Width = 173
        Height = 45
        ParentShowHint = False
        ShowHint = False
        Style = bsRaised
      end
      object Label2: TLabel
        Left = 92
        Top = 232
        Width = 77
        Height = 13
        AutoSize = False
        Caption = 'Datum knji�enja'
        FocusControl = EditDatum
      end
      object Label1: TLabel
        Left = 14
        Top = 233
        Width = 61
        Height = 13
        AutoSize = False
        Caption = 'Stanje br.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object lUkupno: TLabel
        Left = 456
        Top = 232
        Width = 108
        Height = 13
        Caption = 'Ukupna dugovanja'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label37: TLabel
        Left = 13
        Top = 232
        Width = 61
        Height = 13
        AutoSize = False
        Caption = 'Stanje br.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label3: TLabel
        Left = 10
        Top = 286
        Width = 31
        Height = 13
        Alignment = taRightJustify
        Caption = 'Konto:'
      end
      object Bevel21: TBevel
        Left = 348
        Top = 276
        Width = 277
        Height = 33
      end
      object Knjizeno: TDBEdit
        Left = 52
        Top = 252
        Width = 13
        Height = 13
        TabStop = False
        AutoSize = False
        DataField = 'Knjizeno'
        DataSource = DataPPart.sCodes
        Enabled = False
        TabOrder = 11
        OnChange = KnjizenoChange
      end
      object gTable: TMyDBGrid
        Tag = 1
        Left = 4
        Top = 4
        Width = 621
        Height = 221
        FindByName = True
        DataSource = DataPPart.sGlava
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnSpace = KnjiziUFUClick
        OnCtrlSpace = KnjiziSveUfeClick
      end
      object EditDatum: TDBVar
        Left = 92
        Top = 248
        Width = 77
        Height = 20
        AutoSize = False
        DataField = 'Datum'
        DataSource = DataPPart.sGlava
        TabOrder = 2
        OnExitChanged = Izmjene
      end
      object eSifra: TDBKeyField
        Left = 12
        Top = 248
        Width = 61
        Height = 20
        AutoSize = False
        DataField = 'BROJ'
        DataSource = DataPPart.sGlava
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        DisplayName = 'Broj po�etnog stanja partnera'
        OnNew = eSifraNew
        OnRename = eSifraRename
      end
      object eSaldo: TDBVar
        Left = 456
        Top = 248
        Width = 165
        Height = 20
        AutoSize = False
        DataField = 'Saldo'
        DataSource = DataPPart.sGlava
        TabOrder = 4
        OnExitChanged = Izmjene
      end
      object StavkeButton: TBitBtn
        Left = 352
        Top = 280
        Width = 85
        Height = 25
        Caption = 'Stavke'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = StavkeButtonClick
        Glyph.Data = {
          76020000424D7602000000000000760000002800000040000000100000000100
          0400000000000002000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333393333333333333333333333333333333FF333333333333333333
          333333333339093333333333333333333333333333F888F33333333333333333
          333333333990F0933333333333333333333333333888388F3333333333333333
          33333333990F0F0933333333333FF333333333338F838388F333333333003333
          3333333900FFF0F09333333333883FF3333333F8883338388F333333330A0033
          33333990FFFFFF0F09333333338F883FF33338883F33338388F33333330AAA00
          3333990F0FFFFFF0F0933FFFFF8F33883FF38F8383F33338388F0000000AAAAA
          003390FFF0FFFFFF0F09888888833333883F8833383F333383880AAAAAAAAAAA
          AA030FFFFF0FFFFFF0F08FFFFFFF33333F8883F33383F33338380000000AAAAA
          003330FFFFF0FFFFFF038888888F333F8833383F33383F333F833333330AAA00
          3333330FFFFF0FFF00333333338F3F8833333383F33383FF88333333330A0033
          33333330FFFFF00033333333338F8833333333383F3338883333333333003333
          333333330FFF033333333333338833333333333383FF83333333333333333333
          3333333330003333333333333333333333333333388833333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object PrintBtn: TBitBtn
        Left = 436
        Top = 280
        Width = 37
        Height = 25
        TabOrder = 8
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        NumGlyphs = 2
      end
      object CalcBtn: TBitBtn
        Left = 472
        Top = 280
        Width = 37
        Height = 25
        TabOrder = 9
        OnClick = KnjiziUFUClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
          73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
          0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
          0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
          0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
          0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
          0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
          0333337F777777737F333308888888880333337F333333337F33330888888888
          03333373FFFFFFFF733333700000000073333337777777773333}
        NumGlyphs = 2
      end
      object ZapisiButton: TBitBtn
        Left = 508
        Top = 280
        Width = 69
        Height = 25
        Caption = 'Stanje'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 10
        OnClick = ZapisiButtonClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object rVrsta: TMyDBRadioGroup
        Left = 184
        Top = 228
        Width = 261
        Height = 45
        Columns = 2
        DataField = 'Vrsta'
        DataSource = DataPPart.sGlava
        Items.Strings = (
          '&Kupci'
          '&Dobavlja�i'
          'Ku&pci'
          'Do&bavlja�i')
        TabOrder = 3
        Values.Strings = (
          '1'
          '2'
          '3'
          '4')
        OnChange = rVrstaChange
        OnEnter = rVrstaEnter
        OnExit = rVrstaExit
      end
      object eKonto: TDBLookupField
        Left = 44
        Top = 282
        Width = 75
        Height = 21
        DataField = 'KONTO'
        DataSource = DataPPart.sGlava
        LookupSource = DataPPart.sKonto
        LookupDisplay = 'KONTO'
        LookupField = 'CODE'
        TabOrder = 5
        DisplayName = 'Konto'
        OnExitChanged = Izmjene
        OnF2Press = KontniPlan_F2
      end
      object nKonto: TDBName
        Tag = 55
        Left = 120
        Top = 282
        Width = 219
        Height = 21
        TabStop = False
        AutoSize = False
        Color = clBtnFace
        Ctl3D = True
        DataField = 'Naziv'
        DataSource = DataPPart.sKonto
        ParentCtl3D = False
        TabOrder = 6
      end
      object BitBtn1: TBitBtn
        Left = 576
        Top = 280
        Width = 41
        Height = 25
        TabOrder = 12
        OnClick = KnjiziSveUfeClick
        Glyph.Data = {
          F6010000424DF601000000000000760000002800000030000000100000000100
          0400000000008001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00380000000008
          333330333333338888888883F333338F333330777777777033333033333338F3
          F3F3FFF8F3333383F33330707079997033330903333338F838388838F33338F8
          F33330777777777033330903333338F3F3F3F3F8F33338383F33307070707070
          33309990333338F838383838F3338F338F3330777777777033309990333338F3
          F3F3F3F8F333833383F330707070707033099999033338F838383838F338F333
          38F330777777777033099999033338F3F3F3F3F8F3383333383F307070707070
          30999999903338F838383838F38FFFF3FF8F30777777777030000900003338F3
          FFFFFFF8F38888F8888330700000007033330903333338F8888888F8F33338F8
          F333307000E0E07033330903333338F8FFFFF8F8F33338F8F333307000000070
          33330903333338F888888838F33338F8F33330777777777033330903333338F3
          33333338F33338F8F333307777777770333309033333383FFFFFFFF8333338F8
          F333380000000008333300033333338888888883333338883333}
        NumGlyphs = 2
      end
      object Panel1: TPanel
        Left = 184
        Top = 226
        Width = 121
        Height = 14
        Caption = 'U zemlji'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 13
      end
      object Panel2: TPanel
        Left = 310
        Top = 226
        Width = 135
        Height = 14
        Caption = 'U inozemstvu'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 14
      end
      object Panel3: TPanel
        Left = 305
        Top = 227
        Width = 5
        Height = 45
        TabOrder = 15
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Stavke'
      object Bevel3: TBevel
        Left = 304
        Top = 216
        Width = 4
        Height = 45
        Shape = bsLeftLine
      end
      object Bevel8: TBevel
        Left = 216
        Top = 216
        Width = 5
        Height = 46
        Shape = bsLeftLine
      end
      object Bevel19: TBevel
        Left = 128
        Top = 218
        Width = 5
        Height = 43
        Shape = bsLeftLine
      end
      object Bevel7: TBevel
        Left = 4
        Top = 260
        Width = 621
        Height = 5
        Shape = bsTopLine
      end
      object Bevel10: TBevel
        Left = 304
        Top = 260
        Width = 4
        Height = 49
        Shape = bsLeftLine
      end
      object Bevel9: TBevel
        Left = 128
        Top = 260
        Width = 5
        Height = 49
        Shape = bsRightLine
      end
      object Bevel6: TBevel
        Left = 488
        Top = 260
        Width = 5
        Height = 49
        Shape = bsRightLine
      end
      object Bevel11: TBevel
        Left = 4
        Top = 216
        Width = 86
        Height = 25
        Shape = bsFrame
      end
      object Bevel16: TBevel
        Left = 4
        Top = 216
        Width = 621
        Height = 93
        Shape = bsFrame
      end
      object Label22: TLabel
        Left = 136
        Top = 220
        Width = 70
        Height = 13
        Caption = 'Stavka broj:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 140
        Top = 266
        Width = 25
        Height = 13
        Caption = 'poziv'
      end
      object DBText8: TMyDBText
        Left = 8
        Top = 244
        Width = 117
        Height = 13
        Alignment = taRightJustify
        DataField = 'Razlika'
        DataSource = DataPPart.sGlava
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label33: TLabel
        Left = 8
        Top = 222
        Width = 33
        Height = 13
        Caption = 'Stanje:'
      end
      object DBText9: TMyDBText
        Left = 44
        Top = 222
        Width = 41
        Height = 13
        DataField = 'Broj'
        DataSource = DataPPart.sGlava
      end
      object Label6: TLabel
        Left = 172
        Top = 266
        Width = 72
        Height = 13
        Caption = 'Model pla�anja'
      end
      object Label7: TLabel
        Left = 12
        Top = 266
        Width = 52
        Height = 13
        Caption = 'Ra�un broj'
      end
      object lIznos: TLabel
        Left = 376
        Top = 264
        Width = 94
        Height = 13
        Caption = 'Dobavlja� potra�uje'
      end
      object Label5: TLabel
        Left = 94
        Top = 224
        Width = 31
        Height = 13
        Alignment = taRightJustify
        Caption = 'ostaje:'
      end
      object Label8: TLabel
        Left = 224
        Top = 220
        Width = 46
        Height = 13
        Caption = 'Valutacija'
      end
      object DBEdit1: TDBEdit
        Left = 444
        Top = 284
        Width = 13
        Height = 13
        TabStop = False
        AutoSize = False
        DataField = 'Prevec'
        DataSource = DataPPart.sStavke
        Enabled = False
        TabOrder = 12
        OnChange = Iznos2Change
      end
      object Iznos2: TDBEdit
        Left = 460
        Top = 284
        Width = 13
        Height = 13
        TabStop = False
        AutoSize = False
        DataField = 'Iznos'
        DataSource = DataPPart.sStavke
        Enabled = False
        TabOrder = 11
        OnChange = Iznos2Change
      end
      object ZapisiButton2: TBitBtn
        Left = 504
        Top = 272
        Width = 69
        Height = 29
        Caption = 'Stavka'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnClick = ZapisiButton2Click
        OnEnter = ZapisiButton2Enter
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object IzlazButton: TBitBtn
        Left = 572
        Top = 272
        Width = 45
        Height = 29
        Cancel = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 10
        OnClick = IzlazButtonClick
        Glyph.Data = {
          76020000424D7602000000000000760000002800000040000000100000000100
          0400000000000002000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333933333333333333333333333333333338F33333333333333333333
          3333333339093333333333333333FF33333333333888F3333333333333300333
          3333333390F093333333333333F88F333333333388388F3333333333300C0333
          333333390FFF093333333333F8838F333333333888F388F3333333300CCC0333
          3333339990FFF093333333F883338FFFFF333383388F388F3333300CCCCC0000
          00033999990FFF093333F88333338888883338333388F388F3330CCCCCCCCCCC
          CC0319999990FFF0933383FF33333FFFFF338F3333388F388F33300CCCCC0000
          0003919999990FFF09333883FF338888883388F333F388F388F333300CCC0333
          33333919909990FFF093333883FF8F333333388F3833F88F38833333300C0333
          333333919990990F0933333338838F3333333388F338F3888833333333300333
          33333339190099903333333333388333333333388F883338F333333333333333
          333333339199999933333333333333333333333388F333F83333333333333333
          3333333339199993333333333333333333333333388F38833333333333333333
          3333333333919333333333333333333333333333338883333333333333333333
          3333333333333333333333333333333333333333333333333333}
        Layout = blGlyphRight
        NumGlyphs = 2
      end
      object gStavke: TMyDBGrid
        Tag = 1
        Left = 4
        Top = 8
        Width = 620
        Height = 201
        FindByName = True
        DataSource = DataPPart.sStavke
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object cSifra: TDBKey
        Left = 136
        Top = 236
        Width = 73
        Height = 21
        AutoSize = False
        Ctl3D = True
        DataField = 'STAVKA'
        DataSource = DataPPart.sStavke
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
        DisplayName = 'Stavka izvoda'
        OnNew = cSifraNew
      end
      object ePoziv: TDBVar
        Left = 140
        Top = 282
        Width = 25
        Height = 21
        AutoSize = False
        DataField = 'Poziv'
        DataSource = DataPPart.sStavke
        TabOrder = 5
        OnChange = ePozivChange
        OnExitChanged = ePozivExitChanged
      end
      object eModel: TDBVar
        Left = 172
        Top = 282
        Width = 125
        Height = 21
        TabStop = False
        AutoSize = False
        Color = clBtnFace
        DataField = 'Model'
        DataSource = DataPPart.sStavke
        Enabled = False
        TabOrder = 6
        OnExitChanged = ModelValidate
      end
      object eRacun: TDBVar
        Left = 12
        Top = 282
        Width = 113
        Height = 21
        AutoSize = False
        DataField = 'RacunBr'
        DataSource = DataPPart.sStavke
        TabOrder = 4
      end
      object eIznos: TDBVar
        Left = 312
        Top = 280
        Width = 169
        Height = 21
        AutoSize = False
        DataField = 'Iznos'
        DataSource = DataPPart.sStavke
        TabOrder = 8
        OnEnter = eIznosEnter
        OnExitChanged = eIznosExitChanged
      end
      object Book: TNotebook
        Left = 312
        Top = 220
        Width = 309
        Height = 37
        PageIndex = 1
        TabOrder = 3
        object TPage
          Left = 0
          Top = 0
          Caption = 'Kupci'
          object Label4: TLabel
            Left = 0
            Top = 0
            Width = 62
            Height = 13
            Caption = 'Dobavlja�:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object DBText2: TMyDBText
            Left = 68
            Top = 0
            Width = 239
            Height = 13
            DataField = 'Naziv'
            DataSource = DataPPart.sPart
          end
          object DBText37: TMyDBText
            Left = 120
            Top = 12
            Width = 187
            Height = 13
            DataField = 'Mjesto'
            DataSource = DataPPart.sPart
          end
          object DBText41: TMyDBText
            Left = 120
            Top = 24
            Width = 187
            Height = 13
            DataField = 'UlicaBroj'
            DataSource = DataPPart.sPart
          end
          object ePartner: TDBJustLookup
            Left = 0
            Top = 16
            Width = 115
            Height = 21
            DataField = 'PARTNER'
            DataSource = DataPPart.sStavke
            LookupSource = DataPPart.sPartner
            LookupDisplay = 'SIFRA'
            LookupField = 'PARTNER'
            TabOrder = 0
            DisplayName = '�ifra dobavlja�a'
            OnExitChanged = ePartnerExitChanged
            OnF2Press = Partner_F2
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'Dobavljaci'
          object Label10: TLabel
            Left = 0
            Top = 0
            Width = 41
            Height = 13
            Caption = 'Kupac:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object DBText1: TMyDBText
            Left = 48
            Top = 0
            Width = 259
            Height = 13
            DataField = 'Naziv'
            DataSource = DataPPart.sPartK
          end
          object DBText3: TMyDBText
            Left = 120
            Top = 12
            Width = 187
            Height = 13
            DataField = 'Mjesto'
            DataSource = DataPPart.sPartK
          end
          object DBText4: TMyDBText
            Left = 120
            Top = 24
            Width = 187
            Height = 13
            DataField = 'UlicaBroj'
            DataSource = DataPPart.sPartK
          end
          object ePartner2: TDBJustLookup
            Left = 0
            Top = 16
            Width = 115
            Height = 21
            DataField = 'PARTNER'
            DataSource = DataPPart.sStavke
            LookupSource = DataPPart.sPartnerK
            LookupDisplay = 'SIFRA'
            LookupField = 'PARTNER'
            TabOrder = 0
            DisplayName = '�ifra dobavlja�a'
            OnExitChanged = ePartnerExitChanged
            OnF2Press = Partner_F2
          end
        end
      end
      object Preplata: TCheckBox
        Left = 312
        Top = 264
        Width = 63
        Height = 13
        Caption = 'Preplata:'
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 7
        OnClick = PreplataClick
      end
      object eValuta: TDBVar
        Left = 224
        Top = 236
        Width = 73
        Height = 21
        AutoSize = False
        DataField = 'Valuta'
        DataSource = DataPPart.sStavke
        TabOrder = 2
        OnExitChanged = eValutaExitChanged
      end
    end
  end
end