#include APPS.TBXWeb
#include TECH.Error
 
 /*
  // Test SenderFakeDomain() routine
s From="Test@vanhoecke.be"
s lbTo=$LB("SendTo@vanhoecke.be")
s NewF=From  d tsmSenderFakeDomain^csp.vhisie.TBX.MailResult.tmpDev(.NewF,lbTo)  w "NewFrom="_NewF,!
 */
 
 
TBoxSendMail
	#define CSPPage          ##class(%CSP.Page)
	#define EMailValid(%v)   (%v?.E1"@".E1".".E)&&($L(%v,"@")=2)
	// E-mail adressen zijn gedefinieerd in  APPS.TBXWeb.EMailAdressen.inc 
 
 
	// handle submit of form!
	;Set wsID=$$DataFromRqOrSes^cspBasis.Library("WSID")
	;Set KLNr=$$DataFromRqOrSes^cspBasis.Library("KLNR")
	New ServerPrefix,lbWSErrs,blnOFFToBBON
	Set ServName=$$GetURLDomain^cspBasis.Library
	Set sComments=$$$Trim($G(%request.Data("COMMENTS",1),""))
	Set PageURL=%request.URL
	Set PageDomain=$P($P(PageURL,"://",2),"/",1)   ; tussen "http://" en de volgende "/"
	Set SubPath=PageURL
	Set:($L(PageDomain)) SubPath=$P(PageURL,PageDomain,2)
	Set SubPath=$P(SubPath,"/",1,$L(SubPath,"/")-1)
	
	Set ok = 0
	Set errmsg = ""
	Set:($L(wsID)) WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
	If '$G(WSOrd) Do  Quit
	. Set errmsg = "The wsID is not valid"
	If $L(PageDomain)&&$L(WSOrd.WebDomain)&&(WSOrd.WebDomain'=PageDomain) Do  Quit
	. Set errmsg = "The domain does not match the corresponding value in the order."
	// Else: 
	Set OrderbevEmail=$G(%request.Data("EMAILORDERBEVESTIGING",1)) 
	Set LevTOms=$G(%request.Data("LEVERTIJD",1))
	Set LevDatum=$G(%request.Data("LEVERTIJDID",1))
	Set:($IsValidNum(LevDatum)) LevTOms=$$$Replace(LevTOms,"?"," ")                              ; Added by WimV on 13/01/2010  - reason: Form submit converts   and "ô"-characters to "?" 
	Set:(LevDatum="ASAP")&&(LevTOms["ussit?t") LevTOms=$$$Replace(LevTOms,"ussit?t","ussitot")   ; Added by WimV on 05/02/2010  - reason: Form submit converts   and "ô"-characters to "?" 
	Set:($L(OrderbevEmail)) WSOrd.KLEMail=OrderbevEmail
	Set:($L(LevTOms)) WSOrd.LeverTijd=LevTOms
	Set:($L(LevDatum)) WSOrd.LeverTijdID=LevDatum
	;Set:($L(LevDatum))&&(LevTOms="") WSOrd.LeverTijd=LevDatum
	;Set:($D(%request.Data("LEVERTIJD"))) WSOrd.LeverTijd=$G(%request.Data("LEVERTIJD",1))
	Set:($L(sComments)) WSOrd.Opmerking1=sComments
	Set sc=WSOrd.%Save()
	Set blnOFFToBBON=(WSOrd.BonType="OFF")&&($G(%request.Data("OFFTOBBON",1))=1)
	Set blnViaNewImplementation=(sDomVERW?1(1"SFS",1"MBHO",1"HFLB"))   ; SFS en MBHolland gebruiken de nieuwe implementatie van APPS.TBXWeb.OrderHandling 
	If (blnOFFToBBON)&&('blnViaNewImplementation) Do   ; Status OFF change to BBON
	. Set WSOrd.BonType="BBON"
	
	Do tsmDetectWSErrors   ; vult lbWSErrs in als er fouten zijn
	//  invoke Send Mail code
	If sMode="PROCESS" Do
	. Quit:(blnViaNewImplementation)
	. Do tsmMailFldsDomainToVHEPN
	. Set WSOrd.BonType="INKP"
	Else  If sDomVERW="HEIN" Do
	. Do tsmMailFldsHEIN
	Else  If sDomVERW="LMC" Do
	. Do tsmMailFldsLMC
	Else  If sDomVERW="DUPO" Do
	. Do tsmMailFldsDUPO
	Else  If sDomVERW="HELMY" Do
	. Do tsmMailFldsHELMY
	Else  If sDomVERW="HFLE" Do
	. Do tsmMailFldsHFLE
	Else  If sDomVERW="SFS" Do
	. Do tsmMailFldsSFS
	Else  If sDomVERW="MBHO" Do
	. ;Do tsmMailFldsMBHO
	Else  If sDomVERW="HFLB" Do
	. ;Do tsmMailFldsHFLB
	Else  Do
	. Do tsmMailFldsVHEPN
	Set BodyIsStream=0
	
	If blnViaNewImplementation Do
	. New OHShop,OHRequester
	. Set OHShop=$S(sMode="PROCESS":"VHEPN", 1:sDomVERW)
	. Set OHRequester=sDomVERW
	. if ( sDomVERW="SFS" ) && ( WSOrd.KLNummer?1(1"10001",1"10002") ) set sc=$$$OK quit   ; SFS test gebruikers 
	. Set sc = ##class(APPS.TBXWeb.OrderHandling).Order(WSOrd.%Id(),OHShop,OHRequester)
	// anders bestaande code
	Else  Set sc=$$SendMiniMailXtd^cspBasis.Library(From,lbTo,Subject,Body,BodyIsStream)
	
	If (sDomVERW="LMC")&&(''sc) Do
	. Do WSOrd.AddToSubmitToVHLog("1")
	. Do tsmAddToLog
	. ; Send Extra mail: send copy to OPTIMA 
	. Do tsmMailFldsLMCToOPTIMA
	. Set sc=$$SendMiniMailXtd^cspBasis.Library(From,lbTo,Subject,Body,BodyIsStream)
	/*
	If (sDomVERW="SFS")&&(''sc) Do
	. Do WSOrd.AddToSubmitToVHLog("1")
	. Do tsmAddToLog
	. ; Send Extra mail: send copy to SFS 
	. Do tsmMailFldsSFSToSFS
	. Set sc=$$SendMiniMailXtd^cspBasis.Library(From,lbTo,Subject,Body,BodyIsStream)
	*/
	If $$$ISERR(sc) Do
	. Set errmsg=$$ParseStatus^vhLib(sc)_" From="_From
	. Set MInfo="ERROR"
	Else  Do
	. Set errmsg=""
	. Set ok=1
	. Do:('blnViaNewImplementation) tsmUpdateWSOrd
	Set WSOrd=""
	Do tsmAddToLog
	Quit
	
tsmDetectWSErrors
	New i,WSLn
	Set lbWSErrs=""
	Set i=""
	For  Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="")  Do
	. Set:(WSLn.KostPrijs["ERROR") lbWSErrs=lbWSErrs_$LB(i)
	Quit 
tsmUpdateWSOrd
    New sc
    If sMode="PROCESS" Do
    . Set MInfo="TO_VHEPN"
	. Set:($G(blnOFFToBBON)) WSOrd.SubmitTS=$ZDT($H,3)
	. Do WSOrd.AddToSubmitToVHLog("1")
	Else  Do
    . Set WSOrd.SubmitTS=$ZDT($H,3)
    Set sc=WSOrd.%Save()
	Quit
tsmMailFldsDomainToVHEPN
    Set From=$CASE(sDomVERW, "HELMY":$$$EMailAKHelmY, "SFS":$$$EMailAKSfs, "MBHO":$$$EMailAKMbho, "HFLE":$$$EMailAKHfle, "DUPO":$$$EMailAKDupo, :$$$EMailAKUnknown)
    
#If $ZCVT($ZUTIL(110),"U")["WWW"
	Set lbTo=$S(sDomVERW="SFS":$LB($$$EMailOVSfs2VH), 1:$LB("OV_TBX_KLANT@vanhoecke.be")) _ $S(sDomVERW'?1(1"HELMY",1"SFS",1"DUPO"):$LB("ICT_SupportTBX@vanhoecke.be"), 1:"")
    Set ServerPrefix=""
	  ; temporary, until development finished 
	  ;if sDomVERW="SFS" Set lbTo=$LB("ICT_SupportTBX@vanhoecke.be")   ; TEST FASE : overruled normale bestemming
#Else
	Set lbTo=$LB("""OV_TBX_KLANT"" <ICT_SupportTBX@vanhoecke.be>")
    Set ServerPrefix="["_$ZCVT($ZUTIL(110),"U")_"] "
#EndIf
	Set sBonType="Doorbestelling"   ; $CASE(WSOrd.BonType, :"")
	Set Subject=ServerPrefix_"TBox - "_sBonType_" - "_$ZDT($H,4)_""
	Set Body=""
	Set Body=Body_"*** OPGELET: Deze e-mail en onderstaande URL zijn alleen voor intern gebruik bedoeld ***"_$C(13,10)
	Set Body=Body_$C(13,10)
	Set Body=Body_"WEB AANVRAAG TANDEMBOX: "_$C(13,10)
	Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"VHEPN",wsID,"PROCESS")))_" ["_KLNr_"\VHEPN\"_wsID_"\PROCESS]"_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Do tsmMailFldsExtraN
	Set Body=Body_"--- End of message ---"_$C(13,10)
	Set BodyIsStream=0
	Quit
	
tsmMailFldsHEIN
    ;Set From=$S($$$EMailValid(WSOrd.KLEMail):$S($L(WSOrd.KLNaam):""""_WSOrd.KLNaam_""" ", 1:"")_"<"_WSOrd.KLEMail_">", 1:""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailAnon2Hein_">")
    Set From=""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailFrom2Any_">"
#If $ZCVT($ZUTIL(110),"U")["WWW"
    Set lbTo=$LB($$$EMailOVHein)   ; """HEIN OV."" <$$$EMailOVHein>"
    Set ServerPrefix=""
#Else
    Set lbTo=$LB($$$EMailOVHeinTEST)   ; """HEIN OV."" <$$$EMailOVHeinTEST>"
    Set ServerPrefix="["_$ZCVT($ZUTIL(110),"U")_"] "
#EndIf
	Set sBonType=$CASE(WSOrd.BonType, "OFFAV":"Anfrage/Angebot", "OFF":"Angebot", "BBON":"Auftrag", "INKP":"INKP", :"")
    Set Subject=ServerPrefix_"TBox - "_sBonType_" - "_$ZDT($H,4)_""
	Set Body=""
	;Set Body=Body_"*** ATTENTION: This e-mail and the URL below are for internal use ONLY ***"_$C(13,10)
	;Set Body=Body_$C(13,10)
	Set Body=Body_"ANFRAGE WEB TANDEMBOX: "_$C(13,10)
	Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=D&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"HEIN",wsID,"PROCESS")))_" ["_KLNr_"\HEIN\"_wsID_"\PROCESS]"_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Do tsmMailFldsExtraD
	Set Body=Body_"--- End of message ---"_$C(13,10)
	Set BodyIsStream=0
	Quit
tsmMailFldsDUPO
    ;Set From=$S($$$EMailValid(WSOrd.KLEMail):$S($L(WSOrd.KLNaam):""""_WSOrd.KLNaam_""" ", 1:"")_"<"_WSOrd.KLEMail_">", 1:""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailAnon2Dupo_">")
    Set From=""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailFrom2Any_">"
#If $ZCVT($ZUTIL(110),"U")["WWW"
    Set lbTo=$LB($$$EMailOVDupo)       ; """Du Pont OV."" <$$$EMailOVDupo>"
    Set ServerPrefix=""
#Else
    Set lbTo=$LB($$$EMailOVDupoTEST)   ; """Du Pont OV."" <$$$EMailOVDupoTEST>"
    Set ServerPrefix="["_$ZCVT($ZUTIL(110),"U")_"] "
#EndIf
	Set sBonType=$CASE(WSOrd.BonType, "OFFAV":"OfferteAanvraag", "OFF":"Offerte", "BBON":"Bestelbon", "INKP":"INKP", :"")
	Set Subject=ServerPrefix_"TBox - "_sBonType_" - "_$ZDT($H,4)_""
	Set Body=""
	Set Body=Body_"*** OPGELET: Deze e-mail en onderstaande URL zijn alleen voor intern gebruik bedoeld ***"_$C(13,10)
	Set Body=Body_$C(13,10)
	Set Body=Body_"WEB AANVRAAG TANDEMBOX: "_$C(13,10)
	Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"DUPO",wsID,"PROCESS")))_" ["_KLNr_"\DUPO\"_wsID_"\PROCESS]"_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Do tsmMailFldsExtraN
	Set Body=Body_"--- End of message ---"_$C(13,10)
	Set BodyIsStream=0
	Quit
