home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TSIFARNIKSKLADISTA
/
TSIFARNIKSKLADISTA.txt
Wrap
Text File
|
1998-01-05
|
49KB
|
2,070 lines
object SifarnikSkladista: TSifarnikSkladista
Tag = 1
Left = 155
Top = 102
ActiveControl = gTable
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '�ifarnik skladi�ta'
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
OnClose = FormClose
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel4: TBevel
Left = 4
Top = 62
Width = 389
Height = 115
Shape = bsFrame
end
object Bevel3: TBevel
Left = 4
Top = 2
Width = 389
Height = 43
Shape = bsFrame
end
object Bevel1: TBevel
Left = 4
Top = 222
Width = 389
Height = 229
Shape = bsFrame
Style = bsRaised
end
object Label1: TLabel
Left = 12
Top = 6
Width = 27
Height = 13
Caption = '�ifra'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 92
Width = 40
Height = 13
Alignment = taRightJustify
Caption = 'Org. jed.'
end
object PartnerLabel2: TLabel
Left = 22
Top = 70
Width = 34
Height = 13
Alignment = taRightJustify
Caption = 'Vlasnik'
end
object PartnerLabel1: TLabel
Left = 12
Top = 110
Width = 53
Height = 13
Caption = 'Lokacija:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 144
Top = 6
Width = 27
Height = 13
Caption = 'Naziv'
FocusControl = EditNaziv
end
object Label11: TLabel
Left = 68
Top = 230
Width = 26
Height = 13
Alignment = taRightJustify
Caption = 'Roba'
FocusControl = nKontoRobe
end
object Label12: TLabel
Left = 8
Top = 330
Width = 86
Height = 13
Alignment = taRightJustify
Caption = 'Nab.vr. prod. robe'
FocusControl = nKontoNVPRobe
end
object Label13: TLabel
Left = 11
Top = 370
Width = 83
Height = 13
Alignment = taRightJustify
Caption = 'Prihodi od prod. r.'
FocusControl = nKontoPP
end
object Label14: TLabel
Left = 24
Top = 270
Width = 71
Height = 13
Alignment = taRightJustify
Caption = 'Razlika u cijeni'
FocusControl = nKontoRUC
end
object Label15: TLabel
Left = 60
Top = 410
Width = 35
Height = 13
Alignment = taRightJustify
Caption = 'Manjak'
FocusControl = nKontoManjak
end
object Label16: TLabel
Left = 16
Top = 390
Width = 79
Height = 13
Alignment = taRightJustify
Caption = 'Tro�kovi prodaje'
FocusControl = nKontoTP
end
object Label17: TLabel
Left = 42
Top = 430
Width = 53
Height = 13
Alignment = taRightJustify
Caption = 'Kvar (otpis)'
FocusControl = nKontoKvar
end
object Bevel2: TBevel
Left = 400
Top = 416
Width = 225
Height = 34
end
object Label7: TLabel
Left = 11
Top = 156
Width = 31
Height = 13
Alignment = taRightJustify
Caption = 'Zemlja'
end
object Label10: TLabel
Left = 202
Top = 156
Width = 30
Height = 13
Alignment = taRightJustify
Caption = 'Valuta'
FocusControl = nValuta
end
object Label4: TLabel
Left = 15
Top = 250
Width = 80
Height = 13
Alignment = taRightJustify
Caption = 'Tro�kovi nabave'
end
object DBText8: TMyDBText
Left = 72
Top = 110
Width = 317
Height = 15
DataField = 'Naziv'
DataSource = sPartner
end
object DBText9: TMyDBText
Left = 136
Top = 124
Width = 253
Height = 15
DataField = 'Mjesto'
DataSource = sPartner
end
object DBText10: TMyDBText
Left = 136
Top = 138
Width = 253
Height = 13
DataField = 'UlicaBroj'
DataSource = sPartner
end
object Label2: TLabel
Left = 8
Top = 226
Width = 43
Height = 13
Alignment = taCenter
Caption = 'KONTA'
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 = 37
Top = 350
Width = 58
Height = 13
Alignment = taRightJustify
Caption = 'Rabat (dani)'
FocusControl = nKontoManjak
end
object Label18: TLabel
Left = 17
Top = 288
Width = 76
Height = 13
Alignment = taRightJustify
Caption = 'Trgova�ka roba'
FocusControl = nKontoTrgRoba
end
object Label19: TLabel
Left = 9
Top = 308
Width = 84
Height = 13
Alignment = taRightJustify
Caption = 'Ukalkulirani porez'
FocusControl = nKontoKalkPorez
end
object VrstaSkladista: TDBVar
Left = 596
Top = 14
Width = 21
Height = 21
TabStop = False
AutoSize = False
DataField = 'VrstaTer'
DataSource = sSkladist
Enabled = False
TabOrder = 37
OnChange = VrstaSkladistaChange
end
object eKontoRobe: TDBLookupField
Left = 100
Top = 226
Width = 93
Height = 21
DataField = 'KONTOROBE'
DataSource = sSkladist
LookupSource = sKonta1
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 14
DisplayName = 'Konto robe'
OnF2Press = eKontoRobeF2Press
end
object eKontoTN: TDBLookupField
Left = 100
Top = 246
Width = 93
Height = 21
DataField = 'KONTOTROSKANABAVE'
DataSource = sSkladist
LookupSource = sKonta10
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 16
DisplayName = 'Konto tro�kova nabave'
OnF2Press = eKontoRobeF2Press
end
object eKontoRUC: TDBLookupField
Left = 100
Top = 266
Width = 93
Height = 21
DataField = 'KONTORUC'
DataSource = sSkladist
LookupSource = sKonta4
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 18
DisplayName = 'Konto RUC'
OnF2Press = eKontoRobeF2Press
end
object eKontoTrgRoba: TDBLookupField
Left = 100
Top = 286
Width = 93
Height = 21
DataField = 'KONTOTRGROBA'
DataSource = sSkladist
LookupSource = sKonta8
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 20
DisplayName = 'Konto prim. dotacije'
OnF2Press = eKontoRobeF2Press
end
object eKontoKalkPorez: TDBLookupField
Left = 100
Top = 306
Width = 93
Height = 21
DataField = 'KONTOKALKPOREZ'
DataSource = sSkladist
LookupSource = sKonta9
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 22
DisplayName = 'Konto dane dotacije'
OnF2Press = eKontoRobeF2Press
end
object eKontoNVPRobe: TDBLookupField
Left = 100
Top = 326
Width = 93
Height = 21
DataField = 'KONTONVPROBE'
DataSource = sSkladist
LookupSource = sKonta2
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 24
DisplayName = 'Konto NV prod. robe'
OnF2Press = eKontoRobeF2Press
end
object eKontoRabat: TDBLookupField
Left = 100
Top = 346
Width = 93
Height = 21
DataField = 'KONTORABATA'
DataSource = sSkladist
LookupSource = sKonta11
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 26
DisplayName = 'Konto rabata'
OnF2Press = eKontoRobeF2Press
end
object eKontoPP: TDBLookupField
Left = 100
Top = 366
Width = 93
Height = 21
DataField = 'KONTOPPROBE'
DataSource = sSkladist
LookupSource = sKonta3
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 28
DisplayName = 'Konto prihoda prodane robe'
OnF2Press = eKontoRobeF2Press
end
object eKontoTP: TDBLookupField
Left = 100
Top = 386
Width = 93
Height = 21
DataField = 'KONTOTROSKAPRODAJE'
DataSource = sSkladist
LookupSource = sKonta6
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 30
DisplayName = 'Konto tro�kova prodaje'
OnF2Press = eKontoRobeF2Press
end
object eKontoManjak: TDBLookupField
Left = 100
Top = 406
Width = 93
Height = 21
DataField = 'KONTOMANJAK'
DataSource = sSkladist
LookupSource = sKonta5
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 32
DisplayName = 'Konto manjak'
OnF2Press = eKontoRobeF2Press
end
object eKontoKvar: TDBLookupField
Left = 100
Top = 426
Width = 93
Height = 21
DataField = 'KONTOKVAR'
DataSource = sSkladist
LookupSource = sKonta7
LookupDisplay = 'KONTO'
LookupField = 'CODE'
TabOrder = 34
DisplayName = 'Konto kvar'
OnF2Press = eKontoRobeF2Press
end
object nKontoRobe: TDBName
Tag = 55
Left = 192
Top = 226
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta1
ParentCtl3D = False
TabOrder = 15
end
object nKontoTN: TDBName
Tag = 55
Left = 192
Top = 246
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta10
ParentCtl3D = False
TabOrder = 17
end
object nKontoRUC: TDBName
Tag = 55
Left = 192
Top = 266
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta4
ParentCtl3D = False
TabOrder = 19
end
object nKontoTrgRoba: TDBName
Tag = 55
Left = 192
Top = 286
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta8
ParentCtl3D = False
TabOrder = 21
end
object nKontoKalkPorez: TDBName
Tag = 55
Left = 192
Top = 306
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta9
ParentCtl3D = False
TabOrder = 23
end
object nKontoNVPRobe: TDBName
Tag = 55
Left = 192
Top = 326
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta2
ParentCtl3D = False
TabOrder = 25
end
object nKontoRabat: TDBName
Tag = 55
Left = 192
Top = 346
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta11
ParentCtl3D = False
TabOrder = 27
end
object nKontoPP: TDBName
Tag = 55
Left = 192
Top = 366
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta3
ParentCtl3D = False
TabOrder = 29
end
object nKontoTP: TDBName
Tag = 55
Left = 192
Top = 386
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta6
ParentCtl3D = False
TabOrder = 31
end
object nKontoManjak: TDBName
Tag = 55
Left = 192
Top = 406
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta5
ParentCtl3D = False
TabOrder = 33
end
object nKontoKvar: TDBName
Tag = 55
Left = 192
Top = 426
Width = 193
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sKonta7
ParentCtl3D = False
TabOrder = 35
end
object nOrgJed: TDBName
Tag = 55
Left = 184
Top = 88
Width = 201
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sOrgJed
ParentCtl3D = False
TabOrder = 8
end
object IzlazButton: TBitBtn
Left = 552
Top = 420
Width = 69
Height = 25
Cancel = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = IzlazButtonClick
Glyph.Data = {
76020000424D7602000000000000760000002800000040000000100000000100
0400000000000002000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333C33333
333333333333333333333333338F33333333333333333333333333333C0C3333
3333333333333333333333333888F333333333333333333333333333C0F0C333
33333333333333333333333388388F3333333333333FF3333333333C0FFF0C33
33333333330033333333333888F388F33333333333883FF3333333CCC0FFF0C3
333333333309003333333383388F388F33333333338F883FF3333CCCCC0FFF0C
3333333333099900333338333388F388F3333FFFFF8F33883FF34CCCCCC0FFF0
C33300000009999900338F3333388F388F33888888833333883FC4CCCCCC0FFF
0C33099999999999990088F333F388F388F38FFFFFFF33333F883C4CC0CCC0FF
F0C30000000999990033388F3833F88F38838888888F333F883333C4CCC0CC0F
0C3333333309990033333388F338F38888333333338F3F883333333C4C00CCC0
3333333333090033333333388F883338F3333333338F883333333333C4CCCCCC
33333333330033333333333388F333F83333333333883333333333333C4CCCC3
333333333333333333333333388F388333333333333333333333333333C4C333
3333333333333333333333333388833333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object gTable: TMyDBGrid
Left = 396
Top = 4
Width = 233
Height = 311
FindByName = False
DataSource = sSkladist
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
ParentFont = False
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object eSifra: TDBKeyField
Left = 12
Top = 20
Width = 125
Height = 20
AutoSize = False
DataField = 'SIFRA'
DataSource = sSkladist
TabOrder = 3
DisplayName = '�ifra skladi�ta'
end
object EditNaziv: TDBVar
Left = 144
Top = 20
Width = 241
Height = 20
AutoSize = False
DataField = 'Naziv'
DataSource = sSkladist
TabOrder = 4
end
object eOrgJed: TDBLookupField
Left = 64
Top = 88
Width = 121
Height = 21
DataField = 'ORGJED'
DataSource = sSkladist
LookupSource = sOrgJed
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 7
DisplayName = '�ifra organizacijske jedinice'
OnF2Press = eOrgJedF2Press
end
object eSifPart: TDBJustLookup
Left = 12
Top = 126
Width = 121
Height = 21
DataField = 'PARTNER'
DataSource = sSkladist
LookupSource = sSifPart
LookupDisplay = 'SIFRA'
LookupField = 'PARTNER'
TabOrder = 9
DisplayName = '�ifra partnera'
OnExitChanged = tSkladistPartnerChange
OnF2Press = eSifPartF2Press
end
object eDrzava: TDBLookupField
Left = 48
Top = 152
Width = 145
Height = 21
DataField = 'DRZAVA'
DataSource = sSkladist
LookupSource = sDrzave
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 10
DisplayName = '�ifra dr�ave'
OnExitChanged = tSkladistVlasnikChange
OnF2Press = eDrzavaF2Press
end
object nValuta: TDBName
Tag = 55
Left = 292
Top = 152
Width = 97
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Ctl3D = True
DataField = 'Naziv'
DataSource = sValute
ParentCtl3D = False
TabOrder = 12
end
object eValuta: TDBLookupField
Left = 236
Top = 152
Width = 57
Height = 21
DataField = 'VALUTA'
DataSource = sSkladist
LookupSource = sValute
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 11
DisplayName = '�ifra valute'
OnF2Press = eValutaF2Press
end
object ZapisiButton: TBitBtn
Left = 404
Top = 420
Width = 117
Height = 25
Caption = 'Skladi�te'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = ZapisiButtonClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object xVlasnik: TDBChecker
Left = 20
Top = 46
Width = 361
Height = 15
Alignment = taLeftJustify
Caption =
'Roba koja se nalazi na ovome skladi�tu vlasni�tvo je na�eg poduz' +
'e�a ?'
Ctl3D = True
DataField = 'Moje'
DataSource = sSkladist
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 5
ValueChecked = 'True'
ValueUnchecked = 'False'
OnChange = xVlasnikChange
OnClick = tSkladistMojeChange
end
object ePoduzece: TEdit
Left = 64
Top = 66
Width = 321
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object Book1: TNotebook
Left = 396
Top = 320
Width = 233
Height = 95
TabOrder = 36
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Na�a roba'
object Book3: TNotebook
Left = 0
Top = 0
Width = 233
Height = 91
PageIndex = 1
TabOrder = 0
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Proizvodnja'
object Bevel9: TBevel
Left = 0
Top = 0
Width = 233
Height = 89
Shape = bsFrame
Style = bsRaised
end
object Label26: TLabel
Left = 4
Top = 4
Width = 101
Height = 13
Caption = 'Skladi�te veleprodaje'
end
object DBText4: TMyDBText
Left = 112
Top = 4
Width = 117
Height = 37
DataField = 'Naziv'
DataSource = sSklad2
WordWrap = True
end
object Label25: TLabel
Left = 4
Top = 46
Width = 103
Height = 13
Caption = 'Skladi�te maloprodaje'
end
object DBText5: TMyDBText
Left = 112
Top = 44
Width = 109
Height = 37
DataField = 'Naziv'
DataSource = sSklad3
WordWrap = True
end
object DBJustLookup2: TDBJustLookup
Left = 4
Top = 20
Width = 105
Height = 21
DataField = 'VP_SKLAD'
DataSource = sSkladist
LookupSource = sSklad2
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
DisplayName = 'Prelazno skladi�te veleprodaje'
end
object DBJustLookup3: TDBJustLookup
Left = 4
Top = 60
Width = 105
Height = 21
DataField = 'MP_SKLAD'
DataSource = sSkladist
LookupSource = sSklad3
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 1
DisplayName = 'Prelazno skladi�te u maloprodaji'
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Veleprodaja'
object Bevel11: TBevel
Left = 0
Top = 0
Width = 233
Height = 89
Shape = bsFrame
Style = bsRaised
end
object Label23: TLabel
Left = 4
Top = 44
Width = 103
Height = 13
Caption = 'Skladi�te maloprodaje'
end
object DBText3: TMyDBText
Left = 112
Top = 44
Width = 117
Height = 37
DataField = 'Naziv'
DataSource = sSklad3
WordWrap = True
end
object Label24: TLabel
Left = 4
Top = 4
Width = 100
Height = 13
Caption = 'Trgova�ka knjiga VP'
end
object DBText6: TMyDBText
Left = 112
Top = 4
Width = 117
Height = 37
DataField = 'Naziv'
DataSource = sKnjige
WordWrap = True
end
object DBJustLookup1: TDBJustLookup
Left = 4
Top = 60
Width = 105
Height = 21
DataField = 'MP_SKLAD'
DataSource = sSkladist
LookupSource = sSklad3
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 1
DisplayName = 'Prelazno skladi�te maloprodaje'
end
object eKnjiga: TDBJustLookup
Left = 4
Top = 20
Width = 105
Height = 21
DataField = 'KNJIGA'
DataSource = sSkladist
LookupSource = sKnjige
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
DisplayName = '�ifra trgova�ke knjige veleprodaje'
OnF2Press = eKnjigaF2Press
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Maloprodaja'
object Bevel10: TBevel
Left = 0
Top = 0
Width = 233
Height = 89
Shape = bsFrame
Style = bsRaised
end
object Label9: TLabel
Left = 4
Top = 4
Width = 102
Height = 13
Caption = 'Trgova�ka knjiga MP'
end
object DBText7: TMyDBText
Left = 112
Top = 4
Width = 117
Height = 37
DataField = 'Naziv'
DataSource = sKnjige
WordWrap = True
end
object Label31: TLabel
Left = 4
Top = 44
Width = 101
Height = 13
Caption = 'Skladi�te veleprodaje'
end
object DBText15: TMyDBText
Left = 112
Top = 44
Width = 117
Height = 37
DataField = 'Naziv'
DataSource = sSklad2
WordWrap = True
end
object DBLookupField1: TDBJustLookup
Left = 4
Top = 20
Width = 105
Height = 21
DataField = 'KNJIGA'
DataSource = sSkladist
LookupSource = sKnjige
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
DisplayName = '�ifra trgova�ke knjige maloprodaje'
OnF2Press = eKnjigaF2Press
end
object DBJustLookup8: TDBJustLookup
Left = 4
Top = 60
Width = 105
Height = 21
DataField = 'VP_SKLAD'
DataSource = sSkladist
LookupSource = sSklad2
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 1
DisplayName = 'Prelazno skladi�te veleprodaje'
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Materijal'
object Bevel13: TBevel
Left = 0
Top = 2
Width = 233
Height = 85
Shape = bsFrame
Style = bsRaised
end
object Label27: TLabel
Left = 4
Top = 44
Width = 100
Height = 13
Caption = 'Skladi�te proizvodnje'
end
object DBText11: TMyDBText
Left = 116
Top = 44
Width = 113
Height = 37
DataField = 'Naziv'
DataSource = sSklad4
WordWrap = True
end
object Label28: TLabel
Left = 4
Top = 4
Width = 109
Height = 13
Caption = 'Knjiga nabave rep.mat.'
end
object DBText12: TMyDBText
Left = 116
Top = 4
Width = 113
Height = 37
DataField = 'Naziv'
DataSource = sKnjige
WordWrap = True
end
object DBJustLookup4: TDBJustLookup
Left = 4
Top = 60
Width = 105
Height = 21
DataField = 'MP_SKLAD'
DataSource = sSkladist
LookupSource = sSklad4
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 1
DisplayName = 'Prelazno skladi�te proizvodnje'
end
object DBJustLookup5: TDBJustLookup
Left = 4
Top = 20
Width = 105
Height = 21
DataField = 'KNJIGA'
DataSource = sSkladist
LookupSource = sKnjige
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
DisplayName = 'Knjiga nabave i uporabe materijala'
OnF2Press = eKnjigaF2Press
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Oprema'
object Bevel5: TBevel
Left = 0
Top = 20
Width = 233
Height = 49
Shape = bsFrame
Style = bsRaised
end
object Label29: TLabel
Left = 4
Top = 24
Width = 106
Height = 13
Caption = 'Knjiga opreme i osn.sr.'
end
object DBText13: TMyDBText
Left = 116
Top = 24
Width = 113
Height = 37
DataField = 'Naziv'
DataSource = sKnjige
WordWrap = True
end
object DBJustLookup6: TDBJustLookup
Left = 4
Top = 40
Width = 105
Height = 21
DataField = 'KNJIGA'
DataSource = sSkladist
LookupSource = sKnjige
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
DisplayName = 'Knjiga opreme i osn. sredstava'
OnF2Press = eKnjigaF2Press
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Sitni inventar'
object Bevel6: TBevel
Left = 0
Top = 20
Width = 233
Height = 49
Shape = bsFrame
Style = bsRaised
end
object Label30: TLabel
Left = 4
Top = 24
Width = 107
Height = 13
Caption = 'Knjiga sitnog inventara'
end
object DBText14: TMyDBText
Left = 116
Top = 24
Width = 113
Height = 37
DataField = 'Naziv'
DataSource = sKnjige
WordWrap = True
end
object DBJustLookup7: TDBJustLookup
Left = 4
Top = 40
Width = 105
Height = 21
DataField = 'KNJIGA'
DataSource = sSkladist
LookupSource = sKnjige
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
DisplayName = 'Knjiga sitnog inventara'
OnF2Press = eKnjigaF2Press
end
end
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Njihova roba'
object Book2: TNotebook
Left = 0
Top = 0
Width = 233
Height = 91
TabOrder = 0
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Razlika u cijeni'
object Bevel7: TBevel
Left = 4
Top = 6
Width = 225
Height = 83
Shape = bsFrame
end
object Label5: TLabel
Left = 8
Top = 12
Width = 56
Height = 13
Caption = 'Veleprodaje'
end
object Label20: TLabel
Left = 8
Top = 50
Width = 58
Height = 13
Caption = 'Maloprodaje'
end
object Label21: TLabel
Left = 76
Top = 2
Width = 104
Height = 13
Alignment = taCenter
Caption = 'Prelazna skladi�ta'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText1: TMyDBText
Left = 116
Top = 14
Width = 109
Height = 35
DataField = 'Naziv'
DataSource = sSklad2
WordWrap = True
end
object DBText2: TMyDBText
Left = 116
Top = 50
Width = 109
Height = 37
DataField = 'Naziv'
DataSource = sSklad3
WordWrap = True
end
object Veleprodaja: TDBJustLookup
Left = 8
Top = 26
Width = 105
Height = 21
DataField = 'VP_SKLAD'
DataSource = sSkladist
LookupSource = sSklad2
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 0
DisplayName = 'Prelazno skladi�te u veleprodaji'
end
object Maloprodaja: TDBJustLookup
Left = 8
Top = 64
Width = 105
Height = 21
DataField = 'MP_SKLAD'
DataSource = sSkladist
LookupSource = sSklad3
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 1
DisplayName = 'Prelazno skladi�te u maloprodaji'
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Provizija'
object Bevel8: TBevel
Left = 132
Top = 22
Width = 93
Height = 47
Shape = bsFrame
end
object Label22: TLabel
Left = 136
Top = 26
Width = 69
Height = 13
Alignment = taCenter
Caption = 'Stopa provizije'
end
object DBRadioGroup2: TMyDBRadioGroup
Left = 4
Top = 4
Width = 125
Height = 83
Caption = 'Osnovica za proviziju'
DataField = 'Osnovica'
DataSource = sSkladist
Items.Strings = (
'Cijena bez rabata'
'Cijena s 1. rabatom'
'Cijena s 2. rabatom'
'Cijena s oba rabata')
TabOrder = 0
Values.Strings = (
'1'
'2'
'3'
'4')
end
object DBEdit1: TDBVar
Left = 144
Top = 42
Width = 69
Height = 21
AutoSize = False
DataField = 'Provizija'
DataSource = sSkladist
TabOrder = 1
end
end
end
end
end
object Book: TNotebook
Left = 4
Top = 178
Width = 389
Height = 43
TabOrder = 13
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Na�a roba'
object rVrsta: TMyDBRadioGroup
Left = 0
Top = -1
Width = 389
Height = 42
Caption = 'Vrsta tere�enja skladi�ta'
Columns = 3
DataField = 'VrstaTer'
DataSource = sSkladist
Items.Strings = (
'Proizvodnja'
'Veleprodaja'
'Maloprodaja'
'Materijal'
'Oprema'
'Sitni inventar')
TabOrder = 0
Values.Strings = (
'6'
'1'
'2'
'3'
'4'
'5')
OnChange = rVrstaChange
OnClick = rVrstaChange
OnEnter = rVrstaEnter
OnExit = rVrstaExit
end
end
object TPage
Tag = 1
Left = 0
Top = 0
Caption = 'Njihova roba'
object Zarada: TMyDBRadioGroup
Left = 0
Top = 4
Width = 389
Height = 35
Caption = 'Zarada na prodaji robe izra�ava se u obliku'
Columns = 2
DataField = 'Zarada'
DataSource = sSkladist
Items.Strings = (
'Razlike u cijeni (rabat, mar�a)'
'Provizije od dobavlja�a (vlasnika)')
TabOrder = 0
Values.Strings = (
'1'
'2')
OnChange = ZaradaChange
OnClick = ZaradaChange
end
end
end
object sSkladist: TDataSource
DataSet = tSkladist
Left = 448
Top = 28
end
object sKonta1: TDataSource
DataSet = tKonta1
Left = 456
Top = 86
end
object sKonta2: TDataSource
DataSet = tKonta2
Left = 456
Top = 114
end
object sKonta3: TDataSource
DataSet = tKonta3
Left = 456
Top = 142
end
object sKonta4: TDataSource
DataSet = tKonta4
Left = 456
Top = 170
end
object sKonta5: TDataSource
DataSet = tKonta5
Left = 456
Top = 198
end
object sKonta6: TDataSource
DataSet = tKonta6
Left = 528
Top = 86
end
object sKonta7: TDataSource
DataSet = tKonta7
Left = 528
Top = 114
end
object sKonta8: TDataSource
DataSet = tKonta8
Left = 528
Top = 142
end
object sKonta9: TDataSource
DataSet = tKonta9
Left = 528
Top = 170
end
object sKonta10: TDataSource
DataSet = tKonta10
Left = 528
Top = 198
end
object sOrgJed: TDataSource
DataSet = tOrgJed
Left = 136
Top = 86
end
object sSifPart: TDataSource
DataSet = tSifPart
Left = 72
Top = 122
end
object sDrzave: TDataSource
DataSet = tDrzave
Left = 146
Top = 148
end
object sValute: TDataSource
DataSet = tValute
Left = 356
Top = 150
end
object sSklad4: TDataSource
DataSet = tSklad4
Left = 590
Top = 238
end
object sKnjige: TDataSource
DataSet = tKnjige
Left = 590
Top = 266
end
object sPartner: TDataSource
DataSet = tPartner
Left = 264
Top = 118
end
object sSklad2: TDataSource
DataSet = tSklad2
Left = 590
Top = 182
end
object sSklad3: TDataSource
DataSet = tSklad3
Left = 590
Top = 210
end
object sKonta11: TDataSource
DataSet = tKonta11
Left = 528
Top = 226
end
object tKonta1: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOROBE'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 428
Top = 86
end
object tKonta2: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTONVPROBE'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 428
Top = 114
end
object tKonta3: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOPPROBE'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 428
Top = 142
end
object tKonta4: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTORUC'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 428
Top = 170
end
object tKonta5: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOMANJAK'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 428
Top = 198
end
object tKonta6: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOTROSKAPRODAJE'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 500
Top = 86
end
object tKonta7: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOKVAR'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 500
Top = 114
end
object tKonta8: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOTRGROBA'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 500
Top = 142
end
object tKonta9: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOKALKPOREZ'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 500
Top = 170
end
object tKonta10: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTOTROSKANABAVE'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 500
Top = 198
end
object tKonta11: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'KONTORABATA'
MasterSource = sSkladist
TableName = 'KONTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 500
Top = 226
end
object tSklad4: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'MJESTO;CODE'
MasterFields = 'MJESTO3;MP_SKLAD'
MasterSource = sSkladist
TableName = 'SKLADIST.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 562
Top = 238
end
object tSklad3: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'MJESTO;VRSTATER;CODE'
MasterFields = 'MJESTO2;MPS;MP_SKLAD'
MasterSource = sSkladist
TableName = 'SKLADIST.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 562
Top = 210
end
object tSklad2: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'MJESTO;VRSTATER;CODE'
MasterFields = 'MJESTO2;VPS;VP_SKLAD'
MasterSource = sSkladist
TableName = 'SKLADIST.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 562
Top = 182
end
object tDrzave: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'DRZAVA'
MasterSource = sSkladist
TableName = 'ZEMLJA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 118
Top = 148
end
object tValute: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'VALUTA'
MasterSource = sSkladist
TableName = 'VALUTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 328
Top = 150
end
object tKnjige: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'VRSTA;CODE'
MasterFields = 'VRSTATER;KNJIGA'
MasterSource = sSkladist
TableName = 'KNJIGE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 562
Top = 266
end
object tOrgJed: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;CODE'
MasterFields = 'PODUZECE;ORGJED'
MasterSource = sSkladist
TableName = 'ORG_JED.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 108
Top = 86
object tOrgJedCode: TAutoIncField
FieldName = 'Code'
end
object tOrgJedPartner: TIntegerField
FieldName = 'Partner'
end
object tOrgJedSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tOrgJedNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
end
object tPartner: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Partner'
MasterSource = sSifPart
TableName = 'PARTNER.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 236
Top = 118
object tPartnerCode: TAutoIncField
FieldName = 'Code'
end
object tPartnerSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPartnerNaziv: TStringField
FieldName = 'Naziv'
Size = 80
end
object tPartnerMjesto: TStringField
FieldName = 'Mjesto'
Size = 40
end
object tPartnerUlicaBroj: TStringField
FieldName = 'UlicaBroj'
Size = 60
end
object tPartnerPosta: TIntegerField
FieldName = 'Posta'
end
object tPartnerZemlja: TIntegerField
FieldName = 'Zemlja'
end
object tPartnerJezik: TIntegerField
FieldName = 'Jezik'
end
object tPartnerValuta: TIntegerField
FieldName = 'Valuta'
end
object tPartnerItems: TIntegerField
FieldName = 'Items'
Visible = False
end
end
object tSifPart: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'DOBAVLJAC;PARTNER'
MasterFields = 'DOB;PARTNER'
MasterSource = sSkladist
TableName = 'SIF_PART.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 44
Top = 122
object tSifPartSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tSifPartDobavljac: TStringField
FieldName = 'Dobavljac'
Size = 1
end
object tSifPartDrzava: TStringField
FieldName = 'Drzava'
Size = 1
end
object tSifPartPartner: TIntegerField
FieldName = 'Partner'
end
object tSifPartGovor: TIntegerField
FieldName = 'Govor'
end
object tSifPartItems: TIntegerField
FieldName = 'Items'
Visible = False
end
end
object tSkladist: TMyTable
OnCalcFields = tSkladistCalcFields
OnNewRecord = tSkladistNewRecord
DatabaseName = 'Lokal'
IndexFieldNames = 'SIFRA'
TableName = 'SKLADIST.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 420
Top = 28
object tSkladistPoduzece: TIntegerField
FieldName = 'Poduzece'
Visible = False
Calculated = True
end
object tSkladistDob: TStringField
FieldName = 'Dob'
Visible = False
Size = 1
Calculated = True
end
object tSkladistVPS: TSmallintField
FieldName = 'VPS'
Visible = False
Calculated = True
end
object tSkladistMPS: TSmallintField
FieldName = 'MPS'
Visible = False
Calculated = True
end
object tSkladistMjesto2: TStringField
FieldName = 'Mjesto2'
Visible = False
Size = 1
Calculated = True
end
object tSkladistMjesto3: TStringField
FieldName = 'Mjesto3'
Visible = False
Size = 1
Calculated = True
end
object tSkladistCode: TAutoIncField
FieldName = 'Code'
Visible = False
end
object tSkladistSifra: TStringField
DisplayLabel = '�ifra skladi�ta'
DisplayWidth = 15
FieldName = 'Sifra'
Size = 40
end
object tSkladistNaziv: TStringField
DisplayLabel = 'Naziv skladi�ta'
DisplayWidth = 17
FieldName = 'Naziv'
Size = 80
end
object tSkladistMoje: TBooleanField
FieldName = 'Moje'
Visible = False
end
object tSkladistPartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
object tSkladistLokacija: TIntegerField
FieldName = 'Lokacija'
Visible = False
end
object tSkladistVlasnik: TIntegerField
FieldName = 'Vlasnik'
Visible = False
end
object tSkladistOrgJed: TIntegerField
FieldName = 'OrgJed'
Visible = False
end
object tSkladistDrzava: TIntegerField
FieldName = 'Drzava'
Visible = False
end
object tSkladistMjesto: TStringField
FieldName = 'Mjesto'
Visible = False
Size = 1
end
object tSkladistVrstaTer: TSmallintField
FieldName = 'VrstaTer'
Visible = False
end
object tSkladistZarada: TSmallintField
FieldName = 'Zarada'
Visible = False
end
object tSkladistVP_Sklad: TIntegerField
FieldName = 'VP_Sklad'
Visible = False
end
object tSkladistMP_Sklad: TIntegerField
FieldName = 'MP_Sklad'
Visible = False
end
object tSkladistOsnovica: TSmallintField
FieldName = 'Osnovica'
Visible = False
end
object tSkladistProvizija: TFloatField
FieldName = 'Provizija'
Visible = False
Precision = 9
end
object tSkladistKnjiga: TIntegerField
FieldName = 'Knjiga'
Visible = False
end
object tSkladistValuta: TIntegerField
FieldName = 'Valuta'
Visible = False
end
object tSkladistKontoRobe: TIntegerField
FieldName = 'KontoRobe'
Visible = False
end
object tSkladistKontoNVPRobe: TIntegerField
FieldName = 'KontoNVPRobe'
Visible = False
end
object tSkladistKontoPPRobe: TIntegerField
FieldName = 'KontoPPRobe'
Visible = False
end
object tSkladistKontoRUC: TIntegerField
FieldName = 'KontoRUC'
Visible = False
end
object tSkladistKontoManjak: TIntegerField
FieldName = 'KontoManjak'
Visible = False
end
object tSkladistKontoTroskaProdaje: TIntegerField
FieldName = 'KontoTroskaProdaje'
Visible = False
end
object tSkladistKontoKvar: TIntegerField
FieldName = 'KontoKvar'
Visible = False
end
object tSkladistKontoTrgRoba: TIntegerField
FieldName = 'KontoTrgRoba'
Visible = False
end
object tSkladistKontoKalkPorez: TIntegerField
FieldName = 'KontoKalkPorez'
Visible = False
end
object tSkladistKontoTroskaNabave: TIntegerField
FieldName = 'KontoTroskaNabave'
Visible = False
end
object tSkladistKontoRabata: TIntegerField
FieldName = 'KontoRabata'
Visible = False
end
object tSkladistItems: TIntegerField
FieldName = 'Items'
Visible = False
end
end
end