Index: APPS/Halux/PPS/TBXZaag/impl/WerkpostVoorMVX.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/WerkpostVoorMVX.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/WerkpostVoorMVX.cls.xml	(revision 63147)
@@ -0,0 +1,277 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorMVX">
+<Description>
+Implementatie voor LBX.  Merk op dat dit geen aparte werkpost is, het is dezelfde werkpost
+van de Hoffmannzaag voor het geval deze in MVX-mode staat.  Dit loopt dan over een MVX-
+specifieke web service. er staat TBX in packagenaam maar er wordt HoffmannZaag bedoeld.</Description>
+<ClassType/>
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,APPS.Halux.PPS.TBXZaag.IWerkpost</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Werkpost">
+<Type>APPS.Halux.common.enu.Werkpost</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ActiviteitGroepID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ActiviteitID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ActiviteitLijnID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="LoggerGroup">
+<Default>Halux.MVX.ZAAG</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	
+	// TODOPA Koppelen aan juiste groep en activiteit afsplitsen, ook gebruikt in perswerkpost
+	
+	// Koppelen aan de juiste activiteit binnen de juiste activiteitgroep
+	#dim ActiviteitGroepNaam As %String = "MVX productie"
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()
+	#dim ActiviteitGroepID As %String
+	&SQL(SELECT ID INTO :ActiviteitGroepID FROM APPS_Halux_PPS_Activiteit.ActiviteitGroep WHERE Naam=:ActiviteitGroepNaam AND Categorie=:Categorie)
+	Set ..ActiviteitGroepID = ActiviteitGroepID
+
+	#dim ActiviteitCode As %String = "MVXZagenBodemRug"
+	#dim ActiviteitID As %String
+	&SQL(SELECT ID INTO :ActiviteitID FROM APPS_Halux_PPS_Activiteit.Activiteit WHERE Code=:ActiviteitCode AND ActiviteitGroepID=:ActiviteitGroepID)
+	Set ..ActiviteitID = ActiviteitID
+	
+	// Geen koppeling aan een lijn voor de zaag
+	Set ..ActiviteitLijnID = ""
+
+	Set ..Logger=##class(vhLib.Logger).%New(..#LoggerGroup)
+	Do ..Logger.Debug("APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorMVX", "Werkpost " _ ..Werkpost _ " aangemaakt. Activiteit " _ ..ActiviteitID _ " groep " _ ..ActiviteitGroepID)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchLijst">
+<FormalSpec>Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn="",All:%Boolean=0</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Batchlijst MVX wordt opgevraagd via APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorMVX"))
+]]></Implementation>
+</Method>
+
+<Method name="SyncBatches">
+<FormalSpec>L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("SyncBatches", "L1:"_$G(L1BatchKey)_", L2:"_$G(L2BatchKey)_", Di:"_$G(DirectBatchKey))
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Geen implementatie voor MVX"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefZaagLijst">
+<FormalSpec>BatchKey:%String,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefZaagLijst", "Batch:"_BatchKey_", Lijn:"_$G(Output2Lijn))
+	#dim BatchID As %string = $P(BatchKey, "||", 1)
+	#dim Subbatch As %String = $P(BatchKey, "||", 2)
+	#dim ResultDataSet As %XML.DataSet = ##class(%XML.DataSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorMVX:qZaagLijst")
+	Do ResultDataSet.SetArgs(BatchID, Subbatch)
+	Set ResultDataSet.DiffGram=1
+	Set ResultDataSet.NeedSchema=1
+	Quit ResultDataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatMateriaal">
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefPlaatMateriaal", "BodemRug:"_BodemRug)
+	#dim ResultDataSet As %XML.DataSet = ##class(%XML.DataSet).%New("") // Voorlopig lege lijst. De PlaatmateriaalHelperVoorMVX moet nog uitgevogeld en gemaakt worden en MVX-plaatmateriaal is nog niet beschikbaar.
+	;#dim ResultDataSet As %XML.DataSet = ##class(%XML.DataSet).%New("APPS.Halux.PPS.TBXZaag.impl.PlaatmateriaalHelperVoorMVX:qPlatenLijst")
+	Do ResultDataSet.SetArgs(BodemRug)
+	Set ResultDataSet.DiffGram=1
+	Set ResultDataSet.NeedSchema=1
+	Quit ResultDataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefStilstanden">
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefStilstanden", "Werkpost:"_..Werkpost)
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Stilstanden worden opgevraagd aan default TBX implementatie"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefRedenBeschadigingen">
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefBeschadigingen", "Werkpost:"_..Werkpost)
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Redenen voor beschadiging worden opgevraagd aan default TBX implementatie"))
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabel">
+<FormalSpec>WerklijstItemID:%Integer,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<ReturnType>BL.Sys.LabelPrinter</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("PrintLabel", "ZaagID:"_WerklijstItemID_", Output2Lijn:"_Output2Lijn_",Device:"_Device)
+	
+	#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(WerklijstItemID)
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.HoffmannZaagUitvoeringInfo = WerklijstItem.UitvoeringInfo
+	
+	#dim Query As %String = "SELECT ID, ActiviteitID FROM APPS_Halux_PPS_Activiteit_dto.ProductieSequentieWerklijstItem WHERE BatchID = ? AND InformatieID = ? AND SequentieNummer = ?"
+	#dim InformatieID As %String = "MVXProductieZaagEtiket"
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(WerklijstItem.BatchID,InformatieID,WerklijstItem.SequentieNummer))
+	If ResultSet.Next(){
+		#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.ProductieVoorbereidingZaag = ##class(APPS.Halux.PPS.Activiteit.Activiteit).OpenId(ResultSet.Data("ActiviteitID"))
+		#dim ZaagWerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(ResultSet.Data("ID"))
+		Do Activiteit.VoerUitWerklijstItem(ZaagWerklijstItem.GeefID(),$listbuild(Device,..Werkpost))
+	}
+	Quit "" //om backward compatible te zijn.. :'(
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabelManueel">
+<FormalSpec>Titel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<ReturnType>BL.Sys.LabelPrinter</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("PrintLabelManueel", "Details:"_Titel_", Bodem:"_BodemKleur_";"_BodemHoogte_";"_BodemLengte_";"_BodemBewerking_", Rug:"_RugKleur_";"_RugHoogte_";"_RugLengte_", Output2Lijn:"_Output2Lijn_", Device:"_Device)
+	Quit ##class(APPS.Halux.PPS.TBXZaag.impl.EtiketHelper).AfdrukkenManueel(Titel,BodemKleur,BodemHoogte,BodemLengte,BodemBewerking,RugKleur,RugHoogte,RugLengte,Output2Lijn,Device,..Werkpost)
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerStilstand">
+<FormalSpec>Reden:%String,Duur:%Integer,ZaagID:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("RegistreerStilstand", "Werkpost:"_..Werkpost_", Reden:"_Reden)
+	#dim BatchID As %String
+	If (ZaagID = "") {
+		Set BatchID = ""
+	} Else { 
+		#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(ZaagID)
+		 Set BatchID = WerklijstItem.BatchID
+	}
+	Do ##class(APPS.Halux.Opvolging.impl.Stilstanden).Registreer(..%ClassName(), ..Werkpost, BatchID, Reden, Duur)
+]]></Implementation>
+</Method>
+
+<Method name="ZetStatus">
+<Description>
+d ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorMVX).%New().ZetStatus("Z1",711,"F","L1")</Description>
+<FormalSpec>WerkPost:APPS.Halux.common.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.PPS.TBXZaag.enu.Status,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("ZetStatus", "ZaagID:"_ZaagID_", NewStatus:"_NewStatus_", Werkpost:"_WerkPost_", Lijn:"_Output2Lijn)
+	If ((ZaagID '= "") && (ZaagID '= 0)) {
+		#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(ZaagID)
+		Set WerklijstItem.Status = ##class(APPS.Halux.PPS.enu.WerklijstItemStatus).Uitgevoerd()
+		Set WerklijstItem.UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
+		Set WerklijstItem.UitvoeringInfo.ZaagStatus = NewStatus
+		If (NewStatus = ##class(APPS.Halux.PPS.TBXZaag.enu.Status).Finished()) {
+			Set WerklijstItem.UitvoeringInfo.Output2LijnFeedback=Output2Lijn
+		}
+		Set WerklijstItem.TijdstipLaatsteWijziging = ##class(TECH.DateTime).CurrentTimeStamp()
+		Do WerklijstItem.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetMotorStroom">
+<FormalSpec>WerkPost:APPS.Halux.common.enu.Werkpost,ZaagID:%Integer,Motor:APPS.Halux.Opvolging.enu.Motor,Stroom:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("ZetMotorStroom", "Werkpost:"_..Werkpost_", Stroom: "_Stroom)
+	#dim ProductID As %String
+	If $G(Stroom)>1000
+	{
+		If (ZaagID = "") {
+			Set ProductID = ""
+		} Else { 
+			#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(ZaagID)
+			Set ProductID = WerklijstItem.UitvoeringInfo.ProductID
+		}
+		Do ##class(APPS.Halux.Opvolging.impl.MotorStroom).Registreer(WerkPost,ProductID,Motor,Stroom)
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ..iWerkpost.BeschadigingViaOpdracht(rsOpdrachten.GetData(1),##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug(),"B","unittest","DI") ; met rework
+
+]]></Content>
+</UDLText>
+
+<Method name="BeschadigingViaOpdracht">
+<FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("Beschadiging", "ZaagID:"_$G(ZaagID)_", B+R:"_BodemOfRug_", Verantw:"_Verantwoordelijke_", Oms:"_Omschrijving_", Herwerk:"_$g(HerwerkNaarLijn))
+	// Niet gesupporteerd tot we zeker zijn dat men dit feature gebruikt
+]]></Implementation>
+</Method>
+
+<Method name="BeschadigingViaLade">
+<FormalSpec>LadePRNr:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[	// Niet gesupporteerd tot we zeker zijn dat men dit feature gebruikt
+]]></Implementation>
+</Method>
+
+<Method name="BeschadigingPlaat">
+<FormalSpec>PlaatPRNr:%Integer,Lengte:%Integer,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ..Logger.Debug("BeschadigingPlaat", "PRNr:"_$G(PlaatPRNr)_", Lengte:"_Lengte_", Verantw:"_Verantwoordelijke_", Oms:"_Omschrijving)
+	// Niet gesupporteerd tot we zeker zijn dat men dit feature gebruikt
+]]></Implementation>
+</Method>
+
+<Method name="Herwerk">
+<FormalSpec>QueueID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn=""</FormalSpec>
+<Implementation><![CDATA[
+	
+	Do ..Logger.Debug("Herwerk", "QueueID:"_$G(QueueID)_", B+R:"_BodemOfRug_", Herwerk:"_$g(HerwerkNaarLijn))
+	// TODOPA bekijken welke ondersteuning voor rework er nodig is
+	/*
+	Set QueueElement=##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
+	If '$isObject(QueueElement) {
+		set Exception = ##class(TECH.Exceptions.ObjectExpectedException).%New("Geen queue in zaagopdracht"_QueueID)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
+	Set MaakBatch=##class(APPS.Halux.PPS.TBXZaag.impl.MaakBatch).%New(QueueElement.BatchID)
+	Do MaakBatch.MaakHerwerkOpdracht(QueueElement,BodemOfRug,HerwerkNaarLijn)
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="ControleMeting">
+<FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
+<Implementation><![CDATA[	Do ..Logger.Debug("ControleMeting", "ZaagID:"_$G(ZaagID)_", B+R:"_BodemOfRug_", Gewenst"_GewensteLengte_", Gemeten: "_GemetenLengte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductURL">
+<FormalSpec>ZaagID:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "http://NotYetImplemented"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r47808 -r63147
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 47808)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 63147)
@@ -344,21 +344,20 @@
 <FormalSpec>SessionKey:%String="",Werkpost:APPS.Halux.common.enu.Werkpost="",Categorie:APPS.Halux.common.enu.Categorie=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set sc=..ControleSession(SessionKey,Werkpost)
+	Set sc = ..ControleSession(SessionKey,Werkpost)
 	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errGeneralError,"Controle session",sc)
 	
-	If Categorie=##class(APPS.Halux.common.enu.Categorie).Legrabox()
-	{
-		Set ..iWerkpost=##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorLBX).%New(Werkpost)		
+	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		Set ..iWerkpost = ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorLBX).%New(Werkpost)		
+	} ElseIf (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+		Set ..iWerkpost = ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorMVX).%New(Werkpost)		
+	} Else {
+		Set ..iWerkpost = ##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(Werkpost)
 	}
-	Else
-	{
-		Set ..iWerkpost=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(Werkpost)
-	}
 	
-	If '$isObject(..iWerkpost) {		
-		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("No implementation for "_Werkpost)
-		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	If '$IsObject(..iWerkpost) {		
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("No implementation for "_Werkpost)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>
 </Method>