home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 14
/
BUGCD1998_05.ISO
/
aplic
/
ipos
/
_setup.1
/
Knjigovodstvo.exe
/
0
/
RCDATA
/
TFM2200800DOBAVREPUPIT
/
TFM2200800DOBAVREPUPIT.txt
Wrap
Text File
|
1998-04-04
|
52KB
|
2,020 lines
object fm2200800DobavRepUpit: Tfm2200800DobavRepUpit
Left = 445
Top = 308
HelpContext = 210080000
BorderStyle = bsDialog
Caption = 'fm2200800DobavRepUpit'
ClientHeight = 428
ClientWidth = 608
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 = 359
Width = 608
Height = 69
Align = alBottom
TabOrder = 0
object Label40: TLabel
Left = 258
Top = 12
Width = 49
Height = 13
Caption = 'Broj &kopija'
FocusControl = edBrojKopija
end
object bbIspis: TBitBtn
Left = 7
Top = 7
Width = 75
Height = 25
Hint = 'Ispis izvje�taja na teku�u lokaciju'
Caption = 'Is&pis'
Default = True
TabOrder = 0
OnClick = bbIspisClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object bbPrekid: TBitBtn
Left = 6
Top = 36
Width = 75
Height = 25
Caption = 'I&zlaz'
TabOrder = 1
OnClick = bbPrekidClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object rgLokacija: TRadioGroup
Left = 96
Top = 6
Width = 153
Height = 55
Caption = ' Lokacija ispisa '
Columns = 2
ItemIndex = 0
Items.Strings = (
'Ekran'
'Pisa�, fax')
TabOrder = 2
end
object bbPromjenaPisaca: TBitBtn
Left = 342
Top = 24
Width = 167
Height = 25
Caption = 'Promjena pisa�a'
TabOrder = 3
OnClick = bbPromjenaPisacaClick
end
object upDownBrojKopija: TUpDown
Left = 324
Top = 26
Width = 15
Height = 21
Associate = edBrojKopija
Min = 1
Max = 1000
Position = 1
TabOrder = 4
Thousands = False
Wrap = False
end
object edBrojKopija: TEdit
Left = 258
Top = 26
Width = 66
Height = 21
TabOrder = 5
Text = '1'
end
end
object PageControl: TPageControl
Left = 0
Top = 0
Width = 608
Height = 359
ActivePage = pgTemSpec
Align = alClient
MultiLine = True
TabHeight = 22
TabOrder = 1
OnChange = PageControlChange
object pgDnevnik: TTabSheet
HelpContext = 210080001
Caption = ' Dnevnik '
object ScrollBox2: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
Align = alClient
TabOrder = 0
object Bevel9: TBevel
Left = 8
Top = 144
Width = 403
Height = 125
Style = bsRaised
end
object Bevel6: TBevel
Left = 215
Top = 191
Width = 186
Height = 66
end
object Bevel1: TBevel
Left = 18
Top = 191
Width = 191
Height = 65
end
object Label2: TLabel
Left = 22
Top = 185
Width = 76
Height = 13
Caption = 'Od do knji�enja:'
end
object Label1: TLabel
Left = 7
Top = 278
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Label9: TLabel
Left = 222
Top = 185
Width = 70
Height = 13
Caption = 'Od do datuma:'
end
object Label12: TLabel
Left = 14
Top = 138
Width = 102
Height = 13
Caption = 'Upi�ite kriterij za ispis:'
end
object rgRedoslijedDnevnik: TRadioGroup
Left = 7
Top = 5
Width = 192
Height = 61
Caption = 'Redoslijed ispisa po'
ItemIndex = 1
Items.Strings = (
'knji�enju'
'datumu')
TabOrder = 0
end
object edNaslovDnevnik: TEdit
Left = 7
Top = 293
Width = 255
Height = 21
TabOrder = 10
Text = 'edNaslovDnevnik'
end
object edDoDnevnikDatum: TEdit
Left = 224
Top = 229
Width = 121
Height = 21
TabOrder = 9
Text = 'edDoDnevnikDatum'
end
object edOdDnevnikDatum: TEdit
Left = 224
Top = 204
Width = 121
Height = 21
TabOrder = 8
Text = 'edOdDnevnikDatum'
end
object edOdDnevnikKnjizenje: TEdit
Left = 24
Top = 204
Width = 121
Height = 21
TabOrder = 6
Text = 'edOdDnevnikKnjizenje'
end
object edDoDnevnikKnjizenje: TEdit
Left = 24
Top = 229
Width = 121
Height = 21
TabOrder = 7
Text = 'edDoDnevnikKnjizenje'
end
object edDnevnikDokument: TEdit
Left = 11
Top = 102
Width = 63
Height = 21
TabOrder = 2
Text = 'edDnevnikDokument'
OnChange = edDnevnikDokumentChange
OnKeyPress = edDnevnikDokumentKeyPress
end
object btDnevnikDokument: TButton
Left = 80
Top = 105
Width = 15
Height = 15
Caption = '...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial CE'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
TabStop = False
OnClick = btDnevnikDokumentClick
end
object edDnevnikNazivDokumenta: TEdit
Left = 99
Top = 102
Width = 311
Height = 21
TabStop = False
ReadOnly = True
TabOrder = 4
Text = 'edDnevnikNazivDokumenta'
end
object cbDnevnikDokument: TCheckBox
Left = 11
Top = 81
Width = 240
Height = 17
Caption = 'U izvje�taj uklju�i samo navedeni dokument'
TabOrder = 1
end
object cbDnevnikSvi: TCheckBox
Left = 18
Top = 161
Width = 161
Height = 17
Caption = 'Uklju�i sva knji�enja u ispis'
State = cbChecked
TabOrder = 5
end
end
end
object pgKartice: TTabSheet
HelpContext = 210080002
Caption = ' Kartice '
object ScrollBox3: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
Align = alClient
TabOrder = 0
object Bevel8: TBevel
Left = 204
Top = 191
Width = 314
Height = 117
Style = bsRaised
end
object Bevel7: TBevel
Left = 363
Top = 230
Width = 143
Height = 72
end
object Label4: TLabel
Left = 12
Top = 368
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Bevel3: TBevel
Left = 212
Top = 230
Width = 143
Height = 71
end
object Label6: TLabel
Left = 218
Top = 225
Width = 76
Height = 13
Caption = 'Od do knji�enja:'
end
object Label10: TLabel
Left = 368
Top = 225
Width = 70
Height = 13
Caption = 'Od do datuma:'
end
object Label11: TLabel
Left = 210
Top = 186
Width = 102
Height = 13
Caption = 'Upi�ite kriterij za ispis:'
end
object Bevel23: TBevel
Left = 208
Top = 14
Width = 310
Height = 106
Style = bsRaised
end
object Bevel24: TBevel
Left = 216
Top = 45
Width = 142
Height = 63
end
object Label36: TLabel
Left = 222
Top = 38
Width = 115
Height = 13
Caption = 'Ispis partnera od do �ifre'
end
object Bevel25: TBevel
Left = 366
Top = 45
Width = 141
Height = 64
end
object Label37: TLabel
Left = 372
Top = 36
Width = 127
Height = 13
Caption = 'Ispis partnera od do naziva'
end
object Bevel2: TBevel
Left = 10
Top = 126
Width = 506
Height = 48
end
object lbKarticeParNaziv: TLabel
Left = 33
Top = 154
Width = 478
Height = 13
AutoSize = False
Caption = 'lbKarticeParNaziv'
end
object rgRedoslijedKarticeStav: TRadioGroup
Left = 10
Top = 188
Width = 186
Height = 67
Caption = 'Redoslijed ispisa stavaka kartica po'
ItemIndex = 1
Items.Strings = (
'rednom broju knji�enja'
'datumu dokumenta')
TabOrder = 9
end
object edNaslovKartice: TEdit
Left = 11
Top = 383
Width = 229
Height = 21
TabOrder = 19
Text = 'edNaslovKartice'
end
object edDoKarticeKnjizenje: TEdit
Left = 218
Top = 274
Width = 121
Height = 21
TabOrder = 12
Text = 'edDoKarticeKnjizenje'
end
object edOdKarticeKnjizenje: TEdit
Left = 218
Top = 246
Width = 121
Height = 21
TabOrder = 11
Text = 'edOdKarticeKnjizenje'
end
object edOdKarticeDatum: TEdit
Left = 371
Top = 247
Width = 121
Height = 21
TabOrder = 13
Text = 'edOdKarticeDatum'
end
object edDoKarticeDatum: TEdit
Left = 372
Top = 273
Width = 121
Height = 21
TabOrder = 14
Text = 'edDoKarticeDatum'
end
object cbKarticeNovaStrana: TCheckBox
Left = 8
Top = 88
Width = 168
Height = 24
Caption = 'Svaka kartica na novoj strani'
State = cbChecked
TabOrder = 6
end
object cbKarticeStavSvi: TCheckBox
Left = 211
Top = 206
Width = 164
Height = 17
Caption = 'Uklju�i sva knji�enja u ispis'
State = cbChecked
TabOrder = 10
end
object rgRedoslijedKarticePar: TRadioGroup
Left = 5
Top = 9
Width = 192
Height = 70
Caption = 'Redoslijed ispisa kartica po'
ItemIndex = 0
Items.Strings = (
'abecedi'
'�ifri partnera')
TabOrder = 0
end
object edOdKarticeParSifra: TEdit
Left = 225
Top = 56
Width = 121
Height = 21
TabOrder = 2
Text = 'edOdKarticeParSifra'
end
object edDoKarticeParSifra: TEdit
Left = 225
Top = 81
Width = 121
Height = 21
TabOrder = 3
Text = 'edDoKarticeParSifra'
end
object cbKarticeParSvi: TCheckBox
Left = 214
Top = 21
Width = 183
Height = 17
Caption = 'Ispis svih partnera (kartica)'
State = cbChecked
TabOrder = 1
end
object edOdKarticeParAbec: TEdit
Left = 375
Top = 56
Width = 121
Height = 21
TabOrder = 4
Text = 'edOdKarticeParAbec'
end
object edDoKarticeParAbec: TEdit
Left = 375
Top = 81
Width = 121
Height = 21
TabOrder = 5
Text = 'edDoKarticeParAbec'
end
object cbKarticeParNaziv: TCheckBox
Left = 14
Top = 131
Width = 209
Height = 17
Caption = 'Uklju�i samo partnera sljede�eg naziva'
TabOrder = 7
end
object edKarticeParNaziv: TEdit
Left = 222
Top = 130
Width = 288
Height = 21
CharCase = ecLowerCase
TabOrder = 8
Text = 'edkarticeparnaziv'
OnChange = edKarticeParNazivChange
end
object edKarticeDokument: TEdit
Left = 11
Top = 338
Width = 63
Height = 21
TabOrder = 15
Text = 'edKarticeDokument'
OnChange = edKarticeDokumentChange
OnKeyPress = edDnevnikDokumentKeyPress
end
object btKarticeDokument: TButton
Left = 80
Top = 340
Width = 15
Height = 15
Caption = '...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial CE'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 17
TabStop = False
OnClick = btKarticeDokumentClick
end
object edKarticeNazivDokumenta: TEdit
Left = 99
Top = 338
Width = 311
Height = 21
TabStop = False
ReadOnly = True
TabOrder = 18
Text = 'edKarticeNazivDokumenta'
end
object cbKarticeDokument: TCheckBox
Left = 11
Top = 317
Width = 240
Height = 17
Caption = 'U izvje�taj uklju�i samo navedeni dokument'
TabOrder = 16
end
end
end
object pgPrometi: TTabSheet
HelpContext = 210080003
Caption = ' Prometi i salda kartica '
object ScrollBox1: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
Align = alClient
TabOrder = 0
object Bevel11: TBevel
Left = 204
Top = 187
Width = 314
Height = 117
Style = bsRaised
end
object Bevel12: TBevel
Left = 363
Top = 226
Width = 143
Height = 72
end
object Label5: TLabel
Left = 12
Top = 368
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Bevel26: TBevel
Left = 212
Top = 226
Width = 143
Height = 71
end
object Label13: TLabel
Left = 218
Top = 221
Width = 76
Height = 13
Caption = 'Od do knji�enja:'
end
object Label14: TLabel
Left = 368
Top = 221
Width = 70
Height = 13
Caption = 'Od do datuma:'
end
object Label16: TLabel
Left = 210
Top = 182
Width = 102
Height = 13
Caption = 'Upi�ite kriterij za ispis:'
end
object Bevel27: TBevel
Left = 208
Top = 14
Width = 310
Height = 106
Style = bsRaised
end
object Bevel28: TBevel
Left = 216
Top = 45
Width = 142
Height = 63
end
object Label17: TLabel
Left = 222
Top = 38
Width = 115
Height = 13
Caption = 'Ispis partnera od do �ifre'
end
object Bevel29: TBevel
Left = 366
Top = 45
Width = 141
Height = 64
end
object Label38: TLabel
Left = 372
Top = 36
Width = 127
Height = 13
Caption = 'Ispis partnera od do naziva'
end
object Bevel30: TBevel
Left = 10
Top = 126
Width = 506
Height = 50
end
object lbPrometiParNaziv: TLabel
Left = 34
Top = 157
Width = 476
Height = 13
AutoSize = False
Caption = 'lbPrometiParNaziv'
end
object rgRedoslijedPrometiStav: TRadioGroup
Left = 10
Top = 184
Width = 186
Height = 67
Caption = 'Tip filtera za uklju�ivanje stavaka'
ItemIndex = 1
Items.Strings = (
'redni broj knji�enja'
'datum dokumenta')
TabOrder = 0
end
object edNaslovPrometi: TEdit
Left = 11
Top = 383
Width = 229
Height = 21
TabOrder = 1
Text = 'edNaslovPrometi'
end
object edDoPrometiKnjizenje: TEdit
Left = 218
Top = 270
Width = 121
Height = 21
TabOrder = 2
Text = 'edDoPrometiKnjizenje'
end
object edOdPrometiKnjizenje: TEdit
Left = 218
Top = 242
Width = 121
Height = 21
TabOrder = 3
Text = 'edOdPrometiKnjizenje'
end
object edOdPrometiDatum: TEdit
Left = 371
Top = 243
Width = 121
Height = 21
TabOrder = 4
Text = 'edOdPrometiDatum'
end
object edDoPrometiDatum: TEdit
Left = 372
Top = 269
Width = 121
Height = 21
TabOrder = 5
Text = 'edDoPrometiDatum'
end
object cbPrometiStavSvi: TCheckBox
Left = 211
Top = 202
Width = 164
Height = 17
Caption = 'Uklju�i sva knji�enja u ispis'
State = cbChecked
TabOrder = 6
end
object rgRedoslijedPrometiPar: TRadioGroup
Left = 5
Top = 9
Width = 192
Height = 70
Caption = 'Redoslijed ispisa kartica po'
ItemIndex = 0
Items.Strings = (
'abecedi'
'�ifri partnera')
TabOrder = 7
end
object edOdPrometiParSifra: TEdit
Left = 225
Top = 56
Width = 121
Height = 21
TabOrder = 8
Text = 'edOdPrometiParSifra'
end
object edDoPrometiParSifra: TEdit
Left = 225
Top = 81
Width = 121
Height = 21
TabOrder = 9
Text = 'edDoPrometiParSifra'
end
object cbPrometiParSvi: TCheckBox
Left = 214
Top = 21
Width = 183
Height = 17
Caption = 'Ispis svih partnera (kartica)'
State = cbChecked
TabOrder = 10
end
object edOdPrometiParAbec: TEdit
Left = 375
Top = 56
Width = 121
Height = 21
TabOrder = 11
Text = 'edOdPrometiParAbec'
end
object edDoPrometiParAbec: TEdit
Left = 375
Top = 81
Width = 121
Height = 21
TabOrder = 12
Text = 'edDoPrometiParAbec'
end
object cbPrometiParNaziv: TCheckBox
Left = 14
Top = 134
Width = 210
Height = 17
Caption = 'Uklju�i samo partnera sljede�eg naziva'
TabOrder = 13
end
object edPrometiParNaziv: TEdit
Left = 230
Top = 131
Width = 279
Height = 21
TabOrder = 14
Text = 'edPrometiParNaziv'
OnChange = edPrometiParNazivChange
end
object edPrometiDokument: TEdit
Left = 11
Top = 332
Width = 63
Height = 21
TabOrder = 15
Text = 'edPrometiDokument'
OnChange = edPrometiDokumentChange
OnKeyPress = edDnevnikDokumentKeyPress
end
object btPrometiDokument: TButton
Left = 80
Top = 337
Width = 15
Height = 15
Caption = '...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial CE'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 16
TabStop = False
OnClick = btPrometiDokumentClick
end
object edPrometiNazivDokumenta: TEdit
Left = 99
Top = 334
Width = 311
Height = 21
TabStop = False
ReadOnly = True
TabOrder = 17
Text = 'edPrometiNazivDokumenta'
end
object cbPrometiDokument: TCheckBox
Left = 11
Top = 313
Width = 240
Height = 17
Caption = 'U izvje�taj uklju�i samo navedeni dokument'
TabOrder = 18
end
end
end
object pgTemRek: TTabSheet
HelpContext = 210080004
Caption = 'Temeljnice ra�una'
object ScrollBox4: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
Align = alClient
TabOrder = 0
object Bevel10: TBevel
Left = 11
Top = 13
Width = 331
Height = 135
end
object Label15: TLabel
Left = 24
Top = 97
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Label18: TLabel
Left = 24
Top = 39
Width = 139
Height = 13
Caption = 'Upi�ite broj temeljnice za ispis'
end
object edNaslovTemrek: TEdit
Left = 25
Top = 112
Width = 302
Height = 21
TabOrder = 0
Text = 'edNaslovTemrek'
end
object edTemrekBroj: TEdit
Left = 24
Top = 56
Width = 121
Height = 21
TabOrder = 1
Text = 'edTemrekBroj'
end
end
end
object pgTemSpec: TTabSheet
HelpContext = 210080005
Caption = 'Specifikacija temeljnice ra�una'
object ScrollBox5: TScrollBox
Left = 0
Top = 0
Width = 600
Height = 305
Align = alClient
TabOrder = 0
object Bevel13: TBevel
Left = 11
Top = 13
Width = 331
Height = 135
end
object Label19: TLabel
Left = 24
Top = 97
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Label20: TLabel
Left = 24
Top = 39
Width = 139
Height = 13
Caption = 'Upi�ite broj temeljnice za ispis'
end
object edNaslovTemspec: TEdit
Left = 25
Top = 112
Width = 302
Height = 21
TabOrder = 0
Text = 'edNaslovTemspec'
end
object edTemspecBroj: TEdit
Left = 24
Top = 56
Width = 121
Height = 21
TabOrder = 1
Text = 'edTemspecBroj'
end
end
end
object pgKontoSpec: TTabSheet
HelpContext = 210080006
Caption = 'Specifikacije dokumenata po kontima'
object ScrollBox6: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
Align = alClient
TabOrder = 0
object Bevel16: TBevel
Left = 13
Top = 16
Width = 434
Height = 86
Style = bsRaised
end
object Bevel14: TBevel
Left = 14
Top = 124
Width = 235
Height = 81
Style = bsRaised
end
object Label22: TLabel
Left = 14
Top = 242
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Label24: TLabel
Left = 20
Top = 118
Width = 156
Height = 13
Caption = 'Uklju�i dokumente od do datuma'
end
object Label21: TLabel
Left = 20
Top = 12
Width = 137
Height = 13
Caption = 'Upi�ite konto za specifikaciju'
end
object Label25: TLabel
Left = 29
Top = 59
Width = 6
Height = 13
Caption = 'ili'
end
object edNaslovKontospec: TEdit
Left = 14
Top = 257
Width = 255
Height = 21
TabOrder = 6
Text = 'edNaslovKontospec'
end
object edDoKontospecDatum: TEdit
Left = 29
Top = 169
Width = 121
Height = 21
TabOrder = 5
Text = 'edDoKontospecDatum'
end
object edOdKontospecDatum: TEdit
Left = 29
Top = 141
Width = 121
Height = 21
TabOrder = 4
Text = 'edOdKontospecDatum'
end
object edKontospecKonto: TEdit
Left = 27
Top = 32
Width = 109
Height = 21
TabOrder = 0
Text = 'edKontospecKonto'
OnChange = edKontospecKontoChange
OnKeyPress = edKontospecKontoKeyPress
end
object cbKontospecSvakonta: TCheckBox
Left = 29
Top = 77
Width = 346
Height = 17
Caption = 'Specifikacija za sva konta koja su imala knji�enja'
State = cbChecked
TabOrder = 3
end
object edKontospecNazivkonta: TEdit
Left = 160
Top = 32
Width = 270
Height = 21
Color = clBtnFace
ReadOnly = True
TabOrder = 2
Text = 'edKontospecNazivkonta'
end
object btKontospecKonto: TButton
Left = 140
Top = 35
Width = 15
Height = 15
Caption = '...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial CE'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
TabStop = False
OnClick = btKontospecKontoClick
end
object cbKontospecSamoRekap: TCheckBox
Left = 13
Top = 218
Width = 347
Height = 17
Caption = 'U izvje�taj uklju�i samo ukupni iznos za konto bez dokumenata'
TabOrder = 7
end
end
end
object pgZatOtv: TTabSheet
HelpContext = 210080007
Caption = 'Kartice zatvaranja'
object ScrollBox7: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
VertScrollBar.Margin = 10
Align = alClient
TabOrder = 0
object Bevel15: TBevel
Left = 9
Top = 190
Width = 190
Height = 68
Style = bsRaised
end
object Label23: TLabel
Left = 10
Top = 265
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Label28: TLabel
Left = 13
Top = 185
Width = 127
Height = 13
Caption = 'Uklju�i dokumente na dan:'
end
object Bevel19: TBevel
Left = 208
Top = 14
Width = 310
Height = 106
Style = bsRaised
end
object Bevel20: TBevel
Left = 216
Top = 45
Width = 142
Height = 63
end
object Label29: TLabel
Left = 222
Top = 38
Width = 115
Height = 13
Caption = 'Ispis partnera od do �ifre'
end
object Bevel21: TBevel
Left = 366
Top = 45
Width = 141
Height = 64
end
object Label30: TLabel
Left = 372
Top = 36
Width = 127
Height = 13
Caption = 'Ispis partnera od do naziva'
end
object Bevel22: TBevel
Left = 10
Top = 126
Width = 506
Height = 48
end
object lbZatotvParNaziv: TLabel
Left = 33
Top = 154
Width = 478
Height = 13
AutoSize = False
Caption = 'lbZatotvParNaziv'
end
object Bevel17: TBevel
Left = 211
Top = 185
Width = 305
Height = 33
end
object edNaslovZatotv: TEdit
Left = 9
Top = 280
Width = 384
Height = 21
TabOrder = 11
Text = 'edNaslovZatotv'
end
object edDoZatotvDatum: TEdit
Left = 22
Top = 226
Width = 121
Height = 21
TabOrder = 10
Text = 'edDoZatotvDatum'
end
object cbZatotvNovaStrana: TCheckBox
Left = 8
Top = 88
Width = 168
Height = 24
Caption = 'Svaka kartica na novoj strani'
State = cbChecked
TabOrder = 6
end
object cbZatotvStavSvi: TCheckBox
Left = 22
Top = 203
Width = 164
Height = 17
Caption = 'Uklju�i sve dokumente u ispis'
State = cbChecked
TabOrder = 9
end
object rgRedoslijedZatotvPar: TRadioGroup
Left = 5
Top = 9
Width = 192
Height = 70
Caption = 'Redoslijed kartica zatvaranja po'
ItemIndex = 0
Items.Strings = (
'abecedi'
'�ifri partnera')
TabOrder = 0
end
object edOdZatotvParSifra: TEdit
Left = 225
Top = 56
Width = 121
Height = 21
TabOrder = 2
Text = 'edOdZatotvParSifra'
end
object edDoZatotvParSifra: TEdit
Left = 224
Top = 81
Width = 121
Height = 21
TabOrder = 3
Text = 'edDoZatotvParSifra'
end
object cbZatotvParSvi: TCheckBox
Left = 214
Top = 21
Width = 183
Height = 17
Caption = 'Ispis svih partnera (kartica)'
State = cbChecked
TabOrder = 1
end
object edOdZatotvParAbec: TEdit
Left = 375
Top = 56
Width = 121
Height = 21
TabOrder = 4
Text = 'edOdZatotvParAbec'
end
object edDoZatotvParAbec: TEdit
Left = 375
Top = 81
Width = 121
Height = 21
TabOrder = 5
Text = 'edDoZatotvParAbec'
end
object cbZatotvParNaziv: TCheckBox
Left = 14
Top = 131
Width = 209
Height = 17
Caption = 'Uklju�i samo partnera sljede�eg naziva'
TabOrder = 7
end
object edZatotvParNaziv: TEdit
Left = 222
Top = 130
Width = 288
Height = 21
CharCase = ecLowerCase
TabOrder = 8
Text = 'edzatotvparnaziv'
OnChange = edZatotvParNazivChange
end
object cbZatotvZatvorene: TCheckBox
Left = 220
Top = 192
Width = 295
Height = 17
Caption = 'U ispis uklju�i i zatvorene i otvorene stavke'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
OnClick = cbZatotvZatvoreneClick
end
end
end
object pgRocnost: TTabSheet
HelpContext = 210080008
Caption = 'Rokovi dospje�a pla�anja'
object ScrollBox8: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
VertScrollBar.Margin = 10
Align = alClient
TabOrder = 0
object Bevel18: TBevel
Left = 9
Top = 190
Width = 219
Height = 43
Style = bsRaised
end
object Label26: TLabel
Left = 9
Top = 293
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Label27: TLabel
Left = 13
Top = 185
Width = 119
Height = 13
Caption = 'Rokovi dospje�a na dan:'
end
object Bevel31: TBevel
Left = 208
Top = 14
Width = 310
Height = 106
Style = bsRaised
end
object Bevel32: TBevel
Left = 216
Top = 45
Width = 142
Height = 63
end
object Label31: TLabel
Left = 222
Top = 38
Width = 115
Height = 13
Caption = 'Ispis partnera od do �ifre'
end
object Bevel33: TBevel
Left = 366
Top = 45
Width = 141
Height = 64
end
object Label32: TLabel
Left = 372
Top = 36
Width = 127
Height = 13
Caption = 'Ispis partnera od do naziva'
end
object Bevel34: TBevel
Left = 10
Top = 126
Width = 506
Height = 48
end
object lbRocnostParNaziv: TLabel
Left = 33
Top = 154
Width = 478
Height = 13
AutoSize = False
Caption = 'lbRocnostParNaziv'
end
object edNaslovRocnost: TEdit
Left = 8
Top = 308
Width = 315
Height = 21
TabOrder = 10
Text = 'edNaslovRocnost'
end
object edRocnostDatum: TEdit
Left = 15
Top = 203
Width = 121
Height = 21
TabOrder = 9
Text = 'edRocnostDatum'
end
object cbRocnostNovaStrana: TCheckBox
Left = 8
Top = 88
Width = 168
Height = 24
Caption = 'Svaki partner na novoj strani'
State = cbChecked
TabOrder = 6
end
object rgRedoslijedRocnostPar: TRadioGroup
Left = 5
Top = 9
Width = 192
Height = 70
Caption = 'Redoslijed ispisa partnera po'
ItemIndex = 0
Items.Strings = (
'abecedi'
'�ifri partnera')
TabOrder = 0
end
object edOdRocnostParSifra: TEdit
Left = 224
Top = 56
Width = 121
Height = 21
TabOrder = 2
Text = 'edOdRocnostParSifra'
end
object edDoRocnostParSifra: TEdit
Left = 224
Top = 81
Width = 121
Height = 21
TabOrder = 3
Text = 'edDoRocnostParSifra'
end
object cbRocnostParSvi: TCheckBox
Left = 214
Top = 21
Width = 183
Height = 17
Caption = 'Ispis svih partnera (kartica)'
State = cbChecked
TabOrder = 1
end
object edOdRocnostParAbec: TEdit
Left = 375
Top = 56
Width = 121
Height = 21
TabOrder = 4
Text = 'edOdRocnostParAbec'
end
object edDoRocnostParAbec: TEdit
Left = 375
Top = 81
Width = 121
Height = 21
TabOrder = 5
Text = 'edDoRocnostParAbec'
end
object cbRocnostParNaziv: TCheckBox
Left = 14
Top = 131
Width = 209
Height = 17
Caption = 'Uklju�i samo partnera sljede�eg naziva'
TabOrder = 7
end
object edRocnostParNaziv: TEdit
Left = 222
Top = 130
Width = 288
Height = 21
CharCase = ecLowerCase
TabOrder = 8
Text = 'edrocnostparnaziv'
OnChange = edRocnostParNazivChange
end
end
end
object pgZatizv: TTabSheet
HelpContext = 210080009
Caption = 'Izvod otvorenih stavaka'
object ScrollBox9: TScrollBox
Left = 0
Top = 0
Width = 554
Height = 257
VertScrollBar.Margin = 10
Align = alClient
TabOrder = 0
object Bevel35: TBevel
Left = 9
Top = 183
Width = 276
Height = 45
end
object Label33: TLabel
Left = 11
Top = 234
Width = 79
Height = 13
Caption = 'Naslov izvje�taja'
end
object Label34: TLabel
Left = 16
Top = 199
Width = 118
Height = 13
Caption = 'Otvorene stavke na dan:'
end
object Bevel36: TBevel
Left = 208
Top = 14
Width = 310
Height = 106
Style = bsRaised
end
object Bevel37: TBevel
Left = 216
Top = 45
Width = 142
Height = 63
end
object Label35: TLabel
Left = 222
Top = 38
Width = 115
Height = 13
Caption = 'Ispis partnera od do �ifre'
end
object Bevel38: TBevel
Left = 366
Top = 45
Width = 141
Height = 64
end
object Label39: TLabel
Left = 372
Top = 36
Width = 127
Height = 13
Caption = 'Ispis partnera od do naziva'
end
object Bevel39: TBevel
Left = 10
Top = 126
Width = 506
Height = 48
end
object lbZatizvParNaziv: TLabel
Left = 33
Top = 154
Width = 478
Height = 13
AutoSize = False
Caption = 'lbZatizvParNaziv'
end
object edNaslovZatizv: TEdit
Left = 10
Top = 250
Width = 384
Height = 21
TabOrder = 9
Text = 'edNaslovZatizv'
end
object edDoZatizvDatum: TEdit
Left = 150
Top = 195
Width = 121
Height = 21
TabOrder = 8
Text = 'edDoZatizvDatum'
end
object rgRedoslijedZatizvPar: TRadioGroup
Left = 5
Top = 9
Width = 192
Height = 70
Caption = 'Redoslijed dokumenata po:'
ItemIndex = 0
Items.Strings = (
'abecedi'
'�ifri partnera')
TabOrder = 0
end
object edOdZatizvParSifra: TEdit
Left = 225
Top = 56
Width = 121
Height = 21
TabOrder = 2
Text = 'edOdZatizvParSifra'
end
object edDoZatizvParSifra: TEdit
Left = 224
Top = 81
Width = 121
Height = 21
TabOrder = 3
Text = 'edDoZatizvParSifra'
end
object cbZatizvParSvi: TCheckBox
Left = 214
Top = 21
Width = 183
Height = 17
Caption = 'Ispis svih partnera '
State = cbChecked
TabOrder = 1
end
object edOdZatizvParAbec: TEdit
Left = 375
Top = 56
Width = 121
Height = 21
TabOrder = 4
Text = 'edOdZatizvParAbec'
end
object edDoZatizvParAbec: TEdit
Left = 375
Top = 81
Width = 121
Height = 21
TabOrder = 5
Text = 'edDoZatizvParAbec'
end
object cbZatizvParNaziv: TCheckBox
Left = 14
Top = 131
Width = 209
Height = 17
Caption = 'Uklju�i samo partnera sljede�eg naziva'
TabOrder = 6
end
object edzatizvparnaziv: TEdit
Left = 222
Top = 130
Width = 288
Height = 21
CharCase = ecLowerCase
TabOrder = 7
Text = 'edzatizvparnaziv'
OnChange = edzatizvparnazivChange
end
object bbPromjenaTeksta: TBitBtn
Left = 296
Top = 183
Width = 197
Height = 25
Caption = 'Promjena tekstova na dokumentu'
TabOrder = 10
OnClick = bbPromjenaTekstaClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF
FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9
FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF
FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF
FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
C880733777777777733700000000000000007777777777777777333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
end
end
object PrinterSetupDialog: TPrinterSetupDialog
Left = 474
Top = 474
end
object ta9Vri_sif: TTable
Tag = 2
DatabaseName = 'Skupne'
TableName = 'vri_sif.db'
Left = 893
Top = 126
object ta9Vri_sifSifrarnik: TStringField
DisplayLabel = '�ifrarnik'
FieldName = 'Sifrarnik'
Size = 30
end
object ta9Vri_sifSifra: TSmallintField
DisplayLabel = '�ifra'
FieldName = 'Sifra'
end
object ta9Vri_sifNaziv: TStringField
FieldName = 'Naziv'
Size = 50
end
object ta9Vri_sifSkr_naziv: TStringField
DisplayLabel = 'Skra�eni naziv'
FieldName = 'Skr_naziv'
Size = 4
end
object ta9Vri_sifTip: TSmallintField
FieldName = 'Tip'
end
object ta9Vri_sifKonto: TStringField
FieldName = 'Konto'
Size = 10
end
object ta9Vri_sifTekst: TBlobField
FieldName = 'Tekst'
BlobType = ftFmtMemo
end
object ta9Vri_sifZasticen: TBooleanField
FieldName = 'Zasticen'
end
object ta9Vri_sifcfTip: TStringField
DisplayLabel = 'Tip dokumenta'
FieldName = 'cfTip'
Calculated = True
end
end
object ta9Konta: TTable
Tag = 2
DatabaseName = 'skupne'
TableName = 'konta.db'
Left = 887
Top = 270
object ta9KontaSintetika_analitika: TStringField
FieldName = 'Sintetika_analitika'
Size = 1
end
object ta9KontaKonto: TStringField
FieldName = 'Konto'
Size = 10
end
object ta9KontaNaziv: TStringField
DisplayWidth = 100
FieldName = 'Naziv'
Size = 100
end
object ta9KontaPrihod_trosak: TSmallintField
FieldName = 'Prihod_trosak'
end
object ta9KontacfKonto: TStringField
DisplayWidth = 120
FieldName = 'cfKonto'
Size = 120
Calculated = True
end
object ta9Kontacfsintetika_analitika: TStringField
FieldName = 'cfsintetika_analitika'
Calculated = True
end
object ta9Kontacfprihod_trosak: TStringField
FieldName = 'cfprihod_trosak'
Calculated = True
end
object ta9KontaPsDuguje: TFloatField
FieldName = 'PsDuguje'
end
object ta9KontaPsPotrazuje: TFloatField
FieldName = 'PsPotrazuje'
end
object ta9KontaPrDuguje: TFloatField
FieldName = 'PrDuguje'
end
object ta9KontaPrPotrazuje: TFloatField
FieldName = 'PrPotrazuje'
end
object ta9KontaSaDuguje: TFloatField
FieldName = 'SaDuguje'
end
object ta9KontaSaPotrazuje: TFloatField
FieldName = 'SaPotrazuje'
end
end
object ta9Tecaj: TTable
Tag = 2
DatabaseName = 'skupne'
TableName = 'tecaj'
Left = 894
Top = 323
object ta9TecajTecaj: TSmallintField
FieldName = 'Tecaj'
end
object ta9TecajValuta: TSmallintField
FieldName = 'Valuta'
end
object ta9TecajDatum: TDateField
FieldName = 'Datum'
end
object ta9TecajIznos_valute: TSmallintField
FieldName = 'Iznos_valute'
end
object ta9TecajIznos_tecaja: TCurrencyField
FieldName = 'Iznos_tecaja'
DisplayFormat = ',0.0000'
EditFormat = ',0.0000'
Currency = False
end
object ta9TecajcfTecaj: TStringField
DisplayWidth = 50
FieldName = 'cfTecaj'
Size = 50
Calculated = True
end
object ta9TecajcfValuta: TStringField
FieldName = 'cfValuta'
Calculated = True
end
end
object ta9Partneri: TTable
Tag = 2
DatabaseName = 'c:\knjigovodstvo\data\skupne'
TableName = 'partneri'
TableType = ttParadox
Left = 890
Top = 193
object ta9PartneriSifra: TIntegerField
DisplayLabel = '�ifra partnera'
FieldName = 'Sifra'
end
object ta9PartneriNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object ta9PartneriPtt: TStringField
DisplayLabel = 'Po�tanski broj'
FieldName = 'Ptt'
Size = 5
end
object ta9PartneriMjesto: TStringField
FieldName = 'Mjesto'
Size = 40
end
object ta9PartneriUlica: TStringField
FieldName = 'Ulica'
Size = 60
end
object ta9PartneriZemlja: TSmallintField
FieldName = 'Zemlja'
end
object ta9PartneriDjelatnost: TSmallintField
FieldName = 'Djelatnost'
end
object ta9PartneriBanka: TIntegerField
FieldName = 'Banka'
end
object ta9PartneriTelefon: TStringField
DisplayLabel = 'Telefoni i faxovi'
FieldName = 'Telefon'
Size = 50
end
object ta9PartneriOpcina: TSmallintField
DisplayLabel = 'Op�ina'
FieldName = 'Opcina'
end
object ta9PartneriMaticni_broj: TStringField
DisplayLabel = 'Mati�ni broj ili JMBG'
FieldName = 'Maticni_broj'
Size = 15
end
object ta9PartneriZiro_racun1: TStringField
DisplayLabel = '�iro-ra�un 1'
FieldName = 'Ziro_racun1'
Size = 50
end
object ta9PartneriZiro_racun2: TStringField
DisplayLabel = '�iro-ra�un 2'
FieldName = 'Ziro_racun2'
Size = 50
end
object ta9PartneriRabat: TFloatField
DisplayLabel = 'Rabat u veleprodaji'
FieldName = 'Rabat'
DisplayFormat = '.0000'#39' %'#39
EditFormat = '.0000'
end
object ta9PartneriPorezni_obveznik: TSmallintField
DisplayLabel = 'Porezni obveznik prema PDV-u'
FieldName = 'Porezni_obveznik'
end
object ta9PartnericfPorezni_obveznik: TStringField
FieldName = 'cfPorezni_obveznik'
Calculated = True
end
object ta9PartneriMemo: TBlobField
FieldName = 'Memo'
BlobType = ftFmtMemo
end
object ta9PartneriFilter: TStringField
FieldName = 'Filter'
Size = 60
end
object ta9PartneriSifra_djelat: TStringField
FieldName = 'Sifra_djelat'
Size = 10
end
object ta9PartneriNaziv_djelat: TStringField
FieldName = 'Naziv_djelat'
Size = 100
end
end
object ta9Jedinice: TTable
Tag = 3
DatabaseName = 'praznepar'
TableName = 'jedinice'
Left = 897
Top = 62
object ta9JediniceSifra: TIntegerField
FieldName = 'Sifra'
end
object ta9JediniceTip: TSmallintField
FieldName = 'Tip'
end
object ta9JediniceNaziv: TStringField
FieldName = 'Naziv'
Size = 40
end
object ta9JediniceAdresa: TStringField
FieldName = 'Adresa'
Size = 60
end
object ta9JediniceKonto: TStringField
FieldName = 'Konto'
Size = 10
end
object ta9JedinicecfTip: TStringField
FieldName = 'cfTip'
Calculated = True
end
end
object ta9TemDob: TTable
Tag = 4
DatabaseName = 'praznegod'
TableName = 'temdob'
Left = 903
Top = 396
object AutoIncField1: TAutoIncField
FieldName = 'Record'
end
object SmallintField10: TSmallintField
FieldName = 'DokumTem'
end
object SmallintField11: TSmallintField
FieldName = 'BrojTemeljnice'
end
object IntegerField7: TIntegerField
FieldName = 'Knjizenje'
end
object SmallintField12: TSmallintField
FieldName = 'Redbr'
end
object StringField17: TStringField
FieldName = 'Konto'
Size = 10
end
object FloatField2: TFloatField
FieldName = 'Duguje'
DisplayFormat = ',0.00;;-'
EditFormat = '0.00'
end
object FloatField3: TFloatField
FieldName = 'Potrazuje'
DisplayFormat = ',0.00;;-'
EditFormat = '0.00'
end
object IntegerField8: TIntegerField
FieldName = 'Jedinica'
end
object StringField18: TStringField
FieldName = 'cfKontaNaziv'
Size = 100
Calculated = True
end
object StringField19: TStringField
FieldName = 'cfJediniceNaziv'
Size = 60
Calculated = True
end
end
end