cAN003(LN,Q1) ;VIA ... VAN ... TOT ... ;%AN003 ; [ 11/09/01 5:43 PM ] G 1 ; T0 ;Via ... van ... tot ... ; T1 ;Selectie van de ;via code; T2 ;*[] = alle [] = enkele specifieke; U[] = via utili-data; T3 ;via ... van ... tot ...;alle; T4 ;Enkele specifieke ;; T5 ; reeds geselecteerd\"[] = ok V[] = verwijderen uit de selectie"; T6 ;Van ; :;[] = specifiek .[] = vanaf het begin; T7 ;Tot ; :;[] = specifiek .[] = tot het einde; T8 ;De eindwaarde is kleiner dan de beginwaarde [] = ok; T9 ;Selectie; T10 ;Begin : ;Einde : ; T11 ;Geselecteerd : ; T12 ;Deze selectie is opgebouwd met een ander bestand ; T13 ;Selectie opnieuw uitvoeren\"[] = neen 1[] = onmiddellijk .[] = later uitvoeren"; via uitgestelde selecties!; ; T0F ;Via ... à partir de ... jusqu'à ... ; T1F ;Sélection des ;par code; T2F ;*[] = tous [] = quelques spécifiques; U[] = via utili-data; T3F ;via ... à partir de ... jusqu'à ...;tous; T4F ;Quelques ; spécifiques; T5F ; déjà sélectionné(e)\"[] = ok V[] = enlever de la sélection"; T6F ;Prem. ; :;[] = spécifique .[] = dès le début; T7F ;Dern. ; :;[] = spécifique .[] = jusqu'à la fin; T8F ;La valeur finale est inférieure à la valeur initiale [] = ok; T9F ;Sélection; T10F ;Début : ;Fin : ; T11F ;Sélectionné(e) : ; T12F ;Cette sélection est liée avec un autre fichier ; T13F ;Réexécuter la sélection\"[] = non 1[] = immédiatement .[] = en différée"; via sélections différées!; ; T0E ;Via ... from ... until ... ; T1E ;Selection of the ;via code; T2E ;*[] = all [] = specific items; U[] = via utili-data; T3E ;via ... from ... until ...;all; T4E ;Specific items ;; T5E ; already selected\"[] = ok V[] = delete from selection"; T6E ;From ; :;[] = specific .[] = from start; T7E ;Until ; :;[] = specific .[] = until the end; T8E ;The final value is smaller then the start value [] = ok; T9E ;Selection; T10E ;Start : ;End : ; T11E ;Selected : ; T12E ;This selection is set up with an other file ; T13E ;Restart selection\"[] = no 1[] = immediate .[] = execute later"; via deferred selections!; ; T0D ;Via ... van ... tot ... ; T1D ;Wahl der ;via code; T2D ;*[] = alle [] = einzige bestimmte; U[] = via utili-data; T3D ;via ... von ... bis ...;alle; T4D ;einzige bestimmte ;; T5D ; schon selektiert\"[] = ok V[] = entfernen aus die Selektion"; T6D ;Von ; :;[] = bestimmte .[] = vom Begin ab; T7D ;Bis ; :;[] = bestimmte .[] = bis zu Ende; T8D ;Der Endwert ist kleiner als der Anfangswert [] = ok; T9D ;Selektion; T10D ;Begin : ;Ende : ; T11D ;Selektiert : ; T12D ;Deze selectie is opgebouwd met een ander bestand ; T13D ;Selektion wieder ausführen\"[] = nein 1[] = sofort .[] = später ausfüfren"; via ausgeschobene Selektionen!; ; ; tonen geselekteerde lijn S2(UI1) W /CUP(I-J+LN+2,UKOL),/WCML,/WWR(1)," " N UTOP X ^DMC(UQC,USC,"LOGGING","TOP") W UTOP(1.1) I $D(UTOP(2.1)) W " / ",UTOP(2.1) S2Z D Y^cA612 Q ; ; éénmalige initialisatie 1 N UAT,UDD,UI1,UKOL,UOM,UQC,UREF,USC,UTI 11 D DMS^cAN000("UQC","USC",Q1) I UQC=""!(USC="") S KEU(Q1)="-" G YZ 13 S UTI=$P(^(0),D,2)&$P(^(0),D,5) 15 S UDD=^DMC(UQC,USC,"DATA"),UREF=^("DATA","REF") 17 S UOM=^DMC(UQC,USC,"TAAL",$E(QT_"N")) ; ; vegen + hoofdvraag 2 F I=LN:1:LN+4 W /CUP(I,1),/WCML 21 S UAT=0,(LIM1(Q1),LIM2(Q1))="" K LIM3(Q1),^HULP(boot,$J,Q1) 23 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_$P(UOM,D,2)_"\S1\1\\""-,*.""[K!(K=""U""&UTI)\\\1" D R0 25 S:K="," K="-" S KEU(Q1)=K G YZ:K="-",4:K="."!(K="*"),8:K="U" ; ; enkele specifieke 3 S UKOL=2 W /CUP(LN,UKOL+1),/SGR(4),$P($T(@("T4"_QT)),U,2),$P(UOM,D,2),$P($T(@("T4"_QT)),U,3),/SGR(0)," :" 31 S K=$$^cANSYN(Q1) I K="-" G YZ:UAT,2 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=2,3 W /CUP(LN+I,1),/WCML . S R="K\22\3\"_$$UC^cAFA1($E(UOM))_$E($P(UOM,D),2,99)_$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