KF5B G 1 ;MODULE UITLEVEREN ORDERS (TEST ORDER UITLEVERBAAR) ;Quit naar KF5 [ 08/05/2002  10:44 AM ]
 ;
S0 G S0B:UL'=ULL S FP=UL+2*100+3 W @F,UOU," NUMMER : ",UR," - VOLGENDE LIJNEN KUNNEN NIET WORDEN UITGELEVERD"
S0A S FP=UL+3*100+80 W @F,@F5 S FP=UL+3*100+2 W @F,@F4,"LIJN | PRODUKTNAAM               | BESTELD | VOORRAAD                        ",@F5 S UL=UL+3
S0B I UL=20 S FP=ULL+4*100+1 W @F,@FDL S UL=UL-1
S0C S UL=UL+1,FP=UL*100+1 W @F,@F2,$C(13),?3,$J(UZ-100,3)," | ",PC,?35,"|" I TR W " TOELEVERING NOG NIET ONTVANGEN" G S0Z
 I OLUNr,$D(^ORDW("IO",UR,OLUNr)) W " IN VERWERKING WMS" G S0Z
S0D W $J(UA,8)," | ",$J(PST,8)
S0Z Q
 ;
1 S UZ=100,ULL=UL,(PKT,PKN)="J",(PKS,UAA)=0,FP=UL+1*100+1 W @F,@F1
5 S UZ=$N(@("^"_Q_"OD(KC,US,UR,UZ)")) G 13:UZ=-1 S U2=^(UZ)
7 S PR=$P(U2,D,2),UA=$P(U2,D,3),TR=$P(U2,D,27),TZ=$P($P(U2,D,28),";"),VWTYP=$P(U2,D,14),OLUNr=$P(U2,D,15) G 5:'$L(PR)
9 S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14)
 I VWTYP'["S",VWTYP'["Z" S PKS=PKS+PST,UAA=UAA+UA I TR,$D(@("^"_Q_"TO1(TR)")) D S0 S PKT="N" G 5
 I $D(^ORDW("IO",UR,OLUNr)) D S0 S PKT="N" G 5
11 I UA'>PST!(UA'>0)!(VWTYP["S")!(VWTYP["Z") S:PKN'="N" PKN="" G 5
12 D S0 S PKN="N" G 5
13 I PKT="N"&(PKN="J")!(PKS=0&(UAA>0)) S FP=2403+F60 W @F,@F2,@F4,"DIT ",UOU," KAN NIET WORDEN UITGELEVERD  [] = ok ",@F5,@F0 R K S K="N" G 17
15 I PKN="N"!(PKT="N") S R="K\22\3\DIT ORDER UITLEVEREN\""J[] = ja   N[] = neen""\1\\""JN""[K&$L(K)" D R0 G 17
16 S K="J"
17 S UL=ULL,FP=ULL+1*100+1 W @F,@F1
 ;
YZ K ULL,PKT,PKN,PKS,PC,PN,U2,UA,UAA,PR,PST,TR,VWTYP,OLUNr Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31