Impresion De Comandas

[foxito]

Hola buen día a todos, espero me puedan ayudar o detectar mi error de antemano gracias por permitir poner este tema. Estoy realizando un pool de impresiones pero tengo el problema de que no imprime completo la orden de la comanda; es decir que desde un dispositivo móvil genera la orden y envía a MySQL a una tabla llamada p_POOL_CMDA y entonces una vez llegada la información tengo un programa que realice con un thread para estar recibiendo las ordenes y de ahí enviarlas a sus respectivas direcciones (cocina, bebidas, etc). Pero resulta que cuando llegan algunas ordenes llegan un retarde de 1 milesegundo y mi programa ya tomo la información inicial y no envía completo:

MOVIL
1 HAMBURGUESA
CON QUESO
SIN CEBOLLA

MI PROGRAMA RECIBE
1 HAMBURGUESA
CON QUESO (LLEGA UN 1MILESEGUNDO MAS TARDE Y MI SELECT YA NO LO CONSIDERA Y LO ENVIA EN LA SIGUIENTE ORDEN )
SIN CEBOLLA

Mi programa de ej.

procedure TForm1.btnRefreshClick(Sender: TObject);
begin
    btnRefresh.Enabled := False;
    tmPrint.Enabled := False;
    t := TThread.CreateAnonymousThread(procedure
    var
        x  : integer;
        SavePlace : TBookmark;
    begin
      x := 1;

      SQLExecute.SQL.Text := 'DELETE FROM p_POOL_CMDAS WHERE ESTATUS = "EN" ';
      SQLExecute.ExecSQL();

      qry_geral.Close;

      qry_geral.SQL.Text := 'SELECT PC.ID, ID_COMANDA, FCH_HORA, ID_CODSKU, ' +
        'DESCRIP, QTY, PRECIO, ID_CUENTA, ID_MESERO, TOT_COMENSAL,'+
        'ID_SECC_PREPAR, TIPSKU, DESCRIP_OLD, ID_GRUPO, MESAUNIDA,' +
        'ESTATUS,US.NOMBRE AS NAME_MESERO ' +
        'FROM p_POOL_CMDAS PC ' +
        'JOIN m_USUARIOS US ON PC.ID_MESERO = US.CVE ' +
        'WHERE ESTATUS <> "EN" ' +
        'ORDER BY ID_GRUPO, ID ';

      sleep(500);

      qry_geral.Open();

      qry_geral.First;
      while NOT qry_geral.Eof do
      begin

        etapa := 'Selección de Comandas';

        TThread.Synchronize(nil, procedure
        begin
          lbl.Caption := x.ToString;


          Add_Cmdas_Print(qry_geral.FieldByName('ID_COMANDA').AsInteger,
                     qry_geral.FieldByName('FCH_HORA').AsString,
                     qry_geral.FieldByName('ID_CODSKU').AsString,
                     qry_geral.FieldByName('DESCRIP').AsString,
                     qry_geral.FieldByName('QTY').AsFloat,
                     qry_geral.FieldByName('PRECIO').AsFloat,
                     qry_geral.FieldByName('ID_CUENTA').AsString,
                     qry_geral.FieldByName('ID_MESERO').AsInteger,
                     qry_geral.FieldByName('TOT_COMENSAL').AsInteger,
                     qry_geral.FieldByName('ID_SECC_PREPAR').AsInteger,
                     qry_geral.FieldByName('TIPSKU').AsString,
                     qry_geral.FieldByName('DESCRIP_OLD').AsString,
                     qry_geral.FieldByName('ID_GRUPO').AsInteger,
                     qry_geral.FieldByName('MESAUNIDA').AsBoolean,
                     qry_geral.FieldByName('ESTATUS').AsString,
                     qry_geral.FieldByName('NAME_MESERO').AsString,
                     qry_geral.FieldByName('ID').AsInteger
                     );

        end);

        x := x + 1;

        qry_geral.Next;

      end; // END WHILE

      etapa := 'Impresión de comandas';

      pkFOLIO := '';

      if mmOrden.RecordCount > 0 then
      begin

        mmOrden.DisableControls;

        mmOrden.First;
        while not( mmOrden.Eof) do
        begin

          if mmOrdenESTATUS.AsString <> 'EN' then
          begin

            TThread.Synchronize(nil, procedure
            begin
              lbl.Caption := x.ToString;

                (* OBTIENE EL NUMERO DE COMANDA *)
                pkFOLIO := mmOrdenID_COMANDA.AsString;

                (* ENVIAR IMPRESION *)
                PrintComanda(pkFOLIO);

                SavePlace := mmOrden.GetBookmark;

                ChangeStatus();

                (* GUARDAR LA COMANDA *)
                SaveComanda();

                mmOrden.GotoBookmark( SavePlace );

                sleep(300);
            end);

          end;

          mmOrden.Next;

        end; // END WHILE

        mmOrden.EnableControls;
      end;

      etapa := 'API';
      mmOrden.EmptyDataSet;
      mmOrden.Refresh;
      tmPrint.Enabled := True;

    end);

    //t.FreeOnTerminate := true;
    t.OnTerminate := ThreadEnd;
    t.Start;

end;

Les agradecería mucho que me puedan ayudar.

[[duilioisola]]

No he leido el código, pero según tu mensaje, creo que la aplicación que hace el pool de impresión solo deberá tener en cuenta comandas "viejas" (con una antigüedad de más de "5" segundos).

De esta manera, si los terminales tardan 1 o 2 segundos en transmitir las líneas de la comanda, siempre verás comandas completas.

Algo así (firebird):

Código Delphi [-]
{
NOW es la fecha y hora del servidor Firebird
(1/24/60/60) es un segundo (1 día / 24 horas / 60 minutos / 60 segundos)
}
 
      qry_geral.SQL.Text := 'SELECT PC.ID, ID_COMANDA, FCH_HORA, ID_CODSKU, ' +
        'DESCRIP, QTY, PRECIO, ID_CUENTA, ID_MESERO, TOT_COMENSAL,'+
        'ID_SECC_PREPAR, TIPSKU, DESCRIP_OLD, ID_GRUPO, MESAUNIDA,' +
        'ESTATUS,US.NOMBRE AS NAME_MESERO ' +
        'FROM p_POOL_CMDAS PC ' +
        'JOIN m_USUARIOS US ON PC.ID_MESERO = US.CVE ' +
        'WHERE ESTATUS <> "EN" ' +

        'AND  FCH_HORA < 'NOW' - 5*(1/24/60/60)' +

        'ORDER BY ID_GRUPO, ID ';

[foxito]

Hola duilioisola, gracias por tu respuestas lo probare y te comento mas tarde. Me parece una muy buena solución