Ⅰ. ERP/9. TIP

[ABAP_TIP] Function TOP에 쓰면 좋은 Function들

초록활명수 2024. 9. 24. 14:03
728x90


*-- 마이너스 부호 앞으로
DEFINE _sign_in_front.
  CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
    CHANGING
      value         &1.
END-OF-DEFINITION.

*--Material Internal No 를 External No 로 변경하는 함수
DEFINE _matn1_output.
  CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
    EXPORTING
      input         &1
    IMPORTING
      output        &1.
END-OF-DEFINITION.

DEFINE _matn1_input.
  CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
    EXPORTING
      input              &1
    IMPORTING
      output             &1
    EXCEPTIONS
      length_error       1
      OTHERS             2.

  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
END-OF-DEFINITION.

 

 

*-- 0 자리수

https://green98.tistory.com/61
DEFINE m_alpha_output.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input         &1
    IMPORTING
      output        &1.
END-OF-DEFINITION.

DEFINE m_alpha_input.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input         &1
    IMPORTING
      output        &1.
END-OF-DEFINITION.


*-- 통화키
DEFINE _curr_sap_idoc.
  CALL FUNCTION 'CURRENCY_AMOUNT_SAP_TO_IDOC'
    EXPORTING
      currency    &1
      sap_amount  &2
    IMPORTING
      idoc_amount &3.
END-OF-DEFINITION.

 

[SAP ABAP] 알파 컨버젼 ( 0제거 , 0삽입 )

FORM ALPHA_CONVERSION USING P_KIND P_FIELD. IF P_KIND = ''1''. " 0삽입 CALL FUNCTION ''CONVERSION_EXIT_ALPHA_INPUT'' EXPORTING INPUT = P_FIELD IMPORTING OUTPUT = P_FIELD. ELSEIF P_KIND = ''2''. " 0제거 CALL FUNCTION ''CONVERSION_EXIT_ALPHA_OUTPUT'' EXP

green98.tistory.com

 

 

[SAP ABAP] 알파 컨버젼 ( 0제거 , 0삽입 )

FORM ALPHA_CONVERSION USING P_KIND P_FIELD. IF P_KIND = ''1''. " 0삽입 CALL FUNCTION ''CONVERSION_EXIT_ALPHA_INPUT'' EXPORTING INPUT = P_FIELD IMPORTING OUTPUT = P_FIELD. ELSEIF P_KIND = ''2''. " 0제거 CALL FUNCTION ''CONVERSION_EXIT_ALPHA_OUTPUT'' EXP

green98.tistory.com

 

 

DEFINE $_set_range.
  &1-sign   'I'.
  IF &3 IS INITIAL.
    IF &2 CA '*'.
      &1-option 'CP'.
    ELSE.
      &1-option 'EQ'.
    ENDIF.
    &1-low    &2.
  ELSE.
    &1-option 'BT'.
    &1-low    &2.
    &1-high   &3.
  ENDIF.
  APPEND &1.
  CLEAR  &1.
END-OF-DEFINITION.

728x90