ABAP

ABAP

Wednesday, April 13, 2011

replace değiştirme , değişkene 0 ekleme

** Replace
  SELECT SINGLE dcpfm
  INTO lv_dcpfm
  FROM usr01
  WHERE bname = sy-uname.

    IF lv_dcpfm = 'X'.
      REPLACE '.' IN lv_tmp_cost_c WITH ',' .
    ENDIF.

** Adding zero 
form f_zero_addition  using    len
                      changing n_var.

      DO len TIMES.
        lv_index = sy-index - 1.
        IF n_var+lv_index(1) EQ space.
          n_var+lv_index(1) = '0'.
        ENDIF.
      ENDDO.
endform.

n_var --->>>başına sıfır koycağımız değer
len------>>>sıfırları başına koyduğumuzdaki toplam uzunluk

No comments:

Post a Comment

Total Pageviews