Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r55619 -r55804
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml (.../Handel.cls.xml) (revision 55619)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml (.../Handel.cls.xml) (revision 55804)
@@ -87,8 +87,10 @@
#dim Winkelkar as APPS.EC.Winkelkar = ..WinkelkarService.OpenWinkelkar(..Offerte.GeefWinkelkarID())
Do ..DoorHandelMeeleverensMelder.Init()
Do Winkelkar.Accept(..DoorHandelMeeleverensMelder)
- If ..DoorHandelMeeleverensMelder.HeeftMeeleverens(){
+ If ..DoorHandelMeeleverensMelder.HeeftMeeleverens(){
+ Do ..Mail.VoegToeLijn("")
Do ..Mail.VoegToeLijn(..GeefVertaling("MeeleverenDoorHandelText"))
+ Do ..Mail.VoegToeLijn("")
#dim MeeleverenPRNrIterator as TECH.Iterator = ..DoorHandelMeeleverensMelder.GeefMeeleverensPRNrIterator()
while MeeleverenPRNrIterator.HasNext(){
#dim PRNr as %String = MeeleverenPRNrIterator.Next()
@@ -115,14 +117,13 @@
Do ..Mail.VoegToeLijn(..GeefVertaling("Aanspreking") _ ", ")
Do ..Mail.VoegToeLijn("")
Do ..Mail.VoegToeLijn(..GeefVertaling("Intro"))
+ Do ..Mail.VoegToeLijn("")
Do ..Mail.VoegToeLijn(..GeefVertaling("BestellingLabel") _ ": " _ $$$If(..Offerte.GeefExterneId(),..Offerte.GeefExterneId(),..Offerte.GeefID()))
- Do ..Mail.VoegToeLijn(..GeefVertaling("KlantLabel") _ ": ")
- Do ..Mail.VoegToeLijn(..KlantDataReferentieBepaler.GeefKlantDataReferentie(..Offerte))
+ Do ..Mail.VoegToeLijn(..GeefVertaling("KlantLabel") _ ": " _ ..KlantDataReferentieBepaler.GeefKlantDataReferentie(..Offerte))
If $$$Not(..Offerte.GeefDocumentReferenties().OrderReferentie = "") {
Do ..Mail.VoegToeLijn("")
- Do ..Mail.VoegToeLijn(..GeefVertaling("ReferentieLabel") _ ": ")
- Do ..Mail.VoegToeLijn(..Offerte.GeefDocumentReferenties().OrderReferentie)
+ Do ..Mail.VoegToeLijn(..GeefVertaling("ReferentieLabel") _ ": " _ ..Offerte.GeefDocumentReferenties().OrderReferentie)
}
If $$$Not(..Offerte.GeefBestelOpmerking() = "") {
@@ -140,11 +141,9 @@
}
Do ..Mail.VoegToeLijn("")
- Do ..Mail.VoegToeLijn(..GeefVertaling("SluitWebshop"))
- Do ..Mail.VoegToeLijn("")
- Do ..Mail.VoegToeLijn(..GeefVertaling("VerwerkBestelling"))
- Do ..Mail.VoegToeLijn("" _ VerwerkBestellingURL _ "")
+ Do ..Mail.VoegToeLijn(..GeefVertaling("VerwerkBestelling") _ "" _ VerwerkBestellingURL _ "")
+
Do ..Mail.VoegToeLijn("")
Do ..Mail.VoegToeLijn(..GeefVertaling("PrintBestelling") _ "" _ AlleenLezenURL _ "")
Do ..Mail.VoegToeLijn("")