Hi all,
In my web page data is showing limited data,if my selected date range is high it is going to dump,I think it is due to large amount of data in the tables,can any one tell me the reason why it is,the same application through transation working fine(ransaction IW69),here I am sending my code also.
on Initilization
data: wa_intranet like gt_intranet.
data: c_tdate type sy-datum.
data: f_ZEQKTX TYPE KTX01,
f_PLANT TYPE WERKS_D,
f_SDATE TYPE QMDAT,
f_EDATE TYPE QMDAT.
zpl = request->get_form_field('zplant' ).
sdate = request->get_form_field('sdate').
edate = request->get_form_field('edate').
zequnr = request->get_form_field('equnr' ).
if edate is initial.
CALL FUNCTION 'ZVALDRIV_FINANCIAL_YEAR'
EXPORTING
i_sdate = sy-datum
IMPORTING
I_TDATE = c_tdate.
move c_tdate to f_edate.
else.
CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
EXPORTING
date_external = edate
IMPORTING
DATE_INTERNAL = tdate.
IF sy-subrc <> 0.
ENDIF.
move: tdate to f_edate.
endif.
if sdate is initial.
CALL FUNCTION 'ZVALDRIV_FINANCIAL_YEAR'
EXPORTING
i_sdate = sy-datum
IMPORTING
I_FDATE = c_fdate
I_TDATE = c_tdate.
move c_fdate to f_sdate.
move c_tdate to f_edate.
else.
CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
EXPORTING
date_external = sdate
IMPORTING
DATE_INTERNAL = fdate.
IF sy-subrc <> 0.
ENDIF.
move: fdate to f_sdate.
endif.
move: zpl to f_plant.
select zeqktx from zkvdequip
into zeqktx
where equnr = zequnr.
move zeqktx to f_ZEQKTX.
endselect.
CALL FUNCTION 'Z_INTRANET_DATA'
EXPORTING
zeqktx = f_zeqktx
plant = f_plant
sdate = f_sdate
edate = f_edate
tables
itab_final1 = gt_intranet
.
*IF sdate is INITIAL.
*
*
*
*
*ELSE.
*
*
*
*
*ENDIF.
*
code for functionmodule
FUNCTION Z_INTRANET_DATA.
*"----
""Local Interface:
*" IMPORTING
*" REFERENCE(ZEQKTX) TYPE KTX01
*" REFERENCE(PLANT) TYPE WERKS_D
*" REFERENCE(SDATE) TYPE QMDAT
*" REFERENCE(EDATE) TYPE QMDAT
*" TABLES
*" ITAB_FINAL1 STRUCTURE Z_STR_INTRANET
*"----
*TABLES: zkvdequip, viqmel.
DATA: i_katalogart1 LIKE qpgr-katalogart,
i_codegruppe1 LIKE qpgr-codegruppe,
i_code1 LIKE qpcd-code,
it_qpk1cd1 LIKE qpk1cd OCCURS 10 WITH HEADER LINE.
DATA: i_katalogart LIKE qpgr-katalogart,
i_codegruppe LIKE qpgr-codegruppe,
i_code LIKE qpcd-code,
it_qpk1cd LIKE qpk1cd OCCURS 10 WITH HEADER LINE.
DATA: i_katalogart2 LIKE qpgr-katalogart,
i_codegruppe2 LIKE qpgr-codegruppe,
i_code2 LIKE qpcd-code,
it_qpk1cd2 LIKE qpk1cd OCCURS 10 WITH HEADER LINE.
DATA: i_katalogart3 LIKE qpgr-katalogart,
i_codegruppe3 LIKE qpgr-codegruppe,
i_code3 LIKE qpcd-code,
it_qpk1cd3 LIKE qpk1cd OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF it_zkvdequip OCCURS 10,
equnr LIKE zkvdequip-equnr,
zeqktx LIKE zkvdequip-zeqktx,
werk LIKE zkvdequip-werk,
END OF it_zkvdequip.
DATA: BEGIN OF it_viqmel OCCURS 10,
equnr LIKE zkvdequip-equnr,
qmnum TYPE qmnum,
qmdat LIKE viqmel-qmdat,
qmtxt LIKE viqmel-qmtxt,
auszt LIKE viqmel-auszt,
END OF it_viqmel.
DATA: BEGIN OF it_viqmfe OCCURS 10,
qmnum TYPE qmnum,
otgrp LIKE viqmfe-otgrp,
fegrp LIKE viqmfe-fegrp,
oteil LIKE viqmfe-oteil,
otkat LIKE viqmfe-otkat,
fekat LIKE viqmfe-fekat,
fecod LIKE viqmfe-fecod,
END OF it_viqmfe.
DATA: BEGIN OF it_viqmur OCCURS 10,
qmnum TYPE qmnum,
urgrp LIKE viqmur-urgrp,
urcod TYPE urcod,
urkat TYPE urkat,
END OF it_viqmur.
DATA: BEGIN OF it_viqmma OCCURS 10,
qmnum TYPE qmnum,
mngrp LIKE viqmma-mngrp,
mnkat LIKE viqmma-mnkat,
mncod LIKE viqmma-mncod,
MANUM like viqmma-MANUM,
END OF it_viqmma.
DATA: BEGIN OF it_qpct OCCURS 10,
kurztext1 LIKE qpct-kurztext,
kurztext2 LIKE qpct-kurztext,
kurztext3 LIKE qpct-kurztext,
END OF it_qpct.
DATA: BEGIN OF itab_final OCCURS 10,
equnr LIKE zkvdequip-equnr,
eqktx LIKE zkvdequip-zeqktx,
werk LIKE zkvdequip-werk,
qmnum LIKE viqmel-qmnum,
qmdat LIKE viqmel-qmdat,
qmtxt LIKE viqmel-qmtxt,
auszt LIKE viqmel-auszt,
auszt1 TYPE p,
auszt2(8),
otgrp LIKE qkat-codegruppe,
fegrp LIKE viqmfe-fegrp,
urgrp LIKE viqmur-urgrp,
mngrp LIKE viqmma-mngrp,
kurztext1(40)," TYPE QCODETEXT,
kurztext2(40)," TYPE QCODETEXT,
kurztext3(40)," TYPE QCODETEXT,
kurztext4(40)," TYPE QCODETEXT,
END OF itab_final.
*parameters: zeqktx like zkvdequip-zeqktx,
*
SELECT equnr zeqktx werk FROM zkvdequip
INTO CORRESPONDING FIELDS OF TABLE it_zkvdequip
WHERE zeqktx = zeqktx and werk = plant.
SELECT equnr qmnum qmdat qmtxt auszt FROM viqmel
INTO CORRESPONDING FIELDS OF TABLE it_viqmel
FOR ALL ENTRIES IN it_zkvdequip
WHERE equnr = it_zkvdequip-equnr
AND qmdat between sdate and edate.
SELECT qmnum otgrp fegrp oteil otkat fekat fecod FROM viqmfe
INTO CORRESPONDING FIELDS OF TABLE it_viqmfe
FOR ALL ENTRIES IN it_viqmel
WHERE qmnum = it_viqmel-qmnum.
SELECT qmnum urgrp urcod urkat FROM viqmur
INTO CORRESPONDING FIELDS OF TABLE it_viqmur
FOR ALL ENTRIES IN it_viqmel
WHERE qmnum = it_viqmel-qmnum.
SELECT qmnum mngrp mnkat mncod MANUM FROM viqmma
INTO CORRESPONDING FIELDS OF TABLE it_viqmma
FOR ALL ENTRIES IN it_viqmel
WHERE qmnum = it_viqmel-qmnum.
LOOP AT it_viqmfe.
IF it_viqmfe-otgrp IS INITIAL.
CONTINUE.
ENDIF.
IF it_viqmfe-fegrp IS INITIAL.
CONTINUE.
ENDIF.
MOVE: it_viqmfe-otkat TO i_katalogart,
it_viqmfe-otgrp TO i_codegruppe,
it_viqmfe-oteil TO i_code,
it_viqmfe-fekat TO i_katalogart1,
it_viqmfe-fegrp TO i_codegruppe1,
it_viqmfe-fecod TO i_code1.
*********using function module to convert code into text
CALL FUNCTION 'QPK1_GP_CODE_SELECTION'
EXPORTING
i_katalogart = i_katalogart
i_codegruppe = i_codegruppe
i_code = i_code
i_sprache = sy-langu
i_winx1 = 10
i_winx2 = 70
i_winy1 = 5
i_winy2 = 25
i_return_if_one = 'X'
TABLES
t_qpk1cdtab = it_qpk1cd.
IF sy-subrc <> 0.
ENDIF.
CALL FUNCTION 'QPK1_GP_CODE_SELECTION'
EXPORTING
i_katalogart = i_katalogart1
i_codegruppe = i_codegruppe1
i_code = i_code1
i_sprache = sy-langu
i_winx1 = 10
i_winx2 = 70
i_winy1 = 5
i_winy2 = 25
i_return_if_one = 'X'
TABLES
t_qpk1cdtab = it_qpk1cd1.
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
LOOP AT it_viqmur.
IF it_viqmur-urgrp IS INITIAL.
CONTINUE.
ENDIF.
MOVE: it_viqmur-urgrp TO i_codegruppe2,
it_viqmur-urkat TO i_katalogart2,
it_viqmur-urcod TO i_code2.
CALL FUNCTION 'QPK1_GP_CODE_SELECTION'
EXPORTING
i_katalogart = i_katalogart2
i_codegruppe = i_codegruppe2
i_code = i_code2
i_sprache = sy-langu
i_winx1 = 10
i_winx2 = 70
i_winy1 = 5
i_winy2 = 25
i_return_if_one = 'X'
TABLES
t_qpk1cdtab = it_qpk1cd2.
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
LOOP AT it_viqmma.
IF it_viqmma-mngrp IS INITIAL.
CONTINUE.
ENDIF.
MOVE: it_viqmma-mngrp TO i_codegruppe3,
it_viqmma-mnkat TO i_katalogart3,
it_viqmma-mncod TO i_code3.
CALL FUNCTION 'QPK1_GP_CODE_SELECTION'
EXPORTING
i_katalogart = i_katalogart3
i_codegruppe = i_codegruppe3
i_code = i_code3
i_sprache = sy-langu
i_winx1 = 10
i_winx2 = 70
i_winy1 = 5
i_winy2 = 25
i_return_if_one = 'X'
TABLES
t_qpk1cdtab = it_qpk1cd3.
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
******************moving values to itab_final.
LOOP AT it_viqmel.
READ TABLE it_viqmfe WITH KEY qmnum = it_viqmel-qmnum.
READ TABLE it_viqmur WITH KEY qmnum = it_viqmel-qmnum.
READ TABLE it_viqmma WITH KEY qmnum = it_viqmel-qmnum.
READ TABLE it_qpk1cd WITH KEY katalogart = it_viqmfe-otkat
codegruppe = it_viqmfe-otgrp
code = it_viqmfe-oteil.
READ TABLE it_qpk1cd1 WITH KEY katalogart = it_viqmfe-fekat
codegruppe = it_viqmfe-fegrp
code = it_viqmfe-fecod.
READ TABLE it_qpk1cd2 WITH KEY katalogart = it_viqmur-urkat
codegruppe = it_viqmur-urgrp
code = it_viqmur-urcod.
READ TABLE it_qpk1cd3 WITH KEY katalogart = it_viqmma-mnkat
codegruppe = it_viqmma-mngrp
code = it_viqmma-mncod .
DATA: down_time TYPE p.
DATA: down_time_c(8).
down_time = it_viqmel-auszt / 60.
down_time_c = down_time / 60.
MOVE : it_viqmel-qmnum to itab_final1-qmnum,
it_viqmel-qmtxt TO itab_final1-qmtxt,
down_time_c TO itab_final1-auszt2,
it_qpk1cd-KURZTEXTCD TO itab_final1-kurztext1,
it_qpk1cd1-KURZTEXTCD TO itab_final1-kurztext2,
it_qpk1cd2-KURZTEXTCD TO itab_final1-kurztext3,
it_qpk1cd3-KURZTEXTCD TO itab_final1-kurztext4.
APPEND itab_final1." sorted by auszt2.
clear itab_final1.
clear : it_viqmel,it_viqmfe,it_viqmur,it_viqmma,it_qpk1cd,it_qpk1cd1,it_qpk1cd2,it_qpk1cd3.
ENDLOOP.
ENDFUNCTION.
Thanks®ds,
Sree.
Bluesky
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.