Diferencia entre revisiones de «Planta de Liq. Generales de la UNC»

De Wiki
Saltar a: navegación, buscar
(→‎INFORME)
(→‎Programa "planta_s.prg")
Línea 151: Línea 151:
 
===Programa "planta_s.prg"===
 
===Programa "planta_s.prg"===
  
 +
 
 +
  *public fechaL ,fecha
 +
  public vm_legajo,vm_categ,vm_baja,fecha,fechal,descuenta,vm_cargo,vm_caracter
 +
  descuenta ="N"
 +
  SET DATE TO FRENCH
 +
  SET CENTURY ON
 +
  *set excl on
 +
 
 +
  *------base donde se carga los cargos con licencia
 +
  tabla= vm_bases_informes + "horaslic"
 +
  create table &tabla free (categ C (4),agrup c(4),horas n(6),caracter c(4),;
 +
                        depend c(3),horas_l n(6),legajo c(6),cargo c(9),tipo c(4),;
 +
                        fec_desde d(8),fec_hasta d(8))
 +
                       
 +
  *-------
 +
  tabla= vm_bases_informes + "plantale"
 +
  if used ("plantale")
 +
    sele plantale
 +
    use
 +
  endif
 +
  sele sele(1) 
 +
  use &tabla excl
 +
  index on legajo tag d_legajo additive
 +
  index on cargo tag d_cargo
 +
  *----------------------------------------------------------------------------------
 +
  tabla= vm_bases_informes + "dh21uni"
 +
  if used ("dh21uni")
 +
    sele dh21uni
 +
    use
 +
  endif
 +
  sele sele(1) 
 +
  use &tabla excl
 +
  index on nro_cargo tag dh21car
 +
  *---------base con renovaciones de cargo****
 +
  tabla= vm_bases_informes + "renova"
 +
  create table &tabla free (categ C (4),agrup c(4),horas n(6),caracter c(4),;
 +
                              depend c(3),legajo n(6), alta d(8), baja d(8) null ,cargo n(9),carant c(4))
 +
  if used ('renova')
 +
    sele renova
 +
    use
 +
  endif
 +
  sele sele(1) 
 +
  use &tabla excl
 +
  index on depend+alltrim(str(legajo)) tag lis_renova
 +
  *-----------------------------------------------------------------------------------------
 +
  *---filtro
 +
  *store "2003-06-30" to fechaL &&fecha para licencias s/g
 +
  *store {^2003/06/01} to fecha  &&fecha para cargos vigentes
 +
 
 +
  *----------------------------------------------------------------------------------------
 +
 
 +
 
 +
  sele dh03
 +
  set filter to (fec_baja >= &fecha)  or (empty(fec_baja)=.t.) or isnull(fec_baja)
 +
  index on padl(alltrim(str(nro_legaj)),6,"0")+ padl(alltrim(codc_categ),3,"0")+padl(alltrim(str(nro_cargo)),9,"0") tag dh03L
 +
 
 +
 
 +
 
 +
  *-----------------------------------------------
 +
 
 +
 
 +
  *----------------------------------
 +
  cadenasql=  "select *";
 +
              + " from dl02"
 +
  nom5=sys(3)
 +
  create sql view &nom5;
 +
  connection con_pampasql;
 +
  as &cadenasql
 +
 
 +
  if !used('v_dl02')
 +
    sele sele(1) 
 +
    use &nom5 alias v_dl02
 +
  endif
 +
 
 +
  tabla= vm_bases_informes + "dl02"
 +
  select *;
 +
  from v_dl02;
 +
  into table &tabla
 +
  *-----
 +
  if used ('dl02')
 +
    sele dl02
 +
    use
 +
  endif
 +
  sele sele(1) 
 +
  use &tabla excl
 +
 
 +
 
 +
  *---------------------------------------------------
 +
  *-----------base donde se carga la planta
 +
  tabla= vm_bases_informes + "planta"
 +
  if used ('planta')
 +
    sele planta
 +
    use
 +
  endif
 +
  sele sele(1) 
 +
  use &tabla excl
 +
  *---------------------------------------------------
 +
 
 +
 
 +
 
 +
  *--licencias de legajos en periodo informado por el usuario
 +
        select distinct dh05.nro_legaj,dh05.fec_desde,;
 +
                        dh05.fec_hasta, dh05.nrovarlice, dl02.codn_tipo_;
 +
              from dh05,dL02,dh03 where dh05.nro_cargo = 0 and ;
 +
                    dh05.nro_legaj = dh03.nro_legaj and;
 +
                    dl02.nrovarlice =dh05.nrovarlice and;
 +
                    dl02.porcremune  = 0 and dh05.fec_hasta >=&fechaL;
 +
                    into table vm_bases_informes+"V_L"
 +
   
 +
       
 +
  *--licencia de cargos
 +
            select distinct dh05.nro_cargo , dh05.fec_desde,;
 +
                            dh05.fec_hasta, dh05.nrovarlice, dl02.codn_tipo_;
 +
                    from dh05,dL02,dh03 where dh05.nro_legaj = 0 and ;
 +
                        dh05.nro_cargo = dh03.nro_cargo and ;
 +
                        dl02.nrovarlice = dh05.nrovarlice and;
 +
                        dl02.porcremune  = 0 and dh05.fec_hasta >=&fechaL;
 +
                        into table vm_bases_informes+"V_C"
 +
 
 +
  *----------------------------
 +
 
 +
  *--tabla para la vista de licencias por cargos     
 +
  tabla= vm_bases_informes+"lic_c" 
 +
  select *;
 +
  from V_C;
 +
  into table &tabla
 +
  index on nro_cargo tag cargo
 +
  *---tabla para la vista de licencias por legajos
 +
  tabla= vm_bases_informes+"lic_l" 
 +
  select *;
 +
  from V_L;
 +
  into table &tabla
 +
  index on nro_legaj tag legajo
 +
 
 +
  *-------------------------------------------------
 +
 
 +
  *-------lee el dh03 con cargos vigentes al mes y si tienen subrogancia(no docente) lo agrega
 +
  *en la plantay plantale
 +
  sele dh03
 +
 
 +
  scan
 +
    SCATTER MEMVAR
 +
    if m.nro_legaj =39100
 +
    * set step on
 +
    endif
 +
    if dh03.codc_carac = "SUBR"
 +
        sele planta
 +
        set order to planta
 +
        if !seek(alltrim(dh03.codc_categ)+alltrim(dh03.codc_uacad)+alltrim(dh03.codc_carac)+alltrim(dh03.codc_agrup))
 +
          *primera vez
 +
          append blank
 +
          repla categ    with dh03.codc_categ
 +
          repla depend  with alltrim(dh03.codc_uacad)
 +
          repla caracter with alltrim(dh03.codc_carac)
 +
          repla agrup    with alltrim(dh03.codc_agrup)
 +
          repla horas    with (dh03.hs_dedic)
 +
          repla ocupados with 1
 +
        else
 +
          repla ocupados with ocupados+1 
 +
          repla horas    with horas+dh03.hs_dedic
 +
        endif
 +
            sele plantale
 +
            append blank
 +
            repla legajo  with padl(alltrim(str(dh03.nro_legaj)),6,"0")
 +
            repla cargo  with padl(alltrim(str(dh03.nro_cargo)),9,"0")
 +
            repla categ    with dh03.codc_categ
 +
            repla depend  with alltrim(dh03.codc_uacad)
 +
            repla caracter with alltrim(dh03.codc_carac)
 +
            repla agrup    with alltrim(dh03.codc_agrup)
 +
            repla horas    with (dh03.hs_dedic)
 +
      endif 
 +
      do buscolic  &&llama al procedimiento que busca lic sin goce
 +
      sele dh03
 +
  endscan
 +
  *----------------
 +
 
 +
  *----lee del dh21 los cargos pagados y controla si tienen cargos renovados y si notiene licencia
 +
  *---lo resta de la planta
 +
  sele dh21uni  &&son los cargos pagados
 +
  go top
 +
    scan
 +
      scatter memvar
 +
      vm_regis=recno()
 +
      sele dh03 &&esta filtrada por cargos vigentes
 +
      set order to cargo
 +
      if seek (m.nro_cargo)
 +
          if m.nro_cargo=76304
 +
  *      set step on
 +
          endif 
 +
          vm_legajo = dh03.nro_legaj
 +
          vm_categ    = ALLTRIM(dh03.codc_categ)
 +
          vm_baja    = dh03.fec_baja
 +
          vm_depend  = ALLTRIM(dh03.codc_uacad)
 +
          vm_caracter = ALLTRIM(dh03.codc_carac)
 +
          vm_cargo    = padl(alltrim(str(dh03.nro_cargo)),9,"0")
 +
          SET ORDER TO DH03L
 +
          GO TOP
 +
          if SEEK(PADL(ALLTRIM(STR(vm_legajo)),6,"0")+padl(alltrim(vm_categ),3,"0"))
 +
            SCAN WHILE vm_legajo = dh03.nro_legaj and vm_categ = alltrim(dh03.codc_categ) and vm_depend = alltrim(dh03.codc_uacad)
 +
            if !empty (vm_baja )
 +
                if (vm_baja + 1) = dh03.fec_ALTA
 +
                  sele dh21uni
 +
                  set order to dh21car
 +
                  go top
 +
                  if seek(dh03.nro_cargo)
 +
                    sele renova
 +
                    append blank
 +
                    repla categ    with dh03.codc_categ
 +
                    repla depend    with alltrim(dh03.codc_uacad)
 +
                    if vm_caracter # dh03.codc_carac
 +
                      repla carant  with alltrim(vm_caracter)
 +
                    endif 
 +
                    repla caracter  with alltrim(dh03.codc_carac)
 +
                    repla agrup    with alltrim(dh03.codc_agrup)
 +
                    repla horas    with (dh03.hs_dedic)
 +
                    repla legajo    with dh03.nro_legaj
 +
                    repla alta      with dh03.fec_alta
 +
                    repla baja      with dh03.fec_baja
 +
                    repla cargo    with dh03.nro_cargo
 +
                    sele plantale
 +
                    set order to d_cargo
 +
                    if seek (vm_cargo) && si lo encuentra significa que tiene dias y dias y lo debe restar de planta detallada
 +
                      dele
 +
                      pack
 +
                    endif 
 +
                    @ 2,0  clear to 2,60
 +
                    @ 2,45 say "Fin del Proceso"
 +
                    *wait windows "Fin del proceso" nowait
 +
                  endif 
 +
                endif
 +
              endif
 +
            sele dh03
 +
            endscan
 +
          endif
 +
           
 +
      endif 
 +
      sele dh21uni
 +
      goto vm_regis
 +
  endscan
 +
   
 +
  *----esta parte lee del renova hacia el dh21uni para detectar si existen--------
 +
  *----cargos renovados que se hayan pagado en el mismo mes en la misma dep.
 +
  sele renova
 +
  go top
 +
  scan
 +
    banlic=0
 +
    scatter memvar
 +
    sele dh21uni
 +
    set order to dh21car
 +
    if seek (m.cargo)
 +
      sele planta
 +
      set order to planta
 +
      if !seek(alltrim(m.categ)+alltrim(m.depend)+alltrim(m.caracter)+alltrim(m.agrup))
 +
  *!*       append blank
 +
  *!*       repla categ    with m.categ
 +
  *!*       repla depend  with m.depend
 +
  *!*       repla caracter with m.caracter
 +
  *!*       repla agrup    with m.agrup
 +
  *!*       if (m.horas) <> 0
 +
  *!*         repla renova with m.horas &&acumulo las hs renovadas
 +
  *!*       else
 +
  *!*        repla renova with 1
 +
  *!*       endif
 +
      else  &&si ya existe la categoria en el pampa
 +
        ***se fija si tiene licencias del cargo
 +
        sele lic_c
 +
        set order to cargo
 +
        if seek (m.cargo) &&si un cargo renovado tiene licencia de cargo lo cargo como renovado y no lo resto de los cargos ocupados
 +
          banlic=1 
 +
          sele planta
 +
          if (m.horas) <> 0
 +
            repla renova  with renova + m.horas
 +
          else
 +
            repla renova  with renova+1 
 +
          endif
 +
        else
 +
          ***se fija si tiene licencias del legajo
 +
          sele lic_l
 +
          set order to legajo
 +
          if seek (m.legajo) &&si un cargo renovado tiene licencia de legajo lo cargo como renovado y no lo resto de los cargos ocupados
 +
            banlic=1 
 +
            sele planta
 +
            if (m.horas) <> 0
 +
              repla renova  with renova + m.horas
 +
            else
 +
              repla renova  with renova+1 
 +
            endif 
 +
          else
 +
            **si un cargo renovado no tiene licencia lo cargo como renovado y lo resto de la planta
 +
            sele planta
 +
            if empty(alltrim(m.carant))=.t.
 +
              if (m.horas) <> 0
 +
                repla horas    with horas - (m.horas)  &&le resto las horas de los cargos renovados
 +
                repla renova  with renova + m.horas
 +
              else
 +
                repla ocupados with ocupados - 1 &&le resto las personas de los cargos renovados
 +
                repla renova  with renova+1 
 +
              endif
 +
            else
 +
              if (m.horas) <> 0
 +
                repla renova  with renova + m.horas
 +
              else
 +
                repla renova  with renova+1 
 +
              endif
 +
            endif
 +
          endif
 +
        endif
 +
        **busco por caracter cambiado
 +
        sele planta
 +
        set order to planta
 +
        go top
 +
        if seek(alltrim(m.categ)+alltrim(m.depend)+ m.carant + alltrim(m.agrup) )
 +
          if (m.horas) <> 0
 +
            repla planta.horas with horas - (m.horas)
 +
          else
 +
            repla planta.ocupados with ocupados -1 
 +
          endif 
 +
        endif
 +
      endif
 +
    endif
 +
    sele renova
 +
  endscan
 +
 
 +
  *------------
 +
 
 +
 
 +
 
 +
 
 +
  *-------procedimientos
 +
  **no corre mas
 +
  ***-----busca si tiene licencias sin goce y las carga en otro campo en la planta sin restar nada
 +
  ****no corre mas
 +
  **si tiene licencias sin goce o sea dias y dias lo resta de cargos ocupados
 +
  procedure buscolic
 +
 
 +
  **viene del dh03
 +
  sele lic_l  &&licencia por legajo
 +
  set order to legajo
 +
  if seek (m.nro_legaj) && si tiene lic por legajo
 +
    **si tiene licencias s/g cargo las horas y ocupados con licencias
 +
    sele plantale
 +
    set order to d_legajo
 +
    if seek (padl(alltrim(str(m.nro_legaj)),6,"0")) && si lo encuentra significa que tiene dias y dias y lo debe restar de planta
 +
      descuenta = "S"
 +
      **borro de plantale
 +
      delete
 +
    else
 +
      descuenta = "N" 
 +
    endif   
 +
    sele planta
 +
    set order to planta
 +
        if !seek(alltrim(dh03.codc_categ)+alltrim(dh03.codc_uacad)+alltrim(dh03.codc_carac)+alltrim(dh03.codc_agrup))
 +
          *primera vez
 +
         
 +
          append blank
 +
          repla categ    with dh03.codc_categ
 +
          repla depend    with alltrim(dh03.codc_uacad)
 +
          repla caracter  with alltrim(dh03.codc_carac)
 +
          repla agrup    with alltrim(dh03.codc_agrup)
 +
          if dh03.hs_dedic <> 0
 +
            repla horas_l    with horas_l+dh03.hs_dedic
 +
          else
 +
            repla conlic with conlic+1 
 +
          endif
 +
        else
 +
          if dh03.hs_dedic <> 0
 +
            repla horas_l    with horas_l+dh03.hs_dedic
 +
          else
 +
            repla conlic with conlic+1 
 +
          endif
 +
          if descuenta = "S"
 +
            if dh03.hs_dedic <> 0
 +
                repla horas    with horas-dh03.hs_dedic
 +
            else
 +
                repla ocupados with ocupados-1 
 +
            endif
 +
              descuenta = "N"
 +
          endif
 +
        endif
 +
        if (alltrim(lic_l.codn_tipo_) = "999" or alltrim(lic_l.codn_tipo_) = "996")
 +
          repla planta.L9969 with planta.L9969 + 1
 +
          repla planta.H9969 with planta.H9969 + dh03.hs_dedic
 +
         
 +
        endif
 +
        if (alltrim(lic_l.codn_tipo_) = "9991" )
 +
          repla planta.L9991 with planta.L9991 + 1
 +
          repla planta.H9991 with planta.H9991 + dh03.hs_dedic
 +
         
 +
        endif
 +
        sele horaslic
 +
        append blank
 +
        repla categ    with dh03.codc_categ
 +
        repla depend    with alltrim(dh03.codc_uacad)
 +
        repla caracter  with alltrim(dh03.codc_carac)
 +
        repla agrup    with alltrim(dh03.codc_agrup)
 +
        repla horas_l    with (dh03.hs_dedic)
 +
        repla legajo    with padl(alltrim(str(dh03.nro_legaj)),6,"0")
 +
        repla cargo    with padl(alltrim(str(dh03.nro_cargo)),9,"0")
 +
        repla tipo      with lic_l.codn_tipo_
 +
        repla fec_desde with lic_l.fec_desde
 +
        repla fec_hasta with lic_l.fec_hasta
 +
       
 +
  endif
 +
  sele lic_c
 +
  set order to cargo
 +
  if nro_cargo = 109343
 +
  * set step on
 +
  endif
 +
 
 +
  if seek (m.nro_cargo)
 +
    **si tiene licencias s/g cargo las horas y ocupados con licencias
 +
    sele plantale
 +
    set order to d_cargo
 +
    if seek (padl(alltrim(str(m.nro_cargo)),9,"0")) && si lo encuentra significa que tiene dias y dias y lo debe restar de planta
 +
      descuenta = "S"
 +
      **borro de plantale
 +
      delete
 +
    else
 +
      descuenta = "N" 
 +
    endif   
 +
    sele planta
 +
    set order to planta
 +
        if !seek(alltrim(dh03.codc_categ)+alltrim(dh03.codc_uacad)+alltrim(dh03.codc_carac)+alltrim(dh03.codc_agrup))
 +
          *primera vez
 +
          append blank
 +
          repla categ    with dh03.codc_categ
 +
          repla depend  with alltrim(dh03.codc_uacad)
 +
          repla caracter with alltrim(dh03.codc_carac)
 +
          repla agrup    with alltrim(dh03.codc_agrup)
 +
          if dh03.hs_dedic <> 0
 +
            repla horas_l    with horas_l+dh03.hs_dedic
 +
          else
 +
            repla conlic with conlic+1 
 +
          endif
 +
         
 +
        else
 +
          if dh03.hs_dedic <> 0
 +
            repla horas_l    with horas_l+dh03.hs_dedic
 +
          else
 +
           
 +
            repla conlic with conlic+1 
 +
          endif
 +
        endif
 +
        if descuenta = "S"
 +
            if dh03.hs_dedic <> 0
 +
                repla horas    with horas-dh03.hs_dedic
 +
            else
 +
                repla ocupados with ocupados-1 
 +
            endif
 +
              descuenta = "N"
 +
        endif
 +
        **si es licencia 999 o 996 no resta nada del total ocupado
 +
        if (alltrim(lic_c.codn_tipo_) = "999" or alltrim(lic_c.codn_tipo_) = "996")
 +
          repla planta.L9969 with planta.L9969 + 1
 +
          repla planta.H9969 with planta.H9969 + dh03.hs_dedic
 +
        endif
 +
        if (alltrim(lic_c.codn_tipo_) = "9991" )
 +
          repla planta.L9991 with planta.L9991 + 1
 +
          repla planta.H9991 with planta.H9991 + dh03.hs_dedic
 +
         
 +
        endif
 +
 
 +
        sele horaslic
 +
        append blank
 +
        repla categ    with dh03.codc_categ
 +
        repla depend    with alltrim(dh03.codc_uacad)
 +
        repla caracter  with alltrim(dh03.codc_carac)
 +
        repla agrup    with alltrim(dh03.codc_agrup)
 +
        repla horas_l    with (dh03.hs_dedic)
 +
        repla legajo    with padl(alltrim(str(dh03.nro_legaj)),6,"0")
 +
        repla cargo    with padl(alltrim(str(dh03.nro_cargo)),9,"0")
 +
        repla tipo      with lic_c.codn_tipo_
 +
        repla fec_desde with lic_c.fec_desde
 +
        repla fec_hasta with lic_c.fec_hasta
 +
  endif
 +
  return
 +
 
 +
  *----------------------
 +
  *-----destruyo las vista
 +
  sele 1
 +
  use
 +
  drop view &nom1
 +
  *-------
 +
  sele 1
 +
  use
 +
  drop view &nom3
 +
  sele 1
 +
  use
 +
  drop view &nom2
  
 
