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

Text File | 1998-01-05 | 22KB | 950 lines

object KontniPlan5: TKontniPlan5
  Tag = 1
  Left = 145
  Top = 99
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Dnevnik knji�enja glavne knjige'
  ClientHeight = 453
  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
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel3: TBevel
    Left = 333
    Top = 285
    Width = 280
    Height = 24
  end
  object Bevel7: TBevel
    Left = 333
    Top = 261
    Width = 296
    Height = 24
  end
  object Bevel9: TBevel
    Left = 0
    Top = 423
    Width = 317
    Height = 27
  end
  object Bevel8: TBevel
    Left = 4
    Top = 3
    Width = 309
    Height = 81
    Style = bsRaised
  end
  object Bevel13: TBevel
    Left = 320
    Top = 4
    Width = 309
    Height = 65
    Shape = bsFrame
  end
  object Bevel15: TBevel
    Left = 320
    Top = 24
    Width = 309
    Height = 22
  end
  object Bevel6: TBevel
    Left = 540
    Top = 265
    Width = 5
    Height = 41
    Shape = bsLeftLine
  end
  object Bevel5: TBevel
    Left = 469
    Top = 265
    Width = 5
    Height = 41
    Shape = bsLeftLine
  end
  object Bevel4: TBevel
    Left = 398
    Top = 265
    Width = 6
    Height = 41
    Shape = bsLeftLine
  end
  object Bevel2: TBevel
    Left = 84
    Top = 86
    Width = 5
    Height = 21
    Shape = bsLeftLine
  end
  object Bevel1: TBevel
    Left = 8
    Top = 86
    Width = 301
    Height = 21
    Style = bsRaised
  end
  object DBText17: TMyDBText
    Left = 396
    Top = 8
    Width = 229
    Height = 13
    DataField = 'Naziv'
    DataSource = dsKonta4
  end
  object DBText16: TMyDBText
    Left = 328
    Top = 8
    Width = 65
    Height = 13
    DataField = 'Konto'
    DataSource = dsKonta4
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText18: TMyDBText
    Left = 328
    Top = 48
    Width = 297
    Height = 13
    DataField = 'Naziv'
    DataSource = sPartner
  end
  object Label1: TLabel
    Left = 336
    Top = 268
    Width = 57
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'ova faza'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText22: TMyDBText
    Left = 401
    Top = 268
    Width = 65
    Height = 13
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = sxKonta
  end
  object DBText23: TMyDBText
    Left = 472
    Top = 268
    Width = 65
    Height = 13
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = sxKonta
  end
  object DBText24: TMyDBText
    Left = 544
    Top = 268
    Width = 81
    Height = 13
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = sxKonta
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText25: TMyDBText
    Left = 328
    Top = 28
    Width = 297
    Height = 13
    DataField = 'Opis'
    DataSource = sKonta
  end
  object DBText26: TMyDBText
    Left = 12
    Top = 90
    Width = 69
    Height = 13
    Alignment = taCenter
    DataField = 'DatumDVO'
    DataSource = sCodes
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText27: TMyDBText
    Left = 88
    Top = 90
    Width = 217
    Height = 13
    DataField = 'FullOpis'
    DataSource = sCodes
  end
  object Label2: TLabel
    Left = 336
    Top = 289
    Width = 57
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'po kontu'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText1: TMyDBText
    Left = 402
    Top = 289
    Width = 65
    Height = 13
    Alignment = taRightJustify
    DataField = 'Duguje'
    DataSource = syKonta
  end
  object DBText2: TMyDBText
    Left = 472
    Top = 289
    Width = 65
    Height = 13
    Alignment = taRightJustify
    DataField = 'Potrazuje'
    DataSource = syKonta
  end
  object DBText3: TMyDBText
    Left = 544
    Top = 289
    Width = 65
    Height = 13
    Alignment = taRightJustify
    DataField = 'Saldo'
    DataSource = syKonta
  end
  object Label3: TLabel
    Left = 12
    Top = 7
    Width = 83
    Height = 13
    Caption = '&Vrsta dokumenta:'
    FocusControl = xVrsta
  end
  object Label4: TLabel
    Left = 168
    Top = 7
    Width = 83
    Height = 13
    Caption = '&Stupanj knji�enja:'
    FocusControl = xTip
  end
  object Label5: TLabel
    Left = 3
    Top = 327
    Width = 311
    Height = 13
    Caption =
      '&Problemi kod automatske obrade podataka (knji�enje/storniranje)' +
      #39':'
    FocusControl = gProblem
  end
  object PrnLista: TSpeedButton
    Left = 1
    Top = 424
    Width = 96
    Height = 25
    Caption = 'Kartica <F4>'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
    OnClick = PrnListaClick
  end
  object PrnZbirno: TSpeedButton
    Left = 241
    Top = 424
    Width = 75
    Height = 25
    Caption = 'Zbirno <F7>'
    Flat = True
    NumGlyphs = 2
    OnClick = PrnListaClick
  end
  object PrnKonta: TSpeedButton
    Left = 173
    Top = 424
    Width = 68
    Height = 25
    Caption = 'Konta <F6>'
    Flat = True
    NumGlyphs = 2
    OnClick = PrnListaClick
  end
  object PrnOvaj: TSpeedButton
    Left = 97
    Top = 424
    Width = 76
    Height = 25
    Caption = 'Kartice <F5>'
    Flat = True
    NumGlyphs = 2
    OnClick = PrnListaClick
  end
  object gPodGrupe: TDBGrid
    Left = 0
    Top = 106
    Width = 316
    Height = 219
    DataSource = sCodes
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gPodGrupeDrawDataCell
  end
  object gKartica: TMyDBGrid
    Left = 320
    Top = 64
    Width = 309
    Height = 201
    FindByName = True
    DataSource = sKonta
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gKarticaDrawDataCell
  end
  object gKonta: TMyDBGrid
    Left = 320
    Top = 306
    Width = 309
    Height = 147
    FindByName = True
    DataSource = syKonta
    Options = [dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gKontaDrawDataCell
  end
  object xVrsta: TListBox
    Left = 8
    Top = 23
    Width = 149
    Height = 56
    Ctl3D = True
    IntegralHeight = True
    ItemHeight = 13
    Items.Strings = (
      '- Sve vrste dokumenata -'
      'Blagajna'
      'Inventura'
      'Izlazne fakture ( IFE )'
      'Izlazni Reversi'
      'Izvodi'
      'Izvozne fakture (IZVOZ)'
      'Maloprodaja'
      'Me�uskladi�nice'
      'Odjave iz komisije'
      'Odjave komisionara'
      'Otkup od gra�ana'
      'Po�etno stanje Partnera'
      'Po�etno stanje Robe'
      'Povrat dobavlja�ima'
      'Povrat iz komisije'
      'Povratnice komisionara'
      'Povratnice od kupaca'
      'Radni nalozi'
      'Temeljnice'
      'Ulazne fakture ( UFE )'
      'Ulazni Reversi'
      'Uvoz')
    ParentCtl3D = False
    Sorted = True
    TabOrder = 0
    OnClick = xVrstaExit
  end
  object xTip: TListBox
    Left = 168
    Top = 23
    Width = 141
    Height = 56
    IntegralHeight = True
    ItemHeight = 13
    Items.Strings = (
      '- Neovisno o knji�enju -'
      'CIJELI knji�eni'
      'CIJELI / DIO knji�eni'
      'DIO knji�eni'
      'DIO / NE knji�eni'
      'NE knji�eni')
    TabOrder = 1
    OnClick = xVrstaExit
  end
  object gProblem: TMyDBGrid
    Left = 0
    Top = 342
    Width = 317
    Height = 75
    FindByName = True
    DataSource = sProblem
    Options = [dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = gProblemDrawDataCell
  end
  object KontoPanel: TPanel
    Left = 322
    Top = 66
    Width = 76
    Height = 17
    TabOrder = 4
    object xGK: TCheckBox
      Left = 2
      Top = 2
      Width = 71
      Height = 13
      Caption = '&Konto'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 0
      OnClick = xGKClick
    end
  end
  object dsKonta4: TDataSource
    DataSet = tKonta4
    Left = 432
    Top = 104
  end
  object sxKonta: TDataSource
    DataSet = xKonta
    Left = 368
    Top = 140
  end
  object sPartner: TDataSource
    DataSet = tPartner
    Left = 492
    Top = 104
  end
  object sKonta: TDataSource
    DataSet = tKonta
    Left = 368
    Top = 104
  end
  object syKonta: TDataSource
    DataSet = yKonta
    Left = 372
    Top = 336
  end
  object sCodes: TDataSource
    DataSet = tCodes
    Left = 68
    Top = 220
  end
  object yKonta: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'OrgJed;DatumDVO;BrojDok;Konto'
    MasterFields = 'OrgJed;DatumDVO;Code'
    MasterSource = sCodes2
    TableName = 'S_KONTO.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 344
    Top = 336
    object yKontaKonto: TIntegerField
      FieldName = 'Konto'
      OnGetText = tKontaKontoGetText
    end
    object yKontaOrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
    end
    object yKontaDatumDVO: TDateField
      FieldName = 'DatumDVO'
      Visible = False
    end
    object yKontaBrojDok: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'BrojDok'
      Visible = False
    end
    object yKontaDuguje: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Duguje'
      Precision = 9
    end
    object yKontaPotrazuje: TFloatField
      Tag = -11
      DisplayLabel = 'Potra�uje'
      DisplayWidth = 11
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object yKontaStavki: TIntegerField
      FieldName = 'Stavki'
      Visible = False
    end
    object yKontaSaldo: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Saldo'
      Precision = 9
    end
  end
  object xKonta: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'OrgJed;DatumDVO;BrojDok;VrstaDok'
    MasterFields = 'OrgJed;DatumDVO;BrojDok;VrstaDok'
    MasterSource = sKonta
    TableName = 'S_KONTAS.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 340
    Top = 140
    object xKontaOrgJed: TIntegerField
      FieldName = 'OrgJed'
    end
    object xKontaDatumDVO: TDateField
      FieldName = 'DatumDVO'
    end
    object xKontaBrojDok: TIntegerField
      FieldName = 'BrojDok'
    end
    object xKontaVrstaDok: TSmallintField
      FieldName = 'VrstaDok'
    end
    object xKontaDuguje: TFloatField
      Tag = -11
      FieldName = 'Duguje'
      Precision = 9
    end
    object xKontaPotrazuje: TFloatField
      Tag = -11
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object xKontaSaldo: TFloatField
      Tag = -11
      FieldName = 'Saldo'
      Precision = 9
    end
  end
  object tPartner: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Code'
    MasterFields = 'Partner'
    MasterSource = sKonta
    TableName = 'PARTNER.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 464
    Top = 104
    object tPartnerCode: TAutoIncField
      FieldName = 'Code'
    end
    object tPartnerSifra: TStringField
      FieldName = 'Sifra'
      Size = 40
    end
    object tPartnerNaziv: TStringField
      FieldName = 'Naziv'
      Size = 80
    end
    object tPartnerMjesto: TStringField
      FieldName = 'Mjesto'
      Size = 40
    end
    object tPartnerUlicaBroj: TStringField
      FieldName = 'UlicaBroj'
      Size = 60
    end
    object tPartnerPosta: TIntegerField
      FieldName = 'Posta'
    end
    object tPartnerZemlja: TIntegerField
      FieldName = 'Zemlja'
    end
    object tPartnerJezik: TIntegerField
      FieldName = 'Jezik'
    end
    object tPartnerTelefon: TStringField
      FieldName = 'Telefon'
    end
    object tPartnerTelefax: TStringField
      FieldName = 'Telefax'
    end
    object tPartnerMobitel: TStringField
      FieldName = 'Mobitel'
    end
    object tPartnerModem: TStringField
      FieldName = 'Modem'
    end
    object tPartnerKontaktOsoba: TStringField
      FieldName = 'KontaktOsoba'
      Size = 40
    end
    object tPartnerMaticni: TStringField
      FieldName = 'Maticni'
      Size = 30
    end
    object tPartnerDjelatnost: TIntegerField
      FieldName = 'Djelatnost'
    end
    object tPartnerBanka: TIntegerField
      FieldName = 'Banka'
    end
    object tPartnerInoBanka: TIntegerField
      FieldName = 'InoBanka'
    end
    object tPartnerValuta: TIntegerField
      FieldName = 'Valuta'
    end
    object tPartnerZiroRN: TIntegerField
      FieldName = 'ZiroRN'
    end
    object tPartnerPoziv: TSmallintField
      FieldName = 'Poziv'
    end
    object tPartnerModel: TStringField
      FieldName = 'Model'
      Size = 30
    end
    object tPartnerOstaliTelefoni: TMemoField
      FieldName = 'OstaliTelefoni'
      BlobType = ftMemo
      Size = 30
    end
    object tPartnerRabat2: TBooleanField
      FieldName = 'Rabat2'
    end
    object tPartnerRabat2Kolicina: TBooleanField
      FieldName = 'Rabat2Kolicina'
    end
    object tPartnerItems: TIntegerField
      FieldName = 'Items'
    end
    object tPartnerTemp: TBooleanField
      FieldName = 'Temp'
    end
  end
  object tKonta4: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Code'
    MasterFields = 'Konto'
    MasterSource = sKonta
    TableName = 'KONTA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 404
    Top = 104
  end
  object tKonta: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'OrgJed;DatumDVO;BrojDok;VrstaDok;Konto'
    MasterFields = 'OrgJed;DatumDVO;Code'
    MasterSource = sCodes2
    TableName = 'S_KONTA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 340
    Top = 104
    object tKontaKonto: TIntegerField
      FieldName = 'Konto'
      OnGetText = tKontaKontoGetText
    end
    object tKontaOrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
    end
    object tKontaDatumDVO: TDateField
      FieldName = 'DatumDVO'
      Visible = False
    end
    object tKontaBrojDok: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Dokument broj'
      DisplayWidth = 13
      FieldName = 'BrojDok'
      Visible = False
    end
    object tKontaVrstaDok: TSmallintField
      FieldName = 'VrstaDok'
      Visible = False
    end
    object tKontaDuguje: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Duguje'
      Precision = 9
    end
    object tKontaPotrazuje: TFloatField
      Tag = -11
      DisplayLabel = 'Potra�uje'
      DisplayWidth = 11
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object tKontaSaldo: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Saldo'
      Precision = 9
    end
    object tKontaOpis: TStringField
      FieldName = 'Opis'
      Visible = False
      Size = 60
    end
    object tKontaPartner: TIntegerField
      FieldName = 'Partner'
      Visible = False
    end
    object tKontaStavki: TIntegerField
      FieldName = 'Stavki'
      Visible = False
    end
  end
  object tCodes: TMyTable
    OnCalcFields = tCodesCalcFields
    DatabaseName = 'Lokal'
    SessionName = 'Default'
    IndexFieldNames = 'Vrsta;Broj'
    TableName = 'CODES.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 36
    Top = 220
    object tCodesCode: TAutoIncField
      FieldName = 'Code'
      Visible = False
    end
    object tCodesVrsta: TSmallintField
      FieldName = 'Vrsta'
      Visible = False
    end
    object tCodesBroj: TIntegerField
      FieldName = 'Broj'
      Visible = False
    end
    object tCodesOpis: TStringField
      DisplayLabel = 'Dokument'
      DisplayWidth = 11
      FieldName = 'Opis'
      Calculated = True
    end
    object tCodesFullOpis: TStringField
      FieldName = 'FullOpis'
      Visible = False
      Size = 80
      Calculated = True
    end
    object tCodesOrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
      Calculated = True
    end
    object tCodesDatumDVO: TDateTimeField
      FieldName = 'DatumDVO'
      Visible = False
      Calculated = True
    end
    object tCodesDuguje: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Duguje'
      Calculated = True
    end
    object tCodesPotrazuje: TFloatField
      Tag = -11
      DisplayLabel = 'Potra�uje'
      DisplayWidth = 11
      FieldName = 'Potrazuje'
      Calculated = True
    end
    object tCodesSaldo: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Saldo'
      Calculated = True
    end
    object tCodesKnjizeno: TStringField
      DisplayLabel = 'K'
      FieldName = 'Knjizeno'
      Visible = False
      Size = 1
    end
  end
  object vKonta4: TMyTable
    DatabaseName = 'Lokal'
    SessionName = 'Default'
    IndexFieldNames = 'OrgJed;BrojDok'
    TableName = 'S_KONTAD.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = False
    FreeToInsert = False
    Left = 36
    Top = 252
    object vKonta4OrgJed: TIntegerField
      FieldName = 'OrgJed'
      Visible = False
    end
    object vKonta4DatumDVO: TDateField
      FieldName = 'DatumDVO'
      Visible = False
    end
    object vKonta4BrojDok: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Dokument'
      DisplayWidth = 11
      FieldName = 'BrojDok'
      Visible = False
    end
    object vKonta4Duguje: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Duguje'
      Precision = 9
    end
    object vKonta4Potrazuje: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Potrazuje'
      Precision = 9
    end
    object vKonta4Saldo: TFloatField
      Tag = -11
      DisplayWidth = 11
      FieldName = 'Saldo'
      Precision = 9
    end
  end
  object tProblem: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'Code;Vrsta;Stavka'
    MasterFields = 'Code'
    MasterSource = sCodes
    TableName = 'Problemi.db'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = False
    Left = 20
    Top = 364
    object tProblemCode: TIntegerField
      FieldName = 'Code'
      Visible = False
    end
    object tProblemVrsta: TStringField
      Alignment = taCenter
      DisplayLabel = 'V'
      DisplayWidth = 2
      FieldName = 'Vrsta'
      Size = 1
    end
    object tProblemStavka: TSmallintField
      DisplayLabel = 'Rbr.'
      DisplayWidth = 4
      FieldName = 'Stavka'
      Visible = False
    end
    object tProblemDok: TStringField
      FieldName = 'Dok'
      Visible = False
    end
    object tProblemOpis: TStringField
      DisplayWidth = 46
      FieldName = 'Opis'
      Size = 60
    end
    object tProblemBold: TBooleanField
      FieldName = 'Bold'
      Visible = False
    end
  end
  object sProblem: TDataSource
    DataSet = tProblem
    Left = 48
    Top = 364
  end
  object sCodes2: TDataSource
    DataSet = tCodes
    Left = 100
    Top = 220
  end
end