Diferencia entre revisiones de «Listado de Altas de Fichas»

De Wiki
Saltar a: navegación, buscar
(→‎Combo "Mes" (cmbMes))
 
(No se muestran 28 ediciones intermedias del mismo usuario)
Línea 1: Línea 1:
−
==FORMULARIO==
+
=<div style="text-align:center;color:black">'''ORIGEN DE DATOS'''</div>=
  
−
[[Imagen:Fmr_Actas_Fichas.PNG]]
+
==Sitio de alojamiento dentro del ejecutable del Sistema==
  
−
==INFORME==
+
En el ejecutable de Werken2, se ubica en:
  
−
[[Imagen:Frx_actas_fichas.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_fichas_altas.scx
 +
|prg_fichas_altas.prg
 +
|frx_fichas_altas.frx
 +
|-
 +
|}
 +
|}
  
−
===Programa "ver_actas_fichas.prg"===
+
=<div style="text-align:center;color:black">'''TABLAS'''</div>=
  
−
  *---------------------------------------------------------------------------------------------------------
+
==Tablas Usadas==
−
  *--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)===
+
{|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
 +
|-
 +
|DH11
 +
|Base de Datos
 +
|-
 +
|DH25
 +
|Base de Datos
 +
|-
 +
|}
 +
|}
  
−
  *---------------------------------------------------------------------------------------------------------
+
===Descripción Tablas===
−
  *--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)===
+
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
 +
|-
 +
|}
 +
| 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
 +
|-
 +
|nro_cargo
 +
|-
 +
|codc_uacad
 +
|-
 +
|codc_categ
 +
|-
 +
|codc_carac
 +
|-
 +
|}
 +
| style="border:1px solid transparent" |
 +
||
 +
{| border="1" style="background:#ffffff" class="sortable wikitable"
 +
|+ align="center" style="background:DarkSlateBlue; color:white"|<big>'''DH11'''</big>
 +
|-
 +
|codc_categ
 +
|-
 +
|codigoescalafon
 +
|-
 +
|desc_categ
 +
|-
 +
|}
 +
| style="border:1px solid transparent" |
 +
||
 +
{| border="1" style="background:#ffffff" class="sortable wikitable"
 +
|+ align="center" style="background:DarkSlateBlue; color:white"|<big>'''DH25'''</big>
 +
|-
 +
|nro_cargo
 +
|-
 +
|nro_liqui
 +
|-
 +
|codn_conce
 +
|-
 +
|tipo_noved
 +
|-
 +
|detallenovedad
 +
|-
 +
|nro_nove1
 +
|-
 +
|vig_nomes
 +
|-
 +
|vig_noano
 +
|-
 +
|}
 +
|}
  
−
===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,;
+
|altasFichas
−
  INTEGER nShowWindow
+
|C:\anexo\bases_informes
−
 
+
|-
−
  V_busca='R:\werken\docs\List_Actas_Fichas.pdf'
+
|}
−
  ShellExecute(0,"open",V_busca,"", Fullpath(""),0)
+
|}
  
−
===Combo "Ficha" (cmbFicha)===
+
=<div style="text-align:center;color:black">'''ARCHIVOS'''</div>=
  
−
  *---------------------------------------------------------------------------------------------------------
+
==Archivos Usados==
−
  *--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)===
+
Esta aplicación '''NO''' utiliza ningún archivo.
  
−
  *---------------------------------------------------------------------------------------------------------
+
==Archivos Generados==
−
  *--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)===
+
Esta aplicación '''NO''' genera ningún archivo.
  
−
  *---------------------------------------------------------------------------------------------------------
+
=<div style="text-align:center;color:black">'''OBSERVACIONES'''</div>=
−
  *--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)===
 
  
−
  *---------------------------------------------------------------------------------------------------------
+
=<div style="text-align:center;color:black">'''MANUAL DEL USUARIO'''</div>=
−
  *--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==
 
−
 
 
−
 
 
−
===Procedimiento de Uso===
 

Revisión actual del 09:50 18 jun 2012

ORIGEN DE DATOS

Sitio de alojamiento dentro del ejecutable del Sistema

En el ejecutable de Werken2, se ubica en:

Categoria Sub-Categoría
Sueldos y Haberes

Origen del Código Fuente

Formularios Programas Reportes
frm_fichas_altas.scx prg_fichas_altas.prg frx_fichas_altas.frx

TABLAS

Tablas Usadas

Tabla Path de acceso
DH01 Base de Datos
DH03 Base de Datos
DH11 Base de Datos
DH25 Base de Datos

Descripción Tablas

Aquí se detallan las tablas con los campos utilizados de cada una.

DH01
nro_legaj
desc_appat
desc_nombr
DH03
nro_legaj
nro_cargo
codc_uacad
codc_categ
codc_carac
DH11
codc_categ
codigoescalafon
desc_categ
DH25
nro_cargo
nro_liqui
codn_conce
tipo_noved
detallenovedad
nro_nove1
vig_nomes
vig_noano

Tablas Generadas

Tabla Path de acceso
altasFichas C:\anexo\bases_informes

ARCHIVOS

Archivos Usados

Esta aplicación NO utiliza ningún archivo.

Archivos Generados

Esta aplicación NO genera ningún archivo.

OBSERVACIONES

MANUAL DEL USUARIO

Obtenido de «http://mapuche.unc.edu.ar/wiki/index.php?title=Listado_de_Altas_de_Fichas&oldid=3940»