Index: EWSTAT.mac.rou =================================================================== diff -u -r60084 -r67493 --- EWSTAT.mac.rou (.../EWSTAT.mac.rou) (revision 60084) +++ EWSTAT.mac.rou (.../EWSTAT.mac.rou) (revision 67493) @@ -32,7 +32,10 @@ Quit DISP ; Lichtkrant magazijn - New CONSNr,ORDNr,OLUNr,SOLNr,Rec,Cnt,Dev,MagNr,PRNr,Kleur,BonErr,Ident,TeDoen,Opslag,PalId + + ;Quit:'##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWSTAT_LichtkrantInMagazijnAansturen") + + New CONSNr,ORDNr,OLUNr,SOLNr,Rec,Cnt,Dev,MagNr,PRNr,Kleur,BonErr,Ident,TeDoen,Opslag,PalId Set D="\" Kill Cnt @@ -101,13 +104,13 @@ Set Txt=Txt+1,Txt(Txt)=" " Set Txt=Txt+1,Txt(Txt)="Orders : " Set Txt=Txt+1,Txt(Txt)="Orderlijnen : " - For Mag="E","H","L","O","U","A" Set Txt=Txt+1,Txt(Txt)=" "_$P("Auto ;Ugly ;Transf.;Lang ;Halux ;Orgalux",";",$F("EUALHO",Mag)-1)_" : " + For Mag="V","H","L","O","U","A" Set Txt=Txt+1,Txt(Txt)=" "_$P("Objt ;Ugly ;Transf.;Lang ;Halux ;Orgalux",";",$F("VUALHO",Mag)-1)_" : " For Mode="W","V","K" Do .Set Txt=0 .Set Txt=Txt+1,Txt(Txt)=Txt(Txt)_$S(Mode="W":" WMS",Mode="V":"VOLG",1:"KODE")_" : " .Set Txt=Txt+1,Txt(Txt)=Txt(Txt)_$J($P($G(Cnt(Mode)),D,1),4)_" : " .Set Txt=Txt+1,Txt(Txt)=Txt(Txt)_$J($P($G(Cnt(Mode)),D,2),4)_" : " - .For Mag="E","H","L","O","U","A" Set Txt=Txt+1,Txt(Txt)=Txt(Txt)_$J($P($G(Cnt(Mode,Mag)),D,2),4)_" : " + .For Mag="V","H","L","O","U","A" Set Txt=Txt+1,Txt(Txt)=Txt(Txt)_$J($P($G(Cnt(Mode,Mag)),D,2),4)_" : " Set Txt=Txt+1,Txt(Txt)="" Set Tijd=$P($G(Cnt("W","E")),D,5) Set Qty=$P($G(Cnt("W")),D,2)