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


https://i.ibb.co/bWQYdj7/Fto-Comanda.jpg

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):

{
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