Problemas con ClientDataSet

[Diana Carolina]

Buenos dias.

Necesito ayuda con lo siguiente.

La version que usamos en la empresa para desarrollo es la de Delphi 6.

El problema es el siguiente:


Tengo un formulario que me registra la informacion financiera de un cliente.

En este formulario se registran los ingresos y egresos anuales de los clientes a traves de un DBEdit, y el aplicativo por codigo llena otros DBEdit con la informacion mensual, la cual corresponde a los datos anuales registrados divididos entre 12. Los datos mensuales no se pueden editar puesto que los componentes estan como solo lectura.

Hasta aqui todo iba bien.

Hace como 6 meses el Ing que estaba de turno, realizó un cambio a este proceso y dejo editable los componentes de los ingresos y egresos mensuales, con el fin de que si se escribia un valor en la casilla mensual, automaticamente llenaba el campo correspondiente anual, y viceversa.

Para este proceso utilizo los componentes ClientDataset, DataProvider, TQuery y un DataSource, los cuales se encargan de hacer estas operaciones.

Como desde esa epoca hasta ahora no se habia vuelto a compilar ese proyecto no habia habido problemas. Pero ahora que se compilo nuevamente, alguno de estos componentes esta generando error al salir del formulario donde se utiliza, provocando un Access Violation.

A esta conclusion llegue despues de haber realizado pruebas con la antigua version donde solo habia un Tquery y no existian los cambios realizados por el Ing. en esta version pude ver que el proceso corre sin inconvenientes.

En el evento OnClose del Formulario se cierra el Client de esta forma:
ClientDataset.Close;

Seguido de esta linea:
Action := caFree;

Si alguien ha tenido el mismo problema agradeceria su orientacion y colaboracion.

Cualquier informacion adicional que sea requerida con gusto solo es que me digan y sera anexada.

Quedo atenta a sus comentarios y colaboracion.

Gracias.

[[oscarac]]

se que has querido explicarte de la mejor manera... pero...
podrias colocar algo del codigo que tienes?

[Diana Carolina]

Asi es como se llama al Formulario.

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.free;
  end;
end;

Asi es como se cierra el formulario.

Código Delphi [-]
procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close; //Este es el componente ClientDataSet.
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

  Action := caFree; //Cuando ejecuta esta linea sale el Access Violation
end;

Gracias por la colaboracion y si necesitan algo mas me avisan por favor.

[[oscarac]]

y como lo activas?

[[Lepe]]

Ten cuidado, estás liberando el frmClientes 2 veces, una en el finally y otra vez cuando se cierra (en el OnClose), Yo, personalmente pondría en el finally un frmClientes.Close (sabiendo que al cerrarse, ya se libera él solito).

Si tienes una cuenta de embarcadero, puedes bajar la actualización de los IBX a la versión 7.11, eso quitará, con suerte, los problemas raros y conocidos en el ClientDataset.

[Diana Carolina]

Empezado por oscarac

y como lo activas?

A que te refieres con Activarlo, no entendi, sorry.

[[oscarac]]

me referia a como lo abres....
se que es con un OPEN
pero antes hay que usar Fielddef.. etc...

si ya esta solucionado chevere !!!

[rgstuamigo]

Pues estás destruyendo al formulario dos veces y me parece que por eso te sale el error; primero lo haces aquí:

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
...
...
...
  finally
    FrmClientes.free;//<-- aqui está destruyendo o liberando el formulario
  end;
end;

Tambien en tu el evento OnClose estás haciendo:

Código Delphi [-]
procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
...
...
...
  Action := caFree; //<- Está linea tambien hace que se destruya el Formulario
end;

Te recomiendo decidirte por una de ellas y anular la otra y ver que sucede
EDITO: Ya Lepe lo comentó...

[[oscarac]]

ahi radica la importancia de colocar algo codigo para tener una mejor idea...

como dice rgstuamigo estas liberando 2 veces el formulario y eso es lo que te causa el problema

[Diana Carolina]

Hola

Hice las siguientes pruebas y anexo los resultados.

Deje esta parte igual.

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Free;
  end;
end;

Cambie esta parte. Comentarie el Action := caFree.

Código Delphi [-]
procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

//  Action := caFree; //Linea Comentariada para la prueba. 
end;

Resultado : Access Violation.

Prueba 2

Comentarié el Try

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
//  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.Show;
//  finally
//    FrmClientes.Free;
//  end;
end;

Esta parte la deje en su version original.

Código Delphi [-]
procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

  Action := caFree;
end;

Resultado : Access Violation

Prueba 3

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Close; //Cambie el Free por Close.
  end;
end;

Quite el caFree.

Código Delphi [-]
procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

//  Action := caFree; //Quite el caFree
end;

Resultado : Al cerrar FrmClientes no me sale Access Violation, pero si vuelvo y lo abro e intento registrar otro cliente me sale el error QryConsulta: Cannot perform this operation on a closed dataset. Cuando cierro el formulario principal FrmMenuCliente, me dice que provoco un error y debe cerrarse y despues me despliega el Access Violation. Osea que se cambia el error de un formulario a otro. y el problema es que no me deja crear o editar un nuevo cliente.

Prueba 4

Agregue Close despues del Free

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Free;
    FrmClientes.Close; //Agregué esta linea. 
  end;
end;

Quite el caFree

Código Delphi [-]
procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close;
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

//  Action := caFree; //Quite esta Linea
end;

Resultado : Access Violation.

Bueno parece que es mas complicado de lo que parece.

Ahi les dejo las 4 pruebas que realice sin exito.

Quedo atenta a sus comentarios.

Gracias.