KKOV12PV G 1 ;BEHEER KONKURENTIEOVERZICHT (MODULE IMPORT VERKOOPEN VOOR EEN KLANT);KKOV1;Quit naar KKOV9 [ 10/31/2001  2:57 PM ]
 ;
S1 S HG=" " ;Verwijderen geimporteerde lijnen
S1A S HG=$N(^KKOV(KC,HG)) G S1Z:HG=-1 S GR=0
S1B S GR=$N(^KKOV(KC,HG,GR)) I GR=-1 D S2 G S1A
S1C S VERD=-1
S1D S VERD=$N(^KKOV(KC,HG,GR,VERD)) G S1B:VERD=-1 S FABR=-1
S1E S FABR=$N(^KKOV(KC,HG,GR,VERD,FABR)) G S1D:FABR=-1
S1F S K=^(FABR) G S1E:'$P(K,D,25) K ^(FABR) G S1E
S1Z Q
 ;
S2 G S2Z:'$D(^KKOV(KC,HG,0,0,0)) S K=^(0) ;Verwijderen of herrekenen hoofdgroep
S2A G S2Z:'$L($P(K,D,8)) I $N(^KKOV(KC,HG,0))=-1 K ^KKOV(KC,HG) G S2Z
S2B S GR=0 F I=3,12,16 S $P(K,D,I)=""
S2C S GR=$N(^KKOV(KC,HG,GR)) I GR'=-1 S VERD=-1 G S2E
S2D S $P(K,D,6)=$J($P(K,D,16)/$S($P(K,D,3):$P(K,D,3),1:1),0,2),$P(K,D,16)="",^KKOV(KC,HG,0,0,0)=K G S2Z
S2E S VERD=$N(^KKOV(KC,HG,GR,VERD)) G S2C:VERD=-1 S FABR=-1
S2F S FABR=$N(^KKOV(KC,HG,GR,VERD,FABR)) G S2E:FABR=-1
S2G S R=^(FABR) F I=3,12,16 S $P(K,D,I)=$P(K,D,I)+$P(R,D,I)
S2H S $P(R,D,16)="",^(FABR)=R G S2F
S2Z Q
 ;
 ; Opmaken totalen per subgroep
