{
------------------------------------------------------------------------
 FORMULARIO        : ADFMMT015
 OBJETIVO          : Pantalla para introducir las informaciones de las
                     experiencias de trabajo de la solicitud de empleo.
                     Es utilizada por: ADPRMT015
 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
{
 Applicant's Number[f000] [b                                       ]
\g-----------------------------------------------------------------------------
 J O B  E X P E R I E N C E  A N D  R E T I R M E N T
\g-----------------------------------------------------------------------------
[f001                          ] [f6] [c                             ]
[f002                          ] [f003] [f004            ] [f005            ]
[f007       ]                    [f008]-[f009]
[d                                                                          ]
[f001                          ] [f6] [c                             ]
[f002                          ] [f003] [f004            ] [f005            ]
[f007       ]                    [f008]-[f009]
[d                                                                          ]
}
end
tables
adtb00016,adtb00004
attributes
f000 = adtb00016.cod_sol,autonext,
 comments = "Digite el codigo del solicitante";
b = formonly.nombre,noentry;
f001 = adtb00016.nom_empr,upshift,
 comments = "Digite el nombre de la empresa";
f002 = adtb00016.calle,upshift,
 comments = "Digite el nombre de la calle";
f003 = adtb00016.casa_num,autonext,
 comments = "Digite el numero del local donde esta la empresa";
f004 = adtb00016.barrio,upshift,
 comments = "Digite el nombre del barrio";
f005 = adtb00016.urbanizacion,upshift,
 comments = "Digite el nombre de la urbanizacion";
f6 = adtb00016.cod_puesto,autonext,
 comments = "Digite el codigo del Puesto o Presione Ctrl-W para busqueda";
c = adtb00004.nom_puesto,noentry;
f007 = adtb00016.sueldo,comments = "Digite el sueldo percibido";
f008 = adtb00016.ano_ini,autonext,
 comments = "Digite el ano de inicio en la empresa";
f009 = adtb00016.ano_fin,
 comments = "Digite el ano de salida de la empresa";
d = adtb00016.desc_retiro,upshift,
 comments ="Digite las causas que motivaron el retiro";
instructions
 screen record consart[2] (nom_empr,cod_puesto,nom_puesto,calle,casa_num,
                     barrio,urbanizacion,sueldo,ano_ini,ano_fin,desc_retiro)
end