Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r212 -r218
--- csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 212)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 218)
@@ -110,7 +110,9 @@
. Set msg="Invalid request URL parameter."_$$$CRLF_"Bad QueryString: "_tmpBadQS_$$$CRLF_"Ref="_$G(%request.Data("REF",1))_$$$CRLF_"Taal="_$G(%request.Data("Taal",1))_$$$CRLF_"!!! Page blocked - No access !!!"
. Do ophSendAlertMail(msg)
- Set WSOrd=$S($L($G(wsID)):##class(WS.TBX.Order).%OpenId(wsID), 1:0)
+ Set WSOrd=$S($L($G(wsID)):##class(WS.TBX.Order).%OpenId(wsID), 1:"")
+ Set TBXOrdersDto=##class(APPS.TBXWeb.dto.TBXOrderLijst).%New(##class(TECH.ListUtils).CreateListOfObjects(WSOrd),TBXContext)
+
Do ophSetHeaderLogo(WSOrd)
If ($IsObject(WSOrd))&&($$$Not(WSOrd.IsBonTypeGeldig())) {
Set msg="WARNING : wrong BonType for TBX.Order ID="_wsID
@@ -128,9 +130,9 @@
Set sMode=$G(RefArray("MODE"))
If sMode="" { Set blnNoAccess=1 }
ElseIf sMode="START" { Do ophMMStart }
- ElseIf sMode="COMPLETE" { Do ophMMComplete }
- ElseIf sMode="PROCESS" { Do ophMMProcess }
- ElseIf sMode="VIEW" { Do ophMMView }
+ ElseIf sMode="COMPLETE" { Do ophMMComplete(TBXOrdersDto) }
+ ElseIf sMode="PROCESS" { Do ophMMProcess(TBXOrdersDto) }
+ ElseIf sMode="VIEW" { Do ophMMView(TBXOrdersDto) }
ElseIf sMode="CONFIRM" { Do ophMMConfirm }
Else { Set blnNoAccess=1 }
Quit:(blnNoAccess) 1
@@ -428,8 +430,8 @@
Set arShow("NotRegUserInfo","INFO")=(TBXContext.IsDomeinVHEPN())&&(KLNr="")
Set arShow("NotRegUserInfoOPTIMA","INFO")=(TBXContext.KlantGegevensViaDataOpt())&&(KLNr="") ; &&('$D(%session.Data("DA TAOPT"))))
Quit
-ophMMComplete
- New WSOrd,blnDynaplugERR,IsDesignBeschikbaar,DS,IsSubmitBtnDisabled
+ophMMComplete(TBXOrdersDto)
+ New WSOrd,blnDynaplugERR,IsDesignBeschikbaar,DS
Set WSOrd=$S($L(wsID):##class(WS.TBX.Order).%OpenId(wsID), 1:0)
; Show Order Details
@@ -452,10 +454,14 @@
. // In deze situatie wordt dan een page-reload gestuurd.
. Set blnQuit=$$ophMMCompleteRecalcOfferte()
; Else Prepare buttons
- Set OnvoldoendeBestelhoeveelheid=($IsObject(WSOrd))&&($$$Not(WSOrd.HeeftVoldoendeBestelhoeveelheid(TBXContext)))
- Do:(OnvoldoendeBestelhoeveelheid) MShowOnvoldoendeBestelhoeveelheidText(WSOrd,TBXContext,Taal)
+
+ /*
+ If $IsObject(WSOrd) {
+ Set OnvoldoendeBestelhoeveelheid=$$$Not(TBXOrdersDto.HeeftVoldoendeBestelhoeveelheid())
+ }
+ */
Do MShowNotRegUser
- Do:(IsDesignBeschikbaar) MShowVervaldagOFFText
+ Do:(IsDesignBeschikbaar) MShowVervaldagOFFText(TBXOrdersDto,Taal)
; Positie van de tekst t.o.v. de buttons
Set TextPos=$S($IsObject(WSOrd)&&(WSOrd.IsSubmitted()):"LEFT", KLNr=$$$KLNrListAll:"LEFT", 1:"RIGHT")
@@ -468,8 +474,7 @@
; Button Show XML
Do MShowExportXML((TBXContext.IsBeschikbaarExportXML())&&((KLNr=$$$TBoxWebKlantNrVHEPN)||(KLNr=$$$TBoxWebKlantNrHEIN)) )
; Button Submit
- Set IsSubmitBtnDisabled = (blnOFFVervallen||blnDynaplugERR||OnvoldoendeBestelhoeveelheid)
- Do MShowSubmit(1,WSOrd,IsSubmitBtnDisabled)
+ Do MShowSubmit(1,WSOrd,(blnOFFVervallen||blnDynaplugERR),TBXOrdersDto,Taal)
; Button Modify Order
Do MShowModifyOrder(1,"COMPLETE")
; Button Create New from Order
@@ -506,7 +511,7 @@
; Else
Quit 0
-ophMMProcess
+ophMMProcess(TBXOrdersDto)
New WSOrd,blnProcessVH,blnQuit,blnAllowBulk,IsDesignBeschikbaar,DS
Set blnProcessVH=(TBXContext.IsDomeinVHEPN())||(VERW="VHEPN")
If blnProcessVH Do Quit:($G(blnQuit,0))
@@ -520,7 +525,7 @@
Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd)
Set IsDesignBeschikbaar=(WSOrd.IsLadeDesignBeschikbaar(.DS))
- Do MShowVervaldagOFFText
+ Do MShowVervaldagOFFText(TBXOrdersDto,Taal)
; Positie van de tekst t.o.v. de buttons
Set TextPos="RIGHT" ; $S($IsObject(WSOrd)&&(WSOrd.IsSubmitted()):"LEFT", 1:"RIGHT")
Set lbBulkConfig=TBXContext.BulkConfigOptiesUitbreiden(##class(cspBasis.GAProdTBox).GetKlantBulk(TBXContext.GeefDomeinVerwerker(),KLNr))
@@ -610,7 +615,7 @@
. ;Lock -WSTBXORD(wsID)
; Else
Quit 0
-ophMMView
+ophMMView(TBXOrdersDto)
New WSOrd
Do ophBuildToggleHistAndOrder()
Do MShowNotRegUser
@@ -619,7 +624,7 @@
; Show Order Details
Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd)
Set arShow("BrutoPrijsHein","INFO")=(TBXContext.IsDomeinHEIN())
- Do MShowVervaldagOFFText
+ Do MShowVervaldagOFFText(TBXOrdersDto,Taal)
; Button PrintPage
Do MShowPrintPage(1)
Set WSOrd=""
@@ -721,19 +726,27 @@
Set arShow("BookmarkPage","BTN")=Visible
Set arShow("BookmarkPage","HREF")="javascript:window.external.AddFavorite(location.href,'"_BookmTxt_"');"
Quit
-MShowSubmit(Visible,WSOrd,IsSubmitBtnDisabled)
+MShowSubmit(Visible,WSOrd,IsErrorOfVervallen,TBXOrdersDto,Taal)
#If ($$$NSpace="DEMO")
Quit ; Only on namespace "DEMO"
#EndIf
Quit:('$IsObject(WSOrd))
Quit:('$G(blnValidKlant,1))
Quit:($$$Not(WSOrd.IsBonTypeGeldig()))
- If $G(IsSubmitBtnDisabled,0) Do Quit
+
+ New IsSubmitBtnDisabled,OnvoldoendeBestelhoeveelheid
+ Set OnvoldoendeBestelhoeveelheid=$$$Not(TBXOrdersDto.HeeftVoldoendeBestelhoeveelheid())
+ Set IsSubmitBtnDisabled=(IsErrorOfVervallen)||(OnvoldoendeBestelhoeveelheid)
+
+ If IsSubmitBtnDisabled Do Quit
. Set arShow("Submit","BTN")=Visible
. Set arShow("SubmitAgain","BTN")=0
. Set arShow("Submit","HREF")=""
. Set arShow("Submit","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("VerzendenBBON",Taal,"L")
. Set arShow("Submit","INFO")=""
+ . If $$$Not(IsErrorOfVervallen) Do
+ . . Set arShow("Submit","JS_MSGBOX_TITEL")=TBXOrdersDto.BestellingNietGeplaatstJsTitel(Taal)
+ . . Set arShow("Submit","JS_MSGBOX_TEKST")=TBXOrdersDto.BestellingNietGeplaatstJsTekst(Taal)
; Else
New tmpAr,InternText,InternInfo,blnIsSubmitted
Merge tmpAr=tmpRq
@@ -915,30 +928,17 @@
Set arShow("KnownCustomer","LBL")=Visible
Set arShow("KnownCustomer","INFO")=""_##class(cspBasis.GAProdTBox).WebTextValue("Klant",Taal,"L",$LB("L"))_" "_""_KLNaam_""
Quit
-MShowVervaldagOFFText
- Set ExtraTekst=$S($IsObject($G(WSOrd)):WSOrd.ExtraTekst, 1:"")
- Quit:(ExtraTekst'["VVOFF-")
- New VVDate,InfoGeldigTotEindeActie
- Set VVDate=$P($P(ExtraTekst,"VVOFF-",2),";",1)
- Set arShow("VervaldagOFF","INFO")=1
- If ($IsObject(WSOrd))&&(WSOrd.BevatActies()) {
- Set arShow("VervaldagOFF","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("GeldigheidOFF_ofTotEindeActie",Taal,"O") ; "Deze offerte is 30 dagen geldig of tot einde actie."
- ; --> indien VVDate correct berekend is, dan :
- ; Set arShow("VervaldagOFF","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("GeldigheidOFF_ofTotEindeActie",Taal,"O")_" "_VVDate ; "Deze offerte is 30 dagen geldig of tot einde actie, tot" ...
+MShowVervaldagOFFText(TBXOrdersDto,Taal)
+ New Melding
+ Set Melding=TBXOrdersDto.GeefMeldingOfferteGeldig(Taal)
+ If $L(Melding) {
+ Set arShow("VervaldagOFF","INFO")=1
+ Set arShow("VervaldagOFF","TEXT")=Melding
}
Else {
- Set arShow("VervaldagOFF","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("GeldigheidOFF",Taal,"O")_" "_VVDate ; "Deze offerte is 30 dagen geldig, tot"
+ Set arShow("VervaldagOFF","INFO")=0
}
Quit
-
-MShowOnvoldoendeBestelhoeveelheidText(WSOrd,TBXContext,Taal)
- New Verpakking,VerpakkingOms,MinimaleBestelhoeveelheid
- Set Verpakking=WSOrd.GeefVerpakkingType()
- Set VerpakkingOms=##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_Verpakking,Taal,"L")
- Set MinimaleBestelhoeveelheid=TBXContext.GeefMinimaleBestelhoeveelheid(Verpakking)
- Set arShow("OnvoldoendeBestelhoeveelheid","INFO")=1
- Set arShow("OnvoldoendeBestelhoeveelheid","TEXT")=$$$Replace($$$Replace(##class(cspBasis.GAProdTBox).WebTextValue("MinimumBestelhoeveelheidVPK",Taal,"O"),"::Verpakking",VerpakkingOms),"::MinimaleBest",MinimaleBestelhoeveelheid)
- Quit
/*