Index: BL/PR/GA/TB/tmpDev2.mac.rou =================================================================== diff -u -r65900 -r67927 --- BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 65900) +++ BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 67927) @@ -218,6 +218,9 @@ If $$$Not(##class(TECH.StringUtils).Equals(WSLn.ItemOnderdelenSpeciaal, "V", "")) { Do blTBox.BTValues.SetAt(WSLn.ItemOnderdelenSpeciaal ,"TBOndSpecial") } + If $$$HasLength(WSLn.ItemPlaatMateriaal) { + Do blTBox.BTValues.SetAt(WSLn.ItemPlaatMateriaal ,"PlaatMat") + } If $$$HasLength(WSLn.ItemMinTolerantieOpIB) { Do blTBox.BTValues.SetAt(WSLn.ItemMinTolerantieOpIB ,"MinTolerantie") } @@ -393,7 +396,7 @@ Set IsBeursUser=($G(Opties)["PRS=B;") Set IsAnonymousUser=0 ; ($G(Opties)'["PRS=1;") - If Prod.ValidatePR(.arValidPR) Do + If Prod.ValidatePR(.arValidPR) || ($G(Opties)["DDEFS=1") Do . Set GenPRNr=Prod.GenerischPRNr() . Set WSLn.Exclude=0 . @@ -410,6 +413,17 @@ . Set KLNrPrs=$S(sDomVERW'="VHEPN":sDomKLNr, (WS.KLNummer?1.N)&&(WS.KLNummer>0):WS.KLNummer, 1:4645) . Set AKPrs=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",1) . Set VKPrs=$$bfwCalcVKPrijsKlant(KPrijsVH,AKPrs,GeldigeActiesVoorOrder) + . + . New GADataProduct, TbxHelper + . Set GADataProduct = Prod + . Set TbxHelper = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct.TbxHelper).%New() + . // Enkel de DataDefinities bewaren + . If $G(Opties)["DDEFS=1" Do Quit ; Early quit, beter anders oplossen! + . . Do TbxHelper.StelInProductDataOpGADataProduct(GADataProduct, Opties) + . . Do GADataProduct.GenereerDataDefinities() + . . ; Het is wel mogelijk dat niet alle HFBuilder correct berekend konden worden (nieuwe impl zoals bvb. Rug X38). De DataDefinities zullen dan toch nog correct gegenereerd zijn. + . . Set GemaaktProductId = GADataProduct.ProductGetObjectId() + . ;Else : . If $G(Opties)["KPR=1" Do . . New GADataProduct, GADataProductId,scSave,TbxHelper . . Set GADataProduct = Prod @@ -432,6 +446,7 @@ . . . Do ##class(vhLib.Logger).%New().ErrorMail("KPRCreate failed","GADataProduct.SaveClean() vanuit BL.PR.GA.TB.tmpDev2.mac is niet gelukt. "_$$ParseStatus^vhLib(scSave)) . Else Do + . Set GemaaktProductId = "" . Set VKPrs="ERROR" . Set WSLn.Exclude=1