Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml =================================================================== diff -u -r71194 -r71196 --- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 71194) +++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 71196) @@ -158,7 +158,7 @@ Set ShipmentInfo.loadmeter = 0 Set ShipmentInfo.pickupDate = ..BepaalPickupDate(LeveringInfo,Rit) Set ShipmentInfo.noOfPackages = LeveringInfo.AantalVerpakkingEenhedenTotaal - Set ShipmentInfo.instruction = ..GeefInstruction(LeveringInfo) + Set ShipmentInfo.instruction = ..GeefInstruction(LeveringInfo,Rit) Set ShipmentInfo.incoterms = ..GeefIncoterms(Rit,LeveringInfo) if (Rit.GeefTransporteur() = Transporteur.VRD) { Set ShipmentInfo.requestedDeliveryDate = ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(LeveringInfo.AfleverDatum,"JJJJ-MM-DD") @@ -181,8 +181,7 @@ } Do ShipmentInfo.addresses.Insert(..GeefAfzenderAdres(LeveringInfo)) - Do ShipmentInfo.addresses.Insert(..GeefBestemmelingAdres(LeveringInfo,Rit)) - + Do ShipmentInfo.addresses.Insert(..GeefBestemmelingAdres(LeveringInfo,Rit)) Do ShipmentInfo.additionalReferences.Insert(..GeefVrachtwagenAdditionalReference(Rit)) Do ShipmentInfo.additionalReferences.Insert(..GeefKlantAdditionalReference(LeveringInfo)) Do ShipmentInfo.additionalReferences.Insert(..GeefZendingAdditionalReference(LeveringInfo)) @@ -233,7 +232,7 @@ If (Rit.GeefTransporteur() = Transporteur.Schenker) { If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen) ) { - Set Incoterms = "DAP" + Set Incoterms = "EXW" } } @@ -314,10 +313,13 @@ -LeveringInfo:APPS.TRANSP.dto.LeveringInfo +LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit 1 %String 0) { @@ -326,6 +328,9 @@ If (LeveringAdres.Opmerkingen.Count() > 1) { set Instruction = Instruction _ $Select($Length(Instruction):" ",1:"")_ LeveringAdres.Opmerkingen.GetAt(2) } + If (Rit.GeefTransporteur() = Transporteur.Schenker) && (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen)) { + Set Instruction = "Dostawa autem z winda" + } Quit ..BeperkLengteTot(Instruction,128) ]]> Index: vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingSchenker/doBookingRequestSchenker.xml =================================================================== diff -u -r71194 -r71196 --- vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingSchenker/doBookingRequestSchenker.xml (.../doBookingRequestSchenker.xml) (revision 71194) +++ vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingSchenker/doBookingRequestSchenker.xml (.../doBookingRequestSchenker.xml) (revision 71196) @@ -25,9 +25,10 @@ referentie + Dostawa autem z winda 2011-07-01 PREMIUM - DAP + EXW 0 0 2