KTRA1 G 1 ;TRANSFERT BESTANDEN ;KTRA1; Do naar KTRA2 [ 08/06/2002   8:39 AM ]
 ;
T1 ;PRODUKTEN
T2 ;PRODUKT-KLANTEN
T3 ;PRODUKTENKUMUL
T4 ;PRODUKT-KLANTENKUMUL
T5 ;KLANTEN
T6 ;KLANT-PRODUKTEN
T7 ;KLANTENKUMUL
T8 ;KLANT-PRODUKTENKUMUL
T9 ;LEVERINGSADRESSEN
T10 ;UITZONDERINGEN
T20 ;TRANSFERT BESTAND
T21 ;x[] = bepaald bestand   x,x ... x,x[] = opeenvolgende bestanden
T22 ;A[] = alle bestanden
T23 ;BESTANDEN
T24 ;TE TRANSFEREREN BESTANDEN
T25 ;OK VOOR BEGIN TRANSFERT\"[] = ok   ,[] = hernemen"
T26 ;OK VOOR EINDE TRANSFERT\"[] = ok"
 ;
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
BREAK1 B 1
11 S FP=301 W @F,@F1,$C(13),!?5,$P($T(T23),U,2),! F I=1:1:10 W !,$J(I,3),". ",$P($T(@("T"_I)),U,2)
13 S R="BST\22\3\"_$P($T(T20),U,2)_"\C1\18\\K'="",""&$L(K)" D R0 G YZ:K="-"
15 S:K="A" BST="1,2,3,4,5,6,7,8,9,10" S K=0 F I=1:1:11 Q:'$L($P(BST,",",I))   I '$P(BST,",",I)!($P(BST,",",I)>10) S K=1
17 G 13:K,13:$L($P(BST,",",I,99)) S FP=301 W @F,@F1,$C(13),!?5,$P($T(T24),U,2),!
19 F I=1:1:10 Q:'$L($P(BST,",",I))  W !,$J(I,3),". ",$P($T(@("T"_$P(BST,",",I))),U,2)
2 S R="K\22\3\"_$P($T(T25),U,2)_"\1\\""-,""[K" D R0 G 11:$L(K)
21 D ^KTRA2
23 S R="K\22\3\"_$P($T(T26),U,2)_"\1\\K=""""" D R0
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
 ;
C1 W !?2,$P($T(T21),U,2),!?2,$P($T(T22),U,2) Q
 ;
Z X ^cZ Q
ZZ ; 23.06.87 - 12 u 24