{
------------------------------------------------------------------
 FORMULARIO        : NOFMMT004
 OBJETIVO          : Capturar registros de la Tabla de Puestos     
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Mayo 20, 1993   
------------------------------------------------------------------
}
schema smarmotech   

TOOLBAR 
  ITEM nuevo (TEXT="Puestos", IMAGE="new", COMMENT="Nuevo Puesto")
  ITEM buscar (TEXT="Buscar Puestos", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT (TEXT="MAESTRA PUESTOS", STYLE="basic")
GRID

{
Codigo del Puesto [f0    ]
Nombre del Puesto [f001                                                     ]
Otra Descripcion  [ot                                                       ]
Funcion Basica [f002                                                        ]
               [f003                                                        ]
Codigo SIRLA   [SR1       ]                
Nivel [c]    Salario Minimo  [a         ]      Salario Maximo  [b         ]
Tipo Puesto  [tp1                       ]      Supervisa [s1  ]
   
[j]
Usuario Creador  [f004     ]             Usuario Modificador  [f006     ]
Fecha Creacion   [f005            ]      Fecha Modificacion   [f007            ]
}
end
tables
adtb00004
ATTRIBUTES
COMBOBOX s1 = formonly.supervisor,ITEMS=("SI","NO"),DEFAULT="NO";
COMBOBOX tp1 = formonly.tipo_puesto, ITEMS=("ADMINISTRACION","FABRICA"),DEFAULT="ADMINISTRACION";
f0 = adtb00004.cod_puesto,autonext,
   comments = "Digite el codigo del Puesto";
f001 = adtb00004.nom_puesto,upshift,scroll,
   comments = "Digite el nombre del Puesto";
ot   = formonly.otra_descripcion,scroll,upshift;   
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";
sr1 = adtb00004.cod_puesto_sirla,COMMENTS = "Digite el ID del puesto para el DGT3 Y DGT4";  
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