tsmMailFldsHELMY
    ;Set From=$S($$$EMailValid(WSOrd.KLEMail):$S($L(WSOrd.KLNaam):""""_WSOrd.KLNaam_""" ", 1:"")_"<"_WSOrd.KLEMail_">", 1:""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailAnon2HelmY_">")
    Set From=""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailFrom2Any_">"
#If $ZCVT($ZUTIL(110),"U")["WWW"
    Set lbTo=$LB($$$EMailOVHelmY,$$$EMailOVHelmY02)       ; """Helmond OV."" <$$$EMailOVHelmY>"
    Set ServerPrefix=""
#Else
    Set lbTo=$LB($$$EMailOVHelmYTEST)   ; """Helmond OV."" <$$$EMailOVHelmYTEST>"
    Set ServerPrefix="["_$ZCVT($ZUTIL(110),"U")_"] "
#EndIf
	Set sBonType=$CASE(WSOrd.BonType, "OFFAV":"OfferteAanvraag", "OFF":"Offerte", "BBON":"Bestelbon", "INKP":"Inkooporder", :"")
	Set Subject=ServerPrefix_"TBox - "_sBonType_" - "_$ZDT($H,4)_""
	Set Body=""
	Set Body=Body_"*** OPGELET: Deze e-mail en onderstaande URL zijn alleen voor intern gebruik bedoeld ***"_$C(13,10)
	Set Body=Body_$C(13,10)
	Set Body=Body_"WEB AANVRAAG TANDEMBOX: "_$C(13,10)
	Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"HELMY",wsID,"PROCESS")))_" ["_KLNr_"\HELMY\"_wsID_"\PROCESS]"_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Do tsmMailFldsExtraN
	Set Body=Body_"--- End of message ---"_$C(13,10)
	Set BodyIsStream=0
	Quit
