SCHEMA smarmotech
TOOLBAR
  ITEM nuevo (TEXT="Nuevo", IMAGE="new", COMMENT="Adicionar Registos")
  ITEM buscar (TEXT="Buscar", IMAGE="find", COMMENT="Buscar Regustros")  SEPARATOR
  ITEM salir (TEXT="Salir", COMMENT = "Salir del Programa", IMAGE="quit") 
END   
screen size 24 by 80
{
<G                                                                 >
  Codigo de la Seccion     [a0]
  Codigo del Departamento  [f000] [b                             ]
  Nombre de la Seccion     [f001                          ]

<G                                                                               >
  Estado del Registro  [j]
  Usuario Creador      [f002            ]  Usuario Modificador [f004            ]
  Fecha Creacion       [f003            ]  Fecha Modificacion  [f005            ]
  
}
end
tables
adtb00002
attributes
a0 = adtb00002.cod_seccion,autonext,
  comments = "Digite el codigo de la Seccion";
f000 = adtb00002.departamento,autonext,
  comments = "Digite el codigo del departamento";
b = formonly.nombre,noentry;
f001 = adtb00002.nom_seccion,upshift,
   comments = "Digite el nombre de la Seccion";
f002 = adtb00002.us_crea,noentry;
f003 = adtb00002.fech_crea,noentry;
f004 = adtb00002.us_mod,noentry;
f005 = adtb00002.fech_mod,noentry;
j = adtb00002.status_t,noentry; 

instructions
   delimiters " "
end