í!Arial Narrow CEE.winspoolGGeneric PostScript PrinterPLPT1: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.DBFMATERIALArial Narrow CE"ŠIFRA"material.sifra Arial Narrow CE sifrant.opis Arial Narrow CEArial Narrow CE"E.M."material.naziv Arial Narrow CE tarife.davekArial Narrow CE"999.9"Arial Narrow CE"OPIS"Arial Narrow CE"DDV%"2vrni('sifrant',1,' "GRU" +material.grupa','opis') Arial Narrow CEArial Narrow CE"GRUPA"cFirma1 ArialBcNaslov ArialBcMesto ArialBArial Narrow CE"ID številka:" cPDavStev ArialBcFirma2 ArialBArial Narrow CE "Tel.št.:"cPTel ArialBArial Narrow CE"Fax:"cPFax ArialBArial Narrow CE "E.pošta:" cPe_posta ArialBcFirma3 ArialBnCenaB Arial Narrow CE "999,999.99"Arial Narrow CE "MPC Z DDV";'Stran: '+trans(_PAGENO,'999')+'/'+trans(nTotalPages,'999') Arial Narrow CE 'Dok. cenik3'  Arial Narrow'Dat.izpisa: ' + dtoc(date())  Arial NarrowA'Cenik blaga za: '+cSkl+' '+vrni('sifrant',1,'"SKL"+cSkl','opis') Arial Narrow CEnCenaZ Arial Narrow CE "999,999.99"Arial Narrow CE "Z.NAB.CENA"NMARZAB Arial Narrow CE nmarzab>0"999.99"Arial Narrow CE"MARŽA"nCenaA9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"A"','CENA')0nCenaB9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"B"','CENA')0nCenaZ$CenaIzPrej( cSkl , material.sifra,1)$CenaIzPrej( cSkl , material.sifra,1)nCenaC9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"C"','CENA')0nCenaD9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"D"','CENA')0nCenaE9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"E"','CENA')0nmarzab&ROUND((no0div(nCenaA,nCenaZ)-1)*100,2)(no0div(nCenaA,nCenaZ)-1)*100Arial Narrow CEArial Narrow CEArialArial Narrow CE Arial NarrowArial Narrow CEdataenvironmentœLeft = 136 Top = 151 Width = 520 Height = 200 AutoOpenTables = .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 E.winspoolGGeneric PostScript PrinterPLPT1:eGeneric PostScript PrinterœÄSï š 4d,,A4PRIVB0''''ÄP4(ˆ0‘§}ÿArial Narrow CE MATERIAL.DBFMATERIAL"ŠIFRA"Arial Narrow CEmaterial.sifra Arial Narrow CE sifrant.opis Arial Narrow CE"E.M."Arial Narrow CEmaterial.naziv Arial Narrow CE tarife.davek"999.9"Arial Narrow CE"OPIS"Arial Narrow CE"DDV%"Arial Narrow CE2vrni('sifrant',1,' "GRU" +material.grupa','opis') Arial Narrow CE"GRUPA"Arial Narrow CEcFirma1B ArialcNaslovB ArialcMestoB Arial"ID številka:"Arial Narrow CE cPDavStevB ArialcFirma2B Arial "Tel.št.:"Arial Narrow CEcPTelB Arial"Fax:"Arial Narrow CEcPFaxB Arial "E.pošta:"Arial Narrow CE cPe_postaB ArialcFirma3B ArialnCenaB "999,999.99" Arial Narrow CE "MPC Z DDV"Arial Narrow CE;'Stran: '+trans(_PAGENO,'999')+'/'+trans(nTotalPages,'999') Arial Narrow CE 'Dok. cenik3'  Arial Narrow'Dat.izpisa: ' + dtoc(date())  Arial NarrowA'Cenik blaga za: '+cSkl+' '+vrni('sifrant',1,'"SKL"+cSkl','opis') Arial Narrow CEnCenaZ "999,999.99" Arial Narrow CE "Z.NAB.CENA"Arial Narrow CENMARZAB"999.99" Arial Narrow CE nmarzab>0"MARŽA"Arial Narrow CEnCenaA9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"A"','CENA')0nCenaB9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"B"','CENA')0nCenaZ$CenaIzPrej( cSkl , material.sifra,1)$CenaIzPrej( cSkl , material.sifra,1)nCenaC9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"C"','CENA')0nCenaD9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"D"','CENA')0nCenaE9vrni('cenik',1,'cCenTozd+cSkl+material.sifra+"E"','CENA')0nmarzab&ROUND((no0div(nCenaA,nCenaZ)-1)*100,2)(no0div(nCenaA,nCenaZ)-1)*100Arial Narrow CEArial Narrow CEArialArial Narrow CE Arial NarrowArial Narrow CEdataenvironmentœLeft = 136 Top = 151 Width = 520 Height = 200 AutoOpenTables = .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