F�rum Enviando dados de um form para o outro #427718

31/10/2012

Pessoal, tenho 2 form�s, no form1 eu tenho um bot�o que chama o form2.
o name do form1 � frm_faturamento
o name do form2 � frm_cadsimplificado

A inten��o � que ao lan�ar dados para o faturamento, se o cliente n�o for cadastrado o usu�rio possa clicar no bot�o e abrir o form para cadastrar os dados dos clientes e ao clicar em gravar, retorna-se ao form de faturamento com os dados do cliente.
Estou fazendo assim:

No form1

procedure Tfrm_faturar.BitBtn4Click(Sender: TObject);
var
 clienteSimplificado : Tfrm_cadClienteSimplificado;
begin

  clienteSimplificado := Tfrm_cadClienteSimplificado.Create(Self);
  clienteSimplificado.ShowModal;
end;

No form2

if DM_FINAN.DS_Clientes.State in [dsInsert] then
    begin
      CDS_somaID.Open;
      CDS_somaID.Last;
      ultimoCod := CDS_somaIDCLIENTES_ID.Value+1;
      DBEdit15.Text := IntToStr(ultimoCod);
      CDS_somaID.Close;

      DM_FINAN.CDS_Clientes.Post;
      DM_FINAN.CDS_Clientes.ApplyUpdates(-1);
      ShowMessage('Inclus�o realizada com sucesso...');
      frm_faturamento.DBEdit1.Text := DBEdit15.Text;

Est� erro de viola��o de acesso.

Marcos Barbosa

Curtir t�pico

+ 0

Responder

Posts

31/10/2012

Claudia Nogueira

Debugando d� erro de acesso violado em que linha?

Eu n�o faria assim, faria dessa forma. Levando em considera��o que o name do Form Tfrm_cadClienteSimplificado seria frm_cadClienteSimplificado o c�digo do form 1 ficaria assim:

Application.CreateForm(Tfrm_cadClienteSimplificado,frm_cadClienteSimplificado)     
frm_cadClienteSimplificado.ShowModal;
if frm_cadClienteSimplificado = mrOk then
  DBEdit1.Text := frm_cadClienteSimplificado.DBEdit1.Text;
FreeAndNil(frm_cadClienteSimplificado);

No form 2 algo mais ou menos assim:

if DM_FINAN.DS_Clientes.State in [dsInsert] then
begin
CDS_somaID.Open;
CDS_somaID.Last;
ultimoCod := CDS_somaIDCLIENTES_ID.Value+1;
DBEdit15.Text := IntToStr(ultimoCod);
CDS_somaID.Close;

DM_FINAN.CDS_Clientes.Post;
DM_FINAN.CDS_Clientes.ApplyUpdates(-1);
ShowMessage('Inclus�o realizada com sucesso...');
ModalResult := mrOK;

Responder

Gostei + 0

31/10/2012

Marcos Barbosa

o erro � na linha

frm_faturamento.DBEdit1.Text := DBEdit15.Text;

Responder

Gostei + 0

31/10/2012

Marcos Barbosa

Claudinha, d� erro na linha

if frm_cadClienteSimplificado = mrOk then

Erro: Incompatible types

Responder

Gostei + 0

31/10/2012

Claudia Nogueira

Ops, digitei errado, o certo �:

if frm_cadClienteSimplificado.modalresult = mrOk then

Claudinha, d� erro na linha

if frm_cadClienteSimplificado = mrOk then

Erro: Incompatible types

Responder

Gostei + 0

31/10/2012

Marcos Barbosa

Vlw, agora sim...
Muito obrigado.

Responder

Gostei + 0