cI69 ;KONVERSIE BONNNEN IVM VREEMDE MUNT (VERKOOP) ;%I69;  [ 09/28/94  11:43 AM ]
 G 1
 ;
T1 ;Dit programma doorloopt alle bonnen (UL en OD) voor alle US-waarden;
T2 ;Voor alle bonnen waar node UGL_(0,US,111) = MUNT (B-index = 118);
T3 ;wordt veld 18 van UGL_(KC,US,UR,1) = BEF, indien dit veld = "";
T4 ;in var. BEF moet de muntkode van de firma worden weggeschreven (via X ^cE);
T5 ;Na de bonnen worden ook alle klanten overlopen;
T6 ;Indien de muntkode (B-index = 111) niet is ingevuld, wordt dit ook;
T7 ;opgevuld met BEF.;
T9 ;KONVERSIE\".[] = 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:7 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 F UGL="OD","UL" S US="",BEF="BEF" D
 . F  S US=$O(@("^"_Q_UGL_"(0,US)")) Q:'$L(US)  I $P($G(^(US,111)),U,16)=118 S A(UGL,US)=""
21 F UGL="OD","UL" S KC=0 D
 . F  S KC=$O(@("^"_Q_UGL_"(KC)")) Q:'$L(KC)  S US="" D
 .. S FP=2403 W @F,KC,@F2
 .. F  S US=$O(@("^"_Q_UGL_"(KC,US)")) Q:'$L(US)  I $D(A(UGL,US)) S UR="" D
 ... F  S UR=$O(@("^"_Q_UGL_"(KC,US,UR)")) Q:'$L(UR)  S X=^(UR,1) I '$L($P(X,D,18)) S $P(^(1),D,18)=BEF
 ;
3 F UGL="KL" S I1=0 D
 . F  S I1=$O(@("^"_Q_UGL_"(I1)")) Q:'$L(I1)  S X=^(I1,0) D
 .. S FP=2403 W @F,I1,@F2
 .. I '$L($P(X,D,11)) S $P(^(0),D,11)=BEF
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 04.10.94 - 10 u 13 * V5.5