KPRFL G 1 ;KLANT PRODUKTREFERENTIES ;KPRFL; [ 11/29/2003   1:16 PM ]
 ;
T1 ;PRODUKTEN BEPERKT TOT
T2 ;A[] = klant/artikel   [] = bestaande referenties
T3 ;KLANT/ARTIKEL;BESTAANDE REFERENTIES
T4 ;PRODUKTEN AANGEKOCHT HET LAATSTE
T5 ;H[] = 1/2 jaar   1[] = 1 jaar   [] = alle
T6 ;1/2 JAAR;1 JAAR;ALLE
T7 ;PRODUKTEN ZONDER REFERENTIES; OOK AFDRUKKEN
T8 ;J[] = ja   [] = neen
T9 ;JA;NEEN
T10 ;:------------------------------------------------------------------------------:
T11 ;:-------------:---------------------------:------------------------------------:
T12 ;: IDENTNUMMER : KORTTEKST                 : REFERENTIE                         :
T13 ;BLZ:
T14 ;SELEKTIE : 
T15 ;"1. IDENTNUMMER",$C(9),"2. KORTTEKST",$C(9),"3. REFERENTIE",$C(13)
T16 ;0;C;L;0;;:\1;C;R;5;;  \2;C;L;71;;:
T17 ;0;C;L;0;;: \7;C;L;77;;:
T18 ;0;C;L;0;;: \1;C;L;11;; : \2;C;L;25;; : ;4\3;C;L;34;; :
 ;
TRM N lad,tad
 S OK=1,LAD=$E(LAD,7,8)_$E(LAD,4,5)_$E(LAD,1,2)
 S lad=$E(LAD,5,6)_"."_$E(LAD,3,4)_"."_$E(LAD,1,2),lad=$$INTDATE^vhLib.DataTypes(lad)
 S tad=$E(TAD,5,6)_"."_$E(TAD,3,4)_"."_$E(TAD,1,2),tad=$$INTDATE^vhLib.DataTypes(tad)
 I lad<tad S OK=0
 Q
 ;
COK S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
 ;
COR S R=$$UPTRIMAN^vhRtn1(R)
 Q
 ;
IND K REF S K=K_D
IND1 F I=1:1:$L(K) I $E(K,I)?1P,$E(K,I)'=" " Q
 S R=$E(K,1,I-1),K=$E(K,I+1,$L(K)) D COR I $L(R) S REF(R_" "_PR)=""
 G IND1:$L(K)
 Q
 ;
KIL D IND S R=-1
KIL1 S R=$N(REF(R)) I R'=-1 K ^KPRR("I",$P(A(0),D,1),R) G KIL1
 K ^KPRR("D",$P(A(0),D,1),PR)
 Q
 ;
