If Left(datos, 15) = "/dame_reporte1:" Then
tabla.Clear
z = Len(datos) - 15
aux = Right(datos, z)
c = 1
While (Mid(aux, c, 1) <> ",")
palabra = palabra & Mid(aux, c, 1)
c = c + 1
Wend
anio.Text = palabra
palabra = ""
c = c + 1
While (Mid(aux, c, 1) <> ",")
palabra = palabra & Mid(aux, c, 1)
c = c + 1
Wend
If palabra = "ENERO - JULIO" Then
semestre.Text = "1"
End If
If palabra = "AGOSTO - DICIEMBRE" Then
semestre.Text = "2"
End If
palabra = ""
c = c + 1
While (Mid(aux, c, 1) <> ",")
palabra = palabra & Mid(aux, c, 1)
c = c + 1
Wend
laboratorio.Text = palabra
palabra = ""
c = c + 1
While (Mid(aux, c, 1) <> ";")
palabra = palabra & Mid(aux, c, 1)
c = c + 1
Wend
carreras.Refresh
enc = 0
While Not (carreras.Recordset.EOF) And enc = 0
If carreras.Recordset.nombre_materia = palabra Then
enc = 1
carrera.Text = carreras.Recordset.clave_materia
End If
carreras.Recordset.MoveNext
Wend
' For c = 1 To 30
' tabla.TextMatrix(c, 2) = ""
' tabla.TextMatrix(c, 3) = ""
' Next
Command2_Click ' guarda los datos en el MSflexgrid llamado tabla
If Winsock1(Index).State = 7 Then
c = 0
While c < tabla.Rows
Winsock1(Index).SendData "/envio_reporte1:" & c & "," & tabla.TextMatrix(c, 0) & "," & tabla.TextMatrix(c, 1) & "," & tabla.TextMatrix(c, 2) & "," & tabla.TextMatrix(c, 3) & ";"
Delay (2)
c = c + 1
Wend
End If
End If