-
-
Save SidVal/4d0c6527221165ed4ea295ab18f05dc1 to your computer and use it in GitHub Desktop.
Foros.consultoria-sap.com/t/problemas-con-pspnr-y-las-vista-de-actualizacion-z/7230
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
CLEAR: i_dba_sellist, | |
i_excl_cua_funct. | |
REFRESH: i_dba_sellist, | |
i_excl_cua_funct. | |
i_dba_sellist-viewfield = 'ZNUM_CERT'. | |
i_dba_sellist-operator = 'EQ'. | |
i_dba_sellist-value = ZNUM_CERT. | |
APPEND i_dba_sellist. | |
i_dba_sellist-viewfield = 'NUMCON'. | |
i_dba_sellist-operator = 'EQ'. | |
i_dba_sellist-value = P_NCONT. | |
APPEND i_dba_sellist. | |
i_dba_sellist-viewfield = 'PSPNR'. | |
i_dba_sellist-operator = 'EQ'. | |
i_dba_sellist-value = P_PEP. | |
APPEND i_dba_sellist. | |
CALL FUNCTION 'VIEW_MAINTENANCE_CALL' | |
EXPORTING | |
ACTION = 'U' | |
* CORR_NUMBER = ' ' | |
* GENERATE_MAINT_TOOL_IF_MISSING = ' ' | |
* SHOW_SELECTION_POPUP = ' ' | |
VIEW_NAME = 'ZPST016_V' | |
* NO_WARNING_FOR_CLIENTINDEP = ' ' | |
* RFC_DESTINATION_FOR_UPGRADE = ' ' | |
* CLIENT_FOR_UPGRADE = ' ' | |
* VARIANT_FOR_SELECTION = ' ' | |
* COMPLEX_SELCONDS_USED = ' ' | |
* CHECK_DDIC_MAINFLAG = ' ' | |
* SUPPRESS_WA_POPUP = ' ' | |
TABLES | |
DBA_SELLIST = i_dba_sellist | |
EXCL_CUA_FUNCT = i_excl_cua_funct | |
EXCEPTIONS | |
CLIENT_REFERENCE = 1 | |
FOREIGN_LOCK = 2 | |
INVALID_ACTION = 3 | |
NO_CLIENTINDEPENDENT_AUTH = 4 | |
NO_DATABASE_FUNCTION = 5 | |
NO_EDITOR_FUNCTION = 6 | |
NO_SHOW_AUTH = 7 | |
NO_TVDIR_ENTRY = 8 | |
NO_UPD_AUTH = 9 | |
ONLY_SHOW_ALLOWED = 10 | |
SYSTEM_FAILURE = 11 | |
UNKNOWN_FIELD_IN_DBA_SELLIST = 12 | |
VIEW_NOT_FOUND = 13 | |
MAINTENANCE_PROHIBITED = 14 | |
OTHERS = 15 | |
. | |
IF SY-SUBRC <> 0. | |
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO | |
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. | |
ENDIF. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
i_dba_sellist-viewfield = 'ZNUM_CERT'. | |
i_dba_sellist-operator = 'EQ'. | |
i_dba_sellist-value = ZNUM_CERT. | |
APPEND i_dba_sellist. | |
i_dba_sellist-viewfield = 'NUMCON'. | |
i_dba_sellist-operator = 'EQ'. | |
i_dba_sellist-value = P_NCONT. | |
APPEND i_dba_sellist. | |
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' | |
EXPORTING | |
INPUT = P_PEP | |
IMPORTING | |
OUTPUT = LV_POSID | |
. | |
i_dba_sellist-viewfield = 'PSPNR'. | |
i_dba_sellist-operator = 'EQ'. | |
i_dba_sellist-value = LV_POSID. | |
APPEND i_dba_sellist. | |
CALL FUNCTION 'VIEW_MAINTENANCE_CALL' | |
EXPORTING | |
ACTION = 'U' | |
* CORR_NUMBER = ' ' | |
* GENERATE_MAINT_TOOL_IF_MISSING = ' ' | |
* SHOW_SELECTION_POPUP = ' ' | |
VIEW_NAME = 'ZPST016_V' | |
* NO_WARNING_FOR_CLIENTINDEP = ' ' | |
* RFC_DESTINATION_FOR_UPGRADE = ' ' | |
* CLIENT_FOR_UPGRADE = ' ' | |
* VARIANT_FOR_SELECTION = ' ' | |
* COMPLEX_SELCONDS_USED = ' ' | |
* CHECK_DDIC_MAINFLAG = ' ' | |
* SUPPRESS_WA_POPUP = ' ' | |
TABLES | |
DBA_SELLIST = i_dba_sellist | |
EXCL_CUA_FUNCT = i_excl_cua_funct | |
EXCEPTIONS | |
CLIENT_REFERENCE = 1 | |
FOREIGN_LOCK = 2 | |
INVALID_ACTION = 3 | |
NO_CLIENTINDEPENDENT_AUTH = 4 | |
NO_DATABASE_FUNCTION = 5 | |
NO_EDITOR_FUNCTION = 6 | |
NO_SHOW_AUTH = 7 | |
NO_TVDIR_ENTRY = 8 | |
NO_UPD_AUTH = 9 | |
ONLY_SHOW_ALLOWED = 10 | |
SYSTEM_FAILURE = 11 | |
UNKNOWN_FIELD_IN_DBA_SELLIST = 12 | |
VIEW_NOT_FOUND = 13 | |
MAINTENANCE_PROHIBITED = 14 | |
OTHERS = 15 | |
. | |
IF SY-SUBRC <> 0. | |
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO | |
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. | |
ENDIF. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment