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