Index: APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml
===================================================================
diff -u -r2080 -r2150
--- APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml (.../ParameterToDtoVisitor.cls.xml) (revision 2080)
+++ APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml (.../ParameterToDtoVisitor.cls.xml) (revision 2150)
@@ -16,7 +16,7 @@
Set ..ConfiguratorParameters = ##class(APPS.VKP.Maatwerk.dto.ProductToevoegenParameters).%New()
Set ..ConfiguratorParameters.Familie = ProductToevoegenParameters.GeefFamilie()
Set ..ConfiguratorParameters.Variant = ProductToevoegenParameters.GeefVariant()
- Do ..VerwerkConfiguratorParameters(ProductToevoegenParameters)
+ Do ..VerwerkAdminSessieParameters(ProductToevoegenParameters)
]]>
@@ -28,17 +28,26 @@
Set ..ConfiguratorParameters.Variant = ProductWijzigenParameters.GeefVariant()
Set ..ConfiguratorParameters.LijnID = ProductWijzigenParameters.GeefLijnID()
Set ..ConfiguratorParameters.ProductID = ProductWijzigenParameters.GeefProductID()
- Do ..VerwerkConfiguratorParameters(ProductWijzigenParameters)
+ Do ..VerwerkAdminSessieParameters(ProductWijzigenParameters)
]]>
+
+AdminSessieParameters:APPS.VKP.Maatwerk.impl.AdminSessieParameters
+1
+
+
+
ConfiguratorParameters:APPS.VKP.Maatwerk.impl.ConfiguratorParameters
1
Index: APPS/VKP/Maatwerk/dto/ProductWijzigenParameters.cls.xml
===================================================================
diff -u -r1731 -r2150
--- APPS/VKP/Maatwerk/dto/ProductWijzigenParameters.cls.xml (.../ProductWijzigenParameters.cls.xml) (revision 1731)
+++ APPS/VKP/Maatwerk/dto/ProductWijzigenParameters.cls.xml (.../ProductWijzigenParameters.cls.xml) (revision 2150)
@@ -2,7 +2,7 @@
1
-APPS.VKP.Maatwerk.dto.ConfiguratorParameters
+APPS.VKP.Maatwerk.dto.AdminSessieParameter
0
Index: APPS/VKP/Maatwerk/dto/ProductToevoegenParameters.cls.xml
===================================================================
diff -u -r1731 -r2150
--- APPS/VKP/Maatwerk/dto/ProductToevoegenParameters.cls.xml (.../ProductToevoegenParameters.cls.xml) (revision 1731)
+++ APPS/VKP/Maatwerk/dto/ProductToevoegenParameters.cls.xml (.../ProductToevoegenParameters.cls.xml) (revision 2150)
@@ -2,7 +2,7 @@
1
-APPS.VKP.Maatwerk.dto.ConfiguratorParameters
+APPS.VKP.Maatwerk.dto.AdminSessieParameter
0
Index: APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml
===================================================================
diff -u -r2080 -r2150
--- APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml (.../ConfiguratorParameters.cls.xml) (revision 2080)
+++ APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml (.../ConfiguratorParameters.cls.xml) (revision 2150)
@@ -6,18 +6,6 @@
%Persistent
0
-
-%Integer
-1
-1
-
-
-
-APPS.VKP.Maatwerk.enu.DocumentType
-1
-1
-
-
%String
1
@@ -31,31 +19,17 @@
-DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%String,GebruikerID:%String
+KlantID:%String,GebruikerID:%String
1
1
%Status
-
-%Integer
-
-
-
-
-APPS.VKP.Maatwerk.enu.DocumentType
-
-
-
%String
1
Visitor:APPS.VKP.Maatwerk.impl.IParametersVisitor
-
@@ -86,12 +58,6 @@
%%CLASSNAME
-
-DocumentID
-
-
-DocumentType
-
GebruikerID
Index: APPS/VKP/Maatwerk/impl/ProductWijzigenParameters.cls.xml
===================================================================
diff -u -r1731 -r2150
--- APPS/VKP/Maatwerk/impl/ProductWijzigenParameters.cls.xml (.../ProductWijzigenParameters.cls.xml) (revision 1731)
+++ APPS/VKP/Maatwerk/impl/ProductWijzigenParameters.cls.xml (.../ProductWijzigenParameters.cls.xml) (revision 2150)
@@ -3,7 +3,7 @@
persistent
1
-APPS.VKP.Maatwerk.impl.ConfiguratorParameters
+APPS.VKP.Maatwerk.impl.AdminSessieParameters
0
@@ -27,12 +27,12 @@
-DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%String,GebruikerID:%String,Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,ProductID:%Integer,LijnID:%Integer
+KlantID:%String,GebruikerID:%String,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,ProductID:%Integer,LijnID:%Integer
1
1
%Status
-
+
@@ -21,6 +21,7 @@
+
Index: CSC ConfiguratorService.prj.xml
===================================================================
diff -u -r2046 -r2150
--- CSC ConfiguratorService.prj.xml (.../CSC ConfiguratorService.prj.xml) (revision 2046)
+++ CSC ConfiguratorService.prj.xml (.../CSC ConfiguratorService.prj.xml) (revision 2150)
@@ -1,6 +1,6 @@
-
+
@@ -9,6 +9,7 @@
+
@@ -21,6 +22,7 @@
+
Index: APPS/VKP/Maatwerk/dto/AdminSessieParameter.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/dto/AdminSessieParameter.cls.xml (revision 0)
+++ APPS/VKP/Maatwerk/dto/AdminSessieParameter.cls.xml (revision 2150)
@@ -0,0 +1,22 @@
+
+
+
+1
+APPS.VKP.Maatwerk.dto.ConfiguratorParameters
+0
+
+
+%Integer
+1
+
+
+
+APPS.VKP.Maatwerk.enu.DocumentType
+1
+
+
+
+%String
+
+
+
Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2057 -r2150
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 2057)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 2150)
@@ -5,6 +5,12 @@
%RegisteredObject
0
+
+Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,ParameterID:%String
+
+
+
Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String
+
+
+persistent
+1
+APPS.VKP.Maatwerk.impl.ConfiguratorParameters
+0
+
+
+%Integer
+1
+1
+
+
+
+APPS.VKP.Maatwerk.enu.DocumentType
+1
+1
+
+
+
+%String
+1
+1
+
+
+
+KlantID:%String,GebruikerID:%String,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String
+1
+1
+%Status
+
+
+
+
+%Integer
+
+
+
+
+APPS.VKP.Maatwerk.enu.DocumentType
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+AdminSessieParametersDefaultData
+
+listnode
+"AdminSessieParameters"
+
+DocumentID
+
+
+DocumentType
+
+
+WinkelkarID
+
+
+
+
+
Index: FLOWOFF.mac.rou
===================================================================
diff -u -r2059 -r2150
--- FLOWOFF.mac.rou (.../FLOWOFF.mac.rou) (revision 2059)
+++ FLOWOFF.mac.rou (.../FLOWOFF.mac.rou) (revision 2150)
@@ -10,6 +10,8 @@
;
COMMAND
Do RESET^vhScherm
+ Do:($IsObject(##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr))) VerwerkConfiguratorProducten
+ Do:($IsObject(##class(CHUI.Flow.ConfiguratorHelper).GeefAdminSessieParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr))) StartExterneConfigurator
For Do If Input="-" Do SORT(),CLOSE,AkpVkpVerlies^FLOW2("A",OFFNr,.AkpVkpVerlies) Quit
.Set ScrolOff=1
.Do REFRESH
@@ -516,8 +518,9 @@
Configurator(WijzigProduct)
Quit:(WijzigProduct)&&('$Data(Detail))
- New R,PRNr,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Parameters
+ New R,PRNr,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Parameters,IsGeannuleerd
Set (PRNr,BesteldeProducten,Puntjes)=""
+ Set IsGeannuleerd = 0
If (WijzigProduct)
{
@@ -536,15 +539,16 @@
Do DISPONLY^vhTXTPOP("Opslaan parameterobject niet gelukt~"_$$ParseStatus^vhLib(Status),"Fout!")
Quit
}
-
+StartExterneConfigurator
+ Set:('$IsObject($Get(Parameters))) Parameters = ##class(CHUI.Flow.ConfiguratorHelper).GeefAdminSessieParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr)
Do ##class(CHUI.Flow.ConfiguratorHelper).StartConfiguratorMet(Parameters)
+VerwerkConfiguratorProducten
+ Set:('$IsObject($Get(Parameters))) Parameters = ##class(CHUI.Flow.ConfiguratorHelper).GeefAdminSessieParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr)
Set BesteldeProducten = ##class(CHUI.Flow.ConfiguratorHelper).GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr)
-
- If (WijzigProduct)
+ If (Parameters.%Extends("APPS.VKP.Maatwerk.impl.ProductWijzigenParameters"))
{
- Do MDELETE
+ Do DELLINE(OFFNR, Parameters.GeefLijnID())
}
-
Set BesteldeProductenIterator = ##class(TECH.ListIterator).%New(BesteldeProducten.Lijst)
While (BesteldeProductenIterator.HasNext())
{
@@ -553,10 +557,8 @@
Set OFLNr=Detail(@DL(1)@(6))
Set $Piece(^KOFKL(KLNr,"F",OFFNr,OFLNr),"\",5) = BesteldProduct.GeefProjectReferentie()
}
-
Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())
- Do Parameters.%DeleteId(Parameters.%Id())
-
+ Do:('IsGeannuleerd) Parameters.%DeleteId(Parameters.%Id())
Quit
;
Index: WS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2087 -r2150
--- WS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 2087)
+++ WS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 2150)
@@ -13,6 +13,12 @@
http://www.vanhoecke.be/VKP/Maatwerk
+
+Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,ParameterID:%String
+
+
+
Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String
1
Index: APPS/VKP/Maatwerk/impl/ProductToevoegenParameters.cls.xml
===================================================================
diff -u -r1731 -r2150
--- APPS/VKP/Maatwerk/impl/ProductToevoegenParameters.cls.xml (.../ProductToevoegenParameters.cls.xml) (revision 1731)
+++ APPS/VKP/Maatwerk/impl/ProductToevoegenParameters.cls.xml (.../ProductToevoegenParameters.cls.xml) (revision 2150)
@@ -9,7 +9,7 @@
Familie mag ook leeg zijn, in dat geval moet op de client nog worden aangegeven welk type product men wenst toe te voegen.
persistent
1
-APPS.VKP.Maatwerk.impl.ConfiguratorParameters
+APPS.VKP.Maatwerk.impl.AdminSessieParameters
0
@@ -23,12 +23,12 @@
-DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%String,GebruikerID:%String,Familie:DOM.PM.enu.Familie="",Variant:DOM.PM.enu.Variant=""
+KlantID:%String,GebruikerID:%String,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,Familie:DOM.PM.enu.Familie="",Variant:DOM.PM.enu.Variant=""
1
1
%Status
%RegisteredObject,%XML.Adaptor
0
-
-%Integer
-1
-
-
-
-APPS.VKP.Maatwerk.enu.DocumentType
-1
-
-
DOM.common.dto.GebruikerData
1
Index: CHUI/Flow/ConfiguratorHelper.cls.xml
===================================================================
diff -u -r1733 -r2150
--- CHUI/Flow/ConfiguratorHelper.cls.xml (.../ConfiguratorHelper.cls.xml) (revision 1733)
+++ CHUI/Flow/ConfiguratorHelper.cls.xml (.../ConfiguratorHelper.cls.xml) (revision 2150)
@@ -9,6 +9,10 @@
%RegisteredObject
0
+
+Interne_Configurator
+
+
1
@@ -22,7 +26,11 @@
Set Familie = Product.GeefFamilie()
Set Variant = Product.GeefVariant()
}
- Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(DocumentType,DocumentId,KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),Familie,Variant,PRNr,LijnNr)
+ Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+ Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+ Set Applicatie.Naam = ..#ApplicatieID
+ Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID
+ Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
Set Status = Parameters.%Save()
Quit Parameters
]]>
@@ -34,7 +42,12 @@
1
APPS.VKP.Maatwerk.impl.ConfiguratorParameters
@@ -63,26 +76,52 @@
1
-DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentId:%Integer
+DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%Integer
APPS.VKP.Maatwerk.impl.BesteldeProducten
3) Set Puntjes = ""
Do DISPONLY^vhTXTPOP("Invoeren van product met configurator "_Puntjes_$Justify("",3-$Length(Puntjes)),"Bezig met ...",1)
- Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(DocumentType,DocumentId)
+ If (Key '= 45) // Karakter '-'
+ {
+ Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(DocumentType,DocumentID)
+ }
+ Else
+ {
+ Set IsGeannuleerd = 1
+ Set BesteldeProducten = ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%New(DocumentType,DocumentID)
+ }
}
Do REFRESH^vhTERMINA(1,24)
Quit BesteldeProducten
]]>
+
+
+1
+DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%Integer
+APPS.VKP.Maatwerk.impl.AdminSessieParameters
+
+