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

Text File | 1998-04-04 | 21KB | 802 lines

object fm2400900PrijenosTemRob: Tfm2400900PrijenosTemRob
  Left = 417
  Top = 259
  HelpContext = 240000002
  BorderStyle = bsDialog
  Caption = 'fm2400900PrijenosTemRob'
  ClientHeight = 329
  ClientWidth = 468
  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 Label3: TLabel
    Left = 8
    Top = 87
    Width = 79
    Height = 13
    Caption = 'Naslov izvje�taja'
  end
  object Label7: TLabel
    Left = 211
    Top = 110
    Width = 132
    Height = 13
    Caption = 'Upi�ite kriterij za ispis od do:'
  end
  object Bevel4: TBevel
    Left = 207
    Top = 115
    Width = 182
    Height = 65
  end
  object Label8: TLabel
    Left = 35
    Top = 82
    Width = 132
    Height = 13
    Caption = 'Upi�ite kriterij za ispis od do:'
  end
  object Bevel5: TBevel
    Left = 31
    Top = 87
    Width = 182
    Height = 65
  end
  object Panel3: TPanel
    Left = 0
    Top = 288
    Width = 468
    Height = 41
    Align = alBottom
    TabOrder = 0
    object bbPrijenos: TBitBtn
      Left = 5
      Top = 8
      Width = 85
      Height = 25
      Hint = 'Prijenos temeljnice u glavnu knjigu'
      Caption = 'Prijenos'
      Default = True
      TabOrder = 0
      OnClick = bbPrijenosClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object bbIzlaz: TBitBtn
      Left = 94
      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 = 371
      Top = 6
      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
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 468
    Height = 288
    ActivePage = pgObrasci
    Align = alClient
    MultiLine = True
    TabHeight = 22
    TabOrder = 1
    object pgObrasci: TTabSheet
      Caption = 'Obrasci'
      TabVisible = False
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 460
        Height = 278
        Align = alClient
        TabOrder = 0
        object Label34: TLabel
          Left = 18
          Top = 86
          Width = 229
          Height = 13
          Caption = 'Dokument glavne knjige (temeljnica) za knji�enje'
          FocusControl = edDokum
        end
        object lbGodina: TLabel
          Left = 17
          Top = 38
          Width = 196
          Height = 13
          Caption = 'Broj temeljnice za prijenos u glavnu knjigu'
        end
        object Label2: TLabel
          Left = 20
          Top = 135
          Width = 75
          Height = 13
          Caption = 'Datum knji�enja'
        end
        object Label4: TLabel
          Left = 19
          Top = 180
          Width = 65
          Height = 13
          Caption = 'Opis knji�enja'
        end
        object Label5: TLabel
          Left = 20
          Top = 228
          Width = 423
          Height = 37
          AutoSize = False
          Caption =
            'Napomena: nakon zavr�enog automatskog prijenosa provjerite u gla' +
            'vnoj knjizi da li je prijenos uspje�no proveden.'
          WordWrap = True
        end
        object lbObavijest: TLabel
          Left = 17
          Top = 6
          Width = 423
          Height = 30
          AutoSize = False
          Caption = 'lbObavijest'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object edDokum: TEdit
          Left = 18
          Top = 102
          Width = 33
          Height = 21
          Enabled = False
          ReadOnly = True
          TabOrder = 0
          Text = 'edDokum'
          OnChange = edDokumChange
        end
        object edDokumNaziv: TEdit
          Left = 57
          Top = 102
          Width = 307
          Height = 21
          TabStop = False
          Enabled = False
          ReadOnly = True
          TabOrder = 1
          Text = 'edDokumNaziv'
        end
        object edDatum: TEdit
          Left = 19
          Top = 149
          Width = 121
          Height = 21
          TabOrder = 2
          Text = 'edDatum'
        end
        object edOpis: TEdit
          Left = 19
          Top = 194
          Width = 367
          Height = 21
          TabOrder = 3
          Text = 'edOpis'
        end
        object edBrojTemeljnice: TEdit
          Left = 18
          Top = 53
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'edBrojTemeljnice'
        end
      end
    end
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 395
    Top = 368
  end
  object ta1Dnerob: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'dnerob'
    Left = 808
    Top = 164
    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 ta1Temrob: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'temrob'
    Left = 976
    Top = 324
    object ta1TemrobRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta1TemrobDokumTem: TSmallintField
      FieldName = 'DokumTem'
    end
    object ta1TemrobBrojTemeljnice: TSmallintField
      FieldName = 'BrojTemeljnice'
    end
    object ta1TemrobKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta1TemrobRedbr: TSmallintField
      FieldName = 'Redbr'
    end
    object ta1TemrobKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta1TemrobDuguje: TFloatField
      FieldName = 'Duguje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1TemrobPotrazuje: TFloatField
      FieldName = 'Potrazuje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1TemrobJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object ta1TemrobcfKontaNaziv: TStringField
      FieldName = 'cfKontaNaziv'
      Size = 100
      Calculated = True
    end
    object ta1TemrobcfJediniceNaziv: TStringField
      FieldName = 'cfJediniceNaziv'
      Size = 60
      Calculated = True
    end
  end
  object ta2Temrob: TTable
    Tag = 4
    DatabaseName = 'c:\knjigovodstvo\data\praznegod'
    TableName = 'temrob'
    Left = 976
    Top = 384
    object ta2TemrobRecord: TAutoIncField
      FieldName = 'Record'
    end
    object ta2TemrobDokumTem: TSmallintField
      FieldName = 'DokumTem'
    end
    object ta2TemrobBrojTemeljnice: TSmallintField
      FieldName = 'BrojTemeljnice'
    end
    object ta2TemrobKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta2TemrobRedbr: TSmallintField
      FieldName = 'Redbr'
    end
    object ta2TemrobKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta2TemrobDuguje: TFloatField
      FieldName = 'Duguje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta2TemrobPotrazuje: TFloatField
      FieldName = 'Potrazuje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta2TemrobJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object ta2TemrobcfKontaNaziv: TStringField
      FieldName = 'cfKontaNaziv'
      Size = 100
      Calculated = True
    end
    object ta2TemrobcfJediniceNaziv: TStringField
      FieldName = 'cfJediniceNaziv'
      Size = 60
      Calculated = True
    end
  end
  object ta1LockRob: TTable
    DatabaseName = 'praznegod'
    TableName = '_lockRob'
    Left = 833
    Top = 541
  end
  object ta1Vri_sif: TTable
    Tag = 2
    DatabaseName = 'Skupne'
    TableName = 'vri_sif.db'
    Left = 807
    Top = 334
    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 ta1Konta: TTable
    Tag = 2
    DatabaseName = 'skupne'
    TableName = 'konta.db'
    Left = 831
    Top = 422
    object ta1KontaSintetika_analitika: TStringField
      FieldName = 'Sintetika_analitika'
      Size = 1
    end
    object ta1KontaKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta1KontaNaziv: TStringField
      DisplayWidth = 100
      FieldName = 'Naziv'
      Size = 100
    end
    object ta1KontaPrihod_trosak: TSmallintField
      FieldName = 'Prihod_trosak'
    end
    object ta1KontacfKonto: TStringField
      DisplayWidth = 120
      FieldName = 'cfKonto'
      Size = 120
      Calculated = True
    end
    object ta1Kontacfsintetika_analitika: TStringField
      FieldName = 'cfsintetika_analitika'
      Calculated = True
    end
    object ta1Kontacfprihod_trosak: TStringField
      FieldName = 'cfprihod_trosak'
      Calculated = True
    end
    object ta1KontaPsDuguje: TFloatField
      FieldName = 'PsDuguje'
    end
    object ta1KontaPsPotrazuje: TFloatField
      FieldName = 'PsPotrazuje'
    end
    object ta1KontaPrDuguje: TFloatField
      FieldName = 'PrDuguje'
    end
    object ta1KontaPrPotrazuje: TFloatField
      FieldName = 'PrPotrazuje'
    end
    object ta1KontaSaDuguje: TFloatField
      FieldName = 'SaDuguje'
    end
    object ta1KontaSaPotrazuje: TFloatField
      FieldName = 'SaPotrazuje'
    end
  end
  object ta1DneGk: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'dnegk'
    Left = 899
    Top = 127
    object ta1DneGkKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta1DneGkDokument: TSmallintField
      FieldName = 'Dokument'
    end
    object ta1DneGkGodina: TSmallintField
      DisplayWidth = 4
      FieldName = 'Godina'
    end
    object ta1DneGkBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta1DneGkDatum: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object ta1DneGkcfdokument: TStringField
      DisplayWidth = 50
      FieldName = 'cfdokument'
      Size = 50
      Calculated = True
    end
    object ta1DneGkcfBroj: TStringField
      FieldName = 'cfBroj'
      Calculated = True
    end
    object ta1DneGkcfdok: TStringField
      FieldName = 'cfdok'
      Size = 5
      Calculated = True
    end
  end
  object ta1StavGk: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'stavgk'
    Left = 899
    Top = 174
    object ta1StavGkKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta1StavGkRedbr: TSmallintField
      FieldName = 'Redbr'
    end
    object ta1StavGkDatum: TDateField
      FieldName = 'Datum'
    end
    object ta1StavGkKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta1StavGkOpis: TStringField
      FieldName = 'Opis'
      Size = 80
    end
    object ta1StavGkDuguje: TFloatField
      FieldName = 'Duguje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1StavGkPotrazuje: TFloatField
      FieldName = 'Potrazuje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta1StavGkJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object ta1StavGkKd_tip: TSmallintField
      FieldName = 'Kd_tip'
    end
    object ta1StavGkKd_partner: TIntegerField
      FieldName = 'Kd_partner'
    end
    object ta1StavGkKd_zatvaranje: TStringField
      FieldName = 'Kd_zatvaranje'
      Size = 30
    end
    object ta1StavGkcfKontaNaziv: TStringField
      DisplayWidth = 120
      FieldName = 'cfKontaNaziv'
      Size = 120
      Calculated = True
    end
    object ta1StavGkcfDokument: TStringField
      DisplayWidth = 60
      FieldName = 'cfDokument'
      Size = 60
      Calculated = True
    end
    object ta1StavGkcfJediniceNaziv: TStringField
      FieldName = 'cfJediniceNaziv'
      Size = 40
      Calculated = True
    end
    object ta1StavGkcfOpis: TStringField
      FieldName = 'cfOpis'
      Size = 80
      Calculated = True
    end
  end
  object ta2DneGk: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'dnegk'
    Left = 985
    Top = 125
    object ta2DneGkKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta2DneGkDokument: TSmallintField
      FieldName = 'Dokument'
    end
    object ta2DneGkGodina: TSmallintField
      DisplayWidth = 4
      FieldName = 'Godina'
    end
    object ta2DneGkBroj: TIntegerField
      FieldName = 'Broj'
    end
    object ta2DneGkDatum: TDateField
      FieldName = 'Datum'
      EditMask = '00/00/0000'
    end
    object ta2DneGkcfdokument: TStringField
      DisplayWidth = 50
      FieldName = 'cfdokument'
      Size = 50
      Calculated = True
    end
    object ta2DneGkcfBroj: TStringField
      FieldName = 'cfBroj'
      Calculated = True
    end
    object ta2DneGkcfdok: TStringField
      FieldName = 'cfdok'
      Size = 5
      Calculated = True
    end
  end
  object ta2StavGk: TTable
    Tag = 4
    DatabaseName = 'praznegod'
    TableName = 'stavgk'
    Left = 985
    Top = 172
    object ta2StavGkKnjizenje: TIntegerField
      FieldName = 'Knjizenje'
    end
    object ta2StavGkRedbr: TSmallintField
      FieldName = 'Redbr'
    end
    object ta2StavGkDatum: TDateField
      FieldName = 'Datum'
    end
    object ta2StavGkKonto: TStringField
      FieldName = 'Konto'
      Size = 10
    end
    object ta2StavGkOpis: TStringField
      FieldName = 'Opis'
      Size = 80
    end
    object ta2StavGkDuguje: TFloatField
      FieldName = 'Duguje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta2StavGkPotrazuje: TFloatField
      FieldName = 'Potrazuje'
      DisplayFormat = ',0.00;;-'
      EditFormat = '0.00'
    end
    object ta2StavGkJedinica: TIntegerField
      FieldName = 'Jedinica'
    end
    object ta2StavGkKd_tip: TSmallintField
      FieldName = 'Kd_tip'
    end
    object ta2StavGkKd_partner: TIntegerField
      FieldName = 'Kd_partner'
    end
    object ta2StavGkKd_zatvaranje: TStringField
      FieldName = 'Kd_zatvaranje'
      Size = 30
    end
    object ta2StavGkcfKontaNaziv: TStringField
      DisplayWidth = 120
      FieldName = 'cfKontaNaziv'
      Size = 120
      Calculated = True
    end
    object ta2StavGkcfDokument: TStringField
      DisplayWidth = 60
      FieldName = 'cfDokument'
      Size = 60
      Calculated = True
    end
    object ta2StavGkcfJediniceNaziv: TStringField
      FieldName = 'cfJediniceNaziv'
      Size = 40
      Calculated = True
    end
    object ta2StavGkcfOpis: TStringField
      FieldName = 'cfOpis'
      Size = 80
      Calculated = True
    end
  end
  object ta1LockFink: TTable
    DatabaseName = 'praznegod'
    TableName = '_lockFink'
    Left = 941
    Top = 483
  end
end