Prod.Product 1 %RegisteredObject 1 D ##class(zTryout.PV.WMS.OpslagExport).%New().Export() KillOpslagDef 100 . Quit:$$$PRGet($$$NONAktief)=1 . Quit:$P(^KPR(PRNr,0),"\",6) ; uitverkoop . Quit:$P(^KPR(PRNr,0),"\",6) ; uitverkoop . Set dtoOpslag=##class(zTryout.PV.WMS.dtoOpslag).%New(PRNr) . Quit:$E(dtoOpslag.IdentNr)="7" ; DO's . Quit:'..IsAfgeleid(PRNr,dtoOpslag) . . Quit:dtoOpslag.GeefMagazijn()?1(1"T",1"X") . Do dtoOpslag.Write(..#AllColumns) . Write ! . Set Cnt=Cnt+1 Do CLOSE^vhDEV(Dev) Quit ]]> 1 PRNr,dtoOpslag