===Programa "planta_r.prg"===
 
===Programa "planta_r.prg"===

Revisión del 13:49 31 ene 2012

FORMULARIO

Planta.PNG


Planta2.PNG

INFORME

NO POSEE

CÓDIGO

Programa "planta.prg"

  SET DELETED ON
  SET DATE TO DMY
  SET TALK OFF
  SET EXCLUSIVE ON
  SET CENTURY ON
  SET SAFE OFF
  
  *--
  **
  *wait windows "Espere un momento por favor. Procesando datos......."+chr(13)+"Puede tardar unos minutos " 
  *------
  tabla= vm_bases_informes + "plantale"
  create table &tabla free (categ C (4),agrup c(4),horas n(6),caracter c(4),;
                            depend c(3),horas_l n(6),legajo c(6),cargo c(9))
  
  
  *-----
  tabla= vm_bases_informes + "planta"
  create table &tabla free (categ C (4),agrup c(4),horas n(6),caracter c(4),;
                            ocupados n(6), depend c(3), conlic n(6),;
                            renova n(6),horas_l n(6),conlic_s n(6),;
                            L9969 n(6),L9991 n(6),descrip c(60),H9969 n(6),H9991 n (6))
  
  *-----------------------------------------------------------------------------
  SELE DISTINC(NRO_CARGO)as nro_cargo,nro_legaj  FROM dh21 INTO table  vm_bases_informes + "dh21uni"
  
  sele dh03
  index on nro_cargo tag cargo
  
  *------------------------------------------------
  *---abro la vista del dh11  actual
  cadenasql=   "select *";
             + " from dh11"
  nom5=sys(3)
  create sql view &nom5;
  connection con_pampasql;
  as &cadenasql
  
  *connection con_pampasql;
  
  if !used('v_11')
   sele sele(1)  
   use &nom5 alias v_11
  endif
  
  tabla= vm_bases_informes + "dh11"
  select *;
  from v_11;
  into table &tabla
  *-----
  if used ('dh11')
    sele dh11
    use
  endif
  sele sele(1)  
  use &tabla excl
  index on val(codc_categ) tag categ
  
  *------------------------------------------------
  tabla= vm_bases_informes + "planta"
  if used ("planta")
    sele planta
    use
  endif
  sele sele(1)  
  use &tabla excl
  index on alltrim(categ)+alltrim(depend)+alltrim(caracter)+alltrim(agrup) tag planta additive
  index on padl(alltrim(depend),3,"0")+padl(alltrim(categ),4,"0") tag listado
  
  
  *---------------------------------------------------------------------------------
  public vm_depend
  store "   " to vm_depend
  
  *********
  **lee del dh21uni los cargos liquidados y saca del dh03 la categoria del agente y lo cuenta
  **como ocupado en planta segun categoria , caracter y agrupamiento
  **carga tambien en plantale el detalle de la persona
  
  SELE DH21UNI  &&nro de cargos distintos
  scan
    SCATTER MEMVAR
    sele dh03
    set order to CARGO
    if seek(m.NRO_CARGO)
      sele planta
      set order to planta
      @ 2,45 say "Procesando...." 
      if !seek(alltrim(dh03.codc_categ)+alltrim(dh03.codc_uacad)+alltrim(dh03.codc_carac)+alltrim(dh03.codc_agrup))
        *primera vez
        append blank
        repla categ    with dh03.codc_categ
        repla depend   with alltrim(dh03.codc_uacad)
        repla caracter with alltrim(dh03.codc_carac) 
        repla agrup    with alltrim(dh03.codc_agrup)
        repla horas    with (dh03.hs_dedic)
        repla ocupados with 1
      else
        repla ocupados with ocupados+1  
        repla horas    with horas+dh03.hs_dedic
      endif
        sele plantale
        append blank
        repla legajo with padl(alltrim(str(dh03.nro_legaj)),6,"0")
        repla cargo  with padl(alltrim(str(dh03.nro_cargo)),9,"0")
        repla categ    with dh03.codc_categ
        repla depend   with alltrim(dh03.codc_uacad)
        repla caracter with alltrim(dh03.codc_carac) 
        repla agrup    with alltrim(dh03.codc_agrup)
        repla horas    with (dh03.hs_dedic)
    endif  
    sele dh21UNI
  endscan
  
  
  *------------------------------------------
  
  llamada=vm_programas + "planta_s.prg" 
  *llamada1=vm_programas + "planta_r.prg" 
  do  &llamada
  *do  &llamada1
  sele planta
  scan
   sele dh11
   set order to categ
   if seek(val(planta.categ))
    repla planta.descrip with dh11.desc_categ
   endif
  sele planta
  endscan
  return
  *------------------------------------------

