DCSELECT ;AFDRUKKEN DOKUMENTEN (selektie algemene routines) [ 08/06/2002  9:57 AM ]
 ;
 ; Schermaanduiding
SA(R) 
 If R Set R=$P($T(T1),U,R)
 Set FP=255 Write @F,@FMTB,$J(R_" ",25),@FMTb
 Quit
 ;
 ; Wissen van de schermaanduiding
SA1 Set FP=255 Write @F,$J("",5),@FMTK,$P($T(T2),U,2),@FMTk
 Q
 ;
 ; Welke sessie ?
ASKSESS(SessKeys) 
 New IK,I
 Set SessKeys=$TR(SessKeys,"I","")
 If SessKeys="K" Set Sessie="K" Quit
 Set FP=2203 Write @F,@F1,"SESSIE : .",!?2
 For I=1:1:$L(SessKeys) Write $E(SessKeys,I)," = ",$P("Copie\Klant\Intern",D,$F("CKI",$E(SessKeys,I))-1),"   "
 Set SessKeys=SessKeys_"-"
ASK1 Do IK^PROC1 Goto ASK1:SessKeys'[R
 Set FP=2203 Write @F,@F1
 Set Sessie=R
 Quit
 ;
 ; Selekteer van ... tot ...
VANTOT 
 Set R="K\22\3\"_$P($T(T3),U,2)_"\COM1^"_$ZN_"\63\\"_$P($T(CHK1),U,2) Do R0^cA100
Quit 
 ;
 ; Kommentaar
COM1 
 Write !?2,$P($T(T4),U,2),!?2,$P($T(T5),U,2)
 Quit
 ;
CHK1 ;"-"[K!($TR(K,"-,0123456789","")=""&("-,"'[$E(K))&("-,"'[$E(K,$L(K)))&(K'["--")&(K'[",,")&(K'["-,")&(K'[",-"))
 ;
T1 ;ALLE VOOR SESSIE ...;PRINTBAKJE;BEPAALDE KLANT;GESELEKTEERD;VAN ... TOT ...;BEPAALDE LEVERANCIER;BEPAALDE BATCH
T2 ;*** I'm thinking ***
T3 ;VAN ... TOT
T4 ;xxxxxx,...,zzzzzz[] = een willekeurige reeks   xxxxxx-zzzzzz[] = alle van tot
T5 ;vb. Nummer,Nummer,Nummer-Nummer,Nummer,Nummer,Nummer,Nummer-Nummer