TransWikia.com

Delphi - Recuperar código no DBGrid apos cadastro

Stack Overflow em Português Asked by Ederson Silva on November 30, 2020

Olá !

Tenho uma DBGrid conectada a tabela temporária (TFDMemTable) com dados de produtos que foram importados de um XML e a partir de um produto eu chamo em tempo de execução o formulario de cadastro de produtos preenchendo algun campos, como poderia ser feito para que a dbgrid seja atualizada com o codigo e a descricao desse produto cadastrado apos gravar o produto no banco Firebird, para que eu possa vincular esse produto do fornecedor ao produto.

procedure TfrmVinculaProduto.btnCadastraProdutoClick(Sender: TObject);
begin
  FrmProdutos := TFrmProdutos.Create(Self);
  FrmProdutos.DoubleBuffered := True;
  FrmProdutos.WindowState := wsMaximized;
  FrmProdutos.FrmFrameBotoes1.SpbAdicionarClick(Sender);

  FrmProdutos.DBEditDescricao.Text := mtVinculaItemDESCRICAO.AsString;
  FrmProdutos.DBEdit_CodigoBarra.Text := mtVinculaItemEAN.AsString;
  FrmProdutos.EditCodigoFabricante.Text := mtVinculaItemPRODUTO.AsString;
  FrmProdutos.DBEdit_PrcCusto.Text := FormatFloat('###,###,##0.00',
  mtVinculaItemVL_UNITARIO.AsFloat);



  FrmProdutos.ShowModal;
end;

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP