KFSOL G 1 ; MODULE SLUITEN LEVERANCIERORDERS; Quit naar %F10 Go naar KFSOAL [ 11/05/2001  2:51 PM ]
 ;
1 K UTA,UTB S UL=+UD,FP=UD*100+1 W @F,@F1 S SW12=1,X=^(1),UAF=$P(X,D,22)
 G 71:$L(UAF) S UAF=1
33 S X=$P(X,D,1,21)_D_UAF_D_$P(X,D,23,99),@("^"_Q_UGL_"(KC,US,UR,1)")=X
47 S UVM=$P(X,D,18) G 71:UVM'="MTL" S UZ=100
49 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) I UZ'=-1 S U2=^(UZ) G 49:'$L($P(U2,D,2)) S UVM=$P(U2,D,22)
 S $P(X,D,18)=UVM,@("^"_Q_UGL_"(KC,US,UR,1)")=X
71 S K=","
 ;
YZ K UJ,KL,LEV,PGV,PC,PR,PID,PLQ,PST,PY,PRE,PB,PL,PM,PP,PPAR,PSN,PKOM,TR,TZ,Q15,U2,UOD,UOR,UAF,ULV,UMC,UN,UEP,UBE,ULT,UMC,USPPK1,PK2,UPAR,UPT,URR,UUZ,X,X1,X2,Y,Z,ZZ,UTYP Q
 ;
 Q
Z X ^cZ Q
ZZ ; 05.06.91 -  8 u 25