home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TULAZNAFAKTURAPOVRAT
/
TULAZNAFAKTURAPOVRAT.txt
Wrap
Text File
|
1998-01-05
|
61KB
|
2,098 lines
object UlaznaFakturaPovrat: TUlaznaFakturaPovrat
Tag = 1
Left = 145
Top = 106
ActiveControl = gTable
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Povratnice dobavlja�u'
ClientHeight = 453
ClientWidth = 632
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnHide = FormHide
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Book: TNotebook
Tag = 1
Left = 0
Top = 0
Width = 632
Height = 453
Align = alClient
TabOrder = 0
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Zaglavlje'
object Bevel41: TBevel
Left = 544
Top = 320
Width = 5
Height = 49
Shape = bsLeftLine
end
object Bevel12: TBevel
Left = 346
Top = 320
Width = 5
Height = 49
Shape = bsLeftLine
end
object Bevel15: TBevel
Left = 192
Top = 244
Width = 5
Height = 49
Shape = bsLeftLine
end
object Bevel2: TBevel
Left = 96
Top = 244
Width = 5
Height = 49
Shape = bsLeftLine
end
object Bevel1: TBevel
Left = 4
Top = 288
Width = 625
Height = 5
Shape = bsBottomLine
end
object Bevel43: TBevel
Left = 4
Top = 316
Width = 625
Height = 5
Shape = bsBottomLine
end
object Bevel6: TBevel
Left = 4
Top = 244
Width = 625
Height = 205
Shape = bsFrame
end
object Bojano: TShape
Left = 7
Top = 247
Width = 88
Height = 44
Brush.Color = clRed
Pen.Style = psClear
end
object Label44: TLabel
Left = 9
Top = 249
Width = 85
Height = 13
Caption = 'Storno UFA br.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 8
Top = 248
Width = 85
Height = 13
Caption = 'Storno UFA br.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 106
Top = 248
Width = 75
Height = 13
Caption = 'Datum knji�enja'
FocusControl = EditDatumKnj
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 355
Top = 326
Width = 70
Height = 13
Caption = 'Datum povrata'
FocusControl = EditDatumDok
end
object Label6: TLabel
Left = 444
Top = 326
Width = 71
Height = 13
Caption = 'Povratnica broj'
end
object Label4: TLabel
Left = 200
Top = 248
Width = 62
Height = 13
Caption = 'Dobavlja�:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText2: TMyDBText
Left = 344
Top = 248
Width = 279
Height = 13
DataField = 'Naziv'
DataSource = DataUfaP.sPart
end
object DBText37: TMyDBText
Left = 344
Top = 262
Width = 279
Height = 13
DataField = 'Mjesto'
DataSource = DataUfaP.sPart
end
object DBText41: TMyDBText
Left = 344
Top = 276
Width = 279
Height = 13
DataField = 'UlicaBroj'
DataSource = DataUfaP.sPart
end
object Label5: TLabel
Left = 12
Top = 324
Width = 87
Height = 13
Caption = 'Ra�un dobavlja�a'
end
object Label7: TLabel
Left = 132
Top = 324
Width = 104
Height = 13
Caption = 'Ukupan iznos ra�una:'
end
object Bevel34: TBevel
Left = 128
Top = 340
Width = 109
Height = 21
Style = bsRaised
end
object DBText30: TMyDBText
Left = 132
Top = 344
Width = 101
Height = 13
Alignment = taRightJustify
DataField = 'Vrijednost'
DataSource = DataUfaP.sGlava2
end
object Label13: TLabel
Left = 552
Top = 324
Width = 53
Height = 26
AutoSize = False
Caption = 'Promjena podno�ja'
Color = clBtnFace
ParentColor = False
Transparent = True
WordWrap = True
end
object Label9: TLabel
Left = 12
Top = 300
Width = 94
Height = 13
Caption = 'Dodatno financijsko'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 180
Top = 300
Width = 11
Height = 13
Caption = 'za'
end
object Label12: TLabel
Left = 320
Top = 300
Width = 42
Height = 13
Caption = 'na konto'
end
object Label14: TLabel
Left = 252
Top = 324
Width = 27
Height = 13
Caption = 'Porez'
end
object Bevel46: TBevel
Left = 240
Top = 320
Width = 5
Height = 50
Shape = bsRightLine
end
object xPremaPDVu: TDBChecker
Left = 256
Top = 344
Width = 13
Height = 13
TabStop = False
Caption = 'xPremaPDVu'
DataField = 'PremaPDVu'
DataSource = DataUfaP.sGlava2
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 15
ValueChecked = 'True'
ValueUnchecked = 'False'
OnChange = xPremaPDVuChange
end
object nKontoOd: TDBName
Tag = 55
Left = 440
Top = 296
Width = 185
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = DataUfaP.sKonto6
ParentCtl3D = False
TabOrder = 7
end
object Knjizeno: TDBEdit
Left = 72
Top = 268
Width = 13
Height = 13
TabStop = False
AutoSize = False
DataField = 'Knjizeno'
DataSource = DataUfaP.sCodes
Enabled = False
TabOrder = 14
OnChange = KnjizenoChange
end
object gTable: TMyDBGrid
Tag = 1
Left = 6
Top = 2
Width = 619
Height = 239
FindByName = False
DataSource = DataUfaP.sGlava
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnSpace = KnjiziUFUClick
OnCtrlSpace = KnjiziSveUfeClick
end
object eSifra: TDBKeyField
Left = 12
Top = 264
Width = 77
Height = 20
AutoSize = False
Ctl3D = True
DataField = 'BROJUFE'
DataSource = DataUfaP.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
DisplayName = 'Broj Ulazne fakture'
OnNew = eSifraNew
OnRename = eSifraRename
end
object EditDatumKnj: TDBVar
Left = 108
Top = 264
Width = 73
Height = 20
AutoSize = False
DataField = 'DatumKnj'
DataSource = DataUfaP.sGlava
TabOrder = 2
OnExitChanged = EditDatumKnjExitChanged
end
object EditDatumDok: TDBVar
Left = 356
Top = 342
Width = 77
Height = 20
AutoSize = False
DataField = 'DatumDok'
DataSource = DataUfaP.sGlava
TabOrder = 10
OnExitChanged = EditDatumDokExit
end
object Dobavljac: TDBJustLookup
Left = 200
Top = 264
Width = 139
Height = 21
DataField = 'DOBAVLJAC'
DataSource = DataUfaP.sGlava
LookupSource = DataUfaP.sPartner
LookupDisplay = 'SIFRA'
LookupField = 'PARTNER'
TabOrder = 3
OnEnter = DobavljacEnter
Required = True
DisplayName = '�ifra dobavlja�a'
OnExitChanged = DobavljacExitChanged
OnF2Press = Dobavljac_F2
end
object EditRacunBr: TDBVar
Left = 444
Top = 342
Width = 93
Height = 20
TabStop = False
AutoSize = False
Color = clBtnFace
DataField = 'RacunBr'
DataSource = DataUfaP.sGlava
TabOrder = 11
OnExitChanged = EditRacunBrExitChanged
end
object eRacun: TDBLookup
Left = 12
Top = 340
Width = 109
Height = 21
DataField = 'UFABR'
DataSource = DataUfaP.sGlava
LookupSource = DataUfaP.sGlava2
LookupDisplay = 'RACUNBR'
LookupField = 'CODE'
TabOrder = 8
OnEnter = eRacunEnter
Required = True
DisplayName = 'Ra�un dobavlja�a (UFA)'
OnExitChanged = eRacunExitChanged
end
object Books: TNotebook
Left = 4
Top = 368
Width = 625
Height = 77
TabOrder = 13
object TPage
Left = 0
Top = 0
Caption = 'Podaci'
object Bevel5: TBevel
Left = 319
Top = 0
Width = 6
Height = 49
Shape = bsLeftLine
end
object Bevel7: TBevel
Left = 320
Top = 48
Width = 305
Height = 3
Shape = bsBottomLine
end
object Label102: TLabel
Left = 164
Top = 6
Width = 127
Height = 13
Caption = 'Na�i ostali tro�kovi povrata'
end
object Label103: TLabel
Left = 8
Top = 6
Width = 113
Height = 13
Caption = 'Na�i transportni tro�kovi'
end
object KontoObavezaLabel: TLabel
Left = 316
Top = 60
Width = 94
Height = 13
Caption = 'Konto obaveze (P) :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel3: TBevel
Left = 8
Top = 48
Width = 301
Height = 4
Shape = bsTopLine
Style = bsRaised
end
object KontoTrosakLabel: TLabel
Left = 8
Top = 60
Width = 83
Height = 13
Caption = 'Konto tro�ak (D) :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel4: TBevel
Left = -4
Top = 0
Width = 629
Height = 3
Shape = bsTopLine
end
object Bevel39: TBevel
Left = 619
Top = 0
Width = 6
Height = 93
Shape = bsRightLine
end
object Bevel40: TBevel
Left = 0
Top = 0
Width = 5
Height = 93
Shape = bsLeftLine
end
object StavkeButton: TBitBtn
Left = 332
Top = 9
Width = 89
Height = 33
Caption = 'Stavke'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = StavkeButtonClick
Glyph.Data = {
76020000424D7602000000000000760000002800000040000000100000000100
0400000000000002000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333393333333333333333333333333333333FF333333333333333333
333333333339093333333333333333333333333333F888F33333333333333333
333333333990F0933333333333333333333333333888388F3333333333333333
33333333990F0F0933333333333FF333333333338F838388F333333333003333
3333333900FFF0F09333333333883FF3333333F8883338388F333333330A0033
33333990FFFFFF0F09333333338F883FF33338883F33338388F33333330AAA00
3333990F0FFFFFF0F0933FFFFF8F33883FF38F8383F33338388F0000000AAAAA
003390FFF0FFFFFF0F09888888833333883F8833383F333383880AAAAAAAAAAA
AA030FFFFF0FFFFFF0F08FFFFFFF33333F8883F33383F33338380000000AAAAA
003330FFFFF0FFFFFF038888888F333F8833383F33383F333F833333330AAA00
3333330FFFFF0FFF00333333338F3F8833333383F33383FF88333333330A0033
33333330FFFFF00033333333338F8833333333383F3338883333333333003333
333333330FFF033333333333338833333333333383FF83333333333333333333
3333333330003333333333333333333333333333388833333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object eKontoTrosak: TDBLookupField
Left = 92
Top = 56
Width = 67
Height = 21
TabStop = False
DataField = 'KONTOTROSKA'
DataSource = DataUfaP.sGlava
LookupSource = DataUfaP.sKonto4
LookupDisplay = 'KONTO'
LookupField = 'CODE'
Color = clBtnFace
Enabled = False
TabOrder = 2
DisplayName = 'Konto tro�ka'
OnExitChanged = Izmjene
OnF2Press = KontniPlan_F2
end
object nKontoTrosak: TDBName
Tag = 55
Left = 160
Top = 56
Width = 149
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = DataUfaP.sKonto4
ParentCtl3D = False
TabOrder = 3
end
object eTransTros: TDBVar
Left = 8
Top = 22
Width = 145
Height = 20
AutoSize = False
DataField = 'Transport'
DataSource = DataUfaP.sGlava
TabOrder = 0
OnChange = TrosakNaStavkeChanged
OnExitChanged = TrosakNaStavke
end
object eOstaliTros: TDBVar
Left = 164
Top = 22
Width = 145
Height = 20
AutoSize = False
DataField = 'OstaliTroskovi'
DataSource = DataUfaP.sGlava
TabOrder = 1
OnChange = TrosakNaStavkeChanged
OnExitChanged = TrosakNaStavke
end
object nKontoTrosakD: TDBName
Tag = 55
Left = 480
Top = 56
Width = 137
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = DataUfaP.sKonto5
ParentCtl3D = False
TabOrder = 5
end
object eKontoTrosakD: TDBLookupField
Left = 412
Top = 56
Width = 67
Height = 21
TabStop = False
DataField = 'KONTOTROSKAD'
DataSource = DataUfaP.sGlava
LookupSource = DataUfaP.sKonto5
LookupDisplay = 'KONTO'
LookupField = 'CODE'
Color = clBtnFace
Enabled = False
TabOrder = 4
DisplayName = 'Konto obra�unatih tro�kova'
OnExitChanged = Izmjene
OnF2Press = KontniPlan_F2
end
object PrintBtn: TBitBtn
Left = 420
Top = 9
Width = 45
Height = 33
TabOrder = 7
OnClick = PrintBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object CalcBtn: TBitBtn
Left = 464
Top = 9
Width = 41
Height = 33
TabOrder = 8
OnClick = KnjiziUFUClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object ZapisiButton: TBitBtn
Left = 504
Top = 9
Width = 69
Height = 33
Caption = 'S.Ufa'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = ZapisiButtonClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object CalcBtnX: TBitBtn
Left = 572
Top = 9
Width = 41
Height = 33
TabOrder = 10
OnClick = KnjiziSveUfeClick
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00380000000008
333330333333338888888883F333338F333330777777777033333033333338F3
F3F3FFF8F3333383F33330707079997033330903333338F838388838F33338F8
F33330777777777033330903333338F3F3F3F3F8F33338383F33307070707070
33309990333338F838383838F3338F338F3330777777777033309990333338F3
F3F3F3F8F333833383F330707070707033099999033338F838383838F338F333
38F330777777777033099999033338F3F3F3F3F8F3383333383F307070707070
30999999903338F838383838F38FFFF3FF8F30777777777030000900003338F3
FFFFFFF8F38888F8888330700000007033330903333338F8888888F8F33338F8
F333307000E0E07033330903333338F8FFFFF8F8F33338F8F333307000000070
33330903333338F888888838F33338F8F33330777777777033330903333338F3
33333338F33338F8F333307777777770333309033333383FFFFFFFF8333338F8
F333380000000008333300033333338888888883333338883333}
NumGlyphs = 2
end
end
object TPage
Left = 0
Top = 0
Caption = 'Podno�je'
object Bevel36: TBevel
Left = -4
Top = 0
Width = 629
Height = 3
Shape = bsTopLine
end
object Bevel37: TBevel
Left = 0
Top = 0
Width = 5
Height = 93
Shape = bsLeftLine
end
object Bevel38: TBevel
Left = 619
Top = 0
Width = 6
Height = 97
Shape = bsRightLine
end
object ePodnozje: TMyDBMemo
Left = 8
Top = 4
Width = 553
Height = 73
DataField = 'Podnozje'
DataSource = DataUfaP.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New CE'
Font.Style = []
ParentFont = False
TabOrder = 0
WordWrap = False
end
object ZapisiPodnozje: TBitBtn
Left = 568
Top = 24
Width = 43
Height = 53
Caption = 'Zapi�i'
TabOrder = 1
OnClick = ZapisiPodnozjeClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
3055577777555557F7F555000555555999555577755555577755}
Layout = blGlyphBottom
NumGlyphs = 2
end
end
end
object xPromPod: TDBChecker
Left = 552
Top = 352
Width = 69
Height = 13
Alignment = taLeftJustify
Caption = 'fakture:'
DataField = 'PromPod'
DataSource = DataUfaP.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
ValueChecked = 'True'
ValueUnchecked = 'False'
OnChange = xPromPodChange
end
object xOdobrenje: TDBChecker
Left = 112
Top = 300
Width = 69
Height = 13
Caption = 'odobrenje'
DataField = 'Odobreno'
DataSource = DataUfaP.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = xOdobrenjeClick
end
object eOdobrenIznos: TDBVar
Left = 200
Top = 296
Width = 113
Height = 21
AutoSize = False
DataField = 'IznosOd'
DataSource = DataUfaP.sGlava
TabOrder = 5
OnExitChanged = eOdobrenIznosExitChanged
end
object eKontoOd: TDBLookupField
Left = 368
Top = 296
Width = 73
Height = 21
TabStop = False
DataField = 'KONTOOD'
DataSource = DataUfaP.sGlava
LookupSource = DataUfaP.sKonto6
LookupDisplay = 'KONTO'
LookupField = 'CODE'
Color = clBtnFace
Enabled = False
TabOrder = 6
DisplayName = 'Konto tro�ka'
OnExitChanged = Izmjene
OnF2Press = KontniPlan_F2
end
object ePretporez: TDBVar
Left = 252
Top = 340
Width = 89
Height = 21
AutoSize = False
DataField = 'Pretporez'
DataSource = DataUfaP.sGlava
TabOrder = 9
OnEnter = ePretporezEnter
OnExitChanged = ePretporezExitChanged
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Stavke'
object Bevel9: TBevel
Left = 420
Top = 1
Width = 5
Height = 21
Shape = bsLeftLine
end
object Bevel64: TBevel
Left = 296
Top = 1
Width = 333
Height = 21
Shape = bsFrame
end
object Bevel19: TBevel
Left = 92
Top = 1
Width = 5
Height = 21
Shape = bsRightLine
end
object Bevel18: TBevel
Left = 4
Top = 1
Width = 285
Height = 21
Shape = bsFrame
end
object BrojUfe: TMyDBText
Left = 29
Top = 5
Width = 65
Height = 13
DataField = 'BrojUFE'
DataSource = DataUfaP.sGlava2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText5: TMyDBText
Left = 152
Top = 5
Width = 133
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sPartner
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Left = 98
Top = 5
Width = 51
Height = 13
Caption = 'Dobavlja�:'
end
object Label68: TLabel
Left = 428
Top = 5
Width = 75
Height = 13
Caption = 'Iznos za povrat:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBText47: TMyDBText
Left = 508
Top = 5
Width = 117
Height = 13
Alignment = taRightJustify
DataField = 'Vrijednost'
DataSource = DataUfaP.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label52: TLabel
Left = 8
Top = 5
Width = 20
Height = 13
Caption = 'Ufa:'
end
object Bevel8: TBevel
Left = 132
Top = 298
Width = 409
Height = 153
end
object Label8: TLabel
Left = 300
Top = 5
Width = 58
Height = 13
Caption = 'Storno UFA:'
end
object DBText1: TMyDBText
Left = 364
Top = 5
Width = 53
Height = 13
DataField = 'BrojUFE'
DataSource = DataUfaP.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Book2: TNotebook
Left = 136
Top = 302
Width = 401
Height = 145
TabOrder = 3
OnExit = Book2Exit
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Roba'
object Bevel16: TBevel
Left = 248
Top = 100
Width = 101
Height = 22
Style = bsRaised
end
object Bevel14: TBevel
Left = 248
Top = 52
Width = 73
Height = 21
Style = bsRaised
end
object Bevel25: TBevel
Left = 0
Top = 80
Width = 197
Height = 65
Style = bsRaised
end
object Bevel13: TBevel
Left = 52
Top = 120
Width = 141
Height = 22
Style = bsRaised
end
object Bevel11: TBevel
Left = 236
Top = 24
Width = 161
Height = 21
Style = bsRaised
end
object Bevel26: TBevel
Left = 0
Top = 0
Width = 197
Height = 77
Style = bsRaised
end
object Bevel10: TBevel
Left = 36
Top = 52
Width = 157
Height = 21
Style = bsRaised
end
object Bevel45: TBevel
Left = 0
Top = 80
Width = 197
Height = 37
Shape = bsFrame
Style = bsRaised
end
object DBText4: TMyDBText
Left = 4
Top = 84
Width = 189
Height = 29
DataField = 'Naziv'
DataSource = DataUfaP.sSkladist
WordWrap = True
end
object Label25: TLabel
Left = 4
Top = 124
Width = 46
Height = 13
Caption = 'Skladi�te:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 208
Top = 80
Width = 37
Height = 13
Alignment = taRightJustify
Caption = 'Koli�ina'
end
object JedMjere: TMyDBText
Left = 352
Top = 80
Width = 49
Height = 17
DataField = 'Naziv'
DataSource = DataUfaP.sMjere
end
object lCijena: TLabel
Left = 208
Top = 104
Width = 36
Height = 13
Alignment = taRightJustify
Caption = 'Cijena'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Valuta: TMyDBText
Left = 352
Top = 104
Width = 49
Height = 17
DataField = 'Cij'
DataSource = DataUfaP.sValuta
end
object Label100: TLabel
Left = 208
Top = 56
Width = 37
Height = 13
Caption = 'Min.kol.'
end
object Min_Kol: TMyDBText
Left = 324
Top = 56
Width = 77
Height = 17
DataField = 'MinKol'
DataSource = DataUfaP.sStavke
end
object Bevel60: TBevel
Left = 204
Top = 0
Width = 197
Height = 21
Shape = bsFrame
Style = bsRaised
end
object Bevel27: TBevel
Left = 204
Top = 0
Width = 197
Height = 49
Style = bsRaised
end
object DBText13: TMyDBText
Left = 208
Top = 4
Width = 189
Height = 13
DataField = 'Naziv'
DataSource = DataUfaP.sImeBoje
end
object Label119: TLabel
Left = 208
Top = 28
Width = 24
Height = 13
Caption = 'Boja:'
end
object Label11: TLabel
Left = 204
Top = 128
Width = 40
Height = 13
Alignment = taRightJustify
Caption = 'Fakt.vrij.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel59: TBevel
Left = 0
Top = 0
Width = 197
Height = 49
Shape = bsFrame
Style = bsRaised
end
object DBText7: TMyDBText
Left = 4
Top = 4
Width = 189
Height = 41
DataField = 'Naziv'
DataSource = DataUfaP.sImeRobe
WordWrap = True
end
object Label26: TLabel
Left = 4
Top = 56
Width = 26
Height = 13
Caption = 'Artikl:'
end
object DBText3: TMyDBText
Left = 40
Top = 56
Width = 149
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sArtikl
end
object DBText6: TMyDBText
Left = 240
Top = 28
Width = 153
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sBoje
end
object DBText8: TMyDBText
Left = 56
Top = 124
Width = 133
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sSkladist
end
object DBText9: TMyDBText
Left = 252
Top = 56
Width = 65
Height = 13
DataField = 'Atom'
DataSource = DataUfaP.sStavke
end
object DBText10: TMyDBText
Left = 252
Top = 104
Width = 93
Height = 13
Alignment = taRightJustify
DataField = 'Cijena'
DataSource = DataUfaP.sStavke
end
object DBEdit1: TDBEdit
Left = 276
Top = 80
Width = 17
Height = 13
TabStop = False
AutoSize = False
DataField = 'Naziv'
DataSource = DataUfaP.sMjere
Enabled = False
TabOrder = 4
OnChange = XKolicinaChange
end
object XKolicina2: TDBEdit
Left = 300
Top = 80
Width = 17
Height = 13
TabStop = False
AutoSize = False
DataField = 'KolicinaX'
DataSource = DataUfaP.sStavke
Enabled = False
TabOrder = 3
OnChange = XKolicinaChange
end
object XKolicina: TDBEdit
Left = 324
Top = 80
Width = 17
Height = 13
TabStop = False
AutoSize = False
DataField = 'KolicinaX'
DataSource = DataUfaP.sStavke2
Enabled = False
TabOrder = 2
OnChange = XKolicinaChange
end
object eKolicina: TDBVar
Left = 248
Top = 76
Width = 101
Height = 21
AutoSize = False
DataField = 'KolicinaX'
DataSource = DataUfaP.sStavke
TabOrder = 0
OnEnter = eKolicinaEnter
OnExitChanged = tStavkeKolicinaChange
end
object eFaktVrij: TDBVar
Left = 248
Top = 124
Width = 153
Height = 21
AutoSize = False
DataField = 'FaktVrijednostX'
DataSource = DataUfaP.sStavke
TabOrder = 1
OnEnter = eFaktVrijEnter
OnExitChanged = eFaktVrijExitChanged
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Usluga+Tro�ak'
object Bevel21: TBevel
Left = 208
Top = 120
Width = 65
Height = 21
Style = bsRaised
end
object Bevel20: TBevel
Left = 208
Top = 16
Width = 193
Height = 46
Style = bsRaised
end
object Bevel17: TBevel
Left = 0
Top = 20
Width = 81
Height = 21
Style = bsRaised
end
object Bevel35: TBevel
Left = 84
Top = 0
Width = 113
Height = 41
Shape = bsFrame
end
object Label99: TLabel
Left = 210
Top = 64
Width = 57
Height = 13
Caption = 'Vrijednost'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label88: TLabel
Left = 212
Top = 0
Width = 21
Height = 13
Caption = 'Opis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label152: TLabel
Left = 0
Top = 2
Width = 77
Height = 13
Caption = 'Org. jedinica:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object OrgJedName1: TMyDBText
Left = 88
Top = 4
Width = 105
Height = 33
DataField = 'Naziv'
DataSource = DataUfaP.sOrgJed3
WordWrap = True
end
object Bevel42: TBevel
Left = 0
Top = 48
Width = 197
Height = 97
Style = bsRaised
end
object Bevel44: TBevel
Left = 0
Top = 48
Width = 197
Height = 69
Shape = bsFrame
Style = bsRaised
end
object DBText21: TMyDBText
Left = 4
Top = 52
Width = 189
Height = 61
DataField = 'Naziv'
DataSource = DataUfaP.sUsluge
WordWrap = True
end
object Label96: TLabel
Left = 208
Top = 104
Width = 77
Height = 13
Caption = 'Konto tro�ka (D)'
end
object DBText11: TMyDBText
Left = 4
Top = 24
Width = 73
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sOrgJed3
end
object DBText14: TMyDBText
Left = 212
Top = 124
Width = 57
Height = 13
DataField = 'Konto'
DataSource = DataUfaP.sKonto2
end
object DBText15: TMyDBText
Left = 276
Top = 124
Width = 125
Height = 13
DataField = 'Naziv'
DataSource = DataUfaP.sKonto2
end
object DBText16: TMyDBText
Left = 212
Top = 20
Width = 185
Height = 37
DataField = 'Opis'
DataSource = DataUfaP.sStavke
WordWrap = True
end
object DBText12: TMyDBText
Left = 68
Top = 124
Width = 121
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sUsluge
end
object Bevel22: TBevel
Left = 64
Top = 120
Width = 129
Height = 21
end
object Book5: TNotebook
Left = 4
Top = 120
Width = 57
Height = 21
TabOrder = 0
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Usluga'
object Label95: TLabel
Left = 0
Top = 4
Width = 55
Height = 13
Alignment = taRightJustify
Caption = '�ifra usluge'
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Tro�ak'
object Label86: TLabel
Left = 2
Top = 4
Width = 53
Height = 13
Alignment = taRightJustify
Caption = '�ifra tro�ka'
end
end
end
object eIznTros: TDBVar
Left = 208
Top = 80
Width = 193
Height = 21
AutoSize = False
DataField = 'FaktVrijednostX'
DataSource = DataUfaP.sStavke
TabOrder = 1
OnEnter = eFaktVrijEnter
OnExitChanged = eIznTrosExitChanged
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Kredit+Kamata'
object Bevel28: TBevel
Left = 204
Top = 120
Width = 77
Height = 22
end
object Bevel24: TBevel
Left = 204
Top = 80
Width = 77
Height = 21
end
object Bevel23: TBevel
Left = 0
Top = 20
Width = 85
Height = 21
end
object Bevel29: TBevel
Left = 204
Top = 16
Width = 197
Height = 21
Style = bsRaised
end
object Bevel61: TBevel
Left = 88
Top = 0
Width = 109
Height = 41
Shape = bsFrame
end
object Label93: TLabel
Left = 204
Top = 44
Width = 57
Height = 13
Caption = 'Vrijednost'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label94: TLabel
Left = 204
Top = 0
Width = 21
Height = 13
Caption = 'Opis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label153: TLabel
Left = 0
Top = 2
Width = 77
Height = 13
Caption = 'Org. jedinica:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText42: TMyDBText
Left = 92
Top = 4
Width = 101
Height = 33
DataField = 'Naziv'
DataSource = DataUfaP.sOrgJed3
WordWrap = True
end
object Label91: TLabel
Left = 204
Top = 104
Width = 82
Height = 13
Caption = 'Konto kreditor (P)'
end
object Label92: TLabel
Left = 204
Top = 64
Width = 77
Height = 13
Caption = 'Konto tro�ak (D)'
end
object DBText17: TMyDBText
Left = 208
Top = 20
Width = 189
Height = 13
DataField = 'Opis'
DataSource = DataUfaP.sStavke
end
object DBText18: TMyDBText
Left = 208
Top = 84
Width = 69
Height = 13
DataField = 'Konto'
DataSource = DataUfaP.sKonto2
end
object DBText19: TMyDBText
Left = 284
Top = 84
Width = 117
Height = 13
DataField = 'Naziv'
DataSource = DataUfaP.sKonto2
end
object DBText20: TMyDBText
Left = 208
Top = 124
Width = 69
Height = 13
DataField = 'Konto'
DataSource = DataUfaP.sKonto3
end
object DBText22: TMyDBText
Left = 284
Top = 124
Width = 117
Height = 13
DataField = 'Naziv'
DataSource = DataUfaP.sKonto3
end
object DBText23: TMyDBText
Left = 4
Top = 24
Width = 77
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sOrgJed3
end
object eIznosKred: TDBVar
Left = 264
Top = 40
Width = 137
Height = 20
AutoSize = False
DataField = 'FaktVrijednostX'
DataSource = DataUfaP.sStavke
TabOrder = 1
OnEnter = eFaktVrijEnter
OnExitChanged = eIznTrosExitChanged
end
object Book4: TNotebook
Left = 2
Top = 44
Width = 191
Height = 101
PageIndex = 1
TabOrder = 0
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Kredit'
object eVrstaKred: TMyDBRadioGroup
Left = 18
Top = 12
Width = 157
Height = 69
Caption = 'Obaveza pla�anja'
DataField = 'Artikl'
DataSource = DataUfaP.sStavke
Enabled = False
Items.Strings = (
'Preko banke (�iro-ra�una)'
'Preko blagajne (kase)'
'Ostale metode')
TabOrder = 0
Values.Strings = (
'1'
'2'
'99')
OnExit = eVrstaKredExit
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Kamate'
object eVrstaKam: TMyDBRadioGroup
Left = 30
Top = 8
Width = 129
Height = 85
Caption = 'Vrsta kamata'
DataField = 'Artikl'
DataSource = DataUfaP.sStavke
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Redovne kamate'
'Zatezne kamate'
'Kamate na kredit'
'Ostale kamate')
ParentFont = False
TabOrder = 0
Values.Strings = (
'1'
'2'
'3'
'99')
OnExit = eVrstaKamExit
end
end
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Zavisni tro�kovi'
object Bevel32: TBevel
Left = 196
Top = 124
Width = 85
Height = 21
Style = bsRaised
end
object Bevel33: TBevel
Left = 260
Top = 84
Width = 141
Height = 21
Style = bsRaised
end
object Bevel31: TBevel
Left = 196
Top = 60
Width = 205
Height = 21
Style = bsRaised
end
object Bevel30: TBevel
Left = 196
Top = 20
Width = 90
Height = 21
Style = bsRaised
end
object Bevel62: TBevel
Left = 288
Top = 0
Width = 113
Height = 41
Shape = bsFrame
end
object Label149: TLabel
Left = 196
Top = 44
Width = 21
Height = 13
Caption = 'Opis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label147: TLabel
Left = 196
Top = 88
Width = 61
Height = 13
Caption = 'Vrijednost:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label154: TLabel
Left = 196
Top = 4
Width = 77
Height = 13
Caption = 'Org. jedinica:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText45: TMyDBText
Left = 292
Top = 4
Width = 105
Height = 33
DataField = 'Naziv'
DataSource = DataUfaP.sOrgJed3
WordWrap = True
end
object Label148: TLabel
Left = 196
Top = 108
Width = 77
Height = 13
Caption = 'Konto tro�ka (D)'
end
object DBText24: TMyDBText
Left = 200
Top = 24
Width = 81
Height = 13
DataField = 'Sifra'
DataSource = DataUfaP.sOrgJed3
end
object DBText25: TMyDBText
Left = 200
Top = 64
Width = 197
Height = 13
DataField = 'Opis'
DataSource = DataUfaP.sStavke
end
object DBText26: TMyDBText
Left = 264
Top = 88
Width = 133
Height = 13
Alignment = taRightJustify
DataField = 'FaktVrijednostX'
DataSource = DataUfaP.sStavke
end
object DBText28: TMyDBText
Left = 200
Top = 128
Width = 77
Height = 13
DataField = 'Konto'
DataSource = DataUfaP.sKonto2
end
object DBText29: TMyDBText
Left = 284
Top = 128
Width = 117
Height = 13
DataField = 'Naziv'
DataSource = DataUfaP.sKonto2
end
object VrstaTroska: TMyDBRadioGroup
Left = 20
Top = 4
Width = 157
Height = 137
Caption = 'Vrsta tro�ka'
DataField = 'Artikl'
DataSource = DataUfaP.sStavke
Enabled = False
Items.Strings = (
'Prijevozne usluge'
'Pretovar i utovar'
'Studentski servis'
'Dorada, izrada i prerada'
'Usluge kooperanta'
'Dnevnice'
'Ambala�a'
'Kamate'
'Ostalo')
TabOrder = 0
Values.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'99')
OnExit = VrstaTroskaExit
end
end
end
object VrstaStavke: TMyDBRadioGroup
Tag = 1
Left = 8
Top = 298
Width = 117
Height = 153
Caption = 'Vrsta stavke:'
Ctl3D = True
DataField = 'Vrsta'
DataSource = DataUfaP.sStavke
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Usluga'
'Materijalni tro�ak'
'Kredit'
'Kamate'
'Zavisni tro�kovi'
'Veleprodaja'
'Maloprodaja'
'Materijal'
'Oprema'
'Sitni inventar')
ParentCtl3D = False
ParentFont = False
TabOrder = 2
Values.Strings = (
'7'
'8'
'9'
'10'
'11'
'1'
'2'
'3'
'4'
'5')
OnChange = VrstaStavkeChange
OnClick = VrstaStavkeChange
end
object IzlazButton20: TBitBtn
Left = 548
Top = 374
Width = 77
Height = 45
Caption = 'Zaglavlje'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = IzlazButton20Click
Glyph.Data = {
76020000424D7602000000000000760000002800000040000000100000000100
0400000000000002000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333933333333333333333333333333333338F33333333333333333333
3333333339093333333333333333FF33333333333888F3333333333333300333
3333333390F093333333333333F88F333333333388388F3333333333300C0333
333333390FFF093333333333F8838F333333333888F388F3333333300CCC0333
3333339990FFF093333333F883338FFFFF333383388F388F3333300CCCCC0000
00033999990FFF093333F88333338888883338333388F388F3330CCCCCCCCCCC
CC0319999990FFF0933383FF33333FFFFF338F3333388F388F33300CCCCC0000
0003919999990FFF09333883FF338888883388F333F388F388F333300CCC0333
33333919909990FFF093333883FF8F333333388F3833F88F38833333300C0333
333333919990990F0933333338838F3333333388F338F3888833333333300333
33333339190099903333333333388333333333388F883338F333333333333333
333333339199999933333333333333333333333388F333F83333333333333333
3333333339199993333333333333333333333333388F38833333333333333333
3333333333919333333333333333333333333333338883333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphBottom
NumGlyphs = 2
end
object gStavke0: TMyDBGrid
Left = 0
Top = 22
Width = 292
Height = 273
FindByName = False
DataSource = DataUfaP.sStavke2
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = gStavke0Return
OnEnter = gStavke0Enter
OnReturn = gStavke0Return
end
object ZapisiButton20: TBitBtn
Left = 548
Top = 338
Width = 77
Height = 33
Caption = 'Stavka'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = ZapisiButton20Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object gStavke1: TMyDBGrid
Left = 293
Top = 22
Width = 339
Height = 273
FindByName = False
DataSource = DataUfaP.sStavke1
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = gStavke1Return
OnEnter = gStavke1Enter
OnReturn = gStavke1Return
end
end
end
end