Index: zTryout/WV/PM/Test.cls.xml =================================================================== diff -u -r45988 -r46099 --- zTryout/WV/PM/Test.cls.xml (.../Test.cls.xml) (revision 45988) +++ zTryout/WV/PM/Test.cls.xml (.../Test.cls.xml) (revision 46099) @@ -121,15 +121,17 @@ For { Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:(ORDNr="") + #dim KODOrderBestaat As %Boolean = ($D(^KOD(KlantNr,"F",ORDNr)) > 0) #dim KODHeeftOrderlijnen As %Boolean = ($O(^KOD(KlantNr,"F",ORDNr,99)) > 99) + #dim KODHoofdingZonderLijnen = (KODOrderBestaat) && $$$Not(KODHeeftOrderlijnen) #dim ORDWHoofdingStatus As %Boolean = $P(^ORDW("D",CONSNr),"\",20) - #dim HeeftFixNodig As %Boolean = (ORDWHoofdingStatus '= "B") && ($$$Not(KODHeeftOrderlijnen)) ; Set HeeftFixNodig = HeeftFixNodig || (##class(TECH.StringUtils).Equals(ORDNr, 100185,100193,100200,100210,100213,100219,100297,100298,100300,100302,100303,100308,100309)) + #dim HeeftFixNodig As %Boolean = (ORDWHoofdingStatus '= "B") && (KODHoofdingZonderLijnen) ; Set HeeftFixNodig = HeeftFixNodig || (##class(TECH.StringUtils).Equals(ORDNr, 100185,100193,100200,100210,100213,100219,100297,100298,100300,100302,100303,100308,100309)) If (HeeftFixNodig) { Write !,"CONSNr : "_CONSNr_" - ORDNr : "_ORDNr_" | KOD Ln : "_KODHeeftOrderlijnen_" | ORDW St : '"_ORDWHoofdingStatus_"'" Write " --> Fix data" - + /* */ For { Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr="" #dim ORDWLijnStatus As %Boolean = $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",2) Write !,"ORDWLijnStatus '"_ ORDWLijnStatus _"' -> B " @@ -140,8 +142,14 @@ Kill ^ORDW("IW",CONSNr) Write !,"ORDW Status en index aangepast voor CONS '"_CONSNr_"'" - Do ..VerwijderOrder(ORDNr) - Write !,"Order ^KOD("_ORDNr_") is verwijderd." + If KODHoofdingZonderLijnen { + Do ..VerwijderOrder(ORDNr) + Write !,"Order ^KOD("_ORDNr_") is verwijderd." + } + Else { + Write !,"Order ^KOD("_ORDNr_") heeft nog lijnen en is dus NIET verwijderd." + } + /* */ } } }