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
-