TTprxCamposCalculadosForm

Descripción

El objeto TTprxCamposCalculadosForm (Selección de campos calculados de un atributo tipo clase) es el form que permite seleccionar campos calculados cuando estamos editando una clase y específicamente un atributo de tipo clase, por ejemplo: en una tabla estamos editando un campo de tipo ARTICULO.

Podemos elegir ver la lista de campos calculados:

Ver lista de campos calculados.

Seleccionar los campos calculados:

Seleccionar los campos.

Identidad

• Ancestro: TTprxForm
• Carpeta: C:\DevelopPrx\classes
• Archivo: prxCamposCalculadosForm.pas

Declaración

type
  TTprxCamposCalculadosForm = class(TTprxForm)
    prxADOQuery1: TprxADOQuery;
    prxDataSourceCAMPO: TDataSource;
    Panel3: TPanel;
    Panel8: TPanel;
    ButtonAPLICAR: TButton;
    ButtonCANCELAR: TSpeedButton;
    prxCheckListBoxCAMPOSCALCULADOS: TprxCheckListBox;
    procedure FormShow(Sender: TObject);
    procedure ButtonAPLICARClick(Sender: TObject);
    procedure ButtonCANCELARClick(Sender: TObject);
  private
    FDataSet: TDataSet;

    FClase: String;
    FCampo: String;
    FAtributoUDT: String;
  protected
    procedure   CamposCalculadosCargar;
    function    CamposAgregadosGrabar: Boolean;
  public
    property    DataSet: TDataSet read FDataSet write FDataSet;
    property    Clase: String read FClase write FClase;
    property    Campo: String read FCampo write FCampo;
    property    AtributoUDT: String read FAtributoUDT write FAtributoUDT;
  end;

property AtributoUDT: String read FAtributoUDT write FAtributoUDT

Tiene asignado el atributo, según ese valor carga los campos disponibles.

Implementación

procedure FormShow(Sender: TObject)

Carga la lista de campos del AtributoUDT.

procedure ButtonAPLICARClick(Sender: TObject)

Graba los campos seleccionados y cierra la pantalla.

procedure ButtonCANCELARClick(Sender: TObject)

Cancela la edición y cierra la pantalla.

procedure CamposCalculadosCargar

Carga los campos correspondientes al AtributoUDT desde la vista prxcamposJER_VISTA.

function CamposAgregadosGrabar: Boolean

Guarda los campos seleccionados en el campo CamposCalculados del dataset que abrió esta pantalla que es un DEV CLASES/CAMPOS.

Uso

Solo se usa desde la función procedure TprxDBEdit.MostrarCamposCalculadosForm(Sender: TObject).