[51644] in SAPr3-news
=?ISO-8859-1?Q?Re:FI:_Finden_von_Anlagenunternummern_ohne_Hauptnummer?=
daemon@ATHENA.MIT.EDU (=?ISO-8859-1?Q?Matthias_Lambrecht?)
Fri Oct 1 05:57:11 2004
To: sapr3-news@mit.edu
Date: Fri, 01 Oct 2004 11:56:55
From: =?ISO-8859-1?Q?Matthias_Lambrecht?= <matthias.lambrecht@freenet.de>
Message-ID: <415d29e7$0$9900$9b622d9e@news.freenet.de>
REPORT zfiaa_check_unternummern .
TABLES: anla.
DATA: BEGIN OF i_anla OCCURS 0,
bukrs LIKE anla-bukrs,
anln1 LIKE anla-anln1,
anln2 LIKE anla-anln2,
anlkl LIKE anla-anlkl,
END OF i_anla.
SELECT-OPTIONS: s_bukrs FOR anla-bukrs,
s_anlkl FOR anla-anlkl,
s_anln1 FOR anla-anln1.
START-OF-SELECTION.
SELECT bukrs anln1 anln2 anlkl
FROM anla
INTO TABLE i_anla
WHERE bukrs IN s_bukrs
AND anlkl IN s_anlkl
AND anln1 IN s_anln1
AND NOT exists ( SELECT anla_ch~anln1 FROM anla AS anla_ch
WHERE anla_ch~bukrs = anla~bukrs
AND anla_ch~anln1 = anla~anln1
AND anla_ch~anln2 = '0000' ).
END-OF-SELECTION.
PERFORM alv_list_display USING 'I_ANLA' i_anla[].
*&---------------------------------------------------------------------*
*& Form ALV_LIST_DISPLAY
*&---------------------------------------------------------------------*
FORM alv_list_display USING value(p_itabname) TYPE dd02l-tabname
pi_ausgabetab TYPE STANDARD TABLE.
TYPE-POOLS: slis.
DATA: li_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
ls_layout TYPE slis_layout_alv,
ls_print TYPE slis_print_alv,
l_repid TYPE sy-repid.
*______________________________________________________________________
MOVE sy-repid TO l_repid.
ls_layout-zebra = 'X'.
ls_layout-get_selinfos = 'X'.
ls_layout-confirmation_prompt = 'X'.
ls_print-no_print_selinfos = 'X'. "Selinfos nicht mitdrucken
ls_print-no_print_listinfos = 'X'.
l_repid = sy-repid.
REFRESH li_fieldcat.
PERFORM fieldcatalog_merge USING p_itabname
CHANGING li_fieldcat[].
li_fieldcat-key_sel = 'X'. "Keyfelder ausblendbar
MODIFY li_fieldcat TRANSPORTING key_sel
WHERE key = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
i_callback_program = l_repid
is_layout = ls_layout
it_fieldcat = li_fieldcat[]
is_print = ls_print
TABLES
t_outtab = pi_ausgabetab[]
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " ALV_LIST_DISPLAY
*&---------------------------------------------------------------------*
*& Form FIELDCATALOG_MERGE
*&---------------------------------------------------------------------*
FORM fieldcatalog_merge USING value(p_itabname) TYPE dd02l-tabname
CHANGING pi_fieldcat TYPE slis_t_fieldcat_alv.
DATA: l_repid TYPE sy-repid.
MOVE sy-repid TO l_repid.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = l_repid
i_internal_tabname = p_itabname
* I_STRUCTURE_NAME
* I_CLIENT_NEVER_DISPLAY = 'X'
i_inclname = l_repid
* I_BYPASSING_BUFFER
* I_BUFFER_ACTIVE
CHANGING
ct_fieldcat = pi_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " FIELDCATALOG_MERGE
--
Immer auf dem aktuellen Stand mit den Newsgroups von freenet.de:
http://newsgroups.freenet.de
