KFRO G 1 ;MODULE RANGSCHIKKEN ORDER ;Quit naar %F10 [ 05/05/99  1:32 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 S SW12=1,X=@("^"_Q_UGL_"(KC,US,UR,1)")
 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
 S UOR=$P("R\O",D,$P(X,D,17)+1)
 S UTYP=$P(X,D,25) I UTYP="L" G YZ
2 S UZ=100,Q15="^(""W    0.0""_UOR_UOD_$J(UR,6,0)_$J((UZ-100),3,0))",Q16="@(""^""_Q_""PR(PR,""""W    0.0""""_UOR_UOD_$J(UR,6,0)_$J((UZ-100),3,0))"")"
20 K @("^"_Q_"HULP($J)"),^($J+100)
3 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 9:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 3:'PR K ^(UZ)
5 S PC=$P(@("^"_Q_"PR(PR,0)"),D,1) D SC S X="I",X=$N(@("^"_Q_"PR(PR,X)")) K @Q15
7 S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=$P(^(X),D,1,3) S @("^"_Q_"HULP($J,$P(X,D,1),$P(X,D,2),$P(X,D,3),PCC,UZ)")=U2 G 3
9 G 99:'$D(@("^"_Q_"HULP($J)")) S UZ=100,PHG=""
11 S PHG=$N(@("^"_Q_"HULP($J,PHG)")) G 99:PHG=-1 S PGR=""
13 S PGR=$N(@("^"_Q_"HULP($J,PHG,PGR)")) G 11:PGR=-1 S PSG=""
15 S PSG=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG)")) G 13:PSG=-1 S PCC=""
17 S PCC=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")) G 15:PCC=-1 S UVN=0
19 S UVN=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG,PCC,UVN)")) G 17:UVN=-1 S U2=^(UVN),PR=$P(U2,D,2),UA=$P(U2,D,3)
21 S UZ=UZ+1 G 21:$D(@("^"_Q_UGL_"(KC,US,UR,UZ)")) S @("^"_Q_UGL_"(KC,US,UR,UZ)")=U2,@Q16=UA_D_$P(U2,D,25)_D
23 S TR=$P(U2,D,27) G 19:'TR S TZ=$P(U2,D,28),LEV=$P(@("^"_Q_"TO1(TR)"),D,1)
24 S U2=@("^"_Q_"TO(LEV,TR,TZ)"),$P(U2,D,28)=UZ,@("^"_Q_"TO(LEV,TR,TZ)")=U2
25 G 19
 ;
 ; Rangschikken toelevering weg i.v.m. split contractorder met kom-link
 ;
99 K UTYP,PC,PCC,PR,PHG,PGR,PSG,UA,UOD,UOR,UVN,UZ,U2,Q15,Q16,TR,TZ,LEV,TZX I $D(@("^"_Q_"HULP($J)")) K ^($J),^($J+100) D ^KF15
 ;
YZ K UAF,X Q
 ;
 Q
Z X ^cZ Q
ZZ ; 19.04.91 - 14 u 42