Ver Mensaje Individual
  #2  
Viejo 15/05/08, 20:08:20
Avatar de vsuarezo
vsuarezo vsuarezo is offline
Member
 
Fecha de Ingreso: abr 2006
Localización: Bogotá - Colombia
Mensajes: 47
Calendario de Fabrica - Días Habiles

La función DAY_ATTRIBUTES_GET le puede informar para un rango de fechas los dos primeros caracteres del nombre del día ( SA, DO, LU, MA Etc.). Mediante un LOOP a la tabla ATRIBUTOS_DIAS y validando el campo WEEKDAY_S creo que puede lograr lo que necesita. FECINI y FECFIN serian los rangos de fechas, pueden ser iguales para hacer referencia a un solo día. ZFESTIVOS es una tabla Z con los festivos del año con un único campo tipo DATS.
Yo uso el siguiente código para que a partir del rago de fechas me incremente la fecha final tantos días NO hábiles haya en el rango de fechas indicado. Es decir quesi la fecha final es 10 de mayo y en el rango hay dos días NO hábiles me retornaría Mayo 12

Espero le sea útil y no le haya llegado tarde esta respuesta.

*****

* Tabla para traer los atributos de los días
DATA: BEGIN OF ATRIBUTOS_DIAS OCCURS 0.
INCLUDE STRUCTURE SCSDAYATTR.
DATA: END OF ATRIBUTOS_DIAS.

CALL FUNCTION 'DAY_ATTRIBUTES_GET'
EXPORTING
DATE_FROM = FECINI
DATE_TO = FECFIN
LANGUAGE = SY-LANGU
TABLES
DAY_ATTRIBUTES = ATRIBUTOS_DIAS
EXCEPTIONS
FACTORY_CALENDAR_NOT_FOUND = 01
HOLIDAY_CALENDAR_NOT_FOUND = 02
DATE_HAS_INVALID_FORMAT = 03
DATE_INCONSISTENCY = 04.

LOOP AT ATRIBUTOS_DIAS.
IF ATRIBUTOS_DIAS-WEEKDAY_S = 'SA' OR
ATRIBUTOS_DIAS-WEEKDAY_S = 'DO'.
ADD 1 TO FECFIN.
PERFORM VALID_FECHA_FIN USING FECFIN.
ENDIF.

SELECT COUNT(*) FROM ZFESTIVOS
WHERE FECHA = ATRIBUTOS_DIAS-DATE.

IF SY-SUBRC = 0.
ADD 1 TO FECFIN.
PERFORM VALID_FECHA_FIN USING FECFIN.
ENDIF.
ENDLOOP.

****

FORM VALID_FECHA_FIN USING FECFIN.
CALL FUNCTION 'DAY_ATTRIBUTES_GET'
EXPORTING
DATE_FROM = FECFIN
DATE_TO = FECFIN
LANGUAGE = SY-LANGU
TABLES
DAY_ATTRIBUTES = ATRIBUTOS_DIAS_FIN
EXCEPTIONS
FACTORY_CALENDAR_NOT_FOUND = 01
HOLIDAY_CALENDAR_NOT_FOUND = 02
DATE_HAS_INVALID_FORMAT = 03
DATE_INCONSISTENCY = 04.

IF ATRIBUTOS_DIAS_FIN-WEEKDAY_S = 'SA'.
ADD 2 TO FECFIN.
ENDIF.
IF ATRIBUTOS_DIAS_FIN-WEEKDAY_S = 'DO'.
ADD 1 TO FECFIN.
PERFORM VALID_FECHA_FIN USING FECFIN.
ENDIF.

SELECT COUNT(*) FROM ZFESTIVOS
WHERE FECHA = FECFIN.
IF SY-SUBRC = 0.
ADD 1 TO FECFIN.
PERFORM VALID_FECHA_FIN USING FECFIN.
ENDIF.
ENDFORM. " VALID_FECHA_FIN
Responder Con Cita