메뉴 건너뛰기

SAP 한국 커뮤니티



환율관련 함수

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

'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
이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
42 문자열의 길이에 맞게 앞의 공백을 0으로 채워주는 함수 꿀단지 2011.10.11 5642
41 반올림 꿀단지 2011.10.11 4932
40 제목그대로 window의 registry 값을 갖고 오는 함수입니다. 꿀단지 2011.10.11 3506
39 해당 플랜트/저장위치/제품의 가용수량 체크 함수 꿀단지 2011.10.11 5023
38 Noraml Sales Order 꿀단지 2011.10.11 4144
37 PGM에서 File생성 및 전송이 가능합니다 [3] 꿀단지 2011.10.11 4683
36 F4 /Serarch help [5] 꿀단지 2011.10.11 4878
35 현재 작업 상태 [4] 꿀단지 2011.10.11 4117
34 [FUNCTION] - THUSRINFO , 현재 접속되어 있는 SAP 사용자 정보를 가져오는 펑션 [3] 미소 2011.10.13 6330
33 클래스 특성 리스트 가져 오기 최선 2011.11.08 6644
32 [FI-AA] Asset의 description 등. 내역을 변경하려 합니다. 도와 주십시오. [2] 노냐 2011.12.13 4916
31 스트럭쳐 의 값을 가지고 if 문 사용가능할까요? imgood 2012.02.02 4252
30 시간계산, time calc, timezone time stamp, [5] sapjoy 2012.02.09 7375
29 새로운 세션을 여는 펑션 [3] 긍정 2012.06.21 4020
28 PO를 조회/변경 모드로 조회하는 Function [4] 양키 2012.08.08 4231
27 LDM 파일을 다운로드 하는 Function [1] 양키 2012.08.08 8461
26 PO Item 삭제 Function [2] 양키 2012.08.08 5925
25 FREE SESSION 체크 sapjoy 2012.09.20 4482
24 timestamp 시간변환 file sapjoy 2012.11.07 7253
23 테이블 Description "BUS_DD03P_GET" 하고 같은 역할하는 EXCEL VBA [2] file Brisky 2012.12.05 4263
쓰기 태그