http://kmit4u.blogspot.com/2010/10/abap-change-program-and-show-changes-to.html
Monday, September 21, 2020
Thursday, July 9, 2020
Currency Issue in Smartforms
https://www.beginners-sap.com/currency-format-in-write-statement/
Monday, March 16, 2020
Add New Fields in ME2N
https://answers.sap.com/questions/12323798/additional-fields-in-me2n-is-showing-blank-value-i.html
Friday, January 24, 2020
Special Character Check in ABAP
Use function module - CHECK_STRING_SPEC_CHARACTERS
Wednesday, January 15, 2020
PO Header text and item text
DATA: BEGIN OF LTEXT OCCURS 50.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.
DATA: NAME TYPE THEAD-TDNAME.
DATA: LINE TYPE STANDARD TABLE OF TLINE.
TYPES: BEGIN OF ST_2,
JK(1),
TJ(1),
TENDERID TYPE TDLINE,
END OF ST_2.
DATA: IT TYPE STANDARD TABLE OF ST_2.
DATA: WA_2 LIKE LINE OF IT.
LOOP AT ITAB_PO INTO WA_PO.
NAME = WA_PO-EBELN.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F17'
LANGUAGE = 'E'
NAME = NAME
OBJECT = 'EKKO'
TABLES
LINES = LINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC EQ 0.
READ TABLE line INDEX 1 INTO WA_2.
WA_PO-TENDERID = WA_2-TENDERID.
MODIFY ITAB_PO FROM WA_PO.
ENDIF.
CLEAR: WA, WA_2.
ENDLOOP.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.
DATA: NAME TYPE THEAD-TDNAME.
DATA: LINE TYPE STANDARD TABLE OF TLINE.
TYPES: BEGIN OF ST_2,
JK(1),
TJ(1),
TENDERID TYPE TDLINE,
END OF ST_2.
DATA: IT TYPE STANDARD TABLE OF ST_2.
DATA: WA_2 LIKE LINE OF IT.
LOOP AT ITAB_PO INTO WA_PO.
NAME = WA_PO-EBELN.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F17'
LANGUAGE = 'E'
NAME = NAME
OBJECT = 'EKKO'
TABLES
LINES = LINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC EQ 0.
READ TABLE line INDEX 1 INTO WA_2.
WA_PO-TENDERID = WA_2-TENDERID.
MODIFY ITAB_PO FROM WA_PO.
ENDIF.
CLEAR: WA, WA_2.
ENDLOOP.
Subscribe to:
Posts (Atom)