(.)(.)

14 Nisan 2011 Perşembe

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

3 Nisan 2011 Pazar

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.

8 Mart 2011 Salı

SAP/ABAP: TRANSLATE UPPER CASE

TRANSLATE:  LV_LTEXT TO UPPER CASE,

LV_TTEXT(1) TO UPPER CASE.

7 Mart 2011 Pazartesi

SAP/ABAP: UNPACK

UNPACK lv_char10 TO lv_vbeln.

22 Şubat 2011 Salı

SAP/ABAP: Minus sign right to left

CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'

CHANGING

value = lv_amount.

2 Kasım 2010 Salı

JavaScript: HTML içeriğini manipüle edelim

<!DOCTYPE html>
<html>
<head>
<script>
function icerikDegistir()
{
document.getElementById("id1").innerHTML="JavaScript ile HTML'i değiştirdim...";
}
</script>
</head>

<body>

<h1>JavaScript, HTML içeriğini değiştirelim</h1>

<p id="id1">Tam olarak buradaki içeriği değiştireceğim!!</p>

<button type="button" onclick="icerikDegistir()">Değiştir</button>

</body>
</html>

13 Ekim 2010 Çarşamba

PHP: HTTP_USER_AGENT

<?php

if (strpos($_SERVER['HTTP_USER_AGENT'], 'MSIE') !== TRUE) 
{
    echo 'You are using Internet Explorer.';
}

?>

8 Eylül 2010 Çarşamba

PHP: FTP bağlantısı ile sunucudan dosya sil

<?php
// bir FTP bağlantısı tanımlayıp, bağlanalım
$ftp_server = "ftp.domain.com";
$ftp_conn = ftp_connect($ftp_server) or die("$ftp_server bağlanamadı");
$login = ftp_login($ftp_conn, $ftp_username, $ftp_userpass);

$file = "php/dosya.txt";

// silmeyi deniyoruz
if (ftp_delete($ftp_conn, $file))
  {
  echo "$file silindi.";
  }
else
  {
  echo "$file silinemedi.";
  }

// bağlantıyı kapatmak lazım...
ftp_close($ftp_conn);
?>

7 Eylül 2010 Salı

Ubuntu: LAMP kurulumu

Linux-Apeche-MySQL-PHP kurulumu için terminale $sudo tasksel yazıyoruz.

Sistemde daha önceden tasksel yoksa, apt-get install tasksel ile tasksel kuruyoruz.

tasksel görünümü;

Burada LAMP seçip OK ile devam ediyoruz.

sonrasında sudo apt-get install php5 mysql-server apache2 ile gerekli bileşenleri sisteme kuruyoruz.

sudo apt-get install apache2 apache 2 kurulumu için,

web tarayıcıya http://localhost yazarak test edebiliriz.

phpmyadmin kurulumu sudo apt-get install phpmyadmin

localhost/phpmyadmin ile test edebiliriz.

filesystem/var/www/ dizinin altı localhost‘un ifade ettiği fiziksel alandır. geliştirmeler burada toplanabilir.

SAP/ABAP: DESCRIBE TABLE LINES

DESCRIBE TABLE ITAB LINES LV_VAL.

2 Ağustos 2010 Pazartesi

I am Kloot - Sky at night - Fingerprints

3 Temmuz 2010 Cumartesi

SAP/ABAP: XLS to SAP, Excel to SAP, FM KCD_EXCEL_OLE_TO_INT_CONVERT, Excel Upload

*&---------------------------------------------------------------------*
*&      Form  upload_data
*&---------------------------------------------------------------------*
FORM upload_data.
  DATA: lo_typedescr TYPE REF TO cl_abap_typedescr.
  DATA: lv_is_field TYPE c,
        lv_is_num   TYPE c,
        lv_is_date  TYPE c.

  PERFORM  sapgui_progress  USING  'Read data'.

  DATA : lt_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
  DATA : ld_index TYPE i.
  FIELD-SYMBOLS: <fs>.
  CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename                = p_file
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 256
      i_end_row               = 65000
    TABLES
      intern                  = lt_intern
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

  CLEAR: gs_excel.
  REFRESH: gt_excel[].


  LOOP AT lt_intern.