INP F I=1:1:$L(R,D) S @("R"_I)=$P(R,D,I)
 S R8=$S(R8="":1,1:"1&("_R8_")")
 S FP=R2*100+R3 W @F,@F1,R4," : .",!?R3-1,$P(R5,"""",2)
INP1 K IK D IK^PROC1 S K=$S(R="ENTER":"",1:R) I @R8 G INP2
 G INP1
INP2 Q
 ;
1 S K=$P($T(+1),U,2),FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 D KP^KSEL G YZ:K="-"
15 S FP=1201 S:$D(KC) FP=901 W @F,@F1
 ;
2 S FP=1303 W @F,$P($T(T1),U,2),@F1 S FP=1336 W @F,":"
21 S R="K\23\3\"_$P($T(T1),U,2)_"\"""_$P($T(T2),U,2)_"""\1\\""-A""[K" D @$S($D(KC):"INP",1:"^cA100") I K="-" G YZ:$D(KC),13
22 S:K="K" K="A" S:K="" K="B" S PBP=K,FP=1338 W @F,@F1,$P($T(T3),U,$F("AB",K)) I K="B" S AKT="A",KZR="N" G 3
23 S FP=1403 W @F,$P($T(T4),U,2),@F1 S FP=1436 W @F,":"
24 S R="K\23\3\"_$P($T(T4),U,2)_"\"""_$P($T(T5),U,2)_"""\1\\""-H1""[K" D @$S($D(KC):"INP",1:"^cA100") G 2:K="-"
25 S:K=1 K="E" S:K="" K="A" S AKT=K,FP=1438 W @F,@F1,$P($T(T6),U,$F("HEA",K))
26 S KZR="J" G 3:$D(KC)
27 S FP=1503 W @F,$P($T(T7),U,2),@F1 S FP=1536 W @F,":"
28 S R="K\23\3\"_$P($T(T7),U,2)_$P($T(T7),U,3)_"\"""_$P($T(T8),U,2)_"""\1\\""-J""[K" D @$S($D(KC):"INP",1:"^cA100") G 23:K="-"
29 S:K="" K="N" S KZR=K,FP=1538 W @F,@F1,$P($T(T9),U,$F("JN",K))
 ;
3 S R="1\1" S:'$D(KC) R="1\\1" D ^SODEV I K'="." G 4:K="",YZ:K=","&$D(KC),13:K=",",2:PBP="B",23:$D(KC),27
 ;
4 I MAC W @$P($T(T15),U,2) G 42
 D INIT^vhPRINTER(80) G 27:'$D(Print)
41 S R=72 D ^KFOLE S BLZ=0,I=100 I $N(B(I))'=-1 D HD,^KSELO
42 S TAD=0 G 47:AKT="A" I AKT="E" S TAD=$E(DJ-1,3,4)_DM_"01" G 47
43 S TAD=DM-6 I TAD>0 S TAD=$E(DJ,3,4)_$E(100+TAD,2,3)_"01" G 47
45 S TAD=$E(DJ,3,4)_$E(112+TAD,2,3)_"01"
47 D ^SKL I KL=-1 G Y
49 I KZR="N",'$D(^KPRR("D",$P(A(0),D,1))) G 47
 ;
5 S PR=0 K ^HULP($J+100)
51 S (LAD,REF)=""
53 G 57:PBP="B" S PR=$N(^KSTKL($P(A(0),D,1),PR)) G 7:PR=-1 S LAD=^(PR,0)
55 G 51:KZR="N"&'$D(^KPRR("D",$P(A(0),D,1),PR)),6:'$D(^(PR)) S REF=^(PR) G 6
57 S PR=$N(^KPRR("D",$P(A(0),D,1),PR)) G 7:PR=-1 S REF=^(PR)
 ;
6 I '$D(^KPR(PR,0)) S K=REF D KIL G 51
61 S PC=$P(^(0),D,1),PSN=$P(^(1),D,20),PID=$P(^(2),D,25),K=" \ \ " I $E($N(^("I")),1)="I" S K=$P(^($N(^("I"))),D,1,3)
63 S HG=$P(K,D,1),GR=$P(K,D,2),SG=$P(K,D,3)
65 D TRM G 51:'OK D COK S ^HULP($J+100,HG,GR,SG,PCC)=PID_D_PC_D_REF_D_PSN_D_$$STOCK() G 51
 ;
7 G 47:'$D(^HULP($J+100)) S HKL=1,HG=0,LN=99
71 S HG=$N(^HULP($J+100,HG)) G 47:HG=-1 S GR=0
73 S GR=$N(^HULP($J+100,HG,GR)) G 71:GR=-1 S SG=0
75 S SG=$N(^HULP($J+100,HG,GR,SG)) G 73:SG=-1 S PCC=0
77 S PCC=$N(^HULP($J+100,HG,GR,SG,PCC)) G 75:PCC=-1 S U2=^(PCC)
 ;
8 I 'MAC S LN=LN+1+(HKL*6) I LN>61 W:BLZ !,$P($T(T11),U,2),# D HD S HKL=1 G 8
81 G 9:'HKL I MAC W $C(9),$C(9),$C(13),$P(A(0),D,1),$C(9),$P(A(0),D,2),$C(9),$P(A(0),D,7),$C(13),$C(9),$C(9),$C(13) G 9
83 W !,$P($T(T10),U,2),! S FL(1)=$P($T(T16),U,2,999),FL(2)=0,FL(3)=A(0) D FL^PROC
85 W ! S FL(1)=$P($T(T17),U,2,99) D FL^PROC W !,$P($T(T11),U,2),!,$P($T(T12),U,2),!,$P($T(T11),U,2)
 ;
9 S HKL=0 I MAC W $P(U2,D,1),$C(9),$P(U2,D,2),$C(9),$P(U2,D,3),$C(9),$P(U2,D,5),$C(9),$P(U2,D,6),$C(13) G 77
91 W ! S FL(1)=$P($T(T18),U,2,999),FL(3)=U2 D FL^PROC G 77
 
STOCK() Set FS=$P(^KPR(PR,0),D,14)   
 Set Res=$$ORDER^KLPROD(KC,PR,"K")
 Quit FS_D_Res
 ;
Y I MAC R *K G YZ
YY W:BLZ !,$P($T(T11),U,2),# S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE X F71
YZ K ^HULP($J+100) Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?72,$P($T(T13),U,2),$J(BLZ,4),!,NM2,?30,$P($T(+1),U,2),?72,DT,!,NM3
HDA I $D(X1),$D(X2) W ?30,$P($T(T14),U,2),X1,"   ",X2
HDB W ?73,TD,!!
HDZ Q
 ;