0% found this document useful (0 votes)
34 views5 pages

ZVR Ir Report Assign3

REPORT

Uploaded by

Pradeep Reddy
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
34 views5 pages

ZVR Ir Report Assign3

REPORT

Uploaded by

Pradeep Reddy
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 5

*&---------------------------------------------------------------------*

*& Include ZVR_IR_REPORT_CC_F01


*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form INIT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form INIT .

clear:wa_knb1,wa_kna1,wa_t001,wa_adrc.
refresh:it_knb1,it_kna1,it_t001,it_adrc.

endform. " INIT


*&---------------------------------------------------------------------*
*& Form FETCH_KNB1_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form FETCH_KNB1_DATA .
select kunnr
bukrs
erdat
ernam
fdgrv
vrsnr
verdt
mgrup
uzawe from knb1
into table it_knb1
where kunnr in s_kunnr
and bukrs IN s_bukrs.

endform. " FETCH_KNB1_DATA


*&---------------------------------------------------------------------*
*& Form DISPLAY_KNB1_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form DISPLAY_KNB1_DATA .

loop at it_knb1 into wa_knb1.


write: / wa_knb1-kunnr COLOR 5 HOTSPOT,
wa_knb1-bukrs COLOR 5 HOTSPOT,
wa_knb1-erdat COLOR 5,
wa_knb1-ernam COLOR 5,
wa_knb1-fdgrv COLOR 5,
wa_knb1-vrsnr COLOR 5,
wa_knb1-verdt COLOR 5,
wa_knb1-mgrup COLOR 5,
wa_knb1-uzawe COLOR 5.
endloop.

endform. " DISPLAY_KNB1_DATA


*&---------------------------------------------------------------------*
*& Form GET_SECONDARY_LIST
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form GET_SECONDARY_LIST .

case sy-lsind.
when 1.
GET CURSOR field gv_fnam value gv_fval.
if gv_fnam = 'WA_KNB1-BUKRS'.
PERFORM FETCH_TOO1_DATA.
ELSEIF gv_fnam = 'WA_KNB1-KUNNR'.
PERFORM FETCH_KNA1_DATA.
ENDIF.
when 2.
GET CURSOR field gv_fnam value gv_fval.
if gv_fnam = 'WA_KNA1-ADRNR'.
PERFORM FETCH_ADRC_DATA.
ENDIF.
ENDCASE.
endform. " GET_SECONDARY_LIST
*&---------------------------------------------------------------------*
*& Form FETCH_KNA1_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form FETCH_KNA1_DATA .
GV_KUNNR = GV_FVAL.
PERFORM PROVIDE_LEAD_ZEROS USING GV_KUNNR.

SELECT kunnr
land1
name1
ort01
regio
stras
telf1
adrnr
ktokd
kukla FROM KNA1
INTO TABLE IT_KNA1
WHERE KUNNR = GV_KUNNR.
IF SY-SUBRC = 0.
PERFORM DISPLAY_KNA1_DATA.
ENDIF.
endform. " FETCH_KNA1_DATA
*&---------------------------------------------------------------------*
*& Form PROVIDE_LEAD_ZEROS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GV_KUNNR text
*----------------------------------------------------------------------*
form PROVIDE_LEAD_ZEROS using VAR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = VAR
IMPORTING
OUTPUT = VAR
.

endform. " PROVIDE_LEAD_ZEROS


*&---------------------------------------------------------------------*
*& Form DISPLAY_KNA1_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form DISPLAY_KNA1_DATA .

LOOP AT IT_KNA1 INTO WA_KNA1.


WRITE:/ WA_KNA1-kunnr COLOR 7,
WA_KNA1-land1 COLOR 7,
WA_KNA1-name1 COLOR 7,
WA_KNA1-ort01 COLOR 7,
WA_KNA1-regio COLOR 7,
WA_KNA1-stras COLOR 7,
WA_KNA1-telf1 COLOR 7,
WA_KNA1-adrnr COLOR 7 HOTSPOT,
WA_KNA1-ktokd COLOR 7,
WA_KNA1-kukla COLOR 7.
CLEAR WA_KNA1.
ENDLOOP.

endform. " DISPLAY_KNA1_DATA


*&---------------------------------------------------------------------*
*& Form FETCH_ADRC_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form FETCH_ADRC_DATA .
GV_ADRNR = GV_FVAL.
PERFORM PROVIDE_LEAD_ZEROS USING GV_ADRNR.
SELECT addrnumber
date_from
date_to
title
name1
city1
po_box
po_box_cty FROM ADRC
INTO TABLE IT_ADRC
WHERE addrnumber = GV_ADRNR.
IF SY-SUBRC = 0.
PERFORM DISPLAY_ADRC_DATA.
ENDIF.

endform. " FETCH_ADRC_DATA


*&---------------------------------------------------------------------*
*& Form FETCH_TOO1_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form FETCH_TOO1_DATA .

GV_BUKRS = GV_FVAL.
PERFORM PROVIDE_LEAD_ZEROS USING GV_BUKRS.

SELECT bukrs
ort01
land1
waers
spras
kokfi
adrnR FROM T001
INTO TABLE IT_T001
WHERE BUKRS = GV_BUKRS.
IF SY-SUBRC = 0.
PERFORM DISPLAY_TOO1_DATA.
ENDIF.

endform. " FETCH_TOO1_DATA


*&---------------------------------------------------------------------*
*& Form DISPLAY_TOO1_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form DISPLAY_TOO1_DATA .
LOOP AT IT_T001 INTO WA_T001.

WRITE:/ WA_T001-bukrs,
WA_T001-ort01,
WA_T001-land1,
WA_T001-waers,
WA_T001-spras,
WA_T001-kokfi,
WA_T001-adrnr.
CLEAR WA_T001.
ENDLOOP.

endform. " DISPLAY_TOO1_DATA


*&---------------------------------------------------------------------*
*& Form DISPLAY_ADRC_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form DISPLAY_ADRC_DATA .
LOOP AT IT_ADRC INTO WA_ADRC.
WRITE : / WA_ADRC-addrnumber COLOR 2,
WA_ADRC-date_from COLOR 2,
WA_ADRC-date_to COLOR 2,
WA_ADRC-title COLOR 2,
WA_ADRC-name1 COLOR 2,
WA_ADRC-city1 COLOR 2,
WA_ADRC-po_box COLOR 2,
WA_ADRC-po_box_cty COLOR 2.
CLEAR WA_ADRC.
ENDLOOP.

endform. " DISPLAY_ADRC_DATA

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy