Inhalt von Materialstammfeldern zum Stichtag

SAP R/3 Materialwirtschaft: Einkauf, Bestandsführung, Rechnungsprüfung, Inventur, Bewertung, Leistungsabwicklung, Materialstamm...
3 Beiträge • Seite 1 von 1
3 Beiträge Seite 1 von 1

Inhalt von Materialstammfeldern zum Stichtag

Beitrag von migro (ForumUser / 7 / 0 / 0 ) »
Hallo,

ich bin auf der Suche nach einem FB oder anderer Möglichkeit, mir den Inhalt eines Materialstammfeldes zu bestimmten Stichtag auszugeben.

Kann mir da jemand weiter helfen :?:

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Beitrag von ewx (Top Expert / 4843 / 311 / 638 ) »

Code: Alles auswählen.

*"  IMPORTING
*"     VALUE(I_OBJECTCLASS) TYPE  CDOBJECTCL DEFAULT 'MATERIAL'
*"     VALUE(I_OBJECTID) TYPE  CDOBJECTV
*"     VALUE(I_DATUM) TYPE  SYDATUM
*"     VALUE(I_UZEIT) TYPE  SYUZEIT
*"     VALUE(I_TABNAME) TYPE  CDTABNAME
*"     VALUE(I_FLDNAME) TYPE  FIELDNAME
*"     VALUE(I_TABKEY) TYPE  CDTABKEY OPTIONAL
*"  EXPORTING
*"     VALUE(E_VALUE) TYPE  CDFLDVALN

*** Init
  CLEAR: gt_cdsrt[], e_value, gv_aenderung_vorhanden.

*** Lesen der Änderungsbelegköpfe
  CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
       EXPORTING
            objectclass                = i_objectclass
            objectid                   = i_objectid
            username                   = space
       TABLES
            i_cdhdr                    = gt_cdhdr
       EXCEPTIONS
            no_position_found          = 1
            wrong_access_to_archive    = 2
            time_zone_conversion_error = 3
            OTHERS                     = 4.
  IF sy-subrc = 0.
    LOOP AT gt_cdhdr.
*** Lesen der Änderungsbelegpositionen
      PERFORM aenderung_lesen USING i_tabname i_fldname i_tabkey.
    ENDLOOP.
    SORT gt_cdsrt BY tabname fname udate ASCENDING utime ASCENDING.

    LOOP AT gt_cdsrt WHERE udate < i_datum OR
            ( udate = i_datum AND utime <= i_uzeit ).
      e_value = gt_cdsrt-f_new.
      gv_aenderung_vorhanden = 'X'.
    ENDLOOP.

  ENDIF.

  IF gv_aenderung_vorhanden = space.
*** Exception auslösen, damit der Aufrufer erkennen kann, dass der
*** aktuelle Wert gültig ist.
    RAISE keine_aenderung.
  ENDIF.

ENDFUNCTION.

*---------------------------------------------------------------------*
*       FORM aenderungen_lesen                                        *
*---------------------------------------------------------------------*
FORM  aenderung_lesen USING f_tab    TYPE cdtabname
                            f_fld    TYPE fieldname
                            f_tabkey TYPE cdtabkey.

  CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
       EXPORTING
            changenumber            = gt_cdhdr-changenr
            tablekey                = f_tabkey
            tablename               = f_tab
       IMPORTING
            header                  = gs_header
       TABLES
            editpos                 = gt_cdpos
       EXCEPTIONS
            no_position_found       = 1
            wrong_access_to_archive = 2
            OTHERS                  = 3.
  IF sy-subrc = 0.
    LOOP AT gt_cdpos WHERE fname = f_fld.
      MOVE-CORRESPONDING gt_cdhdr TO gt_cdsrt.
      MOVE-CORRESPONDING gt_cdpos TO gt_cdsrt.
      APPEND gt_cdsrt.
    ENDLOOP.
  ENDIF.

ENDFORM.
Gruß,
_.Enno._

Inhalt von Materialstammfeldern zum Stichtag

Beitrag von migro (ForumUser / 7 / 0 / 0 ) »
Hallo!

Besten Dank für die schnelle Antwort!
Wie lauten denn die Deklarationen für gt_cdsrt und
gv_aenderung_vorhanden?

Seite 1 von 1

Vergleichbare Themen

2
Antw.
1727
Views
Update in Materialstammfeldern
von SAP_ENTWICKLER » 07.04.2016 14:57 • Verfasst in ABAP® Core
6
Antw.
4318
Views
Integration OrgManagement mit Stichtag
von LeonBarthez » 13.09.2007 17:30 • Verfasst in Human Resources
1
Antw.
12779
Views
2
Antw.
1885
Views
offfene Posten zum Stichtag X
von marcschoen » 24.06.2009 14:46 • Verfasst in Financials
8
Antw.
3193
Views
Von Stichtag auf gesamten Monat schließen
von Dyrdek » 12.12.2016 07:59 • Verfasst in ABAP® für Anfänger

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Unbeantwortete Forenbeiträge

Daten an Tabelle binden
vor einer Stunde von Bright4.5 1 / 37
aRFC im OO-Kontext
vor 4 Wochen von ralf.wenzel 1 / 1697
Hilfe bei SWEC/SWE2
letzen Monat von retsch 1 / 8300