CHAMAR UMA FUNCAO DE PESQUISA PRODUTO NA GRID

Question

UTILIZO  DELPHI 7BANCO DE DADOS FIREBIRDCOMPONENTE DBEXPESSTENHO UM PROGRMA DE DIGITACAO DE PEDIDOO CLIENTE QUER QUE TODA VEZ QUE ENTRAR NA LINHA DE DIGITACAO DE ITENS ANTES DE DIGITAR O CODIGO DO PRO...

Woinch · Answer

No evento OnEnter do Edit, fa�a o seguinte:

procedure TForm1.Edit1Enter(Sender: TObject);
var
  NomeDaTelaDeBusca := TNomeDaTelaDeBusca; //aqui voce deve substituir pelas informa��es corretas do formul�rio que voc� quer abrir

begin
  NomeDaTelaDeBusca := TNomeDaTelaDeBusca.Create(Application);
  if (NomeDaTelaDeBusca.ShowModal = mrOk) then //Lembro que para esse teste funcionar voc� deve ter um bot�o que feche a janela e tenha a propriedade ModalResult como mrOk.
    Edit1.Text := NomeDaTelaDeBusca.VariavelRetorno; //Vari�vel retorno � uma vari�vel global que deve ser definida no form de busca que ao efetuar o evento FormClose deve ser preenchida com o conte�do que voce deseja
end;

Tente usar esse exemplo que lhe passei, qualquer d�vida favor responder.

Placido · Answer

Boa tardeMeu amigo obrigado pela ajuda..Mas o meu caso � uma grid N�o � um campo editGratoPl�cido...

Woinch · Answer

Para adaptar basta utilizar o evento OnColEnter ao inv�s do OnEnter....

Placido · Answer

Bom diaMeu amigo obrigado pela ajuda..Mas n�o consegui resolver o problemaVeja o meu comandop abaixo-----------------------------------------------------------------------------procedure TfrmMovPedido.gdPedidoColEnter(Sender: TObject);var  VcolunaAnterior : Smallint;   result : variant;   mteste : Integer;begin  inherited;  VcolunaAnterior := 0;// inicio pesquisa           FrmPesquisaProdutos := TFrmPesquisaProdutos.Create(Self);            FrmPesquisaProdutos.ResultField := 1;            FrmPesquisaProdutos.Pesquisa := true;            result := FrmPesquisaProdutos.Open;            if result <> null then              begin                if not(dsDetalhe.DataSet.State in [dsInsert, dsEdit]) then                  dsDetalhe.DataSet.Edit;                SalvarBTN.Enabled := True;                cdsDetalhePROD_CODIGO.AsInteger := StrToInt(result);              end;            FrmPesquisaProdutos.Release;// fim pesquisaend;----------------------------------------------------------------------------Esta chamando a funcao de pesquisa, mas so que cada campo que o digito chama a tela de pesquisa de produto, eu quero chamar a tela de pesquisa sempre ao entrar na linha de digita��o de itens.GratoPl�cido...

Osocram · Answer

Amigo,Por experiencia pr�pria n�o aconselho permitir opera��es direto no dbgrid. Pois � bem complicado fazer valida��es e tudo mais.Coloque uns dbedit logo acima do dbgrid dos campos que o usuario pode editar e use o que o amigo Woinch disse....

Woinch · Answer

Se voc� quiser validar qual a linha esta selecionada basta utilizar a propriedade SelectedIndex do DBGrid.Espero ter ajudado....

F�rum CHAMAR UMA FUNCAO DE PESQUISA PRODUTO NA GRID #371815