*&---------------------------------------------------------------------*
*& 包含 ZIT0004_FORM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_get_data .
*BREAK-POINT.
DATA: lv_lines TYPE sy-tabix,
lv_lines2 TYPE sy-tabix,
lv_lens TYPE sy-tabix,
lt_ssm_cust LIKE TABLE OF ssm_cust,
lt_ssm_cust2 LIKE TABLE OF ssm_cust.
SELECT *
INTO TABLE gt_wwwparams
FROM wwwparams
WHERE objid LIKE 'ZTYH%'
AND name EQ 'mimetype'
AND value IN ('jpg','JPG','png','PNG').
SELECT *
INTO TABLE gt_ssm_cust
FROM ssm_cust
WHERE id EQ 'START_IMAGE'.
DESCRIBE TABLE gt_wwwparams LINES lv_lines2.
READ TABLE gt_ssm_cust INTO DATA(ls_ssm_cust) INDEX 1.
IF sy-subrc EQ 0.
lv_lens = strlen( ls_ssm_cust-path ).
lv_lens = lv_lens - 4.
lv_lines = ls_ssm_cust-path+4(lv_lens).
ADD 1 TO lv_lines.
ENDIF.
IF lv_lines > lv_lines2.
lv_lines = 1.
ENDIF.
SORT gt_wwwparams[] BY objid.
READ TABLE gt_wwwparams INTO DATA(ls_wwwparams) INDEX lv_lines.
IF sy-subrc EQ 0.
ls_ssm_cust-id = 'START_IMAGE'.
ls_ssm_cust-path = ls_wwwparams-objid.
APPEND ls_ssm_cust TO lt_ssm_cust.
ENDIF.
IF NOT p_objid IS INITIAL.
SELECT *
INTO TABLE @DATA(lt_wwwparams2)
FROM wwwparams
WHERE objid EQ @p_objid
AND name EQ 'mimetype'
AND value IN ('jpg','JPG','png','PNG').
IF NOT lt_wwwparams2 IS INITIAL.
ls_ssm_cust-id = 'START_IMAGE'.
ls_ssm_cust-path = p_objid.
APPEND ls_ssm_cust TO lt_ssm_cust2.
ENDIF.
ENDIF.
IF NOT lt_ssm_cust2[] IS INITIAL.
MODIFY ssm_cust FROM TABLE lt_ssm_cust.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
ELSE.
ROLLBACK WORK.
ENDIF.
ELSEIF NOT lt_ssm_cust[] IS INITIAL.
MODIFY ssm_cust FROM TABLE lt_ssm_cust.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
ELSE.
ROLLBACK WORK.
ENDIF.
ENDIF.
* BREAK-POINT.
ENDFORM.