Ayuda Field exit

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • poketina
    Senior Member
    • jul
    • 105

    #1

    Ayuda Field exit

    Hola !! quiero hacer una cosa en la FB60: que cuando modifique el valor de un campo, se rellene automaticamente otro campo con el valor correspondiente de la tabla KONA. He estado mirando y y veo q quizas pueda hacerlo con un field exit, lo que no tengo muy claro es si el field exit debe ser para el campo en el q yo meto el valor o para el que quiero q se rellene automaticamente..
    alguien tiene un manual de field exits ???
    gracias !!!!
  • poketina
    Senior Member
    • jul
    • 105

    #2
    Bueno, he estado mirando y por ahora consigo validar que el valor introducido en el primero de los campos exista en la tabla KONA, esto lo he hecho asi:

    DATA:l_knuma LIKE kona-knuma,
    l_valor LIKE dynpread-fieldvalue.

    IF input IS NOT INITIAL.
    CLEAR: l_knuma, l_texto.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
    input = input
    IMPORTING
    output = l_knuma.

    SELECT SINGLE knuma botext
    FROM kona
    INTO (l_knuma, l_texto)
    WHERE knuma = l_knuma.

    IF sy-subrc <> 0.
    CLEAR output.
    MESSAGE e023(zgr0) WITH 'El acuerdo introducido no existe'.
    ELSE.
    output = l_knuma.
    ENDIF.
    ENDIF.

    Ahora lo que no consigo es que el otro campo se me cargue con un valor que obtengo tambien de la tabla KONA...
    alguna idea ???
    gracias..

    Comentario

    • prendtorff
      Junior Member
      • ago
      • 24

      #3
      Yo lo haria asi

      Hola, te paso una funcion, qeu a mi me dio resultado varias veces:
      'DYNP_UPDATE_FIELDS'

      aca va un ejemplo de codigo fuente:

      DATA: t_dynpfields TYPE TABLE OF dynpread,
      r_dynpfields TYPE dynpread.
      DATA: l_qmcod TYPE char4.


      REFRESH t_dynpfields.

      r_dynpfields-fieldname = 'VIQMEL-QMCOD'. " Nombre del campo
      r_dynpfields-fieldvalue = l_qmcod. "Valor con el que se va a llenar el campo


      APPEND r_dynpfields TO t_dynpfields .

      CALL FUNCTION 'DYNP_UPDATE_FIELDS'
      EXPORTING
      dyname = 'SAPLIQS0' "Program name
      dynumb = '7710' "Screen number
      TABLES
      dynpfields = t_dynpfields.

      Ojala te sirva...

      saludos a todos!
      El que mas sabe,
      lo resulve mas facil...

      Comentario

      Trabajando...