BL.Prod,Prod.Product 1 %RegisteredObject 0 d ##class(BL.Stat.Info).ExcelLijsten() 1 1 FileName:%String 1 FileName:%String 1 FileName:%String 1 Do . . . . Set $Piece(arAantal(SoftMag),"\",Ptyp)=$Piece($G(arAantal(SoftMag)),"\",Ptyp)+1 . . . Else Do . . . . Set SoftMag="" . . . . For Set SoftMag=$O(arSoftMag(SoftMag)) Quit:SoftMag="" Do . . . . . Set $Piece(arAantal(SoftMag),"\",Ptyp)=$Piece($G(arAantal(SoftMag)),"\",Ptyp)+(arSoftMag(SoftMag)/arSoftMag(SoftMag)) . Set Mag="" . For Set Mag=$o(arAantal(Mag)) Quit:Mag="" Do . . Set SoftMag=$S(Mag="A":"Tandem&Aventos",Mag="E":"Ewms",Mag="H":"Halux",Mag="L":"Langgoed",Mag="U":"UglyPicking",Mag="O":"Orgalux",1:Mag) . . Set xMag=$G(^ORDW("D",CONSNr,"S",Mag)) . . Set StartTime=$$Format^vhLib("dd/mm/jj hh:nn",$Piece(xMag,"\",3)) . . Set StopTime=$$Format^vhLib("dd/mm/jj hh:nn",$Piece(xMag,"\",4)) . . Write CONSNr,*9,Klant,*9,LandCode,*9,VerzendW,*9,DueOutTime,*9,SoftMag,*9,StartTime,*9,StopTime,*9 . . For i=1:1:2 Do . . . Write $Piece($G(arAantal(Mag)),"\",i),*9,$Piece($G(arSubAantal(Mag)),"\",i),*9,$Piece($G(arSplitAantal(Mag)),"\",i),*9 . . Write ! Do CLOSE^vhDEV(Dev) ;Close FileName ]]> PRNr,Begin,Einde %String PRNr %Boolean %SQLQuery