2016년 10월 26일 업무일지

MM
ZMMR0004 Material Balace Report 프로그램 분석
FORM modify_internal_table .
    DELETE gt_itab  WHERE  mflag = ''
                      AND  foqty = 0
                      AND  nrmen = 0
                      AND  etmen = 0
                      AND  pdmen = 0
                      AND  gimen = 0.
*
    LOOP AT gt_itab.
         sv_tabix = sy-tabix.
*
         SELECT SINGLE name1  FROM t001w  INTO gt_itab-name1
                WHERE  werks  = gt_itab-werks.
         SELECT SINGLE maktx  FROM makt  INTO gt_itab-maktx
                WHERE  spras  = sy-langu
                  AND  matnr  = gt_itab-matnr.
*
         gt_itab-total = gt_itab-foqty + gt_itab-nrmen +
                         gt_itab-etmen - gt_itab-pdmen -
                         gt_itab-gimen.
         MODIFY gt_itab  INDEX sv_tabix.
    ENDLOOP.
ENDFORM.                    " modify_internal_table

ZMMA0001 Create Daily Material Balance
ZMMT0009 : Material Balance
ZMMT0010 : Material Balance Log

PP
BADI : SE18
LCSDIF07
*  CHECK NOT STZUB-STLNR IS INITIAL.

*{   INSERT         DECK955469                                        3
**********변경번호 없이 BOM 수정 못하도록 로직 추가*********************************  IF RC29N-AENNR IS INITIAL AND SY-TCODE = 'CS02'. "20160109 수정/                   IF RC29N-STLAN = '1'.                        MESSAGE E045.                   ELSE.                        MESSAGE W045.                   ENDIF.   ELSE.**********변경번호 없이 BOM 수정 못하도록 로직 추가**********************************}   INSERT

FI
ZTR132 ZTRR0132 분석

  CALL TRANSACTION 'FF67' USING bdc_tab
*                            MODE l_md
*                            UPDATE 'S'
                          OPTIONS FROM lt_option
                          MESSAGES INTO it_messtab.

LZ_TR_COMMONU04
FIELD_EXIT_VGMAN_EB

  CALL FUNCTION 'SUSR_USER_KOSTL_GET'
    EXPORTING
      USER_NAME           = SY-UNAME
    IMPORTING
      USER_KOSTL          = USER_DEFAULTS-KOSTL
    EXCEPTIONS
      USER_NAME_NOT_EXIST = 1
      OTHERS              = 2.