REPORT ZBAPI_002.
*Global 변수선언---
DATA : GENERALDATAX TYPE BAPI1022_FEGLG001X,
GENERALDATA TYPE BAPI1022_FEGLG001,
RETURN TYPE BAPIRET2.
DATA : L_ANLN1 LIKE BAPI1022_1-ASSETMAINO,
L_ANLN2 LIKE BAPI1022_1-ASSETSUBNO,
G_ANSWER.
*Selection Screen(조건화면)---
SELECTION-SCREEN BEGIN OF BLOCK BOX1 WITH FRAME.
PARAMETERS : P_BUKRS LIKE BAPI1022_1-COMP_CODE OBLIGATORY, “회사코드
P_ANLN1 LIKE BAPI1022_1-ASSETMAINO OBLIGATORY, “자산번호
P_ANLN2 LIKE BAPI1022_1-ASSETSUBNO OBLIGATORY DEFAULT '0',“하위번호
P_TEXT LIKE ANLA-TXT50 OBLIGATORY. “ 변경할 자산명
SELECTION-SCREEN END OF BLOCK BOX1.
START-OF-SELECTION.
CLEAR : G_ANSWER.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' “변경할지 여부 확인
EXPORTING
TEXTLINE1 = '저장 하시겠습니까?'
TITEL = '저장여부확인'
CANCEL_DISPLAY = ''
IMPORTING
ANSWER = G_ANSWER.
IF G_ANSWER EQ 'J'.
* 자산번호 자릿수 맞추기
CLEAR : L_ANLN1, L_ANLN2.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = P_ANLN1
IMPORTING
OUTPUT = L_ANLN1.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = P_ANLN2
IMPORTING
OUTPUT = L_ANLN2.
* General 영역 변경 값
GENERALDATA-DESCRIPT = P_TEXT. "변경할 자산명
* General 영역 변경 여부 Flag
GENERALDATAX-DESCRIPT = 'X'. "자산명
* 자산 변경 BAPI
CALL FUNCTION 'BAPI_FIXEDASSET_CHANGE'
EXPORTING
COMPANYCODE = P_BUKRS
ASSET = L_ANLN1
SUBNUMBER = L_ANLN2
GENERALDATA = GENERALDATA
GENERALDATAX = GENERALDATAX
IMPORTING
RETURN = RETURN.
* BAPI 실행 Commit
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
WRITE:/(4) RETURN-TYPE,(80) RETURN-MESSAGE. “결과값
ENDIF.
END-OF-SELECTION.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
550 | REPORT ZSMARTFORMS_08. [2] | sapjoy | 2009.02.27 | 2602 |
549 | REPORT Z18_000 [1] | sapjoy | 2008.04.16 | 2602 |
548 | REPORT z09_002 | sapjoy | 2006.12.15 | 2602 |
547 | Include Z16_001TOP | sapjoy | 2007.04.26 | 2601 |
546 | REPORT z18_025 | sapjoy | 2007.03.16 | 2598 |
545 | REPORT Z04_005 . | sapjoy | 2006.12.02 | 2595 |
544 | INCLUDE Z16_001O01 [1] | sapjoy | 2007.04.26 | 2595 |
543 | Z16_001TOP | sapjoy | 2009.09.21 | 2593 |
» | REPORT ZBAPI_002. | sapjoy | 2009.02.09 | 2590 |
541 | Include ZXCSAU05 | sapjoy | 2008.12.15 | 2587 |
540 | REPORT ZRTTS_02 | sapjoy | 2009.12.24 | 2586 |
539 | REPORT z18_013 [1] | sapjoy | 2007.03.09 | 2585 |
538 | Z18_001_PBO | sapjoy | 2007.03.02 | 2585 |
537 | REPORT zmacro_01. | sapjoy | 2010.10.09 | 2582 |
536 | REPORT ZDYNAMIC_ITAB_07. | sapjoy | 2009.02.16 | 2582 |
535 | REPORT ZSMARTFORMS_01. | sapjoy | 2008.11.26 | 2582 |
534 | REPORT Z_15_012 | sapjoy | 2008.04.15 | 2581 |
533 | REPORT Z03_002 [4] | sapjoy | 2007.05.11 | 2581 |
532 | REPORT Z14_011 | sapjoy | 2007.01.22 | 2580 |
531 | REPORT z15_032 | sapjoy | 2007.02.05 | 2578 |