{
------------------------------------------------------------------
 FORMULARIO        : ADFMMT003
 OBJETIVO          : Capturar registros de la Tabla de Puestos     
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Mayo 20, 1993   
------------------------------------------------------------------
}
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

LAYOUT (TEXT="FORMULARIO MANTENIMIENTO PUESTOS", STYLE="basic")
  
GRID

{
<G                                                                                   >
  Codigo del Puesto   [f0  ]
  Nombre del Puesto   [f001                           ]
  Descripcion Alterna [k001                           ] 
  Funcion Basica      [f002                                                        ]
                      [f003                                                        ]
  Nivel               [c]  Salario Minimo  [a         ] Salario Maximo  [b         ]

<G                                                                                   >
 Estado del Registro[j]
 Usuario Creador    [f004            ]  Usuario Modificador  [f006           ]
 Fecha Creacion     [f005            ]  Fecha Modificacion   [f007           ]

}
end
END
tables
adtb00004
ATTRIBUTES
k001 = adtb00004.otra_descripcion,COMMENT="Digite otras descripciones relacionadas con el puesto";
f0 = adtb00004.cod_puesto,autonext,
   comments = "Digite el codigo del Puesto";
f001 = adtb00004.nom_puesto,upshift,
   comments = "Digite el nombre del Puesto";
f002 = adtb00004.funciones,upshift,
   comments = "Digite las funciones relacionadas al Puesto";
f003 = adtb00004.funcion1,upshift,
   comments = "Digite las funciones relacionadas al Puesto";
c = adtb00004.nivel_sal,autonext,
  comments = "Digite el nivel salarial del Puesto";
a = adtb00004.salario_min,
  comments = "Digite el Salario Minimo para el Puesto";
b = adtb00004.salario_max,
  comments = "Digite el Salario Maximo para el Puesto";
j = adtb00004.status_t,noentry;
f004 = adtb00004.us_crea,noentry;
f005 = adtb00004.fech_crea,noentry;
f006 = adtb00004.us_mod,noentry;
f007 = adtb00004.fech_mod,noentry;
instructions
   delimiters " "
end