1 Q  ; Import voorlopig afgesloten
 D S1 K ^HULP($J)
 S SW12=1,VEC=8005,UGK=$P(^KVER(^KVER1(VEC),0),D,10),NIV="G",(HG,TOT)=0
 S HG=0 F  S HG=$O(^KKAAP(KC,HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(^KKAAP(KC,HG,GR)) Q:GR=""  D
 ..S SG="" F  S SG=$O(^KKAAP(KC,HG,GR,SG)) Q:SG=""  D
 ...S PC="" F  S PC=$O(^KKAAP(KC,HG,GR,SG,PC)) Q:PC=""  D
 ....S K=^(PC),UA=$P(K,D,3),UF=$P(K,D,4),UBE=$P(K,D,12),PR=$P(K,D,15)
 ....S FAC=$E($O(^KPR(PR,"J")),2,99),NTB=$P(^(1),D,7)
 ....I '$D(^KFAB1(FAC)) S (K,^KFAB1(FAC))=^KL1(FAC),^KFAB(K,0)=^KLE(K,0),$P(^(0),D,10)=$P($E(K,1,4)," ",1)
 ....S UG=$P(^KFAB(^KFAB1(FAC),0),D,10)
 ....I '$D(^HULP($J,HG,GR,SG)) S ^(SG)="0\0\0\\0\0\0\"_FAC_D_UG_D ; Aantal\Omzet\VerdeeldeOmzet\SubGrpTelbaar\\\\Fabrikant\FabrikantCode\AantalLijnen
 ....S K=^(SG),$P(K,D,2)=$P(K,D,2)+UBE I 'NTB S $P(K,D,1)=$P(K,D,1)+UA,$P(K,D,10)=$P(K,D,10)+UF
 ....S ^(SG)=K
 ;
 ; Verdeling niet-telbare, verdeelbare subgroepen
2 S HGX="" F  S HGX=$O(^HULP($J,HGX)) Q:HGX=""  D
 .S GRX="" F  S GRX=$O(^HULP($J,HGX,GRX)) Q:GRX=""  D
 ..S SGX="" F  S SGX=$O(^HULP($J,HGX,GRX,SGX)) Q:SGX=""  D
 ...S OMZ=$P(^(SGX),D,2) Q:'$D(^KPSG1(SGX))!'OMZ  S K=^(SGX) Q:'$P(K,D,5) 
 ...S (HGY,AANT)="" F  S HGY=$O(^KPSG1(SGX,HGY)) Q:HGY=""  D
 ....S GRY="" F  S GRY=$O(^KPSG1(SGX,HGY,GRY)) Q:GRY=""  D
 .....S SGY="" F  S SGY=$O(^KPSG1(SGX,HGY,GRY,SGY)) Q:SGY=""  I $D(^HULP($J,HGY,GRY,SGY)) S AANT=AANT+$P(^(SGY),D,1)
 ...Q:'AANT
 ...S HGY="" F  S HGY=$O(^KPSG1(SGX,HGY)) Q:HGY=""  D
 ....S GRY="" F  S GRY=$O(^KPSG1(SGX,HGY,GRY)) Q:GRY=""  D
 .....S SGY="" F  S SGY=$O(^KPSG1(SGX,HGY,GRY,SGY)) Q:SGY=""  D
 ......I '$D(^HULP($J,HGY,GRY,SGY)) Q
 ......S K=^(SGY),$P(K,D,3)=$P(K,D,3)+(OMZ*$P(K,D,1)/$S(AANT:AANT,1:1)),^(SGY)=K
 ;
 ; Opmaken totalen per groep
3 S HG="" F  S HG=$O(^HULP($J,HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(^HULP($J,HG,GR)) Q:GR=""  D
 ..S KGT=1 I $D(^KPGR1(GR)) S KGT=$P(^(GR),D,5)
 ..S (AANT,OMZ,OMZV,NTAANT,NTOMZ,NTOMZV)=0,SG="" F  S SG=$O(^HULP($J,HG,GR,SG)) Q:SG=""  D
 ...S KST=1 I $D(^KPSG1(SG)) S KST=$P(^(SG),D,5) I 'KST S KST=KGT
 ...S K=^HULP($J,HG,GR,SG) F I=2,3 S $P(K,D,I)=$J($P(K,D,I),0,0)
 ...S $P(K,D,4)=KST I KST S $P(K,D,5,7)=$P(K,D,1,3),$P(K,D,1,3)="0\0\0"
 ...S ^(SG)=K
 ...S AANT=$J(AANT+$P(K,D,1),0,0),OMZ=$J(OMZ+$P(K,D,2),0,0),OMZV=$J(OMZV+$P(K,D,3),0,0)
 ...S NTAANT=$J(NTAANT+$P(K,D,5),0,0),NTOMZ=$J(NTOMZ+$P(K,D,6),0,0),NTOMZV=$J(NTOMZV+$P(K,D,7),0,0)
 ..S ^HULP($J,HG,GR)=AANT_D_OMZ_D_OMZV_D_KGT_D_NTAANT_D_NTOMZ_D_NTOMZV
 ;
 ; Opmaken tabel gemiddelde prijs
4 K T S (T,HG)="" F  S HG=$O(^HULP($J,HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(^HULP($J,HG,GR)) Q:GR=""  D
 ..S R=^(GR) I $P(R,D,4) Q
 ..S SG="" F  S SG=$O(^HULP($J,HG,GR,SG)) Q:SG=""  D
 ...S K=^(SG) I $P(K,D,4) Q
 ...S T=T+1,T(T)=HG_D_GR_D_SG_D_$P(K,D,1)_D_($P(K,D,2)+$P(K,D,3))_D_$P(K,D,8,10)
 ;
 ;Import potentieel
5 S T=0 F  S T=$O(T(T)) Q:T=""  D
 .S K=T(T),HG=$P(K,D,1),GR=$P(K,D,2),UA=$P(K,D,4),UBE=$P(K,D,5)
 .S FAC=$P(K,D,6),UG=$P(K,D,7),UF=$P(K,D,8)
 .S K="",$P(K,D,26)=D,$P(K,D,11)=UGK,$P(K,D,15)=VEC
 .S $P(K,D,17)="KKOV10",$P(K,D,21)=NIV,$P(K,D,22)=$$FADEF^vhRtn1(),$P(K,D,25)=1
 .I $D(^KKOV(KC,HG,GR,VEC,FAC)) S K=^(FAC),$P(K,D,16)=$P(K,D,3)*$P(K,D,6)
 .S $P(K,D,1)=UG,$P(K,D,3)=$P(K,D,3)+UA,$P(K,D,5)="    "_$$DISPLS^KLASS(GR)_" "
 .S $P(K,D,12)=$P(K,D,12)+UF,$P(K,D,14)=FAC,$P(K,D,16)=$P(K,D,16)+UBE
 .S $P(K,D,6)=$J($P(K,D,16)/$S($P(K,D,3):$P(K,D,3),1:1),0,2)
 .S ^(FAC)=K,TOT=TOT+UBE
 .S K="",$P(K,D,26)=D,$P(K,D,5)=$$DISPLS^KLASS(HG)_" ",$P(K,D,8)="*"
 .S $P(K,D,17)="KKOV10",$P(K,D,21)=NIV,$P(K,D,22)=$$FADEF^vhRtn1()
 .I '$D(^KKOV(KC,HG,0,0,0)) S ^(0)=K
 .D S2
 ;
YZ K ^HULP($J),HG,GR,SG,PC,PR,FAC,VEC,UG,UGK,UA,UF,UEP,B,NIV Q
 ;