KFSOCC G 1 ; MODULE SLUITEN ORDERS; Quit naar %F10 [ 05/07/99  11:01 AM ]
 ;
1 K UTA,UTB
 S SW12=1,X=@("^"_Q_UGL_"(KC,US,UR,1)"),UAF=$P(X,D,22) G 71:$L(UAF) S UAF=1
 S FP=UD*100+1 W @F,@F1
3 I KYW,KQG S R="K\"_+USM_"\3\HANDEL MET KWANTUMKORTING\""EXTRA KORTING TOEGEKEND   [] = JA   -[] = HERNEMEN""\1\\""-""[K\\" D R0 G 71:K="-" S FP=+USM*100+1 W @F,@F1
5 K @("^"_Q_"HULP($J)")
 S UOD=$P(X,D,2),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(UOD),"DS"),D,"")
33 S X=$P(X,D,1,21)_D_UAF_D_$P(X,D,23,99),@("^"_Q_UGL_"(KC,US,UR,1)")=X,UOR=$P("R\O",D,$P(X,D,17)+1)
47 S UVM=$P(X,D,18) G 71:UVM'="MTL" S UZ=100
49 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 53:UZ=-1 S U2=^(UZ) G 49:'$L($P(U2,D,22)) I UVM="MTL" S UVM=$P(U2,D,22) G 49
51 G 49:$P(U2,D,22)=UVM K ^(UZ) S @("^"_Q_"HULP($J,$P(U2,D,22),UZ)")=U2,PR=$P(U2,D,2) G 49:'PR
52 K @("^"_Q_"PR(PR,""W    0.0""_UOR_UOD_$J(UR,6,0)_$J((UZ-100),3,0))") G 49
53 S X=$P(X,D,1,17)_D_UVM_D_$P(X,D,19,99),^(1)=X,X1=^(2),X2=^(3) G 71:'$D(@("^"_Q_"HULP($J)")) S UVM=""
55 S UVM=$N(@("^"_Q_"HULP($J,UVM)")) I UVM=-1 K @("^"_Q_"HULP($J)") D ^KFTOT G 71
 S URR=$$GETNUM^FLOW(Q_UGL,Q_UG1)
63 S X=$P(X,D,1,17)_D_UVM_D_$P(X,D,19,99),@("^"_Q_UGL_"(KC,US,URR,1)")=X,^(2)=X1,^(3)=X2,UUZ=0,UZ=100
65 S UUZ=$N(@("^"_Q_"HULP($J,UVM,UUZ)")),UZ=UZ+1
67 I UUZ=-1 S @("^"_Q_UGL_"(KC,US,URR,0)")=UZ,OD(URR)="",(@("^"_Q_UG1_"(URR,US)"),@("^"_Q_UGB_"(URR,US)"))=KC_D,@("^"_Q_UG2_"(US,KC,URR)")="" L @("^"_Q_UGL_"(KC,US,UR)") G 55
68 S Z=^(UUZ),@("^"_Q_UGL_"(KC,US,URR,UZ)")=Z
70 S PR=$P(Z,D,2) G 65:'PR S @("^"_Q_"PR(PR,""W    0.0""_UOR_UOD_$J(URR,6,0)_$J((UZ-100),3,0))")=$P(Z,D,3)_D_$P(Z,D,25)_D G 65
71 K UG,UC,UA,UE,UO,UEP,UK,UB,UN,UH,UGK,UF,UBE,UM,USP,UMC,URD,ULT,UZ,U26,U27,U28,U29,U30,U31,U32,U33,U34,U35
73 S OD(UR)="" D ^KF15
 D ADD^vhScherm(+UD,24) S FP=2403 W @F,@FMTI,"Order ",UR," is gesloten  [] = ok ",@FMTi R *K
 ;
YK K UJ,LEV,PC,PR,PID,PLQ,PST,PY,PRE,PB,PL,PM,PP,PPAR,PSN,TR,TZ,Q15,U2,UOD,UOR
YK1 K UAF,ULV,UMC,UN,UEP,UBE,ULT,UMC,USPPK1,PK2,UPAR,UPT,URR,UUZ,X,X1,X2,Y,Z,ZZ
YZ 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