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
]]>