#include APPS.TBXWeb
#include TECH.Error
 
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 
 
	New ServerPrefix,lbWSErrs,blnOFFToBBON
	Set ServName=$$GetURLDomain^cspBasis.Library
	Set sComments=$$$Trim($G(%request.Data("COMMENTS",1),""))
	
	Set PageURL=%request.CgiEnvs("SERVER_NAME")
 
	Set PageDomain=%request.CgiEnvs("SERVER_NAME")
	if ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.Library_TestDomeinenOmzetten") {
		set PageDomain = ##class(APPS.TBXWeb.Utils.TestUtils).GeefDomeinNaam(PageDomain)
	}
	
	Set ok = 0
	Set errmsg = ""
	Set:($L(wsID)) WSOrd=##class(WS.TBX.OrderAbstract).%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."
 
	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(sComments)) WSOrd.Opmerking1=sComments
	Set sc=WSOrd.%Save()
	Set blnOFFToBBON=(WSOrd.BonType="OFF")&&($G(%request.Data("OFFTOBBON",1))=1)
	
	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 
	new OrderService set OrderService = ##class(APPS.TBXWeb.OrderService).%New()
	set sc = OrderService.Bestel(WSOrd.%Id(),OHShop,OHRequester)
	
	If $$$ISERR(sc) {
		Set errmsg=$$ParseStatus^vhLib(sc)_" From="_$G(From)_"  - "_sDomVERW
		Set MInfo="ERROR" }
	Else {
		Set errmsg=""
		Set ok=1
		Set WSOrd=""
	}
	Quit