|
CALL METHOD p_data_changed->get_cell_value
EXPORTING
i_row_id = d_mod_cells-row_id
i_fieldname = d_mod_cells-fieldname
IMPORTING
e_value = NRCONST.
?¿? Esto que significa que el campo no esta relleno
IF NRCONST IS INITIAL OR NRCONST = 0. .
?¿?
!!!
Este método te muestra un error, y el campo en un cuadro rojo, pero te deja continuar haciendo otros eventos, yo quiero que se me que de pillado hasta que lo rellene. L oque es un campo obligatorio.
!!!
CALL METHOD p_data_changed->add_protocol_entry
EXPORTING
i_msgid = '0K'
i_msgno = '000'
i_msgty = 'E'
i_msgv1 = text-m01
i_fieldname = d_mod_cells-fieldname
i_row_id = d_mod_cells-row_id.
?¿?¿? Si el campo esta relleno, que es lo que hace aquí(podrías explicarlo), podrías poner la declaración de la variables que se utiliza
ELSE.
¿?¿??¡
READ TABLE TI_ZTFACTRET INDEX
d_mod_cells-row_id.
IF SY-SUBRC EQ 0.
CONCATENATE 'CD|' NRCONST '/'
p_fecde+6(2) '.' p_fecde+4(2) '.'
p_fecde(4)
INTO TI_ZTFACTRET-BKTXT.
replace '|' WITH ' ' INTO TI_ZTFACTRET-BKTXT.
TI_ZTFACTRET-ICON = ICON_GREEN_LIGHT.
MODIFY TI_ZTFACTRET
INDEX d_mod_cells-row_id.
* Inicio IBF02 31.08.2007
d_stable-row = 'X'.
d_stable-col = 'X'.
CALL METHOD grid1->refresh_table_display
EXPORTING
is_stable = d_stable
i_soft_refresh = 'X'.
ENDIF.
ERROR = 0.
LOOP AT TI_ZTFACTRET ASSIGNING <ZTFACTRET>.
IF <ZTFACTRET>-BKTXT = ''.
ERROR = 1.
ENDIF.
ENDLOOP.
ENDIF.
ENDCASE.
ENDFORM. "data_changed
Muchas gracias por todos
|