!Arial Narrow CEE-winspoolHP DeskJet 930C/932C/935CUSB001ôHP DeskJet 930C/932C/935CœXCÿ€ š 4d,,A4DINU"4$ô †Ñ$˜$$˜$ÏDRIVER=winspool DEVICE=HP DeskJet 930C/932C/935C OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 ASCII=9 COPIES=1 DEFAULTSOURCE=7 PRINTQUALITY=300 COLOR=1 DUPLEX=1 YRESOLUTION=300 TTOPTION=3 COLLATE=0  MATERIAL.DBFMATERIAL skladisceCourier New IE CE"ŠIFRA" tmp.material Courier New IE CE,vrni('sifrant',1,'"EME"+material.em','opis') Courier New IE CEArial narrow CE"ZA SKLADIŠEE:" m.SklOpis Arial narrow CE tmp.inventura Courier New IE CE "9999,999.9"tmp.inventura-tmp.zaloga Courier New IE CE "9999,999.9"Courier New IE CE"E.M."material.naziv Courier New IE CE tarife.davek Courier New IE CE"99.9"Courier New IE CE"OPIS"Arial narrow CE" " tmp.KNJCENA Courier New IE CE "9999,999.9"Courier New IE CE"DDV%"date10(ddatum)Arial Narrow CEArial Narrow CE"INVENTURNI POPIS DNE:" ccenaopisArial narrow CEArial narrow CE9"-------------------------------------------------------"Arial narrow CE "VRSTA CENE:"Courier New IE CE"CENA" tmp.zaloga Courier New IE CE "9999,999.9"cFirma1 ArialBcNaslov ArialBcMesto ArialBArial Narrow CE"ID številka:" cPDavStev ArialBcFirma2 ArialBArial Narrow CE "Tel.št.:"cPTel ArialB&(tmp.inventura-tmp.zaloga)*tmp.knjcena Courier New IE CE "9999,999.9"Courier New IE CE "RAZLIKA."Courier New IE CE "CENA*RAZ." nSRazlika Courier New IE CE"9999,999,999.99"Courier New IE CE"SKUPNA RAZLIKA:" tmp.nabava Courier New IE CE "9999,999.9" tmp.poraba Courier New IE CE "9999,999.9"Courier New IE CE"PORABA" tmp.ZACETNO Courier New IE CE "9999,999.9"Courier New IE CE "STANJE:"Courier New IE CE"NABAVA"Courier New IE CE"ZALOGA"Courier New IE CE "INVENTURA"MATERIAL.IZVOR Courier New IE CEMATERIAL.GRUPA Courier New IE CECourier New IE CE"SKUP."Courier New IE CE"GRUPA"dZadnja Courier New IE CE "9999,999.9"material.sifra1 Courier New IE CECourier New IE CE "H.ŠIFRA"material.b_koda Courier New IE CECourier New IE CE "ÈRTNA KODA" nsrazlika&(tmp.inventura-tmp.zaloga)*tmp.knjcena0Arial Narrow CECourier New IE CECourier New IE CEArial narrow CECourier New IE CEArial Narrow CEArialArial Narrow CEdataenvironmentjAutoOpenTables = .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=HP DeskJet 930C/932C/935C OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 ASCII=9 COPIES=1 DEFAULTSOURCE=7 PRINTQUALITY=300 COLOR=1 DUPLEX=1 YRESOLUTION=300 TTOPTION=3 COLLATE=0 E-winspoolHP DeskJet 930C/932C/935CUSB001ôHP DeskJet 930C/932C/935CœXCÿ€ š 4d,,A4DINU"4$ô †Ñ$˜$$˜$Arial Narrow CE MATERIAL.DBFMATERIAL skladisce"ŠIFRA"Courier New IE CE tmp.material Courier New IE CE,vrni('sifrant',1,'"EME"+material.em','opis') Courier New IE CE"ZA SKLADIŠEE:"Arial narrow CE m.SklOpis Arial narrow CE tmp.inventura "9999,999.9" Courier New IE CEtmp.inventura-tmp.zaloga "9999,999.9" Courier New IE CE"E.M."Courier New IE CEmaterial.naziv Courier New IE CE tarife.davek"99.9" Courier New IE CE"OPIS"Courier New IE CE" "Arial narrow CE tmp.KNJCENA "9999,999.9" Courier New IE CE"DDV%"Courier New IE CEdate10(ddatum)Arial Narrow CE"INVENTURNI POPIS DNE:"Arial Narrow CE ccenaopisArial narrow CE9"-------------------------------------------------------"Arial narrow CE "VRSTA CENE:"Arial narrow CE"CENA"Courier New IE CE tmp.zaloga "9999,999.9" Courier New IE CEcFirma1B ArialcNaslovB ArialcMestoB Arial"ID številka:"Arial Narrow CE cPDavStevB ArialcFirma2B Arial "Tel.št.:"Arial Narrow CEcPTelB Arial&(tmp.inventura-tmp.zaloga)*tmp.knjcena "9999,999.9" Courier New IE CE "RAZLIKA."Courier New IE CE "CENA*RAZ."Courier New IE CE nSRazlika "9999,999.9" Courier New IE CE"SKUPNA RAZLIKA:"Courier New IE CE tmp.nabava "9999,999.9" Courier New IE CE tmp.poraba "9999,999.9" Courier New IE CE"PORABA"Courier New IE CE tmp.ZACETNO "9999,999.9" Courier New IE CE "STANJE:"Courier New IE CE"NABAVA"Courier New IE CE"ZALOGA"Courier New IE CE "INVENTURA"Courier New IE CEMATERIAL.IZVOR Courier New IE CEMATERIAL.GRUPA Courier New IE CE"SKUP."Courier New IE CE"GRUPA"Courier New IE CEdZadnja "9999,999.9" Courier New IE CEmaterial.sifra1 Courier New IE CE "H.ŠIFRA"Courier New IE CEmaterial.b_koda Courier New IE CE "ÈRTNA KODA"Courier New IE CE nsrazlika&(tmp.inventura-tmp.zaloga)*tmp.knjcena0Arial Narrow CECourier New IE CECourier New IE CEArial narrow CECourier New IE CEArial Narrow CEArialArial Narrow CEdataenvironmentjAutoOpenTables = .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