SAP/ABAP: OXT_MESSAGE_TO_POPUP FM

data: lt_msg   type bapirettab with header line,
           lv_pernr type pa0001-pernr.
  clear:lv_pernr.

  shift gt_out-pernr left deleting leading '0'.

  loop at gt_mesaj where pernr = gt_out-pernr.

lt_msg-type = gt_mesaj-msgtyp.
lt_msg-id = gt_mesaj-msgid.
lt_msg-number = gt_mesaj-msgnr.
lt_msg-message_v1 = gt_mesaj-msgv1.
lt_msg-message_v2 = gt_mesaj-msgv2.
lt_msg-message_v3 = gt_mesaj-msgv3.
lt_msg-message_v4 = gt_mesaj-msgv4.
    append lt_msg.
  endloop.

  check lt_msg[] is not initial.
  call function 'OXT_MESSAGE_TO_POPUP'
    exporting
      it_message = lt_msg[]
    exceptions
      bal_error  = 1
      others     = 2.
  if sy-subrc ne 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.

SAP/ABAP: Smartforms, SF Symbols

use this:
&symbol(.N)& Display upto N decimal places

Other options

&symbol(Z)& Omit Leading Zeros
&symbol(S)& Omit Leading Sign
&symbol(<)& Display Leading Sign to the Left &symbol(>)& Display Leading Sign to the Right
&symbol(C)& Compress Spaces
&symbol(.N)& Display upto N decimal places
&symbol(T)& Omit thousands separator
&symbol(R)& Right justified
&symbol(I)& Suppress output of the initial value

eg &SFSY-FORMPAGES(3ZC)& —outputlen,c-condense,z-Omit Leading Zeros

*—————————————————-
my requirement is to suppress the zeros for field MENGE NETPR NETWR.output is as follows
10,000 10,00 100,00

but i want it as
10 10 100

code it like &WS_NETWR(18.2)&
If you do not want any zero after decimal…&WS_NETWR(18.0)&

SAP/ABAP: EXIT, CONTINUE

DATA: LT_MARA TYPE TABLE OF MARA WITH HEADER LINE.

DATA: LV_CONTINUE TYPE I,
      LV_EXIT     TYPE I.

SELECT *
  FROM MARA
  INTO TABLE LT_MARA
  UP TO 20 ROWS.

LOOP AT LT_MARA.

  LV_CONTINUE = SY-TABIX.

  IF SY-TABIX EQ 6.
    CONTINUE.
  ENDIF.

ENDLOOP.

LOOP AT LT_MARA.

  LV_EXIT = SY-TABIX.

  IF SY-TABIX EQ 6.
    EXIT.
  ENDIF.

ENDLOOP.

WRITE: / 'LV_CONTINUE', 12 ' = ', LV_CONTINUE,
       / 'LV_EXIT'    , 12 ' = ', LV_EXIT    .

SAP/ABAP: POPUP_TO_DECIDE_LIST

*&---------------------------------------------------------------------*
*&      Form  MTERS_AYRISTIR
*&---------------------------------------------------------------------*
  DATA: LS_SPOPLI LIKE SPOPLI,
        LT_SPOPLI LIKE TABLE OF SPOPLI.

  CLEAR: LT_SPOPLI[].
  CLEAR: GV_453_861,
         GV_453_311,
         GV_453_861_453_311,
         GV_311.

  LS_SPOPLI-SELFLAG = 1.
  LS_SPOPLI-VAROPTION = '453_861'.
  APPEND LS_SPOPLI TO LT_SPOPLI.

  LS_SPOPLI-SELFLAG = 2.
  LS_SPOPLI-VAROPTION = '453_311'.
  APPEND LS_SPOPLI TO LT_SPOPLI.

  LS_SPOPLI-SELFLAG = 3.
  LS_SPOPLI-VAROPTION = '453_861 ve 453_311'.
  APPEND LS_SPOPLI TO LT_SPOPLI.

  LS_SPOPLI-SELFLAG = 4.
  LS_SPOPLI-VAROPTION = '311'.
  APPEND LS_SPOPLI TO LT_SPOPLI.


  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
    EXPORTING
