Diferencia entre revisiones de «Listado de Jubilados Activos»
De Wiki
(→frx_jub_act.frx) |
(→MANUAL DEL USUARIO) |
||
Línea 175: | Línea 175: | ||
*--------------------------------------------------------------------------------------------------------- | *--------------------------------------------------------------------------------------------------------- | ||
THISFORM.cmbMes.SelectedID(1)=.T. | THISFORM.cmbMes.SelectedID(1)=.T. | ||
+ | |||
+ | ==TABLAS== | ||
+ | |||
+ | Aquí se detallan las tablas con los campos utilizados de cada una. | ||
+ | |||
+ | {| style="margin:4px 0px 0px 0px; background:none" | ||
+ | || | ||
+ | {| border="1" style="background:#ffffff" class="sortable wikitable" | ||
+ | |+ align="center" style="background:DarkSlateBlue; color:white"|<big>'''DH01'''</big> | ||
+ | |- | ||
+ | |nro_legaj | ||
+ | |- | ||
+ | |desc appat | ||
+ | |- | ||
+ | |desc_nombr | ||
+ | |- | ||
+ | |tipo_estad | ||
+ | |- | ||
+ | |} | ||
+ | | style="border:1px solid transparent" | | ||
+ | || | ||
+ | {| border="1" style="background:#ffffff" class="sortable wikitable" | ||
+ | |+ align="center" style="background:DarkSlateBlue; color:white"|<big>'''DH03'''</big> | ||
+ | |- | ||
+ | |nro_legaj | ||
+ | |- | ||
+ | |fec_alta | ||
+ | |- | ||
+ | |fec_baja | ||
+ | |- | ||
+ | |codc_carac | ||
+ | |- | ||
+ | |nro_cargo | ||
+ | |- | ||
+ | |} | ||
+ | |} | ||
+ | |||
==MANUAL DEL USUARIO== | ==MANUAL DEL USUARIO== |
Revisión del 12:11 1 feb 2012
FORMULARIO
frx_jub_act.frx
INFORME
frm_jub_act.scx
CÓDIGO
Programa "prg_jub_act.prg"
*--------------------------------------------------------------------------------------------------------- *--Parametros del Programa-------------------------------------------------------------------------------- PARAMETERS mesVigente,anioVigente *--------------------------------------------------------------------------------------------------------- *--Rutina de Inicialización------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- CLEAR CLOSE TABLES all SET CENTURY ON SET DATE TO french **Se construye la variable fecha a partir de los campos "Mes" y "Año" que se completan en el formulario. **Dicha fecha será utilizada para traer los empleados que esten activos al periodo de busqueda. fecha="{^"+ALLTRIM(anioVigente)+"-"+PADL(ALLTRIM(mesVigente),2,"0")+"-01}" PUBLIC periodoVigente periodoVigente=ALLTRIM(mesVigente)+"/"+ALLTRIM(anioVigente) *--------------------------------------------------------------------------------------------------------- *--Llamo a la pantalla de espera-------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- procesando=vm_formularios+"frmprocesando.scx" DO FORM &procesando *--------------------------------------------------------------------------------------------------------- *--Traigo los datos de las tablas DH01 y DH03------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- **Tabla DH01** consulta01="select nro_legaj,desc_appat,desc_nombr,tipo_estad"; +" from dh01"; nom01=SYS(3) CREATE SQL VIEW &nom01; CONNECTION con_pampasql; AS &consulta01 SELE SELE(1) USE &nom01 ALIAS v01 *Creo Tabla tabla01=vm_bases_informes+"dh01Activos" *Creo Consulta SELECT *; FROM v01; INTO TABLE &tabla01 *Destruyo Vista SELECT v01 USE DROP VIEW &nom01 *SELECT dh01Activos *BROWSE *--------------------------------------------------------------------------------------------------------- **Tabla DH03** consulta03="select nro_legaj,fec_alta,fec_baja,codc_carac,nro_cargo"; +" from dh03"; nom03=SYS(3) CREATE SQL VIEW &nom03; CONNECTION con_pampasql; AS &consulta03 SELE SELE(1) USE &nom03 ALIAS v03 *Creo Tabla tabla03=vm_bases_informes+"dh03Activos" *Creo Consulta SELECT *; FROM v03; INTO TABLE &tabla03 *Destruyo Vista SELECT v03 USE DROP VIEW &nom03 *SELECT dh03Activos *BROWSE *--------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- *--Creo la Tabla Final------------------------------------------------------------------------------------ *--------------------------------------------------------------------------------------------------------- tablaFinal=vm_bases_informes+"jubiladosActivos" SELECT *; FROM dh01Activos INNER JOIN dh03Activos; ON dh01Activos.nro_legaj=dh03Activos.nro_legaj; WHERE dh01Activos.tipo_estad="J" AND (dh03Activos.fec_baja>=&fecha OR dh03Activos.fec_baja IS NULL); ORDER BY dh01Activos.nro_legaj; INTO TABLE &tablaFinal *--------------------------------------------------------------------------------------------------------- *--CIERRO EL CARTEL DE ESPERA------------------------------------------------------------------------------ *--------------------------------------------------------------------------------------------------------- frmprocesando.release *--------------------------------------------------------------------------------------------------------- *--MUESTRO LA TABLA GENERAL------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- *SELECT jubiladosActivos *BROWSE *--------------------------------------------------------------------------------------------------------- *--MUESTRO EL REPORTE FINAL------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- IF(RECCOUNT("jubiladosActivos")==0) MESSAGEBOX("Su consulta no genero resultados") ELSE informe=vm_informes+"frx_jub_act.frx" report form &informe preview ENDIF
Botón "Procesar" (btnProcesar)
*--------------------------------------------------------------------------------------------------------- *--CAPTURO LOS VALORES DE LOS COMBO QUE SERAN PASADO AL PROGRAMA COMO PARAMETRO--------------------------- *--------------------------------------------------------------------------------------------------------- mesVigencia=THISFORM.cmbMes.value anioVigencia=THISFORM.cmbAnio.value *--------------------------------------------------------------------------------------------------------- *--LLAMO AL PROGRAMA-------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- programa=vm_programas + "prg_jub_act.prg" DO &programa WITH mesVigencia,anioVigencia
Botón "Cancelar" (btnCancelar)
THISFORM.Release
Botón "Ayuda" (btnAyuda)
DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow V_busca='R:\werken\docs\List_Jub_Act.pdf' ShellExecute(0,"open",V_busca,"", Fullpath(""),0)
Combo "Año" (cmbAnio)
*--------------------------------------------------------------------------------------------------------- *--CARGO EL COMBO DE LOS AÑOS----------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- FOR I=(YEAR(DATE())-10) TO YEAR(DATE()) THISFORM.cmbAnio.AddItem(STR(I)) ENDFOR *--------------------------------------------------------------------------------------------------------- *--SELECCIONO EL PRIMERO DE LOS ELEMENTOS DEL COMBO POR DEFECTO------------------------------------------- *--------------------------------------------------------------------------------------------------------- THISFORM.cmbAnio.SelectedID(11)=.T.
Combo "Mes" (cmbMes)
*--------------------------------------------------------------------------------------------------------- *--CARGO EL COMBO DE LOS MESES---------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------- FOR I=1 TO 12 THISFORM.cmbMes.AddItem(STR(I)) ENDFOR *--------------------------------------------------------------------------------------------------------- *--SELECCIONO EL PRIMERO DE LOS ELEMENTOS DEL COMBO POR DEFECTO------------------------------------------- *--------------------------------------------------------------------------------------------------------- THISFORM.cmbMes.SelectedID(1)=.T.
TABLAS
Aquí se detallan las tablas con los campos utilizados de cada una.
|
|
MANUAL DEL USUARIO
El Sistema WERKEN permite generar un listado de los empleados Jubilados pero que se encuentran activos, donde se listarán los empleados agrupados por legajo que cumplan con las condiciones de búsqueda, estos son aquellos que tengan un cargo vigente al periodo establecido en el formulario inicial.
El informe generado por el sistema mostrará:
- Legajo del empleado.
- Apellido y nombre del mismo.
- Tipo de Estado.
- Cargo
- Fecha de Alta del Cargo
- Fecha de Baja del Cargo
- Caracter.
Procedimiento de Uso
1. Ingresar al Sistema WERKEN.
2. Seleccionar la opción “01 - SUELDOS”.
3. Seleccionar “Listado de Jubilados Activos”.
4. Presionar el botón “Ejecutar”.
5. Se abrirá el formulario presentado antes.
6. Seleccionar “Mes” (de vigencia) y “Año” (de vigencia).
7. Presionar el botón “Procesar”
8. Se genera el informe correspondiente.