cPE175 ;PRODUKTENFICHE ;%PE175; Do naar %PE174 - Go naar %PE176 G 1 ; T1 ;SELEKTIE VAN DE PRODUKTEN T2 ;[] = enkele specifieke -[] = einde programma T3 ;.[] = van ... tot ... T4 ;PERIODE : T5 ;VANAF DATUM T6 ;dd.mm.jj[] = datum [] = vanaf het begin T7 ;BEGIN T8 ;TOT DATUM T9 ;dd.mm.jj[] = datum [] = tot het einde T10 ;EINDE T11 ;SELEKTIE T12 ;1[] = aankoop 3[] = corr. in 5[] = transfert in 7[] = produktie T13 ;2[] = verkoop 4[] = corr. uit 6[] = transfert uit 8[] = samenstelling T14 ; [] = alles T15 ;1,2,3,4,5,6,7,8 T16 ;AFDRUK T17 ;[] = op terminal P[] = op printer T18 ;DETAIL T19 ;[] = met .[] = zonder T20 ;ZONDER;MET T21 ;PLAATS ;SMAL;BREED; BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN T22 ;[] = ok ,[] = hernemen; .[] = later drukken ; 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),R8="",$P(R8,".",R6)="." 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,@F2,@R5 D:R5'["""" @R5 R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D)=K R0D E G R0C R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q ;V8 05.07.88 ; R9 S R1=$P($T(+1)," ",1) I $D(QPT) F I=1,2 I $L($P(QPT,"#",I)) S $P(R1,"#",I)=$P(QPT,"#",I) R9A F R2=1:1 Q:'$D(PP(R2)) S R1=R1_D_PP(R2) R9B S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1 R9Z K R1,R2,R3 L Q ; V3 14.10.87 ; K1 F I=1:1:3 S K=$S($D(KOM):$P(KOM,D,I),1:$P($T(@("T"_(11+I))),U,2)) Q:'$L(K) W !?2,K K1Z Q ; K2 W !?3,$P($T(T2),U,2),!?2,$P($T(T3),U,2) K2Z Q ; 1 I QP 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 G 2 11 S J=0 F I="%KZ","H","HH","G","GG","S","SS","M","MM","P1","P2","BDA","EDA","OTP","DET","KEU" S J=J+1,@I=PP(J) 13 G 79 ; 2 S K=$D(@("^"_Q_"PR(0,0)")),K=" " F I=1:1 S K=$N(^(K)) Q:K=-1 S @K=^(K) 21 S FP=250 W @F,@F1 S R="%KZ\21\3\"_$P($T(T1),U,2)_"\K2\1\\""-.""[K" D R0 G YZ:K="-" 23 I %KZ="" D ^cPE174 G 3:$D(^HULP($J)),21 25 S SWP=1,FP=250 W @F,@F1 D ^cPE123 G 21:K="-" ; 3 S FP=250 W @F,$P($T(T4),U,2) 31 S R="BDA\21\3\"_$P($T(T5),U,2)_"\"""_$P($T(T6),U,2)_"""\8\DCTR" D R0 G 23:K="-" 33 S FP=260 W @F,$S(K="":$P($T(T7),U,2),1:K)," - " 35 S R="EDA\21\3\"_$P($T(T8),U,2)_"\"""_$P($T(T9),U,2)_"""\8\DCTR" D R0 G 31:K="-" 37 S BDA=$E(BDA,7,8)_$E(BDA,4,5)_$E(BDA,1,2),EDA=$E(EDA,7,8)_$E(EDA,4,5)_$E(EDA,1,2) I K="" S EDA=999999 39 G 35:EDA8)!($P(K,",",I)'?.N)!($P(K,",",I)#1) K="-" 45 G 41:K="-" S KEU=K I $D(^(2002)) X ^(2002) ; 5 S R="OTP\22\3\"_$P($T(T16),U,2)_"\"""_$P($T(T17),U,2)_"""\1\\""-,P""[K" D R0 G 4:K="-",21:K=",",8:K="" ; 6 S DET="..",Y=$N(@("^"_Q_"PR(0,2500)")) I Y=-1!(Y'?.N)!(Y>2599) S FP=2201+F60 W @F,@F1 G 7 61 S R="DET\22\3\"_$P($T(T18),U,2)_"\"""_$P($T(T19),U,2)_"""\1\\""-,.""[K" D R0 G 5:K="-",21:K="," 63 S FP=2214+F60 W @F,@F1,$P($T(T20),U,DET=""+2) ; 7 S R="K\23\3\"_$P($T(T21),U,2)_$P($T(T21),U,DET=""+3)_$P($T(T21),U,5)_"\""" 71 S R=R_$P($T(T22),U,2) S:$L(%KZ) R=R_$P($T(T22),U,3) S R=R_"""\1\\""-," S:$L(%KZ) R=R_"." S R=R_"""[K" D R0 73 G 21:K=",",79:K="" I K="-" G 5:DET="..",61 75 S J=0 F I="%KZ","H","HH","G","GG","S","SS","M","MM","P1","P2","BDA","EDA","OTP","DET","KEU" S:'$D(@I) @I="" S J=J+1,PP(J)=@I 77 D R9 K PP G 21 79 X F70 W @F80 ; 8 I $D(DET),$L(DET) S DET="." 81 G ^cPE176 ; YZ Q ; DCTR ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-"[K) ; Z X ^cZ Q ZZ ; 03.11.88 - 14 u 54