Index: DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml =================================================================== diff -u -r734 -r1044 --- DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml (.../Verlanglijst.cls.xml) (revision 734) +++ DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml (.../Verlanglijst.cls.xml) (revision 1044) @@ -1,5 +1,5 @@ - + Verlanglijst. Een verlanglijst kan concrete producten bevatten, tekstlijnen en @@ -14,7 +14,7 @@ TECH.Error,vhLib.Macro 1 %Persistent -61964,39753.995213 +62199,64133.707274 61909,56218.627839 0 @@ -275,11 +275,18 @@ ID:%Integer="" Verlanglijst + +1 +%Integer + + + %Library.CacheStorage ^DOM.EC.OL.VerlanglijstD @@ -303,5 +310,5 @@ - + Index: APPS/Web/OLParticulier/impl/VerlanglijstAbstract.cls.xml =================================================================== diff -u -r734 -r1044 --- APPS/Web/OLParticulier/impl/VerlanglijstAbstract.cls.xml (.../VerlanglijstAbstract.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/VerlanglijstAbstract.cls.xml (.../VerlanglijstAbstract.cls.xml) (revision 1044) @@ -1,10 +1,11 @@ - + TECH.Error,vhLib.Macro 1 APPS.Web.OLParticulier.Verlanglijst -62063,47721.415959 +62199,63652.753362 +62185,43352.574118 0 @@ -17,13 +18,13 @@ $$$chkRequiredParameter(VerlanglijstID) - set Document = ##class(DOM.EC.OL.Verlanglijst.Verlanglijst).OpenOrCreate(VerlanglijstID) - - set ProductLijnTeller = ##class(DOM.EC.OL.Verlanglijst.Visitor.ProductLijnTeller).%New() - do Document.Accept(ProductLijnTeller) - - set Aantal = +ProductLijnTeller.Aantal - + set Aantal = 0 + set Document = ##class(DOM.EC.OL.Verlanglijst.Verlanglijst).Open(VerlanglijstID) + if $IsObject(Document) { + set ProductLijnTeller = ##class(DOM.EC.OL.Verlanglijst.Visitor.ProductLijnTeller).%New() + do Document.Accept(ProductLijnTeller) + set Aantal = +ProductLijnTeller.Aantal + } quit Aantal ]]> @@ -100,5 +101,5 @@ ]]> - + Index: DOM/EC/OL/Winkelkar/Winkelkar.cls.xml =================================================================== diff -u -r946 -r1044 --- DOM/EC/OL/Winkelkar/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 946) +++ DOM/EC/OL/Winkelkar/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 1044) @@ -1,5 +1,5 @@ - + Winkelkar. Een Winkelkar kan concrete producten bevatten, tekstlijnen en @@ -14,7 +14,7 @@ TECH.Error,vhLib.Macro 1 %Persistent -62167,59151.676495 +62199,64565.715915 61909,56218.627839 0 @@ -259,7 +259,6 @@ set scSaveOfferte = %blFlowOfferte.Save() // offerte nogmaals opslaan if $$$ISERR(scSaveOfferte) $$$ThrowErrorStatus($$$errSaveFailed,"Offerte",scSaveOfferte) - quit ]]> @@ -327,11 +326,18 @@ ID:%Integer="" Winkelkar + +1 +%Integer + + + %Library.CacheStorage ^DOM.EC.OL.WinkelkarD @@ -352,5 +358,5 @@ - + Index: WS/Web/OLParticulier/Winkelkar.cls.xml =================================================================== diff -u -r734 -r1044 --- WS/Web/OLParticulier/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 734) +++ WS/Web/OLParticulier/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 1044) @@ -1,29 +1,12 @@ - + 1 WS.WebService -62068,52645.182657 +62200,52634.28592 +62185,43725.496388 0 - - -URL for invoking the WebService. -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache01.vanhoecke.be/vhisie3 - - - -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache02.vanhoecke.be/csp/tst-admin1 - - Name of the WebService. @@ -350,5 +333,5 @@ ]]> - + Index: APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml =================================================================== diff -u -r734 -r1044 --- APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml (.../DocumentCommon.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml (.../DocumentCommon.cls.xml) (revision 1044) @@ -1,10 +1,10 @@ - + TECH.Error,vhLib.Macro 1 %RegisteredObject -62063,46958.94435 +62199,63356.556339 61968,33971.513932 0 @@ -30,12 +30,15 @@ $$$chkRequiredParameter(DocumentID) - set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID) + set Aantal="" + set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID) - set ProductenTeller = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".Visitor.ProductenTeller","%New") - do Document.Accept(ProductenTeller) + if $IsObject(Document) { - set Aantal = +ProductenTeller.Aantal + set ProductenTeller = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".Visitor.ProductenTeller","%New") + do Document.Accept(ProductenTeller) + set Aantal = +ProductenTeller.Aantal + } quit Aantal ]]> @@ -51,20 +54,25 @@ $$$chkRequiredParameter(DocumentID) - set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID) + set result = "" - set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefInhoud).%New(..APPSContext) - do Document.Accept(Visitor) + set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID) - set TotaalPrijs = 0 - set itGekozenItem = ##class(TECH.ListIterator).%New(Visitor.GekozenItemLijst.GekozenItem) - while itGekozenItem.HasNext() { - set GekozenItem = itGekozenItem.Next() - set TotaalPrijs = TotaalPrijs + GekozenItem.TotaalPrijs - } - set Visitor.GekozenItemLijst.TotaalPrijs = TotaalPrijs + if $IsObject(Document) { + set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefInhoud).%New(..APPSContext) + do Document.Accept(Visitor) + + set TotaalPrijs = 0 + set itGekozenItem = ##class(TECH.ListIterator).%New(Visitor.GekozenItemLijst.GekozenItem) + while itGekozenItem.HasNext() { + set GekozenItem = itGekozenItem.Next() + set TotaalPrijs = TotaalPrijs + GekozenItem.TotaalPrijs + } + set Visitor.GekozenItemLijst.TotaalPrijs = TotaalPrijs - quit Visitor.GekozenItemLijst + set result = Visitor.GekozenItemLijst + } + quit result ]]> @@ -77,15 +85,20 @@ $$$chkRequiredParameter(DocumentID) $$$chkRequiredParameter(LijnID) - set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID) + set result = "" - set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefItem).%New(..APPSContext) + set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID) + + if $IsObject(Document) { + set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefItem).%New(..APPSContext) + + Set Lijn = Document.GeefLijn(LijnID) + Do Lijn.Accept(Visitor) + + set result = Visitor.GekozenItemMetCriteria + } - Set Lijn = Document.GeefLijn(LijnID) - Do Lijn.Accept(Visitor) - - - quit Visitor.GekozenItemMetCriteria + quit result ]]> @@ -105,19 +118,19 @@ set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID) if $$$Not(Document.WijzigingenToegelaten()) $$$ThrowError($$$errUserError,"WijzigenOnmogelijk") + + set ProductLijn = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".ProductLijn","%New",KenmerkUnID,..#Aantal) - set ProductLijn = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".ProductLijn","%New",KenmerkUnID,..#Aantal) - if $IsObject(ProductCriteria) set ProductLijn.ProductCriteria = ##class(APPS.Web.OLParticulier.dtoUtils).ProductCriteriaLoadFromDTO(ProductCriteria) if $IsObject(LadeSpec) set ProductLijn.LadeSpecificatie = ##class(APPS.Web.OLParticulier.dtoUtils).LadeSpecificatieLoadFromDTO(LadeSpec) set ProductLijn.Zoekterm = Zoekterm - + do Document.VoegToe(ProductLijn) set scSaved = Document.Save() if $$$ISERR(scSaved) $$$ThrowErrorStatus($$$errSaveFailed,Document,scSaved) - + set LijnID = ProductLijn.%Id() - + quit LijnID ]]> @@ -132,7 +145,7 @@ $$$TECHErrorTrapOn $$$chkRequiredParameter(DocumentID) - set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID) + set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID) if $$$Not(Document.WijzigingenToegelaten()) $$$ThrowError($$$errUserError,"WijzigenOnmogelijk") @@ -158,7 +171,7 @@ $$$TECHErrorTrapOn $$$chkRequiredParameter(DocumentID) - set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID) + set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID) if $$$Not(Document.WijzigingenToegelaten()) $$$ThrowError($$$errUserError,"WijzigenOnmogelijk") @@ -200,5 +213,5 @@ ]]> - + Index: WS/Web/OLParticulier/impl/Sessie.cls.xml =================================================================== diff -u -r734 -r1044 --- WS/Web/OLParticulier/impl/Sessie.cls.xml (.../Sessie.cls.xml) (revision 734) +++ WS/Web/OLParticulier/impl/Sessie.cls.xml (.../Sessie.cls.xml) (revision 1044) @@ -1,11 +1,11 @@ - + persistent vhLib.Macro,TECH.Error 1 %Persistent -61978,30811.665015 +62201,48896.571643 61958,55138.475281 0 @@ -71,35 +71,34 @@ SessieID:%String + + + + 1 SessieID 1 Sessie - + Index: WS/Web/OLParticulier/Verlanglijst.cls.xml =================================================================== diff -u -r734 -r1044 --- WS/Web/OLParticulier/Verlanglijst.cls.xml (.../Verlanglijst.cls.xml) (revision 734) +++ WS/Web/OLParticulier/Verlanglijst.cls.xml (.../Verlanglijst.cls.xml) (revision 1044) @@ -1,29 +1,12 @@ - + 1 WS.WebService -62060,60749.553698 +62200,52620.809667 +62185,43719.636508 0 - - -URL for invoking the WebService. -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache01.vanhoecke.be/vhisie3 - - - -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache02.vanhoecke.be/csp/tst-admin1 - - Name of the WebService. @@ -227,5 +210,5 @@ ]]> - +