*     CURSORLINE               = 1
*     MARK_FLAG                = ' '
*     MARK_MAX                 = 1
*     START_COL                = 0
*     START_ROW                = 0
      TEXTLINE1                =
      'Ters kayıt alınacak malzeme belge türü seçiniz'
*     TEXTLINE2                = ' '
*     TEXTLINE3                = ' '
      TITEL                    = 'Ayrıştırma'
*     DISPLAY_ONLY             = ' '
*   IMPORTING
*     ANSWER                   =
    TABLES
      T_SPOPLI                 = LT_SPOPLI
*   EXCEPTIONS
*     NOT_ENOUGH_ANSWERS       = 1
*     TOO_MUCH_ANSWERS         = 2
*     TOO_MUCH_MARKS           = 3
*     OTHERS                   = 4
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ELSE.

    READ TABLE LT_SPOPLI INTO LS_SPOPLI
      WITH KEY SELFLAG = 'X'.

    CASE LS_SPOPLI-VAROPTION.

      WHEN '453_861'.
        GV_453_861 = 'X'.
      WHEN '453_311'.
        GV_453_311 = 'X'.
      WHEN '453_861 ve 453_311'.
        GV_453_861_453_311 = 'X'.
      WHEN '311'.
        GV_311 = 'X'.
    ENDCASE.


  ENDIF.


ENDFORM.                    " MTERS_AYRISTIR

SAP/ABAP: NUMBER_GET_NEXT FM, SNRO

SNRO –> Numara aralığı nesnesi bakım ekranı, nesne yaratılır…

DATA: LV_NUMBER TYPE I.

CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
NR_RANGE_NR = '01'
OBJECT = 'ZCZM_ACKLM'
* QUANTITY = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
IMPORTING
NUMBER = LV_NUMBER
* QUANTITY =
* RETURNCODE =
EXCEPTIONS
INTERVAL_NOT_FOUND = 1
NUMBER_RANGE_NOT_INTERN = 2
OBJECT_NOT_FOUND = 3
QUANTITY_IS_0 = 4
QUANTITY_IS_NOT_1 = 5
INTERVAL_OVERFLOW = 6
BUFFER_OVERFLOW = 7
OTHERS = 8
.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

SAP/ABAP: EFG_GEN_GET_USER_EMAIL

DATA: LV_SMTP TYPE AD_SMTPADR.

CALL FUNCTION 'EFG_GEN_GET_USER_EMAIL'
EXPORTING
I_UNAME                 = 'MZBASCIL'"user name!!
* IMPORTING
*   E_EMAIL_ADDRESS         = LV_SMTP
*   EXCEPTIONS
*   NOT_QUALIFIED           = 1
*   USER_NOT_FOUND          = 2
*   ADDRESS_NOT_FOUND       = 3
*   OTHERS                  = 4
.
IF SY-SUBRC NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

İnsdroid

Sabahtan beri çatada çutada çatada çutada… Bitmedi yine de… Neyse, yolumuz uzun, toparlıyorum çantamı, adaptörü falan tıkıştırıyorum bir şekilde.

Asansörde kollarını kıvırıyorum gömleğimin, dirseklerimin üzerine kadar. Otomatik kapıdan dışarıya adımımı atar atmaz sıkıştırıyorum sigarayı ağzıma, ama çakmağı masamda unutmuşum. Hiç te geri dönesim yok, hem de çakmak için!? Ama bu sigaranın da yanması lazım. “Yerim lan çakmağını!” çıkartıyorum cebimden Jedi kılıcımı, kaşlarımı falan tutuşturmadan yakıyorum sigaramı, kimseye de çaktırmadan yerine koyuyorum.

