KF17 G 1 ;REGISTRATIE UITLEVERINGEN (NIEUWE UITLEV.) ;Quit naar KF30 [ 11/12/2002  11:17 AM ]
 ;
1 S X=$D(@Q1),(X,K)=100,UUR="",SW11=0
14 S X=$N(^(X)) G 15:X=-1!(X'?.N) S K=K+1,A(K)=^(X) G 14
15 S U1=100,U4=0
16 S U1=$N(A(U1)) G 36:U1=-1&'SW11,39:SW11&(U1'=UUR) S U0=U1,U2=A(U1),B($P(U2,U,16))="" S:$P(U2,U,16)="UR" UUR=U1
160 I $L($P(U2,U,4)),@$P(U2,U,4) G YZ:K="-"&(U1=101),16:K'="-" S U1=U1-2 G 16
17 I $L($P(U2,U,7)),@$P(U2,U,14) S U3="S K="_$P(U2,U,7) X U3 S (U3,B($P(U2,U,16)))=K G 33:K'="-",YZ:U1=101 S U1=U1-2,U4=U4-1 G 16
18 I $L($P(U2,U,19)),@$P(U2,U,20) S U3=$P(U2,U,19) X U3 S (U3,B($P(U2,U,16)))=K G 33:K'="-"&(K'=","),15:K=",",YZ:U1=101 S U1=U1-2,U4=U4-1 G 16
19 S K=$$ASK^vhINP($P(U2,U)_" : ",$P(U2,U,9),"",$P(U2,U,10),"","","","","B")
 G 19:K?.E1C.E,YZ:U1=101&(K="-"),15:K="," I K="-" S U1=U1-2,U4=U4-1 G 16
22 S X=$P(U2,U,11)_"&'(K[D)&($L(K)'>$P(U2,U,9))" S:$L($P(U2,U,21)) X=X_"&("_$P($T(@$P(U2,U,21)),U,2,99)_")" I @X S B($P(U2,U,16))=K,U3=K
23 E  G 19
33 I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
330 S U4=U4+1,FP=$P(A(U1),U,2)*100+$P(A(U1),U,3) I $P(A(U1),U,22) W @F W:U4<10 " " W U4
332 I '$P(A(U1),U,23) S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W @F,@F5,":" S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3) S:'$P(A(U1),U,22) FP=FP+2 W @F,@F6,$P(A(U1),U,1),@F5
34 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6) W @F,$E(BLA,1,$P(A(U1),U,9)),$E(BLA,1,$P(A(U1),U,13))
340 I $P(U2,U,16)="UR" S:'$D(B(125)) B(125)="" W @FMTB,@F,U3,@FMTb W:$L(B(125)) @FMTB,@FMTK W $P(" \s\c\a\k\l\y\m\p\t",D,$F("SCAKLYMPT",B(125))),@FMTb,@FMTk G 35
342 W @F,U3 G 16:$P(U2,U,16)?.N
35 S @$P(U2,U,16)=B($P(U2,U,16)) K B($P(U2,U,16)) G 16
36 S T=0 G 39:UR'="A"
 S UR=$$GETNUM^FLOW(Q_UGL,Q_UG1)
382 I UUR S U1=UUR-1,SW11=1 G 16
39 K A S @("^"_Q_UG1_"(UR,US)")=KC_D,@("^"_Q_UG2_"(US,KC,UR)")="",@("^"_Q_UGL_"(KC,US,UR,0)")=101,SW13=1 L @("^"_Q_UGL_"(KC,US,UR)")
4 S U7="",T=T+100 I $N(B(T))=-1 G YZ
40 S (U1,U2,U3)="",B(115)=UKIL
41 F Y=1:1:$S($O(B(T+100),-1)-100>35:$O(B(T+100),-1)-100,1:35) S X=Y+T S:$D(B(X)) U7=U7_B(X) S U7=U7_D
42 S ^(T/100)=U7 G 4
 ;
YZ K A Q
 ;
S1 S K=$$SELECT^KLANT6(1) S FP=2201 W @F,@F1 S:'K K="-" G S1Z:K="-" S K=@("^"_Q_"K1(K)")
S1A I $D(@("^"_Q_"KL(K,2)")),$P(^(2),D,10) S FP=2403+F60 W @F,@F2,@F4,"KLANT COMMERCIEEL NIET AKTIEF  [] = ok ",@F5,@F0 R K G S1
S1B S K=$P(K," ",2)
S1Z Q
 ;
DCTR ;$$DCTR^vhRtn2(.K)
 ;