Index: cI62.mac.rou =================================================================== diff -u -r734 -r4204 --- cI62.mac.rou (.../cI62.mac.rou) (revision 734) +++ cI62.mac.rou (.../cI62.mac.rou) (revision 4204) @@ -1,14 +1,14 @@ cI62 ;UITG. VERWIJDEREN AR ;GO NAAR %I63 [ 12/08/92 6:13 PM ] G 1 -T1 \UL\F\LNT\128\S COM="GEDEFINIEERD ALS REKENING VOORAFBETAALDE BONS BIJ "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2) -T2 \UL\M\\101#111#128\S COM="REKENING WORDT NOG GEBRUIKT OP "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)_" "_UR -T3 \UL\M\\101#111\S COM="REKENING WORDT NOG GEBRUIKT OP "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)_" "_UR -T4 \BA\\\\S COM="REKENING KOMT NOG VOOR BIJ O-KODE "_Z3\D S4^cA275 -T5 \BA\\\\S COM="REKENING KOMT NOG VOOR BIJ K-KODE "_Z1\D S6^cA275 -T6 \BA\\\\S COM="REKENING KOMT NOG VOOR BIJ I-KODE "_Z1\D S5^cA275 -T7 \UT\\\124#125\S COM="REKENING KOMT NOG VOOR BIJ AUTOMATISCHE TEKST "_$P(Z1," ")\D S1^cA275 -T8 \LE\\\221\S COM="REKENING DIENT NOG ALS VENTILATIEREKENING BIJ LEVERANCIER "_$P(UR," ",2) -T9 \FIA\\\101\S COM="REKENING NOG BIJ AUTOMATISCHE BOEKINGSREEKS "_Z1\D S3^cA275 +T1 ;\UL\F\LNT\128\S COM="GEDEFINIEERD ALS REKENING VOORAFBETAALDE BONS BIJ "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2) +T2 ;\UL\M\\101#111#128\S COM="REKENING WORDT NOG GEBRUIKT OP "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)_" "_UR +T3 ;\UL\M\\101#111\S COM="REKENING WORDT NOG GEBRUIKT OP "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)_" "_UR +T4 ;\BA\\\\S COM="REKENING KOMT NOG VOOR BIJ O-KODE "_Z3\D S4^cA275 +T5 ;\BA\\\\S COM="REKENING KOMT NOG VOOR BIJ K-KODE "_Z1\D S6^cA275 +T6 ;\BA\\\\S COM="REKENING KOMT NOG VOOR BIJ I-KODE "_Z1\D S5^cA275 +T7 ;\UT\\\124#125\S COM="REKENING KOMT NOG VOOR BIJ AUTOMATISCHE TEKST "_$P(Z1," ")\D S1^cA275 +T8 ;\LE\\\221\S COM="REKENING DIENT NOG ALS VENTILATIEREKENING BIJ LEVERANCIER "_$P(UR," ",2) +T9 ;\FIA\\\101\S COM="REKENING NOG BIJ AUTOMATISCHE BOEKINGSREEKS "_Z1\D S3^cA275 ; 1 S US="",NR=0 S ^WAV("%A",3,"AR",0)="D ^cA274" 12 S US=$O(^EUL(0,US)) G 2:US="" S NR=NR+1