home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TSTANJEARTIKLI2
/
TSTANJEARTIKLI2.txt
Wrap
Text File
|
1998-01-05
|
36KB
|
1,492 lines
object StanjeArtikli2: TStanjeArtikli2
Tag = 1
Left = 146
Top = 109
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Kartica artikli po skladi�tima'
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
OnCloseQuery = FormCloseQuery
OnHide = FormHide
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel9: TBevel
Left = 4
Top = 99
Width = 186
Height = 53
end
object PrnKartica: TSpeedButton
Left = 93
Top = 125
Width = 96
Height = 26
Caption = 'Kartica <F7>'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
OnClick = PrintBtnClick
end
object PrnZaliha: TSpeedButton
Left = 5
Top = 100
Width = 80
Height = 51
Caption = 'Zaliha <F5>'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
Layout = blGlyphTop
NumGlyphs = 2
OnClick = PrintBtnClick
end
object PrnPromet: TSpeedButton
Left = 93
Top = 100
Width = 96
Height = 25
Caption = 'Promet <F6>'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
OnClick = PrintBtnClick
end
object Bevel11: TBevel
Left = 88
Top = 100
Width = 5
Height = 50
Shape = bsLeftLine
end
object DBEdit1: TDBEdit
Left = 264
Top = 28
Width = 21
Height = 21
TabStop = False
DataField = 'Code'
DataSource = sSkladiste
Enabled = False
TabOrder = 5
OnChange = DBEdit1Change
end
object eGovor: TDBVar
Left = 276
Top = 12
Width = 22
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
DataField = 'Govor'
DataSource = sSifPart
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
OnChange = eGovorChange
end
object gSifRobe: TMyDBGrid
Left = 312
Top = 4
Width = 316
Height = 147
FindByName = True
Ctl3D = True
DataSource = sSifRobe
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object gSifPart: TMyDBGrid
Left = 4
Top = 4
Width = 186
Height = 93
FindByName = True
DataSource = sSifPart
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object gSkladiste: TMyDBGrid
Left = 191
Top = 4
Width = 120
Height = 147
FindByName = True
DataSource = sSkladiste
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Panel: TPanel
Left = 0
Top = 156
Width = 632
Height = 297
BevelOuter = bvNone
TabOrder = 3
object Bevel2: TBevel
Left = 16
Top = 274
Width = 593
Height = 22
Style = bsRaised
end
object Bevel3: TBevel
Left = 180
Top = 0
Width = 5
Height = 21
Shape = bsLeftLine
end
object Bevel5: TBevel
Left = 424
Top = 0
Width = 5
Height = 21
Shape = bsLeftLine
end
object Bevel6: TBevel
Left = 372
Top = 19
Width = 5
Height = 22
Shape = bsLeftLine
end
object Bevel1: TBevel
Left = 4
Top = 19
Width = 625
Height = 6
Shape = bsTopLine
end
object Bevel4: TBevel
Left = 4
Top = 0
Width = 625
Height = 42
Shape = bsFrame
Style = bsRaised
end
object Label24: TLabel
Left = 12
Top = 4
Width = 24
Height = 13
Caption = '�ifra:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lProizvodi: TLabel
Left = 432
Top = 4
Width = 40
Height = 13
Caption = 'Oznaka:'
end
object Label2: TLabel
Left = 188
Top = 4
Width = 57
Height = 13
Caption = 'Proizvo�a�:'
end
object DBText3: TMyDBText
Left = 40
Top = 4
Width = 137
Height = 13
DataField = 'Sifra'
DataSource = sSifRobe
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText4: TMyDBText
Left = 252
Top = 4
Width = 169
Height = 13
DataField = 'Sifra'
DataSource = sFirme
end
object DBText5: TMyDBText
Left = 476
Top = 4
Width = 149
Height = 13
DataField = 'Sifra'
DataSource = sSifRobe2
end
object DBText1: TMyDBText
Left = 12
Top = 24
Width = 357
Height = 13
DataField = 'Naziv'
DataSource = sImeRobe
end
object Label1: TLabel
Left = 172
Top = 278
Width = 95
Height = 13
Caption = 'Nabavna vrijednost:'
end
object Label3: TLabel
Left = 408
Top = 278
Width = 65
Height = 13
Caption = 'VP vrijednost:'
end
object DBText2: TMyDBText
Left = 272
Top = 278
Width = 121
Height = 13
Alignment = taRightJustify
DataField = 'NV'
DataSource = sKartica
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DBText6: TMyDBText
Left = 476
Top = 278
Width = 125
Height = 13
Alignment = taRightJustify
DataField = 'VPV'
DataSource = sKartica
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel7: TBevel
Left = 401
Top = 274
Width = 3
Height = 22
Shape = bsLeftLine
end
object Label4: TLabel
Left = 20
Top = 278
Width = 40
Height = 13
Caption = 'Koli�ina:'
end
object DBText7: TMyDBText
Left = 64
Top = 278
Width = 97
Height = 13
Alignment = taRightJustify
DataField = 'Kolicina'
DataSource = sKartica
end
object Bevel8: TBevel
Left = 165
Top = 273
Width = 3
Height = 22
Shape = bsLeftLine
end
object Bevel13: TBevel
Left = 4
Top = 44
Width = 625
Height = 21
end
object DBText8: TMyDBText
Left = 36
Top = 48
Width = 85
Height = 13
Alignment = taRightJustify
DataField = 'Ulaz'
DataSource = sZaliha
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBText9: TMyDBText
Left = 408
Top = 48
Width = 85
Height = 13
Alignment = taRightJustify
DataField = 'Izlaz'
DataSource = sZaliha
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBText10: TMyDBText
Left = 168
Top = 48
Width = 77
Height = 13
Alignment = taRightJustify
DataField = 'Prijem'
DataSource = sZaliha
end
object Prijenos: TMyDBText
Left = 300
Top = 48
Width = 69
Height = 13
Alignment = taRightJustify
DataField = 'Prijenos'
DataSource = sZaliha
end
object DBText11: TMyDBText
Left = 536
Top = 48
Width = 89
Height = 13
Alignment = taRightJustify
DataField = 'Kolicina'
DataSource = sZaliha
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 8
Top = 48
Width = 24
Height = 13
Caption = 'Ulaz:'
end
object Label6: TLabel
Left = 380
Top = 48
Width = 24
Height = 13
Caption = 'Izlaz:'
end
object Label7: TLabel
Left = 132
Top = 48
Width = 31
Height = 13
Caption = 'Prijem:'
end
object Label8: TLabel
Left = 256
Top = 48
Width = 40
Height = 13
Caption = 'Prijenos:'
end
object Label9: TLabel
Left = 504
Top = 48
Width = 32
Height = 13
Caption = 'Zaliha:'
end
object Bevel14: TBevel
Left = 125
Top = 44
Width = 3
Height = 21
Shape = bsLeftLine
end
object Bevel15: TBevel
Left = 249
Top = 44
Width = 3
Height = 21
Shape = bsLeftLine
end
object Bevel16: TBevel
Left = 373
Top = 44
Width = 3
Height = 21
Shape = bsLeftLine
end
object Bevel17: TBevel
Left = 497
Top = 44
Width = 3
Height = 21
Shape = bsLeftLine
end
object xBoje2: TDBChecker
Left = 380
Top = 24
Width = 129
Height = 13
TabStop = False
Caption = 'Proizvodi se u vi�e boja'
DataField = 'Bezbojno'
DataSource = sRoba
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnEnter = PrintKartica
end
object xOtkup1: TDBChecker
Left = 516
Top = 24
Width = 109
Height = 13
TabStop = False
Caption = 'Otkup od gra�ana'
DataField = 'Otkup'
DataSource = sSifRobe
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
ValueChecked = 'D'
ValueUnchecked = 'N'
end
object gStavke: TMyDBGrid
Left = 4
Top = 66
Width = 624
Height = 93
FindByName = True
Ctl3D = True
DataSource = sSaldoX
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object gKartice: TMyDBGrid
Left = 4
Top = 160
Width = 625
Height = 111
FindByName = True
Ctl3D = True
DataSource = sKartica
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object sSifPart: TDataSource
DataSet = tSifPart
Left = 48
Top = 48
end
object sSifRobe: TDataSource
DataSet = tSifRobe
Left = 364
Top = 48
end
object sRoba: TDataSource
DataSet = tRoba
Left = 492
Top = 48
end
object sFirme: TDataSource
DataSet = tFirme
Left = 364
Top = 84
end
object sSifRobe2: TDataSource
DataSet = tSifRobe2
Left = 428
Top = 48
end
object sImeRobe: TDataSource
DataSet = tImeRobe
Left = 556
Top = 48
end
object sSkladiste: TDataSource
DataSet = tSkladiste
Left = 236
Top = 72
end
object sSaldoX: TDataSource
DataSet = tSaldoX
Left = 132
Top = 232
end
object sKartica: TDataSource
DataSet = tKartica
Left = 112
Top = 340
end
object sZaliha: TDataSource
DataSet = tZaliha
Left = 396
Top = 116
end
object tRoba: TMyTable
OnCalcFields = tRobaCalcFields
DatabaseName = 'Global'
IndexFieldNames = 'CODE'
MasterFields = 'CODE'
MasterSource = sSifRobe2
TableName = 'ROBA.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 464
Top = 48
object tRobaCode: TAutoIncField
FieldName = 'Code'
end
object tRobaProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tRobaNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tRobaTarifaPoreza: TIntegerField
FieldName = 'TarifaPoreza'
end
object tRobaTarifaCarine: TIntegerField
FieldName = 'TarifaCarine'
end
object tRobaVrsta: TIntegerField
FieldName = 'Vrsta'
end
object tRobaJedMj: TIntegerField
FieldName = 'JedMj'
end
object tRobaPakiranje: TIntegerField
FieldName = 'Pakiranje'
end
object tRobaBarKod: TStringField
FieldName = 'BarKod'
Size = 13
end
object tRobaTezina: TFloatField
FieldName = 'Tezina'
Precision = 9
end
object tRobaBezbojno: TBooleanField
FieldName = 'Bezbojno'
end
object tRobaGovor: TIntegerField
FieldName = 'Govor'
Visible = False
Calculated = True
end
object tRobaPartner: TIntegerField
FieldName = 'Partner'
Visible = False
Calculated = True
end
object tRobaGovor2: TIntegerField
FieldName = 'Govor2'
Visible = False
Calculated = True
end
end
object tSifRobe2: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;CODE'
MasterFields = 'PROIZVODI;CODE'
MasterSource = sSifRobe
TableName = 'SIF_ROBE.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 400
Top = 48
object tSifRobe2Partner: TIntegerField
FieldName = 'Partner'
end
object tSifRobe2Sifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tSifRobe2Code: TIntegerField
FieldName = 'Code'
end
object tSifRobe2Proizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tSifRobe2Grupa: TIntegerField
FieldName = 'Grupa'
end
object tSifRobe2PodGrupa: TIntegerField
FieldName = 'PodGrupa'
end
object tSifRobe2Amortizacija: TIntegerField
FieldName = 'Amortizacija'
end
object tSifRobe2Revalorizacija: TIntegerField
FieldName = 'Revalorizacija'
end
object tSifRobe2Naziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tSifRobe2Otkup: TStringField
FieldName = 'Otkup'
Visible = False
Size = 1
end
end
object tFirme: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER'
MasterFields = 'PROIZVODI'
MasterSource = sSifRobe
TableName = 'FIRME.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 336
Top = 84
object tFirmeSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tFirmePartner: TIntegerField
FieldName = 'Partner'
end
object tFirmeBarKodOsnova: TStringField
FieldName = 'BarKodOsnova'
Size = 10
end
object tFirmeBarKodVelicina: TSmallintField
FieldName = 'BarKodVelicina'
end
end
object tSifRobe: TMyTable
OnCalcFields = tSifRobeCalcFields
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;SIFRA'
MasterFields = 'Partner'
MasterSource = sSifPart
TableName = 'SIF_ROBE.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 336
Top = 48
object tSifRobePartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
object tSifRobeSifra: TStringField
DisplayLabel = '�ifra artikla'
DisplayWidth = 15
FieldName = 'Sifra'
Size = 40
end
object tSifRobeCode: TIntegerField
FieldName = 'Code'
Visible = False
end
object tSifRobeProizvodi: TIntegerField
FieldName = 'Proizvodi'
Visible = False
end
object tSifRobeGrupa: TIntegerField
FieldName = 'Grupa'
Visible = False
end
object tSifRobePodGrupa: TIntegerField
FieldName = 'PodGrupa'
Visible = False
end
object tSifRobeAmortizacija: TIntegerField
FieldName = 'Amortizacija'
Visible = False
end
object tSifRobeRevalorizacija: TIntegerField
FieldName = 'Revalorizacija'
Visible = False
end
object tSifRobeNaziv: TStringField
DisplayLabel = 'Naziv artikla'
DisplayWidth = 20
FieldName = 'Naziv'
Size = 60
end
object tSifRobeOtkup: TStringField
DisplayLabel = 'O'
FieldName = 'Otkup'
Visible = False
Size = 1
end
object tSifRobeSkladiste: TIntegerField
FieldName = 'Skladiste'
Visible = False
Calculated = True
end
object tSifRobeZaliha: TFloatField
DisplayWidth = 10
FieldName = 'Zaliha'
Calculated = True
end
end
object tSifPart: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Dobavljac;Sifra'
TableName = 'SIF_PART.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 20
Top = 48
object tSifPartSifra: TStringField
DisplayLabel = 'Partner (�ifra)'
DisplayWidth = 25
FieldName = 'Sifra'
Size = 40
end
object tSifPartDobavljac: TStringField
FieldName = 'Dobavljac'
Visible = False
Size = 1
end
object tSifPartDrzava: TStringField
FieldName = 'Drzava'
Visible = False
Size = 1
end
object tSifPartPartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
object tSifPartGovor: TIntegerField
FieldName = 'Govor'
Visible = False
end
end
object tImeRobe: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Roba;Govor'
MasterFields = 'Code;Govor'
MasterSource = sRoba
TableName = 'IME_ROBE.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 528
Top = 48
object tImeRobeRoba: TIntegerField
FieldName = 'Roba'
end
object tImeRobeGovor: TIntegerField
FieldName = 'Govor'
end
object tImeRobeNaziv: TStringField
FieldName = 'Naziv'
OnGetText = tImeRobeNazivGetText
Size = 60
end
end
object tSaldoX: TMyTable
OnCalcFields = tSaldoXCalcFields
DatabaseName = 'Lokal'
IndexFieldNames = 'Skladiste;Artikl;Boja;MinKol'
MasterFields = 'Skladiste;Code'
MasterSource = sSifRobe
TableName = 'SALDOX.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 104
Top = 232
object tSaldoXSkladist: TStringField
DisplayLabel = 'Skladi�te'
DisplayWidth = 12
FieldName = 'Skladist'
Calculated = True
end
object tSaldoXArtikl: TIntegerField
FieldName = 'Artikl'
Visible = False
end
object tSaldoXSkladiste: TIntegerField
FieldName = 'Skladiste'
Visible = False
end
object tSaldoXVrsta: TSmallintField
DisplayLabel = 'V'
DisplayWidth = 1
FieldName = 'Vrsta'
Visible = False
end
object tSaldoXBojica: TStringField
DisplayLabel = 'Boja'
DisplayWidth = 14
FieldName = 'Bojica'
Calculated = True
end
object tSaldoXBoja: TIntegerField
DisplayWidth = 15
FieldName = 'Boja'
Visible = False
end
object tSaldoXMinKol: TFloatField
DisplayLabel = 'Min. kol.'
DisplayWidth = 7
FieldName = 'MinKol'
Precision = 9
end
object tSaldoXUlaz: TFloatField
DisplayWidth = 12
FieldName = 'Ulaz'
Precision = 9
end
object tSaldoXPrijem: TFloatField
DisplayWidth = 12
FieldName = 'Prijem'
Precision = 9
end
object tSaldoXPrijenos: TFloatField
DisplayWidth = 12
FieldName = 'Prijenos'
Precision = 9
end
object tSaldoXIzlaz: TFloatField
DisplayWidth = 12
FieldName = 'Izlaz'
Precision = 9
end
object tSaldoXKolicina: TFloatField
DisplayLabel = 'Zaliha'
DisplayWidth = 11
FieldName = 'Kolicina'
Precision = 9
end
end
object tKartica: TMyTable
OnCalcFields = tKarticaCalcFields
DatabaseName = 'Lokal'
IndexFieldNames = 'Skladiste;Artikl;Boja;MinKol;Datum;Vrsta;BrojDok;Stavka;Svrha'
MasterFields = 'Skladiste;Artikl;Boja;MinKol'
MasterSource = sSaldoX
TableName = 'IZLAZR.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 84
Top = 340
object tKarticaSkladiste: TIntegerField
FieldName = 'Skladiste'
Visible = False
end
object tKarticaArtikl: TIntegerField
FieldName = 'Artikl'
Visible = False
end
object tKarticaBoja: TIntegerField
FieldName = 'Boja'
Visible = False
end
object tKarticaMinKol: TFloatField
FieldName = 'MinKol'
Visible = False
end
object tKarticaDatum: TDateField
DisplayWidth = 10
FieldName = 'Datum'
end
object tKarticaVrsta: TSmallintField
FieldName = 'Vrsta'
Visible = False
end
object tKarticaImeDok: TStringField
DisplayLabel = 'Dokument'
DisplayWidth = 11
FieldName = 'ImeDok'
Calculated = True
end
object tKarticaOpis: TStringField
DisplayWidth = 10
FieldName = 'Opis'
Calculated = True
end
object tKarticaImeKalk: TStringField
DisplayLabel = 'Kalkulacija'
DisplayWidth = 11
FieldName = 'ImeKalk'
Calculated = True
end
object tKarticaBrojDok: TIntegerField
DisplayLabel = 'Dokument'
FieldName = 'BrojDok'
Visible = False
end
object tKarticaSvrha: TSmallintField
DisplayLabel = 'Opis'
DisplayWidth = 5
FieldName = 'Svrha'
Visible = False
end
object tKarticaStavka: TSmallintField
FieldName = 'Stavka'
Visible = False
end
object tKarticaUlazDok: TIntegerField
DisplayLabel = 'Kalkulacija'
FieldName = 'UlazDok'
Visible = False
end
object tKarticaCijena: TFloatField
Tag = 2
DisplayLabel = 'Nabavna cijena'
DisplayWidth = 14
FieldName = 'Cijena'
Calculated = True
end
object tKarticaVPCijena: TFloatField
Tag = 2
DisplayLabel = 'VP cijena'
DisplayWidth = 14
FieldName = 'VPCijena'
Calculated = True
end
object tKarticaUlaz: TFloatField
DisplayWidth = 11
FieldName = 'Ulaz'
end
object tKarticaIzlaz: TFloatField
DisplayWidth = 11
FieldName = 'Izlaz'
end
object tKarticaNV: TFloatField
Tag = -1
DisplayLabel = 'Nabavna vrijednost'
DisplayWidth = 16
FieldName = 'NV'
Visible = False
end
object tKarticaVPV: TFloatField
Tag = -1
DisplayLabel = 'VP vrijednost'
DisplayWidth = 16
FieldName = 'VPV'
Visible = False
end
object tKarticaKolicina: TFloatField
FieldName = 'Kolicina'
Visible = False
Calculated = True
end
end
object tSkladiste: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Sifra'
TableName = 'SKLADIST.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 208
Top = 72
object tSkladisteCode: TAutoIncField
FieldName = 'Code'
Visible = False
end
object tSkladisteSifra: TStringField
DisplayLabel = 'Skladi�te'
DisplayWidth = 14
FieldName = 'Sifra'
Size = 40
end
object tSkladisteNaziv: TStringField
FieldName = 'Naziv'
Visible = False
Size = 80
end
end
object tZaliha: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Skladiste;Artikl'
MasterFields = 'Skladiste;Code'
MasterSource = sSifRobe
TableName = 'S_ZALIHE.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 368
Top = 116
object IntegerField1: TIntegerField
FieldName = 'Skladiste'
end
object IntegerField2: TIntegerField
FieldName = 'Artikl'
end
object FloatField1: TFloatField
FieldName = 'Kolicina'
end
object tZalihaUlaz: TFloatField
FieldName = 'Ulaz'
end
object tZalihaIzlaz: TFloatField
FieldName = 'Izlaz'
end
object tZalihaPrijem: TFloatField
FieldName = 'Prijem'
end
object tZalihaPrijenos: TFloatField
FieldName = 'Prijenos'
end
end
object tBoje: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;PROIZVODI;CODE'
TableName = 'SIF_BOJA.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 132
Top = 260
object tBojePartner: TIntegerField
FieldName = 'Partner'
end
object tBojeProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tBojeSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tBojeCode: TIntegerField
FieldName = 'Code'
end
object tBojeNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
end
object tCodes: TMyTable
OnCalcFields = tCodesCalcFields
DatabaseName = 'Lokal'
IndexFieldNames = 'Code'
TableName = 'CODES.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 84
Top = 368
object tCodesCode: TAutoIncField
FieldName = 'Code'
end
object tCodesKnjizeno: TStringField
FieldName = 'Knjizeno'
Size = 1
end
object tCodesVrsta: TSmallintField
FieldName = 'Vrsta'
end
object tCodesBroj: TIntegerField
FieldName = 'Broj'
end
object tCodesOpis: TStringField
FieldName = 'Opis'
Calculated = True
end
end
object tSkladist: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Code'
TableName = 'SKLADIST.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 104
Top = 260
object tSkladistCode: TAutoIncField
FieldName = 'Code'
end
object tSkladistSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tSkladistNaziv: TStringField
FieldName = 'Naziv'
Size = 80
end
end
object tZalihe: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Skladiste;Artikl'
TableName = 'S_ZALIHE.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 336
Top = 116
object tZaliheSkladiste: TIntegerField
FieldName = 'Skladiste'
end
object tZaliheArtikl: TIntegerField
FieldName = 'Artikl'
end
object tZaliheKolicina: TFloatField
FieldName = 'Kolicina'
end
end
object tJedinice: TMyTable
AutoCalcFields = False
OnCalcFields = tJediniceCalcFields
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'JedMj'
MasterSource = sRoba
TableName = 'JEDINICE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 408
Top = 84
object tJediniceCode: TAutoIncField
FieldName = 'Code'
end
object tJediniceSifra: TStringField
FieldName = 'Sifra'
Size = 40
end
object tJediniceGovor: TIntegerField
FieldName = 'Govor'
Calculated = True
end
end
object sJedinice: TDataSource
DataSet = tJedinice
Left = 436
Top = 84
end
object tMjere: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Jedinica;Govor'
MasterFields = 'Code;Govor'
MasterSource = sJedinice
TableName = 'MJERE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 472
Top = 84
object tMjereJedinica: TIntegerField
FieldName = 'Jedinica'
end
object tMjereGovor: TIntegerField
FieldName = 'Govor'
end
object tMjereNaziv: TStringField
FieldName = 'Naziv'
OnGetText = tMjereNazivGetText
Size = 60
end
end
object sMjere: TDataSource
DataSet = tMjere
Left = 500
Top = 84
end
object tBoja: TMyTable
AutoCalcFields = False
OnCalcFields = tBojaCalcFields
DatabaseName = 'Global'
IndexFieldNames = 'Code'
MasterFields = 'Boja'
MasterSource = sSaldoX
TableName = 'BOJE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 256
Top = 228
object tBojaCode: TAutoIncField
FieldName = 'Code'
end
object tBojaProizvodi: TIntegerField
FieldName = 'Proizvodi'
end
object tBojaNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
object tBojaGovor: TIntegerField
FieldName = 'Govor'
Calculated = True
end
end
object sBoja: TDataSource
DataSet = tBoja
Left = 284
Top = 228
end
object tImeBoje: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Boja;Govor'
MasterFields = 'Code;Govor'
MasterSource = sBoja
TableName = 'IME_BOJA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 256
Top = 260
object tImeBojeBoja: TIntegerField
FieldName = 'Boja'
end
object tImeBojeGovor: TIntegerField
FieldName = 'Govor'
end
object tImeBojeNaziv: TStringField
FieldName = 'Naziv'
Size = 60
end
end
object sImeBoje: TDataSource
DataSet = tImeBoje
Left = 284
Top = 260
end
object tIzlazi: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Artikl;Boja;MinKol;Vrsta;Skladiste;VPC;RUC;Dok;UFAbroj'
MasterFields = 'Artikl;Boja;MinKol;Vrsta;Skladiste'
MasterSource = sSaldoX
TableName = 'IZLAZI.DB'
AutoOpen = True
AutoFlush = False
FreeToModify = False
FreeToDelete = False
FreeToInsert = False
Left = 168
Top = 232
object tIzlaziSkladiste: TIntegerField
FieldName = 'Skladiste'
Visible = False
end
object tIzlaziArtikl: TIntegerField
FieldName = 'Artikl'
Visible = False
end
object tIzlaziBoja: TIntegerField
DisplayWidth = 6
FieldName = 'Boja'
Visible = False
end
object tIzlaziMinKol: TFloatField
DisplayLabel = 'Min.kol.'
DisplayWidth = 7
FieldName = 'MinKol'
Precision = 9
end
object tIzlaziVrsta: TSmallintField
DisplayLabel = 'V'
DisplayWidth = 1
FieldName = 'Vrsta'
Visible = False
end
object tIzlaziUFAbroj: TIntegerField
DisplayLabel = 'Dokument'
FieldName = 'UFAbroj'
Visible = False
end
object tIzlaziVPC: TFloatField
Tag = 2
DisplayWidth = 12
FieldName = 'VPC'
Visible = False
Precision = 9
end
object tIzlaziRUC: TFloatField
Tag = 2
DisplayWidth = 12
FieldName = 'RUC'
Visible = False
Precision = 9
end
object tIzlaziFaktV: TFloatField
Tag = -11
FieldName = 'FaktV'
Visible = False
Precision = 9
end
object tIzlaziTrosakV: TFloatField
Tag = -11
FieldName = 'TrosakV'
Visible = False
Precision = 9
end
object tIzlaziRUCV: TFloatField
Tag = -11
FieldName = 'RUCV'
Visible = False
Precision = 9
end
object tIzlaziPorezV: TFloatField
Tag = -11
FieldName = 'PorezV'
Visible = False
Precision = 9
end
object tIzlaziPorez3V: TFloatField
Tag = -11
FieldName = 'Porez3V'
Visible = False
Precision = 9
end
object tIzlaziKolicina: TFloatField
DisplayLabel = 'Zaliha'
DisplayWidth = 10
FieldName = 'Kolicina'
Precision = 9
end
object tIzlaziDok: TIntegerField
FieldName = 'Dok'
Visible = False
end
end
end