cPE24 G 1 ;SEQUENTIEEL WIJZIGEN PROODUKTEN VOLGENS HG-GR-SG-MK-PR (klass. lev) ; Quit naar %P22 [ 03/06/2002  4:56 PM ]
 ;
T1 ;$P("KLASSSIFIKATIE\LEVERANCIER",D,SW+1)
T2 ;NUMMER ELEMENT : ..
T3 ;-[] = vorig produkt   .[] = volgend produkt
T4 ;-[] = keuze element   .[] = volgend produkt
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
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)
 ;
1 S Y=@("^"_Q_"PR(0,0)") I '$D(SW2) S:USCH="K" SW2=$N(^(SW4*100+100))\100,SW=0 S:USCH="L" SW2=$N(^($N(^(SW4*100+100))+100))\100,SW=1
2 S (SW5,U4)=0,FP=401 W @F,@F1 S FP=470 W @F,@F5 S FP=455 W @F,@F4,@$P($T(T1),U,2)," ",@F5
3 S X=100,K=98 F I=1,2 S X=$N(^(X)),K=K+1,A(K)=^(X)
5 S X=SW2*100
7 S X=$N(^(X)) G 29:X'?.N!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 7
29 S PVNR=$N(@("^"_Q_"PWSVN(PVNR)")) G YZ:PVNR=-1!(PVNR]PLNR) S PR=^(PVNR)
33 L @("^"_Q_"PR(PR)"):2 E  X ^cTXT(0,"N",117) R K G 33
35 S U1=98,B(1)=@("^"_Q_"PR(PR,0)"),I2=$P("I\J",D,SW+1)
37 S I2=$N(^(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
39 S U1=$N(A(U1)) G 47:U1<0 S:U1=101 B(1)=^(I2) S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" S U3=$P(B(X\100),D,X#100),K=U3 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
41 G 45:SW5 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W @F,@F5,": " S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3)
43 W @F S U4=U4+1 W $J(U4,2),@F6,$P(A(U1),U,1),@F5
45 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 G 39
47 G 51:$D(K)&$D(UNE) S SW5=1,FP=2103+F60 W @F,@F1,$P($T(T2),U,2)
48 W !?2,$P($T(T3),U,2),@F0 S FP=2120+F60 W @F R K G 73:K=","!(K=".")!(K="-")
50 K UNE I K?.E1C.E!'$D(A(K+98))!(SW2>1&(K<3)) G 47
51 S:'$D(UNE) UNE=K S U2=A(UNE+98)
53 I $P(U2,U,12),@$P(U2,U,15) X ^cTXT(0,"N",69) R K K UNE G 47
55 S N=$P(U2,U,16) I N#100<4 X ^cTXT(0,"N",69) R K K UNE G 47
57 S SW5=1,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)
58 W !?2,$P($T(T4),U,2)
59 S FP=2100+F60+($L($P(U2,U,1))+6) W @F,@F0 R K G 59:K?.E1C.E,73:K=","!(K=".") I K="-" K K G 47
 S LVHCYB="W"
61 S Y="1" S:$L($P(U2,U,21)) Y="("_$P($T(@$P(U2,U,21)),U,2,99)_")" G 62:$P(Y,",",1)="$L(K)"&(K="") I @Y G 69
62 E  G 57
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),K=U3
71 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 S U2="" K K G 47
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)
75 K U2,U3 S X="^"_Q_"PR(PR,I2)=B(1)",@X,U1=100
 I $D(LVHCYB),LVHCYB="W",$D(X3) D @X3 K LVHCYB
 G 37:K="." I K="-" K UNE S PVNR=PVNR-2 G YZ:PVNR<0!(PVNR<PFNR),29
 ;
YZ K A Q
 ;