Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Asignar Dinamicamente Propiedad DisplayFormat antes de ejecutar X formulario o Report (https://www.clubdelphi.com/foros/showthread.php?t=91072)

rmendoza83 03-11-2016 21:20:21

Asignar Dinamicamente Propiedad DisplayFormat antes de ejecutar X formulario o Report
 
Buenas Tardes amigos, un saludo cordial a todos, vuelvo al foro con una duda para ver si me pueden orientar de una forma poca engorrosa de como hacer esta rutina, muchos clientes me han pedido en mis sistemas que la cantidad de decimales se pueda editar, que sean menos o que no tenga, mayor fastidio ya que se imaginan cambiar en diseño de unos 200 formularios esa propiedad en todos los componentes que lo pidan, adicionalmente de unos 120 reportes que muestran montos y cantidades?

Entonces se me ocurrió hacer una rutina que verifique todos los componentes si posee dicha propiedad, lo que quería saber si delphi tiene métodos para "preguntar si dicha clase posee el displayformat" ya que en un principio pensé en hacer un arreglo de strings y colocar el nombre de cada posible componente que puede tener esa propiedad! lo bueno es que tengo como 4 plantillas de formularios y que la mayoría de los forms heredan estas plantillas y pues sera cómodo implementarlo, en el proyecto hago uso de componentes zeos y las rusas (rxlib), también los reportes están hechos en nevrona rave reports 7.0, y estamos usando BDS 2006, imagino que estos datos son importantes para el aporte de ideas.

De antemano les doy las gracias por cualquier ayuda que me presten!

Al González 03-11-2016 21:38:48

¿Cuántos diferentes formatos podría indicar el usuario en una misma aplicación?

¿Desean aplicar el cambio de manera global o selectivamente por formulario/componente?

¿Cuántas clases de componentes se involucran en ello y cuáles son sus nombres y de qué biblioteca provienen?

¿Cómo se llama(n) la(s) propiedad(es) de formato?

¿El formato de máscara es el mismo para todas esas clases o la interpretación varía dependiendo de la implementación de los componentes? ¿Todos ellos se adhieren al estándar de la clásica propiedad DisplayFormat?

movorack 03-11-2016 21:39:36

Código Delphi [-]
implementation
uses TypInfo;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsPublishedProp (Button1, 'Visible') then
    begin
      SetPropValue (Button1, 'Visible',false);
    end;

end;

rmendoza83 03-11-2016 21:55:27

Cita:

Empezado por Al González (Mensaje 510429)
¿Cuántos diferentes formatos podría indicar el usuario en una misma aplicación?

¿Desean aplicar el cambio de manera global o selectivamente por formulario/componente?

¿Cuántas clases de componentes se involucran en ello y cuáles son sus nombres y de qué biblioteca provienen?

¿Cómo se llama(n) la(s) propiedad(es) de formato?

¿El formato de máscara es el mismo para todas esas clases o la interpretación varía dependiendo de la implementación de los componentes? ¿Todos ellos se adhieren al estándar de la clásica propiedad DisplayFormat?

Al Gonzalez, gracias por la respuesta, basicamente el formato el formato sera uno solo siempre! "#,##0.0000", por defecto seran siempre 4 decimales, lo que me interesa hacer dinamico, es la cantidad de decimales, basicamente hare una funcion que devuelva el formato según una cantidad de decimales. El cambio sera siempre global! osea mucho hago con consentir al cliente con los decimales y pues mas adelante hare configurable ese cambio por formulario (realmente no sera dificil al tener el procedimiento basico que funcione para cualquier formulario), clases de componentes muchisimas, mas que todo las estandar de delphi y componentes de terceros solo uso las rusas (rxlib) , y la propiedad a cambiar (basicamente ya la dije en el titulo) es displayformat, en formularios y reportes, ojo, en el caso de componentes como el rx numeric field, debe asignar tambien el numero de decimales, que no seria gran problema ya que es simplemente preg por ese tipo de componente.

rmendoza83 03-11-2016 21:58:05

Gracias movorack!!!
 
Cita:

Empezado por movorack (Mensaje 510430)
Código Delphi [-]
implementation
uses TypInfo;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsPublishedProp (Button1, 'Visible') then
    begin
      SetPropValue (Button1, 'Visible',false);
    end;

end;

creo que basicamente era lo que estaba buscando! sera implementable estos métodos en delphi 2006? BDS 2006, el otro detalle es con los reportes de rave reports! hay muy poca documentación de ellas en la red!

movorack 03-11-2016 22:26:56

Tengo D5 y XE3 en mi pc y ahí funciona. Creo que deberá funcionar en 2006.

Con respecto a Rave Reports, La verdad, no lo manejo.

Al González 03-11-2016 23:08:43

Creo que este hilo, y en especial la respuesta de cadetill (a quien envío un cordial saludo), te servirá:
http://www.clubdelphi.com/foros/showthread.php?t=8730

Por cierto, lo que comenté ahí en 2004 ha perdido un poco de vigencia. Ya que desde la versión 2010 existe una RTTI extendida con mayores capacidades.

Saludos.

rmendoza83 04-11-2016 17:34:59

Cita:

Empezado por movorack (Mensaje 510436)
Tengo D5 y XE3 en mi pc y ahí funciona. Creo que deberá funcionar en 2006.

Con respecto a Rave Reports, La verdad, no lo manejo.

Listo! Me pondre en estos momentos a hacer la rutina! la compartire al tenerla lista, estoy seguro que a muchos les sera de utilidad!

rmendoza83 04-11-2016 17:35:41

Cita:

Empezado por Al González (Mensaje 510438)
Creo que este hilo, y en especial la respuesta de cadetill (a quien envío un cordial saludo), te servirá:
http://www.clubdelphi.com/foros/showthread.php?t=8730

Por cierto, lo que comenté ahí en 2004 ha perdido un poco de vigencia. Ya que desde la versión 2010 existe una RTTI extendida con mayores capacidades.

Saludos.

Considerado amigo! muchas gracias por la ayuda

rmendoza83 04-11-2016 18:57:56

Completado Los Formularios Muchachos!!!
 
Bueno mi gente, muchas gracias por el aporte de ideas, logre resolver por el lado de delphi, me queda ahora ver como lo hago con Rave Reports, en un principio pensaba que la clase Component manejaba una propiedad de los componentes contenidos en el y ya me habia hecho una funcion recursiva y todo jejejeje, pero al depurar note que el arreglo Components y el ComponentCount devuelven los datos de todos los componentes indiferentemente de si estan contenidos o no, creo que debio haber sido una duda que tuve desde hace muchos años ya que programo en otros lenguajes, creo que java es asi y pense que delphi tambien, pero bueh funciona muy bien, les adjunto el codigo para quien le pueda ser util.

Código Delphi [-]
//Procedimientos y Funciones especiales para el cambio automatico del DisplayFormat
procedure AsignarDisplayFormat(Component: TComponent; NumeroDecimales: Integer);
var
  Formato: string;
begin
  Formato := '#,##0.' + StringOfChar('0',NumeroDecimales);
  if (Component.ClassName = 'TCurrencyEdit') then
  begin
    (Component as TCurrencyEdit).DisplayFormat := Formato;
    (Component as TCurrencyEdit).DecimalPlaces := NumeroDecimales;
  end;
  if (Component.ClassName = 'TFloatField') then
  begin
    (Component as TFloatField).DisplayFormat := Formato;
  end;
end;

procedure BuscarDisplayFormat(Form: TForm; NumeroDecimales: Integer);
var
  i: Integer;
begin
  for i := 0 to Form.ComponentCount - 1 do
  begin
    if (IsPublishedProp(Form.Components[i],'DisplayFormat')) then
    begin
      AsignarDisplayFormat(Form.Components[i],NumeroDecimales);
    end;
  end;
end;

Hice el procedimiento AsignarDisplayFormat de esa manera ya que no se si haya otra manera mas agradable de escribir jejejeje, se aceptan sugerencias en el codigo tambien.

Me pondre ahora con rave! ahi creo que si sera una total aventura!!! jejeje

ecfisa 04-11-2016 21:18:15

Hola.

No uso los componentes que mencionas pero tal vez esta opción, que almacena y por tanto "recuerda" el último formato elegido, te podría ser útil:
Código Delphi [-]
unit uCurrFormat;

interface

uses Classes;

type
  TCurrFormat  = class
  private
    FIniFileName  : string;
    FDefaultFormat: string;
    FGlobalFormat : string;
    function  GetGlobalFormat: string;
    procedure SetGlobalFormat( const StrFormat: string );
  public
    constructor Create;
    procedure SetDisplayFormat( TC: TComponent );
    property Format: string read FGlobalFormat write SetGlobalFormat;
  end;

var
  CurrFormat: TCurrFormat;

implementation

uses SysUtils, Forms, TypInfo, IniFiles, DB;

constructor TCurrFormat.Create;
begin
  FIniFileName   := ExtractFilePath(Application.ExeName) + 'IniFile.ini';
  FDefaultFormat := '#,##0.0000';
  FGlobalFormat  := GetGlobalFormat;
end;

function TCurrFormat.GetGlobalFormat: string;
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    if not FileExists( FIniFileName ) then
    begin
      Result := FDefaultFormat;
      ini.WriteString( 'DisplayFormat', 'Format', Result );
    end
    else
      Result := ini.ReadString( 'DisplayFormat', 'Format', '' );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetGlobalFormat( const StrFormat: string );
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    FGlobalFormat := StrFormat;
    if not FileExists( FIniFileName ) then
      ini.WriteString( 'DisplayFormat', 'Format', FDefaultFormat )
    else
      ini.WriteString( 'DisplayFormat', 'Format', FGlobalFormat );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetDisplayFormat( TC: TComponent );
var
  i, j: Integer;
  fld : TField;
  pNfo: PPropInfo;
begin
  for i := 0 to TC.ComponentCount-1 do
  begin
    if TC.Components[i] is TDataSet then
    begin
      for j := 0 to TDataSet( TC.Components[i] ).FieldCount-1 do
      begin
        fld := TDataSet( TC.Components[i] ).Fields[j];
        if fld is TCurrencyField then
          TCurrencyField(fld).DisplayFormat := FGlobalFormat;
      end;
    end
    else
    begin
      pNfo := GetPropInfo( TC.Components[i], 'DisplayFormat' );
      if Assigned( pNfo ) then
        SetStrProp( TC.Components[i], pNfo, FGlobalFormat );
    end;
  end;
end;

initialization
  if not Assigned ( CurrFormat ) then
    CurrFormat := TCurrFormat.Create;

finalization
  CurrFormat := nil;
end.

Ejemplo del uso:

DataModule,
Código Delphi [-]
unit Unit2;
...
implementation

uses uCurrFormat;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  DataSet.Open;
  CurrFormat.SetDisplayFormat(DataModule1); // (*)
end;

Form,
Código Delphi [-]
...
var
  MainForm: TMainForm;

implementation

uses Unit2{ DataModule }, uCurrFormat;

procedure TMainForm.Button1Click(Sender: TObject);
var
  peso: string;
begin
  if CheckBox1.Checked then
    peso := '$ '
  else
    peso := '';
  CurrFormat.Format := peso +'#,##0.' + StringOfChar('0', SpinEdit1.Value);
  CurrFormat.SetDisplayFormat(DataModule1);
end;
...

Vista del ejemplo:


(*) En esta línea se aplica el formato almacenado a los componentes del contenedor (form, datamodule, ) , por lo que tendrías que usarla en todas aquellas unidades en que desees visualizar el formato.

Saludos :)

