"_(..WebTextValue("DataVersturen",Taal,"L"))

User cache %CSP.Page,cspBasis.GAProdTBox 1 code lbErrTypes cache 1 code %Status 1 code %Boolean " Write !,"

" Write !,..InsertHiddenFields("MailResult.csp"),! Write !,$c(9) Write "" Write !,$c(9) If '($D(%request.Data("OFFTOBBON"))) Goto %csp00001 ;{ Write !,$c(9) Write "" Write !,$c(9) %csp00001 ;} Write !,$c(9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9) If '($G(blnValidate)) Goto %csp00002 ;{ Write !," "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9) %csp00002 ;} Write !,$c(9) If '($G(blnError)) Goto %csp00006 ;{ Write !," "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9) Goto %csp00007 ;} %csp00006 ;{ Write !," "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9) %csp00007 ;} Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"

",! Write $c(9,9,9,9) Write "

" Write (..WebTextValue("DataVersturen",Taal,"L")) Write "

" Write !,$c(9,9,9)_"

",! Write $c(9,9,9)_" " If '(blnShowOrderBCombo) Goto %csp00003 ;{ Write !,$c(9,9,9)_" "_(..WebTextValue("Orderbevestiging",Taal,"L")),! Write $c(9,9,9)_" " Write "" Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9)_""_(..WebTextValue("Orderbevestiging_Keuzelijst",Taal,"L"))_"",! Write $c(9,9,9,9)_"
",! Write $c(9,9,9)_" " Write "" Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9,9) %csp00003 ;} Write !,$c(9,9,9,9)_(..WebTextValue("Levertijd",Taal,"L"))_": ",! Write $c(9,9,9,9) If '(blnShowLevTCombo) Goto %csp00004 ;{ Write !,$c(9,9,9,9)_"
",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9) Goto %csp00005 ;} %csp00004 ;{ Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9) %csp00005 ;} Write !,$c(9,9,9)_"

",! Write $c(9,9,9,9)_"

",! Write $c(9,9,9,9)_"APPLICATION ERROR: Unable to submit.
",! Write $c(9,9,9,9)_"Bookmark your order ('add to favorites' from the 'main page') and try again later.",! Write $c(9,9,9,9)_"

",! Write $c(9,9,9,9)_"

",! Write $c(9,9,9,9)_"APPLICATION ERROR: Impossible d'envoyer l'ordre.
",! Write $c(9,9,9,9)_"Sauver votre commande ('enregister' dans la 'page principale') et essayez à nouveau plus tard. ",! Write $c(9,9,9,9)_"

",! Write $c(9,9,9)_"

",! Write $c(9,9,9,9)_(..WebTextValue("Bijkomende opmerkingen",Taal,"L"))_":
",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"

",! Write $c(9) If '($G(blnError)) Goto %csp00008 ;{ Write !,$c(9,9,9,9) Write "" Write (..WebTextValue("Annuleren",Taal,"L")) Write "" Write !,$c(9) Goto %csp00009 ;} %csp00008 ;{ Write !,$c(9,9,9,9) Write "" Write (..WebTextValue("VerzendenMail",Taal,"L")) Write "" Write " " Write "" Write (..WebTextValue("Annuleren",Taal,"L")) Write "" Write !,$c(9) %csp00009 ;} Write !,$c(9,9,9)_"

",! Write "

" Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9) #define GetVertalingJS(%i,%tl,%tt) ##class(Res.Vertaling).GetVertalingPlus("TBW",%i,%tt,%tl,,1) Write !,$c(9)_""_(..WebTextValue("DataVersturen",Taal,"L"))_"",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write $c(9),! Write "" ]]> 1 code %Boolean " Write !,! Do ..Include("PRGACNTs.INC") Write !,! Set %session.AppTimeout = 905 Set sDomain=$$GetURLDomain^cspBasis.Library Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain) Set sDomVERW=$LG(##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW")),1) ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR")) Set blnVHEPN=(sDomVERW="VHEPN") Set Taal=$$DataFromRqOrSes^cspBasis.Library("Taal",,"N") Set wsID=$$DataFromRqOrSes^cspBasis.Library("WSID",,"") Set:($L(wsID)) %session.Data("WSID")=wsID Set KLNr=$$DataFromRqOrSes^cspBasis.Library("KLNR",,"") If KLNr>0 Do . Set SubmitMsg=##class(cspBasis.GAProdTBox).GetKlantSubmitMsg(sDomVERW,KLNr) ; LeverTijd is verplicht gegeven in geval van Bestelbon ;Do ##class(cspBasis.GAProdTBox).AddToLog("MAIL_DLGSEND",$$GetURLDomain^cspBasis.Library,$G(KLNr),,$G(wsID),$G(%session.Data("VERW")),$G(Taal),,"") New WSOrd Set:($L(wsID)) WSOrd=##class(WS.TBX.Order).%OpenId(wsID) If $IsObject($G(WSOrd)) Do . Set sLeverTijd=WSOrd.LeverTijd . Set blnValidate=((WSOrd.BonType="BBON")||((WSOrd.BonType="OFF")&&($G(%request.Data("OFFTOBBON",1))))||(WSOrd.BonType="INKP")) . Set blnError=0 . Set:($L(WSOrd.Opmerking1))&&(WSOrd.BonType'="OFF") SubmitMsg=WSOrd.Opmerking1 . Set blnShowOrderBCombo=(blnVHEPN) . If blnShowOrderBCombo Do . . Set lbOrderbevEmails = ..GetEmailAdressenLB(WSOrd.KLNummer) Else Do . Set blnValidate=0 . Set blnError=1 . ; For debugging reason: log OnOpen event of the MailSend.csp page . Do ##class(cspBasis.GAProdTBox).AddToLog("MAIL_DLGERR",sDomain,$G(KLNr),,$G(wsID),$G(%session.Data("VERW")),$G(Taal),,"") Set blnShowLevTCombo=(blnVHEPN) ; only for VHEPN domain If blnShowLevTCombo Do . Set LevTFieldName="cboLeverTijd" . Set lbLevT=..GetLeverWekenLB(sDomVERW,Taal) Else Do . Set LevTFieldName="txtLeverTijd" Set jsOnClick=$S(blnValidate:"if (ValidateSendMailFrm()) ", 1:"")_"document.frmSendMail.submit(); return true;" Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> c:\cachesys\csp\vhisie\TBX\MailSend.csp /vhisie/TBX/MailSend.csp 0 61921,59493 0