KNBBP G 1 ;KLANTEN NIET BEZOCHT ... ;KNBBP; [ 04/03/2003  11:37 AM ]
 ;
T1 ;VANAF DATUM :
T2 ;TOT DATUM   :
T3 ;EERSTE TE KUMULEREN PERIODE
T4 ;onder de vorm jjjj.mm
T5 ;LAATSTE TE KUMULEREN PERIODE
T6 ;onder de vorm jjjj.mm   I[] = idem als vorige
T7 ;MET OMZET >
T9 ;[] = ok
T10 ;Saving ...
T11 ;Save complete.
T12 ;BLZ:
T13 ;: REGIO : KLANT                     : ADRES                        : WOONPLAATS                :     OMZET :
T14 ;:-------:---------------------------:------------------------------:---------------------------:-----------:
T15 ;OMZET > 
T16 ;PERIODE : 
T17 ;"REGIO",$C(9),"KLANT",$C(9),"ADRES",$C(9),"WOONPLAATS",$C(9),"OMZET",$C(13)
 ;
1 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S FP=503 W @F,$P($T(T1),U,2),!!?2,$P($T(T2),U,2),!!!?2,$P($T(T7),U,2)," :"
 ;
2 S R="K\23\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\7\\""-""[K&$L(K)!(K?4N1"".""2N&($P(K,""."",2)<13))" D R0 G YZ:K="-"
21 S FBP=K,BP=$E(K,1,4)_$E(K,6,7)_"01",FP=517 W @F,$E(BP,7,8)_"."_$E(BP,5,6)_"."_$E(BP,3,4)
23 S R="EP\23\3\"_$P($T(T5),U,2)_"\"""_$P($T(T6),U,2)_"""\7\\""-I""[K&($L(K)=1)!(K?4N1"".""2N&($P(K,""."",2)<13))" D R0 G 2:K="-"
25 I K="I" S K=$E(BP,1,4)_"."_$E(BP,5,6)
27 S LBP=K,EP=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($$CONVDATE^vhLib.DataTypes(K,"DM","DK")),"M","LD"),"DSN")
 G 23:EP<BP
29 S BP=BP-1,FP=717 W @F,@F2,$E(EP,7,8)_"."_$E(EP,5,6)_"."_$E(EP,3,4)
 ;
3 S R="OMZ\23\3\"_$P($T(T7),U,2)_"\\8\\K?.N!(K=""-"")" D R0 G 23:K="-"
31 S FP=1017 W @F,@F1 S R=K D R3^cA103 W $$MUNT^vhRtn1(,1)
33 S R="K\23\3\"_$P($T(T9),U,2)_"\\1\\""-""[K" D R0 G 3:K="-"
35 K ^HULP($J) S KI1=0,FBP=FBP_" ",LBP=LBP_" ",FaMntDec=$$MUNT^vhRtn1(,4)
 ;
4 S KI1=$N(^KKL(KI1)) G 5:KI1=-1 S KL=^(KI1,0),FP=2303 W @F,@F1,$P(KL,D,2)
41 S PER=FBP,KOMZ=0,KC=$P(KL,D,1),REG=+$P(KL,D,20)
43 G 47:$D(^KSTKL(KC,0,PER))
45 S PER=$N(^KSTKL(KC,0,PER)) G 48:PER=-1,48:PER]LBP
47 S KOMZ=KOMZ+$P(^(PER),D,3) G 45
48 G 4:KOMZ<OMZ D RAP G 4:OK
49 S ^HULP($J,REG,999999999-$J(KOMZ,0,0),KI1)=$P(KL,D,2)_D_$P(KL,D,5)_D_$P(KL,D,7)_D_KOMZ G 4
 ;
5 S MAC=$P(^cLOG(boot,"DEV",$$IO^cQ5),D)="MC"
 If MAC Do  Goto 7:'$D(FVAN),7:"-."[File
 .Do VANNAAR^vhTERMINA("")
 .Quit:'$D(FVAN)
 .Set FP=2103 Write @F,@F1
 .Set File=$$ASKFILE^vhDEV("TRANS.TXT")
 .Quit:"-."[File
 .Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,File,"W")
 .Quit:0[Dev
 .Use 0
 .Set FP=2003 Write @F,@F2,$P($T(T10),U,2)
 .Set FP=2101 Write @F,@FDL,@FDL
 .Use Dev
51 E  D INIT^vhPRINTER(132) G YZ:'$D(Print)
53 S REG=-1 W:MAC @$P($T(T17),U,2) I 'MAC S BLZ=0,LN=99,NM2=^KBA(99,2),NM3=^(3)
55 S REG=$N(^HULP($J,REG)) G 7:REG=-1 S KOMZ=0,REGX=REG I $D(^KSEKT(REG_" ")) S REGX=^(REG_" ")
57 S KOMZ=$N(^HULP($J,REG,KOMZ)) G 55:KOMZ=-1 S KI1=0
58 S KI1=$N(^HULP($J,REG,KOMZ,KI1)) G 57:KI1=-1 S KL=^(KI1) G 6:'MAC
59 W REGX,$C(9),$P(KL,D,1),$C(9),$P(KL,D,2),$C(9),$P(KL,D,3),$C(9),$P(KL,D,4),$C(13) G 58
 ;
6 S LN=LN+1 I LN>50 W:BLZ !,$P($T(T14),U,2),# D HD G 6
61 W !,":",$J(REGX,5),"  : ",$P(KL,D,1),?36,": ",$P(KL,D,2),?67,": ",$P(KL,D,3),?95,":" S R=$P(KL,D,4)_"\10\\"_FaMntDec D R3^cA103 W ":"
63 G 58
 ;
7 K ^HULP($J)
 I MAC D  G YZ
 .Use 0
 .Set FP=2303 Write @F,$P($T(T11),U,2),!?2,$P($T(T9),U,2)
 .Do IK^PROC1
 .Close:0'[$G(Dev) Dev
71 W:BLZ !,$P($T(T14),U,2),# D CLOSE^vhPRINTER
 ;
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?100,$P($T(T12),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?100,DT
HDA W !,NM3,?30,$P($T(T16),U,2),$E(BP+1,7,8),".",$E(BP,5,6),".",$E(BP,3,4)
HDB W " - ",$E(EP,7,8),".",$E(EP,5,6),".",$E(EP,3,4),"   "
HDC W $P($T(T15),U,2) S R=OMZ D R3^cA103 W ?101,TD,!!,$P($T(T14),U,2),!,$P($T(T13),U,2),!,$P($T(T14),U,2)
HDZ Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
RAP S RBP=$$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($E(BP,1,4)_"."_$E(BP,5,6),"DM"),"M","FD")-1
 S REP=$$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($E(EP,1,4)_"."_$E(EP,5,6),"DM"),"M","LD")
 S OK=0
 S RBP=$N(^VERSLAG("IK",KC,RBP)) I RBP'=-1,RBP'>REP S OK=1
 Q
 ;