home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TNORMATIVI
/
TNORMATIVI.txt
Wrap
Text File
|
1998-01-05
|
35KB
|
1,206 lines
object Normativi: TNormativi
Tag = 1
Left = 151
Top = 108
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Normativi za proizvodnju'
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 Bevel6: TBevel
Left = 227
Top = 352
Width = 241
Height = 45
Style = bsRaised
end
object Bevel4: TBevel
Left = 228
Top = 400
Width = 317
Height = 45
Style = bsRaised
end
object Bevel20: TBevel
Left = 236
Top = 420
Width = 105
Height = 21
end
object Bevel2: TBevel
Left = 343
Top = 352
Width = 5
Height = 45
Shape = bsLeftLine
end
object Bevel3: TBevel
Left = 124
Top = 352
Width = 97
Height = 45
Style = bsRaised
end
object Label1: TLabel
Left = 132
Top = 356
Width = 77
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Vrijedi od'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 236
Top = 404
Width = 75
Height = 13
Caption = 'Cijena ko�tanja:'
end
object DBText1: TMyDBText
Left = 240
Top = 424
Width = 97
Height = 16
Alignment = taRightJustify
DataField = 'Cijena'
DataSource = DataNorm.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 360
Top = 404
Width = 29
Height = 13
Caption = 'Mar�a'
end
object Label7: TLabel
Left = 440
Top = 404
Width = 96
Height = 13
Caption = 'Veleprodajna cijena:'
end
object DBText2: TMyDBText
Left = 220
Top = 214
Width = 193
Height = 15
DataField = 'Sifra'
DataSource = DataNorm.sFirme
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 24
Top = 214
Width = 190
Height = 13
Caption = '�ifra proizvo�a�a ili uvoznika proizvoda:'
end
object Label6: TLabel
Left = 355
Top = 356
Width = 104
Height = 13
Caption = 'Unose se normativi za'
end
object DBText3: TMyDBText
Left = 424
Top = 376
Width = 36
Height = 17
DataField = 'Sifra'
DataSource = DataNorm.sJedMj
end
object Label3: TLabel
Left = 239
Top = 356
Width = 81
Height = 13
Caption = 'Materijal se unosi'
end
object Bevel1: TBevel
Left = 349
Top = 400
Width = 5
Height = 45
Shape = bsLeftLine
end
object Bevel14: TBevel
Left = 433
Top = 400
Width = 5
Height = 45
Shape = bsLeftLine
end
object Bevel7: TBevel
Left = 16
Top = 208
Width = 401
Height = 25
Shape = bsFrame
Style = bsRaised
end
object Label14: TLabel
Left = 92
Top = 288
Width = 216
Height = 13
Caption = 'Proizvodi se samo u jednoj boji, ili je bezbojno.'
end
object Bevel21: TBevel
Left = 72
Top = 268
Width = 261
Height = 50
Style = bsRaised
end
object Label9: TLabel
Left = 420
Top = 424
Width = 8
Height = 13
Caption = '%'
end
object xBoje: TDBChecker
Left = 252
Top = 168
Width = 49
Height = 17
Caption = 'xBoje'
DataField = 'Bezbojno'
DataSource = DataNorm.sRoba2
Enabled = False
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 = DBEdit3Change
OnClick = DBEdit3Change
end
object DBEdit1: TDBEdit
Left = 364
Top = 144
Width = 21
Height = 21
DataField = 'Code'
DataSource = DataNorm.sSifBoja
Enabled = False
TabOrder = 13
OnChange = DBEdit1Change
end
object StavkeButton: TBitBtn
Left = 472
Top = 352
Width = 153
Height = 45
Caption = 'Normativi za proizvodnju'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = StavkeButtonClick
Glyph.Data = {
76020000424D7602000000000000760000002800000040000000100000000100
0400000000000002000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333393333333333333333333333333333333FF333333333333333333
333333333339093333333333333333333333333333F888F33333333333333333
333333333990F0933333333333333333333333333888388F3333333333333333
33333333990F0F0933333333333FF333333333338F838388F333333333003333
3333333900FFF0F09333333333883FF3333333F8883338388F333333330A0033
33333990FFFFFF0F09333333338F883FF33338883F33338388F33333330AAA00
3333990F0FFFFFF0F0933FFFFF8F33883FF38F8383F33338388F0000000AAAAA
003390FFF0FFFFFF0F09888888833333883F8833383F333383880AAAAAAAAAAA
AA030FFFFF0FFFFFF0F08FFFFFFF33333F8883F33383F33338380000000AAAAA
003330FFFFF0FFFFFF038888888F333F8833383F33383F333F833333330AAA00
3333330FFFFF0FFF00333333338F3F8833333383F33383FF88333333330A0033
33333330FFFFF00033333333338F8833333333383F3338883333333333003333
333333330FFF033333333333338833333333333383FF83333333333333333333
3333333330003333333333333333333333333333388833333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
end
object ZapisiButton: TBitBtn
Left = 552
Top = 400
Width = 73
Height = 45
Caption = 'Proizvod'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = ZapisiButtonClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
Layout = blGlyphTop
NumGlyphs = 2
end
object gTable: TMyDBGrid
Tag = 1
Left = 12
Top = 352
Width = 105
Height = 93
FindByName = True
DataSource = DataNorm.sGlava
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object eSifra: TDBKeyField
Left = 132
Top = 372
Width = 81
Height = 20
AutoSize = False
DataField = 'DATUM'
DataSource = DataNorm.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
DisplayName = 'Datum za nove normative'
OnRename = eSifraRename
end
object xSifreDob: TDBChecker
Left = 237
Top = 376
Width = 101
Height = 13
Caption = 'po na�im �iframa.'
DataField = 'NaseSifre'
DataSource = DataNorm.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
ValueChecked = 'True'
ValueUnchecked = 'False'
OnChange = xSifreDobChange
OnClick = xSifreDobChange
end
object gSifRobe3: TMyDBGrid
Left = 4
Top = 4
Width = 433
Height = 201
FindByName = True
Ctl3D = True
DataSource = DataNorm.sSifRobe
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object gSifPart3: TMyDBGrid
Left = 440
Top = 4
Width = 186
Height = 345
FindByName = True
DataSource = DataNorm.sSifPart
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 = []
end
object eRUC: TDBVar
Left = 360
Top = 420
Width = 57
Height = 21
AutoSize = False
DataField = 'RUC'
DataSource = DataNorm.sGlava
TabOrder = 9
OnExitChanged = eRUCExitChanged
end
object eVPC: TDBVar
Left = 440
Top = 420
Width = 97
Height = 21
AutoSize = False
DataField = 'VPC'
DataSource = DataNorm.sGlava
TabOrder = 10
OnExitChanged = eVPCExitChanged
end
object eKom: TDBVar
Left = 355
Top = 372
Width = 61
Height = 21
AutoSize = False
DataField = 'Kolicina'
DataSource = DataNorm.sGlava
TabOrder = 6
end
object CalcBtn: TBitBtn
Left = 124
Top = 400
Width = 97
Height = 45
Caption = 'Kalkulacija'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = CalcBtnClick
Glyph.Data = {
76020000424D7602000000000000760000002800000040000000100000000100
0400000000000002000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
0000333800000000083333333338888888888338888888883F333333330FFFFF
FFF0333077777777703333FF3FF8FF33F3FF838F3F3F3FFF8F3300300000FF0F
00F03330707079997033388F888883F83883838F838388838F33E00BFBFB0FFF
FFF0333077777777703338883333F8F3333F838F3F3F3F3F8F33E0BFBF000FFF
F0F03330707070707033388F3338883F3F83838F838383838F33E0FBFBFBF0F0
0FF03330777777777033388F3333FF8F88F3838F3F3F3F3F8F33E0BFBF00000B
0FF03330707070707033388F333888883833838F838383838F33E0FBFBFBFBF0
FFF03330777777777033388F33FFFFFF8333838F3F3F3F3F8F33E0BF0000000F
FFF03330707070707033388FF888888833FF838F838383838F33000BFB00B0FF
00F0333077777777703338883FF883833883838F3FFFFFFF8F333330000B0FFF
FFF0333070000000703333338888383333FF838F8888888F8F33333330B0FFFF
000033307000E0E0703333333383833FF888838F8FFFFF8F8F3333330B0FF00F
0FF0333070000000703333333838F38838F3838F888888838F333330B00FFFFF
0F03333077777777703333338F88F33338F8338F333333338F333309030FFFFF
0033333077777777703333388838FFFFF8833383FFFFFFFF8333333033000000
0333333800000000083333338338888888333338888888883333}
Layout = blGlyphTop
NumGlyphs = 2
end
object gBoje: TMyDBGrid
Left = 5
Top = 236
Width = 432
Height = 111
FindByName = True
Ctl3D = True
DataSource = DataNorm.sSifBoja
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Stavke'
object Bevel8: TBevel
Left = 4
Top = 340
Width = 205
Height = 73
Shape = bsFrame
Style = bsRaised
end
object Bevel12: TBevel
Left = 92
Top = 303
Width = 541
Height = 5
Shape = bsTopLine
end
object Bevel18: TBevel
Left = 4
Top = 4
Width = 205
Height = 37
Shape = bsFrame
end
object Bevel5: TBevel
Left = 4
Top = 43
Width = 77
Height = 38
Shape = bsFrame
end
object BrojIfe: TMyDBText
Left = 8
Top = 63
Width = 69
Height = 13
Alignment = taCenter
DataField = 'Datum'
DataSource = DataNorm.sGlava
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel16: TBevel
Left = 88
Top = 48
Width = 117
Height = 29
Style = bsRaised
end
object DBText5: TMyDBText
Left = 8
Top = 24
Width = 193
Height = 13
Alignment = taCenter
DataField = 'Sifra'
DataSource = DataNorm.sSifRobe
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 94
Top = 56
Width = 54
Height = 13
Caption = 'Materijal br.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Left = 8
Top = 8
Width = 193
Height = 13
Alignment = taCenter
AutoSize = False
Caption = '�ifra proizvoda'
end
object Label13: TLabel
Left = 8
Top = 47
Width = 69
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Vrijedi od'
end
object Bevel19: TBevel
Left = 4
Top = 240
Width = 205
Height = 5
Shape = bsTopLine
end
object Bevel17: TBevel
Left = 4
Top = 84
Width = 205
Height = 217
Shape = bsFrame
Style = bsRaised
end
object Label28: TLabel
Left = 12
Top = 276
Width = 37
Height = 13
Alignment = taRightJustify
Caption = 'Koli�ina'
end
object JedMjere: TMyDBText
Left = 160
Top = 276
Width = 43
Height = 13
DataField = 'Naziv'
DataSource = DataNorm.sMjere
end
object Label100: TLabel
Left = 12
Top = 252
Width = 37
Height = 13
Caption = 'Min.kol.'
end
object Min_Kol: TMyDBText
Left = 132
Top = 252
Width = 73
Height = 13
DataField = 'MinKol'
DataSource = DataNorm.sStavke
end
object Bevel60: TBevel
Left = 8
Top = 172
Width = 197
Height = 21
Shape = bsFrame
Style = bsRaised
end
object Bevel26: TBevel
Left = 8
Top = 88
Width = 197
Height = 81
Style = bsRaised
end
object Bevel59: TBevel
Left = 8
Top = 88
Width = 197
Height = 37
Shape = bsFrame
Style = bsRaised
end
object Bevel13: TBevel
Left = 8
Top = 172
Width = 197
Height = 65
Style = bsRaised
end
object DBText13: TMyDBText
Left = 12
Top = 176
Width = 189
Height = 13
DataField = 'Naziv'
DataSource = DataNorm.sImeBoje
end
object DBText7: TMyDBText
Left = 12
Top = 92
Width = 189
Height = 29
DataField = 'Naziv'
DataSource = DataNorm.sImeRobe
WordWrap = True
end
object Label10: TLabel
Left = 12
Top = 388
Width = 81
Height = 13
Caption = 'Vrijednost tro�ka:'
end
object Label11: TLabel
Left = 13
Top = 344
Width = 24
Height = 13
Alignment = taRightJustify
Caption = 'Opis:'
end
object Bevel9: TBevel
Left = 100
Top = 308
Width = 109
Height = 29
Style = bsRaised
end
object Label4: TLabel
Left = 104
Top = 316
Width = 48
Height = 13
Caption = 'Tro�ak br.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel11: TBevel
Left = 92
Top = 304
Width = 5
Height = 30
Shape = bsLeftLine
end
object Bevel10: TBevel
Left = 0
Top = 332
Width = 93
Height = 5
Shape = bsTopLine
end
object cSifra: TDBKey
Left = 152
Top = 52
Width = 49
Height = 21
AutoSize = False
Ctl3D = True
DataField = 'STAVKA'
DataSource = DataNorm.sStavke
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
DisplayName = 'Stavka Ulazne fakture'
end
object TrosakBtn: TBitBtn
Left = 5
Top = 414
Width = 80
Height = 25
Caption = 'Tro�ak'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
OnClick = TrosakBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object IzlazButton20: TBitBtn
Left = 104
Top = 422
Width = 104
Height = 25
Caption = 'Zaglavlje'
TabOrder = 12
OnClick = IzlazButton20Click
Glyph.Data = {
76020000424D7602000000000000760000002800000040000000100000000100
0400000000000002000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333933333333333333333333333333333338F33333333333333333333
3333333339093333333333333333FF33333333333888F3333333333333300333
3333333390F093333333333333F88F333333333388388F3333333333300C0333
333333390FFF093333333333F8838F333333333888F388F3333333300CCC0333
3333339990FFF093333333F883338FFFFF333383388F388F3333300CCCCC0000
00033999990FFF093333F88333338888883338333388F388F3330CCCCCCCCCCC
CC0319999990FFF0933383FF33333FFFFF338F3333388F388F33300CCCCC0000
0003919999990FFF09333883FF338888883388F333F388F388F333300CCC0333
33333919909990FFF093333883FF8F333333388F3833F88F38833333300C0333
333333919990990F0933333338838F3333333388F338F3888833333333300333
33333339190099903333333333388333333333388F883338F333333333333333
333333339199999933333333333333333333333388F333F83333333333333333
3333333339199993333333333333333333333333388F38833333333333333333
3333333333919333333333333333333333333333338883333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object gStavke0: TMyDBGrid
Tag = 1
Left = 216
Top = 4
Width = 409
Height = 297
FindByName = True
DataSource = DataNorm.sStavke
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 = []
OnEnter = gStavke0Enter
end
object MjereNaziv: TDBVar
Left = 90
Top = 252
Width = 9
Height = 9
TabStop = False
AutoSize = False
DataField = 'Naziv'
DataSource = DataNorm.sMjere
Enabled = False
TabOrder = 13
OnChange = Mjereno
end
object DBEdit2: TDBVar
Left = 78
Top = 252
Width = 9
Height = 9
TabStop = False
AutoSize = False
DataField = 'XKol'
DataSource = DataNorm.sStavke
Enabled = False
TabOrder = 14
OnChange = Mjereno
end
object xImaAtoma: TDBChecker
Left = 104
Top = 250
Width = 13
Height = 13
TabStop = False
Caption = 'xImaAtoma'
DataField = 'ImaAtoma'
DataSource = DataNorm.sPakung
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 = xImaAtomaChange
end
object xImaBoje: TDBChecker
Left = 62
Top = 250
Width = 15
Height = 13
TabStop = False
Caption = 'xImaBoje'
DataField = 'Bezbojno'
DataSource = DataNorm.sRoba
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 16
ValueChecked = 'True'
ValueUnchecked = 'False'
OnChange = xImaBojeChange
end
object eMinKol: TDBJustLookup
Left = 52
Top = 248
Width = 77
Height = 22
TabStop = False
DataField = 'ATOM'
DataSource = DataNorm.sStavke
LookupSource = DataNorm.sAtomi
LookupField = 'KOLICINA'
Color = clBtnFace
Enabled = False
TabOrder = 4
DisplayName = 'Osnovna jedinica koli�ine'
OnExitChanged = eMinKolExitChanged
end
object eKolicina: TDBVar
Left = 52
Top = 272
Width = 101
Height = 21
AutoSize = False
DataField = 'Kolicina'
DataSource = DataNorm.sStavke
TabOrder = 5
OnExitChanged = tStavkeKolicinaChange
end
object SifBookA: TNotebook
Tag = 1
Left = 12
Top = 128
Width = 189
Height = 37
TabOrder = 2
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Na�e �ifre'
object Label26: TLabel
Left = 0
Top = 12
Width = 23
Height = 13
Caption = 'Artikl'
end
object eSifArt: TDBJustLookup
Left = 32
Top = 8
Width = 157
Height = 21
DataField = 'ARTIKL'
DataSource = DataNorm.sStavke
LookupSource = DataNorm.sArtikl
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
Required = True
DisplayName = '�ifra artikla'
OnExitChanged = eSifArtExitChanged
OnF2Press = SifArt_F2
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Dobavlja�eve �ifre'
object Label42: TLabel
Left = 0
Top = 0
Width = 52
Height = 13
Caption = '�ifra artikla'
end
object Label46: TLabel
Left = 100
Top = 0
Width = 78
Height = 13
Caption = 'Na�a �ifra artikla'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object eSifArtD: TDBJustLookup
Left = 0
Top = 16
Width = 97
Height = 21
DataField = 'ARTIKL'
DataSource = DataNorm.sStavke
LookupSource = DataNorm.sArtikl
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
Required = True
DisplayName = '�ifra artikla po kupcu'
OnExitChanged = eSifArtDExitChanged
OnF2Press = SifArt_F2
end
object DBField1: TDBCodeField
Tag = 55
Left = 100
Top = 16
Width = 89
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'SIFRA'
DataSource = DataNorm.sArtikl2
ParentCtl3D = False
TabOrder = 1
Required = False
DisplayName = 'Na�a �ifra artikla'
OnF2Press = SifArtD_F2
end
end
end
object SifBookB: TNotebook
Tag = 1
Left = 12
Top = 196
Width = 189
Height = 37
TabOrder = 3
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Na�e �ifre'
object Label119: TLabel
Left = 4
Top = 12
Width = 21
Height = 13
Caption = 'Boja'
end
object eSifBoje: TDBJustLookup
Left = 32
Top = 8
Width = 157
Height = 21
TabStop = False
DataField = 'BOJA'
DataSource = DataNorm.sStavke
LookupSource = DataNorm.sBoje
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
Color = clBtnFace
Enabled = False
TabOrder = 0
DisplayName = '�ifra boje'
OnExitChanged = eSifBojeExitChanged
OnF2Press = SifBoja_F2
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Dobavlja�eve �ifre'
object Label121: TLabel
Left = 2
Top = 0
Width = 44
Height = 13
Caption = '�ifra boje'
end
object Label122: TLabel
Left = 102
Top = 0
Width = 70
Height = 13
Caption = 'Na�a �ifra boje'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object eSifBojeD: TDBJustLookup
Left = 0
Top = 16
Width = 97
Height = 21
TabStop = False
DataField = 'BOJA'
DataSource = DataNorm.sStavke
LookupSource = DataNorm.sBoje
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
Color = clBtnFace
Enabled = False
TabOrder = 0
DisplayName = '�ifra boje po kupcu'
OnExitChanged = eSifBojeDExitChanged
OnF2Press = SifBoja_F2
end
object DBField3: TDBCodeField
Tag = 55
Left = 100
Top = 16
Width = 89
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'SIFRA'
DataSource = DataNorm.sBoje2
ParentCtl3D = False
TabOrder = 1
Required = False
DisplayName = 'Na�a �ifra boje'
OnF2Press = SifBojaD_F2
end
end
end
object eVrijednost: TDBVar
Left = 100
Top = 384
Width = 101
Height = 21
AutoSize = False
DataField = 'Kolicina'
DataSource = DataNorm.sStavke2
TabOrder = 10
end
object eOpis: TDBVar
Left = 12
Top = 360
Width = 189
Height = 21
AutoSize = False
DataField = 'Opis'
DataSource = DataNorm.sStavke2
TabOrder = 9
end
object cSifra2: TDBKey
Left = 156
Top = 312
Width = 49
Height = 21
AutoSize = False
Ctl3D = True
DataField = 'STAVKA'
DataSource = DataNorm.sStavke2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 8
DisplayName = 'Stavka Ulazne fakture'
end
object MaterijalBtn: TBitBtn
Left = 5
Top = 302
Width = 80
Height = 25
Caption = 'Materijal'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = MaterijalBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object gStavke1: TMyDBGrid
Tag = 1
Left = 216
Top = 308
Width = 409
Height = 137
FindByName = True
DataSource = DataNorm.sStavke2
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
TabOrder = 7
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnEnter = gStavke1Enter
end
end
end
end