Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml
===================================================================
diff -u
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml (revision 0)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml (revision 39284)
@@ -0,0 +1,44 @@
+
+
+
+persistent
+TECH.Persistent
+
+
+WS.Vhisie4.WinkelkarExport.SendStatus
+
+
+
+WS.Vhisie4.WinkelkarExport.SendStatus
+list
+
+
+
+Hoofding.VanHoeckeId
+
+
+
+%Library.CacheStorage
+^WSdata.VhisieD900.ExportStatusD
+ExportStatusDefaultData
+^WSdata.VhisieD900.ExportStatusD
+^WSdata.VhisieD900.ExportStatusI
+^WSdata.VhisieD900.ExportStatusS
+
+
+%%CLASSNAME
+
+
+Hoofding
+
+
+
+Lijnen
+subnode
+"Lijnen"
+
+
+
+
+
+
Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml
===================================================================
diff -u
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml (revision 0)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml (revision 39284)
@@ -0,0 +1,21 @@
+
+
+
+1
+TECH.Persistentie.Repository
+
+
+1
+VanHoeckeId:%String
+%Boolean
+
+
+
+1
+VanHoeckeId:%String
+WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus
+
+
+
+
+
Index: WS/Vhisie4/Winkelkar/dto/MaatwerkLijn.cls.xml
===================================================================
diff -u -r37673 -r39284
--- WS/Vhisie4/Winkelkar/dto/MaatwerkLijn.cls.xml (.../MaatwerkLijn.cls.xml) (revision 37673)
+++ WS/Vhisie4/Winkelkar/dto/MaatwerkLijn.cls.xml (.../MaatwerkLijn.cls.xml) (revision 39284)
@@ -5,8 +5,9 @@
1
WS.Vhisie4.Winkelkar.dto.WinkelkarLijn
-
+
TECH.String
+
Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/impl/ExportStatusRepository.cls.xml
===================================================================
diff -u
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/impl/ExportStatusRepository.cls.xml (revision 0)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/impl/ExportStatusRepository.cls.xml (revision 39284)
@@ -0,0 +1,8 @@
+
+
+
+TECH.Persistentie.impl.Repository,WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository
+
+
+
+
Index: vhTest/Mock/WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml (revision 0)
+++ vhTest/Mock/WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml (revision 39284)
@@ -0,0 +1,28 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.
+1
+WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository,vhTest.Mock.TECH.Persistentie.Repository
+right
+
+
+VanHoeckeId:%String
+%Boolean
+
+
+
+
+VanHoeckeId:%String
+WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus
+
+
+
+
+
+
Index: WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u -r38966 -r39284
--- WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Retriever.cls.xml (.../Retriever.cls.xml) (revision 38966)
+++ WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Retriever.cls.xml (.../Retriever.cls.xml) (revision 39284)
@@ -2,6 +2,47 @@
TECH.RegisteredObject
+
+
+TECH.Query.QueryAPI
+1
+
+
+
+QueryAPI:TECH.Query.QueryAPI=""
+1
+1
+%Status
+1
+
+
+
+
+KlantId:%String
+%ListOfDataTypes
+ID from Flow_Offerte.LijnProduct a "
+ Set SqlStatement = SqlStatement _ "where Hoofding->Klant->ID = ? "
+ Set SqlStatement = SqlStatement _ "and Hoofding->Status is null "
+ Set SqlStatement = SqlStatement _ "and ( "
+ Set SqlStatement = SqlStatement _ "(select count(*) from Flow_Offerte.LijnProduct b where b.Hoofding->ID = a.Hoofding->ID) > "
+ Set SqlStatement = SqlStatement _ "(select count(*) from Flow_Offerte.LijnProductGA c where c.Hoofding->ID = a.Hoofding->ID)"
+ Set SqlStatement = SqlStatement _ ")"
+
+ #dim lbParams As %List = $LB(KlantId)
+ #dim ResultSet As TECH.ResultSet = ..QueryAPI().GetDynamicResultSet(SqlStatement,lbParams)
+ #Dim OfferteIDIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(ResultSet.GeefLijstVanIDs())
+ set List = ##class(%ListOfObjects).%New()
+ While (OfferteIDIterator.HasNext()) {
+ Do List.Insert(OfferteIDIterator.Next())
+ }
+ quit List
+]]>
+
Index: WS/Vhisie4/Winkelkar/dto/ProductLijn.cls.xml
===================================================================
diff -u -r37673 -r39284
--- WS/Vhisie4/Winkelkar/dto/ProductLijn.cls.xml (.../ProductLijn.cls.xml) (revision 37673)
+++ WS/Vhisie4/Winkelkar/dto/ProductLijn.cls.xml (.../ProductLijn.cls.xml) (revision 39284)
@@ -5,8 +5,9 @@
1
WS.Vhisie4.Winkelkar.dto.WinkelkarLijn
-
+
TECH.String
+