cPE75 G 1 ;PRODUKTENFICHE ;%PE75 ; Go naar %PE76 [ 03/07/2002  9:21 AM ]
 ;
T1 ;R=R_" [] = AFDRUK OP TERMINAL  P[] = OP PRINTER"_"\"
T2 ;R=R_" [] = MET FAKTUURDETAIL"_"\"
T3 ;R=R_".[] = zonder faktuurdetail"
T4 ;MET\ZONDER
T5 ; FAKTUURDETAIL
T6 ;R=R_"PLAATS "
T7 ;BREED\SMAL
T8 ; BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\
T9 ;" [] = ok   ,[] = hernemen"
T10 ;BEGINDATUM
T11 ;"onder de vorm dd.mm.jj   [] = van bij het begin"
 ;
ER W @F8 K @("^"_Q_"PZ($J)") W # X F71 G ^II:$ZE["<INTERRUPT>",^cER
 ;
1 S DET=".",SWP=1,SW=0,NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),BLZ=1,LT=0,Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
2 S Y=$N(^(Y)) G BREAK:Y=-1 S @Y=^(Y) G 2
BREAK B 1
 ; Selectie
11 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 D ^cPE123 G YZ:K="-"
15 S FP=254 W @F,@F2 S R="K\22\3\"_$P($T(T10),U,2)_D_$P($T(T11),U,2)_"\8\DCTR\" D R0 G 11:K="-"
17 S DAT=$E(K,7,8)_$E(K,4,5)_$E(K,1,2),FP=255 W:K @F,$P($T(T10),U,2)," : ",K,@F2
25 S I1=-1,R="DEV\22\3\",@$P($T(T1),U,2),R=R_"\1\\K=""""!(K=""P"")!(K=""-"")!(K="","")\"
26 D R0 G 1:K=",",15:K="-" I K="" G 3
260 S R="DET\21\3\",@$P($T(T2),U,2),R=R_"""",@$P($T(T3),U,2),R=R_"""\1\\""-.,""[K\" D R0 G 25:K="-",1:K="," S FP=2104 W @F,@F1,$P($P($T(T4),U,2),D,K="."+1),$P($T(T5),U,2)
27 S R="K\22\4\",@$P($T(T6),U,2) S R=R_$P($P($T(T7),U,2),D,DET="."+1) S R=R_$P($T(T8),U,2)_$P($T(T9),U,2)_"\1\\""-,""[K\\"
29 D R0 G 25:K="-",1:K="," X F70 W @F80
 ;
3 G ^cPE76
 ;
YZ B 0 Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7)),U,2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;