SCHEMA FORMONLY

LAYOUT( TEXT="Perfiles")
  VBOX vb1
    GRID gr3
    {







    }
    END -- GRID
    FOLDER pc1
      PAGE Listaperfiles( TEXT="Lista Perfiles")
        GRID gr4
        {

             [aa0      ]  [aa1                   ]      [aa2      ]

             <T tb3                                                      >
             [aa3     |aa4                                          ]
             [aa3     |aa4                                          ]
             [aa3     |aa4                                          ]
             <                                                           >


        }
        END -- GRID
      END -- PAGE
      PAGE Page3( TEXT="Actualizacion")
        GRID gr7
        {
         <G gb3                                                                >
               [aa5 |aa6 |aa7 ][aa8 ]
         <                                                                     >
          Codigo [aa9      ]  Descripcion [ab0                                ]
          Programa[ab1      ]  Sistema     [ab2             ]
        <G gb4                                                                 >
         Usuario Creador [ab3            ] Usuario Modificador [ab4           ]

         Fecha Creacion  [ab5            ] Fecha Modificacion  [ab6           ]
        <                                                                      >

        }
        END -- GRID
      END -- PAGE
    END -- FOLDER
  END -- VBOX
END
ATTRIBUTES
  LABEL aa0:lb1, TEXT="CRITERIO";
  EDIT aa1=FORMONLY.criterio, TABINDEX=1;
  BUTTON aa2 : bt1, TEXT="Buscar";
  TABLE tb3 : tb3;
  EDIT aa3=FORMONLY.acodigo, TABINDEX=2, TITLE="Codigo";
  EDIT aa4=FORMONLY.pperfil, TABINDEX=3, TITLE="Perfil";
  GROUP gb3 : gb3, TEXT="Opciones";
  BUTTON aa5 : bt5, IMAGE="new";
  BUTTON aa6 : bt6, IMAGE="filesave";
  BUTTON aa7 : bt7, IMAGE="edit";
  BUTTON aa8 : bt8, IMAGE="eraser";
  EDIT aa9=FORMONLY.pcodigo, TABINDEX=4;
  EDIT ab0=FORMONLY.pdescripcion, TABINDEX=5;
  COMBOBOX ab1=FORMONLY.pprograma TYPE CHAR, SCROLL, TABINDEX=7;
  TEXTEDIT ab2=FORMONLY.psistema, TABINDEX=6;
  GROUP gb4 : gb4, TEXT="Auditoria";
  EDIT ab3=FORMONLY.puscrea, TABINDEX=10;
  EDIT ab4=FORMONLY.pusmod, TABINDEX=8;
  EDIT ab5=FORMONLY.pfechcrea, TABINDEX=11;
  EDIT ab6=FORMONLY.pfechamod, TABINDEX=9;
END

INSTRUCTIONS
  SCREEN RECORD tb3 (FORMONLY.acodigo, FORMONLY.pperfil)
END