AT SELECTTION-SCREEN OUTPUT(MODIFID)

Tables: LFA1

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECTION-SCREEN: SKIP.
SELECTION-SCREEN ULINE 1(79).
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 19(35) text-007.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN ULINE 1(79).

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-115 FOR FIELD p_init.
PARAMETERS: p_init TYPE c RADIOBUTTON GROUP rb USER-COMMAND ucomm. " Recovery initiation by FI
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: BEGIN OF BLOCK b3 WITH FRAME TITLE text-121.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_ven_in TYPE LFA1-LIFNR MODIF ID abf. " Recovery Initiation for VENDOR
SELECTION-SCREEN: SKIP.
PARAMETERS: p_init1 TYPE c RADIOBUTTON GROUP rb5 MODIF ID abf. " Initiation
SELECTION-SCREEN: SKIP.
PARAMETERS: p_cait TYPE c RADIOBUTTON GROUP rb5 MODIF ID abf. " Cancelletion
SELECTION-SCREEN: SKIP.
SELECTION-SCREEN COMMENT 1(50) text-118 MODIF ID abf.
SELECTION-SCREEN: END OF BLOCK b3.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-001 FOR FIELD p_lipe.
PARAMETERS: p_lipe TYPE c RADIOBUTTON GROUP rb " LIST OF PENDING RECOFVERIES
DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-002 FOR FIELD p_postre .
PARAMETERS: p_postre TYPE c RADIOBUTTON GROUP rb. "POST RECOVERIES
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME title text-008.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-009 FOR FIELD p_ven_r MODIF ID abc.
PARAMETERS: p_ven_r TYPE c RADIOBUTTON GROUP rb1 MODIF ID abc.
SELECTION-SCREEN COMMENT 48(5) text-012 MODIF ID abc."
PARAMETERS: p_vend TYPE LFA1-LIFNR MODIF ID abc. "POST RECOVERIES interms of Vendor
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-010 FOR FIELD p_po_r MODIF ID abc.
PARAMETERS: p_po_r TYPE c RADIOBUTTON GROUP rb1 MODIF ID abc.
SELECTION-SCREEN COMMENT 48(5) text-012 MODIF ID abc.
PARAMETERS: p_po type ebeln MODIF ID abc. "POST RECOVERIES interms of PO
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-011 FOR FIELD p_ran_r MODIF ID abc.
PARAMETERS: p_ran_r TYPE c RADIOBUTTON GROUP rb1 MODIF ID abc.
SELECTION-SCREEN COMMENT 48(5) text-012 MODIF ID abc.
PARAMETERS: p_ran TYPE ebeln MODIF ID abc. "POST RECOVERIES interms of Recovery Advice Number
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: END OF BLOCK b2.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-003 FOR FIELD p_maun.
PARAMETERS: p_maun TYPE c RADIOBUTTON GROUP rb. "Mark/Unmark recovery ONHOLD
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-004 FOR FIELD p_pore.
PARAMETERS: p_pore TYPE c RADIOBUTTON GROUP rb.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN: BEGIN OF BLOCK b4 WITH FRAME TITLE text-122.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 15(15) text-009 FOR FIELD p_vendor
MODIF ID abd.
PARAMETERS: p_vendor TYPE LFA1-LIFNR MODIF ID abd. "POST Refund
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-006 FOR FIELD p_repot.
PARAMETERS: p_repot TYPE c RADIOBUTTON GROUP rb. " Report display
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: BEGIN OF BLOCK b5 WITH FRAME TITLE text-113.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-009 FOR FIELD p_ven_r1
MODIF ID abe.
PARAMETERS: p_ven_r1 TYPE c RADIOBUTTON GROUP rb2 MODIF ID abe.
SELECTION-SCREEN COMMENT 48(5) text-012 MODIF ID abe.
PARAMETERS: p_vend1 TYPE LFA1-lifnr MODIF ID abe. "Report interms of Vendor
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-010 FOR FIELD p_po_r1 MODIF ID abe.
PARAMETERS: p_po_r1 TYPE c RADIOBUTTON GROUP rb2 MODIF ID abe.
SELECTION-SCREEN COMMENT 48(5) text-012 MODIF ID abe.
PARAMETERS: p_po1 TYPE ebeln MODIF ID abe. "Report interms of PO
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-011 FOR FIELD p_ran_r1
MODIF ID abe.
PARAMETERS: p_ran_r1 TYPE c RADIOBUTTON GROUP rb2 MODIF ID abe.
SELECTION-SCREEN COMMENT 48(5) text-012 MODIF ID abe.
PARAMETERS: p_ran1(10) TYPE c MODIF ID abe. "Report interms of Recovery Advice Number
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(35) text-013 FOR FIELD p_zredo MODIF ID abe.
PARAMETERS: p_zredo TYPE c RADIOBUTTON GROUP rb2 MODIF ID abe.
SELECTION-SCREEN COMMENT 48(5) text-012 MODIF ID abe.
PARAMETERS: p_zredo1 TYPE ebeln MODIF ID abe. "Report interms of Recovery Advice Number
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: END OF BLOCK b5.

SELECTION-SCREEN: END OF BLOCK b1.

