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.
2016년 10월 25일 화요일
2016년 10월 23일 일요일
2016년 10월 24일 업무일지
1. ZMMR0045 금액 0인 부분 확인.
ZMM045
ZMMR0045
MSEG-DMBTR
** Get 311/312 Document
SELECT b~mblnr b~mjahr b~zeile b~bwart b~shkzg b~menge
INTO CORRESPONDING FIELDS OF TABLE gt_bdata
FROM mkpf AS a INNER JOIN mseg AS b
ON a~mblnr = b~mblnr AND
a~mjahr = b~mjahr
WHERE a~budat IN s_budat
AND a~bktxt EQ gt_list-frbnr
AND b~lgort EQ '5000'
AND b~matnr EQ gt_list-matnr
AND b~bwart IN ('311','312').
LOOP AT gt_bdata.
IF gt_bdata-shkzg = 'H'.
gt_bdata-menge = gt_bdata-menge * -1.
ENDIF.
gt_list-imenge = gt_list-imenge + gt_bdata-menge.
ENDLOOP.
2. FBCJ Print Cash Journal
IF ld_dynpronr = '0110'.
CALL FUNCTION 'FCJ_MF_PRINT_JOURNAL'
EXPORTING
i_cajo_number = f_cajo_number
i_comp_code = f_comp_code
i_date_low = f_display_period_lo
i_date_high = f_display_period_hi
TABLES
itcj_postings = itcj_e_postings.
ELSEIF ld_dynpronr = '0120'.
CALL FUNCTION 'FCJ_MF_PRINT_JOURNAL'
EXPORTING
i_cajo_number = f_cajo_number
i_comp_code = f_comp_code
i_date_low = f_display_period_lo
i_date_high = f_display_period_hi
TABLES
itcj_postings = itcj_r_postings.
3. Sales Order Create
CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
ZMM045
ZMMR0045
MSEG-DMBTR
** Get 311/312 Document
SELECT b~mblnr b~mjahr b~zeile b~bwart b~shkzg b~menge
INTO CORRESPONDING FIELDS OF TABLE gt_bdata
FROM mkpf AS a INNER JOIN mseg AS b
ON a~mblnr = b~mblnr AND
a~mjahr = b~mjahr
WHERE a~budat IN s_budat
AND a~bktxt EQ gt_list-frbnr
AND b~lgort EQ '5000'
AND b~matnr EQ gt_list-matnr
AND b~bwart IN ('311','312').
LOOP AT gt_bdata.
IF gt_bdata-shkzg = 'H'.
gt_bdata-menge = gt_bdata-menge * -1.
ENDIF.
gt_list-imenge = gt_list-imenge + gt_bdata-menge.
ENDLOOP.
2. FBCJ Print Cash Journal
IF ld_dynpronr = '0110'.
CALL FUNCTION 'FCJ_MF_PRINT_JOURNAL'
EXPORTING
i_cajo_number = f_cajo_number
i_comp_code = f_comp_code
i_date_low = f_display_period_lo
i_date_high = f_display_period_hi
TABLES
itcj_postings = itcj_e_postings.
ELSEIF ld_dynpronr = '0120'.
CALL FUNCTION 'FCJ_MF_PRINT_JOURNAL'
EXPORTING
i_cajo_number = f_cajo_number
i_comp_code = f_comp_code
i_date_low = f_display_period_lo
i_date_high = f_display_period_hi
TABLES
itcj_postings = itcj_r_postings.
3. Sales Order Create
CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
2016년 10월 17일
첫 출근.
소재 발효대두박 베트남법인 ERP Project
장동진 PM SD
권오현 MM
우재현 PP
정재훈 CO
김종만 FI
이태원에서 샌드위치/햄버거 회식
소재 발효대두박 베트남법인 ERP Project
장동진 PM SD
권오현 MM
우재현 PP
정재훈 CO
김종만 FI
이태원에서 샌드위치/햄버거 회식
피드 구독하기:
글 (Atom)