TTprxMENUS GRID Frame OrdenForm

Descripción

El objeto TTprxMENUS_GRID_Frame_OrdenForm (Form para ordenar objetos en la grilla del explorador) permite ordenar las opciones agregadas a la grilla del menú de la aplicación principal. El form se llama desde:

Llamar al form para ordenar el menú.

Al elegir la opción veremos este form:

Ordenar el menú.

Notar que en esta pantalla vemos las mismas opciones que se veían en el menú. El ordenamiento se cambia simplemente moviendo de lugar las opciones, por ejemplo, ubicar CUENTA encima de todo.

Identidad

• Ancestro: TfvsForm
• Carpeta: C:\DevelopPrx\frames
• Archivo: prxMENUS_GRID_Frame_OrdenForm.pas

Declaración

type
  TTprxMENUS_GRID_Frame_OrdenForm = class(TTfvsForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Memo_COLUMNAS: TMemo;
    Button_NEW_Reset: TButton;
    Button_NEW_Aplicar: TButton;
    Button_NEW_Cancelar: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button_NEW_ResetClick(Sender: TObject);
    procedure Button_NEW_AplicarClick(Sender: TObject);
    procedure Button_NEW_CancelarClick(Sender: TObject);
  private
    FMenu_Origen: String;
    FMenu_Menu: String;
    FMenu_Clave: String;
  protected
  public
    property    Menu_Origen: String read FMenu_Origen write FMenu_Origen;
    property    Menu_Menu: String read FMenu_Menu write FMenu_Menu;
    property    Menu_Clave: String read FMenu_Clave write FMenu_Clave;
  end;

property Menu_Origen: String read FMenu_Origen write FMenu_Origen

Se inicializa con el tipo de menú que llama al form:

• En este caso MENU.
• Si el menú llamador fuera el de favoritos diría MENU_FAVS.
• Si el menú llamador fuera uno de catálogo diría CATALOG.

property Menu_Menu: String read FMenu_Menu write FMenu_Menu

Se inicializa con el menú que llama al form, en este caso 'pragma_contabilidad.

property Menu_Clave: String read FMenu_Clave write FMenu_Clave

Se inicializa con el submenú que llama al form, en este caso 'pragma_contabilidad&&Maestros&&Maestros.

Implementación

procedure Button_NEW_ResetClick(Sender: TObject)

Carga los objetos agregados al menú, si es una carpeta normal el SQL es:

SELECT pMENU_OBJS.FOBJETO FROM pMENU_OBJS WHERE
pMENU_OBJS.FMENU = @Menu_Menu
AND pMENU_OBJS.FCLAVE = @Menu_Clave
ORDER BY ISNULL(pMENU_OBJS.FORDEN, 999999)

procedure Button_NEW_AplicarClick(Sender: TObject)

Guarda los cambios hechos en la tabla pMENU_OBJS.

Uso

Se usa en TTprxMENUS_GRID_Frame.prxMENUS_CLIENT_Frame_OrdenForm_Click.