Index: zTryout/THB/GlobalUtils.cls.xml =================================================================== diff -u -r50790 -r50791 --- zTryout/THB/GlobalUtils.cls.xml (.../GlobalUtils.cls.xml) (revision 50790) +++ zTryout/THB/GlobalUtils.cls.xml (.../GlobalUtils.cls.xml) (revision 50791) @@ -84,18 +84,18 @@ Set SubscriptZonderLandcodeBestaat = $Data(^INDEX("K","KL",106,SubscriptZonderLandcode)) If (Landcode = "BE") { If SubscriptMetLandcodeBestaat { - Do ..Console.WriteLine("A. *** "_SubscriptMetLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' staat de landcode foutief in de subscript.") + Do ..Console.WriteLine("A. Kill met Landcode *** "_SubscriptMetLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' staat de landcode foutief in de subscript.") Kill ^INDEX("K","KL",106,SubscriptMetLandcode) } ElseIf $$$Not(SubscriptZonderLandcodeBestaat) { - Do ..Console.WriteLine("B. *** "_SubscriptZonderLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' ontbreekt de subscript.") + Do ..Console.WriteLine("B. Build zonder Landcode *** "_SubscriptZonderLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' ontbreekt de subscript.") Set ^INDEX("K","KL",106,SubscriptZonderLandcode) = Data } } ElseIf $$$Not(Landcode = "BE") { - If SubscriptZonderLandcodeBestaat { - Do ..Console.WriteLine("C. *** "_SubscriptZonderLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' zit de landcode foutief NIET in de subscript.") + If (SubscriptZonderLandcodeBestaat && ($$$HasLength(Postcode))) { + Do ..Console.WriteLine("C. Kill zonder Landcode *** "_SubscriptZonderLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' zit de landcode foutief NIET in de subscript.") Kill ^INDEX("K","KL",106,SubscriptZonderLandcode) } ElseIf $$$Not(SubscriptMetLandcodeBestaat) { - Do ..Console.WriteLine("D. *** "_SubscriptMetLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' ontbreekt de subscript.") + Do ..Console.WriteLine("D. Build met Landcode *** "_SubscriptMetLandcode_" *** Voor klant: '"_KlantNummer_"' met adres: '"_Adres.GeefNaam()_"' ontbreekt de subscript.") Set ^INDEX("K","KL",106,SubscriptMetLandcode) = Data } } @@ -118,15 +118,15 @@ Set Compressed = $$COMPRES^KLANT(Landcode_Postcode,KlantNummer) } If $$$Not(KlantIndexKKL = Data) { - Do ..Console.WriteLine("X. *** KlantIndexKKL komt niet overeen! KlantIndexKKL: '"_KlantIndexKKL_"' *** Data: '"_Data_"'") + Do ..Console.WriteLine("X. Build data *** KlantIndexKKL komt niet overeen! KlantIndexKKL: '"_KlantIndexKKL_"' *** Data: '"_Data_"'") Set ^INDEX("K","KL",106,Node) = KlantIndexKKL } If $$$Not(Node = Compressed) { - Do ..Console.WriteLine("Y. *** 4e node komt niet overeen met klantdata! Node: '"_Node_"' *** Data: '"_Compressed_"'") + Do ..Console.WriteLine("Y. Kill *** 4e node komt niet overeen met klantdata! Node: '"_Node_"' *** Data: '"_Compressed_"'") Kill ^INDEX("K","KL",106,Node) } } Else { - Do ..Console.WriteLine("Z. *** Klant bestaat niet volgens KlantNummer: '"_KlantNummer_"'") + Do ..Console.WriteLine("Z. Kill *** Klant bestaat niet volgens KlantNummer: '"_KlantNummer_"'") Kill ^INDEX("K","KL",106,Node) }