Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u -r39343 -r40813
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Retriever.cls.xml (.../Retriever.cls.xml) (revision 39343)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Retriever.cls.xml (.../Retriever.cls.xml) (revision 40813)
@@ -49,6 +49,13 @@
]]>
+
+KlantId:%String
+%String
+
+
+
1
SecureKey:%String,KlantNr:%String
@@ -75,6 +82,19 @@
+
+
+1
+SecureKey:%String,KlantNr:%String
+1
+1
+%String
+1
+document
+literal
+
+
Index: ECONimpl/SQLGCWrapper.cls.xml
===================================================================
diff -u
--- ECONimpl/SQLGCWrapper.cls.xml (revision 0)
+++ ECONimpl/SQLGCWrapper.cls.xml (revision 40813)
@@ -0,0 +1,38 @@
+
+
+
+Sys.SQLGCWrapper
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Boolean
+
+
+
+
+
+
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter.cls.xml
===================================================================
diff -u -r39721 -r40813
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter.cls.xml (.../TbxWinkelkarConverter.cls.xml) (revision 39721)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter.cls.xml (.../TbxWinkelkarConverter.cls.xml) (revision 40813)
@@ -23,6 +23,11 @@
1
+
+WSimpl.Vhisie4.Winkelkar.EconKlantVoorkeurBewaarder
+1
+
+
WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService
1
@@ -40,6 +45,7 @@
set ..Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
set ..Converter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.TbxWinkelkarConverter.Converter).%New()
Set ..ExportStatusService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
+ Set ..EconKlantVoorkeurBewaarder = ##class(WSimpl.Vhisie4.Winkelkar.EconKlantVoorkeurBewaarder).%New()
Quit $$$OK
]]>
@@ -64,6 +70,9 @@
Do ..ExportStatusService.Registreer(..Sender.Send(..Converter.Convert(WebOrder)))
}
}
+
+ #dim SqlStatement As %String = ..Retriever.GeefKlantVoorkeurEconSqlStatement(KlantId)
+ Do:$length(SqlStatement) ..EconKlantVoorkeurBewaarder.Bewaar(SqlStatement)
]]>
Index: WSimpl/Vhisie4/Winkelkar/EconKlantVoorkeurBewaarder.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/EconKlantVoorkeurBewaarder.cls.xml (revision 0)
+++ WSimpl/Vhisie4/Winkelkar/EconKlantVoorkeurBewaarder.cls.xml (revision 40813)
@@ -0,0 +1,12 @@
+
+
+
+TECH.RegisteredObject
+
+
+SqlStatement:%String
+
+
+
+
+
Index: vhDeploy/D20170327xEconDsnConnections.cls.xml
===================================================================
diff -u
--- vhDeploy/D20170327xEconDsnConnections.cls.xml (revision 0)
+++ vhDeploy/D20170327xEconDsnConnections.cls.xml (revision 40813)
@@ -0,0 +1,25 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+IndexenRebuildenVoorBerekeningsSpecificatie
+
+
+
+1
+
+
+
+
+
+