|
|
Línea 1: |
Línea 1: |
− | ==FORMULARIO== | + | =<div style="text-align:center;color:blue">'''ORIGEN DE DATOS'''</div>= |
| | | |
− | ===frm_fec_permanencia.scx===
| |
| | | |
− | [[Imagen:Fmr_Fec_Permanencia.PNG]]
| + | ==Sitio de alojamiento dentro del ejecutable del Sistema== |
| | | |
− | ==INFORME==
| + | En el ejecutable de Werken2, se ubica en: |
| | | |
− | ===frx_fec_permanencia.frx=== | + | {|border="1" style="margin:4px 0px 0px 0px; background:none" |
| + | || |
| + | {| border="1" style="background:#ffffff" class="sortable wikitable" |
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Categoria'''</big> |
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Sub-Categoría'''</big> |
| + | |- |
| + | |Sueldos Y Haberes |
| + | | |
| + | |- |
| + | |} |
| + | |} |
| | | |
− | [[Imagen:Frx_fec_permanencia.PNG]]
| + | ==Origen del Código Fuente== |
| | | |
− | ==CÓDIGO== | + | {|border="1" style="margin:4px 0px 0px 0px; background:none" |
| + | || |
| + | {| border="1" style="background:#ffffff" class="sortable wikitable" |
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Formularios'''</big> |
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Programas'''</big> |
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Reportes'''</big> |
| + | |- |
| + | |frm_fec_permanencia.scx |
| + | |prg_fec_permanencia.prg |
| + | |frx_fec_permanencia.frx |
| + | |- |
| + | |} |
| + | |} |
| | | |
| + | =<div style="text-align:center;color:blue">'''TABLAS'''</div>= |
| | | |
− | ===Programa "prg_fec_permanencia.prg"=== | + | ==Tablas Usadas== |
| | | |
− | *---------------------------------------------------------------------------------------------------------
| + | {|border="1" style="margin:4px 0px 0px 0px; background:none" |
− | *--Parametros del Programa--------------------------------------------------------------------------------
| + | || |
− | PARAMETERS mesVigente,anioVigente
| + | {| border="1" style="background:#ffffff" class="sortable wikitable" |
− | *---------------------------------------------------------------------------------------------------------
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Tabla'''</big> |
− | *--Rutina de Inicialización-------------------------------------------------------------------------------
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Path de acceso'''</big> |
− | *---------------------------------------------------------------------------------------------------------
| + | |- |
− | CLEAR
| + | |DH01 |
− | CLOSE TABLES all
| + | |Base de Datos |
− | SET CENTURY ON
| + | |- |
− | SET DATE TO french
| + | |DH03 |
− | **Se construye la variable fecha a partir de los campos "Mes" y "Año" que se completan en el formulario.
| + | |Base de Datos |
− | **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";
| |
− | +" 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_categ,fechapermanencia";
| |
− | +" 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+"fechaPermanencia"
| |
− |
| |
− | SELECT *;
| |
− | FROM dh01Activos INNER JOIN dh03Activos;
| |
− | ON dh01Activos.nro_legaj=dh03Activos.nro_legaj;
| |
− | WHERE (dh03Activos.fec_baja>=&fecha OR dh03Activos.fec_baja IS NULL);
| |
− | AND (VAL(dh03Activos.codc_categ) IN (3661,3662,3663,3664,3665,3666,3667,1,2,3,4,5,6,7,8,9,10,11));
| |
− | AND (dh03Activos.fechaperma<>dh03Activos.fec_alta OR dh03Activos.fechaperma IS NULL);
| |
− | ORDER BY dh01Activos.nro_legaj;
| |
− | INTO TABLE &tablaFinal
| |
− | *---------------------------------------------------------------------------------------------------------
| |
− | *--CIERRO EL CARTEL DE ESPERA------------------------------------------------------------------------------
| |
− | *---------------------------------------------------------------------------------------------------------
| |
− | frmprocesando.release
| |
− | *---------------------------------------------------------------------------------------------------------
| |
− | *--MUESTRO LA TABLA GENERAL-------------------------------------------------------------------------------
| |
− | *---------------------------------------------------------------------------------------------------------
| |
− | *SELECT fechaPermanencia
| |
− | *BROWSE
| |
− | *---------------------------------------------------------------------------------------------------------
| |
− | *--MUESTRO EL REPORTE FINAL-------------------------------------------------------------------------------
| |
− | *---------------------------------------------------------------------------------------------------------
| |
− | IF(RECCOUNT("fechaPermanencia")==0)
| |
− | MESSAGEBOX("Su consulta no genero resultados")
| |
− | ELSE
| |
− | informe=vm_informes+"frx_fec_permanencia.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_fec_permanencia.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_Fec_Permanencia.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)===
| |
| | | |
− | *---------------------------------------------------------------------------------------------------------
| + | ===Descripción Tablas=== |
− | *--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. | | Aquí se detallan las tablas con los campos utilizados de cada una. |
Línea 188: |
Línea 64: |
| |nro_legaj | | |nro_legaj |
| |- | | |- |
− | |desc appat | + | |desc_appat |
| |- | | |- |
| |desc_nombr | | |desc_nombr |
Línea 207: |
Línea 83: |
| |- | | |- |
| |fechapermanencia | | |fechapermanencia |
| + | |- |
| |} | | |} |
| |} | | |} |
| | | |
− | ==MANUAL DEL USUARIO== | + | ==Tablas Generadas== |
| | | |
− | El Sistema WERKEN permite generar un listado de los empleados no docentes activos que no tengan establecida la fecha de permanencia o que la misma sea distinta que la fecha de alta del empleado.
| + | {|border="1" style="margin:4px 0px 0px 0px; background:none" |
− | Se tomaran los empleados que cumplan con condición de vigencia a aquellos que tengan un cargo vigente al periodo establecido en el formulario inicial.
| + | || |
− | El informe generado por el sistema mostrará:
| + | {| border="1" style="background:#ffffff" class="sortable wikitable" |
− | *Legajo del empleado.
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Tabla'''</big> |
− | *Apellido y nombre del mismo.
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Path de acceso'''</big> |
− | *Categoría.
| + | |- |
− | *Fecha de Alta del Cargo
| + | |fechaPermanencia |
− | *Fecha de Baja del Cargo
| + | |c:\anexo\bases_informes |
− | *Fecha Permanencia.
| + | |- |
| + | |} |
| + | |} |
| | | |
− | ===Procedimiento de Uso===
| + | '''NOTA: '''Cualquier otra tabla creada es de transición temporal y es destruida una vez finalizada la ejecución de la aplicación. |
| | | |
− | 1. Ingresar al Sistema WERKEN.
| + | =<div style="text-align:center;color:blue">'''ARCHIVOS'''</div>= |
| | | |
− | 2. Seleccionar la opción “01 - SUELDOS”.
| + | ==Archivos Usados== |
| | | |
− | 3. Seleccionar “Listado de Control de Fecha de Permanencia”.
| + | Esta aplicación '''NO''' utiliza ningún archivo. |
| | | |
− | 4. Presionar el botón “Ejecutar”.
| + | ==Archivos Generados== |
| | | |
− | 5. Se abrirá el formulario presentado antes.
| + | Esta aplicación '''NO''' genera ningún archivo. |
| | | |
− | 6. Seleccionar “Mes” (de vigencia) y “Año” (de vigencia).
| + | =<div style="text-align:center;color:blue">'''OBSERVACIONES'''</div>= |
| | | |
− | 7. Presionar el botón “Procesar”
| |
| | | |
− | 8. Se genera el informe correspondiente.
| + | =<div style="text-align:center;color:blue">'''MANUAL DEL USUARIO'''</div>= |
Aquí se detallan las tablas con los campos utilizados de cada una.