KOKKI2 G 1 ;OVERDRACHT COMMERCIELE KLANTENINFORMATIE ;KOKKI1;Quit naar KOKKI1 [ 11/07/2001  9:56 AM ]
 ;
T1 ;NUMMER ELEMENT : ;enkel de rubrieken aangeduid met een "*" kan men wijzigen;-[] = einde
 ;
 ;
1 S SW5=0 I '$L($P(TST,D,3)) S U1=$P($P(TST,D,2),U,2) G 23:U1 X ^cTXT(0,"N",69) R K G 4
10 S FP=2203+F60,U1=$P($T(T1),U,2) W @F,@F1,U1 S FP=FP+100 W @F,$P($T(T1),U,3),!?2,$P($T(T1),U,4) S FP=FP-100+$L(U1)
11 W @F,"..",@F2,@F,@F0 R U1 G 4:U1="-",11:U1'?1N.N!($L(U1)>3),11:'$D(A(SW2*100+U1))
23 S U2=A(SW2*100+U1) I $P(U2,U,12),@$P(U2,U,15) X ^cTXT(0,"N",69) R K G 1:$L($P(TST,D,3)),4
24 I TST'[(D_$P(U2,U,16)_U) X ^cTXT(0,"N",69) R K G 1
25 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 37:K'="-"&(K'=","),1:$L($P(TST,D,3)),4
27 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : " S FP=FP+100 W @F,$P(U2,U,10)
29 S FP=2206+F60+$L($P(U2,U,1)) W @F,$E(PNT,1,$P(U2,U,9)),@F2,@F,@F0 R K G 29:K?.E1C.E I K="-"!(K=",") G 1:$L($P(TST,D,3)),4
31 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(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)_")"
33 G 29:$P(X,",",1)="K'="""""&(K="") I @X G 37
35 G 29
 ;
37 S U3=K X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
39 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="" S:Y-1 K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99) G 1:$L($P(TST,D,3))
 ;
4 K U1,U2,U3
 ;
YZ Q
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;
BRCTR ;($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=0!($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=-97)&(K?12N))!(K="")!'($P(B(1),D,6)?4N!(Q1="AR"))
 ;
BNCTR ;(97-($E(K,1,7)#97)=+$E(K,8,9)&(K?9N))!(K="")!(K="000000000")!'($P(B(1),D,6)?4N)
 ;