2012 Jun 06 8:44 AM
I have created a screen for travel creation based on ztable.Data are saved in ztable through screen correctly but while displaying data it will display only data upto srno 35.while total data in ztable is srno 12 to 38.i have written the following code for the report:
*&---------------------------------------------------------------------*
*& Report ZTRIP_REPORT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTRIP_REPORT.
type-pools: slis.
tables:ztrip_domestic.
data:
BEGIN OF IT_DATA OCCURS 0,
SR_NO TYPE ZTRIP_DOMESTIC-SR_NO,
INVOICE_NO TYPE ZTRIP_DOMESTIC-INVOICE_NO,
BILL_DATE TYPE ZTRIP_DOMESTIC-BILL_DATE,
PAX_NAME TYPE ZTRIP_DOMESTIC-PAX_NAME,
APPROVAL TYPE ZTRIP_DOMESTIC-APPROVAL,
SOURCE TYPE ZTRIP_DOMESTIC-SOURCE,
DESTINATION TYPE ZTRIP_DOMESTIC-DESTINATION,
SECTOR TYPE ZTRIP_DOMESTIC-SECTOR,
TRAVEL_TYPE TYPE ZTRIP_DOMESTIC-TRAVEL_TYPE,
STATUS TYPE ZTRIP_DOMESTIC-STATUS,
AMOUNT TYPE ZTRIP_DOMESTIC-AMOUNT,
REFUND TYPE ZTRIP_DOMESTIC-REFUND,
BALANCE TYPE ZTRIP_DOMESTIC-BALANCE,
REMARK TYPE ZTRIP_DOMESTIC-REMARK,
ERDAT TYPE ZTRIP_DOMESTIC-ERDAT,
ERNAM TYPE ZTRIP_DOMESTIC-ERNAM,
END OF IT_DATA.
data: t_heading type slis_t_listheader.
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
X_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
GD_REPID LIKE SY-REPID,
GT_EVENTS TYPE SLIS_T_EVENT,
GD_PRNTPARAMS TYPE SLIS_PRINT_ALV.
*-----------------------------------------------------------------------
* SELECTION SCREEN
*-----------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK Z2 WITH FRAME TITLE TEXT-002 .
PARAMETERS: P_TRAV LIKE ZTRIP_DOMESTIC-TRAVEL_TYPE . " DEFAULT 'X' USER-COMMAND cc.
SELECT-OPTIONS: S_BDATE FOR ZTRIP_DOMESTIC-BILL_DATE.
SELECT-OPTIONS: S_SERIAL FOR ZTRIP_DOMESTIC-SR_NO.
SELECTION-SCREEN END OF BLOCK Z2.
*&------------------------start of selection------------------------------------------------*
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_LAYOUT.
PERFORM DISPLAY_ALV_REPORT.
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form DATA_RETRIEVAL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DATA_RETRIEVAL .
SELECT *
INTO CORRESPONDING FIELDS OF TABLE IT_DATA
FROM ZTRIP_DOMESTIC
WHERE TRAVEL_TYPE = P_TRAV
AND BILL_DATE IN S_BDATE
AND SR_NO IN S_SERIAL.
ENDFORM. " DATA_RETRIEVAL
*&---------------------------------------------------------------------*
*& Form BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM BUILD_FIELDCATALOG .
FIELDCATALOG-FIELDNAME = 'SR_NO'.
FIELDCATALOG-SELTEXT_L = 'Serial No'.
FIELDCATALOG-COL_POS = 1.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'INVOICE_NO'.
FIELDCATALOG-SELTEXT_L = 'Invoice No'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 2.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'BILL_DATE'.
FIELDCATALOG-SELTEXT_L = 'Bill Date'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 3.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'PAX_NAME'.
FIELDCATALOG-SELTEXT_L = 'Passanger NAME'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 4.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'APPROVAL'.
FIELDCATALOG-SELTEXT_L = 'Approval'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 5.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'SOURCE'.
FIELDCATALOG-SELTEXT_L = 'Source'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 6.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'DESTINATION'.
FIELDCATALOG-SELTEXT_L = 'Destination'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 7.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'SECTOR'.
FIELDCATALOG-SELTEXT_L = 'Sector'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 8.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TRAVEL_TYPE'.
FIELDCATALOG-SELTEXT_L = 'Travel type'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 9.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'STATUS'.
FIELDCATALOG-SELTEXT_L = 'Status'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 10.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'AMOUNT'.
FIELDCATALOG-SELTEXT_L = 'Amount'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 11.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'REFUND'.
FIELDCATALOG-SELTEXT_L = 'Refund'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 12.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'BALANCE'.
FIELDCATALOG-SELTEXT_L = 'Balance'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 13.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'REMARK'.
FIELDCATALOG-SELTEXT_L = 'Remark'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 14.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'ERDAT'.
FIELDCATALOG-SELTEXT_L = 'Creation Date'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 15.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'ERNAM'.
FIELDCATALOG-SELTEXT_L = 'Created By'.
FIELDCATALOG-REF_TABNAME = 'ZTRIP_DOMESTIC'.
FIELDCATALOG-COL_POS = 16.
*fieldcatalog-outputlen = 25.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form BUILD_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM BUILD_LAYOUT .
GD_LAYOUT-NO_INPUT = 'X'.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
GD_LAYOUT-TOTALS_TEXT = 'Totals'(201).
gd_layout-totals_only = 'X'.
gd_layout-zebra = 'X'.
ENDFORM. " BUILD_LAYOUT
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISPLAY_ALV_REPORT .
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = GD_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = '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 = GD_LAYOUT
IT_FIELDCAT = FIELDCATALOG[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'X'
* IS_VARIANT =
IT_EVENTS = GT_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_DATA
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " DISPLAY_ALV_REPORT
*-------------------------------------------------------------------*
* Form TOP-OF-PAGE *
*-------------------------------------------------------------------*
* ALV Report Header *
*-------------------------------------------------------------------*
FORM TOP-OF-PAGE.
*ALV Header declarations
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
WA_HEADER TYPE SLIS_LISTHEADER,
T_LINE LIKE WA_HEADER-INFO,
LD_LINES TYPE I,
LD_LINESC(10) TYPE C.
* Title
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'Shiv-Vani travel management system '.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
* Company Name
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = 'Travel Type: '.
CONCATENATE IT_DATA-TRAVEL_TYPE '.'
INTO WA_HEADER-INFO.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
*
* Date
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = 'Date: '.
CONCATENATE SY-DATUM+6(2) '.'
SY-DATUM+4(2) '.'
SY-DATUM(4) INTO WA_HEADER-INFO. "todays date
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
* Total No. of Records Selected
DESCRIBE TABLE IT_DATA LINES LD_LINES.
* describe table wa_eban lines ld_lines.
LD_LINESC = LD_LINES.
CONCATENATE 'Total No. of Records Selected: ' LD_LINESC
INTO T_LINE SEPARATED BY SPACE.
WA_HEADER-TYP = 'A'.
WA_HEADER-INFO = T_LINE.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER, T_LINE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = T_HEADER
i_logo = 'ZSHIV_LOGO'."'ZSHIV_LOGO'.
ENDFORM.
2012 Jun 06 11:51 AM
Hi,
Debugging the program (using break-point) and check weather the internal table it_data contains the required data or not?
Regards,
Ravi Singh
2012 Jun 06 9:19 AM
2012 Jun 06 11:51 AM
Hi,
Debugging the program (using break-point) and check weather the internal table it_data contains the required data or not?
Regards,
Ravi Singh
2012 Jun 06 12:38 PM
thnx for reply RAVI.I debugg the program and find that it_data is diplaying only value upto srno 35.
2012 Jun 06 1:46 PM
HI,
PARAMETERS: P_TRAV LIKE ZTRIP_DOMESTIC-TRAVEL_TYPE.
Please check with the parameter field value in the table. As you mention that you are not put any value in any field. So i think it fetch only those values that carries Initial Value in the table. Might Be number 38 having some value in this particular field.
try. Select-option statement for this field.
I hope you will get all the results.
Regards,
Ravi Singh
2012 Jun 06 1:59 PM
I would say yes. If he does a no. of entries check on the table by giving the parameter TRAVEL_TYPE = no value , he would get the same entries.
Regards,
Kumud
2012 Jun 07 5:00 AM
thnx ravi the problem is solved when i change parameters with select-options.
2012 Jun 06 12:17 PM
Hello Durgeshk,
Did you also check that the sr. no present in table fall within the dates specified in the report?
Regards,
Kumud
2012 Jun 07 4:55 AM
2012 Jun 06 12:35 PM
First Check in Database
Go to SE11
Select yur Ztable
Provide the same Selecton parameter as you give in your report
ie Tavel date, Serial number and Travel type
Check wehter it returns the same number of records as you expected.
compare it with Report.
Most probably, the value n Serial number may create your mismatch
regards,
Venkat
2012 Jun 06 12:42 PM
problem is coming only when i am displaying report for all means with out any selection criteria .