Ver Mensaje Individual
  #2  
Viejo 06/12/06, 06:42:14
Avatar de integra
integra integra is offline
Member
 
Fecha de Ingreso: oct 2006
Mensajes: 82
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.
Responder Con Cita