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

Text File | 1998-04-04 | 33KB | 1,186 lines

object fm2101001AutoZatKup: Tfm2101001AutoZatKup
  Left = 312
  Top = 166
  HelpContext = 210100100
  BorderStyle = bsDialog
  Caption = 'fm2101001AutoZatKup'
  ClientHeight = 479
  ClientWidth = 490
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poScreenCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object paTipke: TPanel
    Left = 0
    Top = 438
    Width = 490
    Height = 41
    Align = alBottom
    TabOrder = 0
    object bbZatvaranje: TBitBtn
      Left = 5
      Top = 8
      Width = 85
      Height = 25
      Hint = 'Pokretanje procedure zatvaranja'
      Caption = 'Zatvaranje'
      Default = True
      TabOrder = 0
      OnClick = bbZatvaranjeClick
      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 = 96
      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 bbPregledZatvaranja: TBitBtn
      Left = 190
      Top = 7
      Width = 118
      Height = 25
      Hint = 'Poziv prozora sa pregledom zatvaranja i ru�nim zatvaranjem'
      Caption = 'Pregled zatvaranja'
      TabOrder = 3
      OnClick = bbPregledZatvaranjaClick
      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 = 281
    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 = 271
        Align = alClient
        TabOrder = 0
        object Bevel23: TBevel
          Left = 192
          Top = 111
          Width = 267
          Height = 84
          Style = bsRaised
        end
        object Bevel24: TBevel
          Left = 338
          Top = 125
          Width = 112
          Height = 63
        end
        object Label36: TLabel
          Left = 343
          Top = 118
          Width = 60
          Height = 13
          Caption = '�ifre od - do:'
        end
        object Bevel25: TBevel
          Left = 199
          Top = 125
          Width = 132
          Height = 63
        end
        object Label37: TLabel
          Left = 205
          Top = 118
          Width = 68
          Height = 13
          Caption = 'Nazivi od - do:'
        end
        object Bevel2: TBevel
          Left = 10
          Top = 206
          Width = 450
          Height = 48
        end
        object lbParNaziv: TLabel
          Left = 18
          Top = 234
          Width = 433
          Height = 13
          AutoSize = False
          Caption = 'lbParNaziv'
        end
        object rgTipZatvaranja: TRadioGroup
          Left = 8
          Top = 11
          Width = 450
          Height = 83
          Caption = 'Odaberite tip automatskog zatvaranja'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemIndex = 0
          Items.Strings = (

              'automatsko zatvaranje istih POZIVNIH OZNAKA kod ra�una i pla�anj' +
              'a'

              'automatsko zatvaranje ra�una i pla�anja koje imaju IDENTI�NE IZN' +
              'OSE'

              'automatsko zatvaranje SVIH RA�UNA i pla�anja unutar jednog partn' +
              'era')
          ParentFont = False
          TabOrder = 0
          OnClick = rgTipZatvaranjaClick
        end
        object rgTipKriterija: TRadioGroup
          Left = 9
          Top = 105
          Width = 174
          Height = 88
          Caption = 'Odaberite tip zadavanja kriterija'
          ItemIndex = 2
          Items.Strings = (
            'partneri od do naziva'
            'partneri od do �ifre'
            'svi partneri')
          TabOrder = 1
        end
        object edOdParSifra: TEdit
          Left = 343
          Top = 134
          Width = 100
          Height = 21
          TabOrder = 4
          Text = 'edOdParSifra'
        end
        object edDoParSifra: TEdit
          Left = 343
          Top = 159
          Width = 101
          Height = 21
          TabOrder = 5
          Text = 'edDoParSifra'
        end
        object edOdParAbec: TEdit
          Left = 204
          Top = 134
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edOdParAbec'
        end
        object edDoParAbec: TEdit
          Left = 204
          Top = 159
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'edDoParAbec'
        end
        object edParNaziv: TEdit
          Left = 228
          Top = 210
          Width = 223
          Height = 21
          TabOrder = 6
          Text = 'edparnaziv'
          OnChange = edParNazivChange
        end
        object cbParNaziv: TCheckBox
          Left = 15
          Top = 211
          Width = 206
          Height = 17
          Caption = 'Uklju�i samo partnera sljede�eg naziva'
          TabOrder = 7
        end
      end
    end
  end
  object paStatus: TPanel
    Left = 0
    Top = 281
    Width = 490
    Height = 157
    Align = alBottom
    TabOrder = 2
    Visible = False
    object Label2: TLabel
      Left = 13
      Top = 11
      Width = 114
      Height = 13
      Caption = 'Zatvaranje u toku...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbIznosZatvaranja: TLabel
      Left = 217
      Top = 11
      Width = 84
      Height = 13
      Caption = 'lbIznosZatvaranja'
    end
    object Label1: TLabel
      Left = 140
      Top = 11
      Width = 75
      Height = 13
      Caption = 'Zatvoreni iznos:'
    end
    object lbPartner: TLabel
      Left = 69
      Top = 29
      Width = 42
      Height = 13
      Caption = 'lbPartner'
    end
    object Label3: TLabel
      Left = 14
      Top = 29
      Width = 45
      Height = 13
      Caption = 'Partneri'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 14
      Top = 70
      Width = 106
      Height = 13
      Caption = 'Ra�uni i obavijesti'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 14
      Top = 110
      Width = 38
      Height = 13
      Caption = 'Uplate'
      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 progrPartneri: TProgressBar
      Left = 14
      Top = 45
      Width = 459
      Height = 18
      Min = 0
      Max = 100
      Step = 1
      TabOrder = 1
    end
    object progrRacuni: TProgressBar
      Left = 14
      Top = 85
      Width = 459
      Height = 17
      Min = 0
      Max = 100
      Step = 1
      TabOrder = 2
    end
    object progrUplate: TProgressBar
      Left = 14
      Top = 125
      Width = 459
      Height = 17
      Min = 0
      Max = 100
      Step = 1
      TabOrder = 3
    end
  end
  object ta1DneKup: TTable
    Tag = 4
    DatabaseName = '\knjigovodstvo\data\praznegod'
    TableName = 'dnekup'
    Left = 794
    Top = 22
    object ta1DneKupKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta1DneKupDokument: TSmallintField
      FieldName = 'Dokument'
    end
    object ta1DneKupGodina: TSmallintField
      FieldName = 'Godina'
    end
    object ta1DneKupBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta1DneKupDatum: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object ta1DneKupPartner: TIntegerField
      FieldName = 'Partner'
    end
    object ta1DneKupOpisKnj: TStringField
      FieldName = 'OpisKnj'
      Size = 80
    end
    object ta1DneKupIznos: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1DneKupDatumDosp: TDateField
      FieldName = 'DatumDosp'
      EditMask = '00/00/0000'
    end
    object ta1DneKupZatvaranje: TStringField
      FieldName = 'Zatvaranje'
      Size = 30
    end
    object ta1DneKupRasknjizenRacun: TSmallintField
      FieldName = 'RasknjizenRacun'
    end
    object ta1DneKupGodinaRacuna: TSmallintField
      FieldName = 'GodinaRacuna'
    end
    object ta1DneKupBrojRacuna: TIntegerField
      FieldName = 'BrojRacuna'
    end
    object ta1DneKupNacinPlacanja: TSmallintField
      FieldName = 'NacinPlacanja'
    end
    object ta1DneKupBrojIzvoda: TIntegerField
      FieldName = 'BrojIzvoda'
    end
    object ta1DneKupBrojStorniranogKnjizenja: TIntegerField
      FieldName = 'BrojStorniranogKnjizenja'
    end
    object ta1DneKupDokumTem: TSmallintField
      FieldName = 'DokumTem'
    end
    object ta1DneKupBrojTemeljnice: TSmallintField
      FieldName = 'BrojTemeljnice'
    end
    object ta1DneKupPorez: TFloatField
      FieldName = 'Porez'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1DneKupTip_ira: TIntegerField
      FieldName = 'Tip_ira'
    end
    object ta1DneKupTip_ira_unos: TIntegerField
      FieldName = 'Tip_ira_unos'
    end
    object ta1DneKupcfPartneriNaziv: TStringField
      FieldName = 'cfPartneriNaziv'
      Size = 60
      Calculated = True
    end
    object ta1DneKupcfStorniraniDokument: TStringField
      FieldName = 'cfStorniraniDokument'
      Size = 60
      Calculated = True
    end
    object ta1DneKupcfStorniran: TStringField
      FieldName = 'cfStorniran'
      Size = 60
      Calculated = True
    end
    object ta1DneKupcfBrojIzvoda: TStringField
      DisplayWidth = 10
      FieldName = 'cfBrojIzvoda'
      Size = 60
      Calculated = True
    end
    object ta1DneKupcfBrojTemeljnice: TStringField
      FieldName = 'cfBrojTemeljnice'
      Size = 4
      Calculated = True
    end
    object ta1DneKupcfDokument: TStringField
      FieldName = 'cfDokument'
      Calculated = True
    end
    object ta1DneKupcfZatvoren: TStringField
      Alignment = taRightJustify
      FieldName = 'cfZatvoren'
      Calculated = True
    end
  end
  object ta2DneKup: TTable
    Tag = 4
    DatabaseName = '\knjigovodstvo\data\praznegod'
    TableName = 'dnekup'
    Left = 788
    Top = 78
    object ta2DneKupKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta2DneKupDokument: TSmallintField
      FieldName = 'Dokument'
    end
    object ta2DneKupGodina: TSmallintField
      FieldName = 'Godina'
    end
    object ta2DneKupBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta2DneKupDatum: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object ta2DneKupPartner: TIntegerField
      FieldName = 'Partner'
    end
    object ta2DneKupOpisKnj: TStringField
      FieldName = 'OpisKnj'
      Size = 80
    end
    object ta2DneKupIznos: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta2DneKupDatumDosp: TDateField
      FieldName = 'DatumDosp'
      EditMask = '00/00/0000'
    end
    object ta2DneKupZatvaranje: TStringField
      FieldName = 'Zatvaranje'
      Size = 30
    end
    object ta2DneKupRasknjizenRacun: TSmallintField
      FieldName = 'RasknjizenRacun'
    end
    object ta2DneKupGodinaRacuna: TSmallintField
      FieldName = 'GodinaRacuna'
    end
    object ta2DneKupBrojRacuna: TIntegerField
      FieldName = 'BrojRacuna'
    end
    object ta2DneKupNacinPlacanja: TSmallintField
      FieldName = 'NacinPlacanja'
    end
    object ta2DneKupBrojIzvoda: TIntegerField
      FieldName = 'BrojIzvoda'
    end
    object ta2DneKupBrojStorniranogKnjizenja: TIntegerField
      FieldName = 'BrojStorniranogKnjizenja'
    end
    object ta2DneKupDokumTem: TSmallintField
      FieldName = 'DokumTem'
    end
    object ta2DneKupBrojTemeljnice: TSmallintField
      FieldName = 'BrojTemeljnice'
    end
    object ta2DneKupPorez: TFloatField
      FieldName = 'Porez'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta2DneKupTip_ira: TIntegerField
      FieldName = 'Tip_ira'
    end
    object ta2DneKupTip_ira_unos: TIntegerField
      FieldName = 'Tip_ira_unos'
    end
    object ta2DneKupcfPartneriNaziv: TStringField
      FieldName = 'cfPartneriNaziv'
      Size = 60
      Calculated = True
    end
    object ta2DneKupcfStorniraniDokument: TStringField
      FieldName = 'cfStorniraniDokument'
      Size = 60
      Calculated = True
    end
    object ta2DneKupcfStorniran: TStringField
      FieldName = 'cfStorniran'
      Size = 60
      Calculated = True
    end
    object ta2DneKupcfBrojIzvoda: TStringField
      DisplayWidth = 10
      FieldName = 'cfBrojIzvoda'
      Size = 60
      Calculated = True
    end
    object ta2DneKupcfBrojTemeljnice: TStringField
      FieldName = 'cfBrojTemeljnice'
      Size = 4
      Calculated = True
    end
    object ta2DneKupcfDokument: TStringField
      FieldName = 'cfDokument'
      Calculated = True
    end
    object ta2DneKupcfZatvoren: TStringField
      Alignment = taRightJustify
      FieldName = 'cfZatvoren'
      Calculated = True
    end
  end
  object ta3DneKup: TTable
    Tag = 4
    DatabaseName = '\knjigovodstvo\data\praznegod'
    TableName = 'dnekup'
    Left = 788
    Top = 138
    object IntegerField1: TIntegerField
      FieldName = 'Knjizenje'
    end
    object SmallintField2: TSmallintField
      FieldName = 'Dokument'
    end
    object SmallintField3: TSmallintField
      FieldName = 'Godina'
    end
    object IntegerField2: TIntegerField
      FieldName = 'Broj'
    end
    object DateField1: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object IntegerField3: TIntegerField
      FieldName = 'Partner'
    end
    object StringField6: TStringField
      FieldName = 'OpisKnj'
      Size = 80
    end
    object FloatField1: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object DateField2: TDateField
      FieldName = 'DatumDosp'
      EditMask = '00/00/0000'
    end
    object StringField7: TStringField
      FieldName = 'Zatvaranje'
      Size = 30
    end
    object SmallintField4: TSmallintField
      FieldName = 'RasknjizenRacun'
    end
    object SmallintField5: TSmallintField
      FieldName = 'GodinaRacuna'
    end
    object IntegerField4: TIntegerField
      FieldName = 'BrojRacuna'
    end
    object SmallintField6: TSmallintField
      FieldName = 'NacinPlacanja'
    end
    object IntegerField5: TIntegerField
      FieldName = 'BrojIzvoda'
    end
    object IntegerField6: TIntegerField
      FieldName = 'BrojStorniranogKnjizenja'
    end
    object SmallintField7: TSmallintField
      FieldName = 'DokumTem'
    end
    object SmallintField8: TSmallintField
      FieldName = 'BrojTemeljnice'
    end
    object FloatField2: TFloatField
      FieldName = 'Porez'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object IntegerField7: TIntegerField
      FieldName = 'Tip_ira'
    end
    object IntegerField8: TIntegerField
      FieldName = 'Tip_ira_unos'
    end
    object StringField8: TStringField
      FieldName = 'cfPartneriNaziv'
      Size = 60
      Calculated = True
    end
    object StringField9: TStringField
      FieldName = 'cfStorniraniDokument'
      Size = 60
      Calculated = True
    end
    object StringField10: TStringField
      FieldName = 'cfStorniran'
      Size = 60
      Calculated = True
    end
    object StringField11: TStringField
      DisplayWidth = 10
      FieldName = 'cfBrojIzvoda'
      Size = 60
      Calculated = True
    end
    object StringField12: TStringField
      FieldName = 'cfBrojTemeljnice'
      Size = 4
      Calculated = True
    end
    object StringField13: TStringField
      FieldName = 'cfDokument'
      Calculated = True
    end
    object StringField14: TStringField
      Alignment = taRightJustify
      FieldName = 'cfZatvoren'
      Calculated = True
    end
  end
  object ta1ZatKup: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'zatkup'
    Left = 878
    Top = 27
    object ta1ZatKupRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1ZatKupKnjizenjePl: TIntegerField
      FieldName = 'KnjizenjePl'
    end
    object ta1ZatKupDokumentPl: TSmallintField
      FieldName = 'DokumentPl'
    end
    object ta1ZatKupGodinaPl: TSmallintField
      FieldName = 'GodinaPl'
    end
    object ta1ZatKupBrojPl: TIntegerField
      FieldName = 'BrojPl'
    end
    object ta1ZatKupKnjizenjeRn: TIntegerField
      FieldName = 'KnjizenjeRn'
    end
    object ta1ZatKupDokumentRn: TSmallintField
      FieldName = 'DokumentRn'
    end
    object ta1ZatKupGodinaRn: TSmallintField
      FieldName = 'GodinaRn'
    end
    object ta1ZatKupBrojRn: TIntegerField
      FieldName = 'BrojRn'
    end
    object ta1ZatKupIznos: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1ZatKupcfDokumentRn: TStringField
      FieldName = 'cfDokumentRn'
      Size = 30
      Calculated = True
    end
    object ta1ZatKupcfDokumentPl: TStringField
      FieldName = 'cfDokumentPl'
      Size = 30
      Calculated = True
    end
    object ta1ZatKupcfPartneriNaziv: TStringField
      FieldName = 'cfPartneriNaziv'
      Size = 50
      Calculated = True
    end
    object ta1ZatKupcfIznosRn: TFloatField
      FieldName = 'cfIznosRn'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object ta1ZatKupcfIznosPl: TFloatField
      FieldName = 'cfIznosPl'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
  end
  object ta1LockKup: TTable
    DatabaseName = 'praznegod'
    TableName = '_lockKup'
    Left = 877
    Top = 117
  end
  object ta1Vri_sif: TTable
    Tag = 2
    DatabaseName = 'Skupne'
    TableName = 'vri_sif.db'
    Left = 953
    Top = 120
    object ta1Vri_sifSifrarnik: TStringField
      DisplayLabel = '�ifrarnik'
      FieldName = 'Sifrarnik'
      Size = 30
    end
    object ta1Vri_sifSifra: TSmallintField
      DisplayLabel = '�ifra'
      FieldName = 'Sifra'
    end
    object ta1Vri_sifNaziv: TStringField
      FieldName = 'Naziv'
      Size = 50
    end
    object ta1Vri_sifSkr_naziv: TStringField
      DisplayLabel = 'Skra�eni naziv'
      FieldName = 'Skr_naziv'
      Size = 4
    end
    object ta1Vri_sifTip: TSmallintField
      FieldName = 'Tip'
    end
    object ta1Vri_sifKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta1Vri_sifTekst: TBlobField
      FieldName = 'Tekst'
      BlobType = ftFmtMemo
    end
    object ta1Vri_sifZasticen: TBooleanField
      FieldName = 'Zasticen'
    end
    object ta1Vri_sifcfTip: TStringField
      DisplayLabel = 'Tip dokumenta'
      FieldName = 'cfTip'
      Calculated = True
    end
  end
  object ta1Partneri: TTable
    Tag = 2
    DatabaseName = 'c:\knjigovodstvo\data\skupne'
    TableName = 'partneri'
    TableType = ttParadox
    Left = 866
    Top = 193
    object ta1PartneriSifra: TIntegerField
      DisplayLabel = '�ifra partnera'
      FieldName = 'Sifra'
    end
    object ta1PartneriNaziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object ta1PartneriPtt: TStringField
      DisplayLabel = 'Po�tanski broj'
      FieldName = 'Ptt'
      Size = 5
    end
    object ta1PartneriMjesto: TStringField
      FieldName = 'Mjesto'
      Size = 40
    end
    object ta1PartneriUlica: TStringField
      FieldName = 'Ulica'
      Size = 60
    end
    object ta1PartneriZemlja: TSmallintField
      FieldName = 'Zemlja'
    end
    object ta1PartneriDjelatnost: TSmallintField
      FieldName = 'Djelatnost'
    end
    object ta1PartneriBanka: TIntegerField
      FieldName = 'Banka'
    end
    object ta1PartneriTelefon: TStringField
      DisplayLabel = 'Telefoni i faxovi'
      FieldName = 'Telefon'
      Size = 50
    end
    object ta1PartneriOpcina: TSmallintField
      DisplayLabel = 'Op�ina'
      FieldName = 'Opcina'
    end
    object ta1PartneriMaticni_broj: TStringField
      DisplayLabel = 'Mati�ni broj ili JMBG'
      FieldName = 'Maticni_broj'
      Size = 15
    end
    object ta1PartneriZiro_racun1: TStringField
      DisplayLabel = '�iro-ra�un 1'
      FieldName = 'Ziro_racun1'
      Size = 50
    end
    object ta1PartneriZiro_racun2: TStringField
      DisplayLabel = '�iro-ra�un 2'
      FieldName = 'Ziro_racun2'
      Size = 50
    end
    object ta1PartneriRabat: TFloatField
      DisplayLabel = 'Rabat u veleprodaji'
      FieldName = 'Rabat'
      DisplayFormat = '.0000'#39' %'#39
      EditFormat = '.0000'
    end
    object ta1PartneriPorezni_obveznik: TSmallintField
      DisplayLabel = 'Porezni obveznik prema PDV-u'
      FieldName = 'Porezni_obveznik'
    end
    object ta1PartnericfPorezni_obveznik: TStringField
      FieldName = 'cfPorezni_obveznik'
      Calculated = True
    end
    object ta1PartneriMemo: TBlobField
      FieldName = 'Memo'
      BlobType = ftFmtMemo
    end
    object ta1PartneriFilter: TStringField
      FieldName = 'Filter'
      Size = 60
    end
    object ta1PartneriSifra_djelat: TStringField
      FieldName = 'Sifra_djelat'
      Size = 10
    end
    object ta1PartneriNaziv_djelat: TStringField
      FieldName = 'Naziv_djelat'
      Size = 100
    end
  end
  object ta2Zatkup: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'zatkup'
    Left = 940
    Top = 31
    object AutoIncField1: TAutoIncField
      FieldName = 'Record'
    end
    object IntegerField9: TIntegerField
      FieldName = 'KnjizenjePl'
    end
    object SmallintField1: TSmallintField
      FieldName = 'DokumentPl'
    end
    object SmallintField9: TSmallintField
      FieldName = 'GodinaPl'
    end
    object IntegerField10: TIntegerField
      FieldName = 'BrojPl'
    end
    object IntegerField11: TIntegerField
      FieldName = 'KnjizenjeRn'
    end
    object SmallintField10: TSmallintField
      FieldName = 'DokumentRn'
    end
    object SmallintField11: TSmallintField
      FieldName = 'GodinaRn'
    end
    object IntegerField12: TIntegerField
      FieldName = 'BrojRn'
    end
    object FloatField3: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object StringField1: TStringField
      FieldName = 'cfDokumentRn'
      Size = 30
      Calculated = True
    end
    object StringField2: TStringField
      FieldName = 'cfDokumentPl'
      Size = 30
      Calculated = True
    end
    object StringField3: TStringField
      FieldName = 'cfPartneriNaziv'
      Size = 50
      Calculated = True
    end
    object FloatField4: TFloatField
      FieldName = 'cfIznosRn'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object FloatField5: TFloatField
      FieldName = 'cfIznosPl'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
  end
  object ta3Zatkup: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'zatkup'
    Left = 994
    Top = 31
    object AutoIncField2: TAutoIncField
      FieldName = 'Record'
    end
    object IntegerField13: TIntegerField
      FieldName = 'KnjizenjePl'
    end
    object SmallintField12: TSmallintField
      FieldName = 'DokumentPl'
    end
    object SmallintField13: TSmallintField
      FieldName = 'GodinaPl'
    end
    object IntegerField14: TIntegerField
      FieldName = 'BrojPl'
    end
    object IntegerField15: TIntegerField
      FieldName = 'KnjizenjeRn'
    end
    object SmallintField14: TSmallintField
      FieldName = 'DokumentRn'
    end
    object SmallintField15: TSmallintField
      FieldName = 'GodinaRn'
    end
    object IntegerField16: TIntegerField
      FieldName = 'BrojRn'
    end
    object FloatField6: TFloatField
      FieldName = 'Iznos'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object StringField4: TStringField
      FieldName = 'cfDokumentRn'
      Size = 30
      Calculated = True
    end
    object StringField5: TStringField
      FieldName = 'cfDokumentPl'
      Size = 30
      Calculated = True
    end
    object StringField15: TStringField
      FieldName = 'cfPartneriNaziv'
      Size = 50
      Calculated = True
    end
    object FloatField7: TFloatField
      FieldName = 'cfIznosRn'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
    object FloatField8: TFloatField
      FieldName = 'cfIznosPl'
      DisplayFormat = ',0.00;;-'
      Calculated = True
    end
  end
  object ta3Partneri: TTable
    Tag = 2
    DatabaseName = 'c:\knjigovodstvo\data\skupne'
    TableName = 'partneri'
    TableType = ttParadox
    Left = 934
    Top = 193
    object IntegerField17: TIntegerField
      DisplayLabel = '�ifra partnera'
      FieldName = 'Sifra'
    end
    object StringField16: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
    object StringField17: TStringField
      DisplayLabel = 'Po�tanski broj'
      FieldName = 'Ptt'
      Size = 5
    end
    object StringField18: TStringField
      FieldName = 'Mjesto'
      Size = 40
    end
    object StringField19: TStringField
      FieldName = 'Ulica'
      Size = 60
    end
    object SmallintField16: TSmallintField
      FieldName = 'Zemlja'
    end
    object SmallintField17: TSmallintField
      FieldName = 'Djelatnost'
    end
    object IntegerField18: TIntegerField
      FieldName = 'Banka'
    end
    object StringField20: TStringField
      DisplayLabel = 'Telefoni i faxovi'
      FieldName = 'Telefon'
      Size = 50
    end
    object SmallintField18: TSmallintField
      DisplayLabel = 'Op�ina'
      FieldName = 'Opcina'
    end
    object StringField21: TStringField
      DisplayLabel = 'Mati�ni broj ili JMBG'
      FieldName = 'Maticni_broj'
      Size = 15
    end
    object StringField22: TStringField
      DisplayLabel = '�iro-ra�un 1'
      FieldName = 'Ziro_racun1'
      Size = 50
    end
    object StringField23: TStringField
      DisplayLabel = '�iro-ra�un 2'
      FieldName = 'Ziro_racun2'
      Size = 50
    end
    object FloatField9: TFloatField
      DisplayLabel = 'Rabat u veleprodaji'
      FieldName = 'Rabat'
      DisplayFormat = '.0000'#39' %'#39
      EditFormat = '.0000'
    end
    object SmallintField19: TSmallintField
      DisplayLabel = 'Porezni obveznik prema PDV-u'
      FieldName = 'Porezni_obveznik'
    end
    object StringField24: TStringField
      FieldName = 'cfPorezni_obveznik'
      Calculated = True
    end
    object BlobField1: TBlobField
      FieldName = 'Memo'
      BlobType = ftFmtMemo
    end
    object StringField25: TStringField
      FieldName = 'Filter'
      Size = 60
    end
    object StringField26: TStringField
      FieldName = 'Sifra_djelat'
      Size = 10
    end
    object StringField27: TStringField
      FieldName = 'Naziv_djelat'
      Size = 100
    end
  end
end