User Exit en RGGBS000 suplantar el campo BSEG-SGTX

Hola gente que tal!
Estoy haciendo un user exit para el estándar RGGBS000, en vez de modificar ese lo estoy haciendo en un Z (ZRGGBS000) y ahi coloco la logica del form. La idea es reemplazar en el campo BSEG-SGTX de la transacción F110 al momento de hacer la propuesta de pago y el pago correspondiente con la informacion que aparece en la tabla REGUH del campo LIFNR y el ZNME1 y que esto sea visible desde la FB03.

El form del UE es el siguiente:

FORM u903.

  DATA: l_name TYPE lfa1-name1.
  DATA: v_lifnr TYPE lfa1-lifnr.
  DATA: v_belnr TYPE bkpf-belnr.
  DATA: l_exp_sgtxt TYPE BSEG-SGTXT.

  data: wa type reguh.

  IF bseg-koart EQ 'K'.
    
    v_lifnr = bseg-lifnr.

    SELECT lifnr znme1
      FROM reguh
      INTO (wa-lifnr,wa-znme1)
      WHERE lifnr = v_lifnr.
    ENDSELECT.

    IF sy-subrc = 0.
        CONCATENATE wa-lifnr wa-znme1 INTO l_exp_sgtxt SEPARATED BY space.
        BSEG-SGTXT = l_exp_sgtxt.
    ENDIF.
    
    EXPORT v_lifnr TO MEMORY ID 'LIFNR'.

  ENDIF.

  IF bseg-koart EQ 'S'.

    IMPORT v_lifnr FROM MEMORY ID 'LIFNR'.

    SELECT lifnr znme1
      FROM reguh
      INTO (wa-lifnr,wa-znme1)
      WHERE lifnr = v_lifnr.
     ENDSELECT.

    IF sy-subrc = 0.
        CONCATENATE wa-lifnr wa-znme1 INTO l_exp_sgtxt SEPARATED BY space.
        BSEG-SGTXT = l_exp_sgtxt.
    ENDIF.

    FREE MEMORY ID 'LIFNR'.
  ENDIF.


ENDFORM.

Siguiendo este ejemplo h_tp://ficosapfico.blogspot.com.uy/2016/03/user-exit-to-display-vendor-name-in.html parcialmente se hace pero cuando son proveedores genericos los datos no se pueden buscar en LFNA1 sino que hay que ir a REGUH sesgun la funcional que me asesoro. Pero con este codigo trabaja, salvo que para los genericos el apuntador se pierde y no trae los datos bien.

Si alguien sabe del tema se lo agradeceria enormemente.
Saludos!

Este tema se cerró automáticamente 91 días después del último post. No se permiten nuevas respuestas.