Index: zTryout/MVI/Tools/Econ.cls.xml =================================================================== diff -u -r42071 -r42073 --- zTryout/MVI/Tools/Econ.cls.xml (.../Econ.cls.xml) (revision 42071) +++ zTryout/MVI/Tools/Econ.cls.xml (.../Econ.cls.xml) (revision 42073) @@ -12,7 +12,7 @@ #dim KenmerkenResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(KenmerkenQuery) #dim KenmerkenResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(KenmerkenResultSet) - While (KenmerkenResultSetIterator.HasNext()) { + while (KenmerkenResultSetIterator.HasNext()) { #dim NextKenmerkenResult As TECH.ResultSet = KenmerkenResultSetIterator.Next() #dim KenmerkenId As TECH.String = NextKenmerkenResult.Data("ID") #dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%OpenId(KenmerkenId) @@ -24,15 +24,15 @@ #dim MaatwerkLijnResultSet as TECH.ResultSet = $$ExecDynQuery^vhLib.Query(MaatwerkLijnQuery, $ListBuild(IKID.GeefHash() _ Suffix)) #dim MaatwerkLijnResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(MaatwerkLijnResultSet) - While (MaatwerkLijnResultSetIterator.HasNext()) { + while (MaatwerkLijnResultSetIterator.HasNext()) { #dim NextMaatwerkLijnResult As TECH.ResultSet = MaatwerkLijnResultSetIterator.Next() #dim MaatwerkLijnId As TECH.String = NextMaatwerkLijnResult.Data("ID") #dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%OpenId(MaatwerkLijnId) if (MaatwerkLijn.ExterneId '= "") { #dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = MaatwerkLijn.GeefWinkelkar() - Do ##class(Tools.Wlip).%New(42).String("======>" _ Winkelkar.GeefKlantID()) + do ##class(Tools.Wlip).%New(42).String("======>" _ Winkelkar.GeefKlantID()) } } }