[Ime] imeizpisa=Plačilni nalog UPN A4(2) [NASTAVITVE] DEBUG=1 ;zg_rob=0 levi_rob=1 FORMAT=P ;ime fonta, size, B=bold,U=underline,I=italic,N NORMAL IZKLOPI VSE "B","BU","BUI" ;če pri fontu ni spremembe se uporablja zadnji font, tudi za bold! Font=Courier New,10,N nvar=10 [RS] RSNUM=1 CN1 = CNOD SQL11= SELECT zr, virmani.zrdob, namen1, model1, modcifra1, left(ime1,34) as lime1, saldo, kodanamena, kraj, ime2, left(ime2 & ', ' & ime3,34) as lime2, SQL12= left(DOB1,34) as LDOB1, left(DOB2,34) as lDOB2, left(DOB3,34) as lDOB3,iif(isnull(valutacija),#P2#, valutacija) as lvalutacija, SQL13= left(namen1,34) AS lnamen1, left(namen2 & ' ' & namen3,34) as lnamen2, iif(model2>' ','X',' ') as oznaka, model2, modcifra2, SQL14= LEN(namen1) AS LLEN, INSTR(mid(namen1,21,10),' ') as sp15, iif(sp15>0,sp15+20,34) AS LN, valutacija, SQL15= left(namen1,ln) as lnaziv1,MID(namen1,ln+1,(50-LN+2)) as lnaziv2, left(lDOB2 & ', ' & ldob3,34) as ldobs SQL16= FROM virmani WHERE #P1# [ZACETEK1] VAR(1)=1 VAR(2)=" " VAR(3)=" " VAR(4)=" " VAR(5)=" " VAR(6)=" " VAR(7)=" " VAR(8)=" " VAR(9)=" " [POLNIVAR2] VAR(2)=IBAN(RS1.zr) [POLNIVAR3] VAR(3)=IBAN(RS1.zrdob) [POLNIVAR4] VAR(4)=( "SI" & #RS1.model1# )& " " & #RS1.modcifra1# [POLNIVAR5] VAR(5)= ( "SI" & #RS1.model2# )& " " & #RS1.modcifra2# [POLNIVAR6] VAR(6)= #rs1.lime2# VAR(9)= #rs1.lime230# [POLNIVAR7] VAR(7)= #rs1.ldobs# VAR(8)= #rs1.ldobs30# [INITVAR2] VAR(2)= " " [INITVAR3] VAR(3)= " " [INITVAR4] VAR(4)= " " [INITVAR5] VAR(5)= " " [INITVAR6] VAR(6)= " " var(9)= " " [INITVAR7] VAR(7)= " " Var(8)= " " [TELO1] Rs = 1 konec_strani=2 ;SLIKE, TEKSTOVNE DATOTEKE ;NI=1 ;I1=FIRMAC.RTF ;TEKSTI NT=4 ; AL=ABSOLUTNO LEVA PORAVNAVA ; AD=ABSOLUTNO DESNA PORAVNAVA ; RD,RL RELATIVNO GLEDE NA ZADNJE POLJE ;T1=__________________________________________________________________________________________________________ POGOJ1=VAR(1),=,1,PRVI,DRUGI POGOJ2=#RS1.zr#,<>,"",POLNIVAR2 POGOJ3=#RS1.zrdob#,<>,"",POLNIVAR3 POGOJ4=0,=,0,PISI [PRVI] nt=2 T1P=FF,>1 T2P=AL,23,60 VAR(1)=2 VAR(10)=21 [DRUGI] nt=2 T1P=RL,81 VAR(1)=1 VAR(10)=170 [PISI] NT=60 ;IBAN plačnika T4F=Courier New,10,N T4P=AL,VAR(10)+2.25,59.75 T4V=VAR(2) ;T5P=AL,,150 ;T5=#RS1.OZNAKA# ;Ime plačnika T6F=Arial Narrow,10,N T6P=AL,VAR(10)+6.75,0.01 T6V=RS1.lime1 POGOJ8=#rs1.ime2#,>,CHR(32),POLNIVAR6,INITVAR6 T9P=AL,VAR(10)+10.75,0.01 T9V=VAR(6) POGOJ11=#RS1.model1#,>,CHR(32),POLNIVAR4,INITVAR4 ;Referenca - plačnik T12F=Courier New,10,N T12P=AL,VAR(10)+10.75,59.75 T12V=VAR(4) ;Namen / rok plačila T14F=Arial Narrow,10,N T14P=AL,VAR(10)+19.25,0.01 T14V=RS1.lnaziv1 ;Ime in naslov T15F=Courier New,10,N T15P=AL,VAR(10)+19.25,59.75 T15=#RS1.Lime1# ;Namen / rok plačila --> druga vrsta T16F=Arial Narrow,10,N T16P=AL,VAR(10)+23.25,0.01 T16V=RS1.Lnaziv2 ;Ime in naslov 230 T17F=Courier New,10,N T17P=AL,VAR(10)+23.25,59.75 T17V=VAR(6) ;Saldo T21F=Arial Narrow,10,N T21P=AL,VAR(10)+31.65,12.90 POGOJ22=#RS1.saldo#,>,0,PISISALDO ;Koda namena T23F=Courier New,10,N T23P=AL,VAR(10)+31.75,59.75 T23V=RS1.kodanamena ;Namen plačila T24P=AL,VAR(10)+31.65,78.80 T24V=RS1.namen1 ;IBAN T32F=Arial Narrow,10,N T32P=AL,VAR(10)+40.25,0.01 T32V=VAR(3) ;Znesek T34F=Courier New,10,N T34P=AL,VAR(10)+40.25,71 POGOJ35=#RS1.saldo#,>,0,PISISALDO ;Datum plačila T36P=AL,VAR(10)+40.25,116 POGOJ37=rs1.lvalutacija,>,0,PISIDATUM ;BIC banke prejemnika T38P=AL,VAR(10)+40.25,149.75 T38V=rs1.kraj ;IBAN prejemnika T42F=Courier New,10,N T42P=AL,VAR(10)+48.75,59.75 T42V=VAR(3) POGOJ49=#RS1.MODEL2#,>,CHR(32),POLNIVAR5, INITVAR5 ;Referenca prejemnika T50F=Arial Narrow,10,N T50P=AL,VAR(10)+57.25,0.01 T50V=VAR(5) T52F=Courier New,10,N T52P=AL,VAR(10)+57.25,59.75 T52V=VAR(5) ;Ime prejemnika T55F=Arial Narrow,10,N T55P=AL,VAR(10)+65.75,0.01 T55=#RS1.Ldob1# T56F=Courier New,10,N T56P=AL,VAR(10)+65.75,59.75 T56=#RS1.Ldob1# POGOJ58=#RS1.ldob2#,>,CHR(32),POLNIVAR7, INITVAR7 T59F=Arial Narrow,10,N T59P=AL,VAR(10)+69.75,0.01 T59V=VAR(8) T60F=Courier New,10,N T60P=AL,VAR(10)+69.75,59.75 T60V=VAR(7) [PISISALDO] nt=1 T1P=RL,0.01,0.01 T1="***" T1V=rs1.saldo, "###,###,##0.00" [PISIDATUM] NT=1 T1P=RL,0.01,0.01 T1V=rs1.valutacija,"dd.MM.yyyy" [TELO] NRS=1