cI690 ;Conversie leveringen en facturen ivm serienr ;%I690;  [ 07/18/96  12:15 PM ]
 G 1
 ;
T1 ;Dit programma doorloopt alle bonnen (UL) en facturen voor alle US-waarden;
T2 ;Indien het serienummer (veld 15) begint met '1#' wordt dit weggelaten.
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:2 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 UGL="UL",KC=0 F  S KC=$O(@("^"_Q_UGL_"(KC)")) Q:'$L(KC)  D
 . S US="" F  S US=$O(@("^"_Q_UGL_"(KC,US)")) Q:'$L(US)  D
 .. S UR=0 F  S UR=$O(@("^"_Q_UGL_"(KC,US,UR)")) Q:'$L(UR)  D
 ... S FP=2403 W @F,UGL," ",KC," ",US," ",UR,@F2
 ... S UZ=100 F  S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) Q:'$L(UZ)  D
 .... S X=$P(^(UZ),D,15) I $E(X,1,2)="1#" S $P(^(UZ),D,15)=$E(X,3,99)
 ;
3 S US="" F  S US=$O(@("^"_Q_"FA(US)")) Q:'$L(US)  D
 . S FNR="" F  S FNR=$O(@("^"_Q_"FA(US,FNR)")) Q:'$L(FNR)  D
 .. S FP=2403 W @F,US," ",FNR,@F2
 .. S UR="U" F  S UR=$O(@("^"_Q_"FA(US,FNR,UR)")) Q:'$L(UR)  D
 ... S UZ=100 F  S UZ=$O(@("^"_Q_"FA(US,FNR,UR,UZ)")) Q:'$L(UZ)  D
 .... S X=$P(^(UZ),D,15) I $E(X,1,2)="1#" S $P(^(UZ),D,15)=$E(X,3,99)
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 19.07.96 - 16 u 26 * V6.2.04