Prod.Product,vhLib.Macro,BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek 1 %RegisteredObject 0 D ##class(zTryout.PV.WMS.MoveMagExport).%New().Export() KillOpslagDef 0) { Set KType=$S($$$ProductGet(MPRNr,$$$LeveranciersNr)=$$$LevHalux:"HAL",$$ISORGAL^ORGALUX(MPRNr):"OL",1:"BSL") ; Kill Cache Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,"")) While SOLNr'="" { Set SOLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr) Set KPRNr=$P(SOLRec,"\",1) Set KQty=$P(SOLRec,"\",3) If (KPRNr?4.8N),$D(^KPR(KPRNr)),(KQty>0) { Set Cache(KPRNr)=$G(Cache(KPRNr))+KQty } ; Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) } Set KPRNr=$O(Cache("")) While KPRNr'="" { Set KQty=Cache(KPRNr) Do ..WriteBeslag(CONSNr,ORDNr,Tijdstip,VerzendW,MPRNr,MQty,KType,KPRNr,KQty) ; Set KPRNr=$O(Cache(KPRNr)) } } Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) } Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) } Set CONSNr=$O(^ORDW("D",CONSNr)) } Do CLOSE^vhDEV(Dev) Quit ]]> CONSNr,ORDNr,Tijdstip,VerzendW,MPRNr,MQty,KType,KPRNr,KQty