Problemas con ClientDataSet

Diana Carolina · #1 14-04-2011

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] · #2 14-04-2011

y como lo activas?

[Lepe] · #3 14-04-2011

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 · #4 14-04-2011

Cita:

Empezado por oscarac

y como lo activas?

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

[oscarac] · #5 14-04-2011

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

si ya esta solucionado chevere !!!

Diana Carolina · #6 14-04-2011

Cita:

Empezado por 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 !!!

Anexo las partes donde veo que se abre el ClientDataSet.

Código Delphi [-]//RadioGroup Tipo de Persona
procedure TFrmClientes.rgrTipoPersonaClick(Sender: TObject);
var i : Integer;
begin
RxDescripcionCiiu.DisplayValue := '';
RxCodCiiu.KeyValue             := '';
ediTipoIdentificacion.Text     := '';
ediIdentificacion.Text         := '';

for i := 0 to QryLmClien.ParamCount -1 do
    QryLmClien.Params[i].Clear;

QryLmClien.Close;
QryLmClien.Open;
QryLmClien.Insert;

QryLmFinan.Close; //Aqui lo abren 
QryLmFinan.Params.ParamByName('IdeCliente').AsString := QryLmCliennit_clie.AsString;
QryLmFinan.Params.ParamByName('TipoIde').AsString    := QryLmClientip_iden.AsString;
QryLmFinan.Open;

//al insertar o modificar siempre se activa rgrtipopersona...
pgDatosCliente.ActivePage := TabDatosBas;
TabDatosBasNat.TabVisible := False;
TabDatosBasJur.TabVisible := False;

if rgrTipoPersona.ItemIndex = 0 then
   begin
   QryLmTipIden.Filter:= 'cod_tipiden <> ' + #39 + 'NI' + #39;
   TabDatosBasNat.TabVisible := True;
   if QryOrigenesCod_Firma.AsString = '027' then
      begin
      Label19.Caption := 'Ingresos';
      Label75.Caption := 'Ingresos'
      end;
   end
else
   begin
   QryLmTipIden.Filter:= 'cod_tipiden <> ' + #39 + 'CC' + #39;
   TabDatosBasJur.TabVisible := True;
   if QryOrigenesCod_Firma.AsString = '027' then
      begin
      Label19.Caption := 'Ventas';
      Label75.Caption := 'Ventas'
      end;
   end;

DbeIngresosMensual.enabled:=(rgrTipoPersona.ItemIndex=0);
DbeEgresosMensual.enabled:=(rgrTipoPersona.ItemIndex=0);
//DbeUtilidadMensual.enabled:=(rgrTipoPersona.ItemIndex=0);
end;

Este es la programacion que tiene el boton aplicar que guarda los cambios realizados a la informacion financiera.

Código Delphi [-]procedure TFrmClientes.bbtAplicarClick(Sender: TObject);
begin
//lm_finan
if QryLmFinan.State in [dsInsert,dsEdit] then
   QryLmFinan.Post;
end;

Anexo las partes donde se hace referencia al Client

