|
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  
|