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 + + + + + +