cI68 ;Conversie status gecontroleerde leveringen ;%I68 ;  [ 01/10/96  4:54 PM ]
 G 1
 ;
T1 ;Dit programma doorloopt ^_Q_TOL(kc,"P",ur,1);
T2 ;Voor alle bonnen waar veld 45 (faktuurnummer boekhouding) is ingevuld;
T3 ;wordt veld 50 (status) op 1 (afgesloten) gezet;
T9 ;Conversie\".[] = ja   -[] = einde programma";
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
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 F I=1:1:3 S FP=I*2+3*100+3 W @F,$P($T(@("T"_I)),U,2),@F2
13 S R="K\22\3\"_$P($T(T9),U,2)_"\1\\"",-.""[K&$L(K)" D R0 G YZ:K="-"!(K=",")
 ;
2 S KC=0 F  S KC=$O(@("^"_Q_"TOL(KC)")) Q:KC=""  D
 . S UR=0 F  S UR=$O(@("^"_Q_"TOL(KC,""P"",UR)")) Q:UR=""  D
 .. Q:'$D(^(UR,1))
 .. I $P(^(1),D,45),'$P(^(1),D,50) S $P(^(1),D,50)=1 D
 ... S FP=2203 W @F,KC," ",UR," ",$P(^(1),D,45),@F1
 ;
YZ Q
 ;
ZZ ; 05.03.96 - 11 u 08 * V6.1.05