KKOVCW ;BEHEER KONKLURRENTIEOVERZICHT (Module IMPORT verkopen voor één klant) [ 10/31/2001  3:04 PM ]
 
CheckAllCust
 New R,KlKey,KLNr,KlNaam,CheckOneCust
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2)
 . Quit:'$D(^KKOV(KLNr))
 . Set CheckOneCust=$$CheckOneCust(KLNr)
 . Quit:CheckOneCust
 . Write !,KLNr,?10,KlNaam
 Read R
 Quit
 
CheckOneCust(KLNr)
 New CheckOneCust,HoofdGr,Groep,Verdeler,Fabrikant,TotAantal,TotAfnames,CumAantal,CumAfnames
 Set HoofdGr="",(TotAantal,TotAfnames,CumAantal,CumAfnames)=0
 For  Set HoofdGr=$O(^KKOV(KLNr,HoofdGr)) Quit:HoofdGr=""  Do
 . Set Groep=""
 . For  Set Groep=$O(^KKOV(KLNr,HoofdGr,Groep)) Quit:Groep=""  Do
 . . Set Verdeler=""
 . . For  Set Verdeler=$O(^KKOV(KLNr,HoofdGr,Groep,Verdeler)) Quit:Verdeler=""  Do
 . . . Set Fabrikant=""
 . . . For  Set Fabrikant=$O(^KKOV(KLNr,HoofdGr,Groep,Verdeler,Fabrikant)) Quit:Fabrikant=""  Do
 . . . . Set R=^KKOV(KLNr,HoofdGr,Groep,Verdeler,Fabrikant)
 . . . . If Groep=0,Verdeler=0,Fabrikant=0 Set TotAantal=TotAantal+$P(R,D,3),TotAfnames=TotAfnames+$P(R,D,12)
 . . . . Else  Set CumAantal=CumAantal+$P(R,D,3),CumAfnames=CumAfnames+$P(R,D,12)
 If TotAantal=CumAantal,TotAfnames=CumAfnames Set CheckOneCust=1
 Else  Set CheckOneCust=0
 Quit CheckOneCust