Oi Ulisses
Se você tiver o TDF existe uma chamada para que você possa aplicar diversas validações. Caso contrário o jeito é partir para uma field exit.
Veja o exemplo abaixo:
FUNCTION field_exit_j_1bseries.
ASSIGN ('(SAPMJ1B1)J_1BDYDOC-PARID') TO <parid>.
ASSIGN ('(SAPMJ1B1)J_1BDYDOC-NFTYPE') TO <nftype>.
ASSIGN ('(SAPLJ1BB2)J_1BDYDOC-NFNUM') TO <nfnum>.
ASSIGN ('(SAPLJ1BB2)J_1BDYDOC-NFENUM') TO <nfenum>.
IF NOT <nfnum> IS INITIAL.
SELECT * INTO j_1bnfdoc FROM j_1bnfdoc UP TO 1 ROWS
WHERE nfnum EQ <nfnum>
AND parid EQ <parid>
AND nftype EQ <nftype>
AND series EQ input
AND cancel NE c_x
AND direct EQ c_1.
ENDSELECT.
IF sy-subrc IS INITIAL.
MESSAGE e120.
ENDIF.
ENDIF.
IF NOT <nfenum> IS INITIAL.
SELECT * INTO j_1bnfdoc FROM j_1bnfdoc UP TO 1 ROWS
WHERE nfenum EQ <nfenum>
AND parid EQ <parid>
AND nftype EQ <nftype>
AND series EQ input
AND cancel NE c_x
AND direct EQ c_1.
ENDSELECT.
IF sy-subrc IS INITIAL.
MESSAGE e120.
ENDIF.
ENDIF.
ENDFUNCTION.
Abraço
Eduardo Chagas
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.