KP26 G 1 ;SEQUENTIEEL WIJZIGEN PROODUKTEN VOLGENS HG-GR-SG-MK-PR (klass. lev. wijzigen) ; Quit naar KP22 [ 12/20/94  8:27 AM ]
 ;
1 K A S KMN="",ULN=4,FP=401 W @F,@F1 S FP=480 W @F,@F5
27 S FP=402 W @F,@F4,"REF. LEV.| PRODUKTNAAM              | ",$P(U2,U,1),$E(BLA,1,39-$L($P(U2,U,1))),@F5
29 S PVNR=$N(@("^"_Q_"PWSVN(PVNR)")) G YZ:PVNR=-1!(PVNR]PLNR) S PR=^(PVNR)
31 L @("^"_Q_"PR(PR)"):2 E  S FP=2403+F60 W @F,@F2,@F4,"PRODUKT ",$P(@("^"_Q_"PR(PR,0)"),D,1)," IS IN GEBRUIK [] = OK ",@F5,@F0 R K G 31
33 S PC=$P(@("^"_Q_"PR(PR,0)"),D,1),I2=$P("I\J",D,SW+1),UAI=0
34 I $P(^(1),D,25) G 29:K'="-" S PVNR=PVNR-2 G YZ:PVNR<0!(PVNR<PFNR),29
35 S I2=$N(@("^"_Q_"PR(PR,I2)")) I $E(I2,1)'=$P("I\J",D,SW+1) G 29:K'="-" S PVNR=PVNR-2 G YZ:PVNR<0!(PVNR<PFNR),29
37 K B S B(1)=^(I2),PLF="" S:SW PLF=$P(B(1),D,3) I 'SW S:$E($N(^("J")),1)="J" PLF=$P(^($N(^("J"))),D,3)
38 S X=$P(U2,U,16),U3=$P(B(X\100),D,X#100),K=U3,SWX=1 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) K SWX
39 S UAI=UAI+1,ULN=ULN+1 I ULN>19 S FP=ULN*100+1 W @F,@F1 S ULN=ULN-1,FP=501 W @F,@FDL
41 S FP=ULN*100+2 W @F,@F1,$E(PLF,1,10) S FP=FP+10 W @F,"| ",$E(PC,1,25) S PC="",FP=FP+27 W @F,"| ",U3
42 I $P(U2,U,12),@$P(U2,U,15) G 49:KMN="-" S FP=2403+F60 W @F,@F2,@F4,"NIET WIJZIGBAAR [] = OK ",@F5,@F0 R K G 35:K'="-" S KMN=K G 49
43 S FP=2103+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !?2,$P(U2,U,10)
45 W !?2,"-[] = vorig produkt   .[] = volgend produkt"
47 S FP=2100+F60+($L($P(U2,U,1))+6) W @F,@F0 R K S KMN=K G 47:K?.E1C.E,YZ:K=",",35:K=".",61:K'="-"
49 S PVNR=PVNR-2 G YZ:PVNR<0!(PVNR<PFNR)
51 S PVNR=$N(@("^"_Q_"PWSVN(PVNR)")),PR=^(PVNR),I2=$P("I\J",D,SW+1) G 49:$E($N(@("^"_Q_"PR(PR,I2)")),1)'=I2
53 S I2=$N(^(I2)) I $E(I2,1)=$P("I\J",D,SW+1) S ULN=ULN-1 G 53
55 S PVNR=PVNR-1,ULN=ULN-UAI S:ULN<4 ULN=4 G 29
61 G 63:$P(U2,U,11)'="DCTR" S KD=$P(K,".",1),KM=$P(K,".",2),KJ=$P(K,".",3)
62 G 69:K?2N1"."2N1"."2N&(KD>0)&(KM>0)&(KD<32)&(KM<13)&'("04060911"[KM&(KD=31))&'(+KM=2&(('(KJ#4)&(KD>29))!(KJ#4&(KD>28)))),43
63 S X=$P(U2,U,11)_"&'(K[D)&($L(K)'>$P(U2,U,9))"
65 I @X G 69
67 G 43
69 S U3=K,X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100 S:(Y-1) K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99)
71 S K=U3 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=ULN*100+41 W @F,@F2,U3
73 F I=1:1:3 I '$L($P(B(1),D,I)) S:I=1 B(1)=" "_D_$P(B(1),D,2,99) S:I>1 B(1)=$P(B(1),D,1,I-1)_D_" "_D_$P(B(1),D,I+1,99)
 D DELIND^PRODUKT2(PR)
75 S X="^"_Q_"PR(PR,I2)=B(1)",@X
 D BLDIND^PRODUKT2(PR)
 D:$D(X3) @X3 G 35
 ;
YZ K A Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32