Código Delphi [-]procedure TFrmClientes.dbeActivoExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanvlr_acti.AsFloat then
      QryLmFinanvlr_acti.AsFloat:=Valor;

   If((Trim(dbeActivo.Text)<>'')And(Trim(dbePasivo.Text)<>''))Then
      Try
        dbePatrimonio.Text:=FormatFloat('####,####,####,##0.00',Valor-StrToFloat(RemCar(',',dbePasivo.text)));
        If((Trim(dbeActivo.Text)<>'0.00')And(Trim(dbePasivo.Text)<>'0.00'))Then
            QryLmFinanvlr_patr.AsFloat:=StrToFloat(RemCar(',',dbePatrimonio.Text));
        Except
            ShowMessage('Valor activo o pasivo no valido. Verifique por favor!!');
            Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.dbePasivoExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanvlr_pasi.AsFloat then
      QryLmFinanvlr_pasi.AsFloat:=Valor;

   If((Trim(dbeActivo.Text)<>'')And(Trim(dbePasivo.Text)<>''))Then
      Try
        dbePatrimonio.Text:=FormatFloat('####,####,####,##0.00',StrToFloat(RemCar(',',dbeActivo.text))-Valor);
        If((Trim(dbeActivo.Text)<>'0.00')And(Trim(dbePasivo.Text)<>'0.00'))Then
           QryLmFinanvlr_patr.AsFloat:=StrToFloat(RemCar(',',dbePatrimonio.Text));
        Except
             ShowMessage('Valor activo no valido. Verifique por favor.');
             Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.DBEIngresosPromedioExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

    if TEdit(Sender).Text='' then
       valor:=0.00
    else
       Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

    TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

    if Valor<>QryLmFinaning_prom.AsFloat then
       QryLmFinaning_prom.AsFloat:=Valor;

    If((Trim(DBEIngresosPromedio.Text)<>'')And(Trim(DBEEgresosPromedio.Text)<>''))Then
       Try
         DBEUtilidadPromedio.Text:=FormatFloat('####,####,####,##0.00',Valor-StrToFloat(RemCar(',',DBEEgresosPromedio.text)));
         If((Trim(DBEIngresosPromedio.Text)<>'0.00')And(Trim(DBEEgresosPromedio.Text)<>'0.00'))Then
            QryLmFinanuti_prom.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadPromedio.Text));
         Except
              ShowMessage('Valor Ingreso o Egreso no valido. Verifique por favor!!');
              Abort;
         End;
    end;
end;

Código Delphi [-]procedure TFrmClientes.DBEEgresosPromedioExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanegr_prom.AsFloat then
      QryLmFinanegr_prom.AsFloat:=Valor;

   If((Trim(DBEIngresosPromedio.Text)<>'')And(Trim(DBEEgresosPromedio.Text)<>''))Then
      Try
        DBEUtilidadPromedio.Text:=FormatFloat('####,####,####,##0.00',StrToFloat(RemCar(',',DBEIngresosProme  dio.text))-Valor);
        If((Trim(DBEIngresosPromedio.Text)<>'0.00')And(Trim(DBEEgresosPromedio.Text)<>'0.00'))Then
            QryLmFinanuti_prom.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadPromedio.Text));
        Except
             ShowMessage('Valor Ingreso o Egreso no valido. Verifique por favor!!');
             Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.DBEOtros_IngresosExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanOtr_Ingr.AsFloat then
      QryLmFinanOtr_Ingr.AsFloat:=Valor;
   end;

end;

Código Delphi [-]procedure TFrmClientes.DBEIngresosMensualExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanIng_Mens.AsFloat then
      QryLmFinanIng_Mens.AsFloat:=Valor;

   If((Trim(DBEIngresosMensual.Text)<>'')And(Trim(DBEEgresosMensual.Text)<>''))Then
      Try
      DBEUtilidadMensual.Text:=FormatFloat('####,####,####,##0.00',Valor-StrToFloat(RemCar(',',DBEEgresosMensual.text)));
      If((Trim(DBEIngresosMensual.Text)<>'0.00')And(Trim(DBEEgresosMensual.Text)<>'0.00'))Then
         QryLmFinanUti_Mens.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadMensual.Text));
      Except
           ShowMessage('Valor Ingreso Mensual o Egreso Mensual no valido. Verifique por favor!!');
           Abort;
      End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.DBEEgresosMensualExit(Sender: TObject);
var Valor:variant;
begin
if QryLmFinan.active then
   begin
   if not(QryLmFinan.state in [dsinsert,dsedit])then
      QryLmFinan.edit;

   if TEdit(Sender).Text='' then
      valor:=0.00
   else
      Valor:=StrToFloat(RemCar(',',TEdit(Sender).Text));

   TEdit(Sender).Text:=FormatFloat('####,####,####,##0.00',Valor);

   if Valor<>QryLmFinanEgr_Mens.AsFloat then
      QryLmFinanEgr_Mens.AsFloat:=Valor;

   If((Trim(DBEIngresosMensual.Text)<>'')And(Trim(DBEEgresosMensual.Text)<>''))Then
      Try
        DBEUtilidadMensual.Text:=FormatFloat('####,####,####,##0.00',StrToFloat(RemCar(',',DBEIngresosMensua  l.text))-Valor);
        If((Trim(DBEIngresosMensual.Text)<>'0.00')And(Trim(DBEEgresosMensual.Text)<>'0.00'))Then
           QryLmFinanUti_Mens.AsFloat:=StrToFloat(RemCar(',',DBEUtilidadMensual.Text));
        Except
             ShowMessage('Valor Ingreso Mensual o Egreso Mensual no valido. Verifique por favor!!');
             Abort;
        End;
   end;
