Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml =================================================================== diff -u -r66821 -r66828 --- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66821) +++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66828) @@ -113,7 +113,7 @@ If (..ProductTypeAPI.IsAntislipmatProduct(ProductID)) && (IngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()) - && ((IngegevenKenmerken.LadeType = "LBX") || (IngegevenKenmerken.LadeType = "TBX")) { + && (##class(TECH.StringUtils).Equals(IngegevenKenmerken.LadeType, "LegraboxFree", "LegraboxPure", "Tandembox")) { Do ..MaakEnBewaarExtraDnaCodeVoorMat(ToeleveringLijn, Batch) } ElseIf ..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(IngegevenKenmerken) { @@ -159,7 +159,7 @@ Set DnaCode.LadeCode = ..ProductAPI.GeefProduct(ProductID).GeefDottedDossierCode() Do ..DnaCodeRepository.Bewaar(DnaCode) - If ProductIngegevenKenmerken.LadeType = "TBX" { + If ProductIngegevenKenmerken.LadeType = "Tandembox" { Set DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch) Set DnaCode.LadeCode = ..ProductAPI.GeefProduct(ProductID).GeefDottedDossierCode() Do ..DnaCodeRepository.Bewaar(DnaCode)