serialization, FORM fixes (#2950)

* FORM, tdlines duplicated, closes #2949

* FORM, set TDVERSION to constant, closes #2935
This commit is contained in:
Lars Hvam 2019-10-07 22:44:50 -07:00 committed by GitHub
parent 90e012a1ae
commit 28e052dbce
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -488,6 +488,10 @@ CLASS ZCL_ABAPGIT_OBJECT_FORM IMPLEMENTATION.
_sort_tdlines_by_windows( CHANGING ct_form_windows = es_form_data-windows
ct_lines = et_lines ).
es_form_data-form_header-tdversion = '00001'.
es_form_data-text_header-tdversion = '00001'.
ENDMETHOD.
@ -534,6 +538,9 @@ CLASS ZCL_ABAPGIT_OBJECT_FORM IMPLEMENTATION.
lv_firstloop = abap_true.
READ TABLE lt_lines INTO ls_lines WITH KEY tdformat = lv_elt_windows
tdline = ls_form_windows-tdwindow.
IF sy-subrc <> 0.
CONTINUE. " current loop
ENDIF.
LOOP AT lt_lines INTO ls_lines FROM sy-tabix.
IF lv_firstloop = abap_false AND
ls_lines-tdformat = lv_elt_windows.