Ver Mensaje Individual
  #16  
Antiguo 03-07-2021
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 608
Reputación: 21
mRoman Va por buen camino
Solucionado

Hola...

Continuando con este hilo...

En el evento del IBEvent (OnEvenAlert), lo registré asi.

Código Delphi [-]
procedure TfrmMesasAbiertas2.IBEvents1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
     if EventName='NEW_COMANDA' then
     begin
        RefreshComandero();
     end;
end;

Lo que hice al final fue configurar una PC como terminal donde los MESEROS capturan las comandas y al momento de CERRAR LA CUENTA, se debe actualizar el COMANDERO -el cual esta en la caja (Servidor)-, previo a esto, estuve haciendo pruebas de otra cosa como la comunicación entre equipos dentro de la RED, lo cual al principio no se veían las PC entre ellas, lo anterior derivado del Firewall, lo desactive momentáneamente y fue así como las PC se vieron entre si -haciendo ping-.

Pues asi deje esta configuración del Firewall y empecé a terminar el proceso que había iniciado con las Alertas para q el comandero se actualizará cuando el MESERO cerrara la cuenta....YA LO HACE, YA ACTUALIZA EL COMANDERO!!., por lo tanto CREO que esto estaba intefiriendo con las alertas....ahora lo realiza sin problemas.

Esto hace el procedimiento "RefreshComandero()"
Código Delphi [-]
procedure TfrmMesasAbiertas2.RefreshComandero;
begin
    qryComandero.Close;
    qryComandero.Open;
end;

Que es ejecutado cada vez que un MESERO cierra la cuenta de un COMENSAL.

Sin duda habrá alguien mas que sea mas preciso en lo que he descrito y nos comente si lo del firewal tuvo algo que ver....

Saludos.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita