Private m_tmp As Map
m_tmp.Initialize
If File.Exists(varPfad,k) Then
Try
sql_r.Initialize(varPfad,k,False)
Private L_tmp As List
L_tmp = DBUtils.ExecuteMemoryTable_Datum(sql_r,mm_In.DatenM.get(k),Null,0,0)
m_tmp.put(k,L_tmp)
Catch
Log(LastException)
End Try
sql_r.close
End If
'put the Map to the Custom Type
mm_Out.DatenM = m_tmp
'and send it
CallSub2(Starter, "SendData", ser.ConvertObjectToBytes(mm_Out))