{
------------------------------------------------------------------------
 FORMULARIO        : ADFMMT010
 OBJETIVO          : Pantalla para introducir las informaciones de la
                     requisicion de personal.
                     Es utilizada por: ADPRMT010
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Junio 24, 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
  
screen size 24 by 80
{
Numero Documento: [f002]    Fecha: [f000      ]   Fecha Requerido: [f001      ]
Departamento: [f004] [b                             ]
Requerimiento: [f] [c        ]     Razon: [t                             ]
Puesto: [f5] [d                             ] 
Funciones: [g                                                            ]
           [g4                                                           ]
Edad Minima: [f6]  Sueldo Semanal: [f003       ]  Sueldo Mensual: [f005       ]
Experiencia: [h][k           ] Educacion: [m ] [n                             ]
\g-----------------------------------------------------------------------------
   Codigo     Descripcion                          Nivel Pericia
    [f9]     [f8                            ]          [a]
    [f9]     [f8                            ]          [a]
    [f9]     [f8                            ]          [a]
Requerido Por: [x   ][y   ][r ][s ]  [g1                                      ]
Aprobado Por:  [x1  ][y1  ][r1][s1]  [g2                                      ]
Aprobado Por:  [x2  ][y2  ][r2][s2]  [g3                                      ]
}
end
tables
adtb00011,adtb00001,
adtb00004,adtb00005,
adtb00006,adtb00009
attributes
f002 = adtb00011.num_doc,autonext,
  comments = "Digite el Numero del Documento";
f000 = adtb00011.fecha,format = "dd/mm/yyyy";
f001 = adtb00011.fech_req,format = "dd/mm/yyyy";
f004 = adtb00011.depart,autonext,
comments = "Digite el codigo del Departamento o Presione Ctr-l W para busqueda";
b = adtb00001.nom_dpto,noentry;
f = adtb00011.tipo_req,autonext,include = (1,2),
   comments = "Digite 1 = Adicion, 2 = Reemplazo";
c  = formonly.descr,noentry;
t  = adtb00011.razon_vac,upshift,
   comments = "Digite la Razon de la Vacante";
f5 = adtb00011.cod_puesto_r,autonext,
comments = "Digite el Codigo del Puesto o Presione Ctr-l W para busqueda";
d = adtb00004.nom_puesto,noentry;
g = adtb00004.funciones,noentry;
g4 = adtb00004.funcion1,noentry;
f6 = adtb00011.edad_min,autonext,
   comments = "Digite la Edad Minima Requerida para la vacante";
f003 = adtb00011.salario_sem;
f005 = adtb00011.salario_men;
h = adtb00011.experiencia,autonext,include = (1,2,3),
  comments = "Digite 1 = Necesaria, 2 = Deseable, 3 = No Necesaria";
k = formonly.descrip,noentry;
m = adtb00011.cod_educa,autonext,comments = 
    "Digite el Codigo del Nivel Educativo o Presione Ctrl-W para busqueda";
n = adtb00005.nom_educa,noentry;
f9 = adtb00006.cod_pericia,autonext,
  comments ="Digite el Codigo de la Pericia o Presione Ctrl-W para busqueda";
f8 = adtb00006.nom_pericia,noentry;
a = adtb00011.status_per,autonext,upshift,
  comments = "Digite D = Deseable o N = Necesario";
x = adtb00011.num_emp,autonext,
  comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
y = adtb00011.departamento,noentry;
r = adtb00011.nivel_emp,noentry;
s = adtb00011.cod_puesto,noentry;
g1 = formonly.empleado,noentry;
x1 = adtb00011.num1_emp,autonext,
  comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
y1 = adtb00011.departamento1,noentry;
r1 = adtb00011.nivel1_emp,noentry;
s1 = adtb00011.cod1_puesto,noentry;
g2 = formonly.empleado1,noentry;
x2 = adtb00011.num2_emp,autonext,
  comments = "Digite la ficha del empleado o Presione Ctrl-W para busqueda";
y2 = adtb00011.departamento2,noentry;
r2 = adtb00011.nivel2_emp,noentry;
s2 = adtb00011.cod2_puesto,noentry;
g3 = formonly.empleado2,noentry;
instructions
  screen record consart[3] (cod_pericia,nom_pericia,status_per)
end