Zfi r002 Top

*&---------------------------------------------------------------------*
*& Include ZFI_R002_TOP

*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Tables *
*&---------------------------------------------------------------------*
TYPE-POOLS: sscr.
TABLES : bsak,knvv,bkpf,lfa1,lfb1.
*&---------------------------------------------------------------------*
*& Internal Table *
*&---------------------------------------------------------------------*
DATA : BEGIN OF t_bsik OCCURS 0,

bukrs LIKE bsak-bukrs,
lifnr LIKE bsak-lifnr,
umsks LIKE bsak-umsks,
umskz LIKE bsak-umskz,
augdt LIKE bsak-augdt,
augbl LIKE bsak-augbl,
zuonr LIKE bsak-zuonr,
gjahr LIKE bsak-gjahr,
belnr LIKE bsak-belnr,
buzei LIKE bsak-buzei,
budat LIKE bsak-budat,
zfbdt LIKE bsad-zfbdt,
zbd1t LIKE bsad-zbd1t,
rebzg LIKE bsad-rebzg,
shkzg LIKE bsak-shkzg,
dmbtr LIKE bsak-dmbtr,
sgtxt like bsak-sgtxt,
END OF t_bsik.
DATA t_bsak LIKE t_bsik OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF t_bsid OCCURS 0,

bukrs LIKE bsad-bukrs,
kunnr LIKE bsad-kunnr,
umsks LIKE bsad-umsks,
umskz LIKE bsad-umskz,
augdt LIKE bsad-augdt,
augbl LIKE bsad-augbl,
zuonr LIKE bsad-zuonr,
gjahr LIKE bsad-gjahr,
belnr LIKE bsad-belnr,
buzei LIKE bsad-buzei,
budat LIKE bsad-budat,
zfbdt LIKE bsad-zfbdt,
rebzg LIKE bsad-rebzg,
kkber LIKE bsad-kkber,
shkzg LIKE bsad-shkzg,
dmbtr LIKE bsad-dmbtr,
END OF t_bsid.
DATA t_bsad LIKE t_bsid OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF t_man OCCURS 0,

bukrs LIKE bsak-bukrs,
ktokk LIKE t077k-ktokk,
name1 LIKE vf_kred-name1,
sortl LIKE lfa1-sortl,
waers LIKE bsak-waers,
dmbtr_t LIKE lfc1-um01s,
dmbtr LIKE lfc1-um01s,
dmbtr-1 LIKE lfc1-um01s,
dmbtr-p LIKE lfc1-um01s,
END OF t_man.
DATA : t_grand_tot LIKE t_man OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF t_kred OCCURS 0,

kunnr LIKE lfa1-kunnr,
name1 LIKE lfa1-name1,
xverr LIKE lfb1-xverr,
ktokk LIKE lfa1-ktokk,
sortl LIKE lfa1-sortl,
END OF t_kred.
DATA t_kred_cust LIKE t_kred OCCURS 0 WITH HEADER LINE.

DATA t_t077y LIKE t077y OCCURS 0 WITH HEADER LINE.
*&---------------------------------------------------------------------*
*& Variable *
*&---------------------------------------------------------------------*
DATA : d_error.
DATA : d_ov_1(15),
d_ov_2(15),
d_ov_3(15),
d_ov_4(15),
d_ov11 LIKE rfposx-verzn,
d_uline_total_f,
d_uline_f.
DATA d_ktokk_index TYPE i.

DATA d_top_count TYPE i.
DATA d_ktokk_rows TYPE i.
DATA d_rem_rows TYPE i.
DATA d_pages TYPE i.
DATA d_display TYPE i.
*&---------------------------------------------------------------------*
*& Constants *
*&---------------------------------------------------------------------*
CONSTANTS : c_max_rows TYPE i VALUE 250,

c_w_max TYPE i VALUE 190, "Max widht
c_w_page TYPE i VALUE 170, "page position
c_w_max2 TYPE i VALUE 177,
c_left_scroll TYPE i VALUE 76,
c_reserve_lines TYPE i VALUE 10,
c_koart_customer TYPE bseg-koart VALUE 'D',
c_koart_vendor TYPE bseg-koart VALUE 'K',
c_waers_idr LIKE bsak-waers VALUE 'IDR'.
*&---------------------------------------------------------------------*
*& Selection Screen *
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-t00.

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-t01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(29) text-001 FOR FIELD p_bukrs.
PARAMETERS: p_bukrs LIKE bkpf-bukrs OBLIGATORY, "DEFAULT 'A100',
p_butxt LIKE t001-butxt.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS :
s_ktokk FOR lfa1-ktokk MEMORY ID zkto,
s_akont FOR lfb1-akont MEMORY ID zako,
s_lifnr FOR bsak-lifnr MEMORY ID zlif,
s_sortl FOR lfa1-sortl MATCHCODE OBJECT zsorv.
SELECTION-SCREEN END OF BLOCK blk1.

PARAMETERS :
p_augdt LIKE bsak-augdt OBLIGATORY MEMORY ID zag,
p_ov1 LIKE rfposx-verzn OBLIGATORY DEFAULT 30,
p_ov2 LIKE rfposx-verzn OBLIGATORY DEFAULT 60,
p_ov3 LIKE rfposx-verzn OBLIGATORY DEFAULT 90.

PARAMETERS :
p_box2 AS CHECKBOX MEMORY ID zbo1,
p_box3 AS CHECKBOX MEMORY ID zbo2 DEFAULT 'X'.
PARAMETERS :
p_rad1 RADIOBUTTON GROUP zrad,
* p_brk1 RADIOBUTTON GROUP zrad,
p_rad2 RADIOBUTTON GROUP zrad DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blk.
----------------------------------------------------------------------------------
Extracted by Mass Download version 1.4.3 - E.G.Mellodew. 1998-2017. Sap Release 750

Zfi r002 Top

Uploaded by

Copyright:

Available Formats

Zfi r002 Top

Uploaded by

Document Information

Original Description:

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Zfi r002 Top

Uploaded by

Copyright:

Available Formats

&---------------------------------------------------------------------

*& Include ZFI_R002_TOP

DATA : BEGIN OF t_bsik OCCURS 0,

DATA t_bsak LIKE t_bsik OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF t_bsid OCCURS 0,

DATA : BEGIN OF t_man OCCURS 0,

DATA : t_grand_tot LIKE t_man OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF t_kred OCCURS 0,

DATA t_kred_cust LIKE t_kred OCCURS 0 WITH HEADER LINE.

DATA d_ktokk_index TYPE i.

CONSTANTS : c_max_rows TYPE i VALUE 250,

SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-t00.

SELECTION-SCREEN END OF BLOCK blk1.

SELECTION-SCREEN END OF BLOCK blk3.

SELECTION-SCREEN END OF BLOCK blk4.

SELECTION-SCREEN END OF BLOCK blk.

You might also like