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

Text File | 1998-01-05 | 25KB | 1,041 lines

object SifarnikPoduzeca: TSifarnikPoduzeca
  Tag = 1
  Left = 152
  Top = 105
  VertScrollBar.Visible = False
  ActiveControl = gPartner
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '�ifarnik poduze�a'
  ClientHeight = 453
  ClientWidth = 632
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 239
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object gPartner: TMyDBGrid
      Left = 0
      Top = 0
      Width = 239
      Height = 453
      FindByName = True
      Align = alClient
      DataSource = sPartner
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel2: TPanel
    Left = 239
    Top = 0
    Width = 393
    Height = 453
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel4: TBevel
      Left = 288
      Top = 4
      Width = 5
      Height = 81
      Shape = bsLeftLine
    end
    object Bevel8: TBevel
      Left = 256
      Top = 348
      Width = 133
      Height = 101
      Shape = bsFrame
    end
    object Bevel2: TBevel
      Left = 4
      Top = 368
      Width = 253
      Height = 5
      Shape = bsTopLine
    end
    object Bevel6: TBevel
      Left = 4
      Top = 260
      Width = 385
      Height = 5
      Shape = bsTopLine
    end
    object Bevel5: TBevel
      Left = 4
      Top = 194
      Width = 385
      Height = 5
      Shape = bsTopLine
    end
    object Bevel10: TBevel
      Left = 4
      Top = 169
      Width = 385
      Height = 7
      Shape = bsBottomLine
    end
    object Bevel3: TBevel
      Left = 4
      Top = 84
      Width = 385
      Height = 5
      Shape = bsTopLine
    end
    object Bevel1: TBevel
      Left = 4
      Top = 4
      Width = 385
      Height = 445
      Shape = bsFrame
    end
    object Label5: TLabel
      Left = 12
      Top = 86
      Width = 99
      Height = 13
      Caption = 'Puni naziv poduze�a'
      FocusControl = EditNaziv
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 12
      Top = 8
      Width = 144
      Height = 13
      Caption = 'Skra�eni naziv poduze�a'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 12
      Top = 372
      Width = 36
      Height = 13
      Caption = 'Telefon'
      FocusControl = EditTelefon
    end
    object Label11: TLabel
      Left = 136
      Top = 372
      Width = 35
      Height = 13
      Caption = 'Telefax'
      FocusControl = EditTelefax
    end
    object Label12: TLabel
      Left = 12
      Top = 408
      Width = 34
      Height = 13
      Caption = 'Mobitel'
      FocusControl = EditMobitel
    end
    object Label13: TLabel
      Left = 136
      Top = 408
      Width = 35
      Height = 13
      Caption = 'Modem'
      FocusControl = EditModem
    end
    object Label14: TLabel
      Left = 132
      Top = 44
      Width = 87
      Height = 13
      Caption = 'Direktor poduze�a'
      FocusControl = EditKontaktOsoba
    end
    object Label15: TLabel
      Left = 12
      Top = 44
      Width = 54
      Height = 13
      Caption = 'Mati�ni broj'
      FocusControl = EditMaticni
    end
    object Label16: TLabel
      Left = 116
      Top = 240
      Width = 47
      Height = 13
      Caption = 'Djelatnost'
      FocusControl = EditDjelatnost
    end
    object Label18: TLabel
      Left = 12
      Top = 348
      Width = 30
      Height = 13
      Caption = 'Valuta'
    end
    object Label6: TLabel
      Left = 32
      Top = 130
      Width = 31
      Height = 13
      Caption = 'Mjesto'
      FocusControl = EditMjesto
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 12
      Top = 154
      Width = 49
      Height = 13
      Caption = 'Ulica i broj'
      FocusControl = EditUlicaBroj
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 144
      Top = 196
      Width = 94
      Height = 13
      Caption = 'Po�ta (naziv mjesta)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 12
      Top = 196
      Width = 31
      Height = 13
      Caption = 'Zemlja'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 260
      Top = 352
      Width = 93
      Height = 13
      Caption = 'Ostali tel/fax brojevi'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 12
      Top = 264
      Width = 31
      Height = 13
      Caption = 'Banka'
    end
    object Label2: TLabel
      Left = 12
      Top = 304
      Width = 85
      Height = 13
      Caption = 'Aktivan �iro-ra�un'
    end
    object Label20: TLabel
      Left = 12
      Top = 240
      Width = 24
      Height = 13
      Caption = 'Jezik'
    end
    object Label22: TLabel
      Left = 204
      Top = 264
      Width = 48
      Height = 13
      Caption = 'Ino.banka'
    end
    object Label19: TLabel
      Left = 176
      Top = 304
      Width = 72
      Height = 13
      Alignment = taCenter
      Caption = 'Model pla�anja'
    end
    object Label1: TLabel
      Left = 312
      Top = 196
      Width = 47
      Height = 13
      Caption = 'Broj po�te'
    end
    object EditTelefon: TDBVar
      Left = 8
      Top = 388
      Width = 120
      Height = 21
      AutoSize = False
      DataField = 'Telefon'
      DataSource = sPartner
      TabOrder = 21
    end
    object EditTelefax: TDBVar
      Left = 132
      Top = 388
      Width = 120
      Height = 21
      AutoSize = False
      DataField = 'Telefax'
      DataSource = sPartner
      TabOrder = 22
    end
    object EditMobitel: TDBVar
      Left = 8
      Top = 424
      Width = 120
      Height = 21
      AutoSize = False
      DataField = 'Mobitel'
      DataSource = sPartner
      TabOrder = 23
    end
    object EditModem: TDBVar
      Left = 132
      Top = 424
      Width = 120
      Height = 21
      AutoSize = False
      DataField = 'Modem'
      DataSource = sPartner
      TabOrder = 24
    end
    object EditKontaktOsoba: TDBVar
      Left = 128
      Top = 60
      Width = 157
      Height = 21
      AutoSize = False
      DataField = 'KontaktOsoba'
      DataSource = sPartner
      TabOrder = 2
    end
    object EditMaticni: TDBVar
      Left = 12
      Top = 60
      Width = 109
      Height = 21
      AutoSize = False
      DataField = 'Maticni'
      DataSource = sPartner
      TabOrder = 1
    end
    object EditDjelatnost: TDBName
      Tag = 55
      Left = 240
      Top = 236
      Width = 141
      Height = 21
      TabStop = False
      AutoSize = False
      Color = clBtnFace
      DataField = 'Naziv'
      DataSource = sDjelatno
      TabOrder = 13
    end
    object EditNaziv: TDBVar
      Left = 12
      Top = 102
      Width = 369
      Height = 21
      AutoSize = False
      DataField = 'Naziv'
      DataSource = sPartner
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object EditMjesto: TDBVar
      Left = 68
      Top = 126
      Width = 313
      Height = 21
      AutoSize = False
      DataField = 'Mjesto'
      DataSource = sPartner
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object EditUlicaBroj: TDBVar
      Left = 68
      Top = 150
      Width = 313
      Height = 21
      AutoSize = False
      DataField = 'UlicaBroj'
      DataSource = sPartner
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object BrojeviMemo: TMyDBMemo
      Left = 260
      Top = 368
      Width = 125
      Height = 77
      DataField = 'OstaliTelefoni'
      DataSource = sPartner
      ScrollBars = ssVertical
      TabOrder = 25
    end
    object IzlazButton: TBitBtn
      Left = 312
      Top = 52
      Width = 57
      Height = 25
      Cancel = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 27
      OnClick = IzlazButtonClick
      Glyph.Data = {
        76020000424D7602000000000000760000002800000040000000100000000100
        0400000000000002000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333C33333
        333333333333333333333333338F33333333333333333333333333333C0C3333
        3333333333333333333333333888F333333333333333333333333333C0F0C333
        33333333333333333333333388388F3333333333333FF3333333333C0FFF0C33
        33333333330033333333333888F388F33333333333883FF3333333CCC0FFF0C3
        333333333309003333333383388F388F33333333338F883FF3333CCCCC0FFF0C
        3333333333099900333338333388F388F3333FFFFF8F33883FF34CCCCCC0FFF0
        C33300000009999900338F3333388F388F33888888833333883FC4CCCCCC0FFF
        0C33099999999999990088F333F388F388F38FFFFFFF33333F883C4CC0CCC0FF
        F0C30000000999990033388F3833F88F38838888888F333F883333C4CCC0CC0F
        0C3333333309990033333388F338F38888333333338F3F883333333C4C00CCC0
        3333333333090033333333388F883338F3333333338F883333333333C4CCCCCC
        33333333330033333333333388F333F83333333333883333333333333C4CCCC3
        333333333333333333333333388F388333333333333333333333333333C4C333
        3333333333333333333333333388833333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object EditValNaziv: TDBName
      Tag = 55
      Left = 128
      Top = 344
      Width = 125
      Height = 21
      TabStop = False
      AutoSize = False
      Color = clBtnFace
      DataField = 'Naziv'
      DataSource = sValuta
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 20
    end
    object ZapisiButton: TBitBtn
      Left = 296
      Top = 16
      Width = 85
      Height = 29
      Caption = 'Poduze�e'
      TabOrder = 26
      OnClick = ZapisiButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object cDjelatnost: TDBLookupField
      Left = 168
      Top = 236
      Width = 73
      Height = 21
      DataField = 'DJELATNOST'
      DataSource = sPartner
      LookupSource = sDjelatno
      LookupDisplay = 'SIFRA'
      LookupField = 'CODE'
      TabOrder = 12
      DisplayName = '�ifra djelatnosti'
      OnF2Press = cDjelatnostF2Press
    end
    object cValuta: TDBLookupField
      Left = 48
      Top = 344
      Width = 81
      Height = 21
      DataField = 'VALUTA'
      DataSource = sPartner
      LookupSource = sValuta
      LookupDisplay = 'SIFRA'
      LookupField = 'CODE'
      TabOrder = 19
      DisplayName = '�ifra valute'
      OnF2Press = cValutaF2Press
    end
    object cBanka: TDBJustLookup
      Left = 12
      Top = 280
      Width = 177
      Height = 21
      DataField = 'BANKA'
      DataSource = sPartner
      LookupSource = sBanke
      LookupDisplay = 'SIFRA'
      LookupField = 'PARTNER'
      TabOrder = 14
      DisplayName = '�ifra banke'
      OnF2Press = cBankaF2Press
    end
    object cPosta: TDBLookupField
      Left = 144
      Top = 212
      Width = 165
      Height = 21
      DataField = 'POSTA'
      DataSource = sPartner
      LookupSource = sPosta
      LookupDisplay = 'SIFRA'
      LookupField = 'CODE'
      TabOrder = 9
      DisplayName = 'Po�ta (naziv mjesta)'
      OnF2Press = cPostaF2Press
    end
    object cZemlja: TDBLookupField
      Left = 12
      Top = 212
      Width = 129
      Height = 21
      DataField = 'ZEMLJA'
      DataSource = sPartner
      LookupSource = sZemlja
      LookupDisplay = 'SIFRA'
      LookupField = 'CODE'
      TabOrder = 8
      DisplayName = 'Zemlja'
      OnExitChanged = cZemljaExit
      OnF2Press = cZemljaF2Press
    end
    object cSifra: TDBKeyField
      Left = 12
      Top = 22
      Width = 273
      Height = 19
      AutoSize = False
      DataField = 'SIFRA'
      DataSource = sPartner
      TabOrder = 0
      DisplayName = 'Skra�eni naziv poduze�a'
    end
    object eGovor: TDBLookupField
      Left = 40
      Top = 236
      Width = 69
      Height = 21
      DataField = 'JEZIK'
      DataSource = sPartner
      LookupSource = sGovor
      LookupDisplay = 'SIFRA'
      LookupField = 'CODE'
      TabOrder = 11
      DisplayName = '�ifra govornog podru�ja'
      OnExitChanged = eGovorExit
      OnF2Press = eGovorF2Press
    end
    object xVise: TDBChecker
      Left = 180
      Top = 178
      Width = 205
      Height = 13
      TabStop = False
      Caption = 'Dodatni rabat je na ve�e koli�ine robe.'
      DataField = 'Rabat2Kolicina'
      DataSource = sPartner
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object xPlus: TDBChecker
      Left = 12
      Top = 178
      Width = 161
      Height = 13
      Caption = 'Poduze�e daje dodatni rabat.'
      DataField = 'Rabat2'
      DataSource = sPartner
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnChange = xPlusChange
      OnClick = xPlusChange
    end
    object cBanka2: TDBJustLookup
      Left = 204
      Top = 280
      Width = 177
      Height = 21
      DataField = 'INOBANKA'
      DataSource = sPartner
      LookupSource = sBanke2
      LookupDisplay = 'SIFRA'
      LookupField = 'PARTNER'
      TabOrder = 15
      DisplayName = 'Banka za pla�anja u inozemstvo'
      OnF2Press = cBankaF2Press
    end
    object ePoziv: TDBVar
      Left = 176
      Top = 320
      Width = 31
      Height = 21
      AutoSize = False
      DataField = 'Poziv'
      DataSource = sPartner
      TabOrder = 17
    end
    object eModel: TDBVar
      Left = 208
      Top = 320
      Width = 173
      Height = 21
      AutoSize = False
      DataField = 'Model'
      DataSource = sPartner
      TabOrder = 18
    end
    object eZiroRn: TDBLookupField
      Left = 12
      Top = 320
      Width = 153
      Height = 21
      DataField = 'ZIRORN'
      DataSource = sPartner
      LookupSource = sZiro
      LookupDisplay = 'SIFRA'
      LookupField = 'CODE'
      TabOrder = 16
      DisplayName = '�iro-ra�un partnera'
    end
    object eBrojPoste: TDBName
      Tag = 55
      Left = 312
      Top = 212
      Width = 69
      Height = 21
      TabStop = False
      AutoSize = False
      Color = clBtnFace
      DataField = 'Broj'
      DataSource = sPosta
      TabOrder = 10
    end
  end
  object sPartner: TDataSource
    DataSet = tPartner
    Left = 52
    Top = 28
  end
  object sValuta: TDataSource
    DataSet = tValuta
    Left = 328
    Top = 340
  end
  object sDjelatno: TDataSource
    DataSet = tDjelatno
    Left = 568
    Top = 236
  end
  object sBanke: TDataSource
    DataSet = tBanke
    Left = 372
    Top = 268
  end
  object sPosta: TDataSource
    DataSet = tPosta
    Left = 440
    Top = 208
  end
  object sZemlja: TDataSource
    DataSet = tZemlja
    Left = 296
    Top = 208
  end
  object sGovor: TDataSource
    DataSet = tGovor
    Left = 312
    Top = 240
  end
  object sBanke2: TDataSource
    DataSet = tBanke2
    Left = 568
    Top = 268
  end
  object sZiro: TDataSource
    DataSet = tZiro
    Left = 348
    Top = 308
  end
  object tValuta: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'VALUTA'
    MasterSource = sPartner
    TableName = 'VALUTA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 300
    Top = 340
  end
  object tBanke: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'PARTNER'
    MasterFields = 'BANKA'
    MasterSource = sPartner
    TableName = 'BANKE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 344
    Top = 268
  end
  object tBanke2: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'PARTNER'
    MasterFields = 'INOBANKA'
    MasterSource = sPartner
    TableName = 'BANKE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 540
    Top = 268
  end
  object tZiro: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'PARTNER;CODE'
    MasterFields = 'CODE;ZIRORN'
    MasterSource = sPartner
    TableName = 'ZIREKI.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 320
    Top = 308
  end
  object tDjelatno: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'DJELATNOST'
    MasterSource = sPartner
    TableName = 'DJELATNO.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 540
    Top = 236
  end
  object tGovor: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'JEZIK'
    MasterSource = sPartner
    TableName = 'GOVOR.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 284
    Top = 240
    object tGovorCode: TAutoIncField
      FieldName = 'Code'
    end
    object tGovorSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tGovorNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
  end
  object tPosta: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'ZEMLJA;CODE'
    MasterFields = 'ZEMLJA;POSTA'
    MasterSource = sPartner
    TableName = 'POSTA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 412
    Top = 208
    object tPostaCode: TAutoIncField
      FieldName = 'Code'
    end
    object tPostaSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tPostaBroj: TIntegerField
      FieldName = 'Broj'
    end
    object tPostaZemlja: TIntegerField
      FieldName = 'Zemlja'
    end
  end
  object tZemlja: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'ZEMLJA'
    MasterSource = sPartner
    TableName = 'ZEMLJA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 268
    Top = 208
    object tZemljaCode: TAutoIncField
      FieldName = 'Code'
    end
    object tZemljaSifra: TStringField
      FieldName = 'Sifra'
      Size = 50
    end
    object tZemljaGovor: TIntegerField
      FieldName = 'Govor'
    end
  end
  object tPartner: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'SIFRA'
    TableName = 'PARTNER.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 24
    Top = 28
    object tPartnerCode: TAutoIncField
      FieldName = 'Code'
      Visible = False
    end
    object tPartnerSifra: TStringField
      DisplayLabel = 'Skra�eni naziv poduze�a'
      DisplayWidth = 34
      FieldName = 'Sifra'
      Size = 40
    end
    object tPartnerNaziv: TStringField
      FieldName = 'Naziv'
      Visible = False
      Size = 80
    end
    object tPartnerMjesto: TStringField
      FieldName = 'Mjesto'
      Visible = False
      Size = 40
    end
    object tPartnerUlicaBroj: TStringField
      FieldName = 'UlicaBroj'
      Visible = False
      Size = 60
    end
    object tPartnerPosta: TIntegerField
      FieldName = 'Posta'
      Visible = False
    end
    object tPartnerZemlja: TIntegerField
      FieldName = 'Zemlja'
      Visible = False
    end
    object tPartnerJezik: TIntegerField
      FieldName = 'Jezik'
      Visible = False
    end
    object tPartnerTelefon: TStringField
      FieldName = 'Telefon'
      Visible = False
    end
    object tPartnerTelefax: TStringField
      FieldName = 'Telefax'
      Visible = False
    end
    object tPartnerMobitel: TStringField
      FieldName = 'Mobitel'
      Visible = False
    end
    object tPartnerModem: TStringField
      FieldName = 'Modem'
      Visible = False
    end
    object tPartnerKontaktOsoba: TStringField
      FieldName = 'KontaktOsoba'
      Visible = False
      Size = 40
    end
    object tPartnerMaticni: TStringField
      FieldName = 'Maticni'
      Visible = False
      Size = 30
    end
    object tPartnerDjelatnost: TIntegerField
      FieldName = 'Djelatnost'
      Visible = False
    end
    object tPartnerBanka: TIntegerField
      FieldName = 'Banka'
      Visible = False
    end
    object tPartnerInoBanka: TIntegerField
      FieldName = 'InoBanka'
      Visible = False
    end
    object tPartnerValuta: TIntegerField
      FieldName = 'Valuta'
      Visible = False
    end
    object tPartnerZiroRN: TIntegerField
      FieldName = 'ZiroRN'
      Visible = False
    end
    object tPartnerPoziv: TSmallintField
      FieldName = 'Poziv'
      Visible = False
    end
    object tPartnerModel: TStringField
      FieldName = 'Model'
      Visible = False
      Size = 30
    end
    object tPartnerOstaliTelefoni: TMemoField
      FieldName = 'OstaliTelefoni'
      Visible = False
      BlobType = ftMemo
      Size = 30
    end
    object tPartnerRabat2: TBooleanField
      FieldName = 'Rabat2'
      Visible = False
    end
    object tPartnerRabat2Kolicina: TBooleanField
      FieldName = 'Rabat2Kolicina'
      Visible = False
    end
    object tPartnerItems: TIntegerField
      FieldName = 'Items'
      Visible = False
    end
  end
end