Programa "planta_s.prg"

  *public fechaL ,fecha
  public vm_legajo,vm_categ,vm_baja,fecha,fechal,descuenta,vm_cargo,vm_caracter
  descuenta ="N"
  SET DATE TO FRENCH
  SET CENTURY ON
  *set excl on
  
  *------base donde se carga los cargos con licencia
  tabla= vm_bases_informes + "horaslic"
  create table &tabla free (categ C (4),agrup c(4),horas n(6),caracter c(4),;
                        depend c(3),horas_l n(6),legajo c(6),cargo c(9),tipo c(4),;
                        fec_desde d(8),fec_hasta d(8))
                       
  *-------
  tabla= vm_bases_informes + "plantale"
  if used ("plantale")
    sele plantale
    use
  endif
  sele sele(1)  
  use &tabla excl
  index on legajo tag d_legajo additive
  index on cargo tag d_cargo
  *----------------------------------------------------------------------------------
  tabla= vm_bases_informes + "dh21uni"
  if used ("dh21uni")
    sele dh21uni
    use
  endif
  sele sele(1)  
  use &tabla excl
  index on nro_cargo tag dh21car
  *---------base con renovaciones de cargo**** 
  tabla= vm_bases_informes + "renova"
  create table &tabla free (categ C (4),agrup c(4),horas n(6),caracter c(4),;
                             depend c(3),legajo n(6), alta d(8), baja d(8) null ,cargo n(9),carant c(4))
  if used ('renova')
    sele renova
    use
  endif
  sele sele(1)  
  use &tabla excl
  index on depend+alltrim(str(legajo)) tag lis_renova
  *-----------------------------------------------------------------------------------------
  *---filtro
  *store "2003-06-30" to fechaL &&fecha para licencias s/g
  *store {^2003/06/01} to fecha   &&fecha para cargos vigentes
  
  *----------------------------------------------------------------------------------------
  
  
  sele dh03
  set filter to (fec_baja >= &fecha)  or (empty(fec_baja)=.t.) or isnull(fec_baja)
  index on padl(alltrim(str(nro_legaj)),6,"0")+ padl(alltrim(codc_categ),3,"0")+padl(alltrim(str(nro_cargo)),9,"0") tag dh03L
  
  
  
  *-----------------------------------------------
  
  
  *----------------------------------
  cadenasql=   "select *";
             + " from dl02"
  nom5=sys(3)
  create sql view &nom5;
  connection con_pampasql;
  as &cadenasql
  
  if !used('v_dl02')
   sele sele(1)  
   use &nom5 alias v_dl02
  endif
  
  tabla= vm_bases_informes + "dl02"
  select *;
  from v_dl02;
  into table &tabla
  *-----
  if used ('dl02')
    sele dl02
    use
  endif
  sele sele(1)  
  use &tabla excl
  
  
  *---------------------------------------------------
  *-----------base donde se carga la planta
  tabla= vm_bases_informes + "planta"
  if used ('planta')
    sele planta
    use
  endif
  sele sele(1)  
  use &tabla excl
  *---------------------------------------------------
 
 
  
  *--licencias de legajos en periodo informado por el usuario
       select distinct dh05.nro_legaj,dh05.fec_desde,;
                       dh05.fec_hasta, dh05.nrovarlice, dl02.codn_tipo_;
              from dh05,dL02,dh03 where dh05.nro_cargo = 0 and ;
                   dh05.nro_legaj = dh03.nro_legaj and;
                   dl02.nrovarlice =dh05.nrovarlice and;
                   dl02.porcremune  = 0 and dh05.fec_hasta >=&fechaL;
                   into table vm_bases_informes+"V_L"
    
        
  *--licencia de cargos
            select distinct dh05.nro_cargo , dh05.fec_desde,;
                            dh05.fec_hasta, dh05.nrovarlice, dl02.codn_tipo_;
                   from dh05,dL02,dh03 where dh05.nro_legaj = 0 and ;
                        dh05.nro_cargo = dh03.nro_cargo and ;
                        dl02.nrovarlice = dh05.nrovarlice and;
                        dl02.porcremune  = 0 and dh05.fec_hasta >=&fechaL;
                        into table vm_bases_informes+"V_C"
  
  *----------------------------
  
  *--tabla para la vista de licencias por cargos      
  tabla= vm_bases_informes+"lic_c"   
  select *;
  from V_C;
  into table &tabla
  index on nro_cargo tag cargo
  *---tabla para la vista de licencias por legajos
  tabla= vm_bases_informes+"lic_l"   
  select *;
  from V_L;
  into table &tabla
  index on nro_legaj tag legajo 
  
  *-------------------------------------------------
  
  *-------lee el dh03 con cargos vigentes al mes y si tienen subrogancia(no docente) lo agrega 
  *en la plantay plantale
  sele dh03
  
  scan
    SCATTER MEMVAR
    if m.nro_legaj =39100
    * set step on
    endif
    if dh03.codc_carac = "SUBR"
       sele planta
       set order to planta
       if !seek(alltrim(dh03.codc_categ)+alltrim(dh03.codc_uacad)+alltrim(dh03.codc_carac)+alltrim(dh03.codc_agrup))
          *primera vez
          append blank
          repla categ    with dh03.codc_categ
          repla depend   with alltrim(dh03.codc_uacad)
          repla caracter with alltrim(dh03.codc_carac) 
          repla agrup    with alltrim(dh03.codc_agrup)
          repla horas    with (dh03.hs_dedic)
          repla ocupados with 1
       else
          repla ocupados with ocupados+1  
          repla horas    with horas+dh03.hs_dedic
       endif
           sele plantale
           append blank
           repla legajo   with padl(alltrim(str(dh03.nro_legaj)),6,"0")
           repla cargo  with padl(alltrim(str(dh03.nro_cargo)),9,"0")
           repla categ    with dh03.codc_categ
           repla depend   with alltrim(dh03.codc_uacad)
           repla caracter with alltrim(dh03.codc_carac) 
           repla agrup    with alltrim(dh03.codc_agrup)
           repla horas    with (dh03.hs_dedic)
     endif  
     do buscolic  &&llama al procedimiento que busca lic sin goce
     sele dh03
  endscan
  *----------------
  
  *----lee del dh21 los cargos pagados y controla si tienen cargos renovados y si notiene licencia
  *---lo resta de la planta 
  sele dh21uni  &&son los cargos pagados 
  go top
    scan
      scatter memvar
      vm_regis=recno()
      sele dh03 &&esta filtrada por cargos vigentes
      set order to cargo
      if seek (m.nro_cargo)
         if m.nro_cargo=76304
  *       set step on
         endif   
          vm_legajo = dh03.nro_legaj
          vm_categ    = ALLTRIM(dh03.codc_categ)
          vm_baja     = dh03.fec_baja
          vm_depend   = ALLTRIM(dh03.codc_uacad)
          vm_caracter = ALLTRIM(dh03.codc_carac)
          vm_cargo    = padl(alltrim(str(dh03.nro_cargo)),9,"0")
          SET ORDER TO DH03L
          GO TOP
          if SEEK(PADL(ALLTRIM(STR(vm_legajo)),6,"0")+padl(alltrim(vm_categ),3,"0"))
           SCAN WHILE vm_legajo = dh03.nro_legaj and vm_categ = alltrim(dh03.codc_categ) and vm_depend = alltrim(dh03.codc_uacad)
            if !empty (vm_baja )
               if (vm_baja + 1) = dh03.fec_ALTA
                 sele dh21uni
                 set order to dh21car
                 go top
                 if seek(dh03.nro_cargo)
                   sele renova
                   append blank
                   repla categ     with dh03.codc_categ
                   repla depend    with alltrim(dh03.codc_uacad)
                   if vm_caracter # dh03.codc_carac
                     repla carant  with alltrim(vm_caracter) 
                   endif  
                   repla caracter  with alltrim(dh03.codc_carac) 
                   repla agrup     with alltrim(dh03.codc_agrup)
                   repla horas     with (dh03.hs_dedic)
                   repla legajo    with dh03.nro_legaj
                   repla alta      with dh03.fec_alta
                   repla baja      with dh03.fec_baja
                   repla cargo     with dh03.nro_cargo
                   sele plantale
                   set order to d_cargo
                   if seek (vm_cargo) && si lo encuentra significa que tiene dias y dias y lo debe restar de planta detallada
                     dele 
                     pack
                   endif  
                   @ 2,0  clear to 2,60
                   @ 2,45 say "Fin del Proceso"
                   *wait windows "Fin del proceso" nowait
                 endif  
               endif
             endif
           sele dh03
           endscan
          endif
           
      endif  
      sele dh21uni
      goto vm_regis
  endscan
   
  *----esta parte lee del renova hacia el dh21uni para detectar si existen--------
  *----cargos renovados que se hayan pagado en el mismo mes en la misma dep.
  sele renova
  go top
  scan
    banlic=0
    scatter memvar
    sele dh21uni
    set order to dh21car
    if seek (m.cargo)
      sele planta
      set order to planta
      if !seek(alltrim(m.categ)+alltrim(m.depend)+alltrim(m.caracter)+alltrim(m.agrup))
  *!*	      append blank
  *!*	      repla categ    with m.categ
  *!*	      repla depend   with m.depend
  *!*	      repla caracter with m.caracter
  *!*	      repla agrup    with m.agrup
  *!*	      if (m.horas) <> 0
  *!*	        repla renova with m.horas &&acumulo las hs renovadas
  *!*	      else
  *!*        repla renova with 1
  *!* 	      endif 
      else  &&si ya existe la categoria en el pampa 
        ***se fija si tiene licencias del cargo
        sele lic_c
        set order to cargo
        if seek (m.cargo) &&si un cargo renovado tiene licencia de cargo lo cargo como renovado y no lo resto de los cargos ocupados
          banlic=1   
          sele planta
          if (m.horas) <> 0
            repla renova   with renova + m.horas
         else
            repla renova   with renova+1  
          endif
        else
          ***se fija si tiene licencias del legajo
          sele lic_l
          set order to legajo
          if seek (m.legajo) &&si un cargo renovado tiene licencia de legajo lo cargo como renovado y no lo resto de los cargos ocupados
            banlic=1   
            sele planta
            if (m.horas) <> 0
              repla renova   with renova + m.horas
            else
              repla renova   with renova+1  
            endif   
          else
            **si un cargo renovado no tiene licencia lo cargo como renovado y lo resto de la planta
            sele planta
            if empty(alltrim(m.carant))=.t.
              if (m.horas) <> 0
                repla horas    with horas - (m.horas)  &&le resto las horas de los cargos renovados
                repla renova   with renova + m.horas
              else
                repla ocupados with ocupados - 1 &&le resto las personas de los cargos renovados
                repla renova   with renova+1  
              endif
            else
              if (m.horas) <> 0
                repla renova   with renova + m.horas
              else
                repla renova   with renova+1  
              endif
            endif 
          endif
        endif
        **busco por caracter cambiado
        sele planta
        set order to planta
        go top
        if seek(alltrim(m.categ)+alltrim(m.depend)+ m.carant + alltrim(m.agrup) )
          if (m.horas) <> 0
            repla planta.horas with horas - (m.horas) 
          else 
            repla planta.ocupados with ocupados -1  
          endif   
        endif
      endif
    endif
    sele renova
  endscan 
  
  *------------
  
  
  
  
  *-------procedimientos
  **no corre mas
  ***-----busca si tiene licencias sin goce y las carga en otro campo en la planta sin restar nada
  ****no corre mas
  **si tiene licencias sin goce o sea dias y dias lo resta de cargos ocupados
  procedure buscolic
  
  **viene del dh03
  sele lic_l  &&licencia por legajo
  set order to legajo
  if seek (m.nro_legaj) && si tiene lic por legajo
    **si tiene licencias s/g cargo las horas y ocupados con licencias
    sele plantale
    set order to d_legajo
    if seek (padl(alltrim(str(m.nro_legaj)),6,"0")) && si lo encuentra significa que tiene dias y dias y lo debe restar de planta
      descuenta = "S"
      **borro de plantale
      delete
    else
      descuenta = "N"  
    endif     
    sele planta
    set order to planta
       if !seek(alltrim(dh03.codc_categ)+alltrim(dh03.codc_uacad)+alltrim(dh03.codc_carac)+alltrim(dh03.codc_agrup))
          *primera vez
          
          append blank
          repla categ     with dh03.codc_categ
          repla depend    with alltrim(dh03.codc_uacad)
          repla caracter  with alltrim(dh03.codc_carac) 
          repla agrup     with alltrim(dh03.codc_agrup)
          if dh03.hs_dedic <> 0
            repla horas_l    with horas_l+dh03.hs_dedic
          else
           repla conlic with conlic+1  
          endif
       else
          if dh03.hs_dedic <> 0
           repla horas_l    with horas_l+dh03.hs_dedic
          else
           repla conlic with conlic+1  
          endif
          if descuenta = "S"
            if dh03.hs_dedic <> 0 
               repla horas    with horas-dh03.hs_dedic
            else
               repla ocupados with ocupados-1   
            endif
              descuenta = "N"
          endif
       endif
       if (alltrim(lic_l.codn_tipo_) = "999" or alltrim(lic_l.codn_tipo_) = "996")
         repla planta.L9969 with planta.L9969 + 1
         repla planta.H9969 with planta.H9969 + dh03.hs_dedic
         
       endif
       if (alltrim(lic_l.codn_tipo_) = "9991" )
         repla planta.L9991 with planta.L9991 + 1
         repla planta.H9991 with planta.H9991 + dh03.hs_dedic
         
       endif
       sele horaslic
       append blank
       repla categ     with dh03.codc_categ
       repla depend    with alltrim(dh03.codc_uacad)
       repla caracter  with alltrim(dh03.codc_carac) 
       repla agrup     with alltrim(dh03.codc_agrup)
       repla horas_l     with (dh03.hs_dedic)
       repla legajo    with padl(alltrim(str(dh03.nro_legaj)),6,"0")
       repla cargo     with padl(alltrim(str(dh03.nro_cargo)),9,"0")
       repla tipo      with lic_l.codn_tipo_
       repla fec_desde with lic_l.fec_desde
       repla fec_hasta with lic_l.fec_hasta
       
  endif
  sele lic_c
  set order to cargo
  if nro_cargo = 109343
  * set step on
  endif 
  
  if seek (m.nro_cargo)
    **si tiene licencias s/g cargo las horas y ocupados con licencias
    sele plantale
    set order to d_cargo
    if seek (padl(alltrim(str(m.nro_cargo)),9,"0")) && si lo encuentra significa que tiene dias y dias y lo debe restar de planta
      descuenta = "S"
      **borro de plantale
      delete
    else
      descuenta = "N"  
    endif     
    sele planta
    set order to planta
       if !seek(alltrim(dh03.codc_categ)+alltrim(dh03.codc_uacad)+alltrim(dh03.codc_carac)+alltrim(dh03.codc_agrup))
          *primera vez
          append blank
          repla categ    with dh03.codc_categ
          repla depend   with alltrim(dh03.codc_uacad)
          repla caracter with alltrim(dh03.codc_carac) 
          repla agrup    with alltrim(dh03.codc_agrup)
          if dh03.hs_dedic <> 0
           repla horas_l    with horas_l+dh03.hs_dedic
          else
           repla conlic with conlic+1  
          endif
          
       else
          if dh03.hs_dedic <> 0
           repla horas_l    with horas_l+dh03.hs_dedic
          else
           
           repla conlic with conlic+1  
          endif
       endif
       if descuenta = "S"
            if dh03.hs_dedic <> 0 
               repla horas    with horas-dh03.hs_dedic
            else
               repla ocupados with ocupados-1   
            endif
              descuenta = "N"
       endif
       **si es licencia 999 o 996 no resta nada del total ocupado
       if (alltrim(lic_c.codn_tipo_) = "999" or alltrim(lic_c.codn_tipo_) = "996")
         repla planta.L9969 with planta.L9969 + 1
         repla planta.H9969 with planta.H9969 + dh03.hs_dedic
       endif
       if (alltrim(lic_c.codn_tipo_) = "9991" )
         repla planta.L9991 with planta.L9991 + 1
         repla planta.H9991 with planta.H9991 + dh03.hs_dedic
         
       endif
  
       sele horaslic
       append blank
       repla categ     with dh03.codc_categ
       repla depend    with alltrim(dh03.codc_uacad)
       repla caracter  with alltrim(dh03.codc_carac) 
       repla agrup     with alltrim(dh03.codc_agrup)
       repla horas_l     with (dh03.hs_dedic)
       repla legajo    with padl(alltrim(str(dh03.nro_legaj)),6,"0")
       repla cargo     with padl(alltrim(str(dh03.nro_cargo)),9,"0")
       repla tipo      with lic_c.codn_tipo_
       repla fec_desde with lic_c.fec_desde
       repla fec_hasta with lic_c.fec_hasta
  endif
  return
  
  *----------------------
  *-----destruyo las vista 
  sele 1
  use
  drop view &nom1
  *-------
  sele 1
  use
  drop view &nom3
  sele 1
  use
  drop view &nom2

