KKOV16 G 1 ;KLANTPOTENTIEEL ;KKOV16; [ 09/06/2002  1:37 PM ]
 ;
T1 ;OVERZICHT               
T2 ;A[] = aantallen   G[] = gemiddelde prijs   R[] = reele prijs
T3 ;Klanten verwerkt :
T4 ;Klnr#Klant\Regio\Type#Aktiviteit\Fabrikant\Verdeler
T5 ;Geen gegevens voor deze selektie  [] = ok
T6 ;BEPERKING HOOFDGROEP     : 
T7 ;geen
T8 ;OPSPLITSEN PER FABRIKANT
T9 ;[] = neen   .[] = ja
T10 ;AANTALLEN;GEMIDDELDE PRIJS;REELE PRIJS
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
 ;    initialisatie + vraag
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
11 S KSEL=0 D KP^KSEL G YZ:K="-"
13 D ^KKOV17 G 11:K="-" S TSH=R
15 S FP=2003 W @F,@F1,$P($T(T6),U,2),$S(TSH="":$P($T(T7),U,2),1:$$DISPLS^KLASS(TSH))
16 S R="OVZ\22\3\"_$P($T(T1),U,2)_"\"""_$P($T(T2),U,2)_"""\1\\""-AGR""[K&$L(K)" D R0^cA100 G 13:K="-"
17 S FP=2230 W @F,@F1,$P($T(T10),U,$F("AGR",OVZ))
18 S R="OPF\23\3\"_$P($T(T8),U,2)_"\"""_$P($T(T9),U,2)_"""\1\\""-.""[K" D R0^cA100 G 16:K="-"
19 S OPF=$L(OPF) S:OPF OPF=OPF+1 K ^HULP($J) S T=0,FP=2003 W @F,@F1,!!!!?2,$P($T(T3),U,2)
 D PRIO^vhINITML("L")
 ;
 ;    het drukken van de info
2 I KL'=0 S X=$D(@Q0) G 23:X
21 S KL=$N(@Q0) I KL=-1!(KL]KLX) G 5
23 S K=KL S:K?.N K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) G 4:I=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 21:'OK,31
 ;
4 S KC=$P(A(0),D,1),T=T+1 I '(T#10) S FP=2422 W @F,@F1,T,"   (",KC," ",$P(A(0),D,2),")"
 I $L(TSH) S HG=$ZP(^KKOV(KC,TSH))
 E  S HG=" "
 F  S HG=$O(^KKOV(KC,HG)) Q:HG=""!(HG]TSH&$L(TSH))  D
 .S GR=0 F  S GR=$O(^KKOV(KC,HG,GR)) Q:GR=""  D
 ..S VEC="" F  S VEC=$O(^KKOV(KC,HG,GR,VEC)) Q:VEC=""  D
 ...S FAC=""  F  S FAC=$O(^KKOV(KC,HG,GR,VEC,FAC)) Q:FAC=""  D
 ....S K=^(FAC),UA=$P(K,D,3),UBE=$P(K,D,6)*UA
 ....S K="\\\"_KC_D_KC_"#"_$P(A(0),D,2)_D_$P(A(0),D,20)_D_$$GetKwantitatief^KLANT5(KC)_":"_$$GetKwalitatief^KLANT5(KC)_"#"_$P(A(1),D,11)
 ....I OPF D
 .....S K=K_D_FAC_D I $D(^KFAB1(FAC)) S K=K_$P(^KFAB(^(FAC),0),D,2)
 .....S K=K_D_VEC_D I $D(^KVER1(VEC)) S K=K_$P(^KVER(^(VEC),0),D,2)
 ....S K=K_D_HG_"~@"_GR
 ....I OPF,$D(^HULP($J,$S(KL?.N:KL+1000,1:KL),FAC,HG,GR)) S K=^(GR)
 ....I 'OPF,$D(^HULP($J,$S(KL?.N:KL+1000,1:KL),HG,GR)) S K=^(GR)
 ....S $P(K,D,2)=$P(K,D,2)+UA,$P(K,D,3)=$P(K,D,3)+UBE,^(GR)=K
 G 21
 ;
5 K B S ZR=$D(^HULP($J)),ZR=$ZR
 F  S ZR=$Q(@ZR) Q:$P($P(ZR,"(",2),",")'=$J  D
 .S K=@ZR,K=$P(K,D,$L(K,D)),HG=$P(K,"~@"),GR=$P(K,"~@",2)
 .S B(HG,GR)="",UEP=0 I $D(^KPGR1(GR)) S UEP=$P(^(GR),D,4)
 .S K=@ZR,$P(K,D,1)=$J(UEP,0,2),$P(K,D,3)=$J($P(K,D,3)/$S($P(K,D,2):$P(K,D,2),1:1),0,2),^(GR)=K
 ;
