home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TSIFARNIKPODUZECA
/
TSIFARNIKPODUZECA.txt
Wrap
Text File
|
1998-01-05
|
25KB
|
1,041 lines
object SifarnikPoduzeca: TSifarnikPoduzeca
Tag = 1
Left = 152
Top = 105
VertScrollBar.Visible = False
ActiveControl = gPartner
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '�ifarnik poduze�a'
ClientHeight = 453
ClientWidth = 632
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnClose = FormClose
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 239
Height = 453
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object gPartner: TMyDBGrid
Left = 0
Top = 0
Width = 239
Height = 453
FindByName = True
Align = alClient
DataSource = sPartner
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object Panel2: TPanel
Left = 239
Top = 0
Width = 393
Height = 453
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Bevel4: TBevel
Left = 288
Top = 4
Width = 5
Height = 81
Shape = bsLeftLine
end
object Bevel8: TBevel
Left = 256
Top = 348
Width = 133
Height = 101
Shape = bsFrame
end
object Bevel2: TBevel
Left = 4
Top = 368
Width = 253
Height = 5
Shape = bsTopLine
end
object Bevel6: TBevel
Left = 4
Top = 260
Width = 385
Height = 5
Shape = bsTopLine
end
object Bevel5: TBevel
Left = 4
Top = 194
Width = 385
Height = 5
Shape = bsTopLine
end
object Bevel10: TBevel
Left = 4
Top = 169
Width = 385
Height = 7
Shape = bsBottomLine
end
object Bevel3: TBevel
Left = 4
Top = 84
Width = 385
Height = 5
Shape = bsTopLine
end
object Bevel1: TBevel
Left = 4
Top = 4
Width = 385
Height = 445
Shape = bsFrame
end
object Label5: TLabel
Left = 12
Top = 86
Width = 99
Height = 13
Caption = 'Puni naziv poduze�a'
FocusControl = EditNaziv
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 12
Top = 8
Width = 144
Height = 13
Caption = 'Skra�eni naziv poduze�a'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 12
Top = 372
Width = 36
Height = 13
Caption = 'Telefon'
FocusControl = EditTelefon
end
object Label11: TLabel
Left = 136
Top = 372
Width = 35
Height = 13
Caption = 'Telefax'
FocusControl = EditTelefax
end
object Label12: TLabel
Left = 12
Top = 408
Width = 34
Height = 13
Caption = 'Mobitel'
FocusControl = EditMobitel
end
object Label13: TLabel
Left = 136
Top = 408
Width = 35
Height = 13
Caption = 'Modem'
FocusControl = EditModem
end
object Label14: TLabel
Left = 132
Top = 44
Width = 87
Height = 13
Caption = 'Direktor poduze�a'
FocusControl = EditKontaktOsoba
end
object Label15: TLabel
Left = 12
Top = 44
Width = 54
Height = 13
Caption = 'Mati�ni broj'
FocusControl = EditMaticni
end
object Label16: TLabel
Left = 116
Top = 240
Width = 47
Height = 13
Caption = 'Djelatnost'
FocusControl = EditDjelatnost
end
object Label18: TLabel
Left = 12
Top = 348
Width = 30
Height = 13
Caption = 'Valuta'
end
object Label6: TLabel
Left = 32
Top = 130
Width = 31
Height = 13
Caption = 'Mjesto'
FocusControl = EditMjesto
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 12
Top = 154
Width = 49
Height = 13
Caption = 'Ulica i broj'
FocusControl = EditUlicaBroj
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 144
Top = 196
Width = 94
Height = 13
Caption = 'Po�ta (naziv mjesta)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 12
Top = 196
Width = 31
Height = 13
Caption = 'Zemlja'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 260
Top = 352
Width = 93
Height = 13
Caption = 'Ostali tel/fax brojevi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 12
Top = 264
Width = 31
Height = 13
Caption = 'Banka'
end
object Label2: TLabel
Left = 12
Top = 304
Width = 85
Height = 13
Caption = 'Aktivan �iro-ra�un'
end
object Label20: TLabel
Left = 12
Top = 240
Width = 24
Height = 13
Caption = 'Jezik'
end
object Label22: TLabel
Left = 204
Top = 264
Width = 48
Height = 13
Caption = 'Ino.banka'
end
object Label19: TLabel
Left = 176
Top = 304
Width = 72
Height = 13
Alignment = taCenter
Caption = 'Model pla�anja'
end
object Label1: TLabel
Left = 312
Top = 196
Width = 47
Height = 13
Caption = 'Broj po�te'
end
object EditTelefon: TDBVar
Left = 8
Top = 388
Width = 120
Height = 21
AutoSize = False
DataField = 'Telefon'
DataSource = sPartner
TabOrder = 21
end
object EditTelefax: TDBVar
Left = 132
Top = 388
Width = 120
Height = 21
AutoSize = False
DataField = 'Telefax'
DataSource = sPartner
TabOrder = 22
end
object EditMobitel: TDBVar
Left = 8
Top = 424
Width = 120
Height = 21
AutoSize = False
DataField = 'Mobitel'
DataSource = sPartner
TabOrder = 23
end
object EditModem: TDBVar
Left = 132
Top = 424
Width = 120
Height = 21
AutoSize = False
DataField = 'Modem'
DataSource = sPartner
TabOrder = 24
end
object EditKontaktOsoba: TDBVar
Left = 128
Top = 60
Width = 157
Height = 21
AutoSize = False
DataField = 'KontaktOsoba'
DataSource = sPartner
TabOrder = 2
end
object EditMaticni: TDBVar
Left = 12
Top = 60
Width = 109
Height = 21
AutoSize = False
DataField = 'Maticni'
DataSource = sPartner
TabOrder = 1
end
object EditDjelatnost: TDBName
Tag = 55
Left = 240
Top = 236
Width = 141
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
DataField = 'Naziv'
DataSource = sDjelatno
TabOrder = 13
end
object EditNaziv: TDBVar
Left = 12
Top = 102
Width = 369
Height = 21
AutoSize = False
DataField = 'Naziv'
DataSource = sPartner
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object EditMjesto: TDBVar
Left = 68
Top = 126
Width = 313
Height = 21
AutoSize = False
DataField = 'Mjesto'
DataSource = sPartner
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object EditUlicaBroj: TDBVar
Left = 68
Top = 150
Width = 313
Height = 21
AutoSize = False
DataField = 'UlicaBroj'
DataSource = sPartner
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object BrojeviMemo: TMyDBMemo
Left = 260
Top = 368
Width = 125
Height = 77
DataField = 'OstaliTelefoni'
DataSource = sPartner
ScrollBars = ssVertical
TabOrder = 25
end
object IzlazButton: TBitBtn
Left = 312
Top = 52
Width = 57
Height = 25
Cancel = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 27
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 EditValNaziv: TDBName
Tag = 55
Left = 128
Top = 344
Width = 125
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
DataField = 'Naziv'
DataSource = sValuta
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 20
end
object ZapisiButton: TBitBtn
Left = 296
Top = 16
Width = 85
Height = 29
Caption = 'Poduze�e'
TabOrder = 26
OnClick = ZapisiButtonClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object cDjelatnost: TDBLookupField
Left = 168
Top = 236
Width = 73
Height = 21
DataField = 'DJELATNOST'
DataSource = sPartner
LookupSource = sDjelatno
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 12
DisplayName = '�ifra djelatnosti'
OnF2Press = cDjelatnostF2Press
end
object cValuta: TDBLookupField
Left = 48
Top = 344
Width = 81
Height = 21
DataField = 'VALUTA'
DataSource = sPartner
LookupSource = sValuta
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 19
DisplayName = '�ifra valute'
OnF2Press = cValutaF2Press
end
object cBanka: TDBJustLookup
Left = 12
Top = 280
Width = 177
Height = 21
DataField = 'BANKA'
DataSource = sPartner
LookupSource = sBanke
LookupDisplay = 'SIFRA'
LookupField = 'PARTNER'
TabOrder = 14
DisplayName = '�ifra banke'
OnF2Press = cBankaF2Press
end
object cPosta: TDBLookupField
Left = 144
Top = 212
Width = 165
Height = 21
DataField = 'POSTA'
DataSource = sPartner
LookupSource = sPosta
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 9
DisplayName = 'Po�ta (naziv mjesta)'
OnF2Press = cPostaF2Press
end
object cZemlja: TDBLookupField
Left = 12
Top = 212
Width = 129
Height = 21
DataField = 'ZEMLJA'
DataSource = sPartner
LookupSource = sZemlja
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 8
DisplayName = 'Zemlja'
OnExitChanged = cZemljaExit
OnF2Press = cZemljaF2Press
end
object cSifra: TDBKeyField
Left = 12
Top = 22
Width = 273
Height = 19
AutoSize = False
DataField = 'SIFRA'
DataSource = sPartner
TabOrder = 0
DisplayName = 'Skra�eni naziv poduze�a'
end
object eGovor: TDBLookupField
Left = 40
Top = 236
Width = 69
Height = 21
DataField = 'JEZIK'
DataSource = sPartner
LookupSource = sGovor
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 11
DisplayName = '�ifra govornog podru�ja'
OnExitChanged = eGovorExit
OnF2Press = eGovorF2Press
end
object xVise: TDBChecker
Left = 180
Top = 178
Width = 205
Height = 13
TabStop = False
Caption = 'Dodatni rabat je na ve�e koli�ine robe.'
DataField = 'Rabat2Kolicina'
DataSource = sPartner
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object xPlus: TDBChecker
Left = 12
Top = 178
Width = 161
Height = 13
Caption = 'Poduze�e daje dodatni rabat.'
DataField = 'Rabat2'
DataSource = sPartner
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
ValueChecked = 'True'
ValueUnchecked = 'False'
OnChange = xPlusChange
OnClick = xPlusChange
end
object cBanka2: TDBJustLookup
Left = 204
Top = 280
Width = 177
Height = 21
DataField = 'INOBANKA'
DataSource = sPartner
LookupSource = sBanke2
LookupDisplay = 'SIFRA'
LookupField = 'PARTNER'
TabOrder = 15
DisplayName = 'Banka za pla�anja u inozemstvo'
OnF2Press = cBankaF2Press
end
object ePoziv: TDBVar
Left = 176
Top = 320
Width = 31
Height = 21
AutoSize = False
DataField = 'Poziv'
DataSource = sPartner
TabOrder = 17
end
object eModel: TDBVar
Left = 208
Top = 320
Width = 173
Height = 21
AutoSize = False
DataField = 'Model'
DataSource = sPartner
TabOrder = 18
end
object eZiroRn: TDBLookupField
Left = 12
Top = 320
Width = 153
Height = 21
DataField = 'ZIRORN'
DataSource = sPartner
LookupSource = sZiro
LookupDisplay = 'SIFRA'
LookupField = 'CODE'
TabOrder = 16
DisplayName = '�iro-ra�un partnera'
end
object eBrojPoste: TDBName
Tag = 55
Left = 312
Top = 212
Width = 69
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
DataField = 'Broj'
DataSource = sPosta
TabOrder = 10
end
end
object sPartner: TDataSource
DataSet = tPartner
Left = 52
Top = 28
end
object sValuta: TDataSource
DataSet = tValuta
Left = 328
Top = 340
end
object sDjelatno: TDataSource
DataSet = tDjelatno
Left = 568
Top = 236
end
object sBanke: TDataSource
DataSet = tBanke
Left = 372
Top = 268
end
object sPosta: TDataSource
DataSet = tPosta
Left = 440
Top = 208
end
object sZemlja: TDataSource
DataSet = tZemlja
Left = 296
Top = 208
end
object sGovor: TDataSource
DataSet = tGovor
Left = 312
Top = 240
end
object sBanke2: TDataSource
DataSet = tBanke2
Left = 568
Top = 268
end
object sZiro: TDataSource
DataSet = tZiro
Left = 348
Top = 308
end
object tValuta: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'VALUTA'
MasterSource = sPartner
TableName = 'VALUTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 300
Top = 340
end
object tBanke: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER'
MasterFields = 'BANKA'
MasterSource = sPartner
TableName = 'BANKE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 344
Top = 268
end
object tBanke2: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER'
MasterFields = 'INOBANKA'
MasterSource = sPartner
TableName = 'BANKE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 540
Top = 268
end
object tZiro: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;CODE'
MasterFields = 'CODE;ZIRORN'
MasterSource = sPartner
TableName = 'ZIREKI.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 320
Top = 308
end
object tDjelatno: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'DJELATNOST'
MasterSource = sPartner
TableName = 'DJELATNO.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 540
Top = 236
end
object tGovor: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'JEZIK'
MasterSource = sPartner
TableName = 'GOVOR.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 284
Top = 240
object tGovorCode: TAutoIncField
FieldName = 'Code'
end
object tGovorSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tGovorNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
end
object tPosta: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'ZEMLJA;CODE'
MasterFields = 'ZEMLJA;POSTA'
MasterSource = sPartner
TableName = 'POSTA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 412
Top = 208
object tPostaCode: TAutoIncField
FieldName = 'Code'
end
object tPostaSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tPostaBroj: TIntegerField
FieldName = 'Broj'
end
object tPostaZemlja: TIntegerField
FieldName = 'Zemlja'
end
end
object tZemlja: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'ZEMLJA'
MasterSource = sPartner
TableName = 'ZEMLJA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 268
Top = 208
object tZemljaCode: TAutoIncField
FieldName = 'Code'
end
object tZemljaSifra: TStringField
FieldName = 'Sifra'
Size = 50
end
object tZemljaGovor: TIntegerField
FieldName = 'Govor'
end
end
object tPartner: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'SIFRA'
TableName = 'PARTNER.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 24
Top = 28
object tPartnerCode: TAutoIncField
FieldName = 'Code'
Visible = False
end
object tPartnerSifra: TStringField
DisplayLabel = 'Skra�eni naziv poduze�a'
DisplayWidth = 34
FieldName = 'Sifra'
Size = 40
end
object tPartnerNaziv: TStringField
FieldName = 'Naziv'
Visible = False
Size = 80
end
object tPartnerMjesto: TStringField
FieldName = 'Mjesto'
Visible = False
Size = 40
end
object tPartnerUlicaBroj: TStringField
FieldName = 'UlicaBroj'
Visible = False
Size = 60
end
object tPartnerPosta: TIntegerField
FieldName = 'Posta'
Visible = False
end
object tPartnerZemlja: TIntegerField
FieldName = 'Zemlja'
Visible = False
end
object tPartnerJezik: TIntegerField
FieldName = 'Jezik'
Visible = False
end
object tPartnerTelefon: TStringField
FieldName = 'Telefon'
Visible = False
end
object tPartnerTelefax: TStringField
FieldName = 'Telefax'
Visible = False
end
object tPartnerMobitel: TStringField
FieldName = 'Mobitel'
Visible = False
end
object tPartnerModem: TStringField
FieldName = 'Modem'
Visible = False
end
object tPartnerKontaktOsoba: TStringField
FieldName = 'KontaktOsoba'
Visible = False
Size = 40
end
object tPartnerMaticni: TStringField
FieldName = 'Maticni'
Visible = False
Size = 30
end
object tPartnerDjelatnost: TIntegerField
FieldName = 'Djelatnost'
Visible = False
end
object tPartnerBanka: TIntegerField
FieldName = 'Banka'
Visible = False
end
object tPartnerInoBanka: TIntegerField
FieldName = 'InoBanka'
Visible = False
end
object tPartnerValuta: TIntegerField
FieldName = 'Valuta'
Visible = False
end
object tPartnerZiroRN: TIntegerField
FieldName = 'ZiroRN'
Visible = False
end
object tPartnerPoziv: TSmallintField
FieldName = 'Poziv'
Visible = False
end
object tPartnerModel: TStringField
FieldName = 'Model'
Visible = False
Size = 30
end
object tPartnerOstaliTelefoni: TMemoField
FieldName = 'OstaliTelefoni'
Visible = False
BlobType = ftMemo
Size = 30
end
object tPartnerRabat2: TBooleanField
FieldName = 'Rabat2'
Visible = False
end
object tPartnerRabat2Kolicina: TBooleanField
FieldName = 'Rabat2Kolicina'
Visible = False
end
object tPartnerItems: TIntegerField
FieldName = 'Items'
Visible = False
end
end
end