/GM diferente

Servidor
buscan

Citación :

Public Sub Push

Remplazar todo el Sub por lo siguiente:

Citación :

Public Sub Push(ByVal Info As String, ByVal Nombre As String, ByVal Consulta As String)
On Error Resume Next
'Mete elemento en la cola
Call Cola.Add(UCase$(Nombre) & "@" & Consulta)
End Sub

Buscar:

Citación :

Select Case UCase$(Left$(rdata, 4))
Case "/GM "

reemplazarlo por:

Citación :

Select Case UCase$(Left$(rdata, 4))
Case "/GM "
rdata = Right$(rdata, Len(rdata) - 3)
If rdata = "" Or rdata = " " Then
Call SendData(ToIndex, UserIndex, 0, "||Debes escribir el motivo de la consulta!!!" & FONTTYPE_INFO)
Exit Sub
End If
If Not Ayuda.Existe(UserList(UserIndex).Name) Then
Call SendData(ToIndex, UserIndex, 0, "||El mensaje ha sido entregado, ahora solo debes esperar que se desocupe algun GM." & FONTTYPE_INFO)
Call Ayuda.Push(rdata, UserList(UserIndex).Name, rdata)
Else
Call Ayuda.Quitar(UserList(UserIndex).Name)
Call Ayuda.Push(rdata, UserList(UserIndex).Name, rdata)
Call SendData(ToIndex, UserIndex, 0, "||Ya habias mandado un mensaje, tu mensaje ha sido movido al final de la cola de mensajes." & FONTTYPE_INFO)
End If
Exit Sub
End Select
Select Case UCase$(Left$(rdata, 3))
Case "/GM"
Call SendData(ToIndex, UserIndex, 0, "|| Modo de uso: /GM DESCRIPCION DE LA CONSULTA." & FONTTYPE_INFO)
Exit Sub
End Select
************************************************** ***************************

Cliente
buscan

Citación :

Private Sub mnuBorrar_Click()

y reemplaza el sub completo por:

Citación :

Private Sub mnuBorrar_Click()
If List1.ListIndex < 0 Then Exit Sub
SendData ("SOSDONE" & List1.List(List1.ListIndex) & "@" & List2.List(List1.ListIndex))
mensaje = MsgBox("Se realizo la consulta?", vbYesNo)
If mensaje = vbYes Then
Call SendData("NOCONSU" & List1.List(List1.ListIndex))
End If
List2.RemoveItem List1.ListIndex
List1.RemoveItem List1.ListIndex
End Sub

buscar

Citación :

Case "RSOS"

Y Reemplazar por

Citación :

Case "RSOS"
Rdata = Right$(Rdata, Len(Rdata) - 4)
Dim Nombre As String
Dim Descripcion As String
Nombre = ReadField(1, Rdata, Asc("@"))
Descripcion = ReadField(2, Rdata, Asc("@"))
frmMSG.List1.AddItem Nombre
frmMSG.List2.AddItem Descripcion
Exit Sub

despues crear en el frmmsg
un listbox y un textbox
al listbox ponerle como propiedad visible =false
buscar

Citación :

ind = Val(ReadField(2, List1.List(List1.ListIndex), Asc("-")))

y abajo agregar

Citación :

Text1.Text = List2.List(List1.ListIndex)