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'