Karnım acıkmış, sokaktaki yürüyen bantta-uçan otobüse doğru giderken hissediyorum. Hemen cebimden çıkartıyorum termal kameralı, teleskoplu, altından isviçre çakısı çıkan, suya-darbelere dayanıklı, afetlere hazırlıklı, solar enerjili, bir sürü ıvır-zıvır özelliği olan, hatta çakmağı bile olan, ve nasıl cebime sığdığını anlayamadığım cep telefonumu. O an hatırlıyorum “Ulan Jedi kılıcını boşuna çıkardık demin, telefonun çakmağıyla yakardık sigarayı” diyorum. Neyse, cep telefonumdan evdeki buz dolabına bağlanıyorum efendim, bakıyorum; ne var evde, ne yenir? Kızarmış patlıcan ve kabak kapsülleri, döner beyti mineralleri, phoenix yumurtaları ve dinazor tşşağından başka bir şey yok evde. Ne yesek ki şimdi? Neyse efendim, hemen o hışımla açlığımın da verdiği itici güçle süpermarkete bağlanmaya çalışıyorum, olağan üstü telefonumla… Ama nereye bağlanıyorum? Bizim Muzaffer Abi’nin Süpermarketi hacklemişler, bütün trafiği de Hilmi Abi’nin markete vermişler. Hilmi Abi’nin işi mi acaba bu? Ulan, Hilmi Abi’ye de borcum var, iyi mi? Neyse, Hilmi Abi’den alış-veriş yapmamak için Sonay Ablanın Mikro Mantıcısına bağlanıyorum, maazallah Hilmi Abi’ye yakalanmayalım akşam akşam.

Uçan otobüse de geldim bu arada. Ama taaaaa bilmem kaç yılındayız, hala otobüse binmek için insanlar birbirlerini eziyor… Sıkıştım bir şekilde, uçuyoruz…

Siparişimi de verdim bu esnada, mikro küçük, minik, ufacık mantılardan söyledim kendime. Otobüs te çok sıcakmış, 60000mt yükseklikte çektiğimiz çileye bak. Yine çıkartıyorum tabi olağan üstü telefonumu. Hemen klimaya mesaj gönderiyorum, evi soğutsun ben gidene kadar…

Ulan hep te uzak galaksilerde çalışıyorum iyi mi? Bunca yıldır, bir bizim galakside çalışamadım, nedir benim bu yollardan çektiğim… Uçan otobüsün android muavini, göbeğindeki çip okuyucusu ile uzay aracının içinde tek tek yolcuları dolaşıyor ve indi-bindi, biniş o biniş ücretlerini topluyor.

Tam android’in göbeğine çipimi okutucam, “şlaakkk” diye bir ses ensemde, “noluyo amuagoyyym” derken, eş güdümlü iki şaplak daha kulaklarıma –sanırım bu dengemi bozmak içindi- galaksim döndü yani. Bir baktım Kenoboğullarından Obi-Wan!!
“Lan!” dedi, “sen o Tatooine gezegenindeki lavuk değil misin?” dedi.

-Yok abi ben bilmem Tatooine, matooine… Geonasis’liyim ben.
– … vay ben senin…
‘diye girişti bir daha Obi-Wan, kafama kafama vuruyor. Aldı cebimdeki Jedi kılıcını da. Meğer Obi-Wan’ınınmış kılıç… Abi dedim, ıvırzıvır.com’dan aldım dedim. Yok diyo Geonasis muharebesinde araklamıştın, bir rezil etti beni, bir rezil etti… Sonra atladı camdan, uçtu gitti kılıçla.

Tabi ben sendeliyoum hala… Muavin android geldi, meğer o da C-3PO imiş… Abi dedi, beni de gereksiz yere döverdi hep dedi. Anlattı da anlattı garibim, dolmuş iyice. Android mandroid, neticede onun da canı var. Para da almadı benden bu arada… Acıdım ben de ona, bize gittik uçan otobüsten inince.

Bir güzel yağladım ben bunu, kirini pasını aldım, temizledim.

Sonra,… sonra mı? Boy boy insdroidlerimiz oldu, mutlu-mesut yaşadık.

iyiboyle

SAP/ABAP: RSCRMBW_DISPLAY_BAPIRET2 FM

  CALL FUNCTION 'RSCRMBW_DISPLAY_BAPIRET2'
    TABLES
      IT_RETURN = GT_RETURN.

  IF SY-SUBRC NE 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

Younger Brother - Train

SAP/ABAP: MMPUR_MESSAGE_FORCED

