SAP/ABAP: AM_READ_TEXT_ON_DOMAIN_VALUE FM

CALL FUNCTION 'AM_READ_TEXT_ON_DOMAIN_VALUE'
  EXPORTING
*   I_LANGU       = SYST-LANGU
    I_DOVAL       =
    I_DONAM       =
* IMPORTING
*   E_DTEXT       =
          .

SAP/ABAP: XLS to SAP

PARAMETERS: P_FILE    LIKE RLGRAP-FILENAME                         .

  PERFORM XLS_TO_SAP
    USING P_FILE
          'GT_ITAB[]'.

*&---------------------------------------------------------------------*
*&      Form  XLS_TO_SAP
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_FILE  text
*      -->P_0061   text
*----------------------------------------------------------------------*
FORM XLS_TO_SAP  USING    P_FILE
                          P_TABLE.

  IF P_FILE IS INITIAL.
    MESSAGE 'Dosya seçmediniz!' TYPE 'I' .

  ELSE.

    FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.
    ASSIGN (P_TABLE) TO <TABLE>.

    CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
      EXPORTING
*     I_FIELD_SEPERATOR        =
        I_LINE_HEADER            =  'X'
        I_TAB_RAW_DATA           =  IT_RAW    " WORK TABLE
        I_FILENAME               =  P_FILE
      TABLES
        I_TAB_CONVERTED_DATA     = <TABLE>    "ACTUAL DATA
     EXCEPTIONS
        CONVERSION_FAILED        = 1
        OTHERS                   = 2.

    IF SY-SUBRC <> 0.
      "Helloo, subrc 0 değilse standart hatanı ver hacı...
    ENDIF.

  ENDIF.

ENDFORM.                    " XLS_TO_SAP

SAP/ABAP: USER_EXISTS FM

CALL FUNCTION 'USER_EXISTS'
  EXPORTING
    BNAME                 = PA_UNAME
 EXCEPTIONS
   USER_DONT_EXIST       = 1
   USER_EXISTS           = 2.

IF SY-SUBRC EQ 1.
  WRITE: PA_UNAME, 'diye bir killanici yok'.
ELSEIF SY-SUBRC EQ 2.
  WRITE: PA_UNAME,  'sistemde mevcut'.
ENDIF.

SAP/ABAP: Message, Display Like

MESSAGE ID 'ZSP_FI'
                TYPE 'E'
              NUMBER '424'
        DISPLAY LIKE 'W'
                WITH BKPF-BUKRS.

SAP/ABAP: REUSE_ALV_POPUP_TO_SELECT

TYPE-POOLS: SLIS.
TABLES: USR01.

DATA: IT_USR01 TYPE STANDARD TABLE OF USR01 INITIAL SIZE 0,
WA_USR01 TYPE USR01.

*Structure declaration for output
TYPES : BEGIN OF TY_OUTPUT,
BNAME TYPE USR01-BNAME,
CHECKBOX(1),
END OF TY_OUTPUT.

*Internal table and work area declaration for output in pop up
DATA : IT_OUTPUT TYPE TABLE OF TY_OUTPUT INITIAL SIZE 0,
WA_OUTPUT TYPE TY_OUTPUT.
*Internal table and workarea declaration for alv dialog display
DATA : IT_DISPLAY TYPE STANDARD TABLE OF TY_OUTPUT INITIAL SIZE 0,
WA_DISPLAY TYPE TY_OUTPUT.

DATA:LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
LS_FIELDCATLOG TYPE SLIS_FIELDCAT_ALV,
LT_FIELDCATLOG TYPE SLIS_T_FIELDCAT_ALV,
LT_LAYOUT TYPE SLIS_LAYOUT_ALV.

PERFORM POPUP_DISPLAY.

*&---------------------------------------------------------------------*
*& Form POPUP_DISPLAY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM POPUP_DISPLAY .

IF IT_USR01 IS INITIAL.
SELECT BNAME INTO TABLE IT_USR01 FROM USR01 .

LOOP AT IT_USR01 INTO WA_USR01.
MOVE-CORRESPONDING WA_USR01 TO WA_OUTPUT.
APPEND WA_OUTPUT TO IT_OUTPUT.
CLEAR WA_OUTPUT.
ENDLOOP.

CLEAR LS_FIELDCAT.

LS_FIELDCAT-ROW_POS = '1'.
LS_FIELDCAT-COL_POS = '1'.
LS_FIELDCAT-FIELDNAME = 'CHECKBOX'.
LS_FIELDCAT-TABNAME = 'IT_OUTPUT'.
LS_FIELDCAT-SELTEXT_M = 'SEÇ'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS = '1'.
LS_FIELDCAT-COL_POS = '2'.
LS_FIELDCAT-FIELDNAME = 'BNAME'.
LS_FIELDCAT-TABNAME = 'IT_OUTPUT'.
LS_FIELDCAT-SELTEXT_M = 'KULLANICI'.
LS_FIELDCAT-OUTPUTLEN = 50.
APPEND LS_FIELDCAT TO LT_FIELDCAT.

ENDIF.
* Display data in a POPUP
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
I_ZEBRA = 'X'
IT_FIELDCAT = LT_FIELDCAT
I_TABNAME = 'IT_OUTPUT'
I_CHECKBOX_FIELDNAME = 'CHECKBOX'
TABLES
T_OUTTAB = IT_OUTPUT.
*Appending the selected infotypes only to internal table
LOOP AT IT_OUTPUT INTO WA_OUTPUT
WHERE CHECKBOX = 'X'.
*Do something here...
ENDLOOP.
ENDFORM.

SAP/ABAP: POPUP_CONTINUE_YES_NO FM

FORM onay CHANGING p_answer.
  CLEAR p_answer.
  CALL FUNCTION 'POPUP_CONTINUE_YES_NO'
    EXPORTING
      defaultoption = 'N'
      textline1     = type text here'
      textline2     = 'if necessary, you can type text here too'
      titel         = 'title'
    IMPORTING
      answer        = p_answer
    EXCEPTIONS
      OTHERS        = 1.
ENDFORM.

SAP/ABAP: AT SELECTION SCREEN, Radio Button gizler

selection-screen begin of block m1r with frame title text-003.
parameters : _br6 radiobutton group radi modif id pdv,
_br7 radiobutton group radi default 'X' modif id pdv .
selection-screen end of block m1r.

at selection-screen output.
loop at screen.
if screen-group1 = 'PDV'.
screen-input = 0.
screen-invisible = 1.
modify screen.
elseif screen-group1 = 'PDV'.
screen-input = 0.
screen-invisible = 1.
modify screen.
endif.
endloop.