PRAPSTAT ;Produkt aankoopstatistiek [ 11/07/2001  2:16 PM ]
 ;Vergelijking tussen huidige prijs en schaduwprijs
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
ASK1 Do ^KPSELQ
 Quit:K="-"
ASK2 Set LevNr=$$SELECT^LEVER(1,"","Beperkt tot Leverancier : ")
 If LevNr  Set FP=1301 Write @F,"Beperking leverancier : "_LevNr_" "_$P(^KLE(^KL1(LevNr),0),D,2)
 Else  Set LevNr=""
ASK3 Set KlasNiv=$$ASK^vhINP("Klassificatie nivo",1,"","H[] = hoofdgroep, G[] = Groep, S[] = Subgroep, P[] = Produkt")
 Goto ASK2:KlasNiv="-" Quit:KlasNiv="."
 Goto ASK3:KlasNiv=""!("HGSP"'[KlasNiv)
 Set FP=1501 Write @F,"Klassificatie nivo : ",$P("Hoofdgroep;Groep;SubGroep;Produkt",";",$F("HGSP",KlasNiv))