*&----------------------------------------------------------------------
*& At Selection-Screen Output To create Dynamic Selection Screen
*&----------------------------------------------------------------------

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_init = 'X'.
IF screen-group1 = 'ABC'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABD'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABE'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABF'.
screen-input = 1.
screen-active = 1.
ENDIF.
elseIF p_lipe = 'X'.
IF screen-group1 = 'ABC'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABD'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABE'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABF'.
screen-input = 0.
screen-active = 0.
ENDIF.
ELSEIF p_postre = 'X'.
IF screen-group1 = 'ABC'.
screen-input = 1.
screen-active = 1.
ELSEIF screen-group1 = 'ABD'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABE'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABF'.
screen-input = 0.
screen-active = 0.
ENDIF.
ELSEIF p_maun = 'X'.
IF screen-group1 = 'ABC'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABD'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABE'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABF'.
screen-input = 0.
screen-active = 0.
ENDIF.
ELSEIF p_pore = 'X'.
IF screen-group1 = 'ABC'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABD'.
screen-input = 1.
screen-active = 1.
ELSEIF screen-group1 = 'ABE'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABF'.
screen-input = 0.
screen-active = 0.
ENDIF.
ELSEIF p_repot = 'X'.
IF screen-group1 = 'ABC'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABD'.
screen-input = 0.
screen-active = 0.
ELSEIF screen-group1 = 'ABE'.
screen-input = 1.
screen-active = 1.
ELSEIF screen-group1 = 'ABF'.
screen-input = 0.
screen-active = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

*Text elements
*----------------------------------------------------------
* 001 List Pending Recoveries
* 002 Post Recoveries
* 003 Mark/Unmark Recovery on Hold
* 004 Post Refund
* 005 Cancelln.. of Recovery Posting
* 006 Report
* 007 Refund Recovery Process in Finance
* 008 Post Recoveries
* 009 Vendor
* 010 PO Number
* 011 Recovery Advice Number
* 012
* 013 Recov Doc Postd No
* 014 Purchasing Doc
* 015 Purchasing Doc Date
* 016 Vendor
* 017 Recovery Advice Number
* 018 Recovery Advice Date
* 019 Recovery Amount
* 020 Recovery Reason Code
* 021 Recovery Hold Indicator
* 022 Pending Recovery Amount
* 023 Pur Doc No
* 024 Pur Doc dt
* 025 Vendor
* 026 Rec Ad No
* 027 Rec Ad Dt
* 028 Rec Amt
* 029 Rec Res Cod
* 030 Rec Hld Ind
* 031 Rec Hld Res
* 032 Pen Rec Amt
* 033 ERROR-Provide the Reason for Hold
* 034 UPDATED
* 035 Y
* 036 Only Y is accepted in Hold indicator
* 037 does not Exist
* 038 Please Enter the data
* 039 Vendor
* 040 Pur Doc No
* 041 Pur Doc dt
* 042 Vendor
* 043 Rec Ad No
* 044 Rec Ad Dt
* 045 Rec Amt
* 046 Rec Res Cod
* 047 Pen Rec Amt
* 048 Amt To Reco
* 049 Status
* 050 Excess Amount:
* 051 Excess Amount
* 052 Please Calculate the Total first before POSTING
* 053 0
* 054 Please Calculate the Total first before POSTING
* 055 does not Exist
* 056 Please Enter the data
* 057 Recovery Advice Number
* 058 does not Exist
* 059 Please Enter the data
* 060 No data exist with the Vendor
* 061 does not Exist
* 062 Please Enter the data
* 063 Provide GL ACCOUNT and Bill Control No
* 064 Please Provide BILL CONTROL No
* 065 Pur Doc No
* 066 Rec Hld Ind
* 067 Rec Hld Res
* 068 STATUS
* 069 Excess Amount
* 070 Pur Doc No
* 071 Pur Doc dt
* 072 Vendor
* 073 Rec Ad No
* 074 Rec Ad Dt
* 075 Rec Amt
* 076 Rec Posted Amt
* 077 Please Select the checkbox before POSTING
* 078 Please Enter the data
* 079 Total:-
* 080 PO Number:
* 081 REPORT DATE:
* 082 Recov Adv No
* 083 Recov Adv Dt
* 084 Recov Reason
* 085 Recov Adv Amt
* 086 Rec Po Do No
* 087 Rec Po Do Dt
* 088 Bill Ctl No
* 089 Recov Amt
* 090 Recov Vendor
* 091 Vendor Code:
* 092 REPORT DATE:
* 093 Vendor Name:
* 094 Recov Adv No
* 095 Recov Adv Dt
* 096 Recov Adv Amt
* 097 Recov Post Amt
* 098 Recov Pend Amt
* 099 Please Enter the data
* 100 Please Enter the data
* 101 DETAILS OF RECOVERIES MADE FOR Recovery Document Posted Number
* 102 Recover Doc Pstd No:
* 103 REPORT DATE:
* 104 Recover Doc Posted Date:
* 105 Document No
* 106 Recov Adv No
* 107 Recov Adv Dt
* 108 Recov Adv Amt
* 109 Bill Ctl No
* 110 Recov Amt
* 111 Recov Vendor
* 112 Post Refund
* 113 Report
* 114 Vendor Name
* 115 Recovery Initiation by FI
* 116 Can
* 117 Reason For Cancellation
* 118 @5C@ Please Use 'Y' To enable Cancelletion Tag
* 119 ERROR-Provide the Reason for Cancel
* 120 Only Y is accepted in Cancel Indicator
* 121 Recovery Initiation
* 122 Post Refund
* 123 Please Provide GL Account No
* 124 Created By
* 125 Data not changed
* 126 Created On
* 127 Changed By
* 128 Changed On
* 129 Reason For Hold
* 130 Ref Do Po No
* 131 Ref Do Po Dt
* 132 Refund Amount
* 133 Altern Vend
* 134 Bill Ctr Ref


*Selection texts
*----------------------------------------------------------
* P_CAIT Cancelletion
* P_CAN
* P_INIT1 Initiation
* P_LIPE
* P_MAUN
* P_PORE
* P_POSTRE
* P_REPOT
* P_VEN_IN Vendor