SISTEMA DE PLANILLAS

SISTEMA DE PLANILLAS

Actualmente, el sistema de planillas de la Unidad de Recursos Humanos, se encuentra elaborado en el lenguaje de Programación FoxPro 2.6 para D.O.S, además de carecer de seguridad en el ingreso a ella, además de no tener módulos de utilitarios a las tablas del sistema.

Actualmente, se cambio la interface y el lenguaje a Microsoft Visual FoxPro 9.0 SP2, brindando las garantías necesarias tanto en el ingreso de datos como en el mantenimiento de las tablas estructuradas.

Actualmente el sistema todavía se encuentra en desarrollo, pudiendo aceptar las sugerencias para el mejoramiento y/o creación de las mismas las cuales muestro algunos módulos de trabajo:

Ingreso de Trabajadores:

Generación de Planillas:

Generación de Reportes:

Mantenimiento a las tablas del Sistema:

Además muestro el código fuente del menú del sistema:

PARAMETER oREF

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _3k20juvmk OF _MSYSMENU PROMPT "\<Planillas" COLOR SCHEME 3

KEY ALT+P, ""

DEFINE PAD _3k20juvml OF _MSYSMENU PROMPT "\<Administración" COLOR SCHEME 3

KEY ALT+A, ""

SKIP FOR ""DEFINE PAD _3k20juvmm OF _MSYSMENU PROMPT "\<Herramientas" COLOR SCHEME 3

KEY ALT+H, ""

DEFINE PAD _3k20juvmn OF _MSYSMENU PROMPT "\<Salir" COLOR SCHEME 3

KEY ALT+S, ""

ON SELECTION PAD _3k20juvmk OF _MSYSMENU

DO _3k20juvmo

IN LOCFILE("SISTEM\MENU\MENU_PRIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_PRIN?")

ON PAD _3k20juvml OF _MSYSMENU ACTIVATE POPUP administra

ON PAD _3k20juvmm OF _MSYSMENU ACTIVATE POPUP herramient

ON PAD _3k20juvmn OF _MSYSMENU ACTIVATE POPUP salir

DEFINE POPUP administra MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF administra PROMPT "Datos de la Entidad"

PICTRES _mti_docview

DEFINE BAR 2 OF administra PROMPT "\-"

DEFINE BAR 3 OF administra PROMPT "\<Modificación de Usuarios"

SKIP FOR WEXIST("Formulario12")

PICTURE "..\bmp\regactual.bmp"

DEFINE BAR 4 OF administra PROMPT "\<Administrador de Fuentes"

PICTRES _mbk_togtask

DEFINE BAR 5 OF administra PROMPT "E\<rrores del Sistema"

SKIP FOR WEXIST("Formulario12")

PICTRES _mpr_compl

DEFINE BAR 6 OF administra PROMPT "\-"

DEFINE BAR 7 OF administra PROMPT "\<Parametros del Sistema"

PICTRES _mwi_cmd

DEFINE BAR 8 OF administra PROMPT "\-"

DEFINE BAR 9 OF administra PROMPT "\<Indexar"

PICTRES _mti_foxcode

ON SELECTION BAR 1 OF administra do form cDir+"\form\entidad.scx"

ON SELECTION BAR 3 OF administra do form cDir+"\form\user_sys.scx"

ON SELECTION BAR 4 OF administra do form cDir+"\form\fuentes.scx"

ON SELECTION BAR 5 OF administra do form cDir+"\form\errores.scx"

ON SELECTION BAR 7 OF administra do form cDir+"\form\parametros.scx"

ON SELECTION BAR 9 OF administra do form cDir+"\form\indexar.scx"

...