5:56 PM 7-JUL-20 RTIMP RTIMP ; Dispositivo de Impressão [ 03/09/2020 3:19 PM ] ; ------------------------------------------------------------------------------- ; zzTIT = Titulo do Relatório ; zzS =1 (Abre Seleção de Impressoras) 0= Não ; zzP = Piece ; ------------------------------------------------------------------------------- RES O 51:("C:\ZEBRA\ZPAR\respar.txt":"R"):0 U 51 R TEMPI s zzLOCAL=$P(TEMPI,"^",14) C 51 Q ; ------------------------------------------------------------------------------- TEL O 51:("C:\ZEBRA\ZPAR\telpar.txt":"R"):0 U 51 R TEMPI C 51 Q ; ------------------------------------------------------------------------------- OPE o 3:0 u 3 S:'$D(TEMPI) TEMPI="" S:'$D(YE) YE=1 S:'$D(zzP) zzP=0 s yPRINT1=$P(TEMPI,"^",zzP+20) ;,yPRINT1="LEAL01" G WPRT:'$D(^PRINT0(YE,yPRINT1)) S yRPRT=$G(^PRINT0(YE,yPRINT1)) S yPRINT2=$P(yRPRT,"^",2) G WPRT:yPRINT2="" G WPRT:'$D(^PRINT0(YE,yPRINT2)) S:$P(yRPRT,"^",3)=1 yPRINT1=yPRINT2 WPRT W /SETPRINTER(yPRINT1) S:'$D(zzS) zzS=0 S:'$D(zzTIT) zzTIT="" I zzS=1 W /CHOOSEPRINTER("","Carta") W /SETDOCUMENT(zzTIT) W /SETFONTNAME("Courier New") W /SETFONTSIZE($P(TEMPI,U,zzP+70)) W /SETFONTBOLD($P(TEMPI,U,zzP+60)) W /SETLEFTMARGIN($P(TEMPI,U,zzP+50)) Q ; ------------------------------------------------------------------------------- CLO S:'$D(zzP) zzP=0 F zzI=1:1:$P(TEMPI,U,zzP+80) W !,"." C 3 Q ; ------------------------------------------------------------------------------- TESTE W !,"----------------------------------------" W !,"1111111111222222222233333333334444444444" W !,"5555555555666666666677777777778888888888" W !,"99999999990000000000....<>/?[]@#$=%&*()-" W !,"abcdefghijklmnopqrstuvxwyz.............." W !,"ABCDEFGHIJKLMNOPQRSTUVXWYZ.............." W !,"========================================" Q ; -------------------------------------------------------------------------------