{"id":11,"date":"2018-02-11T09:49:07","date_gmt":"2018-02-11T08:49:07","guid":{"rendered":"http:\/\/bosap.ba\/howtos\/?p=11"},"modified":"2023-09-09T09:29:59","modified_gmt":"2023-09-09T07:29:59","slug":"prilagodjavanje-finex-a-za-nove-obrasce-za-zavrsni-obracun","status":"publish","type":"post","link":"https:\/\/bosap.ba\/howtos\/2018\/02\/11\/prilagodjavanje-finex-a-za-nove-obrasce-za-zavrsni-obracun\/","title":{"rendered":"Prilago\u0111avanje FINEx-a za nove obrasce za zavr\u0161ni obra\u010dun"},"content":{"rendered":"<p>U FINEx-u je potrebno podesiti kod za popunjavanje zaglavlja kartice &#8220;UnosPod&#8221; excelovog obrasca. Tu se radi o osnovnim podacima o preduze\u0107u\/udru\u017eenju: nazivu firme, ID broju, bankama, adresi itd.<\/p>\n<p>Za sada je to fiksirano u programskom kodu modula &#8220;zavrsni_obracun&#8221; aplikacije FINEx \u010diji dio izgleda ovako:<\/p>\n<pre>procedure TFormZavrsniObracun.BitBtn1Click(Sender: TObject);\r\n...\r\nLista := TObjectList.Create; \/\/ za sheet \"UnosPod\"\r\nLista2 := TObjectList.Create; \/\/ za sheet \"BOSAP\"\r\nListaPG := TObjectList.Create; \/\/ za sheet \"PretGod\"\r\ntry\r\n\/\/ ... pripremi prvi sheet (UnosPod) ...\r\n(* ---------------------------------------\r\nosnovni podaci\r\n--------------------------------------- *)\r\npomSP := TSintetickiPodatak.Create('F3',DataModule1.getParam('racunovodja_ime')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F4',DataModule1.getParam('racunovodja_adresa')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F8',DataModule1.getParam('imeFirme')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F10',DataModule1.getParam('ulica')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F9',DataModule1.getParam('ostatakAdrese')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F15',DataModule1.getParam('vrstaDjelatnosti')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F12',DataModule1.getParam('firma_vecinskiVlasnik')); Lista.Add(pomSP);\r\n\r\ntry\r\npomRealni := StrToFloat(AnsiReplaceStr(DataModule1.getParam('firma_procenatVV'),',','.'));\r\nexcept\r\npomRealni := 100;\r\nend;\r\nif Firma.godina&gt;=2014 then pomRealni := pomRealni\/100;\r\npomSP := TSintetickiPodatak.Create('F13',pomRealni); Lista.Add(pomSP);\r\n\r\n\/\/ pomSP := TSintetickiPodatak.Create('F14',DataModule1.getParam('firma_direktor')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F16',DataModule1.getParam('firma_kantUredPU')); Lista.Add(pomSP);\r\n\/\/ pomSP := TSintetickiPodatak.Create('F17',DataModule1.getParam('firma_ispostavaPU')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F18',DataModule1.getParam('firma_brPoslJed')); Lista.Add(pomSP);\r\n\r\nif Firma.godina&gt;=2017 then begin\r\npomSP := TSintetickiPodatak.Create('AB3',DataModule1.getParam('racunovodja_brDozvole')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('AM3',DataModule1.getParam('racunovodja_brTelefona')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB4',13,DataModule1.getParam('racunovodja_JMB'));\r\npomSP := TSintetickiPodatak.Create('AF5',DataModule1.getParam('racunovodja_email')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB8',13,DataModule1.getParam('JIB_JMB'));\r\nznakPoZnakNizCelija(Lista,'AB10',5,bezSeparatora(DataModule1.getParam('vrstaDjelatnosti_staraSifra')));\r\nznakPoZnakNizCelija(Lista,'AB11',4,bezSeparatora(DataModule1.getParam('vrstaDjelatnosti_novaSifra')));\r\nznakPoZnakNizCelija(Lista,'AB12',3,DataModule1.getParam('opcina'));\r\npomSP := TSintetickiPodatak.Create('AB13',DataModule1.getParam('nazivBanka1')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB14',16,DataModule1.getParam('racunBanka1'));\r\npomSP := TSintetickiPodatak.Create('AB15',DataModule1.getParam('nazivBanka2')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB16',16,DataModule1.getParam('racunBanka2'));\r\npomSP := TSintetickiPodatak.Create('AB17',DataModule1.getParam('nazivBanka3')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB18',16,DataModule1.getParam('racunBanka3'));\r\npomSP := TSintetickiPodatak.Create('F11',DataModule1.getParam('firma_kanton')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F19',DataModule1.getParam('emailFirme')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F20',DataModule1.getParam('telefonFirme')); Lista.Add(pomSP);\r\n\r\nend else if Firma.godina&gt;=2016 then begin\r\nif (Firma.orgTip='PRED') then begin\r\npomSP := TSintetickiPodatak.Create('AE3',DataModule1.getParam('racunovodja_brDozvole')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('AP3',DataModule1.getParam('racunovodja_brTelefona')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AE4',13,DataModule1.getParam('racunovodja_JMB'));\r\npomSP := TSintetickiPodatak.Create('AI5',DataModule1.getParam('racunovodja_email')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AE8',13,DataModule1.getParam('JIB_JMB'));\r\nznakPoZnakNizCelija(Lista,'AE10',5,bezSeparatora(DataModule1.getParam('vrstaDjelatnosti_staraSifra')));\r\nznakPoZnakNizCelija(Lista,'AE11',4,bezSeparatora(DataModule1.getParam('vrstaDjelatnosti_novaSifra')));\r\nznakPoZnakNizCelija(Lista,'AE12',3,DataModule1.getParam('opcina'));\r\npomSP := TSintetickiPodatak.Create('AE13',DataModule1.getParam('nazivBanka1')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AE14',16,DataModule1.getParam('racunBanka1'));\r\npomSP := TSintetickiPodatak.Create('AE15',DataModule1.getParam('nazivBanka2')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AE16',16,DataModule1.getParam('racunBanka2'));\r\npomSP := TSintetickiPodatak.Create('AE17',DataModule1.getParam('nazivBanka3')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AE18',16,DataModule1.getParam('racunBanka3'));\r\nend else begin \/\/ udru\u017eenja:\r\npomSP := TSintetickiPodatak.Create('AB3',DataModule1.getParam('racunovodja_brDozvole')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('AM3',DataModule1.getParam('racunovodja_brTelefona')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB4',13,DataModule1.getParam('racunovodja_JMB'));\r\npomSP := TSintetickiPodatak.Create('AF5',DataModule1.getParam('racunovodja_email')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB8',13,DataModule1.getParam('JIB_JMB'));\r\nznakPoZnakNizCelija(Lista,'AB10',5,bezSeparatora(DataModule1.getParam('vrstaDjelatnosti_staraSifra')));\r\nznakPoZnakNizCelija(Lista,'AB11',4,bezSeparatora(DataModule1.getParam('vrstaDjelatnosti_novaSifra')));\r\nznakPoZnakNizCelija(Lista,'AB12',3,DataModule1.getParam('opcina'));\r\npomSP := TSintetickiPodatak.Create('AB13',DataModule1.getParam('nazivBanka1')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB14',16,DataModule1.getParam('racunBanka1'));\r\npomSP := TSintetickiPodatak.Create('AB15',DataModule1.getParam('nazivBanka2')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB16',16,DataModule1.getParam('racunBanka2'));\r\npomSP := TSintetickiPodatak.Create('AB17',DataModule1.getParam('nazivBanka3')); Lista.Add(pomSP);\r\nznakPoZnakNizCelija(Lista,'AB18',16,DataModule1.getParam('racunBanka3'));\r\nend;\r\npomSP := TSintetickiPodatak.Create('F11',DataModule1.getParam('firma_kanton')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F19',DataModule1.getParam('emailFirme')); Lista.Add(pomSP);\r\npomSP := TSintetickiPodatak.Create('F20',DataModule1.getParam('telefonFirme')); Lista.Add(pomSP);\r\n\r\nend else begin\r\n...\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>U FINEx-u je potrebno podesiti kod za popunjavanje zaglavlja kartice &#8220;UnosPod&#8221; excelovog obrasca. Tu se radi o osnovnim podacima o preduze\u0107u\/udru\u017eenju: nazivu firme, ID broju, bankama, adresi itd. Za sada je to fiksirano u programskom kodu modula &#8220;zavrsni_obracun&#8221; aplikacije FINEx \u010diji dio izgleda ovako: procedure TFormZavrsniObracun.BitBtn1Click(Sender: TObject); &#8230; Lista := TObjectList.Create; \/\/ za sheet &#8220;UnosPod&#8221;&hellip;<\/p>\n<p class=\"read-more\"><a class=\"readmore-btn\" href=\"https:\/\/bosap.ba\/howtos\/2018\/02\/11\/prilagodjavanje-finex-a-za-nove-obrasce-za-zavrsni-obracun\/\">Read More<span class=\"screen-reader-text\">  Read More<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[5],"tags":[],"_links":{"self":[{"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/posts\/11"}],"collection":[{"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/comments?post=11"}],"version-history":[{"count":1,"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/posts\/11\/revisions"}],"predecessor-version":[{"id":12,"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/posts\/11\/revisions\/12"}],"wp:attachment":[{"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/media?parent=11"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/categories?post=11"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bosap.ba\/howtos\/wp-json\/wp\/v2\/tags?post=11"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}