Como passar dados de um DbGrid para outro DbGrid selecionando apenas as linhas clicadas?
Eu estou fazendo uma tela de orçamento, eu quero jogar no campo orçamento todas as peças que eu selecionar da minha tabela de peças cadastradas, portanto quando eu seleciono a peça ela não vai para o orçamento, como fazer?
Andrêy Ferraz
Curtidas 0
Melhor post
Raimundo Pereira
31/08/2015
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.
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.
GOSTEI 1
Mais Respostas
Andrêy Ferraz
31/08/2015
P2 muito obrigado cara, realmente tava quebrando cabeça aqui até agora, vou testar aqui e te falo se deu certo!!!
GOSTEI 0