Index: BL/MB/UGLYPicking/Receptie.cls.xml =================================================================== diff -u -r5222 -r5260 --- BL/MB/UGLYPicking/Receptie.cls.xml (.../Receptie.cls.xml) (revision 5222) +++ BL/MB/UGLYPicking/Receptie.cls.xml (.../Receptie.cls.xml) (revision 5260) @@ -2132,9 +2132,13 @@ } /// Update locatie in klantspecifieke eigenschappen - Set KlantID = ..GetJointKlantNrViaProdNr(EenProductID) - If (KlantID '= ""){ - Set $Piece(^UPRCP("K","TB",KlantID),"\",1) = LocatieID + If (EenProductID '= ""){ + Set KlantID = ..GetJointKlantNrViaProdNr(EenProductID) + If (KlantID '= ""){ + Set $Piece(^UPRCP("K","TB",KlantID),"\",1) = LocatieID + } + }Else{ + $$$WriteToLog("FOUT : In de buffer ^UPRCP(""B"",""TB"","_VolgNr_") is geen ProductID gevonden, de KlantID kon niet worden gezocht. Kon ^UPRCP(""K"",""TB"",KlantID) niet worden geupdate !") } ]]>