helllo
In background, i a executing zcsr_bkup_prog (i.e back up program for zcsr)
which will update data in database.
Now, zcsr_bkup_disp will call zcsr_bkup_prog and according to revision type.
(i.e hard code date 5, 10, 15).
code for zcsr_bkup_prog
*&---------------------------------------------------------------------*
*& Report ZCSR_BKUP_PROG
*&*&Created by : Karan Kanotra (Keon Solutions)
*& Co-ordinated by : Pankaj Labhasetwar (Keon Solutions)
* Request : KFDK901798
*& Creation Date : 01/12/2014
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zcsr_bkup_prog.
*&---------------------------------------------------------------------*
*& TABLES
*&---------------------------------------------------------------------*
TABLES : vbak , vbap , vbep , likp , lips , marc , kna1 , konv,knvv,tvgrt.
TYPE-POOLS :slis.
*&---------------------------------------------------------------------*
*& TYEPS DECLARATION
*&---------------------------------------------------------------------*
TYPES : BEGIN OF t_vbak,
vbeln TYPE vbak-vbeln, "Sales document
kunnr TYPE vbak-kunnr, "Sold-to-party
audat TYPE vbak-audat,
* posnr TYPE vbak-posnr,
knumv TYPE vbak-knumv,
vtweg TYPE vbak-vtweg,
vkorg TYPE vbak-vkorg,
vkgrp TYPE vbak-vkgrp,
END OF t_vbak.
TYPES : BEGIN OF t_konp,
kbetr TYPE konp-kbetr,
konwa TYPE konp-konwa,
knumh TYPE konp-knumh,
END OF t_konp.
TYPES : BEGIN OF t_knvv,
kunnr TYPE knvv-kunnr,
vkgrp TYPE knvv-vkgrp,
END OF t_knvv.
TYPES : BEGIN OF t_tvgrt,
vkgrp TYPE tvgrt-vkgrp,
bezei TYPE tvgrt-bezei,
END OF t_tvgrt.
TYPES : BEGIN OF t_kna1,
name1 TYPE kna1-name1, "Description
pstlz TYPE kna1-pstlz,
kunnr TYPE kna1-kunnr,
* posnr TYPE kna1-posnr,
END OF t_kna1.
TYPES : BEGIN OF t_vbap,
matnr TYPE vbap-matnr, " Material
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
abgru TYPE vbap-abgru,
werks TYPE vbap-werks,
END OF t_vbap.
TYPES: BEGIN OF t_vbkd,
kursk TYPE vbkd-kursk,
vbeln TYPE vbkd-vbeln,
END OF t_vbkd.
TYPES : BEGIN OF t_vbfa,
rfmng TYPE vbfa-rfmng,
vbeln TYPE vbfa-vbeln,
vbelv TYPE vbfa-vbelv,
erdat TYPE vbfa-erdat,
vbtyp_n TYPE vbfa-vbtyp_n,
END OF t_vbfa.
TYPES: BEGIN OF t_a305,
knumh TYPE a305-knumh,
datab TYPE a305-datab,
kunnr TYPE a305-kunnr,
vtweg TYPE a305-vtweg,
kschl TYPE a305-kschl,
matnr TYPE a305-matnr,
vkorg TYPE a305-vkorg,
END OF t_a305.
TYPES : BEGIN OF t_marc,
prctr TYPE marc-prctr, "Profit center
matnr TYPE marc-matnr,
* posnr TYPE marc-posnr,
werks TYPE marc-werks,
END OF t_marc.
TYPES : BEGIN OF t_vbep,
edatu TYPE vbep-edatu, "Schedule line date
vbeln TYPE vbep-vbeln, "Sales document
wmeng TYPE vbep-wmeng, "confirmed quantity
etenr TYPE vbep-etenr, "Delivery schedule line number
END OF t_vbep.
TYPES : BEGIN OF t_likp,
wadat_ist TYPE likp-wadat_ist, "Actual good movment date
vbeln TYPE likp-vbeln,
END OF t_likp.
TYPES : BEGIN OF t_lips,
vbeln TYPE lips-vbeln, "Delivery
lfimg TYPE lips-lfimg, "Actual quantity delivery
vgbel TYPE lips-vgbel, "Document number of the reference number
erdat TYPE lips-erdat,
END OF t_lips.
TYPES : BEGIN OF t_vbep1,
edatu TYPE vbep-edatu,
vbeln TYPE vbep-vbeln,
wmeng TYPE vbep-wmeng,
etenr TYPE vbep-etenr,
posnr TYPE vbep-posnr,
END OF t_vbep1.
TYPES : BEGIN OF t_final,
vbeln TYPE vbak-vbeln,
kunnr TYPE vbak-kunnr,
vkgrp TYPE vbak-vkgrp,
name1 TYPE kna1-name1,
matnr TYPE vbap-matnr,
prctr TYPE marc-prctr,
edatu TYPE vbep-edatu,
* vbeln TYPE vbep-vbeln,
wmeng TYPE vbep-bmeng,
etenr TYPE vbep-etenr,
wadat_ist TYPE likp-wadat_ist,
* vbeln TYPE lips-vbeln,
vgbel TYPE lips-vgbel,
lfimg TYPE lips-lfimg,
vbeln1 TYPE vbfa-vbeln,
erdat TYPE lips-erdat,
* posnr TYPE lips-posnr,
posnr TYPE vbap-posnr,
kbetr TYPE konp-kbetr,
knumh TYPE a305-knumh,
kschl TYPE konv-kschl,
konwa TYPE konp-konwa,
rfmng TYPE vbfa-rfmng,
vbelv TYPE vbfa-vbelv,
vkorg TYPE vbak-vkorg,
kursk TYPE vbkd-kursk,
lv_sum TYPE i,
wmeng1 TYPE i,
rfmng1 TYPE i,
bezei TYPE tvgrt-bezei,
END OF t_final.
* TYPES: BEGIN OF t_final1,
* p_date TYPE dats,
* vbeln TYPE zcsr_bkup_data-vbeln,
* kunnr TYPE zcsr_bkup_data-kunnr,
** vkgrp TYPE vbak-vkgrp,
* name1 TYPE zcsr_bkup_data-name1,
* matnr TYPE zcsr_bkup_data-matnr,
* prctr TYPE zcsr_bkup_data-prctr,
* edatu TYPE zcsr_bkup_data-edatu,
** vbeln TYPE vbep-vbeln,
** wmeng TYPE vbep-bmeng,
** etenr TYPE vbep-etenr,
* wmeng1 TYPE i,
* wadat_ist TYPE zcsr_bkup_data-wadat_ist,
** vbeln TYPE lips-vbeln,
** vgbel TYPE lips-vgbel,
** lfimg TYPE lips-lfimg,
** vbeln1 TYPE vbfa-vbeln,
** erdat TYPE lips-erdat,
** posnr TYPE lips-posnr,
** posnr TYPE vbap-posnr,
* rfmng1 TYPE i,
* kbetr TYPE zcsr_bkup_data-kbetr,
** knumh TYPE a305-knumh,
** kschl TYPE konv-kschl,
* lv_sum TYPE i,
* konwa TYPE zcsr_bkup_data-konwa,
** rfmng TYPE vbfa-rfmng,
** vbelv TYPE vbfa-vbelv,
** vkorg TYPE vbak-vkorg,
** kursk TYPE vbkd-kursk,
*
*
*
* bezei TYPE zcsr_bkup_data-bezei,
*
*
* END OF t_final1.
*&---------------------------------------------------------------------*
*& DATA DECLARATION
*&---------------------------------------------------------------------*
DATA : lv_sum TYPE i,
wmeng1 TYPE i,
rfmng1 TYPE i,
Datum TYPE sy-datum.
DATA : it_vbak TYPE STANDARD TABLE OF t_vbak,
wa_vbak TYPE t_vbak.
DATA : it_vbap TYPE STANDARD TABLE OF t_vbap,
wa_vbap TYPE t_vbap.
DATA : it_knvv TYPE STANDARD TABLE OF t_knvv,
wa_knvv TYPE t_knvv.
DATA : it_tvgrt TYPE STANDARD TABLE OF t_tvgrt,
wa_tvgrt TYPE t_tvgrt.
DATA: it_vbep TYPE STANDARD TABLE OF t_vbep,
wa_vbep TYPE t_vbep.
DATA : it_vbkd TYPE STANDARD TABLE OF t_vbkd,
wa_vbkd TYPE t_vbkd.
DATA : it_likp TYPE STANDARD TABLE OF t_likp,
wa_likp TYPE t_likp.
DATA : it_vbep1 TYPE STANDARD TABLE OF t_vbep1,
wa_vbep1 TYPE t_vbep1.
DATA : it_a305 TYPE STANDARD TABLE OF t_a305,
wa_a305 TYPE t_a305.
DATA : it_lips TYPE STANDARD TABLE OF t_lips,
wa_lips TYPE t_lips.
DATA : it_marc TYPE STANDARD TABLE OF t_marc,
wa_marc TYPE t_marc.
DATA : it_kna1 TYPE STANDARD TABLE OF t_kna1,
wa_kna1 TYPE t_kna1.
DATA : it_konp TYPE STANDARD TABLE OF t_konp,
wa_konp TYPE t_konp.
DATA : it_vbfa TYPE STANDARD TABLE OF t_vbfa,
wa_vbfa TYPE t_vbfa.
DATA : it_final TYPE STANDARD TABLE OF t_final,
wa_final TYPE t_final.
*DATA : it_zcsr_bkup_data TYPE TABLE OF t_zcsr_bkup_data,
* wa_zcsr_bkup_data TYPE t_zcsr_bkup_data.
DATA : it_final1 TYPE STANDARD TABLE OF zcsr_bkup_data,
wa_final1 TYPE zcsr_bkup_data.
DATA : it_fieldcat TYPE slis_t_fieldcat_alv, ""declaration for fieldcatalog.
wa_fieldcat TYPE slis_fieldcat_alv.
DATA: g_layout TYPE slis_layout_alv.
DATA : c_inr(3) TYPE c VALUE 'INR'.
DATA:date LIKE sy-datum.
DATA:date1 LIKE sy-datum.
*DATA : lv_sum TYPE i.
*DATA : wmeng1 TYPE i.
*DATA : rfmng1 TYPE i.
*&---------------------------------------------------------------------*
*& LAYOUT Selection Screen
*&---------------------------------------------------------------------*
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS : s_edatu FOR vbep-edatu.
SELECTION-SCREEN : END OF BLOCK b1.
*DATA : s_edatu type vbep-edatu.
INITIALIZATION.
*CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
* EXPORTING
* iv_date = sy-datum
* IMPORTING
* ev_month_begin_date = date
* ev_month_end_date = date1.
s_edatu-option ='EQ'.
s_edatu-sign ='I'.
s_edatu-low = date.
s_edatu-high = date1.
*&---------------------------------------------------------------------*
*& MAIN PROGRAM
*&---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM dataget.
PERFORM fieldcat.
PERFORM grid.
*&---------------------------------------------------------------------*
*& Form dataget
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM dataget.
SELECT edatu
vbeln
wmeng
etenr
FROM vbep
INTO TABLE it_vbep
WHERE edatu IN s_edatu.
IF sy-subrc = 0.
SELECT vbeln
kunnr
audat
knumv
vtweg
vkorg
vkgrp
FROM vbak
INTO TABLE it_vbak
FOR ALL ENTRIES IN it_vbep
WHERE vbeln = it_vbep-vbeln
AND auart = 'ZREG'
AND vtweg NE '40'.
* if sy-subrc = 0.
* SELECT kunnr
* vkgrp
* FROM knvv
* INTO TABLE it_knvv
* FOR ALL ENTRIES IN it_vbak
* WHERE kunnr = it_vbak-kunnr.
IF sy-subrc = 0.
SELECT vkgrp
bezei
FROM tvgrt
INTO TABLE it_tvgrt
FOR ALL ENTRIES IN it_vbak
WHERE vkgrp = it_vbak-vkgrp
AND ( spras = 'E' ).
IF sy-subrc = 0.
SELECT kursk
vbeln
FROM vbkd
INTO TABLE it_vbkd
FOR ALL ENTRIES IN it_vbak
WHERE vbeln = it_vbak-vbeln
AND ktgrd = '02'.
SELECT edatu
vbeln
wmeng
etenr
posnr
FROM vbep
INTO CORRESPONDING FIELDS OF TABLE it_vbep1
FOR ALL ENTRIES IN it_vbak
WHERE vbeln = it_vbak-vbeln
AND edatu IN s_edatu.
DELETE ADJACENT DUPLICATES FROM it_vbep1.
SELECT name1
pstlz
kunnr
FROM kna1
INTO TABLE it_kna1
FOR ALL ENTRIES IN it_vbak
WHERE kunnr = it_vbak-kunnr.
IF sy-subrc = 0.
SELECT matnr
vbeln
posnr
abgru
werks
FROM vbap
INTO TABLE it_vbap
FOR ALL ENTRIES IN it_vbep1
WHERE vbeln = it_vbep1-vbeln.
IF sy-subrc = 0.
SELECT prctr
matnr
werks
FROM marc
INTO TABLE it_marc
FOR ALL ENTRIES IN it_vbap
WHERE matnr = it_vbap-matnr
AND werks = it_vbap-werks.
IF sy-subrc = 0.
SELECT rfmng
vbeln
vbelv
erdat
vbtyp_n
FROM vbfa
INTO TABLE it_vbfa
FOR ALL ENTRIES IN it_vbep1
WHERE vbelv = it_vbep1-vbeln
AND erdat = it_vbep1-edatu
AND vbtyp_n = 'J'.
IF sy-subrc = 0.
SELECT wadat_ist
vbeln
FROM likp
INTO TABLE it_likp
FOR ALL ENTRIES IN it_vbfa
WHERE vbeln = it_vbfa-vbeln.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
LOOP AT it_vbep1 INTO wa_vbep1 WHERE edatu IN s_edatu.
wa_final-edatu = wa_vbep1-edatu.
wa_final-etenr = wa_vbep1-etenr.
wa_final-wmeng = wa_vbep1-wmeng.
wa_final-vbeln = wa_vbep1-vbeln.
wmeng1 = wa_final-wmeng.
wa_final-wmeng1 = wmeng1.
READ TABLE it_vbak INTO wa_vbak WITH KEY vbeln = wa_vbep1-vbeln.
* LOOP AT it_vbak INTO wa_vbak.
wa_final-vbeln = wa_vbak-vbeln.
wa_final-kunnr = wa_vbak-kunnr.
* wa_final-knumv = wa_vbak-knumv.
wa_final-vkorg = wa_vbak-vkorg.
wa_final-vkgrp = wa_vbak-vkgrp.
wa_vbak-vtweg = wa_vbak-vtweg.
READ TABLE it_tvgrt INTO wa_tvgrt WITH KEY vkgrp = wa_vbak-vkgrp.
wa_final-bezei = wa_tvgrt-bezei.
* if wa_final
*READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_vbak-knumv kschl = 'PR00'.
** wa_final-kschl = wa_konv-kschl.
** if wa_final-kschl EQ 'PR00'.
* wa_final-kbetr = wa_konv-kbetr.
* wa_final-waers = wa_konv-waers.
* ENDIF.
READ TABLE it_kna1 INTO wa_kna1 WITH KEY kunnr = wa_vbak-kunnr.
* LOOP AT it_kna1 INTO wa_kna1.
wa_final-name1 = wa_kna1-name1.
READ TABLE it_vbap INTO wa_vbap WITH KEY vbeln = wa_vbep1-vbeln posnr = wa_vbep1-posnr .
IF wa_vbap-abgru IS NOT INITIAL.
CONTINUE.
ENDIF.
wa_final-matnr = wa_vbap-matnr.
wa_final-posnr = wa_vbap-posnr.
wa_vbap-werks = wa_vbap-werks.
SELECT knumh
datab
matnr
kunnr
vtweg
kschl
vkorg
FROM a305
INTO TABLE it_a305
WHERE vkorg = wa_vbak-vkorg
AND kunnr = wa_vbak-kunnr
AND matnr = wa_vbap-matnr
AND vtweg = wa_vbak-vtweg
* AND datab = s_edatu
AND kschl = 'PR00'.
LOOP AT it_a305 INTO wa_a305.
*READ TABLE it_a305 INTO wa_a305 WITH KEY vkorg = wa_vbak-vkorg kunnr = wa_vbak-kunnr matnr = wa_vbap-matnr." datab = s_edatu.
wa_final-knumh = wa_a305-knumh.
ENDLOOP.
SELECT kbetr
konwa
knumh
FROM konp
INTO TABLE it_konp
WHERE knumh = wa_a305-knumh.
READ TABLE it_konp INTO wa_konp WITH KEY knumh = wa_a305-knumh.
wa_final-kbetr = wa_konp-kbetr.
wa_final-konwa = wa_konp-konwa.
READ TABLE it_vbkd INTO wa_vbkd WITH KEY vbeln = wa_vbak-vbeln.
wa_final-kursk = wa_vbkd-kursk.
IF wa_konp-konwa NE c_inr.
wa_final-kbetr = wa_konp-kbetr * wa_vbkd-kursk.
wa_final-konwa = 'INR'.
ENDIF.
READ TABLE it_marc INTO wa_marc WITH KEY matnr = wa_vbap-matnr werks = wa_vbap-werks.
wa_final-prctr = wa_marc-prctr.
READ TABLE it_vbfa INTO wa_vbfa WITH KEY vbelv = wa_vbep1-vbeln erdat = wa_vbep1-edatu vbtyp_n = 'J'.
wa_final-vbelv = wa_vbfa-vbelv.
IF wa_final-vbelv = wa_final-vbeln.
wa_final-rfmng = wa_vbfa-rfmng.
wa_final-vbeln1 = wa_vbfa-vbeln.
rfmng1 = wa_final-rfmng.
wa_final-rfmng1 = rfmng1.
READ TABLE it_likp INTO wa_likp WITH KEY vbeln = wa_vbfa-vbeln.
wa_final-wadat_ist = wa_likp-wadat_ist.
ENDIF.
lv_sum = wa_final-kbetr * wa_final-wmeng.
wa_final-lv_sum = lv_sum.
*ENDIF.
*ENDIF.
APPEND wa_final TO it_final.
* APPEND wa_final to it_zcsr_bkup_data.
CLEAR:wa_final , wa_lips , wa_likp , wa_kna1 , wa_vbak , wa_vbep1 ,wa_vbap ,wa_a305 , wa_konp,wa_tvgrt.
* MODIFY zcsr_bkup_data FROM table it_final.
ENDLOOP.
DATA : year(4) TYPE c,
month(2) TYPE c,
date(2) TYPE c.
year = sy-datum(4).
month = sy-datum+4(2).
date = sy-datum+6(2).
loop at it_final into wa_final.
wa_final1-datum = sy-datum.
wa_final1-vbeln = wa_final-vbeln.
wa_final1-kunnr = wa_final-kunnr.
wa_final1-name1 = wa_final-name1.
wa_final1-matnr = wa_final-matnr.
wa_final1-prctr = wa_final-prctr.
wa_final1-edatu = wa_final-edatu.
wa_final1-wmeng1 = wa_final-wmeng1.
wa_final1-wadat_ist = wa_final-wadat_ist.
wa_final1-rfmng1 = wa_final-rfmng1.
wa_final1-kbetr = wa_final-kbetr.
wa_final1-lv_sum = wa_final-lv_sum.
wa_final1-konwa = wa_final-konwa.
wa_final1-bezei = wa_final-bezei.
APPEND wa_final1 to it_final1.
* CLEAR : wa_final1.
endloop.
Modify zcsr_bkup_data FROM TABLE it_final1.
* endif.
* modify zcsr_bkup_data FROM TABLE it_final1.
* APPEND it_final to it_zcsr_bkup_data.
* CLEAR:wa_lips.
* ENDLOOP.
* MODIFY it_final FROM wa_final index sy-tabix TRANSPORTING bmeng edatu.
* CLEAR:wa_likp.
* ENDLOOP.
* CLEAR:wa_marc.
* ENDLOOP.
* CLEAR :wa_vbap.
* ENDLOOP.
* CLEAR : wa_kna1.
* ENDLOOP.
* CLEAR :wa_vbak.
* ENDLOOP.
* CLEAR : wa_vbep.
* CLEAR : wa_tvgrt.
* ENDIF.
* endif.
* endif.
* endif.
* endif.
* endif.
SORT it_final BY vbeln ASCENDING edatu ASCENDING.
* endloop.
*delete ADJACENT DUPLICATES FROM it_final COMPARING vbeln kunnr matnr prctr bmeng lfimg wadat_ist.
ENDFORM. "dataget
*&---------------------------------------------------------------------*
*& Form fieldcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fieldcat.
wa_fieldcat-col_pos = '1'.
wa_fieldcat-fieldname = 'VBELN'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'SALES DOCUMENT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '2'.
wa_fieldcat-fieldname = 'KUNNR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'SOLD-TO-PARTY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '3'.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'DESCRIPTION'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '4'.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'MATERIAL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '5'.
wa_fieldcat-fieldname = 'PRCTR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'VALUE STREAM'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '6'.
wa_fieldcat-fieldname = 'EDATU'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'PLAN DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '7'.
wa_fieldcat-fieldname = 'WMENG1'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'PLAN QUANTITY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '8'.
wa_fieldcat-fieldname = 'WADAT_IST'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'ACTUAL DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '9'.
wa_fieldcat-fieldname = 'RFMNG1'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'ACTUAL QUANTITY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '10'.
wa_fieldcat-fieldname = 'KBETR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'SALE PRICE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '11'.
wa_fieldcat-fieldname = 'LV_SUM'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = ' TOTAL SALE PRICE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '12'.
wa_fieldcat-fieldname = 'KONWA'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'CURRENCY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '13'.
wa_fieldcat-fieldname = 'BEZEI'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'KAM'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. "fieldcat
*&---------------------------------------------------------------------*
*& Form grid
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM grid.
g_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
is_layout = g_layout
it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_final
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM. "grid
Code for zcsr_bkup_disp
*&---------------------------------------------------------------------*
*& Report ZCSR_BKUP_DISP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zcsr_bkup_disp.
TABLES : zcsr_bkup_data.
TYPE-POOLS : slis,
vrm.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
PARAMETERS: month(15) AS LISTBOX VISIBLE LENGTH 10.
PARAMETERS: year(10) OBLIGATORY.
PARAMETERS: rev1 TYPE c RADIOBUTTON GROUP rad,
rev2 TYPE c RADIOBUTTON GROUP rad,
rev3 TYPE c RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK b1.
*INITIALIZATION.
*AT SELECTION-SCREEN OUTPUT.
DATA:name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
name = 'MONTH'.
value-key = '1'.
value-text = 'JANUARY'.
APPEND value TO list.
value-key = '2'.
value-text = 'FEBRUARY'.
APPEND value TO list.
value-key = '3'.
value-text = 'MARCH'.
APPEND value TO list.
value-key = '4'.
value-text = 'APRIL'.
APPEND value TO list.
value-key = '5'.
value-text = 'MAY'.
APPEND value TO list.
value-key = '6'.
value-text = 'JUNE'.
APPEND value TO list.
value-key = '7'.
value-text = 'JULY'.
APPEND value TO list.
value-key = '8'.
value-text = 'AUGUST'.
APPEND value TO list.
value-key = '9'.
value-text = 'SEPTEMBER'.
APPEND value TO list.
value-key = '10'.
value-text = 'OCTOBER'.
APPEND value TO list.
value-key = '11'.
value-text = 'NOVEMBER'.
APPEND value TO list.
value-key = '12'.
value-text = 'DECEMBER'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
* DATA :lv_date(12).
*
DATA: "year(4) TYPE c,
* "month(3) TYPE c,
month1(2).
* date(2) TYPE c.
* lv_date = sy-datum.
*
* year = lv_date(4).
* month = lv_date+4(2).
* date = lv_date+6(2).
*
* If month = '1'.
* month1 = 1.
* endif.
* CASE month.
* WHEN 'JANUARY'.
* month1 = '1'.
* WHEN 'FEBRUARY'.
* month1 = '2'.
* WHEN 'MARCH'.
* month1 = '3'.
* WHEN 'APRIL'.
* month1 = '4'.
* WHEN 'MAY'.
* month1 = '5'.
* WHEN 'JUNE'.
* month1 = '6'.
* ENDCASE.
* CALL FUNCTION 'CONVERSION_EXIT_SDATE_INPUT'
* EXPORTING
* input =
* IMPORTING
* OUTPUT =
* .
*
DATA : gd_date(12).
DATA : spc_date(8) TYPE c.
DATA:date TYPE dats.
DATA:date1 TYPE dats.
*
CONCATENATE '01' '.' month '.' year INTO gd_date.
* CALL FUNCTION 'CONVERSION_EXIT_SDATE_INPUT'
* EXPORTING
* input = gd_date
* IMPORTING
* OUTPUT = spc_date
* .
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
EXPORTING
iv_date = gd_date
IMPORTING
ev_month_begin_date = date
ev_month_end_date = date1.
date-option ='EQ'.
date-sign ='I'.
date-low = date.
date-high = date1.
*START-OF-SELECTION.
*
*PERFORM dataget.
*
*FORM Dataget.
* SELECT datum
* edatu
* vbeln
* kunnr
* name1
* matnr
* prctr
* wmeng1
* wadat_ist
* rfmng1
* kbetr
* lv_sum
* konwa
* bezei
* FROM zcsr_bkup_data
* INTO TABLE it_zcsr_bkup_data
Problems .
1.. where condition in zcsr_bkup_disp.
2. back up save in database without selecton screen.
3. how to call zcsr_bkup_prog in zcsr_bkup_disp.
4. plz check FM which i have created in zcsr_bkup_disp, it is throwing dump.
help.
Regards
Karan