procedure TForm1.ImprimeCozinha;
var pedido:TfrxReport;
var impressora:string;
var i,id:Integer;
var dir: string;
begin
 Timer1.Enabled:= FALSE;
 dir:=ExtractFilePath(ParamStr(0)) ;


//CRIA A INSTÂNCIA DA IMPRESSORA
    pedido:=TfrxReport.Create(Self);

     //BUSCA AS MESAS QUE ESTÃO NA FILA
     QRMESAS.Close;
     QRMESAS.ParamByName('STATUS_ENVIADO').Value:='N';
     QRMESAS.Open();      //BUSCA OS PEDIDOS QUE ESTÃO NA FILA
      //Verifica se tem resultado
      if QRMESAS.RecordCount > 0 then
         begin
         QRMESAS.First;
         application.ProcessMessages;
         while not qrMesas.Eof do
          begin
                 TRY
                        qrProdutos.Close;
                        qrProdutos.ParamByName('COD_MESA').Value:= QRMESAS.FieldByName('CODIGO').AsInteger;   //fcapa.mesa;
                        qrProdutos.ParamByName('IND_ENTREGUE').Value:='N';
                        qrProdutos.Open();
                          application.ProcessMessages;
                           if qrProdutos.RecordCount > 0 then
                           begin
                           qrProdutos.First;



                                  //Lista os produtos
                                  for I := 1 to qrProdutos.RecordCount do
                                   begin

                                        application.ProcessMessages;
                                        //criando dataset
                                        if ClientDataSet1.Active then
                                          ClientDataSet1.IsEmpty
                                         else
                                         ClientDataSet1.CreateDataSet;

                                        //ClientDataSet1.CreateDataSet;
                                        ClientDataSet1.Append;
                                        ClientDataSet1CODIGO.Value:= qrProdutosCODIGO.Value;
                                        ClientDataSet1PRODUTO.Value := qrProdutosPRODUTO.Value;
                                        ClientDataSet1QTDE.value := qrProdutosQTDE.Value;
                                        ClientDataSet1OBS.Value:= qrProdutosOBS.Value;
                                        ClientDataSet1PROD_IMPRESSORA.Value:= qrProdutosPROD_IMPRESSORA.Value;
                                        ClientDataSet1.Post;


                                        ClientDataSet1.IndexFieldNames := qrProdutos.IndexFieldNames;

                                       // pedido.DataSet := ClientDataSet1; {Joga a tabela de etiquetas para o relaório}

                                        impressora:=ClientDataSet1PROD_IMPRESSORA.Value;
                                       // if impressora <> '' then
                                       //  begin



                                          pedido.LoadFromFile(dir+'envia_pedido.fr3');
                                          pedido.PrintOptions.ShowDialog:=False ;


                                          pedido.Variables['titulo']:=''''+'MESA'+'''';
                                          pedido.Variables['tipo']:=QRMESAS.FieldByName('CODIGO').AsInteger;//fcapa.mesa;


                                          pedido.PrintOptions.Printer:=impressora;
                                          pedido.PrepareReport(True);
                                          pedido.PreviewOptions.RTLPreview:=False;
                                          pedido.Print;
                                       //  end;


//                                          while not qrProdutos.Eof do
//                                          begin
                                            application.ProcessMessages;
                                              with QUERY do
                                               begin
                                               Close;
                                               sql.Clear;
                                               sql.Add('UPDATE PRODUTOS_MESAS SET IND_ENTREGUE=:IND_ENTREGUE');
                                               sql.Add('WHERE COD_MESA=:COD_MESA AND CODIGO=:CODIGO');
                                               ParamByName('IND_ENTREGUE').Value:='S';
                                               ParamByName('COD_MESA').Value:=QRMESAS.FieldByName('CODIGO').AsInteger;
                                               ParamByName('CODIGO').Value:=ClientDataSet1CODIGO.Value;//qrProdutosCODIGO.Value;
                                               ExecSQL;
                                               end;

                                          //end;

                                         ClientDataSet1.EmptyDataSet;
                                        // ClientDataSet1.Destroying;

                                         qrProdutos.Next;
                                         application.ProcessMessages;
                                         with QUERY do
                                               begin
                                               Close;
                                               sql.Clear;
                                               sql.Add('UPDATE MESAS SET STATUS_ENVIADO=:STATUS_ENVIADO');
                                               sql.Add('WHERE CODIGO=:CODIGO');
                                               ParamByName('STATUS_ENVIADO').Value:='S';
                                               ParamByName('CODIGO').Value:=QRMESAS.FieldByName('CODIGO').AsInteger;
                                               //ParamByName('CODIGO').Value:=ClientDataSet1CODIGO.Value;//qrProdutosCODIGO.Value;
                                               ExecSQL;
                                               end;


                                  end;
                           end;


                 FINALLY
                  qrMesas.Next;
                 END;


          end;

      end;

   QRMESAS.Close;

    pedido.Destroy;


end;