Kontieren auf Innenauftrag im Auftragskopf

Code: Alles auswählen.

*---------------------------------------------------------------------*
*      Form  USEREXIT_COBL_SEND_HEADER
*---------------------------------------------------------------------*
*                                                                     *
*       This Userexit can be used to move data to the communication-  *
*       table INT_COBLF that is used in the function COBL_SEND_PBO.   *
*                                                                     *
*       This form is called from form COBL_SEND_PBO_VBAK.             *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_COBL_SEND_HEADER.

*  This example shows how to select fields that are shown in the
*  account assignment block

*  INT_COBLF-FDNAM = zzfield1.
*  INT_COBLF-OUTPUT = '1'.
*  IF T180-TRTYP NE CHARA AND
*     VBAP-KZVBR NE KZVBR_P.
*    INT_COBLF-INPUT    = '1'.
*    INT_COBLF-REQUIRED = '1'.
*  ENDIF.
*  INT_COBLF-ACTIVE = '1'.
*  APPEND INT_COBLF.

* Innenauftrag im Auftragskopf "aufmachen"
  int_coblf-fdnam = 'AUFNR'.
  int_coblf-output = '1'.
  IF T180-TRTYP NE CHARA AND
     VBAP-KZVBR NE KZVBR_P.
    INT_COBLF-INPUT    = '1'.
  ENDIF.
  INT_COBLF-ACTIVE = '1'.
  APPEND INT_COBLF.

ENDFORM.

Code: Alles auswählen.

FORM USEREXIT_COBL_RECEIVE_VBAK.
    vbak-aufnr = cobl-aufnr.
ENDFORM.

Code: Alles auswählen.

FORM USEREXIT_MOVE_FIELD_TO_COBL USING US_VBAK STRUCTURE VBAK
                                       US_VBAP STRUCTURE VBAP
                              CHANGING CH_COBL STRUCTURE COBL.
   ch_cobl-aufnr = us_vbak-aufnr.
ENDFORM.