verRegreso routine
   IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
      RRU:NOMBRE = ' verRegreso Tnv:MnjDiaVac de usuario ' & LOC:MnjDiaVac & ' Loc:Concepto ' & Loc:Concepto
      ADD(RRU)
   END
   if clip(LOC:MnjDiaVac) <= ''
      LOC:MnjDiaVac   = VarCptGen(Loc:Concepto, 'No','No','Tnv:MnjDiaVac', 0)                           ! 08/08/2007 Sm enka por empleado
      IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
         RRU:NOMBRE = ' Tnv:MnjDiaVac de CONCEPTO ' & LOC:MnjDiaVac & ' Loc:Concepto ' & Loc:Concepto
         ADD(RRU)
      END
   end
   Case Upper(clip(LOC:MnjDiaVac))
        of 'V'
           diay$ = glo:F_REG_p % 7 + 1
           IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
              RRU:NOMBRE = ' Por V FECHA DE REGREGO ' & FORMAT(glo:F_REG_p,@D6.) & ' diay$ ' & diay$
              ADD(RRU)
           END
           if diay$ = 7 then exit.               ! PARA QUE OBLIGUE A REGRESASR EL SABADO   EL DIA 7 ES SABADO
        of 'S'
           diay$ = glo:F_REG_p % 7 + 1
           IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
              RRU:NOMBRE = ' Por S FECHA DE REGREGO ' & FORMAT(glo:F_REG_p,@D6.) & ' diay$ ' & diay$
              ADD(RRU)
           END
           if diay$ = 6 then exit.               ! 28/12/2007 SM PARA QUE NO CUENTE EL SABADO   EL DIA 6 ES VIERNES
   end
!   stop(' Tnv:MnjDiaVac de concepto' & LOC:MnjDiaVac & ' EMP:NIVEL ' & EMP:NIVEL & ' Loc:Concepto ' & Loc:Concepto & ' glo:F_REG_p ' & FORMAT(glo:F_REG_p,@D6.))
   F_REG_p$ = glo:f_reG_p                        ! 12/02/2008 sm se estaba enlupando
   loop
      clear(dnh:record)
      dnh:clase     = LOC:CLASE
      dnh:f_nohabil = F_REG_p$
      get(dnh,dnh:dnhllave)
      if error()  then Break.
      IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
         RRU:NOMBRE = ' DNH:IND_HRSDIA ' & DNH:IND_HRSDIA & ' F_REG_p$ ' & FORMAT(F_REG_p$,@D6.)
         ADD(RRU)
      END
      Case Upper(clip(DNH:IND_HRSDIA))           !17/01/2008 SM FEPCO
           of 'S'
           else
              glo:f_reG_p  += 1
      end
      F_REG_p$ += 1                              ! 12/02/2008 sm se estaba enlupando
   .
   IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
      RRU:NOMBRE = ' verRegreso F_REG_p$ ' & FORMAT(F_REG_p$,@D6.) & ' Tnv:MnjDiaVac ' & LOC:MnjDiaVac
      ADD(RRU)
   END
   Case Upper(clip(LOC:MnjDiaVac))
        of 'H'
          TERM# = 0
          LOOP UNTIL TERM# = 1
               FECHAR$ = glo:f_reg_p - 1                              ! 12/02/2008 sm se estaba enlupando
               IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
                  RRU:NOMBRE = ' EVALUAR FECHA ' & FORMAT(FECHAR$,@D6.) & ' TERM# ' & TERM#
                  ADD(RRU)
               END
               DO DEVOLVERFECHA
               IF ENCONT# = 0 THEN TERM# = 1.
               IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
                  RRU:NOMBRE = ' TERM# ' & TERM# & ' FECHA REGRESO ' & FORMAT(glo:f_reg_p,@D6.)
                  ADD(RRU)
               END
          END
!          IF TERM# = 1 THEN glo:f_reg_p += 1.
!          IF Tnv:Debug                                                                                           ! 12/12/2008 LF AGREGO COSERVICIO
!             RRU:NOMBRE = ' FECHA REGRESO ' & FORMAT(glo:f_reg_p,@D6.) & ' TERM# ' & TERM#
!             ADD(RRU)
!          END
   END