PVWMSCOR ;EWMS LOGGING bekijken [ 04/09/2003  8:55 AM ]
 ;
 ;
 Set Key=20001024000000
 Kill ^PVHulp
 For  Set Key=$O(^EWREC("R",Key)) Quit:Key=""  Do
 .Set VolgNr=""
 .For  Set VolgNr=$O(^EWREC("R",Key,VolgNr)) Quit:VolgNr=""  Do
 ..Set Rec=^EWREC("R",Key,VolgNr)
 ..Quit:$E(Rec,1,3)'="C05"
 ..Quit:Rec'["paul v"
 ..Do TRANSREC^EWRECR(Rec,$E(Rec,1,3))
 ..Set BonNr=C("BONNR")
 ..Set RCPNr=C("RCPNR")
 ..Set RCPLNr=C("RCPLNR")
 ..Set ^PVHulp(RCPNr,BonNr,RCPLNr)=""
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"WMSCOR.TXT","W")
 Use Dev
 Set Key="" ;20000901000000
 For  Set Key=$O(^EWREC("S",Key)) Quit:Key=""  Do
 .Set VolgNr=""
 .For  Set VolgNr=$O(^EWREC("S",Key,VolgNr)) Quit:VolgNr=""  Do
 ..Set Rec=$G(^EWREC("S",Key,VolgNr))
 ..If $L(Rec)=""  Do
 ...Set Lijn=""
 ...For  Set Lijn=$O(^EWREC("S",Key,VolgNr,Lijn)) Quit:Lijn=""  Do
 ....Set Rec=Rec_^(Lijn)
 ..Quit:Rec=""
 ..Quit:$E(Rec,1,3)'="R01"&($E(Rec,1,3)'="R02")
 ..K C
 ..Do TRANSREC^EWRECR(Rec,$E(Rec,1,3))
 ..Set BonNr=C("BONNR")
 ..Set RCPNr=C("RCPNR")
 ..Set RCPLNr=C("RCPLNR")
 ..Q:'$D(^PVHulp(RCPNr,BonNr,RCPLNr))
 ..Set:$E(Rec,1,3)="R01" ^PVHulp(RCPNr,BonNr,RCPLNr)=^PVHulp(RCPNr,BonNr,RCPLNr)+1
 ..Write Rec,!
 ..;Write ^PVHulp(RCPNr,BonNr,RCPLNr)," ",Rec,!
 ..Quit:$E(Rec,1,3)'="R01"
 ..Set LNr=RCPLNr\100
 ..Set SLNr=RCPLNr#100*100
 ..Set LRec=$G(^RCP("D",RCPNr,"D",BonNr,LNr))
 ..Set $P(LRec,D,2)="W"
 ..Set $P(LRec,D,3)=""
 ..Set ^RCP("D",RCPNr,"D",BonNr,LNr)=LRec
 ..;Write RCPNr," ",BonNr," ",RCPLNr,!
 ..;Write LRec,!
 ..Set SLRec=$G(^RCP("D",RCPNr,"D",BonNr,LNr,SLNr))
 ..Set $P(SLRec,D,2)="W"
 ..Set ^RCP("D",RCPNr,"D",BonNr,LNr,SLNr)=SLRec
 ..;Write SLRec,!,!
 ..If $O(^RCP("D",RCPNr,"D",BonNr,LNr,SLNr)) D ^cG
 Close:0'[Dev Dev
 Quit