Prod.Product,vhLib.Macro,BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek 1 %RegisteredObject %Date %Date OpslagDefinitie %Integer %Status D ##class(zTryout.PV.WMS.OpslagHistExport).%New().Export() KillOpslagDef ..Begin) && (+$P(Rec,"\")<..Einde) && ($P(Rec,"\",5)="M") { Set Aantal=$P(Rec,"\",2) Set Stock=$P(Rec,"\",3) Set Actie=$P(Rec,"\",4) Do ..WriteHist(Datum,Actie,Aantal,Stock) } Set Key=$O(^PRHIST(..PRNr,Key)) } ]]> Datum,Actie,Aantal,Stock