Index: zTryout/WV/PM/Test.cls.xml =================================================================== diff -u -r64979 -r64983 --- zTryout/WV/PM/Test.cls.xml (.../Test.cls.xml) (revision 64979) +++ zTryout/WV/PM/Test.cls.xml (.../Test.cls.xml) (revision 64983) @@ -130,6 +130,9 @@ Set TbxIdFromAdmin = "772349/517849" Do ..HermaakTbxProductVanGAData( $P(TbxIdFromAdmin,"/",2) , $$$True) + Set TbxIdFromAdmin = "772349/517849" + Do ..HermaakTbxProductVanGAData( $P(TbxIdFromAdmin,"/",2) , $$$True) + /* Set TbxIdFromAdmin = "" @@ -219,11 +222,11 @@ If CheckProductBestaat { #dim BestaatProduct As %Boolean = ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(OorspronkelijkKprProductId) If BestaatProduct { - Write !,"TBXProduct bestaat reeds. Zal NIET hermaakt worden. Om toch te hermaken, zet 2e parameter 'CheckProductBestaat' op 0 (false).",! + Write !,"TBXProduct '"_OorspronkelijkKprProductId_"' bestaat reeds. Zal NIET hermaakt worden. Om toch te hermaken, zet 2e parameter 'CheckProductBestaat' op 0 (false).",! Set HermaakProduct = $$$False } Else { - Write !,"TBXProduct bestaat niet meer. Zal meteen hermaakt worden ... " + Write !,"TBXProduct '"_OorspronkelijkKprProductId_"' bestaat niet meer. Zal meteen hermaakt worden ... " Set HermaakProduct = $$$True } } @@ -240,7 +243,7 @@ Do ..DisplayKenmerken(NieuwProductId) } Else { - Write !,"TBXProduct hermaken is blijkbaar NIET gelukt!. Breakpoint om hier te kunnen debuggen. Druk op 'g' om voorbij Breakpoint te gaan.",! + Write !,"TBXProduct '"_OorspronkelijkKprProductId_"' hermaken is blijkbaar NIET gelukt!. Breakpoint om hier te kunnen debuggen. Druk op 'g' om voorbij Breakpoint te gaan.",! } } Else {