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 +