FUNCTION mover_fecha_conteo(v_cod_n,v_cod_grupo,v_cod_tipo,v_cod_sec,v_fecha_conteo,v_bodega)
    DEFINE v_categoria CHAR(2)
    DEFINE v_dias,v_diasCiclo INTEGER
    DEFINE v_fecha_nueva,
           v_fecha_base,v_fecha_conteo,v_semana_al DATE
    DEFINE v_codid INTEGER
    DEFINE   v_cod_n,
             v_cod_grupo,
             v_cod_tipo,
             v_cod_sec,
             v_bodega INTEGER

    -- Cursor para obtener productos cuyo conteo ya fue realizado
    DECLARE c_conteos CURSOR FOR 
        SELECT  b.codid,a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec, a.bodega, a.categoria, a.semana_del
        FROM intb00015 a, iptb00002 b
        WHERE a.cod_n = b.cod_n AND a.cod_grupo = b.cod_grupo AND a.cod_tipo = b.cod_tipo AND
              a.cod_sec = b.cod_Sec AND 
              a.cod_n = v_cod_n AND a.cod_grupo = v_cod_grupo AND a.cod_tipo = v_cod_tipo AND a.cod_sec = v_cod_sec AND 
              a.estado = 'Pendiente' AND a.semana_del <=v_fecha_conteo

    OPEN c_conteos
    FOREACH c_conteos INTO v_codid, v_cod_n, v_cod_grupo, v_cod_tipo, v_cod_sec, v_bodega, v_categoria, v_fecha_base
        -- Obtener los días de ciclo de acuerdo a la categoría
        SELECT a.diasProximoConteo,a.dias INTO v_dias,v_diasCiclo 
        FROM intb00016 a
        WHERE a.categoria = v_categoria

        IF SQLCA.SQLCODE = 0 THEN
            -- Calcular nueva fecha base sumando los días de la categoría
            LET v_fecha_nueva = v_fecha_base + v_dias

            -- Asegurar que la nueva fecha sea un lunes
            WHILE WEEKDAY(v_fecha_nueva) != 1  -- 1 representa Lunes en Genero 4GL
                LET v_fecha_nueva = v_fecha_nueva + 1
            END WHILE
            LET v_semana_al = v_fecha_nueva + v_diascICLO
            -- Actualizar el estado del conteo actual a 'Finalizado'
            UPDATE intb00015
            SET estado = 'Realizado',us_mod = SUSER_SNAME(),fech_mod = getdate()
            WHERE  a.cod_n = v_cod_n AND a.cod_grupo = v_cod_grupo AND a.cod_tipo = v_cod_tipo 
                    AND a.cod_sec = v_cod_sec  
            AND bodega = v_bodega
            AND estado_conteo = 'Pendiente'

            -- Insertar un nuevo registro con la nueva fecha programada
            INSERT INTO intb00015 ( cod_n, cod_grupo, cod_tipo, cod_sec, bodega, semana_Del, semana_Al, categoria, estado_conteo)
            VALUES (v_cod_n, v_cod_grupo, v_cod_tipo, v_cod_sec, v_bodega, v_fecha_nueva, v_semana_al, v_categoria, 'Pendiente', TODAY)
        END IF
    END FOREACH
    CLOSE c_conteos
END FUNCTION