что-то меня терзают смутные сомнения по поводу отмены существования форм KOART_FILL и KOART_FOR_NEW_ENTRIES ...

провалился по PERFORM GET_DATA_v_t083l. в инклюд L0A01F00
там есть
Code:
FORM GET_DATA_V_T083L.
PERFORM VIM_FILL_WHERETAB.
*.read data from database.............................................*
REFRESH TOTAL.
CLEAR TOTAL.
SELECT * FROM T083L WHERE
(VIM_WHERETAB) .
CLEAR V_T083L .
V_T083L-MANDT =
T083L-MANDT .
V_T083L-LEART =
T083L-LEART .
V_T083L-LETYP =
T083L-LETYP .
V_T083L-LBWASL =
T083L-LBWASL .
V_T083L-LBLART =
T083L-LBLART .
V_T083L-LMWSTKZ =
T083L-LMWSTKZ .
V_T083L-LBSCHL =
T083L-LBSCHL .
V_T083L-LUMSKZ =
T083L-LUMSKZ .
SELECT SINGLE * FROM T003 WHERE
BLART = T083L-LBLART .
IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM T003T WHERE
BLART = T003-BLART AND
SPRAS = SY-LANGU .
IF SY-SUBRC EQ 0.
V_T083L-BLATXT =
T003T-LTEXT .
ENDIF.
ENDIF.
SELECT SINGLE * FROM TBSL WHERE
BSCHL = T083L-LBSCHL .
IF SY-SUBRC EQ 0.
ENDIF.
SELECT SINGLE * FROM TABW WHERE
BWASL = T083L-LBWASL .
IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM TABWT WHERE
BWASL = TABW-BWASL AND
SPRAS = SY-LANGU .
IF SY-SUBRC EQ 0.
V_T083L-BWATXT =
TABWT-BWATXT .
ENDIF.
ENDIF.
SELECT SINGLE * FROM T083S WHERE
LEART = T083L-LEART AND
SPRAS = SY-LANGU .
IF SY-SUBRC EQ 0.
V_T083L-TXT50 =
T083S-TXT50 .
ENDIF.
SELECT SINGLE * FROM T074U WHERE
KOART = 'K' AND
UMSKZ = T083L-LUMSKZ .
IF SY-SUBRC EQ 0.
V_T083L-KOART =
T074U-KOART .
SELECT SINGLE * FROM T074T WHERE
KOART = T074U-KOART AND
SHBKZ = T074U-UMSKZ AND
SPRAS = SY-LANGU .
IF SY-SUBRC EQ 0.
V_T083L-KTEXT =
T074T-KTEXT .
ENDIF.
ENDIF.
<VIM_TOTAL_STRUC> = V_T083L.
APPEND TOTAL.
ENDSELECT.
SORT TOTAL BY <VIM_XTOTAL_KEY>.
<STATUS>-ALR_SORTED = 'R'.
*.check dynamic selectoptions (not in DDIC)...........................*
IF X_HEADER-SELECTION NE SPACE.
PERFORM CHECK_DYNAMIC_SELECT_OPTIONS.
ELSEIF X_HEADER-DELMDTFLAG NE SPACE.
PERFORM BUILD_MAINKEY_TAB.
ENDIF.
REFRESH EXTRACT.
ENDFORM.
в АБАПе я не силен (из базиса я), но выглядит как рекурсивное заполнение таблицы
(некое подобие соединения нескольких вьюшек с интертрепацией результирующих полей с помощью coalesce/case)
меня смущают пустые значения в исходных таблицах
могут они повлиять на обход полученной таблицы в цикле далее?
Code:
Таблица: T083L
Поля на экране: 9 из 9 Фиксированные ведущ. столбцы: 2 ШиринСписк 0250
------------------------------------------------------------------------------------------------------------
| |MANDT|LEART|LETYP|LBWASL|LBLART|LMWSTKZ|LBSCHL|LUMSKZ|TXT50 |
------------------------------------------------------------------------------------------------------------
| |100 |01 |00 |100 |AA |A0 |31 | |Финансовый лизинг |
| |100 |02 |00 | | | | | |Операционный лизинг |
------------------------------------------------------------------------------------------------------------
и
Code:
Таблица: T074U
Поля на экране: 10 из 10 Фиксированные ведущ. столбцы: 3 ШиринСписк 0250
---------------------------------------------------------------------------------------------------------
| |MANDT|KOART|UMSKZ|UMSKS|MERKP|ZUMKZ |KLIMP|DIAMS|KTEXT |LTEXT |
---------------------------------------------------------------------------------------------------------
| |100 |K |A |A | | | |X |АвансОК|АвансПлатеж по ОборотнКапиталу|
| |100 |K |B |A | | |X | |АвансФВ|АвансПлатеж по ФинансВложениям|
| |100 |K |C |W | | | | |ПрчсВал|Перечисл. согл. дате валютир. |
| |100 |K |D |D | | | | |Дизажио|Дизажио |
| |100 |K |F |A |X |AIM | |X |ТрАванс|Требование авансового платежа |
| |100 |K |G |G | | |X | |Поруч. |Полученное поручительство |
| |100 |K |H |H | | | | |СтрУдер|Страховое удержание |
| |100 |K |I |A | | |X | |АвНемат|АвансПлатеж по НематерАктивам |
| |100 |K |M |A | | |X | |АвМЦен |Аванс.платеж по мат. ценностям|
| |100 |K |O |A | | | | |АмортАв|Авансовый платеж: амортизация |
| |100 |K |P |P |X | | |X |ПлТреб |Платежное требование |
| |100 |K |R |A | | | | | | |
| |100 |K |S |W | | | | |ЧекВекс|Чек-вексель |
| |100 |K |T |A | | |X | | | |
| |100 |K |V |A | | |X | |АванЗап|Авансовый платеж по запасам |
| |100 |K |W |W | | | | |Вексель|Вексель, принимаем. к учету ФБ|
---------------------------------------------------------------------------------------------------------