|
|
(No se muestran 3 ediciones intermedias del mismo usuario) |
Línea 1: |
Línea 1: |
− | ==FORMULARIO== | + | =<div style="text-align:center;color:black">'''ORIGEN DE DATOS'''</div>= |
| | | |
− | ===frx_jub_act.frx===
| |
| | | |
− | [[Imagen:Fmr_Jub_Act.PNG]]
| + | ==Sitio de alojamiento dentro del ejecutable del Sistema== |
| | | |
− | ==INFORME==
| + | En el ejecutable de Werken2, se ubica en: |
| | | |
− | [[Imagen:Frx_jub_act.PNG]]
| + | {|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 |
| + | | |
| + | |- |
| + | |} |
| + | |} |
| | | |
− | ==CÓDIGO== | + | ==Origen del Código Fuente== |
| | | |
| + | {|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_jub_act.scx |
| + | |prg_jub_act.prg |
| + | |frx_jub_act.frx |
| + | |- |
| + | |} |
| + | |} |
| | | |
− | ===Programa "prg_jub_act.prg"=== | + | =<div style="text-align:center;color:black">'''TABLAS'''</div>= |
| | | |
− | *---------------------------------------------------------------------------------------------------------
| + | ==Tablas Usadas== |
− | *--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)=== | + | {|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>'''Tabla'''</big> |
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Path de acceso'''</big> |
| + | |- |
| + | |DH01 |
| + | |Base de Datos |
| + | |- |
| + | |DH03 |
| + | |Base de Datos |
| + | |- |
| + | |} |
| + | |} |
| | | |
− | *---------------------------------------------------------------------------------------------------------
| + | ===Descripción Tablas=== |
− | *--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)===
| + | Aquí se detallan las tablas con los campos utilizados de cada una. |
| | | |
− | THISFORM.Release
| + | {| 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 |
| + | |- |
| + | |} |
| + | |} |
| | | |
− | ===Botón "Ayuda" (btnAyuda)=== | + | ==Tablas Generadas== |
| | | |
− | DECLARE INTEGER ShellExecute ;
| + | {|border="1" style="margin:4px 0px 0px 0px; background:none" |
− | IN SHELL32.DLL ;
| + | || |
− | INTEGER nWinHandle,;
| + | {| border="1" style="background:#ffffff" class="sortable wikitable" |
− | STRING cOperation,;
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Tabla'''</big> |
− | STRING cFileName,;
| + | | align="center" style="background:DarkSlateBlue; color:white"|<big>'''Path de acceso'''</big> |
− | STRING cParameters,;
| + | |- |
− | STRING cDirectory,;
| + | |jubiladosActivos |
− | INTEGER nShowWindow
| + | |c:\anexo\bases_informes |
− |
| + | |- |
− | V_busca='R:\werken\docs\List_Jub_Act.pdf'
| + | |} |
− | ShellExecute(0,"open",V_busca,"", Fullpath(""),0)
| + | |} |
| | | |
− | ===Combo "Año" (cmbAnio)=== | + | =<div style="text-align:center;color:black">'''ARCHIVOS'''</div>= |
| | | |
− | *---------------------------------------------------------------------------------------------------------
| + | ==Archivos Usados== |
− | *--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)===
| + | Esta aplicación '''NO''' utiliza ningún archivo. |
| | | |
− | *---------------------------------------------------------------------------------------------------------
| + | ==Archivos Generados== |
− | *--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.
| |
| | | |
− | ==MANUAL DEL USUARIO==
| + | Esta aplicación '''NO''' genera ningún archivo. |
| | | |
− | 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.
| + | =<div style="text-align:center;color:black">'''OBSERVACIONES'''</div>= |
− |
| |
− | 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=== | + | =<div style="text-align:center;color:black">'''MANUAL DEL USUARIO'''</div>= |
− | | |
− | 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.
| |
Aquí se detallan las tablas con los campos utilizados de cada una.