zTryout.ARC.APP,zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.DOM.KLANT,zTryout.ARC.DOM.PM zTryout.ARC.DOM.OV.Order 1 %RegisteredObject 0 $O(OLUNr(""),-1) Do ...If $D(Check) Set Check=0 ...Else Write !!,$ZR," OLUNr" Set ORDNr="" For Set ORDNr=$O(^ORD("IU",ORDNr)) Quit:'ORDNr Do .Set OLUNr="" .For Set OLUNr=$O(^ORD("IU",ORDNr,OLUNr)) Quit:'OLUNr Do ..Set R=^ORD("IU",ORDNr,OLUNr),ZR=$ZR,OLNr=$P(R,D) ..Set KLNr=$P($G(^KO1(ORDNr,"F")),D) ..If 'KLNr Do Quit ...If $D(Check) Set Check=0 ...Else Write !!,ZR,!,"Order onbekend" ..If '$D(^KOD(KLNr,"F",ORDNr)) Do Quit ...If $D(Check) Set Check=0 ...Else Write !!,ZR,!,"Order onbekend" ..Set R=$G(^KOD(KLNr,"F",ORDNr,OLNr)) ..If R="" Do Quit ...If $D(Check) Set Check=0 ...Else Write !!,ZR,!,"Orderlijn onbekend" ..If $P(R,D,15)'=OLUNr Do ...If $D(Check) Set Check=0 ...Else Write !!,ZR,!,"OLUNr verschillend" Set PRNr="" For Set PRNr=$O(^ORD("IP",PRNr)) Quit:'PRNr Do .Set ORDNr="" .For Set ORDNr=$O(^ORD("IP",PRNr,ORDNr)) Quit:'ORDNr Do ..Set OLUNr="" ..For Set OLUNr=$O(^ORD("IP",PRNr,ORDNr,OLUNr)) Quit:'OLUNr Do ...Set R=^ORD("IP",PRNr,ORDNr,OLUNr),ZR=$ZR,OLNr=$P(R,D) ...Set KLNr=$P($G(^KO1(ORDNr,"F")),D) ...If 'KLNr Do Quit ....If $D(Check) Set Check=0 ....Else Write !!,ZR,!,"Order onbekend" ...If '$D(^KOD(KLNr,"F",ORDNr)) Do Quit ....If $D(Check) Set Check=0 ....Else Write !!,ZR,!,"Order onbekend" ...Set R=$G(^KOD(KLNr,"F",ORDNr,OLNr)) ...If R="" Do Quit ....If $D(Check) Set Check=0 ....Else Write !!,ZR,!,"Orderlijn onbekend" ...If $P(R,D,2)'=PRNr Do ....If $D(Check) Set Check=0 ....Else Write !!,ZR,!,"PRNr verschillend" ...If $P(R,D,15)'=OLUNr Do ....If $D(Check) Set Check=0 ....Else Write !!,ZR,!,"OLUNr verschillend" Quit */ ]]> 1 OrderID:%Integer=180156