During the batch input processing of material documents (report RM07MMBL or transaction MBBM), an error occurs when processing the BI session if a document contains both items with reference to a preceding document (reservation and stock transport order) as well as items without document reference.
The BI processing terminates for 'open' items that follow an item with document reference.
Report RM07MMBL does not recognize items without document reference.
SolutionSE38 -> Module RM07MMBL: REPORT RM07MMBL MESSAGE-ID M7 NO STANDARD PAGE HEADING.
..
DATA: ALTER_TCODE LIKE SY-TCODE,
ANZAHL TYPE I,
BEZ_ART(3) TYPE C,
BEZ_NEU(3) TYPE C, <-INSERT
EOF TYPE C.
..
..
FORM MAPPE_AUFBAUEN.
..
* Neuer Transaktionscode ?
ON CHANGE OF YWEWA-TCODE.
IF NOT FLG_BELEG_OFFEN IS INITIAL.
PERFORM BELEG_SCHLIESSEN.
CLEAR: FLG_BELEG_OFFEN,
FLG_BELEG_VOLL.
ENDIF.
ENDON.
* Neue Bewegungsart ? <-INSERT
ON CHANGE OF YWEWA-BWART. <-INSERT
PERFORM PRUEFEN_UB. < -INSERT
ENDON. <-INSERT
MOVE-CORRESPONDING YWEWA TO WEWA_HEADER.
..
..
*---- Kopfdaten haben sich geändert, neuer Beleg muß geöffnet werden
PERFORM BEZUG_PRUEFEN. <-INSERT
IF WEWA_HEADER NE WEWA_HEADER_OLD. <-OLD
IF WEWA_HEADER NE WEWA_HEADER_OLD OR BEZ_ART NE BEZ_NEU. <-NEW
PERFORM BELEG_SCHLIESSEN.
PERFORM BELEG_OEFFNEN.
ENDIF.
..
..
ENDFORM.
..
..
*------------------------------------ <-INSERT
* FORM BEZUG_PRUEFEN <-INSERT
*------------------------------------ <-INSERT
FORM BEZUG_PRUEFEN. <-INSERT
CHECK AKTUELLER_TCODE EQ MB11. <-INSERT
IF NOT YWEWA-RSNUM IS INITIAL. <-INSERT
BEZ_NEU = 'RES'. <-INSERT
ELSEIF T156-KZBWA EQ '01'. <-INSERT
BEZ_NEU = 'ULB'. <-INSERT
ELSE. <-INSERT
CLEAR BEZ_NEU. <-INSERT
ENDIF. <-INSERT
ENDFORM. <-INSERT
..
..
FORM BELEG_OEFFNEN.
CHECK EOF IS INITIAL.
PERFORM PRUEFEN_UB. <-DELETE
PERFORM XT158_LESEN USING YWEWA-TCODE.
PERFORM DYNPRO_AUFBAUEN USING DYNPRO.
FLG_BELEG_OFFEN = X.
CLEAR FLG_BELEG_VOLL.
ENDFORM.
..
..
FORM BELEG_SCHLIESSEN.
..
..
*-- Andere Warenbewegungen
WHEN MB11.
*---- Reservierung
IF BEZ_ART EQ 'RES'.
PERFORM DYNPRO_BESTIMMEN USING NFRL.
*---- Umlagerungsbestellung
ELSEIF BEZ_ART EQ 'ULB'.
PERFORM DYNPRO_BESTIMMEN USING NFUL.
*---- sonstige Warenbewegungen
ELSE.
PERFORM DYNPRO_BESTIMMEN USING VOR_A.
ENDIF.
CLEAR BEZ_ART. <-INSERT
CLEAR BEZ_NEU. <-INSERT
..
ENDFORM.
If a logical change of the source of supply occurs, a new material document is created now. When creating the sequential file, which is used as the basis for report RM07MMBL, you should therefore sort according to items with document reference and items without document reference.
No comments:
Post a Comment