Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml =================================================================== diff -u -r67383 -r67461 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 67383) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 67461) @@ -166,11 +166,11 @@ Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 1", IngegevenKenmerken.UitsparingBreedte1 _"mm", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Sifon opening 1", IngegevenKenmerken.UitsparingBreedte1 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) If (UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 2", IngegevenKenmerken.UitsparingBreedte2 _"mm", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Sifon opening 2", IngegevenKenmerken.UitsparingBreedte2 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } } Index: BL/PPS/TBX/OptiVHoss.cls.xml =================================================================== diff -u -r66177 -r67461 --- BL/PPS/TBX/OptiVHoss.cls.xml (.../OptiVHoss.cls.xml) (revision 66177) +++ BL/PPS/TBX/OptiVHoss.cls.xml (.../OptiVHoss.cls.xml) (revision 67461) @@ -320,7 +320,7 @@ + +1 + + + Opvragen van optimalisatie : Initialisatie @@ -610,7 +632,7 @@ #dim Type As %String = ..GeefType(IngegevenKenmerken) #dim KlantOrdRef,KlantProdRef,TransportRef As %String = "" - + #dim Aantal As %Integer For Aantal=1:1:ProductLijn.GeefAantal() { Set VolgNr = $I(VolgNr) @@ -621,7 +643,25 @@ #dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductLijn.GeefProductID()) Do Meldingen.Insert("Product '"_AdministratiefProduct.GeefKorttekst()_"' ("_ProductLijn.GeefProductID()_") van toelevering '"_ToeleveringID_"' voldoet niet aan de eisen : "_$C(13,10)_$C(9)_Exception.GeefOmschrijving()) } - } + } ElseIf ((IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).TandemboxAntaro()) || (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).TandemboxMengvorm())) && (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsApi_IsActiefBomBolOmleidingTbxNaarDotNet")) { + Try { + Set Diepte = IngegevenKenmerken.LadeDiepte + Set Breedte = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken) + Set Type = ..GeefType(IngegevenKenmerken) + + Do ..ProductGeschiktTandembox(ProductID,Diepte,Breedte,Type) + + For Aantal=1:1:ProductLijn.GeefAantal() { + Set VolgNr = $I(VolgNr) + Set ..Products(VolgNr)=$LB(ProductID,(ToeleveringID_";"_ProductLijn.GeefID()),Type,Diepte,Breedte,VolgNr,..SlotCat(Type,Diepte),KlantOrdRef,KlantProdRef,TransportRef) + } + + }Catch E{ + Set Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.InvalidInputException") + Set AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductLijn.GeefProductID()) + Do Meldingen.Insert("Product '"_AdministratiefProduct.GeefKorttekst()_"' ("_ProductLijn.GeefProductID()_") van toelevering '"_ToeleveringID_"' voldoet niet aan de eisen : "_$C(13,10)_$C(9)_Exception.GeefOmschrijving()) + } + } } } If Meldingen.Count() > 0 { Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml =================================================================== diff -u -r59161 -r67461 --- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 59161) +++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 67461) @@ -442,7 +442,16 @@ 1 %String -