Listado de Altas de Fichas

FORMULARIO

INFORME

CÓDIGO

Programa "ver_actas_fichas.prg"

  *---------------------------------------------------------------------------------------------------------
  *--PARAMETROS DEL PROGRAMA--------------------------------------------------------------------------------
  PARAMETERS ficha,tipo,mesVigente,anioVigente
  *---------------------------------------------------------------------------------------------------------
  *--RUTINA DE INICIACION-----------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  CLEAR
  CLOSE TABLES all
  SET CENTURY ON
  SET DATE TO french
  *---------------------------------------------------------------------------------------------------------
  *--LLAMO AL CARTEL DE ESPERA------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  procesando=vm_formularios+"frmprocesando.scx"
  DO FORM &procesando
  *---------------------------------------------------------------------------------------------------------
  *--TRAIGO LOS DATOS DE LAS TABLAS DH01,DH03 y DH25--------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  **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;
  ORDER BY v01.nro_legaj;
  INTO TABLE &tabla01
  *Destruyo Vista
  SELECT v01
  USE 
  DROP VIEW &nom01
  
  *SELECT dh01Activos
  *BROWSE
  *---------------------------------------------------------------------------------------------------------
  **Tabla DH03**
  consulta03="select distinct nro_legaj,nro_cargo,codc_uacad";
  		+" 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;
  ORDER BY v03.nro_legaj;
  INTO TABLE &tabla03
  *Destruyo Vista
  SELECT v03
  USE 
  DROP VIEW &nom03
  
  *SELECT dh03Activos
  *BROWSE
  *---------------------------------------------------------------------------------------------------------
  **Tabla DH25**
  
  consulta25="select nro_cargo,nro_liqui,codn_conce,tipo_noved,detallenovedad,nro_nove1,vig_nomes,vig_noano";
  		+" from dh25"
  
  nom25=SYS(3)
  CREATE SQL VIEW &nom25;
  CONNECTION con_pampasql;
  AS &consulta25
  SELECT SELECT (1)
  USE &nom25 ALIAS v25
  *Creo Tabla
  tabla25=vm_bases_informes+"dh25Activos"
  *Creo Consulta
  SELECT *;
  FROM v25;
  ORDER BY v25.nro_cargo;
  INTO TABLE &tabla25
  *Destruyo Vista
  SELECT v25
  USE 
  DROP VIEW &nom25
  
  *SELECT dh25Activos
  *BROWSE
  *---------------------------------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  *--CREO LA TABLA FINAL----------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  tablaFinal=vm_bases_informes+"actasFichas"
  
  SELECT *;
  FROM dh01Activos INNER JOIN(dh03Activos INNER JOIN dh25Activos;
  ON dh03Activos.nro_cargo=dh25Activos.nro_cargo);
  ON dh01Activos.nro_legaj=dh03Activos.nro_legaj; 
  WHERE dh25Activos.codn_conce=VAL(ficha) AND dh25Activos.tipo_noved=ALLTRIM(tipo) AND;
  dh25Activos.vig_nomes=VAL(mesVigente) AND dh25Activos.vig_noano=VAL(anioVigente);
  ORDER BY dh03Activos.codc_uacad;
  INTO TABLE &tablaFinal
  *---------------------------------------------------------------------------------------------------------
  *--CIERRO EL CARTEL DE ESPERA------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  frmprocesando.release
  *---------------------------------------------------------------------------------------------------------
  *--MUESTRO LA TABLA GENERAL-------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  *SELECT actasFichas
  *BROWSE
  *---------------------------------------------------------------------------------------------------------
  *--MUESTRO EL REPORTE FINAL-------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  IF(RECCOUNT("actasFichas")==0)
  	MESSAGEBOX("Su consulta no genero resultados")
  ELSE
  	informe=vm_informes+"frx_actas_fichas.frx"
  	report form &informe preview
  ENDIF

Botón "Procesar" (btnProcesar)

  *---------------------------------------------------------------------------------------------------------
  *--CAPTURO LOS VALORES DE LOS COMBO QUE SERAN PASADO AL PROGRAMA COMO PARAMETRO---------------------------
  *---------------------------------------------------------------------------------------------------------
  ficha=THISFORM.cmbFicha.value
  tipo=THISFORM.cmbTipo.value
  mesVigencia=THISFORM.cmbMes.value
  anioVigencia=THISFORM.cmbAnio.value
  *---------------------------------------------------------------------------------------------------------
  *--LLAMO AL PROGRAMA--------------------------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  IF(ISNULL(ficha)=.T. OR ISNULL(tipo)=.T. OR ISNULL(mesVigencia)=.T. OR ISNULL(anioVigencia)=.T.)
  	MESSAGEBOX("Faltan completar datos del formulario")
  ELSE 
  	programa=vm_programas + "ver_actas_fichas.prg"
  	DO &programa WITH ficha,tipo,mesVigencia,anioVigencia
  ENDIF

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_Actas_Fichas.pdf'
  ShellExecute(0,"open",V_busca,"", Fullpath(""),0)

Combo "Ficha" (cmbFicha)

  *---------------------------------------------------------------------------------------------------------
  *--CARGA DE LAS OPCIONES DEL CMBFICHA--------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  THISFORM.cmbFicha.AddItem("70")
  THISFORM.cmbFicha.AddItem("117")
  THISFORM.cmbFicha.AddItem("161")
  *---------------------------------------------------------------------------------------------------------
  *--SELECCIONO POR DEFECTO EL PRIMER ITEM DEL COMBO--------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  THISFORM.cmbFicha.SelectedID(1)=.T.

Combo "Tipo" (cmbTipo)

  *---------------------------------------------------------------------------------------------------------
  *--CARGA DE LAS OPCIONES DEL CMBTIPO----------------------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  THISFORM.cmbTipo.AddItem("P")
  THISFORM.cmbTipo.AddItem("L")
  *---------------------------------------------------------------------------------------------------------
  *--SELECCIONO POR DEFECTO EL PRIMER ITEM DEL COMBO--------------------------------------------------------
  *---------------------------------------------------------------------------------------------------------
  THISFORM.cmbTipo.SelectedID(1)=.T.

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.

MANUAL DEL USUARIO

El Sistema WERKEN permite generar un listado de actas de fichas, donde se listarán los empleados agrupados por dependencia que cumplan con las condiciones de búsqueda.

El informe generado por el sistema mostrará:

• Número de ficha que se desea obtener.
• Dependencia a la que pertenece el empleado.
• Legajo del empleado.
• Apellido y nombre del mismo.
• Cargo.
• Número de liquidación.
• Tipo.
• Concepto.
• Novedad 1.
• Periodo de vigencia (mes/año).

Nota: El informe mostrará una lista con los empleados ordenados por dependencia que cumplan con las condiciones impuestas en el formulario que se puede observar a continuación.

Procedimiento de Uso

1. Ingresar al Sistema WERKEN.

2. Seleccionar la opción “01 - SUELDOS”.

3. Seleccionar “Listado de Actas de Fichas”.

4. Presionar el botón “Ejecutar”.

5. Se abrirá el formulario presentado antes.

6. Seleccionar “Ficha”, “Tipo”, “Mes” (de vigencia) y “Año” (de vigencia).

7. Presionar el botón “Procesar”

8. Se genera el informe correspondiente.