6 S (HG,T)="" F  S HG=$O(B(HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(B(HG,GR)) Q:GR=""  S T=T+1,B(HG,GR)=T
 ;
7 S (K,HG,R)="",$P(R,D,OPF+2)=D F  S HG=$O(B(HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(B(HG,GR)) Q:GR=""  D
 ..S R=R_D_$$DISPLS^KLASS(HG),K=K_D_$$DISPLS^KLASS(GR)
 S K=$P($P($T(T4),U,2),D,1,OPF+3)_K,^HULP($J,1)=R,^(2)=K
 ;
88 g 8 S T=2,ZR=$D(^HULP($J,2,T))
 F  S ZR=$Q(@$ZR) Q:$P($P(ZR,"(",2),",")'=$J  D
 .S K=@$ZR K @$ZR
 .S R=K,R=$P(R,D,$L(R,D)),HG=$P(R,"~@"),GR=$P(R,"~@",2)
 .S $P(R,D,1,2)=$P(K,D,5,6),$P(R,D,B(HG,GR)+2+OPF)=$P(K,D,$F("GAR",OVZ)-1)
 .I OPF S $P(R,D,4)=$P(K,D,9),$P(R,D,5)=$P(K,D,11)
 .S T=T+1,^HULP($J,T)=R
8 S (KL,T)=2
 F  S KL=$O(^HULP($J,KL)) Q:KL=""  D
 .S R="",ZR=$D(^HULP($J,KL)),ZR=$ZR
 .F  S ZR=$Q(@ZR) Q:$P($P(ZR,"(",2),",")'=$J!($P(ZR,",",2)'=(""""_KL_""""))  D
 ..S K=@ZR K @ZR
 ..S HG=$P($P(K,D,$L(K,D)),"~@"),GR=$P($P(K,D,$L(K,D)),"~@",2)
 ..I $L(R),OPF,$P(R,D,4)'=$P(K,D,9) S T=T+1,^HULP($J,T)=R,R=""
 ..S $P(R,D,1,3)=$P(K,D,5,7),$P(R,D,B(HG,GR)+3+OPF)=$P(K,D,$F("GAR",OVZ)-1)
 ..I OPF S $P(R,D,4)=$P(K,D,9),$P(R,D,5)=$P(K,D,11)
 .S T=T+1,^HULP($J,T)=R
 ;
9 I $O(^HULP($J,2))="" S FP=2403 W @F,@F1,$P($T(T5),U,2),@F0 K IK D IK^PROC1 G YZ
 S R="",K=^HULP($J,1) F I=4+OPF:1 Q:'$L($P(K,D,I))  S $P(R,D,I)=I_";C;L;;;" I $L($P(K,D,I+1)) S R=R_"|"
 S $P(R,D,1,3)="1;C;L;;;|;;$P(X,""#"",2)\2;C;L;;;|\3;C;L;;;|;;$P(X,""#"",2)"
 I OPF S $P(R,D,4,5)="4;C;L;;;|\5;C;L;;;|"
 S $P(R,D)="1;C;L;;;|;;$P(X,""#"")"_D_$P(R,D)
 S $P(R,D,3)="3;C;L;;;|;;$P(X,""#"")"_D_$P(R,D,3)
 S DL(1)="LD",LD(1)="^HULP("_$J,LD(2)=R
 D ^OUTPUT("HT","","")
 ;
YZ K ^HULP($J) Q
 ;
Export
 Set Dev=$$OPEN^vhDEV(,"Potentieel.txt","W","T")
 Use Dev
 Write "KLNr	KlantNaam	Land	Regio	Kwantitatief	Kwalitatief	Activiteit" 
 Write "	HG	GR	Fab	Verd	HGOms	GROms	FabOms	VerdOms	Manueel	Aantal	FactLijnen"
 Write !
 
 Set KLID=0
 For  Set KLID=$O(^KKL(KLID)) Quit:KLID=""  Do
 . Set KLNr=$P(^KKL(KLID,0),"\")
 . Set oKlant=##class(Derde.Klant.Klant).%OpenId(KLNr)
 . Quit:oKlant.CommNonActief ;non akt
 . If '$D(^KKOV(KLNr)) Do
 . . Do WriteKlantGeg(KLNr,KLID)
 . . Write !
 . Else  Do 
 . . Do ExportOne(KLNr,KLID)
 Write !
 Do CLOSE^vhDEV(Dev)
 Quit
 
 
 
WriteKlantGeg(KLNr,KLID)
 Write KLNr,*9,$P(^KKL(KLID,0),D,2),*9,$$LAND^vhRtn1(KLNr,"K",1),*9,$P(^KKL(KLID,0),D,20),*9,$$GetKwantitatief^KLANT5(KLNr),*9,$$GetKwalitatief^KLANT5(KLNr),*9,$$GetActiviteit^KLANT5(KLNr)
 Quit 
 
ExportOne(KLNr,KLID)
    Set HG=""
	For  Set HG=$O(^KKOV(KLNr,HG)) Quit:HG=""  Do 
	. Set HGOms=$E(HG,3,4)
    . Set GR=0 
	. For  Set GR=$O(^KKOV(KLNr,HG,GR)) Quit:GR=""  Do 
	. . Set GROms=$E(GR,7,9)
    . . Set VEC=""
	. . For  Set VEC=$O(^KKOV(KLNr,HG,GR,VEC)) Quit:VEC=""  Do 
    . . . Set FAC=""
 	. . . For  Set FAC=$O(^KKOV(KLNr,HG,GR,VEC,FAC)) Quit:FAC=""  Do 
	. . . . Set FACOms=$zcvt($P($G(^KFAB($G(^KFAB1(FAC),"*"),0),D_FAC),D,10),"U")
	. . . . Set VECOms=$zcvt($P($G(^KVER($G(^KVER1(VEC),"*"),0),D_VEC),D,10),"U")
	. . . . Set PotRec=^KKOV(KLNr,HG,GR,VEC,FAC)
	. . . . Set FactLijnen=$P(PotRec,"\",12)
	. . . . Set Manueel='$P(PotRec,"\",25)
	. . . . Set Aantal=$P(PotRec,"\",3)
	. . . . Do WriteKlantGeg(KLNr,KLID)
	. . . . Write *9,HG,*9,GR,*9,FAC,*9,VEC,*9,HGOms,*9,GROms,*9,FACOms,*9,VECOms,*9,Manueel,*9,Aantal,*9,FactLijnen
	. . . . Write !
 Quit