22 Haziran 2011 Çarşamba

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

18 Haziran 2011 Cumartesi

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.

14 Haziran 2011 Salı

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.

12 Haziran 2011 Pazar

İ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

7 Haziran 2011 Salı

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.

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