Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml =================================================================== diff -u -r59952 -r59989 --- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 59952) +++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 59989) @@ -168,16 +168,12 @@ #dim LeveringAdres As APPS.TRANSP.dto.LeveringAdres = LeveringInfo.LeverAdres #dim Instruction as %String = "" If ($$$HasLength(LeveringAdres.Volmacht)) { - Do ##class(Tools.Wlip).%New(207).String("Volmacht " _ LeveringAdres.Volmacht) Set Instruction = LeveringAdres.Volmacht } If (LeveringAdres.Opmerkingen.Count() > 0) { - Do ##class(Tools.Wlip).%New(207).String("Opmerking Count " _ LeveringAdres.Opmerkingen.Count()) - Do ##class(Tools.Wlip).%New(207).String("Opmerking 1 " _LeveringAdres.Opmerkingen.GetAt(1)) set Instruction = Instruction _ $Select($Length(Instruction):$$$CRLF,1:"")_ LeveringAdres.Opmerkingen.GetAt(1) } If (LeveringAdres.Opmerkingen.Count() > 1) { - Do ##class(Tools.Wlip).%New(207).String("Opmerking 1 " _LeveringAdres.Opmerkingen.GetAt(2)) set Instruction = Instruction _ $Select($Length(Instruction):$$$CRLF,1:"")_ LeveringAdres.Opmerkingen.GetAt(2) } Quit ..BeperkLengteTot(Instruction,128)