Pd: (Si tenes alguna dificultad para implementarlo, avisame y te adjunto el código fuente del ejemplo)

rmendoza83 04-11-2016 21:54:01

Cita:

Empezado por ecfisa (Mensaje 510456)
Hola.

No uso los componentes que mencionas pero tal vez esta opción, que almacena y por tanto "recuerda" el último formato elegido, te podría ser útil:
Código Delphi [-]
unit uCurrFormat;

interface

uses Classes;

type
  TCurrFormat  = class
  private
    FIniFileName  : string;
    FDefaultFormat: string;
    FGlobalFormat : string;
    function  GetGlobalFormat: string;
    procedure SetGlobalFormat( const StrFormat: string );
  public
    constructor Create;
    procedure SetDisplayFormat( TC: TComponent );
    property Format: string read FGlobalFormat write SetGlobalFormat;
  end;

var
  CurrFormat: TCurrFormat;

implementation

uses SysUtils, Forms, TypInfo, IniFiles, DB;

constructor TCurrFormat.Create;
begin
  FIniFileName   := ExtractFilePath(Application.ExeName) + 'IniFile.ini';
  FDefaultFormat := '#,##0.0000';
  FGlobalFormat  := GetGlobalFormat;
end;

function TCurrFormat.GetGlobalFormat: string;
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    if not FileExists( FIniFileName ) then
    begin
      Result := FDefaultFormat;
      ini.WriteString( 'DisplayFormat', 'Format', Result );
    end
    else
      Result := ini.ReadString( 'DisplayFormat', 'Format', '' );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetGlobalFormat( const StrFormat: string );
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    FGlobalFormat := StrFormat;
    if not FileExists( FIniFileName ) then
      ini.WriteString( 'DisplayFormat', 'Format', FDefaultFormat )
    else
      ini.WriteString( 'DisplayFormat', 'Format', FGlobalFormat );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetDisplayFormat( TC: TComponent );
