Index: APPS/TBXWeb/dto/TBXOrderLijst.cls.xml =================================================================== diff -u --- APPS/TBXWeb/dto/TBXOrderLijst.cls.xml (revision 0) +++ APPS/TBXWeb/dto/TBXOrderLijst.cls.xml (revision 218) @@ -0,0 +1,143 @@ + + + +vhLib.Macro +1 +%RegisteredObject +0 + + +APPS.TBXWeb.TBXContext +1 + + + + +Lijst van WS.TBX.Order (meestal slechts één object) +%ListOfObjects +1 + + + +%Integer +1 + + + +%String +1 + + + +LijstTBXOrders:%ListOfObjects,TBXContext:APPS.TBXWeb.TBXContext +1 +1 +%Status + + + + +%String + + + + +%String + + + + +Taal:%String +%String + indien we Vervaldatum correct kunnnen berekenen, dan : + ; Set OfferteGeldigheidTekst=$$$Replace(##class(cspBasis.GAProdTBox).WebTextValue("OfferteGeldigheidTekst_ofTotEindeActie",Taal,"O"),"::VervalDatum",Vervaldatum) ; "Deze offerte is 30 dagen geldig of tot einde actie, tot" ... + Set OfferteGeldigheidTekst=##class(cspBasis.GAProdTBox).WebTextValue("OfferteGeldigheidTekst_ofTotEindeActie",Taal,"O") ; "Deze offerte is 30 dagen geldig of tot einde actie." + } + Else { + Set OfferteGeldigheidTekst=$$$Replace(##class(cspBasis.GAProdTBox).WebTextValue("OfferteGeldigheidTekst",Taal,"O"),"::VervalDatum",Vervaldatum) ; "Deze offerte is 30 dagen geldig, tot" + } + } + If (..MinimaleBestelhoeveelheid>1) { + Set VerpakkingOmschrijving=##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_..VerpakkingType,Taal,"L") + Set OfferteVoorwaardenTekst=##class(cspBasis.GAProdTBox).WebTextValue("OfferteVoorwaardenTekst",Taal,"O") ; de placeholders nog te vervangen : volgende lijn! + Set Melding=$$$Replace($$$Replace($$$Replace(OfferteVoorwaardenTekst,"::MinimaleBest",..MinimaleBestelhoeveelheid),"::Verpakking",VerpakkingOmschrijving),"::OfferteGeldigTekst",OfferteGeldigheidTekst) + } + Else { + Set Melding=OfferteGeldigheidTekst_"." + } + + Quit Melding +]]> + + + +Taal:%String +%String + + + + +Taal:%String +%String +1) { + Set VerpakkingOmschrijving=..GeefJavascriptVertaling("VPK_"_..VerpakkingType,Taal,"L") + Set Melding=$$$Replace($$$Replace(..GeefJavascriptVertaling("jsBestellingNietGeplaatstParagraafTekst",Taal,"O"),"::MinimaleBest",..MinimaleBestelhoeveelheid),"::Verpakking",VerpakkingOmschrijving) + } + Quit Melding +]]> + + + +%String + + + +%Boolean + + + + +1 +Intern:%String,Taal:%String="N",TextType:%String="L" +1 +%String + + + + Index: WV GAProduct DMZ.prj.xml =================================================================== diff -u -r201 -r218 --- WV GAProduct DMZ.prj.xml (.../WV GAProduct DMZ.prj.xml) (revision 201) +++ WV GAProduct DMZ.prj.xml (.../WV GAProduct DMZ.prj.xml) (revision 218) @@ -1,6 +1,6 @@ - + @@ -39,6 +39,7 @@ + Index: vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml =================================================================== diff -u -r177 -r218 --- vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml (.../TestWSOrder.cls.xml) (revision 177) +++ vhUnitTest/APPS/TBXWeb/TestWSOrder.cls.xml (.../TestWSOrder.cls.xml) (revision 218) @@ -26,6 +26,15 @@ + + + + @@ -43,6 +52,29 @@ ]]> + + + + 1 WS.TBX.Order @@ -88,5 +120,13 @@ Quit TBXContext ]]> + + +1 + + Index: APPS/TBXWeb/TBXContext.cls.xml =================================================================== diff -u -r210 -r218 --- APPS/TBXWeb/TBXContext.cls.xml (.../TBXContext.cls.xml) (revision 210) +++ APPS/TBXWeb/TBXContext.cls.xml (.../TBXContext.cls.xml) (revision 218) @@ -912,6 +912,11 @@ Set MinimaleBestelhoeveelheid=6 } } + ElseIf (..IsVHEPN) { + If (Verpakking="X")||(Verpakking="Y")||(Verpakking="O")||(Verpakking="C") { + Set MinimaleBestelhoeveelheid=6 + } + } Quit MinimaleBestelhoeveelheid ]]> Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou =================================================================== diff -u -r100 -r218 --- csp/vhisie/TBX/Wizard/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 100) +++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 218) @@ -106,6 +106,7 @@ // Bulk Settings Set lbBulkConfig=TBXContext.GeefBulkConfigOpties(KLNr) Set lbAllowVPK=$S($LG(lbBulkConfig,1)'?1(1"",1"S"):$LB("S")_$$PiecesToList^vhLib($LG(lbBulkConfig,1),";"), 1:"") ; _$LB("O","C","A","B","P","X","Y","Z") ; Indien alleen Stukverpakking, dan leeg, anders $LB("S")_$LB(...) + Set MinimaleBestelhoeveelheid=TBXContext.GeefMinimaleBestelhoeveelheid("X") // BL voor Defaults Set blTBoxDfl=##class(cspBasis.GAProdDfls).Instantiate() 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 /*