object fm2500101Cjenici: Tfm2500101Cjenici Left = 337 Top = 210 Width = 767 Height = 515 HelpContext = 250010100 VertScrollBar.Tracking = True Caption = 'fm2500101Cjenici' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [] FormStyle = fsMDIChild KeyPreview = True Position = poDefaultPosOnly ShowHint = True Visible = True OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 14 object paTipke: TPanel Left = 0 Top = 27 Width = 759 Height = 58 Align = alTop ParentShowHint = False ShowHint = True TabOrder = 0 object bbIzmjena: TBitBtn Left = 5 Top = 7 Width = 75 Height = 22 Hint = 'Izmjena postoje�ih podataka, mijenja se red koji je teku�i u tab' + 'eli tj. ekranu' HelpContext = 1500110 Caption = '&Izmjena' TabOrder = 0 OnClick = bbIzmjenaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 end object bbBrisanje: TBitBtn Left = 231 Top = 30 Width = 75 Height = 22 Hint = 'Brisanje podataka u teku�em redu u tabeli ili u ekranu' HelpContext = 1500124 Caption = '&Brisanje' TabOrder = 1 OnClick = bbBrisanjeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B5555555555555575} NumGlyphs = 2 end object bbIspis: TBitBtn Left = 156 Top = 30 Width = 75 Height = 22 Hint = 'Ispis podataka u vidu izvje�taja' Caption = 'Iz&vje�taji' TabOrder = 2 OnClick = bbIspisClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 end object bbSpremi: TBitBtn Left = 5 Top = 30 Width = 75 Height = 22 Hint = 'Spremanje novih podataka u unosu ili podataka koji su mijenjani' Caption = '&Spremi' TabOrder = 3 OnClick = bbSpremiClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 end object bbOdustani: TBitBtn Left = 80 Top = 7 Width = 75 Height = 22 Hint = 'Odustanak od unosa novih podataka ili mijenjanja postoje�ih' Caption = '&Odustani' TabOrder = 4 OnClick = bbOdustaniClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF3333993333339993333377FF3333377FF3399993333339 993337777FF3333377F3393999333333993337F777FF333337FF993399933333 399377F3777FF333377F993339993333399377F33777FF33377F993333999333 399377F333777FF3377F993333399933399377F3333777FF377F993333339993 399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399 99333773FF3333777733339993333339933333773FFFFFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 end object bbIzlaz: TBitBtn Left = 156 Top = 7 Width = 75 Height = 22 Hint = 'Prekid rada i izlaz iz prozora' Caption = 'I&zlaz' TabOrder = 5 OnClick = bbIzlazClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} NumGlyphs = 2 end object bbSpremisljedeci: TBitBtn Left = 81 Top = 30 Width = 75 Height = 22 Hint = 'Spremanje novih podataka u unosu ili podataka koji su mijenjani' Caption = 'S&ljede�i' Default = True TabOrder = 6 OnClick = bbSpremisljedeciClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF33339993707399933333773337F3777FF3399933000339 9933377333777F3377F3399333707333993337733337333337FF993333333333 399377F33333F333377F993333303333399377F33337FF333373993333707333 333377F333777F333333993333101333333377F333777F3FFFFF993333000399 999377FF33777F77777F3993330003399993373FF3777F37777F399933000333 99933773FF777F3F777F339993707399999333773F373F77777F333999999999 3393333777333777337333333999993333333333377777333333} NumGlyphs = 2 end object bbPrijenos: TBitBtn Left = 383 Top = 7 Width = 75 Height = 22 Hint = 'Prijenos podataka | Prijenos podatka iz teku�eg reda tabele u ek' + 'ran za unos i izmjenu iz kojeg je pozvan izbornik' Caption = 'Prijenos' Default = True TabOrder = 7 OnClick = bbPrijenosClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} NumGlyphs = 2 end object Panel1: TPanel Left = 621 Top = 1 Width = 137 Height = 56 Align = alRight BevelOuter = bvNone TabOrder = 8 object rgRedoslijed: TRadioGroup Left = 1 Top = 7 Width = 126 Height = 37 Hint = 'Promjena redoslijeda prikaza' Caption = 'Redoslijed artikala po' Columns = 2 ItemIndex = 0 Items.Strings = ( '�ifri' 'nazivu') TabOrder = 0 OnClick = rgRedoslijedClick end end object bbBrisanjeSvi: TBitBtn Left = 306 Top = 30 Width = 75 Height = 22 Hint = 'Brisanje svih cijena za cjenik' HelpContext = 1500124 Caption = 'Obri�i sve' TabOrder = 9 OnClick = bbBrisanjeSviClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F5555000555555505555577755555557555} NumGlyphs = 2 end object bbKopiranje: TBitBtn Left = 232 Top = 7 Width = 75 Height = 22 Hint = 'Kopiranje cjenika u drugi cjenik' Caption = '&Kopiranje' TabOrder = 10 OnClick = bbKopiranjeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 end object bbPovecanje: TBitBtn Left = 307 Top = 7 Width = 75 Height = 22 Hint = 'Automatsko pove�anje/smanjenje cijena' Caption = 'Pove�anje' TabOrder = 11 OnClick = bbPovecanjeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000 73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998 0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808 0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808 0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808 0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008 0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008 0333337F777777737F333308888888880333337F333333337F33330888888888 03333373FFFFFFFF733333700000000073333337777777773333} NumGlyphs = 2 end object btArtikli: TBitBtn Left = 382 Top = 30 Width = 75 Height = 22 Hint = 'Unos novog artikla/usluge' HelpContext = 1500124 Caption = '&Artikli' TabOrder = 12 OnClick = btArtikliClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFF5555555000000005555555577777777FF555550999999900 55555575555555775F55509999999901055557F55555557F75F5001111111101 105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F 01105777F555557F7FF75500FFFFFF0F00105577F555FF7F77575550FF70000F 0F0055575FF777757F775555000FFFFF0F005555777555FF7F77555550FF7000 0F055555575FF777757F555555000FFFFF05555555777555FF7F55555550FF70 0005555555575FF7777555555555000555555555555577755555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 end end object Panel4: TPanel Left = 0 Top = 0 Width = 759 Height = 27 Align = alTop ParentShowHint = False ShowHint = True TabOrder = 1 object Label4: TLabel Left = 157 Top = 7 Width = 27 Height = 14 Caption = '&Tra�i:' FocusControl = edTrazi end object DBNavigator1: TDBNavigator Left = 1 Top = 1 Width = 139 Height = 25 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh] Align = alLeft Hints.Strings = ( 'Prvi red' 'Prethodni red' 'Sljede�i red' 'Posljednji red' '' '' '' '' '' 'Obnovi, osvje�i podatke sa diska') TabOrder = 0 end object edTrazi: TEdit Left = 312 Top = 3 Width = 227 Height = 22 Hint = 'Upisivanjem pojedinih znakova �e se pretra�ivati podaci' TabOrder = 2 OnChange = edTraziChange end object cbTrazi: TComboBox Left = 189 Top = 3 Width = 118 Height = 22 Style = csDropDownList ItemHeight = 14 Items.Strings = ( '�ifru' 'naziv ' 'katalo�ki broj') TabOrder = 1 end end object sb: TStatusBar Left = 0 Top = 469 Width = 759 Height = 19 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] Panels = < item Text = 'Status' Width = 100 end item Width = 100 end> ParentFont = False SimplePanel = False end object PageControl: TPageControl Left = 0 Top = 148 Width = 759 Height = 321 ActivePage = pgEkran Align = alClient TabOrder = 3 object pgTabela: TTabSheet Hint = 'Tabelarni pregled podataka' Caption = 'T&abelarni prikaz' ParentShowHint = False ShowHint = False object Splitter1: TSplitter Left = 748 Top = 0 Width = 3 Height = 292 Cursor = crHSplit Align = alRight end object Splitter2: TSplitter Left = 748 Top = 0 Width = 0 Height = 292 Cursor = crHSplit Align = alRight end object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 748 Height = 292 Align = alClient Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgCancelOnExit] ParentShowHint = False ShowHint = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Arial CE' TitleFont.Style = [] OnDblClick = bbPrijenosClick Columns = < item FieldName = 'sifra' Title.Caption = '�ifra' Width = 54 end item FieldName = 'katbroj' Title.Caption = 'Katalo�ki broj' Width = 125 end item FieldName = 'naziv' Title.Caption = 'Naziv' Width = 219 end item Alignment = taRightJustify FieldName = 'cfStanje' Title.Alignment = taRightJustify Title.Caption = 'Stanje' Width = 87 end item Alignment = taRightJustify FieldName = 'cfCijena2' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] Title.Alignment = taRightJustify Title.Caption = 'Cijena s porezom' Width = 106 end item FieldName = 'cfPorez' Title.Caption = 'TB Porez ' Width = 75 end item Alignment = taRightJustify FieldName = 'cfPorezIznos' Title.Alignment = taRightJustify Title.Caption = 'Iznos poreza' Width = 83 end item Alignment = taRightJustify FieldName = 'cfCijena1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] Title.Alignment = taRightJustify Title.Caption = 'Cijena bez poreza' Width = 110 end item Alignment = taRightJustify FieldName = 'cfMarzaStopa' Title.Alignment = taRightJustify Title.Caption = 'Mar�a' Width = 70 end item Alignment = taRightJustify FieldName = 'cfMarza' Title.Alignment = taRightJustify Title.Caption = 'Iznos mar�e' Width = 93 end item Alignment = taRightJustify FieldName = 'cfNc' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] Title.Alignment = taRightJustify Title.Caption = 'Nabavna cijena' Width = 110 end item FieldName = 'cfJedmj' Title.Caption = 'JedMj' Width = 40 end item FieldName = 'klas' Title.Caption = 'Klasifikacija' Width = 77 end item FieldName = 'cfTip' Title.Caption = 'Tip' Width = 54 end item FieldName = 'minz' Title.Caption = 'Min zalihe' Width = 78 end item FieldName = 'maxz' Title.Caption = 'Max zalihe' Width = 74 end> end end object pgEkran: TTabSheet Cursor = crArrow Hint = 'Ekranski pregled, unos i izmjena podataka' Caption = '&Ekranski prikaz' ParentShowHint = False ShowHint = False object scrollBox: TScrollBox Left = 0 Top = 0 Width = 751 Height = 292 HorzScrollBar.Tracking = True VertScrollBar.Margin = 5 VertScrollBar.Tracking = True Align = alClient TabOrder = 0 object paUnos: TPanel Left = 4 Top = 3 Width = 480 Height = 275 TabOrder = 0 object Bevel2: TBevel Left = 9 Top = 12 Width = 458 Height = 251 end object Label1: TLabel Left = 38 Top = 34 Width = 23 Height = 14 Caption = '�ifra' FocusControl = deSifra end object Label2: TLabel Left = 38 Top = 64 Width = 27 Height = 14 Caption = 'Naziv' FocusControl = deNaziv end object Label7: TLabel Left = 38 Top = 96 Width = 75 Height = 14 Caption = 'Stanje skladi�ta' end object Label8: TLabel Left = 38 Top = 121 Width = 111 Height = 14 Caption = 'Teku�a nabavna cijena' end object Label9: TLabel Left = 38 Top = 208 Width = 28 Height = 14 Caption = 'Porez' end object Label10: TLabel Left = 38 Top = 235 Width = 83 Height = 14 Caption = 'Cijena s porezom' end object Label5: TLabel Left = 40 Top = 150 Width = 30 Height = 14 Caption = 'Mar�a' end object label001: TLabel Left = 40 Top = 177 Width = 87 Height = 14 Caption = 'Cijena bez poreza' end object Label11: TLabel Left = 292 Top = 150 Width = 10 Height = 14 Caption = '%' end object Label12: TLabel Left = 292 Top = 210 Width = 10 Height = 14 Caption = '%' end object lbJedMj: TLabel Left = 277 Top = 97 Width = 35 Height = 14 Alignment = taRightJustify Caption = 'lbJedMj' end object deSifra: TDBEdit Left = 71 Top = 30 Width = 49 Height = 22 TabStop = False Color = clGray DataField = 'sifra' TabOrder = 0 end object deNaziv: TDBEdit Left = 71 Top = 60 Width = 369 Height = 22 TabStop = False Color = clGray DataField = 'Naziv' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 1 end object lbStanje: TStaticText Left = 317 Top = 94 Width = 120 Height = 18 Alignment = taRightJustify AutoSize = False BorderStyle = sbsSunken Caption = 'lbStanje' Color = clGray ParentColor = False TabOrder = 2 end object lbNC: TStaticText Left = 317 Top = 118 Width = 120 Height = 18 Alignment = taRightJustify AutoSize = False BorderStyle = sbsSunken Caption = 'lbNC' Color = clGray ParentColor = False TabOrder = 3 end object lbPorezStopa: TStaticText Left = 170 Top = 207 Width = 119 Height = 18 AutoSize = False BorderStyle = sbsSunken Caption = 'lbPorezStopa' Color = clGray ParentColor = False TabOrder = 7 end object lbPorez: TStaticText Left = 317 Top = 207 Width = 120 Height = 18 Alignment = taRightJustify AutoSize = False BorderStyle = sbsSunken Caption = 'lbPorez' Color = clGray ParentColor = False TabOrder = 8 end object edCijena1: TEdit Left = 317 Top = 173 Width = 120 Height = 22 TabOrder = 6 Text = 'edCijena1' OnChange = edCijena1Change OnKeyPress = keyPresSvi end object edMarzaStopa: TEdit Left = 169 Top = 146 Width = 120 Height = 22 TabOrder = 4 Text = 'edMarzaStopa' OnChange = edMarzaStopaChange OnKeyPress = keyPresSvi end object lbMarza: TStaticText Left = 317 Top = 147 Width = 120 Height = 18 Alignment = taRightJustify AutoSize = False BorderStyle = sbsSunken Caption = 'lbMarza' Color = clGray ParentColor = False TabOrder = 5 end object paZadano: TPanel Left = 14 Top = 147 Width = 21 Height = 49 Enabled = False TabOrder = 9 object cbZadanoMarza: TCheckBox Left = 4 Top = 4 Width = 13 Height = 17 Hint = 'Oznaka �to je zadano' TabStop = False Caption = 'cbZadanoMarza' Color = clBtnFace ParentColor = False TabOrder = 0 end object cbZadanoCijena: TCheckBox Left = 4 Top = 26 Width = 12 Height = 17 Hint = 'Oznaka �to je zadano' TabStop = False Caption = 'cbZadanoCijena' TabOrder = 1 end end object edCijena2: TEdit Left = 317 Top = 231 Width = 120 Height = 22 TabOrder = 10 Text = 'edCijena2' OnChange = edCijena2Change OnKeyPress = keyPresSvi end end end end end object paCjenikSkladiste: TPanel Left = 0 Top = 85 Width = 759 Height = 63 Align = alTop TabOrder = 4 object Label15: TLabel Left = 8 Top = 22 Width = 28 Height = 14 Caption = '&Cjenik' FocusControl = cbCjenici end object Label3: TLabel Left = 299 Top = 22 Width = 43 Height = 14 Caption = 'S&kladi�te' FocusControl = cbSkladiste end object btSkladiste: TButton Left = 272 Top = 40 Width = 15 Height = 15 Hint = 'Poziv prozora poslovnih jedinica' Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] ParentFont = False TabOrder = 0 TabStop = False OnClick = btSkladisteClick end object cbCjenici: TComboBox Left = 9 Top = 36 Width = 261 Height = 22 Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] ItemHeight = 14 ParentFont = False TabOrder = 1 OnChange = cbCjeniciChange end object cbSkladiste: TComboBox Left = 296 Top = 36 Width = 261 Height = 22 Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] ItemHeight = 14 ParentFont = False TabOrder = 2 OnChange = cbSkladisteChange end object Button1: TButton Left = 560 Top = 39 Width = 15 Height = 15 Hint = 'Poziv prozora poslovnih jedinica' Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] ParentFont = False TabOrder = 3 TabStop = False OnClick = Button1Click end object cbSamoArtikliCijena: TCheckBox Left = 8 Top = 3 Width = 291 Height = 19 Caption = 'Prikaz samo artikala koji imaju zadanu cijenu ili mar�u' TabOrder = 4 OnClick = cbSamoArtikliCijenaClick end end object ta1CjeniciPop: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'cjeniciPop' Left = 958 Top = 245 object ta1CjeniciPopSifra: TIntegerField FieldName = 'Sifra' end object ta1CjeniciPopNaziv: TStringField FieldName = 'Naziv' Size = 150 end end object ta1LockSkupnePar: TTable DatabaseName = 'praznepar' TableName = '_lockSkupnePar' Left = 961 Top = 385 end object ta3Cjenici: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'Cjenici' Left = 927 Top = 322 object ta3CjeniciRecord: TAutoIncField FieldName = 'Record' end object ta3CjeniciSifra: TIntegerField FieldName = 'Sifra' end object ta3CjeniciArtikl: TIntegerField FieldName = 'Artikl' end object ta3CjeniciMarzaStopa: TFloatField FieldName = 'MarzaStopa' DisplayFormat = ',0.00####' EditFormat = '0.00####' end object ta3CjeniciCijena1: TFloatField FieldName = 'Cijena1' DisplayFormat = ',0.00####' EditFormat = '0.00####' end end object ta2Cjenici: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'Cjenici' Left = 1065 Top = 326 object ta2CjeniciRecord: TAutoIncField FieldName = 'Record' end object ta2CjeniciSifra: TIntegerField FieldName = 'Sifra' end object ta2CjeniciArtikl: TIntegerField FieldName = 'Artikl' end object ta2CjeniciMarzaStopa: TFloatField FieldName = 'MarzaStopa' DisplayFormat = ',0.00####' EditFormat = '0.00####' end object ta2CjeniciCijena1: TFloatField FieldName = 'Cijena1' DisplayFormat = ',0.00####' EditFormat = '0.00####' end end object ta1Cjenici: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'Cjenici' Left = 1003 Top = 322 object ta1CjeniciRecord: TAutoIncField FieldName = 'Record' end object ta1CjeniciSifra: TIntegerField FieldName = 'Sifra' end object ta1CjeniciArtikl: TIntegerField FieldName = 'Artikl' end object ta1CjeniciMarzaStopa: TFloatField FieldName = 'MarzaStopa' DisplayFormat = ',0.00####' EditFormat = '0.00####' end object ta1CjeniciCijena1: TFloatField FieldName = 'Cijena1' DisplayFormat = ',0.00####' EditFormat = '0.00####' end end object ta1Zalrob: TTable Tag = 4 DatabaseName = 'c:\knjigovodstvo\data\praznegod' TableName = 'zalRob' Left = 858 Top = 624 object ta1ZalrobRecord: TAutoIncField FieldName = 'Record' end object ta1ZalrobSkladiste: TIntegerField FieldName = 'Skladiste' end object ta1ZalrobSifra: TIntegerField FieldName = 'Sifra' end object ta1ZalrobDatum: TDateField FieldName = 'Datum' end object ta1ZalrobCijena: TFloatField FieldName = 'Cijena' DisplayFormat = ',0.00;;-' EditFormat = '0.00' end object ta1ZalrobStanje: TFloatField FieldName = 'Stanje' DisplayFormat = ',0.000;;-' EditFormat = '0.00' end end object ta1Dnerob: TTable Tag = 4 DatabaseName = 'c:\knjigovodstvo\data\praznegod' TableName = 'dnerob' Left = 866 Top = 474 object ta1DnerobKnjizenje: TIntegerField FieldName = 'Knjizenje' end object ta1DnerobDokument: TSmallintField FieldName = 'Dokument' end object ta1DnerobGodina: TSmallintField FieldName = 'Godina' end object ta1DnerobBroj: TIntegerField FieldName = 'Broj' end object ta1DnerobDatum: TDateField FieldName = 'Datum' EditMask = '00/00/0000' end object ta1DnerobSkladiste: TIntegerField FieldName = 'Skladiste' end object ta1DnerobPartner: TIntegerField FieldName = 'Partner' end object ta1DnerobOpisknj: TStringField FieldName = 'Opisknj' Size = 80 end object ta1DnerobMskl01: TSmallintField FieldName = 'Mskl01' end object ta1DnerobKnjStornirano: TIntegerField FieldName = 'KnjStornirano' end object ta1DnerobGodkalk: TSmallintField FieldName = 'Godkalk' end object ta1DnerobBrojKalk: TIntegerField FieldName = 'BrojKalk' end object ta1DnerobGodNal: TSmallintField FieldName = 'GodNal' end object ta1DnerobBrojNal: TIntegerField FieldName = 'BrojNal' end object ta1DnerobGodRn: TSmallintField FieldName = 'GodRn' end object ta1DnerobBrojRn: TIntegerField FieldName = 'BrojRn' end object ta1DnerobTekstPrije: TBlobField FieldName = 'TekstPrije' BlobType = ftFmtMemo end object ta1DnerobTekstIza: TBlobField FieldName = 'TekstIza' BlobType = ftFmtMemo end object ta1DnerobDokumTem: TSmallintField FieldName = 'DokumTem' end object ta1DnerobBrojTemeljnice: TSmallintField FieldName = 'BrojTemeljnice' end object ta1DnerobcfPartner: TStringField DisplayWidth = 60 FieldName = 'cfPartner' Size = 60 Calculated = True end object ta1DnerobcfSifra: TStringField FieldName = 'cfSifra' Calculated = True end object ta1DnerobcfJedmj: TStringField FieldName = 'cfJedmj' Calculated = True end object ta1DnerobcfIznos: TStringField FieldName = 'cfIznos' Calculated = True end object ta1DnerobcfDokument: TStringField FieldName = 'cfDokument' Size = 60 Calculated = True end object ta1DnerobcfStorniran: TStringField FieldName = 'cfStorniran' Calculated = True end object ta1DnerobcfNalog: TStringField FieldName = 'cfNalog' Size = 60 Calculated = True end object ta1DnerobcfKalkulacija: TStringField FieldName = 'cfKalkulacija' Size = 60 Calculated = True end object ta1DnerobcfRacun: TStringField FieldName = 'cfRacun' Size = 60 Calculated = True end end object ta1Stavrob: TTable Tag = 4 DatabaseName = 'c:\knjigovodstvo\data\praznegod' TableName = 'stavrob' Left = 852 Top = 541 object ta1StavrobRecord: TAutoIncField FieldName = 'Record' end object ta1StavrobKnjizenje: TIntegerField FieldName = 'Knjizenje' end object ta1StavrobRedbr: TSmallintField FieldName = 'Redbr' end object ta1StavrobSifra: TIntegerField FieldName = 'Sifra' end object ta1StavrobUlaz: TFloatField FieldName = 'Ulaz' DisplayFormat = ',0.000;;-' EditFormat = '0.000' end object ta1StavrobIzlaz: TFloatField FieldName = 'Izlaz' DisplayFormat = ',0.000;;-' EditFormat = '0.000' end object ta1StavrobCijena: TFloatField FieldName = 'Cijena' DisplayFormat = ',0.00####;;-' EditFormat = '0.00####' end object ta1StavrobStaraCijena: TFloatField FieldName = 'StaraCijena' DisplayFormat = ',0.00;;-' EditFormat = '0.00' end object ta1StavrobSkladiste: TIntegerField FieldName = 'Skladiste' end object ta1StavrobDatum: TDateField FieldName = 'Datum' end object ta1StavrobcfSifra: TStringField DisplayWidth = 60 FieldName = 'cfSifra' Size = 60 Calculated = True end object ta1StavrobcfJedmj: TStringField FieldName = 'cfJedmj' Calculated = True end object ta1StavrobcfIznos: TStringField FieldName = 'cfIznos' Calculated = True end object ta1StavrobcfKolicina: TFloatField FieldName = 'cfKolicina' DisplayFormat = ',0.000;;-' Calculated = True end object ta1StavrobcfGodina: TStringField FieldName = 'cfGodina' Calculated = True end object ta1StavrobcfDokument: TStringField FieldName = 'cfDokument' Size = 60 Calculated = True end object ta1StavrobcfBroj: TStringField FieldName = 'cfBroj' Calculated = True end object ta1StavrobcfOpisknj: TStringField FieldName = 'cfOpisknj' Size = 80 Calculated = True end object ta1StavrobcfPartner: TStringField FieldName = 'cfPartner' Size = 60 Calculated = True end object ta1StavrobcfStorniran: TStringField FieldName = 'cfStorniran' Calculated = True end end object ta1Jedinice: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'jedinice' Left = 1051 Top = 484 object ta1JediniceSifra: TIntegerField FieldName = 'Sifra' end object ta1JediniceTip: TSmallintField FieldName = 'Tip' end object ta1JediniceNaziv: TStringField FieldName = 'Naziv' Size = 40 end object ta1JediniceAdresa: TStringField FieldName = 'Adresa' Size = 60 end object ta1JediniceKonto: TStringField FieldName = 'Konto' Size = 10 end object ta1JedinicecfTip: TStringField FieldName = 'cfTip' Calculated = True end end object ta1Roba: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'roba' Left = 775 Top = 256 object ta1RobaSifra: TIntegerField FieldName = 'Sifra' end object ta1RobaNaziv: TStringField FieldName = 'Naziv' Size = 60 end object ta1RobaOpis: TBlobField FieldName = 'Opis' BlobType = ftFmtMemo end object ta1RobaTip: TSmallintField FieldName = 'Tip' end object ta1RobaKlas: TStringField FieldName = 'Klas' Size = 30 end object ta1RobaJedmj: TSmallintField FieldName = 'Jedmj' end object ta1RobaKatbroj: TStringField FieldName = 'Katbroj' Size = 30 end object ta1RobaEan13: TStringField FieldName = 'Ean13' Size = 13 end object ta1RobaPorez: TSmallintField FieldName = 'Porez' end object ta1RobaOznacen: TSmallintField FieldName = 'Oznacen' end object ta1RobaProizvodjac: TIntegerField FieldName = 'Proizvodjac' end object ta1RobaMinz: TFloatField FieldName = 'Minz' DisplayFormat = '0.000;;-' EditFormat = '0.000' end object ta1RobaMaxz: TFloatField FieldName = 'Maxz' DisplayFormat = '0.000;;-' EditFormat = '0.000' end object ta1RobacfTip: TStringField FieldName = 'cfTip' Calculated = True end object ta1RobacfJedmj: TStringField FieldName = 'cfJedmj' Calculated = True end object ta1RobacfPorez: TStringField FieldName = 'cfPorez' Calculated = True end object ta1RobacfCijena: TFloatField FieldName = 'cfCijena' DisplayFormat = ',0.00;;-' Calculated = True end object ta1RobacfNc: TFloatField FieldName = 'cfNc' DisplayFormat = ',0.00;;-' Calculated = True end object ta1RobacfMarza: TFloatField FieldName = 'cfMarza' DisplayFormat = ',0.00;;-' Calculated = True end object ta1RobacfPorezIznos: TFloatField FieldName = 'cfPorezIznos' DisplayFormat = ',0.00;;-' Calculated = True end object ta1RobacfCijena2: TFloatField FieldName = 'cfCijena2' DisplayFormat = ',0.00;;-' Calculated = True end object ta1RobacfStanje: TFloatField FieldName = 'cfStanje' DisplayFormat = ',0.000;;-' Calculated = True end object ta1RobacfMarzaStopa: TStringField FieldName = 'cfMarzaStopa' Calculated = True end object ta1RobacfCijena1: TStringField FieldName = 'cfCijena1' Calculated = True end end object ds1Roba: TDataSource DataSet = ta1Roba Left = 832 Top = 257 end object taLockSkupnePar: TTable DatabaseName = 'praznepar' TableName = '_lockSkupnePar' Left = 1057 Top = 395 end object ta1Vri_sif: TTable Tag = 2 DatabaseName = 'Skupne' TableName = 'vri_sif.db' Left = 1051 Top = 548 object ta1Vri_sifSifrarnik: TStringField DisplayLabel = '�ifrarnik' FieldName = 'Sifrarnik' Size = 30 end object ta1Vri_sifSifra: TSmallintField DisplayLabel = '�ifra' FieldName = 'Sifra' end object ta1Vri_sifNaziv: TStringField FieldName = 'Naziv' Size = 50 end object ta1Vri_sifSkr_naziv: TStringField DisplayLabel = 'Skra�eni naziv' FieldName = 'Skr_naziv' Size = 4 end object ta1Vri_sifTip: TSmallintField FieldName = 'Tip' end object ta1Vri_sifKonto: TStringField FieldName = 'Konto' Size = 10 end object ta1Vri_sifTekst: TBlobField FieldName = 'Tekst' BlobType = ftFmtMemo end object ta1Vri_sifZasticen: TBooleanField FieldName = 'Zasticen' end object ta1Vri_sifcfTip: TStringField DisplayLabel = 'Tip dokumenta' FieldName = 'cfTip' Calculated = True end end object ta1Partneri: TTable Tag = 2 DatabaseName = 'c:\knjigovodstvo\data\skupne' TableName = 'partneri' TableType = ttParadox Left = 962 Top = 477 object ta1PartneriSifra: TIntegerField DisplayLabel = '�ifra partnera' FieldName = 'Sifra' end object ta1PartneriNaziv: TStringField FieldName = 'Naziv' Size = 60 end object ta1PartneriPtt: TStringField DisplayLabel = 'Po�tanski broj' FieldName = 'Ptt' Size = 5 end object ta1PartneriMjesto: TStringField FieldName = 'Mjesto' Size = 40 end object ta1PartneriUlica: TStringField FieldName = 'Ulica' Size = 60 end object ta1PartneriZemlja: TSmallintField FieldName = 'Zemlja' end object ta1PartneriDjelatnost: TSmallintField FieldName = 'Djelatnost' end object ta1PartneriBanka: TIntegerField FieldName = 'Banka' end object ta1PartneriTelefon: TStringField DisplayLabel = 'Telefoni i faxovi' FieldName = 'Telefon' Size = 50 end object ta1PartneriOpcina: TSmallintField DisplayLabel = 'Op�ina' FieldName = 'Opcina' end object ta1PartneriMaticni_broj: TStringField DisplayLabel = 'Mati�ni broj ili JMBG' FieldName = 'Maticni_broj' Size = 15 end object ta1PartneriZiro_racun1: TStringField DisplayLabel = '�iro-ra�un 1' FieldName = 'Ziro_racun1' Size = 50 end object ta1PartneriZiro_racun2: TStringField DisplayLabel = '�iro-ra�un 2' FieldName = 'Ziro_racun2' Size = 50 end object ta1PartneriRabat: TFloatField DisplayLabel = 'Rabat u veleprodaji' FieldName = 'Rabat' DisplayFormat = '.0000'#39' %'#39 EditFormat = '.0000' end object ta1PartneriPorezni_obveznik: TSmallintField DisplayLabel = 'Porezni obveznik prema PDV-u' FieldName = 'Porezni_obveznik' end object ta1PartnericfPorezni_obveznik: TStringField FieldName = 'cfPorezni_obveznik' Calculated = True end object ta1PartneriMemo: TBlobField FieldName = 'Memo' BlobType = ftFmtMemo end object ta1PartneriFilter: TStringField FieldName = 'Filter' Size = 60 end object ta1PartneriSifra_djelat: TStringField FieldName = 'Sifra_djelat' Size = 10 end object ta1PartneriNaziv_djelat: TStringField FieldName = 'Naziv_djelat' Size = 100 end end object ta1PorPromet: TTable Tag = 2 DatabaseName = 'skupne' TableName = 'porPromet' Left = 950 Top = 561 object ta1PorPrometSifra: TSmallintField FieldName = 'Sifra' end object ta1PorPrometNaziv: TStringField FieldName = 'Naziv' Size = 80 end object ta1PorPrometStopa: TFloatField FieldName = 'Stopa' DisplayFormat = ',0.0000'#39'%'#39 EditFormat = ',0.0000'#39'%'#39 end object ta1PorPrometKonto: TStringField FieldName = 'Konto' Size = 10 end end object ta1Prekid: TTable Tag = 2 DatabaseName = 'skupne' TableName = 'prekid.db' Left = 1057 Top = 624 object ta1PrekidPrekidac: TStringField FieldName = 'Prekidac' Size = 40 end object ta1PrekidSifra: TSmallintField FieldName = 'Sifra' end object ta1PrekidOpis_prekidaca: TStringField DisplayLabel = 'Opis prekida�a' FieldName = 'Opis_prekidaca' Size = 80 end object ta1PrekidGrupa: TStringField FieldName = 'Grupa' end object ta1PrekidSkupina: TStringField FieldName = 'Skupina' Size = 10 end object ta1PrekidcfVri_prekidVrijednost2: TStringField FieldName = 'cfVri_prekidVrijednost' Size = 30 Calculated = True end end object ta2Roba: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'roba' Left = 773 Top = 318 object ta2RobaSifra: TIntegerField FieldName = 'Sifra' end object ta2RobaNaziv: TStringField FieldName = 'Naziv' Size = 60 end object ta2RobaOpis: TBlobField FieldName = 'Opis' BlobType = ftFmtMemo end object ta2RobaTip: TSmallintField FieldName = 'Tip' end object ta2RobaKlas: TStringField FieldName = 'Klas' Size = 30 end object ta2RobaJedmj: TSmallintField FieldName = 'Jedmj' end object ta2RobaKatbroj: TStringField FieldName = 'Katbroj' Size = 30 end object ta2RobaEan13: TStringField FieldName = 'Ean13' Size = 13 end object ta2RobaPorez: TSmallintField FieldName = 'Porez' end object ta2RobaOznacen: TSmallintField FieldName = 'Oznacen' end object ta2RobaProizvodjac: TIntegerField FieldName = 'Proizvodjac' end object ta2RobaMinz: TFloatField FieldName = 'Minz' DisplayFormat = '0.000;;-' EditFormat = '0.000' end object ta2RobaMaxz: TFloatField FieldName = 'Maxz' DisplayFormat = '0.000;;-' EditFormat = '0.000' end object ta2RobacfTip: TStringField FieldName = 'cfTip' Calculated = True end object ta2RobacfJedmj: TStringField FieldName = 'cfJedmj' Calculated = True end object ta2RobacfPorez: TStringField FieldName = 'cfPorez' Calculated = True end object ta2RobacfCijena: TFloatField FieldName = 'cfCijena' DisplayFormat = ',0.00;;-' Calculated = True end object ta2RobacfNc: TFloatField FieldName = 'cfNc' DisplayFormat = ',0.00;;-' Calculated = True end object ta2RobacfMarza: TFloatField FieldName = 'cfMarza' DisplayFormat = ',0.00;;-' Calculated = True end object ta2RobacfPorezIznos: TFloatField FieldName = 'cfPorezIznos' DisplayFormat = ',0.00;;-' Calculated = True end object ta2RobacfCijena2: TFloatField FieldName = 'cfCijena2' DisplayFormat = ',0.00;;-' Calculated = True end object ta2RobacfStanje: TFloatField FieldName = 'cfStanje' DisplayFormat = ',0.000;;-' Calculated = True end object ta2RobacfMarzaStopa: TStringField FieldName = 'cfMarzaStopa' Calculated = True end object ta2RobacfCijena1: TStringField FieldName = 'cfCijena1' Calculated = True end end object ta3Roba: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'roba' Left = 777 Top = 374 object ta3RobaSifra: TIntegerField FieldName = 'Sifra' end object ta3RobaNaziv: TStringField FieldName = 'Naziv' Size = 60 end object ta3RobaOpis: TBlobField FieldName = 'Opis' BlobType = ftFmtMemo end object ta3RobaTip: TSmallintField FieldName = 'Tip' end object ta3RobaKlas: TStringField FieldName = 'Klas' Size = 30 end object ta3RobaJedmj: TSmallintField FieldName = 'Jedmj' end object ta3RobaKatbroj: TStringField FieldName = 'Katbroj' Size = 30 end object ta3RobaEan13: TStringField FieldName = 'Ean13' Size = 13 end object ta3RobaPorez: TSmallintField FieldName = 'Porez' end object ta3RobaOznacen: TSmallintField FieldName = 'Oznacen' end object ta3RobaProizvodjac: TIntegerField FieldName = 'Proizvodjac' end object ta3RobaMinz: TFloatField FieldName = 'Minz' DisplayFormat = '0.000;;-' EditFormat = '0.000' end object ta3RobaMaxz: TFloatField FieldName = 'Maxz' DisplayFormat = '0.000;;-' EditFormat = '0.000' end object ta3RobacfTip: TStringField FieldName = 'cfTip' Calculated = True end object ta3RobacfJedmj: TStringField FieldName = 'cfJedmj' Calculated = True end object ta3RobacfPorez: TStringField FieldName = 'cfPorez' Calculated = True end object ta3RobacfCijena: TFloatField FieldName = 'cfCijena' DisplayFormat = ',0.00;;-' Calculated = True end object ta3RobacfNc: TFloatField FieldName = 'cfNc' DisplayFormat = ',0.00;;-' Calculated = True end object ta3RobacfMarza: TFloatField FieldName = 'cfMarza' DisplayFormat = ',0.00;;-' Calculated = True end object ta3RobacfPorezIznos: TFloatField FieldName = 'cfPorezIznos' DisplayFormat = ',0.00;;-' Calculated = True end object ta3RobacfCijena2: TFloatField FieldName = 'cfCijena2' DisplayFormat = ',0.00;;-' Calculated = True end object ta3RobacfStanje: TFloatField FieldName = 'cfStanje' DisplayFormat = ',0.000;;-' Calculated = True end object ta3RobacfMarzaStopa: TStringField FieldName = 'cfMarzaStopa' Calculated = True end object ta3RobacfCijena1: TStringField FieldName = 'cfCijena1' Calculated = True end end object ds2Roba: TDataSource DataSet = ta2Roba Left = 850 Top = 317 end end