KFOBK ;OVERZICHT BESTELLINGEN KLANTEN ;KFOBK; [ 08/05/2002  10:44 AM ]
 G YZ
 ;
T1 ;O/U NR DAT - IDNR  REF - VERZ - PRODUKTNAAM    TOEL   AANT LV-WK FYS-ST
T2 ;DE KLANT 
T3 ;GEEN BESTELLINGEN VOOR DEZE KLANT
T4 ;  [] = ok 
T5 ;KONTANT
T6 ;1\8\20\46\53\60\66\73
T7 ;1;1;;\2;2;;\3;3;;\4;4;;\5;5;1;\6;6;;\7;7;1;
T8 ;STK :
T9 ;KOM :
T10 ;TOT :
T11 ;BON
T12 ;+X[] OF -X[]   ,[] = hernemen   ;[] = ok;[] = vervolg
 ;
F S US="F" G 1
M S US="M" G 1
N S US="N" G 1
P S US="P" G 1
T S US="T" G 1
 ;
S0 S I=0,LN=LN+1
S0A S I=I+1,X=$P(PO,D,I) G S0F:'$L(X) S K=$P(R,D,$P(X,U,2)),FP=LN*100+$P(KO,D,$P(X,U,1))+1 W @F
S0B I $L($P(X,U,4)) X "S K="_$P(X,U,4)
S0C I '$P(X,U,3) W $E(K,1,$P(KO,D,$P(X,U,1)+1)-$P(KO,D,$P(X,U,1)))
S0D E  W $J(K,$P(KO,D,$P(X,U,1)+1)-$P(KO,D,$P(X,U,1))-1)
S0E G S0A
S0F W @F7 F I=1:1 S X=$P(KO,D,I) Q:'$L(X)  S FP=LN*100+X W @F,@$P(FG,D,10)
S0G W @F8
S0Z Q
 ;
S1 S R="K\24\3\"_$P($T(T12),U,2)_$P($T(T12),U,K+3)_"\\3\\"",-+""[K&($L(K)<2)!(K?1""+"".N)!(K?1""-"".N)" D R0^KFTR0
S1Z Q
 ;
F1 S K=$P($T(T3),U,2) G FY
FY S FP=2403+F60 W @F,@F2,@F4,K,$P($T(T4),U,2),@F5,@F0 R K G YZ
FZ Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S FP=280 W @F,@F5 S FP=259 W @F,@F4,$P(K,U,3)," - ",$P(K,U,4)," ",@F5
13 W @F8 S FP=880 W @F,@F5 S FP=801 W @F,@F4,$P($T(T1),U,2),@F5,@F7
15 W @F7 S FP=801 W @F,@$P(FG,D,10) S FP=701 W @F,@$P(FG,D,1) F I=1:1:71 W @$P(FG,D,9)
17 S FP=773 W @F,@$P(FG,D,2) S FP=873 W @F,@$P(FG,D,10)
18 F I=8,20,46,53,60,66 S FP=700+I W @F,@$P(FG,D,5) S FP=FP+100 W @F,@$P(FG,D,10)
19 W @F8 S KO=$P($T(T6),U,2),PO=$P($T(T7),U,2,99)
 ;
2 L  S R="K\2000\"_$P($T(T2),U,2)_"\KL\K1" D R1^KFTR1 G YZ:K="-",9:K?1"#"2N
21 S R=^(K,0),KC=$P(R,D,1),FP=401 W @F,$C(13),$J(KC,6),"  ",$P(R,D,2),?53,$P(R,D,13)
23 W !?8,$P(R,D,5),!?8,$P(R,D,6)_"   "_$P(R,D,7),?53,$S('$P(R,D,18):$P($T(T5),U,2),1:$P(R,D,18))
25 S KL=$P(R,D,8),KV=$P(R,D,11)
 S KL=$$LAND^vhRtn1(KL),MNT=$$CONVMUNT^KLANT(KV,KL)
 ;
3 I '$D(@("^"_Q_"OD(KC)")),'$D(@("^"_Q_"UL(KC)")) D F1 G 8
31 S (K1,K2,K3,K4)="",UGL="UL",UR=0,K="K1"
33 S UR=$N(@("^"_Q_UGL_"(KC,US,UR)")) I UR=-1 G 4:UGL="OD" S UGL="OD",UR=0 G 33
35 S @K=@K_UR_U_UGL_D G 33:$L(@K)<240 S K=$S(K="K3":"K4",K="K2":"K3",1:"K2") G 33
 ;
4 S UGL="UL",TEL=0
41 S TEL=TEL+1,K=$P(K1_K2_K3_K4,D,TEL) G 8:'$L(K) S UR=$P(K,U,1),UGL=$P(K,U,2) G 41:'$D(@("^"_Q_UGL_"(KC,US,UR)"))
43 S LN=8,(UNS,UNN)=0,R=^(UR,1),UVM=$P(R,D,18) S:UGL="UL" $P(R,D,3)=$P($P(R,D,7),"#",2)
45 S R=UR_D_$P(R,D,2,3)_D,FP=901 W @F,@F1 D S0 S UZ=100
47 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 5:UZ=-1 S K=^(UZ),PR=$P(K,D,2)
48 S:$P(K,D,27) UNN=UNN+$P(K,D,9) S:'$P(K,D,27) UNS=UNS+$P(K,D,9) G 47:'PR S R=@("^"_Q_"PR(PR,0)")
49 S R=D_$P(^(2),D,25)_D_$P(R,D,1)_D_$P(K,D,27)_D_$P(K,D,3)_D_$P(K,D,25)_D_$P(R,D,14) S:UGL="UL" $P(R,D,7)=$P($T(T11),U,2) D S0 G 47
 ;
5 W @F7 S LN=LN+1,FP=LN*100+1 W @F,@$P(FG,D,3) F I=1:1:71 W @$P(FG,D,9)
51 S FP=LN*100+73 W @F,@$P(FG,D,4) F I=8,20,46,53,60,66 S FP=LN*100+I W @F,@$P(FG,D,8)
53 W @F8 G 57:KV'="MTL" S UPAR=$$MUNT^vhRtn1(UVM,,12)
54 S UNS=$J(UNS*UPAR,1,2),UNN=$J(UNN*UPAR,1,2)
55 S UPAR=$$LANDPAR^KLANT(KL),UNS=UNS/UPAR,UNN=UNN/UPAR
57 S UNS=UNS\1,UNN=UNN\1,LN=LN+1,FP=LN*100+2 W @F,$P($T(T8),U,2) W:UNS $J(UNS,7)
59 S FP=LN*100+30 W @F,$P($T(T9),U,2) W:UNN $J(UNN,7) S FP=LN*100+58 W @F,$P($T(T10),U,2) W:UNS!(UNN) $J(UNS+UNN,7)," ",MNT
 ;
6 S K=1 S:'$L($P(K1_K2_K3_K4,D,TEL+1)) K=0 D S1 G 41:K="",9:K?1"#"2N,8:K="," I K="-",TEL=1 G 8
61 S:$L(K)=1 K=K_1 S TEL=TEL-1+K S:TEL<0 TEL=0 G 41:$L($P(K1_K2_K3_K4,D,TEL+1)) F TEL=TEL:-1 Q:$L($P(K1_K2_K3_K4,D,TEL))
63 S TEL=TEL-1 G 41
 ;
8 F FP=401,501,601 W @F,@F2
81 S FP=901 W @F,@F1 G 2
 ;
9 G ^KFTP
 ;
YZ Q
 ;