cwPRBS ;Produkt bouwstenen
 ;
AllLefevere2Zetacarton
 New PRNr,PRCount
 Set (PRNr,PRCount)=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do OneLefevere2Zetacarton(PRNr,.PRCount)
 Write !,"Producten: ",PRCount
 Quit
 
OneLefevere2Zetacarton(PRNr,PRCount)
 New BSKey,BSRec,BSPRNr,Rebuild,NotCommActief
 Set BSKey="",Rebuild=0
 Set NotCommActief=$P(^KPR(PRNr,1),D,25)=1
 For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do  Quit:Rebuild
 . Set BSRec=^PRBS("BS",PRNr,BSKey),BSPRNr=$P(BSRec,D)
 . Quit:'BSPRNr
 . Quit:'$D(^KPR(BSPRNr,"J6317")) ; Lefevere-Beel
 . Quit:BSPRNr=166752 ; Geen doos
 . Quit:BSPRNr=166756 ; Geen doos
 . Quit:'$P($G(^KPR(PRNr,"G")),D,13)
 . Set Rebuild=1
 Do:Rebuild
 . Set PRCount=PRCount+1
 . Write !,PRNr,?10,$P(^KPR(PRNr,0),D)
 . Write:NotCommActief ?40,"na"
 . If NotCommActief Do DeleteBouwSteenLefevere(PRNr) Quit
 . Do RebuildBouwSteenFromWizard(PRNr)
 Quit
 
RebuildBouwSteenFromWizard(MPRNr,NoSa)
 Set NoSa=$G(NoSa,"N")
 Write ?50,"Rebuild"
 Do RebuildBouwSteenFromWizard^PRBS(NoSa)
 Quit
 
 ; Product commercieel niet actief -> Lefevere karton uit de bouwstenen verwijderen
DeleteBouwSteenLefevere(MPRNr,NoSa)
 New BSKey,BSRec,BSPRNr
 Set NoSa=$G(NoSa,"N")
 Write ?50,"Delete"
 Do DELIND^PRBS(PRNr,NoSa)
 Set BSKey=""
 For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
 . Set BSRec=^PRBS("BS",PRNr,BSKey),BSPRNr=$P(BSRec,D)
 . Quit:'BSPRNr
 . Quit:'$D(^KPR(BSPRNr,"J6317")) ; Lefevere-Beel
 . Quit:BSPRNr=166752 ; Geen doos
 . Quit:BSPRNr=166756 ; Geen doos
 . Quit:'$P($G(^KPR(PRNr,"G")),D,13)
 . Kill ^PRBS("BS",PRNr,BSKey)
 Do BLDIND^PRBS(PRNr,NoSa)
 Quit