Index: csp/vhisie/TBX/Main/tmpDev.mac.rou =================================================================== diff -u -r100 -r177 --- csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 100) +++ csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 177) @@ -445,7 +445,7 @@ Set arShow("NotRegUserInfoOPTIMA","INFO")=(TBXContext.KlantGegevensViaDataOpt())&&(KLNr="") ; &&('$D(%session.Data("DA TAOPT")))) Quit ophMMComplete - New WSOrd,blnDynaplugERR,IsDesignBeschikbaar,DS + New WSOrd,blnDynaplugERR,IsDesignBeschikbaar,DS,IsSubmitBtnDisabled Set WSOrd=$S($L(wsID):##class(WS.TBX.Order).%OpenId(wsID), 1:0) ; Show Order Details @@ -464,8 +464,12 @@ Set IsDesignBeschikbaar=('$IsObject(WSOrd))||(WSOrd.IsLadeDesignBeschikbaar(.DS)) Set blnOFFVervallen=($IsObject(WSOrd))&&(WSOrd.IsOfferteVervallen($H,.RedenVervallen)) If blnOFFVervallen Do Quit:($G(blnQuit,0)) - . Set blnQuit=$$ophMMCompleteRecalcOFF() + . // Als de "Recalc"-flag (via QueryString) op "1" staat, dan worden de prijzen van het WSOrd herberekend tijdens deze OnPreHTTP() + . // In deze situatie wordt dan een page-reload gestuurd. + . Set blnQuit=$$ophMMCompleteRecalcOfferte() ; Else Prepare buttons + Set OnvoldoendeBestelhoeveelheid=$$$Not(WSOrd.HeeftVoldoendeBestelhoeveelheid(TBXContext)) + Do:(OnvoldoendeBestelhoeveelheid) MShowOnvoldoendeBestelhoeveelheidText(WSOrd,TBXContext,Taal) Do MShowNotRegUser Do:(IsDesignBeschikbaar) MShowVervaldagOFFText @@ -480,7 +484,8 @@ ; Button Show XML Do MShowExportXML((TBXContext.IsBeschikbaarExportXML())&&((KLNr=$$$TBoxWebKlantNrVHEPN)||(KLNr=$$$TBoxWebKlantNrHEIN)) ) ; Button Submit - Do MShowSubmit(1,WSOrd,blnOFFVervallen||blnDynaplugERR) + Set IsSubmitBtnDisabled = (blnOFFVervallen||blnDynaplugERR||OnvoldoendeBestelhoeveelheid) + Do MShowSubmit(1,WSOrd,IsSubmitBtnDisabled) ; Button Modify Order Do MShowModifyOrder(1,"COMPLETE") ; Button Create New from Order @@ -493,7 +498,7 @@ Do ophBuildToggleHistAndOrder() Set WSOrd="" Quit -ophMMCompleteRecalcOFF() +ophMMCompleteRecalcOfferte() #define IsTextOnly(%v) (%v'?.E1C.E) New lbResult,tmpAr,sc If $G(%request.Data("RECALC",1))="1" Do Quit 1 @@ -732,14 +737,14 @@ Set arShow("BookmarkPage","BTN")=Visible Set arShow("BookmarkPage","HREF")="javascript:window.external.AddFavorite(location.href,'"_BookmTxt_"');" Quit -MShowSubmit(Visible,WSOrd,blnOFFVervallen) +MShowSubmit(Visible,WSOrd,IsSubmitBtnDisabled) #If ($$$NSpace="DEMO") Quit ; Only on namespace "DEMO" #EndIf Quit:('$IsObject(WSOrd)) Quit:('$G(blnValidKlant,1)) Quit:($$$Not(WSOrd.IsBonTypeGeldig())) - If $G(blnOFFVervallen,0) Do Quit + If $G(IsSubmitBtnDisabled,0) Do Quit . Set arShow("Submit","BTN")=Visible . Set arShow("SubmitAgain","BTN")=0 . Set arShow("Submit","HREF")="" @@ -942,8 +947,15 @@ } 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 - /*