Billing Invoice Split Rule

*---------------------------------------------------------------------*
*       Data transfer for delivery related billing                    *
*---------------------------------------------------------------------*

*---------------------------------------------------------------------*
*       FORM DATEN_KOPIEREN_001                                       *
*---------------------------------------------------------------------*
*  ---> VBAK Order header          KUAGV View Sold-to                 *
*       VBAP Order item            KURGV View Payer                   *
*       VBKD Business data order   KUREV View Bill-to                 *
*       LIKP Delivery header       KUWEV View Ship-to                 *
*       LIPS Delivery item                                            *
*---------------------------------------------------------------------*

FORM DATEN_KOPIEREN_001.

* Header data
* VBRK-xxxxx = 

* Item data
* VBRP-xxxxx = 

* Additional split criteria
  DATA: BEGIN OF ZUK,
          MODUL(3) VALUE '001',
          VTWEG LIKE VBAK-VTWEG,
          SPART LIKE VBAK-SPART,
        END OF ZUK.
  ZUK-SPART = VBAK-SPART.
  ZUK-VTWEG = VBAK-VTWEG.
  VBRK-ZUKRI = ZUK.

ENDFORM.

*---------------------------------------------------------------------*
*       Data transfer for delivery related billing                    *
*---------------------------------------------------------------------*

*---------------------------------------------------------------------*
*       FORM DATEN_KOPIEREN_001                                       *
*---------------------------------------------------------------------*
*  ---> VBAK Order header          KUAGV View Sold-to                 *
*       VBAP Order item            KURGV View Payer                   *
*       VBKD Business data order   KUREV View Bill-to                 *
*       LIKP Delivery header       KUWEV View Ship-to                 *
*       LIPS Delivery item                                            *
*---------------------------------------------------------------------*

FORM DATEN_KOPIEREN_001.

* Header data
* VBRK-xxxxx = 

* Item data
* VBRP-xxxxx = 

* Additional split criteria
  DATA: BEGIN OF ZUK,
          MODUL(3) VALUE '001',
          VTWEG LIKE VBAK-VTWEG,
          SPART LIKE VBAK-SPART,
        END OF ZUK.
  ZUK-SPART = VBAK-SPART.
  ZUK-VTWEG = VBAK-VTWEG.
  VBRK-ZUKRI = ZUK.

ENDFORM.