2@prodaja.tip+prodaja.dokumentRVED3MQLarge1+cFirma1+Large2 Cond2+cFirma2WLarge1+rtrim(Vrni('tipi','sifra','cTip','opis',20))+' '+rtrim(dok_fakt.dokument)+Large28iif(dok_fakt.klient=cPProstK,dok_fakt.ime,klienti.naziv):iif(dok_fakt.klient=cPProstK,dok_fakt.ulica,klienti.ulica)iif(dok_fakt.klient=cPProstK,dok_fakt.posta,klienti.posta)+' '+Vrni('sifrant','sifra','"PTT"+iif(dok_fakt.klient=cPProstK,dok_fakt.posta,klienti.posta)','opis')+alltrim(klienti.objekt)+' '+dok_fakt.prejem"tel.""fax.""@.R." "Dat.Dok."73195097ESb}dok_fakt.datum WINDOWS _RQV0POA4C 597cPTelcPFaxcPZiro1"SKL.""BLAGO" "KOLI^INA""E.M.""CENA""RABAT" "VRED.DAVKA""VRED. SKUPAJ""TARIFA""-----------------------------------------------------------------------------------------------------------------------------------" "VREDNOST" " / STORITEV""Neto Vrednost""Rabat"trans(nNeto,cPF13)"@J"trans(nRabat,cPF13)"@J"trans(nDavek,cPF13)"@J"&trans(Round2Mk(nSkupaj,nPZaokr),cPF13)"@J""Davek"cSklic1JXiif(dok_fakt.nacin_plac='PR','',mline(vrni('tipi','sifra','dok_fakt.tip','klavzula'),1))@EFVD*P: |N~Xiif(dok_fakt.nacin_plac='PR','',mline(vrni('tipi','sifra','dok_fakt.tip','klavzula'),2)) SkipP(18) DokText('',0)Cond2Cond1cNaslovcMesto IniVred()Cond2DokRows(0,'','',0)hiif(dok_fakt.tip_izjave>='1',IzpDavVrs(1),VRNI('sifrant','sifra','"TI1"+dok_fakt.tip_izjave','opis',50))iiif(dok_fakt.nacin_plac='PR','PLA^ANO PO PREDRA^UNU' ,'Dan zapad. '+dtoc(dok_fakt.dur+dok_fakt.zap_odp)) "Za pla~ilo"Bold1Bold2F"--------------------------------------------------------------------"F"--------------------------------------------------------------------"Cond2Cond1 cDirektor""dok_fakt.prejem""--------------------------------"cPziro2cpziro3trans(_pageno,'9999')Jw"---------------------------------------------------------------------------------------------------------------------""Stran""---"iif(lPIzbAvto,'Vozilo : '+Vrni('vozila','sifra','dok_fakt.vozilo','model')+' '+Vrni('vozila','sifra','dok_fakt.vozilo','register'),'') "Dav.{t." cPDavStevCond1IzpPov()NNETOprodaja.stevilo*prodaja.cena0NRABAT.prodaja.stevilo*prodaja.cena*prodaja.rabat/1000NDAVEK-iif(prodaja.skladisce<>'01A',prodaja.davek,0)0NSKUPAJprodaja.vrednost0CSKLIC1evaluate(cSklic)0 MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serifprodaja.tip+prodaja.dokument=u;uF&&tF& MS Sans Seriftj&\D&w&7F&&\=u;u MS Sans Serifprodaja.tip+prodaja.dokument MS Sans Serif MS Sans SerifLarge1+cFirma1+Large2 MS Sans Serif Cond2+cFirma2 MS Sans SerifWLarge1+rtrim(Vrni('tipi','sifra','cTip','opis',20))+' '+rtrim(dok_fakt.dokument)+Large2 MS Sans Serif8iif(dok_fakt.klient=cPProstK,dok_fakt.ime,klienti.naziv) MS Sans Serif:iif(dok_fakt.klient=cPProstK,dok_fakt.ulica,klienti.ulica) MS Sans Serifiif(dok_fakt.klient=cPProstK,dok_fakt.posta,klienti.posta)+' '+Vrni('sifrant','sifra','"PTT"+iif(dok_fakt.klient=cPProstK,dok_fakt.posta,klienti.posta)','opis') MS Sans Serif+alltrim(klienti.objekt)+' '+dok_fakt.prejem MS Sans Serif"tel." MS Sans Serif"fax." MS Sans Serif"@.R." MS Sans Serif "Dat.Dok." MS Sans Serifdok_fakt.datum MS Sans SerifcPTel MS Sans SerifcPFax MS Sans SerifcPZiro1 MS Sans Serif"SKL." MS Sans Serif"BLAGO" MS Sans Serif "KOLI^INA" MS Sans Serif"E.M." MS Sans Serif"CENA" MS Sans Serif"RABAT" MS Sans Serif "VRED.DAVKA" MS Sans Serif"VRED. SKUPAJ" MS Sans Serif"TARIFA" MS Sans Serif"-----------------------------------------------------------------------------------------------------------------------------------" MS Sans Serif "VREDNOST" MS Sans Serif " / STORITEV" MS Sans Serif"Neto Vrednost" MS Sans Serif"Rabat" MS Sans Seriftrans(nNeto,cPF13)"@J" MS Sans Seriftrans(nRabat,cPF13)"@J" MS Sans Seriftrans(nDavek,cPF13)"@J" MS Sans Serif&trans(Round2Mk(nSkupaj,nPZaokr),cPF13)"@J" MS Sans Serif"Davek" MS Sans SerifcSklic1J MS Sans SerifXiif(dok_fakt.nacin_plac='PR','',mline(vrni('tipi','sifra','dok_fakt.tip','klavzula'),1)) MS Sans SerifXiif(dok_fakt.nacin_plac='PR','',mline(vrni('tipi','sifra','dok_fakt.tip','klavzula'),2)) MS Sans Serif SkipP(18) MS Sans Serif DokText('',0) MS Sans SerifCond2 MS Sans SerifCond1 MS Sans SerifcNaslov MS Sans SerifcMesto MS Sans Serif IniVred() MS Sans SerifCond2 MS Sans SerifDokRows(0,'','',0) MS Sans Serifhiif(dok_fakt.tip_izjave>='1',IzpDavVrs(1),VRNI('sifrant','sifra','"TI1"+dok_fakt.tip_izjave','opis',50)) MS Sans Serifiiif(dok_fakt.nacin_plac='PR','PLA^ANO PO PREDRA^UNU' ,'Dan zapad. '+dtoc(dok_fakt.dur+dok_fakt.zap_odp)) MS Sans Serif "Za pla~ilo" MS Sans SerifBold1 MS Sans SerifBold2 MS Sans SerifF"--------------------------------------------------------------------" MS Sans SerifF"--------------------------------------------------------------------" MS Sans SerifVVfVfVԋ؊N*Nۋv6Cond2FF;FF*FFӋ^v ;wFc)F F MS Sans SerifCond1 MS Sans Serif cDirektor MS Sans Serif"" MS Sans Serifdok_fakt.prejem MS Sans Serif""--------------------------------" MS Sans SerifcPziro2 MS Sans Serifcpziro3 MS Sans Seriftrans(_pageno,'9999')J MS Sans Serifw"---------------------------------------------------------------------------------------------------------------------" MS Sans Serif"Stran" MS Sans Serif"---" MS Sans Serifiif(lPIzbAvto,'Vozilo : '+Vrni('vozila','sifra','dok_fakt.vozilo','model')+' '+Vrni('vozila','sifra','dok_fakt.vozilo','register'),'') MS Sans Serif "Dav.{t." MS Sans Serif cPDavStev MS Sans SerifCond1 MS Sans SerifIzpPov() MS Sans SerifNNETOprodaja.stevilo*prodaja.cena0 MS Sans SerifNRABAT.prodaja.stevilo*prodaja.cena*prodaja.rabat/1000 MS Sans SerifNDAVEK-iif(prodaja.skladisce<>'01A',prodaja.davek,0)0 MS Sans SerifNSKUPAJprodaja.vrednost0 MS Sans SerifCSKLIC1evaluate(cSklic)0 MS Sans Serif,A t,0Đȉv+'^H`D< 3~@