EWCHECK ;E'WMS Nazicht bestanden [ 08/11/2000  3:07 PM ]
 ;
ORDW 
 Kill
 Do INIT^vhTERMINA
 Write !!,"Nazicht ""D"""
 Set CONSNr=""
 For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
 .Set R=^ORDW("D",CONSNr),KLNr=$P(R,D),EWStat=$P(R,D,20)
 .Write:'$D(^ORDW("IK",KLNr,CONSNr)) !!,$ZR," --> Index IK onbekend"
 .If EWStat="W",'$D(^ORDW("IW",CONSNr)) Write !!,$ZR," --> Index IW onbekend"
 .Set ORDNr=""
 .For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 ..Set OLUNr=""
 ..For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ...Set R=^ORDW("D",CONSNr,"D",ORDNr,OLUNr),EWStat=$P(R,D,2)
 ...Set R=$G(^ORDW("IO",ORDNr,OLUNr))
 ...If EWStat="B",R="" Quit
 ...Write:R'=CONSNr !,$ZR," --> CONSNr verschillend"
 Write !!,"Nazicht ""IO"""
 Set ORDNr=""
 For  Set ORDNr=$O(^ORDW("IO",ORDNr)) Quit:ORDNr=""  Do
 .Set OLUNr=""
 .For  Set OLUnr=$O(^ORDW("IO",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ..Set CONSNr=^ORDW("IO",ORDNr,OLUNr)
 ..Set R=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
 ..Write:EWStat="B" !!,$ZR," --> reeds op bon"
 Write !!,"Nazicht ""IK"""
 Set KLNr=""
 For  Set KLNr=$O(^ORDW("IK",KLNr)) Quit:KLNr=""  Do
 .Set CONSNr=""
 .For  Set CONSNr=$O(^ORDW("IK",KLNr,CONSNr)) Quit:CONSNr=""  Do
 ..Set R=^ORDW("D",CONSNr)
 ..Write:$P(R,D)'=KLNr !!,$ZR," --> Klant verschillend"
 Quit
 ;