SELECT SINGLE SMTP_ADDR
INTO lv_SMTP_ADDR
FROM T024
WHERE EKGRP = gt_out-ekgrp.
IF lv_SMTP_ADDR IS NOT INITIAL.
CONCATENATE email_addr ';' lv_SMTP_ADDR INTO email_addr .
ENDIF.
***selection screen deinfe
SELECTION-SCREEN BEGIN OF BLOCK blc WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE mseg-werks DEFAULT 2000."收货工厂
SELECT-OPTIONS:s_lgort FOR mseg-lgort, "库存地点
s_matnr FOR mseg-matnr, "物料号
s_lifnr FOR mseg-lifnr, "供应商
s_budat FOR mkpf-budat, "OBLIGATORY DEFAULT '20120901' TO SY-DATUM , "入库日期
s_ebeln FOR mseg-ebeln, "采购订单号
s_USNAM for mkpf-USNAM no-EXTENSION NO INTERVALS DEFAULT sy-UNAME.
"PARAMETERS:p_type AS LISTBOX VISIBLE LENGTH 20 OBLIGATORY DEFAULT 'B'."DEFAULT '所有入库单'
SELECTION-SCREEN END OF BLOCK blc.
IF gt_out[] IS NOT INITIAL.
SELECT brsch brtxt
INTO CORRESPONDING FIELDS OF TABLE gt_t016t
FROM t016t
FOR ALL ENTRIES IN gt_out
WHERE brsch = gt_out-brsch AND spras = '1'.
ENDIF.
LOOP AT gt_out.
lv_index = sy-tabix.
READ TABLE gt_t016t WITH KEY brsch = gt_out-brsch.
IF sy-subrc = 0.
gt_out-brtxt = gt_t016t-brtxt.
ENDIF.
MODIFY gt_out INDEX lv_index.
ENDLOOP.
扫一扫
3万+
到【灌水乐园】发言
