CoBTE para F110

[Saul_Bolanos]

Hola buenas tardes, me encuentro haciendo una BTE para la F110 la cual debe de copiar el header del KZ al KR, al realizar solo 1 pago mediante la transacción funciona bien, el problema es que cuando realizo más de un pago en el mismo identificador me replica el HEADER en todos los documentos cuando debería de hacerlo solo en el correspondiente aqui les dejo mi codigo:

  TABLES: regupo.

  DATA: l_tcode LIKE t020-tcode.
  CALL 'GET_PARAM_TCOD' ID 'PTCOD' FIELD l_tcode.
*   t_bkpf-bktxt     it_regupo-belnr   t_bkpfsub-bktxt

  IF l_tcode EQ 'FB60' OR l_tcode EQ 'VF01' OR l_tcode EQ 'VF02' OR l_tcode EQ 'VF03' OR l_tcode EQ 'VA01' OR l_tcode EQ 'MIRO'
                       OR l_tcode EQ 'F-03' OR l_tcode EQ 'F-28' OR l_tcode EQ 'F-53' OR l_tcode EQ 'F-44' OR l_tcode EQ 'F-08'
                       OR l_tcode EQ 'F-50' OR l_tcode EQ 'FBRA' OR l_tcode EQ 'F.13' OR l_tcode EQ 'F-32' OR l_tcode EQ 'FBR2'
                       OR l_tcode EQ 'FBV0' OR l_tcode EQ 'F.13' OR l_tcode EQ 'F.80' OR l_tcode EQ 'F-58'.

  ELSE.
    DATA : BEGIN OF it_regupo OCCURS 0,
           laufd  LIKE  regupo-laufd,
           laufi  LIKE  regupo-laufi,
           bukrs  LIKE  regupo-bukrs,
           belnr  LIKE  regupo-belnr,
           bktxt  LIKE  bkpf-bktxt,
    END OF it_regupo.

    DATA : BEGIN OF it_bktxt OCCURS 0,
           bukrs  LIKE  bkpf-bukrs,
           belnr  LIKE  bkpf-belnr,
           gjahr  LIKE  bkpf-gjahr,
           bktxt  LIKE  bkpf-bktxt,
    END OF it_bktxt.

    DATA : fecha TYPE sy-datum.

    fecha = sy-datum.

    DATA : iden TYPE regupo-laufi.

    SELECT laufd laufi bukrs
    FROM regupo
    INTO CORRESPONDING FIELDS OF TABLE it_regupo
    UP TO 1 ROWS
    WHERE laufd = fecha
    AND   bukrs EQ '1000'
    ORDER BY laufi DESCENDING.

    LOOP AT it_regupo.
      iden = it_regupo-laufi.
      CLEAR it_regupo.
    ENDLOOP.

    SELECT laufd laufi bukrs belnr
    FROM regupo
    INTO CORRESPONDING FIELDS OF TABLE it_regupo
    WHERE laufd = fecha
    AND   laufi = iden
    AND   bukrs EQ '1000'.

    LOOP AT it_regupo.
      SELECT bukrs belnr gjahr bktxt blart
      FROM bkpf
      INTO CORRESPONDING FIELDS OF TABLE t_bkpf
      WHERE bukrs  EQ '1000'
      AND   blart  EQ 'KR'
      AND   gjahr  EQ '2019'
      AND   belnr  = it_regupo-belnr.
      LOOP AT t_bkpf.
        LOOP AT t_bkpfsub.
          t_bkpfsub-bktxt = t_bkpf-bktxt.
          MODIFY t_bkpfsub INDEX sy-tabix.
        ENDLOOP.
      ENDLOOP.
    ENDLOOP.
  ENDIF.

De ante mano muchas gracias.