Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
Dim suC As StringUtils
MyListC.Initialize
HeaderC.Initialize
If Success = True Then
ToastMessageShow("Success", True)
'MyListC = suC.LoadCSV2(File.DirAssets, "EJEMPLO.csv", ",", HeaderC)
MyListC = suC.LoadCSV2(Dir, FileName, ",", HeaderC)
'MyListC = suC.LoadCSV2(Dir, FileName, ",", HeaderC)
Else
ToastMessageShow("No Success :(",True)
End If
Log(HeaderC.Get(0))
Log(HeaderC.Get(1))
Log(HeaderC.Get(2))
Log(HeaderC.Get(3))
Log(HeaderC.Get(4))
Log(HeaderC.Get(5))
Log(HeaderC.Get(6))
Log(HeaderC.Get(7))
Log(HeaderC.Get(8))
Log(HeaderC.Get(9))
NName = HeaderC.Get(0)
Connection.Cursor = Connection.LocalSQL.ExecQuery("CREATE TABLE IF NOT EXISTS "& HeaderC.Get(0) &" (ID TEXT PRIMARY KEY, ProjectName TEXT, Name TEXT, Object TEXT, Type INTEGER, LocX INTEGER, LocY INTEGER, WidthX INTEGER, HeightY INTEGER, Color INTEGER, Registro INTEGER)")
Log("Tabla Importada Y Creada")
IDFind0
Connection.LocalSQL.ExecNonQuery("INSERT INTO "& HeaderC.Get(0) &" VALUES('"& IDNum &"','"& HeaderC.Get(0) & "','"& HeaderC.Get(1) & "', '"& HeaderC.Get(2) &"' ,'"& HeaderC.Get(3) & "','"& HeaderC.Get(4) & "','"& HeaderC.Get(5) & "','"& HeaderC.Get(6) & "','"& HeaderC.Get(7) & "', '" & HeaderC.Get(8) & "', '"& HeaderC.Get(9) &"')")
ShowDataBase
End Sub