Skip to content

Instantly share code, notes, and snippets.

@SidVal
Created Jun 29, 2016
Embed
What would you like to do?
Foros.consultoria-sap.com/t/problemas-con-pspnr-y-las-vista-de-actualizacion-z/7230
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.
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