refresh failed. found 0 records

[Carlos1234]

boa noite equipe casa do desenvolvedor. gente estou recebendo essa mensagem

refresh failed. found 0 records  apos eu finalizar uma venda no pdv. lembrando

que ps produtos da grid nao sao limpos e nao fecha a tela do pdv. pra que eu

possa iniciar uma nova venda. quem poder me ajudar eu agradeco. o codigo

esta abaixo com 2 telas uma do pdv e a outra de finalizacao de vendas

procedure TfrmPdv.ZeraListaPedidos;
begin
      with dm_dados.sql_listar_pedidos do
begin
      Close;
       sql.Clear;
       sql.Add('select * from view_listar_pedidos');
       sql.Add('where ped_codpedido = :codigo');
       ParamByName('codigo').Value := CODIGO_VENDA;
       open();
end;
       dm_dados.sql_listar_pedidos.Close;
end;
end.

 

procedure TfrmFinalizarVendas.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      case key of
      VK_F3:
begin
      //Finalizar totalmente a venda
      Criar_Mensagem('Confirmacao', 'Confirmar Operacao', 'Finalizar Venda?', 'question.png', 'CONFIRMACAO');

      if frmMensagens.bResposta = true then
begin
      dm_dados.tbl_pedidos.Active := true;
      dm_dados.tbl_pedidos.Locate('ped_codpedido', CODIGO_VENDA, []);

      dm_dados.tbl_pedidos.Edit;

      dm_dados.tbl_pedidosped_datpedido.Value              := Date;
      dm_dados.tbl_pedidosped_codpedido.Value             := CODIGO_VENDA;
      dm_dados.tbl_pedidoscli_id.Value                                := ID_CLIENTE;
      dm_dados.tbl_pedidosped_cpfcliente.Value              := NumCPF;
      dm_dados.tbl_pedidosuser_id.Value                            := 1; //Colocar o usuario logado no Sistema
      dm_dados.tbl_pedidosped_formaspgto.Value           := CodForma;
      dm_dados.tbl_pedidosped_pedfechado.Value          := 'SIM';
      dm_dados.tbl_pedidosped_pedfaturamento.Value := 'SIM';

      dm_dados.tbl_pedidos.Post;
      frmPdv.FinalizaDesabilita;
      frmFinalizarVendas.Close;        
end;
end;
      VK_F7:
begin
      //Chama a tela Formas de Pagamentos
      frmTelaPagamentos := TfrmTelaPagamentos.Create(Self);
      FiltrarTipoPagamentoPdv;
      frmTelaPagamentos.ShowModal;
      FreeAndNil(frmTelaPagamentos);
end;
end;
end;