*useful macros for message handling
INCLUDE mm_messages_mac. 

 mmpur_message_forced 
 'E' 
 'ZICF_CO' 
 '017' 
 ls_mepoitem-matnr 
 ls_mepoitem-werks 
 ls_mepoitem-bwtar 
 '' .

SAP/ABAP: MODIF ID

SELECTION-SCREEN BEGIN OF BLOCK TEST1 WITH FRAME TITLE TEXT-002.
 SELECT-OPTIONS: SO_TARIH FOR S121-SPTAG MODIF ID R11,
 SO_MALGR FOR MARA-MATKL.
 PARAMETERS: PA_HAFTA LIKE S121-SPWOC MODIF ID R12,
 PA_AY LIKE S121-SPMON MODIF ID R13.

SELECTION-SCREEN END OF BLOCK TEST1.

AT SELECTION-SCREEN OUTPUT.

if pa_ay eq 'X'.

LOOP AT SCREEN.

CASE SCREEN-GROUP1.
 WHEN 'R13'.
 SCREEN-INPUT = '1'.
 SCREEN-OUTPUT ='1'.
 SCREEN-ACTIVE = '1'.

WHEN 'R12'.
 SCREEN-INPUT = '0'.
 SCREEN-OUTPUT ='1'.
 SCREEN-ACTIVE = '1'.
 WHEN 'R11'.
 SCREEN-INPUT = '0'.
 SCREEN-OUTPUT ='1'.
 SCREEN-ACTIVE = '1'.

ENDCASE.
 MODIFY SCREEN.
 ENDLOOP.

elseif ......... .

endif.

PHP: Trigger

CREATE TRIGGER 'user_after_ins_tr' AFTER INSERT ON 'user' FOR EACH ROW

BEGIN

INSERT INTO user_online (user_id, online) VALUES (NEW.id, true);
INSERT INTO user_log (user_id, action, regData) VALUES (NEW.id, 1, NOW());
END;

SAP/ABAP: MESSAGE_STORE, MESSAGES_SHOW

DATA : GT_RETURN LIKE BAPIRET2
OCCURS 0 WITH HEADER LINE.

“E! ==> Message Class

IF GT_RETURN[] IS NOT INITIAL.
LOOP AT GT_RETURN.
PERFORM MESSAGE_STORE USING GT_RETURN-TYPE
GT_RETURN-ID
GT_RETURN-NUMBER
GT_RETURN-MESSAGE_V1
GT_RETURN-MESSAGE_V2
GT_RETURN-MESSAGE_V3
GT_RETURN-MESSAGE_V4.
ENDLOOP.

CALL FUNCTION 'MESSAGES_SHOW'
EXCEPTIONS
INCONSISTENT_RANGE = 1
NO_MESSAGES        = 2
OTHERS             = 3.

ENDIF.

*&---------------------------------------------------------------------
*&      Form  MESSAGE_STORE
*&---------------------------------------------------------------------
FORM MESSAGE_STORE  USING    P_TYPE
P_ID
P_NUMBER
P_V1
P_V2
P_V3
P_V4.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
ARBGB                  = P_ID
MSGTY                  = P_TYPE
MSGV1                  = P_V1
MSGV2                  = P_V2
MSGV3                  = P_V3
MSGV4                  = P_V4
TXTNR                  = P_NUMBER
EXCEPTIONS
MESSAGE_TYPE_NOT_VALID = 1
NOT_ACTIVE             = 2
OTHERS                 = 3.

ENDFORM.                    " MESSAGE_STORE

SAP/ABAP: C14Z_MESSAGES_SHOW_AS_POPUP FM

DATA: GT_MESSAGE_TAB TYPE TABLE OF ESP1_MESSAGE_WA_TYPE WITH HEADER LINE .

IF GT_MESSTAB[] IS NOT INITIAL.
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
TABLES
I_MESSAGE_TAB = GT_MESSAGE_TAB.
ENDIF.

SAP/ABAP: REPLACE ALL OCCURRENCES

REPLACE ALL OCCURRENCES OF 'STD'
        IN GS_STD-TEXT_STRING WITH GS_STD-STDT.