cT661J ;Betalingsvoorstel leveranciers ;%T66 ; [ 07/12/01 1:40 PM ] G 1 ; T0 ;Selectie journalen ; T1 ;Journaal ; T2 ;Geselecteerde journalen; T3 ;Beschikbare journalen; T5 ; reeds geselecteerd\"[] = ok V[] = verwijderen uit de selectie"; ; T0F ;Sélection journaux ; T1F ;Journal ; T2F ;Journaux sélectionnés; T3F ;Journaux disponibles; T5F ; déjà sélectionné\"[] = ok V[] = enlever de la sélection"; ; T0E ;Selectie journalen ; T1E ;Journaal ; T2E ;Geselecteerde journalen; T3E ;Beschikbare journalen; T5E ; reeds geselecteerd\"[] = ok V[] = verwijderen uit de selectie"; ; ; tonen geselecteerde lijn S2(UI1) W /CUP(I-J+LN,UKOL),/WCML W $J(UI1,3),". ",$P(@("^"_Q_"BA")@("%T","A"_$S(UI1:$E(1000+UI1,2,4),1:"")),D) S2Z Q ; ; éénmalige initialisatie 1 N LN,Q1,UAT,UI1,UKOL,UOM 11 S UOM=$P($T(@("T1"_QT)),U,2) 13 D O^cA612(8,1,14,80,1,1,1,1) 15 W /CUP(2,1),@F6,$P($T(@("T2"_QT)),U,2),@F9,":" S LN=3 17 W /CUP(7,1),@F6,$P($T(@("T3"_QT)),U,2),@F9,":" S Q1="SRT" 19 I K="-",$E($O(@("^"_Q_"BA")@("%T","A")))'="A" G YZ ; ; vegen + hoofdvraag 2 F I=LN:1:LN+2 W /CUP(I,1),/WCML 21 S UAT=0 K ^HULP(boot,$J,Q1) ; ; enkele specifieke 3 S UKOL=3 31 S R="K\A\800\1\1200\\\1" D ^cA336 I K="-" G Y:UAT,YZ 32 I "."[K S K="" G YZ 33 F I=1:1:UAT I ^HULP(boot,$J,Q1,I)=K D S K="-" Q . N UI1 S UI1=K . S J=0,I=2 D S2(K) F I=0,1 W /CUP(LN+I,1),/WCML . S R="K\22\3\"_UOM_$P($T(@("T5"_QT)),U,2)_"\1\\""-,V""[K\\\1" D R0 . I K="V" F I=1:1:UAT I ^HULP(boot,$J,Q1,I)=UI1 D K ^(UAT) S UAT=UAT-1 Q .. F J=I:1:UAT I J