#3
|
||||
|
||||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|