메뉴 건너뛰기

SAP 한국 커뮤니티



환율관련 함수

아밥뽀 2014.08.23 13:05 조회 수 : 14021

'CURRENCY_AMOUNT_DISPLAY_TO_SAP'  해당 통화의 금액을 DB에 저장할 때의 금액형태로 변경 
100 KRW -> 1.00 KRW 
100 USD -> 100.00 USD 


DATA : g_amt  TYPE p, 
          gr_amt TYPE p. 
CLEAR : g_amt, gr_amt. 


g_amt = 1000. 


WRITE :  / g_amt. 


CALL FUNCTION 'CURRENCY_AMOUNT_DISPLAY_TO_SAP' 
    EXPORTING 
          currency            = 'KRW' 
          amount_display  = g_amt 
    IMPORTING 
          amount_internal  = gr_amt 
    EXCEPTIONS 
          internal_error    = 1. 

  

WRITE :  / gr_amt, 'KRW' . 

  

CALL FUNCTION 'CURRENCY_AMOUNT_DISPLAY_TO_SAP' 
    EXPORTING 
          currency          = 'USD' 
          amount_display  = g_amt 
    IMPORTING 
          amount_internal = gr_amt 
    EXCEPTIONS 
          internal_error    = 1. 

  

WRITE :  / gr_amt, 'USD'. 


  

******************************************************* 
'CONVERT_TO_FOREIGN_CURRENCY' : Currency별 환율 컨버젼 함수 
해당일의 환율정보를 참조해서 Currency 별 금액을 바꿔주는 함수. 

  

DATA: l_dmbtr LIKE bseg-dmbtr, 
      l_rate  LIKE bkpf-kursf. 

  

CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' 
    EXPORTING 
          date                  = sy-datum 
          foreign_currency = 'USD'    "FORIGN_CURRENCY 에는 결과치로 나올 Currency type 
          local_amount      = '1000' 
          local_currency    = 'KRW'    "LOCAL_CURRENCY 에는 입력되는 Currency type 
          type_of_rate        = 'M'        " 'M', 'BS', 'PL' 
          read_tcurr          =  'X' 
    IMPORTING 
          exchange_rate    = l_rate 
          foreign_amount  = l_dmbtr 
    EXCEPTIONS 
          no_rate_found    = 1 
          overflow        = 2 
          no_factors_found = 3 
          no_spread_found  = 4 
          derived_2_times  = 5 
          OTHERS          = 6. 

  

WRITE :  / '1USD =>' , l_rate, 'KRW' . 
WRITE :  / '1000KRW =>', l_dmbtr, 'USD'. 

  

*l_rate : 1USD가 몇 KRW 
*l_dmbtr : 1000 KRW -> 몇 USD
이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
102 special character 특수 문자 검색 함수 sapjoy 2019.06.05 1296
101 backgroud job log read 함수 [1] sapjoy 2014.04.04 3434
100 TIME UNIT 인지 확인하는 func [1] 머리를쓰자 2015.01.22 3472
99 제목그대로 window의 registry 값을 갖고 오는 함수입니다. 꿀단지 2011.10.11 3506
98 구매오더 delivery complete & 생산오더 Technical complete [1] 머리를쓰자 2015.01.23 3919
97 사원의 계획근무시간을 알려주는 펑션입니다. 꿀단지 2011.10.11 3947
96 새로운 세션을 여는 펑션 [3] 긍정 2012.06.21 4020
95 Noraml Sales Order를 변경하거나 지웁니다. 꿀단지 2011.10.11 4068
94 현재 작업 상태 [4] 꿀단지 2011.10.11 4117
93 Noraml Sales Order 꿀단지 2011.10.11 4144
92 MM History popup Function [3] 양키(이경환) 2014.01.27 4171
91 STRING_REPLACE [2] sapjoy 2014.09.21 4188
90 유용한 Function 모음 [9] file 박성민 2007.11.22 4208
89 ecc 6.0 에서 변경된 function 입니다. [11] file bd 2008.04.21 4219
88 PO를 조회/변경 모드로 조회하는 Function [4] 양키 2012.08.08 4227
87 IP를 가져오는 함수 [3] sapjoy 2007.03.09 4247
86 스트럭쳐 의 값을 가지고 if 문 사용가능할까요? imgood 2012.02.02 4252
85 테이블 Description "BUS_DD03P_GET" 하고 같은 역할하는 EXCEL VBA [2] file Brisky 2012.12.05 4262
84 READ_TEXT 함수를 한번에 여러개 읽을 수 있는 함수 [2] sapjoy 2014.06.03 4292
83 [CLASS] 사용자 DATE FORMAT READ. paran 2013.02.11 4328
쓰기 태그