Index: CHUI/Flow/ConfiguratorHelper.cls.xml
===================================================================
diff -u
--- CHUI/Flow/ConfiguratorHelper.cls.xml (revision 0)
+++ CHUI/Flow/ConfiguratorHelper.cls.xml (revision 1733)
@@ -0,0 +1,88 @@
+
+
+
+
+
+
+ OPGELET: Deze klasse is non procedureblock en moet dit ook blijven!!!
+
+%RegisteredObject
+0
+
+
+1
+
+1
+APPS.VKP.Maatwerk.impl.ConfiguratorParameters
+
+
+
+
+1
+
+1
+APPS.VKP.Maatwerk.impl.ConfiguratorParameters
+
+
+
+
+1
+Parameters:APPS.VKP.Maatwerk.impl.ConfiguratorParameters
+
+
+
+
+1
+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)
+ }
+ Do REFRESH^vhTERMINA(1,24)
+ Quit BesteldeProducten
+]]>
+
+
+
Index: vhDeploy/CSC/Deploy20110803x0817.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20110803x0817.cls.xml (revision 0)
+++ vhDeploy/CSC/Deploy20110803x0817.cls.xml (revision 1733)
@@ -0,0 +1,30 @@
+
+
+
+1
+svn.Deploy
+0
+
+
+1
+1`"
+ Set ^MN("D","FLOWORDEDI","F",25)="Verplaats omlaag`>`K`>`$D(Detail),@DL(1)@(6)<@DL(1)@(9)`"
+
+ Set ^MN("D","FLOWORDIMP","F",8)="Configurator`µ`K`µ`'$G(CashECar)```"
+ Set ^MN("D","FLOWORDIMP","F",9)="Splitsen van contract`Q`K`Q`'$G(CashECar)`"
+ Set ^MN("D","FLOWORDIMP","F",10)="&S``B```"
+ Set ^MN("D","FLOWORDIMP","F",11)="Factuur crediteren`F`K`F`'$G(CashECar)`"
+]]>
+
+
+
Index: CSC ConfiguratorService.prj.xml
===================================================================
diff -u -r1731 -r1733
--- CSC ConfiguratorService.prj.xml (.../CSC ConfiguratorService.prj.xml) (revision 1731)
+++ CSC ConfiguratorService.prj.xml (.../CSC ConfiguratorService.prj.xml) (revision 1733)
@@ -1,6 +1,6 @@
-
+
@@ -15,10 +15,13 @@
+
+
+
Index: FLOWOFF.mac.rou
===================================================================
diff -u -r1731 -r1733
--- FLOWOFF.mac.rou (.../FLOWOFF.mac.rou) (revision 1731)
+++ FLOWOFF.mac.rou (.../FLOWOFF.mac.rou) (revision 1733)
@@ -515,68 +515,35 @@
Quit
Configurator(WijzigProduct)
- New R,PRNr,Aantal,ConfiguratorService,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Puntjes,Parameters,Status
- Set (PRNr,Aantal,BesteldeProducten,Puntjes)=""
- New Familie,Variant
- Set (Familie,Variant) = ""
+ Quit:(WijzigProduct)&&('$Data(Detail))
+ New R,PRNr,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Parameters
+ Set (PRNr,BesteldeProducten,Puntjes)=""
If (WijzigProduct)
{
- New ProductAPI, Product
- Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+ New Familie,Variant
+ Set (Familie,Variant) = ""
Set OFLNr=Detail(@DL(1)@(6)),R=^KOFKL(KLNr,"F",OFFNr,OFLNr),PRNr=$P(R,D,2) Set:PRNr Aantal=$P(R,D,3)
- Set Product = ProductAPI.GeefProduct(PRNr)
- If (Product.%Extends("DOM.PM.MaatwerkProduct"))
- {
- Set Familie = Product.GeefFamilie()
- Set Variant = Product.GeefVariant()
- }
- Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OFFNr,KLNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),Familie,Variant,PRNr,OFLNr)
- Set Status = Parameters.%Save()
+ Set Parameters = ##class(CHUI.Flow.ConfiguratorHelper).MaakWijzigenParameters(PRNr, ##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr, KLNr, OFLNr, .Status)
}
Else
{
- Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OFFNr,KLNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),Familie,Variant)
- Set Status = Parameters.%Save()
+ Set Parameters = ##class(CHUI.Flow.ConfiguratorHelper).MaakToevoegenParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr, KLNr, .Status)
}
+
If ($$$ISERR(Status))
{
- Do DISPONLY^vhTXTPOP("Opslaan parameter object niet gelukt~"_$$ParseStatus^vhLib(Status),"Fout!")
+ Do DISPONLY^vhTXTPOP("Opslaan parameterobject niet gelukt~"_$$ParseStatus^vhLib(Status),"Fout!")
Quit
}
- Do STORE^vhTERMINA()
- Set FP=1801
- Write @F,@F1
- Set FP=2007
- Write @F,"TOOLS\SHELLEXECUTE"
- Set FP=2101
- Write @F
- Write "iexplore.exe" // nog te vervangen door de gui call
- Set FP=2201
- Write @F
- Write Parameters.%Id()
- Set FP=2001
- Write @F,"VBA:\\"
- Do REFRESH^vhTERMINA()
- Do STORE^vhTERMINA()
- Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New()
- Do DISPONLY^vhTXTPOP("Invoeren van product met configurator ","Bezig met ...",1)
- Set BesteldeProducten = ""
- While (BesteldeProducten = "")
- {
- Hang 1
- Set Puntjes = Puntjes_"."
- If ($Length(Puntjes) > 3) Set Puntjes = ""
- Do DISPONLY^vhTXTPOP("Invoeren van product met configurator "_Puntjes_$Justify("",3-$Length(Puntjes)),"Bezig met ...",1)
- Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OFFNr)
- }
- Do REFRESH^vhTERMINA(1,24)
+ Do ##class(CHUI.Flow.ConfiguratorHelper).StartConfiguratorMet(Parameters)
+ Set BesteldeProducten = ##class(CHUI.Flow.ConfiguratorHelper).GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr)
+
If (WijzigProduct)
{
- Set DelMirror=1 // zorgt ervoor dat er geen input wordt gevraagd voor de delete
- Do LDELETE
+ Do MDELETE
}
Set BesteldeProductenIterator = ##class(TECH.ListIterator).%New(BesteldeProducten.Lijst)
@@ -585,8 +552,8 @@
Set BesteldProduct = BesteldeProductenIterator.Next()
Do PINSERT("","",BesteldProduct.GeefPRNr(),BesteldProduct.GeefAantal())
}
- Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())
+ Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())
Do Parameters.%DeleteId(Parameters.%Id())
Quit
Index: FLOWORD.mac.rou
===================================================================
diff -u -r1716 -r1733
--- FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 1716)
+++ FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 1733)
@@ -1,3 +1,5 @@
+#include %occStatus
+
FLOWORD ;Order [ 11/04/2003 1:20 PM ]
#include BL.Derde.KlantSpecifiek
;
@@ -92,6 +94,8 @@
..If $L(Input)=1,"ABLPW"[Input Do LMODIFY(Input)
..If Input="AL" Do AMODIFY(Input)
..If Input="Z" Do HADWIZ
+ ..If Input="�" Do Configurator(0)
+ ..If Input="�" Do Configurator(1)
..If Input="U" Do MOEDERB
..If Input="C" Do PAKKET
..If Input="F" Do CREDFAKT
@@ -401,6 +405,51 @@
. Set R=Data(Next),PRNr=$P(R,D),Aantal=$P(R,D,2)
. If PRNr,Aantal Do PINSERT("","",PRNr,Aantal,,,,,,,,,NoChkPrs)
Quit
+
+Configurator(WijzigProduct)
+ Quit:(WijzigProduct)&&('$Data(Detail))
+ New R,PRNr,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Parameters
+ Set (PRNr,BesteldeProducten,Puntjes)=""
+
+ If (WijzigProduct)
+ {
+ New Familie,Variant
+ Set (Familie,Variant) = ""
+ Set OLNr=Detail(@DL(1)@(6)),R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2) Set:PRNr Aantal=$P(R,D,3)
+ Set Parameters = ##class(CHUI.Flow.ConfiguratorHelper).MaakWijzigenParameters(PRNr, ##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr, KLNr, OLNr, .Status)
+ }
+ Else
+ {
+ Set Parameters = ##class(CHUI.Flow.ConfiguratorHelper).MaakToevoegenParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr, KLNr, .Status)
+ }
+
+ If ($$$ISERR(Status))
+ {
+ Do DISPONLY^vhTXTPOP("Opslaan parameterobject niet gelukt~"_$$ParseStatus^vhLib(Status),"Fout!")
+ Quit
+ }
+
+ Do ##class(CHUI.Flow.ConfiguratorHelper).StartConfiguratorMet(Parameters)
+ Set BesteldeProducten = ##class(CHUI.Flow.ConfiguratorHelper).GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr)
+
+
+ If (WijzigProduct)
+ {
+ Do MDELETE
+ }
+
+ Set BesteldeProductenIterator = ##class(TECH.ListIterator).%New(BesteldeProducten.Lijst)
+ While (BesteldeProductenIterator.HasNext())
+ {
+ Set BesteldProduct = BesteldeProductenIterator.Next()
+ Do PINSERT("","",BesteldProduct.GeefPRNr(),BesteldProduct.GeefAantal())
+ }
+
+ Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())
+ Do Parameters.%DeleteId(Parameters.%Id())
+
+ Quit
+
;
; Moederbon
MOEDERB