Sustitución en trx. FB60

[ebelyn]

Hola! Creé una sustitución en la trx FB60 para el campo Via Pago, que se encuentra en la solapa "Pagos" la sutitución debe poner un valor como default en el campo Via Pago, y no funcionaaa!!!!!, cuando paso a la solapa pagos hay algo que la pisa y no me muestra el valor!!!! Que puedo hacer!!

Una alternativa que hice fue un field exit en el campo proveedor, en la pantalla principal que ponga el valor por default en el campo via pago de la solapa "pagos" el problema es que solo funciona si le doy "enter" si completo los campos y paso directamente a la solapa no muestra naaaaadaaa!!

S.O.S.!!

Gracias... espero algun comentariooo

[miguelig81]

q codigo estas usando.. postealo para verlo.

[DavidXD_XD]

Hola ... de casualidad la sustitucion para tu sociedad esta activada???

[ibecerra]

dime has verificado que este en la tx OBBH , si es asi dale un break point al codigo donde lo estas colocando y desde hay has el debug.
ahora me parece que despues de a ver colocado el codigo se debe ejecutar el programa.
RGUGBR00 que regenera validaciones/sustituciones/reglas

[ebelyn]

Aca envío el codigo...

Holaaa.. aca les dejo el código que estoy utilizando...

FORM u601.

  FIELD-SYMBOLS: <z_zlsch> TYPE ANY,
                          <z_lifnr>  TYPE ANY.

  DATA: l_zznrcbu TYPE lfbk-zznrcbu.

  ASSIGN ('(SAPLFDCB)invfo-zlsch') to <z_zlsch>.
  ASSIGN ('(SAPLFDCB)invfo-accnt') TO <z_lifnr>.
* Acá valido y asigno M al campo
      output = input.
*      asignamos el campo correspondiente a la via
      SELECT SINGLE zznrcbu FROM lfbk INTO l_zznrcbu WHERE lifnr = <z_lifnr>.
*      si no tiene cbu, muestro un error
      IF sy-subrc = 0.
        IF l_zznrcbu IS INITIAL.
          <z_via> = 'I'.
        ELSE.
          <z_via> = 'M'.
        ENDIF.
      ENDIF.

ENDFORM.                                                    "u601

Éste es el código, el problema es que parece ser que luego de realizar los reemplazos la pantalla se vuelve a actualizar con el valor por defecto de la via de pago , osea que no la actualiza, pero haciendo otras pruebas pude ver que el código funciona.

Maldita vía de pago!

[DavidXD_XD]

Creo q el campo de via de pago es el ZSCHL, intenta colocarle esto ....

BSEG-ZSCHL = 'M'.

Nada mas .... y mira si lo sustituye, normalmente siempre en las sustituciones se asigna directamente a la estructura y al campo de la BSEG o la BKPF .... nos cuentas como t fue

[ebelyn]

Gracias!

Muchas Gracias!!.. ya está funcionando, acá les dejo el código :

FORM u601.
  FIELD-SYMBOLS: <z_via>     TYPE ANY,
                 <z_lifnr>   TYPE ANY.

  DATA: l_zznrcbu            TYPE lfbk-zznrcbu.

  ASSIGN ('(GBTAKFI0)bseg-zlsch')  TO <z_via>.
  ASSIGN ('(SAPLFDCB)invfo-accnt') TO <z_lifnr>.

  SELECT SINGLE zznrcbu FROM lfbk INTO l_zznrcbu WHERE lifnr = <z_lifnr>.
  IF sy-subrc = 0.
    IF l_zznrcbu IS INITIAL.
      <z_via> = 'I'.
    ELSE.
      <z_via> = 'M'.
    ENDIF.
  ENDIF.

ENDFORM.                                                    "u601