Programa "planta_r.prg"

Botón "Ejecutar" (Command1)

  set excl on
  public planta, depend,busca,buscadh03,base,basedh03,buscadh05,basedh05 
  public fechaL ,fecha
  store " " to planta
  store 0 to depend
  
  base = "pla"+padl(alltrim(thisform.text1.value),2,"0")+right(alltrim(str(thisform.text2.value)),2)
  busca =vm_bases+ "pla"+padl(alltrim(thisform.text1.value),2,"0")+right(alltrim(str(thisform.text2.value)),2)+".dbf"
  buscadh05 =vm_bases+ "dh05"+padl(alltrim(thisform.text1.value),2,"0")+right(alltrim(str(thisform.text2.value)),2)+".dbf"
  basedh05 = "dh05"+padl(alltrim(thisform.text1.value),2,"0")+right(alltrim(str(thisform.text2.value)),2)
  buscadh03 =vm_bases+ "dh03"+padl(alltrim(thisform.text1.value),2,"0")+right(alltrim(str(thisform.text2.value)),2)+".dbf"
  basedh03 = "dh03"+padl(alltrim(thisform.text1.value),2,"0")+right(alltrim(str(thisform.text2.value)),2)
  
  
  
  if empty(thisform.text1.value ) = .f. 
    if empty(thisform.text2.value ) = .f. 
  *---------dh05-------------------
  if FILE('&buscadh05') = .t.
     if not used ('dh05')
       sele sele(1)
       *use &basedh05 alias dh05
       use &buscadh05 alias dh05
     else
       sele dh05
     endif 
       planta = "S"
   else
       wait windows "No existe inf de cargos del mes ingresado"
       planta = "N"
   endif  
  
  *---------dh03-------------------
  
  if FILE('&buscadh03') = .t.
     if !used ('dh03')
       sele sele(1)
       *use &basedh03 alias dh03
       use &buscadh03 alias dh03
     else
       sele dh03
     endif 
       planta = "S"
   else
       wait windows "No existe inf de cargos del mes ingresado"
       planta = "N"
   endif  
  
  
  *-------planta--------------------------------------------------------------
   if FILE('&busca') = .t.
     if !used ('dh21')
       sele sele(1)
       *use &base alias dh21
       use &busca alias dh21
     else
       sele dh21
     endif 
       planta = "S"
   else
       wait windows "No existe inf de planta del mes ingresado"
       planta = "N"
   endif  
  
   else
      wait windows "debe ingresar año" nowait
   endif
      else
      wait windows "debe ingresar mes" nowait
  
  endif  
  
  planta = "S"
  
  
  if planta = "S"
            
      fecha = ('{^' + alltrim(str(thisform.text2.value))+ '/' + padl(alltrim(thisform.text1.value),2,"0") +'/01}')
    if  inlist(val(alltrim(thisform.text1.value)) ,1,3,5,7,8,10,12) 
      *fechaL = alltrim(str(thisform.text2.value))+ '-' + padl(alltrim(thisform.text1.value),2,"0") +'-31'
       fechaL = ('{^' + alltrim(str(thisform.text2.value))+ '/' + padl(alltrim(thisform.text1.value),2,"0") +'/31}')
    endif
    if  inlist(val(alltrim(thisform.text1.value)),4,6,9,11) 
      *fechaL = alltrim(str(thisform.text2.value))+ '-' + padl(alltrim(thisform.text1.value),2,"0") +'-30'
      fechaL = ('{^' + alltrim(str(thisform.text2.value))+ '/' + padl(alltrim(thisform.text1.value),2,"0") +'/30}') 
    endif
    if val(alltrim(thisform.text1.value)) = 2 AND  thisform.text2.value % 4=0
      *año 2004 bisiesto febrero trae 29
      fechaL = ('{^' + alltrim(str(thisform.text2.value))+ '/' + padl(alltrim(thisform.text1.value),2,"0") +'/29}')
    endif
    if val(alltrim(thisform.text1.value)) = 2 AND  thisform.text2.value %4 <>0
      fechaL = ('{^' + alltrim(str(thisform.text2.value))+ '/' + padl(alltrim(thisform.text1.value),2,"0") +'/28}')
    endif
      do vm_programas+"planta.prg"
   
  endif
  thisform.command3.enabled = .t.
       thisform.pageframe1.page1.optiongroup4.option1.enabled = .t.
       thisform.pageframe1.page1.optiongroup4.option2.enabled = .t.
       thisform.pageframe1.page1.optiongroup4.option3.enabled = .t.
       thisform.pageframe1.page1.optiongroup1.option1.enabled = .t.
       thisform.pageframe1.page1.optiongroup1.option2.enabled = .t.
       thisform.pageframe1.page2.optiongroup2.option1.enabled = .t.
       thisform.pageframe1.page2.optiongroup2.option2.enabled = .t.
       thisform.pageframe1.page2.optgroupreno.optrenova.enabled = .t.
       thisform.pageframe1.page2.optgroupreno.opincapa.enabled = .t.
       thisform.command1.enabled = .f.
  *store "2003-06-30" to fechaL &&fecha para licencias s/g
  *store {^2003/06/01} to fecha   &&fecha para cargos vigentes

Botón "Cancelar" (btnCancelar)

  THISFORM.Release

Botón "Ayuda"(btnAyuda)

Combo "Año" (cmbAnio)

Combo "Mes" (cmbMes)

MANUAL DEL USUARIO

Procedimiento de Uso

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