#2
|
||||
|
||||
Está controlado por programa para que no procese medidas por batch-input.
Nosotros tuvimos que modificar el estándar para ésto... En el código fuente del MPPERS00: * dynamische Massnahme IF sy-binpt EQ space. <<--------- AQUI LO CONTROLA * befinden wir uns im ALE-Eingang ? CLEAR: ale_flag. "XFYAHRK063273 call function 'RHAP_ALE_FLG_GET' "XFYAHRK063273 importing "XFYAHRK063273 ale_flg = ale_flag. "XFYAHRK063273 IF ale_flag IS INITIAL. "XFYAHRK063273 IF pspar-vinft NE space. "infotype view "XYLPH9K007065 PERFORM dyn_measure IN PROGRAM (view_repid). "XYLPH9K007065 ELSE. "XYLPH9K007065 PERFORM dyn_measure. ENDIF. "XYLPH9K007065 PERFORM process_measure(sapfp50m). if pspar-massn eq space. "XYLN160088_2 * depth in rp_infotyp(sapfp50g) computed "XYLN160088_3 * begin correction XYLN208111 * IMPORT depth FROM MEMORY ID 'DYNMEAS_DEPTH'."XYLN160088_2 CALL FUNCTION 'HRPAD00_GET_DYNMEAS_DEPTH' IMPORTING DEPTH = depth. * end correction XYLN208111 IF DEPTH = 1. "XYLN160088_3 * if depth = 0. "XYLN160088_2 " * Dyn. Massn. beendet, Zaehler initalisieren XYLN160088_2 clear: pspar-dmsnr, last_dmsnr. "XYLN160088_2 * begin correction XYLN208111 * free memory id 'LAST_DMSNR'. "XYLN160088_2 CALL FUNCTION 'HRPAD00_FREE_LAST_DMSNR'. * end correction XYLN208111 clear initial_values. "XYLN160088_2 refresh initial_values. "XYLN160088_2 endif. "XYLN160088_2 endif. "XYLN160088_2 ENDIF. "XFYAHRK063273 ENDIF. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|