SAP屠夫作品汇总3(14)

sap

PERFORM XREF_TO_RMVCT USING BKPF BSEG 1 CHANGING E_RMVCT.ENDFORM. "u200

*&---------------------------------------------------------------------*

*& Form xref_to_rmvct

*&---------------------------------------------------------------------* * text

*----------------------------------------------------------------------*

FORM XREF_TO_RMVCT

USING IS_BKPF TYPE BKPF IS_BSEG TYPE BSEG I_XREF_FIELD TYPE I

CHANGING C_RMVCT TYPE RMVCT.

DATA L_MSGV TYPE SYMSGV. DEFAULT KEY.

* either bseg-xref1 or bseg-xref2 must be used as source... IF I_XREF_FIELD <> 1 AND I_XREF_FIELD <> 2.

MESSAGE X000(GK) WITH 'UNEXPECTED VALUE I_XREF_FIELD =' I_XREF_FIELD '(MUST BE = 1 OR = 2)' ''. ENDIF.

IF ST_RMVCT IS INITIAL.

SELECT TRTYP FROM T856 INTO TABLE ST_RMVCT. ENDIF.

IF I_XREF_FIELD = 1.

C_RMVCT = IS_BSEG-XREF1. ELSE.

C_RMVCT = IS_BSEG-XREF2. ENDIF.

IF C_RMVCT IS INITIAL.

WRITE I_XREF_FIELD TO L_MSGV LEFT-JUSTIFIED. CONCATENATE TEXT-M00 L_MSGV INTO L_MSGV SEPARATED BY SPACE.* cons. transaction type is not specified => send an error message...

MESSAGE E123(G3) WITH L_MSGV. * Bitte geben Sie im Feld &1 eine Konsolidierungsbewegungsart an

ENDIF.

* c_rmvct <> initial...