tsmMailFldsHFLE
    ;Set From=$S($$$EMailValid(WSOrd.KLEMail):$S($L(WSOrd.KLNaam):""""_WSOrd.KLNaam_""" ", 1:"")_"<"_WSOrd.KLEMail_">", 1:""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailAnon2Hfle_">")
    Set From=""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailFrom2Any_">"
#If $ZCVT($ZUTIL(110),"U")["WWW"
    Set lbTo=$LB($$$EMailOVHfle)       ; """Hafele OV."" <$$$EMailOVHfle>"
    Set ServerPrefix=""
#Else
    Set lbTo=$LB($$$EMailOVHfleTEST)   ; """Hafele OV."" <$$$EMailOVHfleTEST>"
    Set ServerPrefix="["_$ZCVT($ZUTIL(110),"U")_"] "
#EndIf
	Set sBonType=$CASE(WSOrd.BonType, "OFFAV":"OfferteAanvraag", "OFF":"Offerte", "BBON":"Bestelbon", "INKP":"Inkooporder", :"")
	Set Subject=ServerPrefix_"TBox - "_sBonType_" - "_$ZDT($H,4)_""
	Set Body=""
	Set Body=Body_"*** OPGELET: Deze e-mail en onderstaande URL zijn alleen voor intern gebruik bedoeld ***"_$C(13,10)
	Set Body=Body_$C(13,10)
	Set Body=Body_"WEB AANVRAAG TANDEMBOX: "_$C(13,10)
	Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"HFLE",wsID,"PROCESS")))_" ["_KLNr_"\HFLE\"_wsID_"\PROCESS]"_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Do tsmMailFldsExtraN
	Set Body=Body_"--- End of message ---"_$C(13,10)
	Set BodyIsStream=0
	Quit
