Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml =================================================================== diff -u -r62511 -r65691 --- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml (.../ArdisOptimalisatie.cls.xml) (revision 62511) +++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml (.../ArdisOptimalisatie.cls.xml) (revision 65691) @@ -32,6 +32,10 @@ %String + +%String + + Ardis @@ -61,10 +65,11 @@ #dim Barcode as %String=$ZSTRIP(rs.Data("VerwerkingID"),">W") Set ..Rework=$ZSTRIP(rs.Data("Rework"),">W") Set ..Status=rs.Data("Status") + Set ..PartQtyCut=rs.Data("PartQtyCut") If (..Status=0) || (..Status=2) || (..Status=4) { ; opslaan in cache omdat geen gelijktijdige ODBC connectie toegelaten is - Set arr($Increment(arr))=$lb(Barcode,..MachineTijdstip,..Status,..Rework) + Set arr($Increment(arr))=$lb(Barcode,..MachineTijdstip,..Status,..Rework,..PartQtyCut) Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip } @@ -83,6 +88,7 @@ Set ..MachineTijdstip=$LI(arr(I),2) Set ..Status=$LI(arr(I),3) Set ..Rework=$LI(arr(I),4) + Set ..PartQtyCut=$LI(arr(I),5) Do ..VoegToeProductieStap(Barcode) } ]]> @@ -92,7 +98,7 @@ 1 ?") + Do rs.Prepare("select PartCalc as VerwerkingID,Status, Inserted, LastChanged,PartRemark3 as Rework, isnull(PartQtyCut,0) as PartQtyCut FROM APPS_Halux_Machine_Opdeelzaag_data.ArdisParts WHERE LastChanged>?") Set sc=rs.Execute(..VanafTijdstip) Set it=##class(TECH.ResultSetIterator).%New(rs) @@ -123,7 +129,9 @@ 1 -0:2,1:1) + Quit $S((..Status=2)||(..Status=4):2,1:1) ]]> Index: APPS/Halux/Machine/OpdeelZaag/data/ArdisPartsRemote.cls.xml =================================================================== diff -u -r43868 -r65691 --- APPS/Halux/Machine/OpdeelZaag/data/ArdisPartsRemote.cls.xml (.../ArdisPartsRemote.cls.xml) (revision 43868) +++ APPS/Halux/Machine/OpdeelZaag/data/ArdisPartsRemote.cls.xml (.../ArdisPartsRemote.cls.xml) (revision 65691) @@ -202,6 +202,15 @@ + +%Integer +1 +30 +PartQtyCut + + + + %String 4