Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml =================================================================== diff -u -r59989 -r59996 --- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 59989) +++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 59996) @@ -115,7 +115,6 @@ Set ShipmentInfo.loadmeter = 0 Set ShipmentInfo.noOfPackages = LeveringInfo.AantalVerpakkingEenhedenTotaal Set ShipmentInfo.instruction = ..GeefInstruction(LeveringInfo) - Set ShipmentInfo.description = ..BeperkLengteTot(..GeefOpmerking1en2(LeveringInfo),48) ; op etiket voor VRD #dim GewichtPerEenheid as %Numeric = ##class(TECH.Math).Round(LeveringInfo.Gewicht / LeveringInfo.AantalVerpakkingEenhedenTotaal,2) set it = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden) #dim Linecounter as %Integer = 0 @@ -209,7 +208,6 @@ Set Bestemmeling.name = ..BeperkLengteTot(LeveringInfo.LeverAdres.Naam,64) Set Bestemmeling.street1 = ..BeperkLengteTot(..FormatteerStraat(LeveringInfo.LeverAdres.Straat), 64) - Set Bestemmeling.street2 = ..BeperkLengteTot(..GeefOpmerking1en2(LeveringInfo),64) Set Bestemmeling.city = ..BeperkLengteTot(LeveringInfo.LeverAdres.Woonplaats,64) Set Bestemmeling.zipCode = ..BeperkLengteTot(..FormatteerPostcode(LeveringInfo.LeverAdres.LandCode , LeveringInfo.LeverAdres.Postcode),16) Set Bestemmeling.countryCode = ..BeperkLengteTot(LeveringInfo.LeverAdres.LandCode,3) @@ -238,22 +236,6 @@ ]]> - -LeveringInfo:APPS.TRANSP.dto.LeveringInfo -1 -%String - 0) { - set Opmerking = LeveringInfo.LeverAdres.Opmerkingen.GetAt(1) - } - If (LeveringInfo.LeverAdres.Opmerkingen.Count() > 1) { - set Opmerking = Opmerking _ $Select($Length(Opmerking):" ",1:"")_ LeveringInfo.LeverAdres.Opmerkingen.GetAt(2) - } - Quit Opmerking -]]> - - Lijnnummmer:%Integer,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,Gewicht:%Numeric 1