Current form table

4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente

versión 11 (Modificado)


Current form table Puntero

ParámetroTipoDescripción
Este comando no necesita parámetros
ResultadoPunteroPuntero hacia la tabla del formulario de salida actual

Descripción

El comando Current form table devuelve el puntero hacia la tabla del formulario en pantalla o impreso en el proceso actual.

La función devuelve Nil en los siguientes casos:

No hay formulario mostrado o impreso en el proceso actual,

El formulario actual es un formulario de proyecto.

Si hay varias ventanas abiertas en el proceso actual (significa que la última ventana abierta es la ventana activa actual), el comando devuelve un puntero hacia la tabla del formulario que aparece en la ventana activa.

Si el formulario mostrado actualmente es el formulario detallado de un área de subformulario, usted se encuentra en entrada de datos e hizo doble clic en un registro o subregistro en un área de subformulario de doble clic. En este caso, el comando devuelve:

El puntero hacia la tabla mostrada en el área del subformulario, si el subformulario muestra una tabla.

Un puntero no significativo, si el área de subformulario muestra una subtabla.

Ejemplo

En su aplicación, utiliza la siguiente convención cuando visualiza un registro:

Si la variable vsCurrentRecord está presente en un formulario, muestra "Nuevo registro" si está trabajando con un nuevo registro. Si está trabajando con el registro 56 de una selección compuesta por 5200 registros, muestra "56 de 5200".

Para esto, utilice el método de objeto para crear la variable vstRegistroActual, luego cópielo y péguelo en todos sus formularios:

      ` Método de objeto de la variable no editable vstRegistroActual
   Case of
      : (Form event =On Load)
         C_STRING (31;vstRegistroActual)
         C_POINTER ($vpTablaPadre)
         C_LONGINT ($vlNumRegistro)
         $vpTablaPadre:=Current form table
         $vlNumRegistro:=Record number ($vpTablaPadre->)
         Case of
            : ($vlNumRegistro=-3)
               vstRegistroActual:="Nuevo registro"
            : ($vlNumRegistro=-1)
               vstRegistroActual:="Ningún registro"
            : ($vlNumRegistro>=0)
               vstRegistroActual:=String (Selected record number ($vpTablaPadre->))+" de "+
               vstRegistroActual:=vstRegistroActual + String (Records in selection ($vpTablaPadre->))
         End case
   End case

Ver también

DIALOG, INPUT FORM, OUTPUT FORM, PRINT SELECTION.


4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente