Fórum Como passar dados de um DbGrid para outro DbGrid selecionando apenas as linhas clicadas? #530263

Andrêy , Boa tarde.

Neste caso você deve ter um form de pesquisa de produto e uma tela de orçamento.
TABLE_ORCAMENTO >>FORM_ORCAMENTO
TABLE_PRODUTOS >>>>FORM_CONSULTA_PRODUTO


Na tela de orçamento você tem aguns Edits,

EDIT_COD_
EDIT_DESCRICAO_
EDIT_QT_
EDIT_VALOR_UNI_
EDIT_SUB_TOTAL_

BOTÃO_ADICIONAR_PRODUTO
BOTÃO_GRAVAR_ORÇAMENTO

NO EVENTO ONKEYDOWN DO FORM_ORCAMENTO.EDIT_COD_

IF FORM_ORCAMENTO.EDIT_COD_.TEXT<>'' THEN
BEGIN
IF KEY=VK_F2 THEN
BEGIN

DM.TABLE_PRODUTOS.CLOSE;
DM.TABLE_PRODUTOS.SQL.CLEAR;
DM.TABLE_PRODUTOS.SQL.TEXT:='SELECT * FROM TABLE_PRODUTOS WHERE ESTOQUE>0'; //AQUI ELE SÓ VAI LISTAR O QUE FOR MAIOR QUE 0
DM.TABLE_PRODUTOS.OPEN;

IF DM.TABLE_PRODUTOS.RECORDCOUNT=0 THEN
BEGIN
SHOWMESSAGE ('VOCÊ NÃO TEM SALDO EM ESTOQUE').
END
ELSE
BEGIN
FORM_CONSULTA_PRODUTO.SHOWMODAL;
END;


COM ISSO ELE VAI ABRIR A TELA DE CONSULTA DE PRODUTOS .
É SÓ SELECIONAR UM PRODUTO.
NA TELA DE CONSULTA VOCÊ CRIA UM EVENTO NO DBGRID
E AO ESCOLHER UM REGISTRO VOCÊ PREENCHE OS DADOS NOS EDITS DA TELA DE ORÇAMENTO.

EDIT_COD_
EDIT_DESCRICAO_
EDIT_QT_
EDIT_VALOR_UNI_
EDIT_SUB_TOTAL_

BOTÃO_ADICIONAR_PRODUTO>> VAI INSERIR OS DADOS NA TABELA ORÇAMENTO.

Espero que ajude.
Porém não testei o código acima.
Foi apenas citação.