F�rum Dois formul�rios para uma pesquisa #496381

02/10/2014

Bom dia pessoal, estou com um probleminha.

Eu tenho dois formul�rios, frmAtendente e frmRelatorio.

Ambos usam o frmPesqCliente para fazer a pesquisa de cliente.

O meu problema �: Quando eu abro o frmAtendente e pesquiso o cliente, o nome do cliente deve preencher o editCliente do meu frmAtendente. E quando eu abro o frmRelatorio a mesma coisa s� que no frmRelatorio n� rsrs. Da� pra fazer isso eu preciso saber qual formul�rio est� aberto no momento, se � o frmAtendente ou frmRelatorio. E para isso funcionar os dois devem sair da mem�ria ao fechar pra n�o termos problemas com os dois "abertos". Eu estou usando assim:

if Assigned(frmRelatorio) then
  begin
    frmRelatorio.editCliente.Text := dmDados.qryClienteNOME.AsString;
    frmRelatorio.editCodigo.Text := IntToStr(dmDados.qryClienteCODIGO.Value);
    Close;
  end
  else if Assigned(frmAtendente) then
  begin
    frmAtendente.nomecli := dmDados.qryClienteNOME.Value + ' (' + dmDados.qryClienteNOME1.Value + ')';
    frmAtendente.codcli := dmDados.qryClienteCODIGO.Value;
    frmAtendente.editCliente.Text := frmAtendente.nomecli;
    frmAtendente.editCodigo.Text := IntToStr(frmAtendente.codcli);
    frmAtendente.telcli := dmDados.qryClienteTELEFONE.Value;
    Close;
    frmAtendente.butOK.SetFocus;
  end;

Por�m n�o est� funcionando corretamente. No frmRelatorio funciona, no frmAtendente n�o.

Marlon Minotti

Curtir t�pico

+ 0

Responder

Posts

02/10/2014

Marlon Minotti

KKKKKKKKKKKKKK Consegui pessoal, foi uma coisa muito besta olha:

if Assigned(frmRelatorio) then
    begin
      frmRelatorio.editCliente.Text := dmDados.qryClienteNOME.AsString;
      frmRelatorio.editCodigo.Text := IntToStr(dmDados.qryClienteCODIGO.Value);
      Close;
    end;
    if Assigned(frmAtendente) then
    begin
      frmAtendente.nomecli := dmDados.qryClienteNOME.Value + ' (' + dmDados.qryClienteNOME1.Value + ')';
      frmAtendente.codcli := dmDados.qryClienteCODIGO.Value;
      frmAtendente.editCliente.Text := frmAtendente.nomecli;
      frmAtendente.editCodigo.Text := IntToStr(frmAtendente.codcli);
      frmAtendente.telcli := dmDados.qryClienteTELEFONE.Value;
      Close;
      frmAtendente.butOK.SetFocus;
    end;

Responder

Gostei + 0