#1
|
|||
|
|||
Calendario de Fabrica - Dias Habiles
Hola, que funcion puedo usar para que me de el proximo dia habil ?
|
#2
|
||||
|
||||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|