Index: vhConsistency/Checks/DOM/VKP/DocumentReferenties.cls.xml =================================================================== diff -u -r49869 -r49879 --- vhConsistency/Checks/DOM/VKP/DocumentReferenties.cls.xml (.../DocumentReferenties.cls.xml) (revision 49869) +++ vhConsistency/Checks/DOM/VKP/DocumentReferenties.cls.xml (.../DocumentReferenties.cls.xml) (revision 49879) @@ -59,14 +59,14 @@ } If $$$Not(DocumentRefID="") && $IsObject(DocumentReferenties) { - #dim OrderRef As %String = $P(^KOD(KlantNr,"F",Order.GeefID(),1),"\",3) + #dim OrderRef As %String = ..CleanUpText($P(^KOD(KlantNr,"F",Order.GeefID(),1),"\",3)) - If $$$Not(OrderRef [ DocumentReferenties.OrderReferentie) { + If $$$Not(OrderRef [ ..CleanUpText(DocumentReferenties.OrderReferentie)) { Do ..VoegMeldingToe("OrderReferentie van order "_Order.GeefID()_" zijn niet consistent "_$C(9)_DocumentReferenties.OrderReferentie_" <> "_OrderRef) Set Status = $$$ERROR() } - #dim ComRef As %String = $P(^KOD(KlantNr,"F",Order.GeefID(),1),"\",19) - If DocumentReferenties.CommissieReferentie '= ComRef { + #dim ComRef As %String = ..CleanUpText($P(^KOD(KlantNr,"F",Order.GeefID(),1),"\",19)) + If $$$Not(ComRef [ ..CleanUpText(DocumentReferenties.CommissieReferentie)) { Do ..VoegMeldingToe("CommisieReferentie van order "_Order.GeefID()_" zijn niet consistent "_$C(9)_DocumentReferenties.CommissieReferentie_" <> "_ComRef) Set Status = $$$ERROR() } @@ -78,6 +78,14 @@ Quit Status ]]> + + +Tekst:%String +1 +%String + +