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