FAKTDMN ;FAKTUREN MET BEDRAG TUSSEN X en Y ;[ 05/20/99   2:43 PM ]
 ;
 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
OGR Set R="OGR\21\3\Afdrukken fakturen vanaf een bedrag in BEF\\7\\K?.N!(K=""-"")" D R0^cA100
 Quit:K="-"
BGR Set R="BGR\22\3\              tot en met een bedrag in BEF\\7\\K?.N!(K=""-"")" D R0^cA100
 Goto OGR:K="-",BGR:K<OGR
 Write !!?2,"Klanten geselekteerd : "
 Kill ^HULP($J)
 Set DL(1)="LD"
 Set LD(1)="^HULP("_$J
 Set LD(2)="1;C;L;4;; | \2;C;L;25;; | \3;N;R;12;;|\4;N;R;9;;| \5;C;L;9;;|\6;N0;R;11"
 Set LD(3)=4
 Set LD(8)="""Nr"";C;L;5;;| \""Naam"";C;L;25;; | \""Omzet"";C;R;11;; | \""Faktuur"";C;L;7;; | \""Datum"";C;L;8;; | \""Bedrag"";C;R;9"
 Set LD(11)="Fakturen tussen "_OGR_" en "_BGR_" BEF"
 Set (KL,COUNT,T)=0
 Set MAXDATE=$$INTDATE^vhLib.DataTypes("01."_DM_"."_$E(DJ-1,3,4))
 For  Set KL=$O(^KKL(KL)) Quit:KL=""  Do
 .Set T=T+1 If '(T#100) Set FP=2426 Write @F,T
 .Set K=^KKL(KL,0),KC=$P(K,D),KN=$P(K,D,2)
 .Set OMZET=0 If $D(^KKAAP(KC)) Set OMZET=$P(^KKAAP(KC,0,0,0,0),D)
 .Set STRING=KC_D_KN_D_OMZET
 .Set DATE=""
 .For  Set DATE=$O(^KFA1("F",KC,DATE)) Quit:-DATE<MAXDATE  Do
 ..Set FNR=""
 ..For  Set FNR=$O(^KFA1("F",KC,DATE,FNR)) Quit:FNR=""  Do
 ...Set K=^KFA("F",FNR,0,0)
 ...If $P(K,D,2)'="F" Quit
 ...If $P(K,D,14)<OGR Quit
 ...If $P(K,D,14)>BGR Quit
 ...Set $P(STRING,D,4)=FNR_D_$P(K,D,6)_D_$P(K,D,14)
 ...Set COUNT=COUNT+1,^HULP($J,COUNT)=STRING,STRING=""
 Do ^OUTPUT("","-","S")
 Kill ^HULP($J)
 Quit