İ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.

SAP/ABAP: Popup radio button

SELECTION-SCREEN BEGIN OF SCREEN 1001 TITLE tit AS WINDOW.
PARAMETERS:r1 RADIOBUTTON GROUP r1,
           r2 RADIOBUTTON GROUP r1,
           r3 RADIOBUTTON GROUP r1,
           r4 RADIOBUTTON GROUP r1,
           r5 RADIOBUTTON GROUP r1.
SELECTION-SCREEN END OF SCREEN 1001.
tit = 'Set blabla...'.
 
START-OF-SELECTION.
  CALL SELECTION-SCREEN '1001' STARTING AT 15 15.

SAP/ABAP: ALV HOTSPOT

wa_fieldcat-hotspot   =  'X'.
APPEND wa_fieldcat TO it_fieldcat.

FORM user_command USING r_ucomm ls_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN 'IC1'.
      READ TABLE gt_alv INDEX ls_selfield-tabindex.
      PERFORM   go_detail USING gt_alv-qmnum.
    WHEN 'ERROR'.
  ENDCASE.
  ls_selfield-refresh = 'X'.
ENDFORM.                    "command

*&---------------------------------------------------------------------*
*&      Form  GO_DETAIL
*&---------------------------------------------------------------------*
FORM go_detail USING p_qmnum .
SET PARAMETER ID 'IQM' FIELD p_qmnum.
CALL TRANSACTION 'QM03' AND SKIP FIRST SCREEN.

ENDFORM.                    " GO_DETAIL

SAP/ABAP: Ranges

RANGES: LR_ZFIELD FOR ZTABLE-ZFIELD.
CLEAR: LR_ZFIELD.

LR_ZFIELD-OPTION = 'EQ'.
LR_ZFIELD-SIGN = 'I'.
LR_ZFIELD-LOW = 'data123'.
APPEND LR_ZFIELD.

SAP/ABAP: TRANSLATE UPPER CASE

TRANSLATE:  LV_LTEXT TO UPPER CASE,

LV_TTEXT(1) TO UPPER CASE.

SAP/ABAP: UNPACK

UNPACK lv_char10 TO lv_vbeln.

SAP/ABAP: Minus sign right to left

CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'

CHANGING

value = lv_amount.