end;

Código Delphi [-]procedure TFrmClientes.QryLmFinanAfterOpen(DataSet: TDataSet);
begin
bbtaplicar.enabled:=false;
bbtcancelar.enabled:=false;
bbtAdicionar.enabled:=true;
QryLmFinan.findlast;

QryLmFinan.edit;
QryLmFinanActivo.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanvlr_acti.AsFloat);
QryLmFinanPasivo.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanvlr_pasi.AsFloat);
QryLmFinanPatrimonio.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanvlr_patr.AsFloat);
QryLmFinanIngresos.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinaning_prom.AsFloat);
QryLmFinanEgresos.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanegr_prom.AsFloat);
QryLmFinanUtilidad.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanuti_prom.AsFloat);
QryLmFinanIng_Mensual.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanIng_Mens.AsFloat);
QryLmFinanEgre_Mensual.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanEgr_Mens.AsFloat);
QryLmFinanUti_Mensual.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanUti_Mens.AsFloat);
QryLmFinanOtros_Ingresos.AsString:=FormatFloat('####,####,####,##0.00',QryLmFinanOtr_Ingr.AsFloat);
end;

Estas la mayoria de las partes donde se referencia a este ClientDataSet.

Espero que sirva de algo.

Muchas Gracias.

rgstuamigo · #7 14-04-2011

Haber cambia ésta parte>

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;

por ésta otra>

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
 try
   if not Assigned(FrmClientes)then //si no hay objeto creado para el apuntador "FrmClientes"
     {entonces lo voy a crear..}
     FrmClientes:=TFrmClientes.Create(Application);//creo una instancia nueva
  {De aquí en adelante ya se sabe que el FrmClientes no está en nulo}
  Permisos(FrmClientes.Tag);
  PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
  FrmClientes.ShowModal;
  finally
   FreeAndNil(FrmClientes);
  end;
end;

Prueba y nos comentas...

Saludos...

Diana Carolina · #8 14-04-2011

Cita:

Empezado por rgstuamigo

Haber cambia ésta parte>

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;

por ésta otra>

Código Delphi [-]procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
 try
   if not Assigned(FrmClientes)then //si no hay objeto creado para el apuntador "FrmClientes"
     {entonces lo voy a crear..}
     FrmClientes:=TFrmClientes.Create(Application);//creo una instancia nueva
  {De aquí en adelante ya se sabe que el FrmClientes no está en nulo}
  Permisos(FrmClientes.Tag);
  PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
  FrmClientes.ShowModal;
  finally
   FreeAndNil(FrmClientes);
  end;
end;

Prueba y nos comentas...

Saludos...

Hola Reemplacé el código con el que me enviaste y aún me sale el error de Access Violation. Además cuando cierro el formulario y lo intento abrir de nuevo me dice que ya existe un formulario llamado frmclientes, adjunté las imágenes que me salen. Espero que sirvan de algo.

Gracias por la colaboracion y quedo a la espera de sus comentarios.

rgstuamigo · #9 14-04-2011

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] · #10 14-04-2011

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 · #11 14-04-2011

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.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Problemas con el MasterSource en un ClientDataset	ygkw	Conexión con bases de datos	2	05-03-2015 22:59:59
Problemas Con El Clientdataset Y Tztable	foxito	Conexión con bases de datos	4	24-11-2008 17:38:37
Problemas con clientdataset y limit	Edgtho	Conexión con bases de datos	11	02-06-2008 08:32:58
Problemas con Clientdataset.Open;	jmlifi	Varios	1	16-11-2006 13:51:13
Problemas con DBExpress - ClientDataset	argami	Conexión con bases de datos	4	26-07-2004 11:21:12