Cataloog2010
 ;
 New R,%J,Cataloog,HKKey,vhScherm,Input,Save,Modified,Code,Page
 Set %J=$$%J^vhRtn1(),Cataloog="LVH",HKKey="",vhScherm="NIEUW"
 ;
 For  Set R=vhScherm_"^vhScherm(""CATALOOG2010H"""_$S(vhScherm="NIEUW":",,,,,,,""A""",1:"")_")" Do @R Quit:'%SC  Quit:'HKKey  Do
 . Do DISPLAY^vhScherm("CATALOOG2010H")
 . Set vhScherm="EDIT",HoofdGroep=$$GETSORT^KLASS(HKKey),Modified=0
 . Kill ^HULP(%J)
 . Merge ^HULP(%J,Cataloog,HoofdGroep)=^Cataloog2010(Cataloog,HoofdGroep)
 . Do INIT^vhLIST("CATALOOG2010","LIST",.List)
 . Set List("UPINIT")="X`Set Sort=""""" 
 . Set List("UPTRAV")="X`S Sort=$O(^HULP(%J,Cataloog,HoofdGroep,Sort)),sRec="""" S:Sort'="""" sRec=^HULP(%J,Cataloog,HoofdGroep,Sort)"
 . Set List("UPSEL")="@`Sort=SelKey"
 . Do WRITE^vhLIST(.List)
 . Do UPDATE^vhLIST(.List)
 . For  Set Input=$$SCROLL^vhLIST(.List) Do  Quit:Input="-"
 . . If Input="N" Do
 . . . For  Set Code="",Page=$G(Page) Do NIEUW^vhScherm("CATALOOG2010D",,,,,,1,"A") Quit:'%SC  Do
 . . . . Set ^HULP(%J,Cataloog,HoofdGroep,Page_D_Code)=Page_D_Code,Modified=1
 . . . . Do UPDATE^vhLIST(.List,2)
 . . . . For List("SELECT")=1:1 Quit:Cataloog(List("SELECT"))=(Page_D_Code)
 . . . . Do WRITE^vhLIST(.List)
 . . If Input="V" Do
 . . . Set R=Cataloog(List("SELECT")),Page=$P(R,D),Code=$P(R,D,2)
 . . . Quit:$$^vhTXTPOP("CATALOOG2010","DELETE",,Code,Page)'="V"
 . . . Kill ^HULP(%J,Cataloog,HoofdGroep,Page_D_Code)
 . . . Set Modified=1
 . . . Do UPDATE^vhLIST(.List)
 . . If Input="W" Do
 . . . New Old
 . . . Set Old=Cataloog(List("SELECT")),Page=$P(Old,D),Code=$P(Old,D,2)
 . . . Do EDIT^vhScherm("CATALOOG2010D",,,,"PAGE",,1)
 . . . Quit:'%SC
 . . . Kill ^HULP(%J,Cataloog,HoofdGroep,Old)
 . . . Set ^HULP(%J,Cataloog,HoofdGroep,Page_D_Code)=Page_D_Code,Modified=1
 . . . Do UPDATE^vhLIST(.List)
 . . If Input="-",Modified Do
 . . . Set Save=$$^vhTXTPOP("CATALOOG2010","SAVE",,$$DISPL^KLASS(HKKey,1))
 . . . Set:'$L(Save) Input=""
 . . . Quit:'Save
 . . . Kill ^Cataloog2010(Cataloog,HoofdGroep)
 . . . Merge ^Cataloog2010(Cataloog,HoofdGroep)=^HULP(%J,Cataloog,HoofdGroep)
 Quit
 
Cataloog(Cataloog)
 New zb
 Set Cataloog(1)="LVH\Van Hoecke",Cataloog(2)="BLUM\Blum"
 Set Cataloog=$$WILD^vhPOPUP("C;C","-1O","",.Cataloog,Cataloog)
 Set:$G(zb)="CANC" Cataloog="-"
 Quit Cataloog
 
HKKey()
 New HKKey
 Set HKKey=$P($$SELECT^KLASS(1),D)
 Quit HKKey
 
ValidateCode(Code,Error,HKKey)
 New PRNr,KKey
 Do STORE^vhTERMINA()
 Set PRNr=$$SELECT^PRODUKT6(,,Code)
 Do REFRESH^vhTERMINA()
 If PRNr Do
 . Set KKey=$$KKEY^KLASS(PRNr)
 . If 'KKey Set Error="De hoofdgroep van dit product is onbekend"
 . Else  If HKKey'=$P(^KLAS("K",KKey),D,8) Set Error="De hoofdgroep van dit product is "_$$DISPL^KLASS($P(^KLAS("K",KKey),D,8),1)
 . Else  Set Error="",Code=$E($P(^KPR(PRNr,0),D),1,11)
 Else  Set Error="Product onbekend"
 Quit