!Arial Narrow CE3,winspoolGeneric PostScript PrinterLPT1:eGeneric PostScript PrinterœÄSï š 4d,,A4PRIVB0''''ÄP4(ˆ0‘§}ÿÓDRIVER=winspool DEVICE=Generic PostScript Printer OUTPUT=LPT1: ORIENTATION=0 PAPERSIZE=9 SCALE=100 ASCII=100 COPIES=1 DEFAULTSOURCE=15 PRINTQUALITY=300 COLOR=1 YRESOLUTION=300 TTOPTION=2 COLLATE=1  MATERIAL.DBFMATERIAL skladisceCourier New IE CE"ŠIFRA"Arial Narrow CE"ZA SKLADIŠÈE:" m.SklOpis Arial Narrow CE tmp.inventura  Arial Narrow "9999,999.9"Courier New IE CE"E.M."material.naziv  Arial NarrowCourier New IE CE"OPIS"Arial Narrow CE" " tmp.KNJCENA  Arial Narrow"9,999,999.99"Courier New IE CE"DDV%"date10(ddatum)Arial Narrow CEArial Narrow CE+"INVENTURNI POPIS S PRIKAZANIM KALOM DNE:" ccenaopisArial Narrow CEArial Narrow CE "VRSTA CENE:" tmp.zaloga  Arial Narrow "9999,999.9"cFirma1 ArialBcNaslov ArialBcMesto ArialBArial Narrow CE"ID številka:" cPDavStev ArialBcFirma2 ArialBArial Narrow CE "Tel.št.:"cPTel ArialB tmp.ZACETNO  Arial Narrow "9999,999.9" tmp.poraba  Arial Narrow "9999,999.9"Courier New IE CE"PORABA"Courier New IE CE"NABAVA"Courier New IE CE"ZALOGA"Courier New IE CE"POPIS"material.sifra  Arial Narrow tmp.kalok  Arial Narrow "999999.99"Courier New IE CE "KALO KOL." MATERIAL.KALO  Arial Narrow"99.9"Courier New IE CE"KALO%"Courier New IE CE"-MANJKO/+VIŠEK"tmp.inventura-tmp.zaloga  Arial Narrow "9999,999.9" invpoddv(1)  Arial Narrow invpoddv(0) Courier New IE CE invpoddv(3)  Courier New tmp.nabava  Arial Narrow "9999,999.9"Courier New IE CE "ZAÈ.STANJE"material.B_KODA  Arial Narrow,vrni('sifrant',1,'"EME"+material.em','opis')  Arial Narrow tarife.davek  Arial Narrow"99.9"Courier New IE CE"CENA"Courier New IE CE "ÈRTNA KODA" nsrazlika&(tmp.inventura-tmp.zaloga)*tmp.knjcena0nsvisekLiif(tmp.inventura-tmp.zaloga>0 , tmp.inventura-tmp.zaloga*tmp.knjcena, 0)0nsmanjkoLiif(tmp.inventura-tmp.zaloga<0 , tmp.inventura-tmp.zaloga*tmp.knjcena, 0)0nskalo tmp.kalov0nszalogatmp.zaloga*tmp.knjcena0 nsinventuratmp.inventura*tmp.knjcena0Arial Narrow CECourier New IE CEArial Narrow CE Arial NarrowCourier New IE CEArial Narrow CEArialArial Narrow CE Courier NewdataenvironmentjAutoOpenTables = .T. AutoCloseTables = .T. InitialSelectedAlias = "MATERIAL" Name = "dataenvironment" fPROCEDURE Destroy *- [CONVERTER] Reset tables for compatibility THIS.OpenTables THIS.Init ENDPROC Úþòÿ ÁÁdÒ%_xp7U ™ô÷þ ™ô÷þUTHIS OPENTABLESINITDestroy,ÿÿ1¢¡2[)ÁÓDRIVER=winspool DEVICE=Generic PostScript Printer OUTPUT=LPT1: ORIENTATION=0 PAPERSIZE=9 SCALE=100 ASCII=100 COPIES=1 DEFAULTSOURCE=15 PRINTQUALITY=300 COLOR=1 YRESOLUTION=300 TTOPTION=2 COLLATE=1 3,winspoolGeneric PostScript PrinterLPT1:eGeneric PostScript PrinterœÄSï š 4d,,A4PRIVB0''''ÄP4(ˆ0‘§}ÿArial Narrow CE MATERIAL.DBFMATERIAL skladisce"ŠIFRA"Courier New IE CE"ZA SKLADIŠÈE:"Arial Narrow CE m.SklOpis Arial Narrow CE tmp.inventura "9999,999.9"  Arial Narrow"E.M."Courier New IE CEmaterial.naziv  Arial Narrow"OPIS"Courier New IE CE" "Arial Narrow CE tmp.KNJCENA"9,999,999.99"  Arial Narrow"DDV%"Courier New IE CEdate10(ddatum)Arial Narrow CE+"INVENTURNI POPIS S PRIKAZANIM KALOM DNE:"Arial Narrow CE ccenaopisArial Narrow CE "VRSTA CENE:"Arial Narrow CE tmp.zaloga "9999,999.9"  Arial NarrowcFirma1B ArialcNaslovB ArialcMestoB Arial"ID številka:"Arial Narrow CE cPDavStevB ArialcFirma2B Arial "Tel.št.:"Arial Narrow CEcPTelB Arial tmp.ZACETNO "9999,999.9"  Arial Narrow tmp.poraba "9999,999.9"  Arial Narrow"PORABA"Courier New IE CE"NABAVA"Courier New IE CE"ZALOGA"Courier New IE CE"POPIS"Courier New IE CEmaterial.sifra  Arial Narrow tmp.kalok "999999.99"  Arial Narrow "KALO KOL."Courier New IE CE MATERIAL.KALO"99.9"  Arial Narrow"KALO%"Courier New IE CE"-MANJKO/+VIŠEK"Courier New IE CEtmp.inventura-tmp.zaloga "9999,999.9"  Arial Narrow invpoddv(1)  Arial Narrow invpoddv(0) Courier New IE CE invpoddv(3)  Courier New tmp.nabava "9999,999.9"  Arial Narrow "ZAÈ.STANJE"Courier New IE CEmaterial.B_KODA  Arial Narrow,vrni('sifrant',1,'"EME"+material.em','opis')  Arial Narrow tarife.davek"99.9"  Arial Narrow"CENA"Courier New IE CE "ÈRTNA KODA"Courier New IE CE nsrazlika&(tmp.inventura-tmp.zaloga)*tmp.knjcena0nsvisekLiif(tmp.inventura-tmp.zaloga>0 , tmp.inventura-tmp.zaloga*tmp.knjcena, 0)0nsmanjkoLiif(tmp.inventura-tmp.zaloga<0 , tmp.inventura-tmp.zaloga*tmp.knjcena, 0)0nskalo tmp.kalov0nszalogatmp.zaloga*tmp.knjcena0 nsinventuratmp.inventura*tmp.knjcena0Arial Narrow CECourier New IE CEArial Narrow CE Arial NarrowCourier New IE CEArial Narrow CEArialArial Narrow CE Courier NewdataenvironmentjAutoOpenTables = .T. AutoCloseTables = .T. InitialSelectedAlias = "MATERIAL" Name = "dataenvironment" fPROCEDURE Destroy *- [CONVERTER] Reset tables for compatibility THIS.OpenTables THIS.Init ENDPROC Úþòÿ ÁÁdÒ%_xp7U ™ô÷þ ™ô÷þUTHIS OPENTABLESINITDestroy,ÿÿ1¢¡2[)ÁEPSON_A4  MATERIAL.DBFMATERIALsifra_toz+skladisce"[IFRA" zaloga.sifra,vrni('sifrant',1,'"EME"+material.em','opis')"STRAN"trans(_pageno,'9999')J "SKLADI[^E :"m.skladisce+' '+m.SklOpis@iif(lInv,replicate('_',13),TRANS(zaloga.zaloga,'99,999,999.99'))Bold1+cFirma1+Bold2Cond2+Bold1+cFirma2+Bold2Bold1+cNaslov+Bold2Bold1+cMesto+Bold21trans(zaloga.knj_cena*zaloga.zaloga,'999,999.99')"E.M."material.nazivnSumVred"999,999,999.99" tarife.davek"999.9"Cond1"OPIS" "KOLI^INA"" "ZALOGA.KNJ_CENA "999,999.99""DDV%" ccenaopisdate10(ddatum)"ZALOGE MATERIALA NA DAN" ccenaopis "SE[TEVEK:"zaloga.vrednost"999,999,999.99"n"------------------------------------------------------------------------------------------------------------"n"------------------------------------------------------------------------------------------------------------" nsumvred1"999,999,999.99"9"-------------------------------------------------------" "ZAL*CENA" "KONTR.VRED."NSUMVREDzaloga.zaloga*zaloga.knj_cena0 NSUMVRED1zaloga.vrednost0 NSUMNVREDzaloga.zaloga*zaloga.nabcena0NDAVEK(zaloga.zaloga*nNetoCena*tarife.davek/1000NBREZDAVzaloga.zaloga*nNetoCena0 NNETOCENASiif(cTipCene $ cPTipCDav , zaloga.knj_cena/(1+tarife.davek/100) , zaloga.knj_cena )0