Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepaler.cls.xml =================================================================== diff -u -r69460 -r69933 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepaler.cls.xml (.../RijDataBepaler.cls.xml) (revision 69460) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepaler.cls.xml (.../RijDataBepaler.cls.xml) (revision 69933) @@ -219,8 +219,13 @@ Set RijData.ToeDos = ..GeefToeleveringDossierCode() Set RijData.Kleur = ..TAORKenmerken.DwarsverdelingKleur Set RijData.Lengte = ..TAORKenmerken.InterneBreedte - 90 + + If (..TAORKenmerken.DwarsverdelingType = ##class(DOM.PM.enu.TAORDwarsverdelingType).Dubbel()) { + Set RijData.DwvType = ##class(DOM.PM.enu.TAORDwarsverdelingType).Dubbel() + Set RijData.Lengte = RijData.Lengte _ "/" _ (..TAORKenmerken.InterneBreedte - 160) + } + Set RijData.AantalDwv = ..TAORKenmerken.AantalDwarsverdelingen - Set RijData.HoudersAantalEnKleur = ..TAORKenmerken.AantalDwarsverdelingen * 2 _ "/" _ ..TAORKenmerken.DwarsverdelingKleur Do ..RijDataLijstDwarsverdeling.Insert(RijData) } Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/RijDataDwarsverdeling.cls.xml =================================================================== diff -u -r69162 -r69933 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/RijDataDwarsverdeling.cls.xml (.../RijDataDwarsverdeling.cls.xml) (revision 69162) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/RijDataDwarsverdeling.cls.xml (.../RijDataDwarsverdeling.cls.xml) (revision 69933) @@ -11,15 +11,15 @@ TECH.String - + TECH.String - + TECH.String - + TECH.String Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/KolommenDefinitieDwarsverdelingZonderKar.cls.xml =================================================================== diff -u -r69162 -r69933 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/KolommenDefinitieDwarsverdelingZonderKar.cls.xml (.../KolommenDefinitieDwarsverdelingZonderKar.cls.xml) (revision 69162) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/KolommenDefinitieDwarsverdelingZonderKar.cls.xml (.../KolommenDefinitieDwarsverdelingZonderKar.cls.xml) (revision 69933) @@ -12,9 +12,9 @@ Do ..VoegToe("ProductieSequentieNummerVanTot", "Nr - Nr",, ##class(TECH.enu.TextAlignment).Right()) Do ..VoegToe("ToeDos", "Toe:Dos",9, ##class(TECH.enu.TextAlignment).Right()) Do ..VoegToe("Kleur", "Kleur", 6, ##class(TECH.enu.TextAlignment).Right()) - Do ..VoegToe("Lengte", "Lengte",, ##class(TECH.enu.TextAlignment).Right()) + Do ..VoegToe("DwvType", "Dwv Type",, ##class(TECH.enu.TextAlignment).Right()) + Do ..VoegToe("Lengte", "Lengte", 11, ##class(TECH.enu.TextAlignment).Right()) Do ..VoegToe("AantalDwv", "Aantal Dwv",, ##class(TECH.enu.TextAlignment).Right()) - Do ..VoegToe("HoudersAantalEnKleur", "Houders Aantal/Kleur",, ##class(TECH.enu.TextAlignment).Right()) Quit $$$OK ]]> Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/KolommenDefinitieDwarsverdelingMetKar.cls.xml =================================================================== diff -u -r69162 -r69933 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/KolommenDefinitieDwarsverdelingMetKar.cls.xml (.../KolommenDefinitieDwarsverdelingMetKar.cls.xml) (revision 69162) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/KolommenDefinitieDwarsverdelingMetKar.cls.xml (.../KolommenDefinitieDwarsverdelingMetKar.cls.xml) (revision 69933) @@ -12,9 +12,9 @@ Do ..VoegToe("Vak", "Vak",, ##class(TECH.enu.TextAlignment).Right()) Do ..VoegToe("ToeDos", "Toe:Dos",9, ##class(TECH.enu.TextAlignment).Right()) Do ..VoegToe("Kleur", "Kleur", 6, ##class(TECH.enu.TextAlignment).Right()) - Do ..VoegToe("Lengte", "Lengte",, ##class(TECH.enu.TextAlignment).Right()) + Do ..VoegToe("DwvType", "Dwv Type",, ##class(TECH.enu.TextAlignment).Right()) + Do ..VoegToe("Lengte", "Lengte", 11, ##class(TECH.enu.TextAlignment).Right()) Do ..VoegToe("AantalDwv", "Aantal Dwv",, ##class(TECH.enu.TextAlignment).Right()) - Do ..VoegToe("HoudersAantalEnKleur", "Houders Aantal/Kleur",, ##class(TECH.enu.TextAlignment).Right()) Quit $$$OK ]]>