Занялись Upgrade 4.6С на 4.7
В связи с чем пришлось переделывать оценку больничных.
Дошло дело до ф-ции RUSI0. По непонятным причинам расчет зависал на 30% и дальше не шел.
Путем отладки выяснилось, что в этой ф-ции возникает бесконечный цикл в FORM get_socgr.
Вот код:
Code:
FORM get_socgr USING obegd
CHANGING socgr
modsg
p_dauer
p_socgr_default.
DATA: ret_code LIKE sy-subrc.
p_socgr_default = socgr.
IF p_socgr_default EQ space.
PERFORM get_default_socgr USING obegd
CHANGING p_socgr_default
p_dauer.
ENDIF.
*
CLEAR p0292.
rp-provide-from-last p0292 space obegd obegd.
IF pnp-sw-found EQ '0'.
socgr = p_socgr_default.
CLEAR modsg.
ELSE.
socgr = p0292-socgr.
modsg = p0292-modsg.
ENDIF.
IF socgr EQ space.
socgr = p_socgr_default.
ENDIF.
DO.
SELECT * FROM t7rut8 WHERE land EQ calc_land AND
insgr EQ socgr AND
modsg EQ modsg.
IF obegd LE t7rut8-endda AND obegd GE t7rut8-begda.
socgr = t7rut8-outsg.
modsg = t7rut8-outmd.
EXIT.
ENDIF.
ENDSELECT.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
ENDFORM. " get_socgr
Ну я как правильный написал в саппорт, а меня послали на ***, точнее предложили общаться в рамках ноты 83020. И сказали, что неправильные настройки таблицы t7rut8.
А ведь, если "SELECT * FROM t7rut8..." находит хотя бы одну удовлетворяющую условиям выборки строку, то зацикливаение будет в любом случае, т.к. код
Code:
ENDSELECT.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
ENDFORM. " get_socgr
никогда не отработает на выход из DO-ENDDO, т.к. sy-subrc в таком случае будет равно нулю.
Или есть еще какие-то варианты работы кода?
Зачем вообще do-enddo было использовать?
Кто пользуется это ф-цией? Как у вас настроено?
Вход
Регистрация
FAQ пользователя
Поиск
законодательстве, когда должно быть несколько преобразования. Т.е. при определенных модификаторах группы, как говорится в законодательстве "приравниваются" к другой группе и так несколько.
