Index: csp/vhisie/TBX/Main/tmpDev.mac.rou =================================================================== diff -u -r868 -r869 --- csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 868) +++ csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 869) @@ -132,6 +132,7 @@ Set msg=msg_$$$CRLF_" De gebruiker kan de MainPage wel bekijken en kan zijn order nog wel doorsturen. Andere acties zoals 'Wijzigen order' zijn ook mogelijk. Indien Haefele, dan zal import in hun SAP-systeem falen." Set msg=msg_$$$CRLF Do ophSendAlertMail(msg) + Set:((blnHFLB || blnHFLE || blnVHEPN) && ($IsObject($G(%request)))) %request.Data("RECALC",1)="1" } ;Do ophSetHeaderLogo(WSOrd) @@ -482,10 +483,12 @@ Else Do . Set blnDynaplugERR=0 + New IsAankoopPrijsIngevuld,blnQuit Set IsDesignBeschikbaar=('$IsObject(WSOrd))||(WSOrd.IsLadeDesignBeschikbaar(.DS,LadeDesignControleur)) Set ZijnAlleGeleidersBeschikbaar=('$IsObject(WSOrd))||(WSOrd.ZijnAlleGeleidersBeschikbaar()) + Set IsAankoopPrijsIngevuld=($IsObject(WSOrd))&&(WSOrd.IsAankoopPrijsIngevuld()) Set blnOFFVervallen=($IsObject(WSOrd))&&(WSOrd.IsOfferteVervallen($H,.RedenVervallen)) - If blnOFFVervallen Do Quit:($G(blnQuit,0)) + If blnOFFVervallen || ($$$Not(IsAankoopPrijsIngevuld)) Do Quit:($G(blnQuit,0)) . // 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()