Index: zTryout/WV/PM/KAD/RecalcBS.cls.xml
===================================================================
diff -u -r29059 -r44330
--- zTryout/WV/PM/KAD/RecalcBS.cls.xml	(.../RecalcBS.cls.xml)	(revision 29059)
+++ zTryout/WV/PM/KAD/RecalcBS.cls.xml	(.../RecalcBS.cls.xml)	(revision 44330)
@@ -6,6 +6,86 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Method name="VerwerkLijstVanBuiltInIds">
+<Description>
+Oproepen via 
+  Do ##class(zTryout.WV.PM.KAD.RecalcBS).VerwerkLijstVanBuiltInIds() </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..VerwerkLijst( ..GeefBuiltInLijstProductIds() )
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLijst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductIds:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+
+	Try {			
+		Set Iterator = ##class(TECH.ListIterator).%New(ProductIds)
+		While (Iterator.HasNext()) {
+			#dim PRNr As %String = Iterator.Next()
+			Continue:($$$PRGet($$$KortTekst)?1"GEN.HAL".E)
+			Do ..RebuildBouwSteenFromWizard(PRNr)
+			Write !,"Rebuild van "_PRNr
+		}
+
+		Do OperatieScope.Gelukt()
+
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do OperatieScope.Gefaald() 
+		Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuiltInLijstProductIds">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim lbProductIds As %List = $LB(
+		1700578, 1700579, 1700580, 1700584, 1700585, 1700586, 1700604, 1700605, 1700606, 1700607, 1700608, 1700609, 1700610, 1700611, 1700612, 1700613, 1700614, 1700658, 1700659, 
+		1700660, 1700661, 1700662, 1700663, 1700664, 1700665, 1700666, 1700667, 1700668, 1700669, 1700670, 1700671, 1700672, 1700673, 1700674, 1700679, 1700680, 1700681, 1700682, 
+		1700683, 1700684, 1700685, 1700686, 1700687, 1700688, 1700689, 1700690, 1700691, 1700692, 1700693, 1700694, 1700695, 1700696, 1700697, 1700698, 1700699, 1700700, 1700704, 
+		1700773, 1700774, 1700775, 1700776, 1700777, 1700778, 1700815, 1700816, 1700817, 1700818, 1700837, 1700838, 1700839, 1700840, 1700841, 1700842, 1700843, 1700844, 1700845, 
+		1700846, 1700854, 1700856, 1700857, 1700858, 1700859, 1700860, 1700861, 1700862, 1700863, 1700864, 1700865, 1700866, 1700874, 1700889, 1700922, 1700940, 1700946, 1700947, 
+		1700959, 1700960, 1700961, 1700962, 1700963, 1700964, 1700993, 1700994, 1700995, 1700996, 1700997, 1700998, 1700999, 1701000, 1701008, 1701016, 1701017, 1701018, 1701019, 
+		1701020, 1701021, 1701022, 1701038, 1701039, 1701040, 1701041, 1701047, 1701048, 1701049, 1701050, 1701051, 1701052, 1701053, 1701054, 1701075, 1701076, 1701077, 1701083, 
+		1701126, 1701127, 1701128, 1701129, 1701130, 1701131, 1701132, 1701133, 1701137, 1701138, 1701139, 1701140, 1701176, 1701178, 1701206, 1701207, 1701215, 1701216, 1701217, 
+		1701218, 1701219, 1701224, 1701225, 1701226, 1701227, 1701228, 1701229, 1701230, 1701231, 1701258, 1701260, 1701261, 1701262, 1701263, 1701264, 1701265, 1701271, 1701294, 
+		1701297, 1701328, 1701329, 1701330, 1701331, 1701332, 1701333, 1701334, 1701340, 1701341, 1701342, 1701343, 1701344, 1701345, 1701346, 1701347, 1701348, 1701349, 1701352, 
+		1701363, 1701364, 1701365, 1701366, 1701367, 1701368, 1701375, 1701376, 1701395, 1701396, 1701397, 1701398, 1701399, 1701400, 1701401, 1701402, 1701403, 1701404, 1701437, 
+		1701438, 1701439, 1701454, 1701455, 1701456, 1701457, 1701458, 1701459, 1701460, 1701461, 1701462, 1701463, 1701464, 1701465, 1701466, 1701467, 1701468, 1701469, 1701470, 
+		1701471, 1701472, 1701473, 1701474, 1701475, 1701476, 1701480, 1701481, 1701482, 1701483, 1701484, 1701493, 1701494, 1701495, 1701496, 1701497, 1701498, 1701499, 1701500, 
+		1701501, 1701502, 1701503, 1701504, 1701505, 1701506, 1701507, 1701508, 1701509, 1701910, 1701911, 1701912, 1701913, 1701915, 1701916, 1701917, 1701918, 1701923, 1701925, 
+		1701926, 1701929, 1701930, 1701931, 1701932, 1701933, 
+		1701941, 1701942, 1701943, 1701944, 1701947, 1701948, 1701949, 1701950, 1701951, 1701952, 1701953, 1701954, 1701955, 1701956, 1701959, 1701960, 1701961, 1701962, 1701963, 
+		1701964, 1701965, 1701966, 1701967, 1701968, 1701969, 1701970, 1701971, 1701972, 1701974, 1701975, 1701976, 1701977, 1701978, 1701979, 1701981, 1701982, 1702002, 1702006, 
+		1702007, 1702010, 1702011, 1702023, 1702024, 1702037, 1702038, 1702039, 1702040, 1702041, 1702042, 1702043, 1702046, 1702047, 1702048, 1702049, 1702050, 1702051, 1702052, 
+		1702053, 1702067, 1702068, 1702070, 1702071, 1702072, 1702073, 1702074, 1702075, 1702076, 1702078, 1702079, 1702080, 1702081, 1702082, 1702092, 1702093, 1702094, 1702095, 
+		1702099, 1702100, 1702101, 1702102, 1702103, 1702104, 1702105, 1702106, 1702107, 1702108, 1702109, 1702110, 1702113, 1702114, 1702131, 1702152, 1702154, 1702155, 1702156, 
+		1702157, 1702158, 1702176, 1702177, 1702178, 1702179, 1702180, 1702181, 1702182, 1702183, 1702185, 1702186, 1702187, 1702188, 1702190, 1702191, 1702192, 1702193, 1702194, 
+		1702195, 1702196, 1702197, 1702198, 1702199, 1702200, 1702201, 1702202, 1702203, 1702204, 1702205, 1702206, 1702207, 1702218, 1702230, 1702231, 1702232, 1702233, 1702234, 
+		1702235, 1702236, 1702237, 1702238, 1702239, 1702240, 1702241, 1702242, 1702243, 1702244, 1702245, 1702246, 1702247, 1702248, 1702249, 1702250, 1702251, 1702252, 1702253, 
+		1702254, 1702255, 1702262, 1702269, 1702270, 1702271, 1702278, 1702279, 1702281, 1702283, 1702284, 1702285, 1702286, 1702287, 1702288, 1702301, 1702302, 1702303, 1702304, 
+		1702305, 1702307, 1702308, 1702309, 1702311, 1702338, 1702339, 1702340, 1702341, 1702342, 1702343, 1702344, 1702348, 1702349, 1702350, 1702353, 1702354, 1702355, 1702356, 
+		1702357, 1702364, 1702382, 1702383, 1702384, 1702385, 1702386, 1702387, 1702388, 1702389, 1702390, 1702391, 1702392, 1702393, 1702394, 1702395, 1702396, 1702397, 1702408, 
+		1702418, 1702421, 1702422, 1702423, 1702424, 1702425, 1702426, 1702427, 1702428, 1702429, 1702430, 1702431, 1702432, 1702433, 1702434, 1702455, 1702472, 1702473, 1702474, 
+		1702475, 1702478, 1702479, 1702480, 1702481, 1702482, 1702483, 1702486, 1702489, 1702491, 1702500, 1702501, 1702502, 1702506, 1702520, 1702521, 1702522, 1702523, 1702524, 
+		1702525, 1702526, 1702527, 1702528, 1702532, 1702533, 1702534, 1702535, 1702537, 1702542, 1702543, 1702544, 1702545, 1702546, 1702547, 1702548, 1702549, 1702550, 1702551, 
+		1702552, 1702553, 1702554, 1702555, 1702559, 1702560, 1702561, 1702594, 1702599
+	)
+
+	Quit ##class(TECH.ListUtils).ListbuildToList(lbProductIds)
+	
+	;Set TeHerrekenenProductIDs = ##class(%ListOfDataTypes).%New()
+	;Do TeHerrekenenProductIDs.Insert(1701933)
+	;Quit TeHerrekenenProductIDs
+]]></Implementation>
+</Method>
+
 <Method name="RecalcLijstHein">
 <Description>
 Oproepen via 
@@ -255,14 +335,14 @@
 <Description>
   d ##class(zTryout.WV.PM.KAD.RecalcBS).Do() </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr:%String</FormalSpec>
+<FormalSpec>PRNr:%String,NoSa:%String="N"</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Kill Gen
 	New GenTyp,MPRNr
 	Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
 	Set MPRNr=PRNr
-	Do RebuildBouwSteenFromWizard^PRBS("S")
+	Do RebuildBouwSteenFromWizard^PRBS(NoSa)
 	Quit
 ]]></Implementation>
 </Method>