field exit BSEG-REBZG

[CESARCAES01]

hola buenas tardes. estoy nuevo en abap, y necesito hacer un field exit parael campo BSEG-REBZG, ya realice el proceso de crear la función y ya puedo trabajar con el codigo. necesito en la transacción fb65 el campo BKPF-STBLG si esta leno mostrar mun mensaje que diga el el documento esta anulado. help me please.

[Jarpi]

Hola CESARCAES01.

Si entendí bien, deberías hacer esto.

DATA: v_gjahr TYPE bkpf-gjahr,
v_stblg TYPE bkpf-stblg.

CALL FUNCTION 'GET_DYNP_VALUE'
EXPORTING
i_field = 'INVFO-REBZJ'
i_repid = 'SAPLFDCB'
i_dynnr = '0020'
CHANGING
o_value = v_gjahr.

IF v_gjahr IS NOT INITIAL.

SELECT SINGLE stblg FROM bkpf INTO v_stblg
WHERE belnr EQ input
AND gjahr EQ v_gjahr
AND bukrs EQ 'Tu Sociedad'.

ENDIF.

Y ahí, en caso de que el campo stblg contenga valores, mandas el mensaje de error de que no se puede usar ese documento.

Espero te sirva.

Saludos.

[CESARCAES01]

Hola CESARCAES01.

Si entendí bien, deberías hacer esto.

DATA: v_gjahr TYPE bkpf-gjahr,
v_stblg TYPE bkpf-stblg.

CALL FUNCTION 'GET_DYNP_VALUE'
EXPORTING
i_field = 'INVFO-REBZJ'
i_repid = 'SAPLFDCB'
i_dynnr = '0020'
CHANGING
o_value = v_gjahr.

IF v_gjahr IS NOT INITIAL.

SELECT SINGLE stblg FROM bkpf INTO v_stblg
WHERE belnr EQ input
AND gjahr EQ v_gjahr
AND bukrs EQ 'Tu Sociedad'.

ENDIF.

Y ahí, en caso de que el campo stblg contenga valores, mandas el mensaje de error de que no se puede usar ese documento.

Espero te sirva.

Saludos.


Excelente hermano, pero cmo hago si esta funcion esta relacionada con dos progrtamas y tres transacciones y dos dynpro.

[Jarpi]

La transaccion no interesa en este caso.

Duplica la función GET_DYNP_VALUE con el otro programa y su respectiva dynpro. Así obtenes el ejercicio de cualquiera de los dos programas.

Saludos.

[CESARCAES01]

Excelente Me Funciono.. Muchas Gracias... Excelente Ayuda

[CESARCAES01]

Hola.. Me Sirvio Mucho La Ayuda, Pero No Necesitan Que Sea Por Field Exot Si No Una Validacion Por Gcx2, Estoy Nuevo En Esto Y No Encuentro Q Hacer.. Si Me Puedes Ayuar Te Agradeceria