var
  i, j: Integer;
  fld : TField;
  pNfo: PPropInfo;
begin
  for i := 0 to TC.ComponentCount-1 do
  begin
    if TC.Components[i] is TDataSet then
    begin
      for j := 0 to TDataSet( TC.Components[i] ).FieldCount-1 do
      begin
        fld := TDataSet( TC.Components[i] ).Fields[j];
        if fld is TCurrencyField then
          TCurrencyField(fld).DisplayFormat := FGlobalFormat;
      end;
    end
    else
    begin
      pNfo := GetPropInfo( TC.Components[i], 'DisplayFormat' );
      if Assigned( pNfo ) then
        SetStrProp( TC.Components[i], pNfo, FGlobalFormat );
    end;
  end;
end;

initialization
  if not Assigned ( CurrFormat ) then
    CurrFormat := TCurrFormat.Create;

finalization
  CurrFormat := nil;
end.

Ejemplo del uso:

DataModule,
Código Delphi [-]
unit Unit2;
...
implementation

uses uCurrFormat;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  DataSet.Open;
  CurrFormat.SetDisplayFormat(DataModule1); // (*)
end;

Form,
Código Delphi [-]
...
var
  MainForm: TMainForm;

implementation

uses Unit2{ DataModule }, uCurrFormat;

procedure TMainForm.Button1Click(Sender: TObject);
var
  peso: string;
begin
  if CheckBox1.Checked then
    peso := '$ '
  else
    peso := '';
  CurrFormat.Format := peso +'#,##0.' + StringOfChar('0', SpinEdit1.Value);
  CurrFormat.SetDisplayFormat(DataModule1);
end;
...

Vista del ejemplo:


(*) En esta línea se aplica el formato almacenado a los componentes del contenedor (form, datamodule, ) , por lo que tendrías que usarla en todas aquellas unidades en que desees visualizar el formato.

Saludos :)

Pd: (Si tenes alguna dificultad para implementarlo, avisame y te adjunto el código fuente del ejemplo)

Interesante lo que propones, de verdad, aunque con lo que hice logre implementarlo sin ningun problema! como bien dije anteriormente solo me queda solucionar lo de rave reports!


La franja horaria es GMT +2. Ahora son las 09:21:36.

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