tsmMailFldsLMC
	Do tsmMailFldsLMCToVHEPN
	Set WSOrd.BonType="INKP"
	Quit
tsmMailFldsLMCToVHEPN
	Do tsmMailFldsLMCToDest("VHEPN")
	Quit
tsmMailFldsLMCToOPTIMA
	Do tsmMailFldsLMCToDest("OPTIMA")
	Quit
tsmMailFldsLMCToDest(dest)
	Set From=""""_$S(dest="VHEPN":"[OPTIMA] ",1:"")_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailAnon2LMC_">"
#If $ZCVT($ZUTIL(110),"U")["WWW"
	If dest="VHEPN" Do
    . Set lbTo=$LB($S((WSOrd.KLNummer<1000)||(WSOrd.KLNaam="ClientTest"):$$$EMailOVLMC2VHTEST, 1:$$$EMailOVLMC2VH))   ; ,"ICT_SupportTBX@vanhoecke.be")
    Else  Do
    . Set lbTo=$LB($$$EMailOVLMC)          ; """LMC OV."" <$$$EMailOVLMC>"
    Set ServerPrefix=""
#Else
	If dest="VHEPN" Do
    . Set lbTo=$LB($$$EMailOVLMC2VHTEST)   ; """LMC VH-OV."" <$$$EMailOVLMC2VHTEST>"
    Else  Do
    . Set lbTo=$LB($$$EMailOVLMCTEST)      ; """OPTIMA OV."" <$$$EMailOVLMCTEST>"
    Set ServerPrefix="["_$ZCVT($ZUTIL(110),"U")_"] "
#EndIf
	Set sBonType=$CASE(WSOrd.BonType, "OFFAV":"Demande d'offre", "OFF":"Offre", "BBON":"Commande", "INKP":"Commande", :"")
	Set sKlant=$S(KLNr="":"[inconnue]", 1:WSOrd.KLNaam)
	Set Subject=ServerPrefix_"TBox - "_sBonType_" - "_sKlant
	Set Body=""
	If dest="VHEPN" Do
	. Set Body=Body_"*** ATTENTION: Ce e-mail et le URL ci-dessous sont exclusivement pour l'usage interne ***"_$C(13,10)
	. Set Body=Body_$C(13,10)
	Set Body=Body_"INTERNET COMMANDE TANDEMBOX: "_$C(13,10)
	If dest="VHEPN" Do
    . Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"VHEPN",wsID,"PROCESS")))_" ["_KLNr_"\VHEPN\"_wsID_"\PROCESS]"_$C(13,10)
    Else  Do
    . Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=F&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"LMC",wsID,"VIEW")))_" ["_KLNr_"\LMC\"_wsID_"\VIEW]"_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Do tsmMailFldsExtraF
	Set Body=Body_"--- End of message ---"_$C(13,10)
	Set BodyIsStream=0
	Quit
 
tsmMailFldsSFS
    Quit
    // SFS en MBHolland gebruiken de nieuwe implementatie van APPS.TBXWeb.OrderHandling 
    
tsmMailFldsMBHO
	$$$ThrowError($$$errGeneralError,"OrderHandling via Old method is disabled. OrderHandling must use new implementation.")
	Quit
 
tsmMailFldsHFLB
	$$$ThrowError($$$errGeneralError,"OrderHandling via Old method is disabled. OrderHandling must use new implementation.")
	Quit
 
 
