Posts

[SAP ABAP] Convert LIST MEMORY to HTML

FUNCTION zfmarein_list_to_html.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  TABLES
*"      T_HTML STRUCTURE  W3HTML
*"----------------------------------------------------------------------


DATA : li_tmp LIKE STANDARD TABLE OF abaplist WITH HEADER LINE,
           li_html LIKE STANDARD TABLE OF w3html WITH HEADER LINE.

REFRESH : t_html.

*  "Get Report Memory
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
      listobject = li_tmp
EXCEPTIONS
      not_found  = 4
OTHERS     = 8.

CALL FUNCTION 'WRITE_LIST'
TABLES
      listobject = li_tmp
EXCEPTIONS
      empty_list = 1
OTHERS     = 2.

CALL FUNCTION 'WWW_LIST_TO_HTML'
TABLES
      html   = li_html
EXCEPTIONS
OTHERS = 1.

  t_html[] = li_html[].



ENDFUNCTION.

[SAP ABAP] Remove XML BUGS

FUNCTION zfm_mmods_remove_xml_bugs .
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  CHANGING
*"     REFERENCE(C_XML) TYPE  STRING
*"----------------------------------------------------------------------


TYPES : BEGIN OF ty_data,
line TYPE string,
END OF ty_data.
DATA : li_data TYPE STANDARD TABLE OF ty_data WITH HEADER LINE.

DATA : lv_tmp TYPE string,
         lv_cell1 TYPE string,
         lv_cell2 TYPE string,
         lv_cell3 TYPE string,
         lv_cell_header TYPE string,
         lv_cell_top TYPE string,
         lv_cell_last TYPE string,
         lv_cell_replace TYPE string,
         lv_len1 TYPE i.

"Header
  lv_cell_header = ''.
CONCATENATE lv_cell_header cl_abap_char_utilities=>cr_lf INTO lv_cell_replace.
REPLACE lv_cell_header IN c_xml  WITH lv_cell_replace.

"Top
SPLIT c_xml AT '>' INTO lv_tmp lv_cell_top.
SPLIT lv_cell_top AT '>' INTO lv_cell_top lv_tmp.
CONCATENATE …

[SAP ABAP] Convert ITAB to STRING

FUNCTION ZFM_MMODS_ITAB_STRING.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  EXPORTING
*"     REFERENCE(E_STRING) TYPE  STRING
*"  TABLES
*"      T_ITAB TYPE  TABLE
*"----------------------------------------------------------------------


FIELD-SYMBOLS TYPE ANY.
DATA : lv_str TYPE string,
         lv_len TYPE i,
         j TYPE i,
         lv_blanks TYPE string.

CLEAR E_STRING.
LOOP AT T_ITAB ASSIGNING .
EXIT.
ENDLOOP.
IF sy-subrc EQ 0.

DESCRIBE FIELD  LENGTH lv_len IN CHARACTER MODE.
SHIFT lv_blanks RIGHT BY lv_len PLACES.

LOOP AT T_ITAB ASSIGNING .
      lv_str = .
      j = lv_len - STRLEN( lv_str ).
IF j EQ 0.
CONCATENATE E_STRING lv_str INTO E_STRING.
ELSE.
CONCATENATE E_STRING lv_str lv_blanks(j) INTO E_STRING.
ENDIF.
ENDLOOP.

ENDIF.


ENDFUNCTION.

[SAP ABAP] Convert ITAB to XML

FUNCTION zfm_mmods_itab_xml.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_ITAB) TYPE  TABLE
*"  EXPORTING
*"     VALUE(E_XML) TYPE  STRING
*"----------------------------------------------------------------------


DATA : lv_return TYPE string,
         lv_len1 TYPE i,
         lv_len2 TYPE i.

DATA : li_xml TYPE  truxs_xml_table.

CALL FUNCTION 'SAP_CONVERT_TO_XML_FORMAT'
TABLES
      i_tab_sap_data       = i_itab
CHANGING
      i_tab_converted_data = li_xml.

*--------------------------------------------------------------------*
FIELD-SYMBOLS: <f> TYPE ANY.

DESCRIBE TABLE li_xml LINES lv_len1.

LOOP AT li_xml ASSIGNING <f>.
DESCRIBE FIELD <f> LENGTH lv_len2 IN BYTE MODE.
EXIT.
ENDLOOP.

  lv_len1 = lv_len1 * lv_len2.
*--------------------------------------------------------------------*

CALL FUNCTION 'SCMS_BINARY_TO_STRING'
EXPORTING
      input_length = lv_l…

[SAP ABAP] Get PO Tax

Image
FUNCTION zfm_mmods_po_get_tax.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_EBELN) LIKE  EKPO-EBELN
*"     REFERENCE(I_EBELP) LIKE  EKPO-EBELP
*"  EXPORTING
*"     REFERENCE(E_TAXCOM) TYPE  TAXCOM
*"  TABLES
*"      T_KOMV STRUCTURE  KOMV
*"----------------------------------------------------------------------
DATA : lw_ekko LIKE ekko,
         lw_ekpo LIKE ekpo,
         lw_lfa1 LIKE lfa1.

SELECT SINGLE * INTO lw_ekko
FROM ekko
WHERE ebeln = i_ebeln.

IF lw_ekko IS NOT INITIAL.
SELECT SINGLE * INTO lw_ekpo
FROM ekpo
WHERE ebeln = i_ebeln AND
          ebelp = i_ebelp.

SELECT SINGLE * INTO lw_lfa1
FROM lfa1
WHERE lifnr = lw_ekko-lifnr.
ELSE.
EXIT.
ENDIF.

CHECK lw_ekpo IS NOT INITIAL.

DATA: li_tax TYPE j_1b_taxcom ,
        li_taxcom  TYPE taxcom ,
        l_wa_t001    TYPE t001,
*        e_taxcom  TYPE taxcom ,
        l_wa_komv TYPE komv ,
        l_gv_amount TYPE netwr ,
    …

Seleksi Praktek Lapang (Magang) ABAP - 2017

Image
Dear All,
Dibuka seleksi Praktek Lapang (Magang) ABAP - 2017.. Khusus utk alumni Training SAP Interface..
Tanggal     : 13 Agustus 2017 Jam         : 10.00 - 16.00 Materi Test : Algoritma ABAP + dialog programing
Peserta Test : 1. Asswin Sunardi 2. 3. 4. 5. 6. 7. 8.
Pendaftaran lgs kirim email ke :
To      : reinandang@gmail.com Subject : Magang ABAP 2017 Content : Nama Lengkap : Agung Yudatama
Alumni : Basis angkatan 4
Umur : 30
Peserta dng nilai paling tinggi akan mendapatkan kesempatan untuk MAGANG selama 3 bulan di project implementasi dan di bimbing oleh Om Daniel Niel Saputra.