#3
|
||||
|
||||
Si esa informacion estuve buscando y la lei, pero encontre un programa identico al que quiero usar, pero al hacer los cambios en el log no me despliega los datos que he recueperado o los datos de contexto.
Este es el programa ************************************************************************ *&---------------------------------------------------------------------* *& Nombre del Programa: ZLOG_PANELCTRL *& Paquete : ZDEVELOP *& Transporte : DEVK969645 *& Creado por : Adrian Cordova Barrientos *& Creado el : 27 Abril del 2011 *& Descripción : Log de panel de control *&---------------------------------------------------------------------* ************************************************************************ REPORT ZLOG_PANELCTRL_CPY MESSAGE-ID SABAPDOCU. TABLES ZSD_LOG_PD. SELECT-OPTIONS : GUIA FOR ZSD_LOG_PD-ID_GUIA. * ENT FOR ZSD_LOG_PD-ENTREGA, * VBELNF FOR ZSD_LOG_PD-VBELN, * FECHA FOR SY-DATUM DEFAULT SY-DATUM. * USER FOR SY-UNAME, * HORA FOR SY-UZEIT. INCLUDE: SBAL_CONSTANTS, <ICON>. DATA: G_S_LOG TYPE BAL_S_LOG, G_LOG_HANDLE TYPE BALLOGHNDL, G_T_LOG_HANDLE TYPE BAL_T_LOGH, G_S_DISPLAY_PROFILE TYPE BAL_S_PROF. DATA : IT_ZSD_LOG_PD TYPE TABLE OF ZSD_LOG_PD . FIELD-SYMBOLS : <WA_LOG> TYPE ZSD_LOG_PD. DATA : WA_LOG TYPE ZWSD_LOG_PD_DOCU. ************************************************************************ *&---------------------------------------------------------------------* * MAIN PROGRAM *&---------------------------------------------------------------------* ************************************************************************ START-OF-SELECTION. SELECT MANDT ID TYPE NUMBER_M ID_GUIA ENTREGA VBELN FECHA HORA USUARIO TEXTO INTO TABLE IT_ZSD_LOG_PD FROM ZSD_LOG_PD WHERE ID_GUIA IN GUIA. * ENTREGA IN ENT AND ** VBELN IN VBELNF AND * FECHA IN FECHA. * USUARIO IN USER AND * HORA IN HORA. DELETE IT_ZSD_LOG_PD WHERE ID IS INITIAL. DELETE IT_ZSD_LOG_PD WHERE TYPE IS INITIAL. G_S_LOG-EXTNUMBER = 'Log de Documentacion'(EXT). G_S_LOG-ALUSER = SY-UNAME. G_S_LOG-ALPROG = SY-REPID. CALL FUNCTION 'BAL_LOG_CREATE' EXPORTING I_S_LOG = G_S_LOG IMPORTING E_LOG_HANDLE = G_LOG_HANDLE EXCEPTIONS OTHERS = 1. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. PERFORM MESSAGES_ADD USING G_LOG_HANDLE. * PERFORM CREATE_DISPLAY_PROFILE CHANGING G_S_DISPLAY_PROFILE. INSERT G_LOG_HANDLE INTO TABLE G_T_LOG_HANDLE. CALL FUNCTION 'BAL_DSP_LOG_DISPLAY' * EXPORTING * I_S_DISPLAY_PROFILE = G_S_DISPLAY_PROFILE * I_T_LOG_HANDLE = G_T_LOG_HANDLE EXCEPTIONS OTHERS = 1. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. END-OF-SELECTION. ************************************************************************ *&---------------------------------------------------------------------* * messages_add *&---------------------------------------------------------------------* ************************************************************************ FORM MESSAGES_ADD USING VALUE(I_LOG_HANDLE) TYPE BALLOGHNDL. DATA L_S_MESSAGE_DEFAULTS TYPE BAL_S_MDEF. L_S_MESSAGE_DEFAULTS-LOG_HANDLE = I_LOG_HANDLE. *{MJEVERA_20110620_1416_CHANGE CALL FUNCTION 'BAL_GLB_MSG_DEFAULTS_SET' EXPORTING I_S_MSG_DEFAULTS = L_S_MESSAGE_DEFAULTS EXCEPTIONS OTHERS = 0. *}MJEVERA_20110620_1416_CHANGE SORT IT_ZSD_LOG_PD BY ENTREGA. LOOP AT IT_ZSD_LOG_PD ASSIGNING <WA_LOG>. MOVE-CORRESPONDING <WA_LOG> TO WA_LOG. PERFORM CALCULATE_FACT USING WA_LOG SY-TABIX. ENDLOOP. ENDFORM. "MESSAGES_ADD ************************************************************************ *&---------------------------------------------------------------------* * FORM calculate_flight *&---------------------------------------------------------------------* ************************************************************************ FORM CALCULATE_FACT USING WA_LOG TYPE ZWSD_LOG_PD_DOCU VALUE(V_INDEX) TYPE SY-INDEX. DATA: L_S_MDEF TYPE BAL_S_MDEF, L_S_CONTEXT TYPE ZWSD_LOG_PD_DOCU, L_ERROR TYPE BOOLEAN, L_DUMMY TYPE C. *{MJEVERA_20110620_1416_CHANGE DATA: L_S_MSG TYPE BAL_S_MSG. CALL FUNCTION 'BAL_GLB_MSG_DEFAULTS_GET' IMPORTING E_S_MSG_DEFAULTS = L_S_MDEF EXCEPTIONS OTHERS = 0. *{MJEVERA_20110620_1416_CHANGE L_S_CONTEXT-ID = WA_LOG-ID. L_S_CONTEXT-TYPE = WA_LOG-TYPE. L_S_CONTEXT-NUMBER_M = WA_LOG-NUMBER_M. L_S_CONTEXT-ENTREGA = WA_LOG-ENTREGA. L_S_CONTEXT-VBELN = WA_LOG-VBELN. L_S_CONTEXT-ID_GUIA = WA_LOG-ID_GUIA. L_S_CONTEXT-FECHA = WA_LOG-FECHA. L_S_CONTEXT-HORA = WA_LOG-HORA. L_S_CONTEXT-USUARIO = WA_LOG-USUARIO. L_S_CONTEXT-TEXTO = WA_LOG-TEXTO. L_S_MDEF-CONTEXT-TABNAME = 'ZWSD_LOG_PD_DOCU'. L_S_MDEF-CONTEXT-VALUE = L_S_CONTEXT. *{MJEVERA_20110620_1416_CHANGE CALL FUNCTION 'BAL_GLB_MSG_DEFAULTS_SET' EXPORTING I_S_MSG_DEFAULTS = L_S_MDEF EXCEPTIONS OTHERS = 0. *}JEVERA_20110620_1416_CHANGE CASE WA_LOG-TYPE . WHEN 'S'. MESSAGE S888 WITH 'Proceso concluido correctamente' WA_LOG-VBELN INTO L_DUMMY. PERFORM MSG_ADD USING WA_LOG. WHEN 'E'. MESSAGE E888 WITH 'No se concluyo proceso' WA_LOG-ENTREGA INTO L_DUMMY. PERFORM MSG_ADD USING WA_LOG. WHEN 'W'. IF WA_LOG-VBELN IS INITIAL. MESSAGE E888 WITH 'Se concluyo proceso CON WARNING' WA_LOG-ENTREGA INTO L_DUMMY. PERFORM MSG_ADD USING WA_LOG. ELSEIF WA_LOG-VBELN IS NOT INITIAL. MESSAGE E888 WITH 'Se concluyo proceso CON WARNING' WA_LOG-VBELN INTO L_DUMMY. PERFORM MSG_ADD USING WA_LOG. ENDIF. ENDCASE. ENDFORM. "CALCULATE_FACT ************************************************************************ *&---------------------------------------------------------------------* * FORM MSG_ADD *&---------------------------------------------------------------------* ************************************************************************ FORM MSG_ADD USING WA_LOG TYPE ZwSD_LOG_PD_DOCU. DATA L_S_MSG TYPE BAL_S_MSG. L_S_MSG-MSGTY = WA_LOG-TYPE. L_S_MSG-MSGID = WA_LOG-ID. L_S_MSG-MSGNO = WA_LOG-NUMBER_M. L_S_MSG-MSGV1 = WA_LOG-TEXTO. * L_S_MSG-MSGV2 = "". * L_S_MSG-MSGV3 = SY-MSGV3. * L_S_MSG-MSGV4 = SY-MSGV4. CASE WA_LOG-TYPE . WHEN 'E'. L_S_MSG-PROBCLASS = 1. WHEN 'W'. L_S_MSG-PROBCLASS = 3. WHEN 'S'. L_S_MSG-PROBCLASS = 4. ENDCASE. CALL FUNCTION 'BAL_LOG_MSG_ADD' EXPORTING I_S_MSG = L_S_MSG EXCEPTIONS LOG_NOT_FOUND = 0 OTHERS = 1. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. "MSG_ADD ************************************************************************ *&---------------------------------------------------------------------* * FORM log_show *&---------------------------------------------------------------------* ************************************************************************ FORM CREATE_DISPLAY_PROFILE CHANGING C_S_DISPLAY_PROFILE TYPE BAL_S_PROF. DATA: L_S_FCAT TYPE BAL_S_FCAT, L_S_SORT TYPE BAL_S_SORT. CALL FUNCTION 'BAL_DSP_PROFILE_SINGLE_LOG_GET' IMPORTING E_S_DISPLAY_PROFILE = G_S_DISPLAY_PROFILE EXCEPTIONS OTHERS = 0. * C_S_DISPLAY_PROFILE-TITLE = 'Log de procesos Estandard'(SET). C_S_DISPLAY_PROFILE-HEAD_TEXT = 'Relacion documentacion nuevas'(RAF). C_S_DISPLAY_PROFILE-HEAD_SIZE = 35. C_S_DISPLAY_PROFILE-TREE_SIZE = 22. C_S_DISPLAY_PROFILE-DISVARIANT-REPORT = SY-REPID. C_S_DISPLAY_PROFILE-DISVARIANT-HANDLE = 'LOG'. C_S_DISPLAY_PROFILE-SHOW_ALL = 'X'. CLEAR L_S_FCAT. L_S_FCAT-REF_TABLE = 'ZWSD_LOG_PD_DOCU'. L_S_FCAT-REF_FIELD = 'FECHA'. L_S_FCAT-COL_POS = 3. * L_S_FCAT-OUTPUTLEN = 11. APPEND L_S_FCAT TO C_S_DISPLAY_PROFILE-MESS_FCAT. CLEAR L_S_FCAT. L_S_FCAT-REF_TABLE = 'ZWSD_LOG_PD_DOCU'. L_S_FCAT-REF_FIELD = 'HORA'. L_S_FCAT-COL_POS = 4. * L_S_FCAT-OUTPUTLEN = 10. APPEND L_S_FCAT TO C_S_DISPLAY_PROFILE-MESS_FCAT. CLEAR L_S_FCAT. L_S_FCAT-REF_TABLE = 'ZWSD_LOG_PD_DOCU'. L_S_FCAT-REF_FIELD = 'ENTREGA'. L_S_FCAT-COL_POS = 3. L_S_FCAT-OUTPUTLEN = 10. APPEND L_S_FCAT TO C_S_DISPLAY_PROFILE-MESS_FCAT. * C_S_DISPLAY_PROFILE-CLBK_UCOM-USEREXITT = CONST_CALLBACK_FORM. C_S_DISPLAY_PROFILE-CLBK_UCOM-USEREXITP = SY-REPID. C_S_DISPLAY_PROFILE-CLBK_UCOM-USEREXITF = 'BAL_CALLBACK_UCOMM'. C_S_DISPLAY_PROFILE-USE_GRID = 'X'. C_S_DISPLAY_PROFILE-EXP_LEVEL = 2. ENDFORM. "CREATE_DISPLAY_PROFILE ************************************************************************ *&---------------------------------------------------------------------* * FORM BAL_CALLBACK_UCOMM *&---------------------------------------------------------------------* ************************************************************************ FORM BAL_CALLBACK_UCOMM CHANGING C_S_USER_COMMAND_DATA TYPE BAL_S_CBUC. DATA WA_VALOR TYPE BAL_S_CBUC. CASE C_S_USER_COMMAND_DATA-LIST_FIELD. WHEN 'VBELN'. MOVE-CORRESPONDING C_S_USER_COMMAND_DATA TO WA_VALOR. SET PARAMETER ID 'VF' FIELD WA_VALOR-LIST_VALUE. CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN. WHEN 'ENTREGA' . MOVE-CORRESPONDING C_S_USER_COMMAND_DATA TO WA_VALOR. SET PARAMETER ID 'VL' FIELD WA_VALOR-LIST_VALUE. CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN. ENDCASE. C_S_USER_COMMAND_DATA-UCOMM_EXEC = 'X'. ENDFORM. "BAL_CALLBACK_UCOMM
__________________
Ing. José Ernesto Vera Osorno ABAP Software Libre |
Herramientas | Buscar en Tema |
Desplegado | |
|
|