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

Text File | 1998-04-04 | 22KB | 772 lines

object fm2400401UskladRob: Tfm2400401UskladRob
  Left = 467
  Top = 242
  HelpContext = 240040000
  BorderStyle = bsDialog
  Caption = 'fm2400401UskladRob'
  ClientHeight = 283
  ClientWidth = 488
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object paTipke: TPanel
    Left = 0
    Top = 242
    Width = 488
    Height = 41
    Align = alBottom
    TabOrder = 0
    object bbUskladjivanje: TBitBtn
      Left = 4
      Top = 8
      Width = 96
      Height = 25
      Hint = 'Pokretanje procedure uskla�ivanja'
      Caption = 'Uskla�ivanje'
      Default = True
      TabOrder = 0
      OnClick = bbUskladjivanjeClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object bbIzlaz: TBitBtn
      Left = 387
      Top = 8
      Width = 85
      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 bbIspis: TBitBtn
      Left = 112
      Top = 8
      Width = 85
      Height = 25
      Hint = 'Poziv prozora sa popisom izvje�taja'
      Caption = 'Iz&vje�taji'
      TabOrder = 2
      OnClick = bbIspisClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
      Spacing = 2
    end
    object bbPregledStanja: TBitBtn
      Left = 206
      Top = 8
      Width = 118
      Height = 25
      Caption = 'Pregled stanja'
      TabOrder = 3
      OnClick = bbPregledStanjaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555FFFFFFFFFF5555500000000005555557777777777F55550BFBFBFB
        FB0555557F555555557F55500FBFBFBFBF0555577F555555557F550B0BFBFBFB
        FB05557F7F555555557F500F0FBFBFBFBF05577F7F555555557F0B0B0BFBFBFB
        FB057F7F7F555555557F0F0F0FBFBFBFBF057F7F7FFFFFFFFF750B0B00000000
        00557F7F7777777777550F0FB0FBFB0F05557F7FF75FFF7575550B0007000070
        55557F777577775755550FB0FBFB0F0555557FF75FFF75755555000700007055
        5555777577775755555550FBFB0555555555575FFF7555555555570000755555
        5555557777555555555555555555555555555555555555555555}
      NumGlyphs = 2
      Spacing = 2
    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 490
    Height = 147
    ActivePage = pgObrasci
    MultiLine = True
    TabHeight = 22
    TabOrder = 1
    object pgObrasci: TTabSheet
      Caption = 'Obrasci'
      TabVisible = False
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 482
        Height = 137
        Align = alClient
        TabOrder = 0
        object Label1: TLabel
          Left = 22
          Top = 17
          Width = 403
          Height = 36
          AutoSize = False
          Caption =
            'Uskla�ivanje automatske evidencije stanja zaliha sa stvarnim sta' +
            'njem na karticama.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object lbAktivnaMetoda: TLabel
          Left = 20
          Top = 77
          Width = 96
          Height = 13
          Caption = 'lbAktivnaMetoda'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Bevel1: TBevel
          Left = 12
          Top = 7
          Width = 450
          Height = 50
        end
        object Bevel2: TBevel
          Left = 13
          Top = 66
          Width = 450
          Height = 43
        end
      end
    end
  end
  object paStatus: TPanel
    Left = 0
    Top = 148
    Width = 488
    Height = 94
    Align = alBottom
    TabOrder = 2
    Visible = False
    object Label2: TLabel
      Left = 13
      Top = 11
      Width = 127
      Height = 13
      Caption = 'Uskla�ivanje u toku...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbSkladiste: TLabel
      Left = 72
      Top = 34
      Width = 51
      Height = 13
      Caption = 'lbSkladiste'
    end
    object Label3: TLabel
      Left = 13
      Top = 34
      Width = 53
      Height = 13
      Caption = 'Skladi�te'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbArtikl: TLabel
      Left = 73
      Top = 48
      Width = 31
      Height = 13
      Caption = 'lbArtikl'
    end
    object Label5: TLabel
      Left = 14
      Top = 49
      Width = 30
      Height = 13
      Caption = 'Artikl'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object bbPrekidKorisnika: TBitBtn
      Left = 399
      Top = 7
      Width = 85
      Height = 23
      Caption = 'Pre&kid'
      TabOrder = 0
      OnClick = bbPrekidKorisnikaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object progrStavRob: TProgressBar
      Left = 14
      Top = 65
      Width = 459
      Height = 18
      Min = 0
      Max = 100
      Step = 1
      TabOrder = 1
    end
  end
  object ta1Dnerob: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'dnerob'
    Left = 812
    Top = 80
    object ta1DnerobKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta1DnerobDokument: TSmallintField
      FieldName = 'Dokument'
    end
    object ta1DnerobGodina: TSmallintField
      FieldName = 'Godina'
    end
    object ta1DnerobBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta1DnerobDatum: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object ta1DnerobSkladiste: TIntegerField
      FieldName = 'Skladiste'
    end
    object ta1DnerobPartner: TIntegerField
      FieldName = 'Partner'
    end
    object ta1DnerobOpisknj: TStringField
      FieldName = 'Opisknj'
      Size = 80
    end
    object ta1DnerobMskl01: TSmallintField
      FieldName = 'Mskl01'
    end
    object ta1DnerobKnjStornirano: TIntegerField
      FieldName = 'KnjStornirano'
    end
    object ta1DnerobGodkalk: TSmallintField
      FieldName = 'Godkalk'
    end
    object ta1DnerobBrojKalk: TIntegerField
      FieldName = 'BrojKalk'
    end
    object ta1DnerobGodNal: TSmallintField
      FieldName = 'GodNal'
    end
    object ta1DnerobBrojNal: TIntegerField
      FieldName = 'BrojNal'
    end
    object ta1DnerobGodRn: TSmallintField
      FieldName = 'GodRn'
    end
    object ta1DnerobBrojRn: TIntegerField
      FieldName = 'BrojRn'
    end
    object ta1DnerobTekstPrije: TBlobField
      FieldName = 'TekstPrije'
      BlobType = ftFmtMemo
    end
    object ta1DnerobTekstIza: TBlobField
      FieldName = 'TekstIza'
      BlobType = ftFmtMemo
    end
    object ta1DnerobDokumTem: TSmallintField
      FieldName = 'DokumTem'
    end
    object ta1DnerobBrojTemeljnice: TSmallintField
      FieldName = 'BrojTemeljnice'
    end
    object ta1DnerobcfPartner: TStringField
      DisplayWidth = 60
      FieldName = 'cfPartner'
      Size = 60
      Calculated = True
    end
    object ta1DnerobcfSifra: TStringField
      FieldName = 'cfSifra'
      Calculated = True
    end
    object ta1DnerobcfJedmj: TStringField
      FieldName = 'cfJedmj'
      Calculated = True
    end
    object ta1DnerobcfIznos: TStringField
      FieldName = 'cfIznos'
      Calculated = True
    end
    object ta1DnerobcfDokument: TStringField
      FieldName = 'cfDokument'
      Size = 60
      Calculated = True
    end
    object ta1DnerobcfStorniran: TStringField
      FieldName = 'cfStorniran'
      Calculated = True
    end
    object ta1DnerobcfNalog: TStringField
      FieldName = 'cfNalog'
      Size = 60
      Calculated = True
    end
    object ta1DnerobcfKalkulacija: TStringField
      FieldName = 'cfKalkulacija'
      Size = 60
      Calculated = True
    end
    object ta1DnerobcfRacun: TStringField
      FieldName = 'cfRacun'
      Size = 60
      Calculated = True
    end
  end
  object ta3Dnerob: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'dnerob'
    Left = 810
    Top = 184
    object ta3DnerobKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta3DnerobDokument: TSmallintField
      FieldName = 'Dokument'
    end
    object ta3DnerobGodina: TSmallintField
      FieldName = 'Godina'
    end
    object ta3DnerobBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta3DnerobDatum: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object ta3DnerobSkladiste: TIntegerField
      FieldName = 'Skladiste'
    end
    object ta3DnerobPartner: TIntegerField
      FieldName = 'Partner'
    end
    object ta3DnerobOpisknj: TStringField
      FieldName = 'Opisknj'
      Size = 80
    end
    object ta3DnerobMskl01: TSmallintField
      FieldName = 'Mskl01'
    end
    object ta3DnerobKnjStornirano: TIntegerField
      FieldName = 'KnjStornirano'
    end
    object ta3DnerobGodkalk: TSmallintField
      FieldName = 'Godkalk'
    end
    object ta3DnerobBrojKalk: TIntegerField
      FieldName = 'BrojKalk'
    end
    object ta3DnerobGodNal: TSmallintField
      FieldName = 'GodNal'
    end
    object ta3DnerobBrojNal: TIntegerField
      FieldName = 'BrojNal'
    end
    object ta3DnerobGodRn: TSmallintField
      FieldName = 'GodRn'
    end
    object ta3DnerobBrojRn: TIntegerField
      FieldName = 'BrojRn'
    end
    object ta3DnerobTekstPrije: TBlobField
      FieldName = 'TekstPrije'
      BlobType = ftFmtMemo
    end
    object ta3DnerobTekstIza: TBlobField
      FieldName = 'TekstIza'
      BlobType = ftFmtMemo
    end
    object ta3DnerobDokumTem: TSmallintField
      FieldName = 'DokumTem'
    end
    object ta3DnerobBrojTemeljnice: TSmallintField
      FieldName = 'BrojTemeljnice'
    end
    object ta3DnerobcfPartner: TStringField
      DisplayWidth = 60
      FieldName = 'cfPartner'
      Size = 60
      Calculated = True
    end
    object ta3DnerobcfSifra: TStringField
      FieldName = 'cfSifra'
      Calculated = True
    end
    object ta3DnerobcfJedmj: TStringField
      FieldName = 'cfJedmj'
      Calculated = True
    end
    object ta3DnerobcfIznos: TStringField
      FieldName = 'cfIznos'
      Calculated = True
    end
    object ta3DnerobcfDokument: TStringField
      FieldName = 'cfDokument'
      Size = 60
      Calculated = True
    end
    object ta3DnerobcfStorniran: TStringField
      FieldName = 'cfStorniran'
      Calculated = True
    end
    object ta3DnerobcfNalog: TStringField
      FieldName = 'cfNalog'
      Size = 60
      Calculated = True
    end
    object ta3DnerobcfKalkulacija: TStringField
      FieldName = 'cfKalkulacija'
      Size = 60
      Calculated = True
    end
    object ta3DnerobcfRacun: TStringField
      FieldName = 'cfRacun'
      Size = 60
      Calculated = True
    end
  end
  object ta1Stavrob: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'stavrob'
    Left = 804
    Top = 305
    object ta1StavrobRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1StavrobKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta1StavrobRedbr: TSmallintField
      FieldName = 'Redbr'
    end
    object ta1StavrobSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1StavrobUlaz: TFloatField
      FieldName = 'Ulaz'
      DisplayFormat = ',0.000;;-'
      EditFormat = '0.000'
    end
    object ta1StavrobIzlaz: TFloatField
      FieldName = 'Izlaz'
      DisplayFormat = ',0.000;;-'
      EditFormat = '0.000'
    end
    object ta1StavrobCijena: TFloatField
      FieldName = 'Cijena'
      DisplayFormat = ',0.00####;;-'
      EditFormat = '0.00####'
    end
    object ta1StavrobStaraCijena: TFloatField
      FieldName = 'StaraCijena'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1StavrobSkladiste: TIntegerField
      FieldName = 'Skladiste'
    end
    object ta1StavrobDatum: TDateField
      FieldName = 'Datum'
    end
    object ta1StavrobcfSifra: TStringField
      DisplayWidth = 60
      FieldName = 'cfSifra'
      Size = 60
      Calculated = True
    end
    object ta1StavrobcfJedmj: TStringField
      FieldName = 'cfJedmj'
      Calculated = True
    end
    object ta1StavrobcfIznos: TStringField
      FieldName = 'cfIznos'
      Calculated = True
    end
    object ta1StavrobcfKolicina: TFloatField
      FieldName = 'cfKolicina'
      DisplayFormat = ',0.000;;-'
      Calculated = True
    end
    object ta1StavrobcfGodina: TStringField
      FieldName = 'cfGodina'
      Calculated = True
    end
    object ta1StavrobcfDokument: TStringField
      FieldName = 'cfDokument'
      Size = 60
      Calculated = True
    end
    object ta1StavrobcfBroj: TStringField
      FieldName = 'cfBroj'
      Calculated = True
    end
    object ta1StavrobcfOpisknj: TStringField
      FieldName = 'cfOpisknj'
      Size = 80
      Calculated = True
    end
    object ta1StavrobcfPartner: TStringField
      FieldName = 'cfPartner'
      Size = 60
      Calculated = True
    end
    object ta1StavrobcfStorniran: TStringField
      FieldName = 'cfStorniran'
      Calculated = True
    end
  end
  object ta1LockRob: TTable
    DatabaseName = 'praznegod'
    TableName = '_lockRob'
    Left = 1093
    Top = 581
  end
  object ta1Zalrob: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'zalRob'
    Left = 866
    Top = 592
    object ta1ZalrobRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1ZalrobSkladiste: TIntegerField
      FieldName = 'Skladiste'
    end
    object ta1ZalrobSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1ZalrobDatum: TDateField
      FieldName = 'Datum'
    end
    object ta1ZalrobCijena: TFloatField
      FieldName = 'Cijena'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1ZalrobStanje: TFloatField
      FieldName = 'Stanje'
      DisplayFormat = ',0.000;;-'
      EditFormat = '0.00'
    end
  end
  object ta1Jedinice: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'jedinice'
    Left = 843
    Top = 524
    object ta1JediniceSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1JediniceTip: TSmallintField
      FieldName = 'Tip'
    end
    object ta1JediniceNaziv: TStringField
      FieldName = 'Naziv'
      Size = 40
    end
    object ta1JediniceAdresa: TStringField
      FieldName = 'Adresa'
      Size = 60
    end
    object ta1JediniceKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta1JedinicecfTip: TStringField
      FieldName = 'cfTip'
      Calculated = True
    end
  end
  object ta1Roba: TTable
    Tag = 3
    DatabaseName = 'praznepar'
    TableName = 'roba'
    Left = 869
    Top = 436
    object ta1RobaSifra: TIntegerField
      FieldName = 'Sifra'
    end
    object ta1RobaNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object ta1RobaOpis: TBlobField
      FieldName = 'Opis'
      BlobType = ftFmtMemo
    end
    object ta1RobaTip: TSmallintField
      FieldName = 'Tip'
    end
    object ta1RobaKlas: TStringField
      FieldName = 'Klas'
      Size = 30
    end
    object ta1RobaJedmj: TSmallintField
      FieldName = 'Jedmj'
    end
    object ta1RobaKatbroj: TStringField
      FieldName = 'Katbroj'
      Size = 30
    end
    object ta1RobaEan13: TStringField
      FieldName = 'Ean13'
      Size = 13
    end
    object ta1RobaPorez: TSmallintField
      FieldName = 'Porez'
    end
    object ta1RobaOznacen: TSmallintField
      FieldName = 'Oznacen'
    end
    object ta1RobaProizvodjac: TIntegerField
      FieldName = 'Proizvodjac'
    end
    object ta1RobaMinz: TFloatField
      FieldName = 'Minz'
      DisplayFormat = '0.000;;-'
      EditFormat = '0.000'
    end
    object ta1RobaMaxz: TFloatField
      FieldName = 'Maxz'
      DisplayFormat = '0.000;;-'
      EditFormat = '0.000'
    end
    object ta1RobacfTip: TStringField
      FieldName = 'cfTip'
      Calculated = True
    end
    object ta1RobacfJedmj: TStringField
      FieldName = 'cfJedmj'
      Calculated = True
    end
    object ta1RobacfPorez: TStringField
      FieldName = 'cfPorez'
      Calculated = True
    end
    object ta1RobacfCijena: TFloatField
      FieldName = 'cfCijena'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object ta1RobacfNc: TFloatField
      FieldName = 'cfNc'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object ta1RobacfMarza: TFloatField
      FieldName = 'cfMarza'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object ta1RobacfPorezIznos: TFloatField
      FieldName = 'cfPorezIznos'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object ta1RobacfCijena2: TFloatField
      FieldName = 'cfCijena2'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object ta1RobacfStanje: TFloatField
      FieldName = 'cfStanje'
      DisplayFormat = ',0.000;;-'
      Calculated = True
    end
    object ta1RobacfMarzaStopa: TStringField
      FieldName = 'cfMarzaStopa'
      Calculated = True
    end
    object ta1RobacfCijena1: TStringField
      FieldName = 'cfCijena1'
      Calculated = True
    end
  end
end