object StanjeArtikli: TStanjeArtikli Tag = 1 Left = 154 Top = 109 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Kartica artikli (zbirno po svim 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 Bevel11: TBevel Left = 95 Top = 100 Width = 2 Height = 52 Shape = bsLeftLine end object Bevel9: TBevel Left = 4 Top = 100 Width = 185 Height = 52 end object PrnKartica: TSpeedButton Left = 98 Top = 126 Width = 90 Height = 25 Caption = 'Kartica ' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 OnClick = PrnKarticaClick end object PrnPromet: TSpeedButton Left = 98 Top = 101 Width = 90 Height = 25 Caption = 'Promet ' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 OnClick = PrnKarticaClick end object Bevel10: TBevel Left = 92 Top = 100 Width = 0 Height = 49 Shape = bsLeftLine end object PrnZaliha: TSpeedButton Left = 5 Top = 101 Width = 89 Height = 50 Caption = 'Zaliha ' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} Layout = blGlyphTop NumGlyphs = 2 OnClick = PrnKarticaClick end object eGovor: TDBVar Left = 344 Top = 48 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 = 1 OnChange = eGovorChange end object gSifRobe: TMyDBGrid Left = 196 Top = 4 Width = 431 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 Panel: TPanel Left = 0 Top = 155 Width = 632 Height = 298 BevelOuter = bvNone TabOrder = 3 object Bevel17: TBevel Left = 497 Top = 44 Width = 3 Height = 21 Shape = bsLeftLine end object Bevel16: TBevel Left = 373 Top = 44 Width = 3 Height = 21 Shape = bsLeftLine end object Bevel15: TBevel Left = 249 Top = 44 Width = 3 Height = 21 Shape = bsLeftLine end object Bevel14: TBevel Left = 125 Top = 44 Width = 3 Height = 21 Shape = bsLeftLine end 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 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 = 2 ValueChecked = 'True' ValueUnchecked = 'False' 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 = 3 ValueChecked = 'D' ValueUnchecked = 'N' end object gKartice: TMyDBGrid Left = 4 Top = 161 Width = 625 Height = 111 FindByName = True Ctl3D = True DataSource = sKartica Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit] ParentCtl3D = False TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object gStavke: TMyDBGrid Left = 4 Top = 67 Width = 624 Height = 93 FindByName = True Ctl3D = True DataSource = sSaldoX Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit] ParentCtl3D = False TabOrder = 0 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 = 112 Top = 48 end object sSifRobe: TDataSource DataSet = tSifRobe Left = 248 Top = 44 end object sRoba: TDataSource DataSet = tRoba Left = 376 Top = 44 end object sFirme: TDataSource DataSet = tFirme Left = 248 Top = 80 end object sSifRobe2: TDataSource DataSet = tSifRobe2 Left = 312 Top = 44 end object sImeRobe: TDataSource DataSet = tImeRobe Left = 440 Top = 44 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 = 284 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 = 348 Top = 44 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 = 284 Top = 44 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 = 220 Top = 80 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 = 220 Top = 44 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 = 37 FieldName = 'Naziv' Size = 60 end object tSifRobeOtkup: TStringField DisplayLabel = 'O' FieldName = 'Otkup' Visible = False Size = 1 end object tSifRobeZaliha: TFloatField DisplayWidth = 12 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 = 84 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 = 412 Top = 44 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 = 'Artikl;Boja;MinKol;Vrsta;Skladiste' MasterFields = 'Code' MasterSource = sSifRobe TableName = 'SALDOX.DB' AutoOpen = True AutoFlush = False FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 104 Top = 232 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 tSaldoXSkladist: TStringField DisplayLabel = 'Skladi�te' DisplayWidth = 12 FieldName = 'Skladist' Calculated = True end object tSaldoXBoja: TIntegerField DisplayWidth = 15 FieldName = 'Boja' Visible = False end object tSaldoXBojica: TStringField DisplayLabel = 'Boja' DisplayWidth = 14 FieldName = 'Bojica' Calculated = True 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 tKarticaImeDok: TStringField DisplayLabel = 'Dokument' DisplayWidth = 11 FieldName = 'ImeDok' Calculated = True end object tKarticaVrsta: TSmallintField FieldName = 'Vrsta' Visible = False 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 tZaliha: TMyTable DatabaseName = 'Lokal' IndexFieldNames = 'Artikl' MasterFields = 'Code' MasterSource = sSifRobe TableName = 'S_ZALIHA.DB' AutoOpen = True AutoFlush = False FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 256 Top = 116 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 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 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 object tCodesFullOpis: TStringField FieldName = 'FullOpis' Size = 80 Calculated = True end end object tZalihe: TMyTable DatabaseName = 'Lokal' IndexFieldNames = 'Artikl' TableName = 'S_ZALIHA.DB' AutoOpen = True AutoFlush = False FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 220 Top = 116 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 = 348 Top = 80 object tJediniceCode: TAutoIncField FieldName = 'Code' end object tJediniceSifra: TStringField FieldName = 'Sifra' Size = 40 end object tJediniceGovor: TIntegerField FieldName = 'Govor' Calculated = True end 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 = 412 Top = 80 object tMjereJedinica: TIntegerField FieldName = 'Jedinica' end object tMjereGovor: TIntegerField FieldName = 'Govor' end object tMjereNaziv: TStringField FieldName = 'Naziv' OnGetText = tMjereNazivGetText Size = 60 end end object sJedinice: TDataSource DataSet = tJedinice Left = 376 Top = 80 end object sMjere: TDataSource DataSet = tMjere Left = 440 Top = 80 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 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 sBoja: TDataSource DataSet = tBoja Left = 284 Top = 228 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