*    IF p_head EQ 'X' AND lt_intern-row EQ 1.
*      CONTINUE.
*    ENDIF.

    MOVE lt_intern-col TO ld_index.
    ASSIGN COMPONENT ld_index OF STRUCTURE
    gs_excel TO <fs>.

    CLEAR: lv_is_field, lv_is_num, lv_is_date.

    lo_typedescr = cl_abap_elemdescr=>describe_by_data( <fs> ).

    IF lo_typedescr->type_kind EQ cl_abap_elemdescr=>typekind_num    OR
   lo_typedescr->type_kind EQ cl_abap_elemdescr=>typekind_packed OR
   lo_typedescr->type_kind EQ cl_abap_elemdescr=>typekind_float  OR
   lo_typedescr->type_kind EQ cl_abap_elemdescr=>typekind_int.
      lv_is_num = abap_true.
    ENDIF.
    IF lo_typedescr->type_kind EQ cl_abap_elemdescr=>typekind_date.
      lv_is_date = abap_true.
    ENDIF.
    FREE: lo_typedescr.

    IF lv_is_date IS NOT INITIAL.
      CONCATENATE lt_intern-value+6(4) lt_intern-value+3(2) lt_intern-value(2) INTO <fs>.
    ELSEIF lv_is_num IS NOT INITIAL.
      IF lt_intern-value CO '0123456789., '.
        REPLACE ALL OCCURRENCES OF '.' IN lt_intern-value WITH ''.
        REPLACE ALL OCCURRENCES OF ',' IN lt_intern-value WITH '.'.
        <fs> = lt_intern-value.
      ELSE.
*                CLEAR: wa_log, lv_msg.
*                lv_msg = text-003.
*                REPLACE '&1' IN lv_msg WITH lt_intern-row.
*                REPLACE '&2' IN lv_msg WITH lt_intern-col.
*                wa_log-msj = lv_msg.
*                APPEND wa_log TO it_log.
      ENDIF.
    ELSE.
      <fs> = lt_intern-value.
    ENDIF.

    AT END OF row.
      APPEND gs_excel TO gt_excel.
      CLEAR gs_excel.
    ENDAT.

  ENDLOOP.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  SAPGUI_PROGRESS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_1407   text
*----------------------------------------------------------------------*
FORM     sapgui_progress  USING  if_text  TYPE  tdline.

* Display progress info
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 0
      text       = if_text.

ENDFORM.

19 Haziran 2010 Cumartesi

PHP: Global değişkene fonksiyonun içinden ulaş

$degisken = "buBirDegiskendir";
function ornek () {
global $degisken;
print $degisken; // buBirDegiskendir kelimesi ekrana yazdirilir.
}

ulaşılmak istenen global değişkene $GLOBALS dizisi ile de ulaşabilirim.

$degisken = "buDaBirDegiskendir";
function () {
$degisken = 123456; //yerel $degisken
print "Global degiskene fonksiyon icinden ulasiyorum $GLOBALS[degisken]";
print "Local degisken degerimiz ise $degisken";

6 Mayıs 2010 Perşembe

MySQL: CLOSE

$link = mysql_connect('localhost', 'mysql_user', 'mysql_password');
if (!$link) {
die('sikinti var: ' . mysql_error());
}
echo 'baglandi';
mysql_close($link);

14 Mart 2010 Pazar

MySQL: Database Connection

// Configuration file

//MySQL connect
$DB_username = "root"; //    username for database here
$DB_password = ""; //    password for database here
$DB_name =  "sap"; //    name of database here

$mysql_link = mysql_pconnect( "localhost", "$DB_username", "$DB_password")
or die( "Unable to connect to MySQL server");
mysql_select_db( "$DB_name")
or die( "It's connecting to the MySQL server, but unable to select database");