PVPRDEL ;Produkten verwijderen van bepaalde leverancier [ 05/16/2001  5:01 PM ]
 Q
 
DELALL Kill
 Set Q="K"
 Do ^cA604
 Set PRNr=""
 Set LEVNr=$$SELECT^LEVER()
 Write !!!,"Leverancier",LEVNr_" ",$P(^KLE(^KL1(LEVNr),0),D,2)
 Read !,"Bent u zeker dat u alle producten wenst te verwijderen, Type ""VERWIJDER""",K
 Quit:K'="VERWIJDER"
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .; Test alleen bep. leverancier en ouder dan 1 jaar
 .Quit:'$D(^KPR(PRNr,"J"_LEVNr))
 .Quit:$$INTDATE^vhDTyp($P($G(^KSTPR(PRNr,0,0)),D))>($H-90) 
 .;
 .Set Rede=$$CHECKDEL^PRODUKT2(PRNr,"OFSTZ")
 .Write !,PRNr," ",$P(^KPR(PRNr,0),D,1),"->",Rede
 .Quit:Rede'=""
 .Lock ^PAKKET,^KPR,^PRPUTZ,^KLPUTZ,^PRLINK
 .Do DELETE^PRODUKT2(PRNr)
 .Lock
 Quit