matinal：SAP ABAP 币别汇率查询

*&---------------------------------------------------------------------*
*& Report ZMMRTEST2
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZMMRTEST2 NO STANDARD PAGE HEADING
                 MESSAGE-ID 00 LINE-SIZE 177 LINE-COUNT 200.

DATA:BEGIN OF alv_data occurs 0,
datum LIKE eine-erdat ,"日期
f_konwa LIKE konp-konwa," 来源货币
f_netpr TYPE p DECIMALS 2,
l_konwa LIKE konp-konwa ," 目标货币
l_netpr TYPE p DECIMALS 2,
EX_KURS TYPE p DECIMALS 5,"汇率
END OF alv_data.

DATA: gs_layout TYPE slis_layout_alv,
          gt_fieldcat TYPE slis_t_fieldcat_alv ,"with header line.
          wa_fieldcat TYPE slis_fieldcat_alv.
************************************************************************
* Includes Module
************************************************************************

************************************************************************
* Selection Screen
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.
  PARAMETERS:p_datum LIKE eine-erdat OBLIGATORY,"日期
                      f_konwa LIKE konp-konwa OBLIGATORY," 来源货币
                      f_netpr TYPE p DECIMALS 2 OBLIGATORY,"来源金额
                      l_konwa LIKE konp-konwa OBLIGATORY." 目标货币
SELECTION-SCREEN END OF BLOCK b1.

************************************************************************
* Initialization
************************************************************************
INITIALIZATION.

************************************************************************
* At Selection Screen
************************************************************************
AT SELECTION-SCREEN.

************************************************************************
* At Selection Screen Output
************************************************************************
AT SELECTION-SCREEN OUTPUT.

************************************************************************
* Report Format
************************************************************************
TOP-OF-PAGE.

END-OF-PAGE.
************************************************************************
* Main Process
************************************************************************
START-OF-SELECTION.
     PERFORM get_data.
     PERFORM get_col.
     PERFORM alv_show.
END-OF-SELECTION.

FORM get_data.

data:
      KURS       LIKE TCURR-UKURS,
      FIX_KURS    LIKE KURS,
      EX_KURS     LIKE KURS,
      FFACT       LIKE TCURR-FFACT,
      TFACT       LIKE TCURR-TFACT,
      z_btr like mbew-salk3,
      KURST      LIKE TCURR-KURST.

DATA: f_factor TYPE isoc_factor.
DATA: l_factor TYPE isoc_factor.

  IF f_netpr is INITIAL.
    f_netpr = 1.
  ENDIF.

    CLEAR:alv_data[].

    CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
          EXPORTING
            DATE              = p_datum
            FOREIGN_AMOUNT    = f_netpr
            FOREIGN_CURRENCY  = f_konwa
            LOCAL_CURRENCY    = l_konwa
*           RATE              = 0
           TYPE_OF_RATE      = 'M'
         IMPORTING
            FOREIGN_FACTOR    = FFACT
            LOCAL_FACTOR      = TFACT
            EXCHANGE_RATE     = EX_KURS
            DERIVED_RATE_TYPE = KURST
            LOCAL_AMOUNT      = z_btr
            FIXED_RATE        = FIX_KURS
         EXCEPTIONS
            OTHERS            = 6.

     CLEAR:f_factor,l_factor.
     CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
          EXPORTING
            currency =  f_konwa
         IMPORTING
           factor = f_factor.

      CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
          EXPORTING
            currency =  l_konwa
         IMPORTING
           factor = l_factor.

          alv_data-datum = p_datum ."日期
          alv_data-f_konwa = f_konwa." 来源货币
          alv_data-f_netpr = f_netpr.
          alv_data-l_konwa = l_konwa ." 目标货币
          alv_data-l_netpr = z_btr / f_factor * l_factor.
          alv_data-EX_KURS = EX_KURS.
          APPEND alv_data.  CLEAR alv_data.

ENDFORM.

  FORM GET_COL.
      DATA: L_REPID    TYPE SY-REPID,
          L_INCLNAME TYPE TRDIR-NAME,
          L_IDX      LIKE SY-TABIX.
    CLEAR: GT_FIELDCAT[], WA_FIELDCAT.

    L_REPID = L_INCLNAME = SY-CPROG.

    CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
      EXPORTING
        I_PROGRAM_NAME         = L_REPID
        I_INTERNAL_TABNAME     = 'ALV_DATA'
        I_INCLNAME             = L_INCLNAME
      CHANGING
        CT_FIELDCAT            = GT_FIELDCAT
      EXCEPTIONS
        INCONSISTENT_INTERFACE = 1
        PROGRAM_ERROR          = 2
        OTHERS                 = 3.

   LOOP AT gt_fieldcat INTO wa_fieldcat.
      l_idx = sy-tabix.
        CASE wa_fieldcat-fieldname.
          WHEN 'DATUM'.
            wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
            wa_fieldcat-seltext_l = '转换日期'.
            wa_fieldcat-ddictxt = 'S'.
          WHEN 'F_KONWA'.
            wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
            wa_fieldcat-seltext_l = '来源货币'.
            wa_fieldcat-ddictxt = 'S'.
          WHEN 'F_NETPR'.
            wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
            wa_fieldcat-seltext_l = '转换金额'.
            wa_fieldcat-ddictxt = 'S'.
          WHEN 'L_KONWA'.
            wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
            wa_fieldcat-seltext_l = '本地货币(目标货币)'.
            wa_fieldcat-ddictxt = 'S'.
          WHEN 'L_NETPR'.
            wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
            wa_fieldcat-seltext_l = '金额'.
            wa_fieldcat-ddictxt = 'S'.
          WHEN 'EX_KURS'.
            wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
            wa_fieldcat-seltext_l = '汇率'.
            wa_fieldcat-ddictxt = 'S'.
*          WHEN 'WRBTR1'.
*            wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
*            wa_fieldcat-seltext_l = '金额'.
*            wa_fieldcat-ddictxt = 'S'.
        ENDCASE.
*      CLEAR wa_fieldcat-key.
      MODIFY gt_fieldcat FROM wa_fieldcat INDEX l_idx.
    ENDLOOP.
ENDFORM.

  FORM ALV_SHOW.
      DATA: LS_LAYOUT TYPE SLIS_LAYOUT_ALV.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
                I_CALLBACK_PROGRAM = SY-REPID
                IS_LAYOUT                   = GS_LAYOUT
                IT_FIELDCAT                  = GT_FIELDCAT[]
                 I_SAVE                         = 'A'
               TABLES
                   T_OUTTAB                   = ALV_DATA
                EXCEPTIONS
                  PROGRAM_ERROR      = 1
                OTHERS                     = 2.
ENDFORM.