tsmMailFldsVHEPN
	;Set From=$S($$$EMailValid(WSOrd.KLEMail):$S($L(WSOrd.KLNaam):""""_WSOrd.KLNaam_""" ", 1:"")_"<"_WSOrd.KLEMail_">", 1:""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <AdminTBX@vanhoecke.be>")
    Set From=""""_$S($L(WSOrd.KLNaam):WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailFrom2Any_">"
	;Set lbTo=$LB($S(KLNr="7833":"OV_TBX_HEIN@vanhoecke.be", KLNr>0:"OV_TBX_KLANT@vanhoecke.be", 1:"OV_TBX_ANON@vanhoecke.be"))
#If $ZCVT($ZUTIL(110),"U")["WWW"
	Set lbTo=$LB($S(KLNr="7833":"OV_TBX_HEIN@vanhoecke.be", KLNr="6279":"OV_TBX_OPTIMA@vanhoecke.be", KLNr="1759":"OV_TBX_OPTIMA@vanhoecke.be", KLNr="12486":$$$EMailOVSfs2VH, KLNr>0:"OV_TBX_KLANT@vanhoecke.be", 1:"OV_TBX_ANON@vanhoecke.be"))
    Set ServerPrefix=""
#Else
	Set lbTo=$LB(""""_$S(KLNr="7833":"OV_TBX_HEIN", KLNr="6279":"OV_TBX_OPTIMA", KLNr="1759":"OV_TBX_OPTIMA", KLNr="12486":"OV_TBX_SFS", KLNr>0:"OV_TBX_KLANT", 1:"OV_TBX_ANON")_""" <ICT_SupportTBX@vanhoecke.be>")
    Set ServerPrefix="["_$ZCVT($ZUTIL(110),"U")_"] "
#EndIf
	Set sBonType=$CASE(WSOrd.BonType, "OFFAV":"OfferteAanvraag", "OFF":"Offerte", "BBON":"Bestelbon", "INKP":"INKP", :"")
	Set sKlant=$S(KLNr="":"[Niet aangemeld]", 1:WSOrd.KLNaam)
	Set Subject=ServerPrefix_"TBox - "_sBonType_" - "_sKlant
	Set Body=""
	Set Body=Body_"*** OPGELET: Deze e-mail en onderstaande URL zijn alleen voor intern gebruik bedoeld ***"_$C(13,10)
	Set Body=Body_$C(13,10)
	Set Body=Body_"WEB AANVRAAG TANDEMBOX: "_$C(13,10)
	Set Body=Body_"      "_("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"VHEPN",wsID,"PROCESS")))_" ["_KLNr_"\VHEPN\"_wsID_"\PROCESS]"_$C(13,10)
	;Set Body=Body_"      "_$$$CSPPage.Link("http://"_ServName_SubPath_"/"_"Main.csp?Taal=N&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,"VHEPN",wsID,"PROCESS")))_" ["_KLNr_"\VHEPN\"_wsID_"\PROCESS]"_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Do tsmMailFldsExtraN 
	Set Body=Body_"--- End of message ---"_$C(13,10)
	Set BodyIsStream=0
	Quit
tsmMailFldsExtraN
	If $LL(lbWSErrs) Do
	. Set Body=Body_"OPGEPAST:  **** Fouten bij ingave ****"_$C(13,10)
	. Set Body=Body_"  Ongeldige data op lijn(en) "_$$$LCVT(lbWSErrs)_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	If $L($$$Trim(sComments)) Do
	. Set Body=Body_"Bijkomende opmerkingen:"_$C(13,10)
	. Set Body=Body_sComments_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Set Body=Body_" [ Aangemaakt op "_$ZDT($H,4)_" ] "_$C(13,10)
	Quit
tsmMailFldsExtraF
	If $LL(lbWSErrs) Do
	. Set Body=Body_"ATTENTION:  **** Des erreurs dans les données  ****"_$C(13,10)
	. Set Body=Body_"  Données non-valables sur les ligne(s) "_$$$LCVT(lbWSErrs)_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	If $L($$$Trim(sComments)) Do
	. Set Body=Body_"Remarques additionelles:"_$C(13,10)
	. Set Body=Body_sComments_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Set Body=Body_" [ Created on "_$ZDT($H,4)_" ] "_$C(13,10)   ; Créé le
	Quit
tsmMailFldsExtraE
	If $LL(lbWSErrs) Do
	. Set Body=Body_"CAUTION:  **** Data entry contains errors  ****"_$C(13,10)
	. Set Body=Body_"  Invalid data on following line(s): "_$$$LCVT(lbWSErrs)_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	If $L($$$Trim(sComments)) Do
	. Set Body=Body_"Additional comments:"_$C(13,10)
	. Set Body=Body_sComments_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Set Body=Body_" [ Created on "_$ZDT($H,4)_" ] "_$C(13,10)
	Quit
tsmMailFldsExtraD
	If $LL(lbWSErrs) Do
	. Set Body=Body_"BEACHTUNG:  **** Fehler an der Dateneingabe ****"_$C(13,10)
	. Set Body=Body_"  Invalid data at row(s) "_$$$LCVT(lbWSErrs)_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	If $L($$$Trim(sComments)) Do
	. Set Body=Body_"Weitere Bemerkungen/Zusätzliche Notizen:"_$C(13,10)
	. Set Body=Body_sComments_$C(13,10)
	. Set Body=Body_""_$C(13,10)
	Set Body=Body_""_$C(13,10)
	Set Body=Body_" [ Created on "_$ZDT($H,4)_" ] "_$C(13,10)
	Quit
	
tsmAddToLog
 New sDomain,lbExtras,MailTo
 Set MailTo=$TR($$$LCVT($G(lbTo)),"""","")
 Set:(MailTo?1"(".E1")") MailTo=$E(MailTo,2,$L(MailTo)-1)
 Set lbExtras=""
 Set:($L($G(From))) lbExtras=lbExtras_$LB("MailFrom="_$TR(From,"""","")) 
 Set:($L($G(lbTo))) lbExtras=lbExtras_$LB("MailTo="_MailTo)
 Set:($L($G(sComments))) lbExtras=lbExtras_$LB("MailComment="_sComments)
 Set:($L($G(errmsg))) lbExtras=lbExtras_$LB("Msg="_errmsg)
 Do ##class(cspBasis.GAProdTBox).AddToLog("MAIL_SEND",ServName,$G(KLNr),$G(MInfo),wsID,$G(%session.Data("VERW")),$G(Taal),,lbExtras)
 ;Do ##class(cspBasis.GAProdTBox).AddToLog(Actie,Domain,KLNr,WizMode,wsID,Verwerker,Taal,VhisieLogin,lbExtras)
 Quit
 
 
 // Test routine voor het manueel zenden van Submit-order mails
 // WSOrd is Object of objID
 // 
 // Oproepen via  w $$ManualMail^csp.vhisie.TBX.MailResult.tmpDev
ManualMail(WSOrd,sDomVERW,sMode,KLNr,sComments,blnTestTo)
	New wsID,From,lbTo,Subject,Body,BodyIsStream,ServName,SubPath,ReplyTo
	Do mmlGetOrder
	Quit:('$IsObject(WSOrd)) 0
	Do mmlSetDefaults
	Do mmlSetMailParams
	Set lbTo=lbTo_$LB("wv@vanhoecke.be")
	Set:($G(blnTestTo)) lbTo=$LB("wv@vanhoecke.be")
	Set ReplyTo="wv@vanhoecke.be"   ; is enkel informatief, n.v.t. bij delivery-reports
    Set sc=$$SendMiniMailXtd^cspBasis.Library(From,lbTo,Subject,Body,BodyIsStream,,,,,$G(ReplyTo))
	Quit $S($$$ISOK(sc):"Mail sent", 1:$$ParseStatus^vhLib(sc))
mmlSetDefaults
	Set sDomVERW=$G(sDomVERW,"VHEPN")
	Set sMode=$G(sMode,"COMPLETE")
	Set:$G(KLNr)="" KLNr=WSOrd.KLNummer
	Set ServName=WSOrd.WebDomain
    Set SubPath="/VHISIE/TBX"
    Set sComments=$G(sComments,"")
    Set %request=""
	Quit
mmlGetOrder
	If $IsObject(WSOrd) Do
	. Set wsID=WSOrd.%Id()
	Else  Do
	. Set wsID=WSOrd
	. Set WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
	Quit
mmlSetMailParams
 	Do tsmDetectWSErrors   ; vult lbWSErrs in als er fouten zijn
 	//  invoke Send Mail code
    If sMode="PROCESS" Do
    . Do tsmMailFldsDomainToVHEPN
    . ;Set WSOrd.BonType="INKP"
    Else  If sDomVERW="HEIN" Do
    . Do tsmMailFldsHEIN
    Else  If sDomVERW="LMC" Do
    . Do tsmMailFldsLMC
    Else  If sDomVERW="DUPO" Do
    . Do tsmMailFldsDUPO
    Else  If sDomVERW="HELMY" Do
    . Do tsmMailFldsHELMY
    Else  If sDomVERW="HFLE" Do
    . Do tsmMailFldsHFLE
    Else  If sDomVERW="SFS" Do
    . Do tsmMailFldsSFS
    Else  If sDomVERW="MBHO" Do
    . Do tsmMailFldsMBHO
    Else  If sDomVERW="HFLB" Do
    . Do tsmMailFldsHFLB
    Else  Do
    . Do tsmMailFldsVHEPN
	Set BodyIsStream=0
	Quit