KTRAV1 G 1 ;VOORBEREIDEN TRANSFERT ;KTRAV1; Do naar KTRAV2 [ 08/06/2002   8:39 AM ]
 ;
T1 ;PRODUKTEN
T2 ;PRODUKTENKUMUL
T3 ;PRODUKT-KLANTENKUMUL
T4 ;KLANTEN
T5 ;KLANT-PRODUKTEN
T6 ;KLANTENKUMUL
T7 ;KLANT-PRODUKTENKUMUL
T8 ;LEVERINGSADRESSEN
T9 ;UITZONDERINGEN
T10 ;EXPORT NEDERLAND
T11 ;B.T.W.-LISTING
T21 ;VOORBEREIDEN NUMMER
T22 ;x[] = bepaald nummer   x,x ... x,x[] = opeenvolgende nummers
T23 ;A[] = alle nummers van 1 t.e.m. 9
T24 ;BESTANDEN
T25 ;VOOR TE BEREIDEN
T26 ;VANAF DATUM :
T27 ;TOT DATUM   :
T28 ;EERSTE TE TRANSFEREREN PERIODE
T29 ;LAATSTE TE TRANSFEREREN PERIODE
T30 ;".[] = vanaf het begin   onder de vorm jjjj.mm"
T31 ;"I[] =idem als vorige   .[] = tot het einde   onder de vorm jjjj.mm"
T32 ;SELEKTIE OK      \"[] = ok   ,[] = hernemen"
T33 ;TRANSFERTBESTAND IN GEBRUIK  [] = ok 
T34 ;DE VOORBEREIDING VOOR TRANSFERT KAN NIET GESTART WORDEN  [] = ok 
T35 ;DE VOORBEREIDING VOOR TRANSFERT IS GESTART  [] = ok 
T36 ;NIET-ST. OF STOCK
T37 ;"[] = niet-stock   1[] = stock   .[] = niet-stock + stock"
T38 ;NIET-STOCK\STOCK\NIET-STOCK + STOCK
T39 ;KUM. TYPE KLANT  
T40 ;"[] = geen   .[] = 023CD"
 ;
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
10 L @("^"_Q_"TRANS"):2 E  S FP=2403+F60 W @F,@F2,@F4,$P($T(T33),U,2),@F5,@F0 R K G YZ
11 S FP=301 W @F,@F1,$C(13),!?5,$P($T(T24),U,2)
12 F I=1:1:15 Q:'$L($T(@("T"_I)))  S FP=I*100+501 W @F,$J(I,3),". ",$P($T(@("T"_I)),U,2)
13 S R="BST\22\3\"_$P($T(T21),U,2)_"\C1\15\\K'="",""&$L(K)" D R0 G YZ:K="-" I K>9 G 13:K'<I!($L(K)>2) S K=0,I=2 G 17
15 S:K="A" BST="1,2,3,4,5,6,7,8,9" S K=0 F I=1:1:10 Q:'$L($P(BST,",",I))   I '$P(BST,",",I)!($P(BST,",",I)>9) S K=1
17 G 13:K,13:$L($P(BST,",",I,99)) S FP=301 W @F,@F1,$C(13),!?5,$P($T(T25),U,2),!
19 F I=1:1:9 Q:'$L($P(BST,",",I))  W !,$J(I,3),". ",$P($T(@("T"_$P(BST,",",I))),U,2)
2 K FBP,LBP,PSN,KTY G 6:BST>9 I BST'[2,BST'[3,BST'[5,BST'[6,BST'[7 G 4
21 S FP=1706 W @F,$P($T(T26),U,2),!?5,$P($T(T27),U,2)
22 S R="K\23\3\"_$P($T(T28),U,2)_"\"_$P($T(T30),U,2)_"\7\\"".-""[K&$L(K)!(K?4N1"".""2N&($P(K,""."",2)<13))" D R0 G 11:K="-"
23 I K="." S FBP=@("^"_Q_"STKL(0,0,1)"),K="01."_$P(FBP,".",2)_"."_$E($P(FBP,".",1),3,4)_D_1,FP=1720 W @F,$P(K,D,1),@F2 G 27
25 G 21:K<@("^"_Q_"STKL(0,0,1)") S FBP=K,K="01."_$P(K,".",2)_"."_$E($P(K,".",1),3,4),FP=1720 W @F,K,@F2
27 S FP=2001 W @F,@F1
28 S R="K\23\3\"_$P($T(T29),U,2)_"\"_$P($T(T31),U,2)_"\7\\"".-I""[K&($L(K)=1)!(K?4N1"".""2N&($P(K,""."",2)<13))" D R0 G 22:K="-"
29 I K="." S LBP=$$EXTDATE^vhDTyp(,"DM4"),K=DT_D_1,FP=1820 W @F,$P(K,D,1) G 33
3 S:K="I" K=FBP G 25:FBP]K S LBP=K
 S K=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp($$CONVDATE^vhDTyp(K,"DM","DK")),"M","LD"),"DKP")
31 S:$E(LBP,3,4)'<$P(DT,".",3)&($P(LBP,".",2)=$P(DT,".",2)) K=DT S FP=1820 W @F,K,@F2
33 G 4:BST'[3 S R="PSN\20\3\"_$P($T(T36),U,2)_D_$P($T(T37),U,2)_"\1\\"".-1""[K" D R0 G 27:K="-"
35 S FP=2023 W @F,@F1,$P($P($T(T38),U,2),D,K="."*2+K+1)
37 S R="KTY\21\3\"_$P($T(T39),U,2)_D_$P($T(T40),U,2)_"\8" D R0 G 33:K="-" I K="." S (KTY,K)="023CD"
39 G 37:"0123ABCD"'[$E(K,1) S K=$E(K,2,99) G 39:$L(K) S FP=2123 W @F,KTY,@F1
4 S R="K\22\3\"_$P($T(T32),U,2)_"\1\\""-,""[K" D R0 G 11:K="," I $L(K) G 6:BST>9,37:$D(KTY),27:$D(FBP),11
41 K @("^"_Q_"HULP(""TRA"")") S:$D(LBP) LBP=LBP_" " S %="%"
43 S %=$N(@%) I %'=-1 S @("^"_Q_"HULP(""TRA"",%)")=@% G 43
5 J ^KTRAV2::2 E  S FP=2403+F60 W @F,@F2,@F4,$P($T(T34),U,2),@F5,@F0 R K K @("^"_Q_"HULP(""TRA"")") G YZ
51 S FP=2403+F60 W @F,@F2,@F4,$P($T(T35),U,2),@F5,@F0 R K G YZ
6 D @($S(BST=10:"^KTRAV5",BST=12:"B1^INTRAST")) G 11:K="-",4:BST'=12
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(T22),U,2),!?2,$P($T(T23),U,2) Q
 ;
Z X ^cZ Q
ZZ ; 08.06.88 - 11 u 32