...och - davon hab ich reichlich...

[code=generic]
REPORT z_co_invest_nachbuchen MESSAGE-ID z_co.
*=======================================================================
* Funktion.......: Nachbuchen von Anlagenbewegungen ohne Investitions-
* kontierung ins CO
* Trägt Kontierung im Beleg nach --> anschließend nachbuchen mit OKBA
*=======================================================================
* Zweck..........: Fehlerbeseitigung im Investitionsmanagement
*
*
*=======================================================================
* Hinweise.......: 98520
*
*
*-----------------------------------------------------------------------
* Globale Variablen
*-----------------------------------------------------------------------
DATA: g_v_bseg TYPE bseg.
*-----------------------------------------------------------------------
* Globale Tabellen
*-----------------------------------------------------------------------
DATA: g_it_bseg TYPE TABLE OF bseg.
*-----------------------------------------------------------------------
* Selection-Screen und Parameter
*-----------------------------------------------------------------------
PARAMETERS: pa_bukrs TYPE bukrs OBLIGATORY,
pa_belnr TYPE belnr_d OBLIGATORY,
pa_gjahr TYPE gjahr OBLIGATORY,
pa_anln1 TYPE anla-anln1 OBLIGATORY,
pa_anln2 TYPE anla-anln2 OBLIGATORY,
pa_xaaut AS CHECKBOX DEFAULT 'X',
pa_aufnr TYPE bseg-aufnr.
SELECTION-SCREEN SKIP.
PARAMETERS: pa_test AS CHECKBOX DEFAULT 'X'.
*=======================================================================
* START-OF-SELECTION
*=======================================================================
START-OF-SELECTION.
* relevante Belegzeile(n) selektieren
SELECT * FROM bseg INTO TABLE g_it_bseg
WHERE bukrs = pa_bukrs
AND belnr = pa_belnr
AND gjahr = pa_gjahr
" AND aufnr = space
AND anln1 = pa_anln1
AND anln2 = pa_anln2.
IF sy-subrc <> 0.
MESSAGE e005. "nix gefunden
ENDIF.
PERFORM bseg_update.
*========================== Unterprogramme =============================
*&---------------------------------------------------------------------*
*& Form BSEG_UPDATE
*&---------------------------------------------------------------------*
* fehlende Invest-Kontierung in BSEG nachtragen
*----------------------------------------------------------------------*
FORM bseg_update .
DATA: l_v_aufnr TYPE aufk-aufnr.
l_v_aufnr = pa_aufnr.
LOOP AT g_it_bseg INTO g_v_bseg.
g_v_bseg-aufnr = l_v_aufnr.
MODIFY g_it_bseg FROM g_v_bseg INDEX sy-tabix.
WRITE: / g_v_bseg-bukrs,
g_v_bseg-belnr,
g_v_bseg-gjahr,
g_v_bseg-buzei,
g_v_bseg-anln1,
g_v_bseg-anln2,
g_v_bseg-aufnr COLOR COL_NEGATIVE INTENSIFIED ON.
ENDLOOP.
IF pa_test = space.
UPDATE bseg FROM TABLE g_it_bseg.
IF sy-subrc NE 0.
MESSAGE e003.
ENDIF.
ENDIF.
ENDFORM. " BSEG_UPDATE
[/code]
Weiterhin viel Freude mit SAP...
Cheers
MrB.