Index: BL/PPS/TBX/DocSynchroStangInkortLijst/dto/SynchroStangInkortenUitvoeringInfo.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocSynchroStangInkortLijst/dto/SynchroStangInkortenUitvoeringInfo.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocSynchroStangInkortLijst/dto/SynchroStangInkortenUitvoeringInfo.cls.xml	(revision 34549)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.dto.TiponSynchronisatiestangInkortenUitvoeringInfo</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml	(revision 34549)
@@ -0,0 +1,269 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.DocSynchroStangInkortLijst">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieLijnFormatter">
+<Type>APPS.Halux.PPS.impl.Formatter.ProductieLijn</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PickingAantalStangen">
+<Type>TECH.FrequentieTabel</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UitvoeringInfoLijst">
+<Type>APPS.Halux.PPS.dto.UitvoeringInfo</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="VerpakkingTekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Document">
+<Type>APPS.common.Print.Kolommen.Document</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Batch = Batch
+
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..ProductieLijnFormatter = ##class(APPS.Halux.PPS.impl.Formatter.IoCContainer).Instance().Resolve("LijnFormatter")
+	Set ..PickingAantalStangen = ##class(TECH.FrequentieTabel).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocument">
+<ReturnType>APPS.common.Print.Kolommen.Document</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkTBXSequence()
+	
+	Set ..Document = ..InitKolommenDocument()
+	Do ..VulDocument()
+	
+	Quit ..Document
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXSequence">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
+	Do ResultSet.Execute(..Batch.%Id())
+
+	While (ResultSet.Next()) {
+		#dim QueueItem As DS.PPS.TBX.Queue = ##class(DS.PPS.TBX.Queue).OpenId(ResultSet.Data("ID"))
+		If ($$$Not(QueueItem.Status = "PB")) {
+			#dim ProductID As %String = QueueItem.ProductGetObjectId()
+    		#dim TBXLade As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(ProductID)
+   			Do ..VerwerkItem(TBXLade, QueueItem)
+   			Set:(..VerpakkingTekst = "") ..VerpakkingTekst = ..GeefTBXVerpakkingKort(TBXLade.GeefVerpakking())
+   		}
+
+ /*
+		// Indien DeelAantal NIET op te splitsen : 
+		If ($$$Not(QueueItem.Status = "PB")) && (QueueItem.DeelAantal = 1) {
+			; ... 
+   			Do ..VerwerkItem(TBXLade, QueueItem, QueueItem.TotaalAantal)
+   			; ... 
+   		}
+ */
+
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkItem">
+<FormalSpec>TBXLade:DOM.PM.TBXProduct.TBXLade,QueueItem:DS.PPS.TBX.Queue,Aantal:%Integer=1</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If TBXLade.BevatTOBSynchroStang() {
+		#dim BSKey As %String = "PRTOBSTG.001"
+		Set AdapterBouwsteen = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim).%OpenId(TBXLade.GeefID()_"||"_BSKey,$$$ConcurrenyNoLocks)
+		#dim TOBStangProduct As Prod.Product = AdapterBouwsteen.KindProduct
+
+		Set UitvoeringInfo = ##class(BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo).%New()
+		Set UitvoeringInfo.ProductID = TOBStangProduct.ProductNr
+		
+		Set UitvoeringInfo.Nr = QueueItem.Sequence
+		Set UitvoeringInfo.ToeDos = ..GeefToeDos(QueueItem,TBXLade)
+		Set UitvoeringInfo.Breedte = AdapterBouwsteen.DimensieNetto
+		Set UitvoeringInfo.Uitvoer = "P"
+		Set UitvoeringInfo.AantalTiponSynchronisatiestangen = (AdapterBouwsteen.Aantal * Aantal)
+		Set UitvoeringInfo.Type = "TOB"   ; --> Kan mogelijk ook opgehaald worden via: $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",UitvoeringInfo.ProductID,"Opties")) 
+		Set UitvoeringInfo.TiponSynchronisatiestangKorttekst = TOBStangProduct.KortTekst
+		
+		Do ..VoegToeAanInkortLijst(UitvoeringInfo)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeAanInkortLijst">
+<FormalSpec>UitvoeringInfo:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..UitvoeringInfoLijst.Insert(UitvoeringInfo)
+	Do ..PickingAantalStangen.VerhoogMetAantal(UitvoeringInfo.ProductID, UitvoeringInfo.AantalTiponSynchronisatiestangen)
+]]></Implementation>
+</Method>
+
+<Method name="InitKolommenDocument">
+<Private>1</Private>
+<ReturnType>APPS.common.Print.Kolommen.Document</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingTekst = ##class(TECH.StringUtils).Ellipsis(..VerpakkingTekst,12,"...")
+	#dim Titel As %String = "TBX inkortlijst synchrostang" _ $$$IfLength(VerpakkingTekst," ","")
+	#dim SubTitel As %String = "Lijn:" _ ..ProductieLijnFormatter.BepaalGeformatteerdeLijn(..Batch) _ " Batch:" _ ..Batch.GeefID()
+	
+	Quit ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefNieuwKolommenDocument("TBX_SynchronisatieStangInkortenLijst", Titel, SubTitel)
+]]></Implementation>
+</Method>
+
+<Method name="VulDocument">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..Document.ClearContent()
+
+	Do ..VoegToePickingInfo()
+	Do ..VoegToeInkortLijst()
+	Do ..VoegToeLegende()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToePickingInfo">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..PickingAantalStangen.GeefAantalVerschillendeItems() {
+		
+		Do ..VoegToeHoofdingMetTussenLijnen("PICKING", ..Document.GeefAantalKolommen())
+		
+		#dim Nr As %Integer = 0
+		#dim PickingAantalStangenIterator As TECH.ListIterator = ..PickingAantalStangen.GeefItemIterator()
+		While (PickingAantalStangenIterator.HasNext())
+		{
+			#dim AantalStangen As %Integer = PickingAantalStangenIterator.Next()
+			#dim TOBStang As DOM.PM.Product = ..ProductAPI.GeefProduct(PickingAantalStangenIterator.Key())
+			#dim Korttekst As %String = TOBStang.GeefKorttekst()
+			Set Nr = $Increment(Nr)
+			
+			Do ..Document.GeefKolom(1).Insert(Nr)
+			Do ..Document.GeefKolom(2).Insert("")
+			Do ..Document.GeefKolom(3).Insert("")
+			Do ..Document.GeefKolom(4).Insert("")
+			Do ..Document.GeefKolom(5).Insert(AantalStangen)
+			Do ..Document.GeefKolom(6).Insert("")
+			Do ..Document.GeefKolom(7).Insert(Korttekst)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeInkortLijst">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..UitvoeringInfoLijst.Count() {
+		
+		Do ..VoegToeHoofdingMetTussenLijnen("INKORTEN", ..Document.GeefAantalKolommen())
+
+		#dim UitvoeringInfoIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..UitvoeringInfoLijst)
+		While (UitvoeringInfoIterator.HasNext())
+		{
+			#dim UI As BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo = UitvoeringInfoIterator.Next()
+			
+			Do ..Document.GeefKolom(1).Insert(UI.Nr)
+			Do ..Document.GeefKolom(2).Insert(UI.ToeDos)
+			Do ..Document.GeefKolom(3).Insert(UI.Breedte)
+			Do ..Document.GeefKolom(4).Insert(UI.Uitvoer)
+			Do ..Document.GeefKolom(5).Insert(UI.AantalTiponSynchronisatiestangen)
+			Do ..Document.GeefKolom(6).Insert(UI.Type)
+			Do ..Document.GeefKolom(7).Insert(UI.TiponSynchronisatiestangKorttekst)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLegende">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LaatsteKolomIndex As %Integer = ..Document.GeefAantalKolommen()
+
+	Do ..VoegToeHoofdingMetTussenLijnen("LEGENDE", LaatsteKolomIndex)
+
+	Do ..VoegToeLijnMet1IngevuldeKolom(" M = Montage           ",LaatsteKolomIndex)
+	Do ..VoegToeLijnMet1IngevuldeKolom(" P = Picking onderdelen",LaatsteKolomIndex)
+	Do ..VoegToeLijnMet1IngevuldeKolom(" V = Voormontage       ",LaatsteKolomIndex)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHoofdingMetTussenLijnen">
+<FormalSpec>Hoofding:%String,HoofdingKolomIndex:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..Document.VoegLegeLijnToe()
+	Do ..VoegToeLijnMet1IngevuldeKolom(Hoofding,HoofdingKolomIndex)
+	Do ..Document.VoegLegeLijnToe()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijnMet1IngevuldeKolom">
+<FormalSpec>TekstInKolom:%String,KolomIndex:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LijnPieces As %String = ""
+	Set $P(LijnPieces,"\",KolomIndex)=TekstInKolom
+	Do ..Document.VoegLijnToe(LijnPieces,"\")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXVerpakkingKort">
+<FormalSpec>VerpakkingID:DOM.PM.enu.TBXVerpakking</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Tekst As %String = ##class(Prod.GAMeta.BT.Verpakking).TaalAfhOmsClass("Prod.GAMeta.BT.Verpakking",VerpakkingID,##class(DOM.enu.Taal).Nederlands())
+
+	If (##class(TECH.StringUtils).Contains($$$LCase(Tekst),"verpakt:")) {
+		Set Tekst = $Piece(Tekst,":",2)
+	}
+
+	Quit $$$Trim(Tekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeDos">
+<FormalSpec>QueueItem:DS.PPS.TBX.Queue,Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.impl.DocumentService).%New().GeefToeleveringDossierCode(QueueItem.TOENr,Product.GeefDossierCode())
+]]></Implementation>
+</Method>
+</Class>
+
+
+<Package name="BL.PPS.TBX" sqlname="BL"/>
+</Export>