Burhan KARADERE Kişisel Blog Sayfası

TYPES: BEGIN OF t_datatab,
ebeln LIKE ymtil_cons_po-ebeln,
ebelp LIKE ymtil_cons_po-ebelp,
END OF t_datatab.

DATA: it_datatab TYPE STANDARD TABLE OF

[..]Devamını Oku

*———————————————————————-*
* Report ZPRUEBA_MML_13 *
* Export an internal table to XML document *
* NO BORRAR ESTE CODIGO *
*———————————————————————-*
REPORT ZPRUEBA_MML_13.
*———————————————————————-*
* PANTALLA SELECCION *
PARAMETERS: GK_RUTA TYPE RLGRAP-FILENAME.
* PANTALLA SELECCION *
*———————————————————————-*

*———————————————————————-*
* TYPE TURNOS *
TYPES: BEGIN OF TURNOS,
LU LIKE T552A-TPR01,
MA LIKE T552A-TPR01,
MI LIKE T552A-TPR01,
JU LIKE T552A-TPR01,
VI LIKE T552A-TPR01,
SA LIKE T552A-TPR01,
DO LIKE T552A-TPR01,
END OF TURNOS.
* TYPE TURNOS

[..]Devamını Oku

Loop – Dögü

DO [ TIMES] [...].

* … statements …

ENDDO.

WHILE .

* … statements …

ENDWHILE.

LOOP AT …

* … statements …

ENDLOOP.

SELECT …

* … statements

[..]Devamını Oku

DATA:
diffdays TYPE i,
datestring LIKE sy-datum,
BEGIN OF daterec,
year(4) TYPE c,
month(2) TYPE c,
day(2) TYPE c,
END OF daterec.

daterec = sy-datum.
daterec-day = ‘01′. ” first day of month
datestring =

[..]Devamını Oku

TYPE-POOLS : vrm.
TABLES:vbak,vbap.
DATA : v(80) TYPE c.

DATA: wa_vbak TYPE vbak,
it_vbak TYPE vbak OCCURS 0 WITH HEADER LINE,
wa_vbap TYPE vbap,
it_vbap TYPE vbap OCCURS 0 WITH HEADER LINE.
DATA: l_name TYPE vrm_id,
li_list TYPE vrm_values ,
v_count TYPE i,
l_value LIKE LINE OF li_list.

PARAMETERS: p_test(20) AS LISTBOX VISIBLE LENGTH 60 MODIF ID DAT.

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.

PERFORM get_data.

LOOP AT it_vbak.
l_value-key = it_vbak-vbeln .
l_value-text = it_vbak-vbeln .
APPEND l_value TO li_list.
ENDLOOP.

CALL FUNCTION ‘VRM_SET_VALUES’
EXPORTING
id = ‘P_TEST’
values = li_list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.

AT SELECTION-SCREEN ON P_TEST.
clear : li_list , li_list[].
SELECT vbeln
matnr
meins

FROM vbap

INTO CORRESPONDING FIELDS OF TABLE it_vbap
WHERE vbeln = p_test.

START-OF-SELECTION.
SELECT vbeln
matnr
meins
FROM vbap

INTO CORRESPONDING FIELDS OF TABLE it_vbap

WHERE vbeln = p_test.

LOOP AT it_vbap.

WRITE :/ it_vbap-vbeln, it_vbap-matnr,it_vbap-meins.

ENDLOOP.
*&———————————————————————*
*& Form get_Data
*&———————————————————————*

FORM get_data .
SELECT  vbeln UP TO 100 ROWS
FROM vbak
INTO CORRESPONDING FIELDS OF TABLE it_vbak.
ENDFORM. “ get_Data