Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Actualizar esta página Problemas con ClientDataSet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
Anterior Mensaje Previo   Próximo Mensaje Siguiente
  #8  
Antiguo 14-04-2011
Diana Carolina Diana Carolina is offline
Miembro
NULL
  
Registrado: nov 2010
Posts: 30
Poder: 0
Diana Carolina Va por buen camino
Cita:
Empezado por oscarac Ver Mensaje
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.
Responder Con Cita
 

« Tema Anterior | Próximo Tema »

Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado
Modo Hilado Modo Hilado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas con el MasterSource en un ClientDataset ---baja--- 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


La franja horaria es GMT +2. Ahora son las 20:32:48.

Club Delphi - Archivo - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi