Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r37276 -r37282
--- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 37276)
+++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 37282)
@@ -71,6 +71,11 @@
1
+
+DOM.PM.ProductAPI
+1
+
+
%String
@@ -152,6 +157,7 @@
Set ..BatchService = $$$Implementation(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
Set ..ProductieSequentieRepository = $$$Implementation(ProductieSequentieRepository, ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New())
Set ..ToeleveringService = $$$Inject(ToeleveringService,##class(DOM.AKP.impl.ToeleveringService).%New())
+ Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
Quit $$$OK
]]>
@@ -1103,11 +1109,15 @@
set MattenUitvoeringInfo.ToeleveringID = TBXQueue.TOENr
set MattenUitvoeringInfo.ToeDos = $extract(TBXQueue.TOENr,4,6)_":"_TBXQueue.DOSNr
set MattenUitvoeringInfo.Aantal = TBXQueue.TotaalAantal
- set MattenUitvoeringInfo.Diepte = LD
+
+ set MattenUitvoeringInfo.Breedte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Breedte")
+ set MattenUitvoeringInfo.Diepte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Diepte")
+
set MattenUitvoeringInfo.BewerkingBreedte = Dim
set MattenUitvoeringInfo.BewerkingDiepte = LD-27
set MattenUitvoeringInfo.MateriaalId = MatOpties
set MattenUitvoeringInfo.KleurId = ASM
+
quit MattenUitvoeringInfo
]]>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_017_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r37276 -r37282
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_017_GekoppeldeIK_MattenLijst.txt (.../Productie_017_GekoppeldeIK_MattenLijst.txt) (revision 37276)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_017_GekoppeldeIK_MattenLijst.txt (.../Productie_017_GekoppeldeIK_MattenLijst.txt) (revision 37282)
@@ -6,12 +6,12 @@
---------|----|------------------------|------|------|------------|-------|
Toe:Dos | # | Mat | D | B | ink D | ink B |
---------|----|------------------------|------|------|------------|-------|
- 221:HMJ2 | 2 |Z AGO | 500 | | 473 | 360 |
+ 221:HMJ2 | 2 |Z AGO | 473 | 1500 | 473 | 360 |
| | | | | | |
- 222:HMJ4 | 2 |Z AGO | 500 | | 473 | 360 |
- 222:HMJ3 | 2 |Z AGO | 500 | | 473 | 360 |
- 222:HMJ5 | 1 |Z AGO | 450 | | 423 | 515 |
- 222:OSA9 | 1 |G AGO | 350 | | 323 | 984 |
+ 222:HMJ4 | 2 |Z AGO | 473 | 1500 | 473 | 360 |
+ 222:HMJ3 | 2 |Z AGO | 473 | 1500 | 473 | 360 |
+ 222:HMJ5 | 1 |Z AGO | 423 | 1500 | 423 | 515 |
+ 222:OSA9 | 1 |G AGO | 323 | 1500 | 323 | 984 |
---------|----|------------------------|------|------|------------|-------|
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test004MultiVhoss/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r37276 -r37282
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test004MultiVhoss/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt (.../Productie_012_GekoppeldeIK_MattenLijst.txt) (revision 37276)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test004MultiVhoss/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt (.../Productie_012_GekoppeldeIK_MattenLijst.txt) (revision 37282)
@@ -6,7 +6,7 @@
---------|----|------------------------|------|------|------------|-------|
Toe:Dos | # | Mat | D | B | ink D | ink B |
---------|----|------------------------|------|------|------------|-------|
- 222:IZ3L | 2 |Z AGO | 270 | | 243 | 325 |
+ 222:IZ3L | 2 |Z AGO | 243 | 1500 | 243 | 325 |
---------|----|------------------------|------|------|------------|-------|
\ No newline at end of file