KPWIDN G 1 ; WIJZIGEN PRODUKTEN IDENTNUMMER; Quit naar KPE31
 ;
S1 S SRT=($E(SID,1)*6)+($E(SID,2)*5)+($E(SID,3)*4)+($E(SID,4)*3)+($E(SID,5)*2)#11 S:SRT=0 SCD=1 S:SRT=1 SCD=0 S:SRT>1 SCD=11-SRT
S1Z Q
 ;
1 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)
3 S FP=2100+F60+$L($P(U2,U,1))+6 W @F,@F0 R K G 1:K?.E1C.E,1:$L(K)>$P(U2,U,9),YZ:K="-"
5 G 1:$E(K,1)'="0"!(K'?1N1"."3N1"."3N1"."1N) S SID=$E(K,3,5)_$E(K,7,8) D S1 G 1:SCD'=$E(K,9)
 ;
YZ K SID,SRT,SCD Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 33