restricted access to partner functions details screen

[Former Member]

Hi All,

i have a tricky situation,when we goto a sales order in change mode XD02...then goto header level partners...then when i double click on any partner,for example:bill to or ship to, a screen(screen 5000 from program SAPLV09C) will pop up...now i want the fields in this screen to be in DISPLAY mode ONLY

i was searching for user exits but could find none...

can anyone help me with this ???

Prasad

[Former Member · Accepted solution]

Refer FM SD_PARTNER_ADDR_DIALOG_INTERN with Line 489 'CALL SCREEN 5000 STARTING AT 10 1.'. Kindly take a help of ABAPer & check.

Hope it can help you.

Best Regards,

Ankur

[Former Member · Accepted solution]

Hi Ankur,

Yes you are right...but this is a standard FM...so am unable to make changes to this FM...but still you are exactly in the correct FM where the requirement is...

Thanks anyway for your inputs

can you tell me how should i make this screen in display mode ONLY ???

Prasad

[Former Member · Accepted solution]

Use Screen variant with T Code SHD0. Here you can make it as per the requirements.

Best Regards,

Ankur

[Former Member · Accepted solution]

Hi,

In SHD0, we are not able to open this screen 5000...so no luck with screen variants too...

The problem is ...we have found an INCLUDE LV09CF70 of function pool SAPLV09C ...But,the code is added though Enhancements spots which are not available in the version 4.7 and which are available from ECC 6.0.

My client is using Ver 4.7...

we have also written this to SAP for any patches...am still waiting for a response

in the meantime we thought, since my client is going for an upgrade early next year..we will have this issue resolved during that time...

so..if you get any solution ..it is a welcome still...

but for now...i am closing this because we are planning for an upgrade...

thanks all

Prasad

[Former Member · Accepted solution]

Hi Prasad I had a similiar requirement and I came across your post; I just could not stop my excitement as I had solved the issue and wanted to share my code with you.

l_display flag is the key, plz see my code in the post above

[Former Member · Accepted solution]

Hi,

You cracked it..it worked..Thanks for the solution

Prasad

[Former Member]

ENHANCEMENT 1 ZSD_LV09CF70. "active version

----

---

• Author : Prasenjit Bist *

• ID : PRBIST *

• Date : 28.08.2011 *

• Changes : New Devlopment *

• Change Request: *

----

---

• Description: To disable partner address dialog for change *

----

---

----

---

• LOCAL VARIABLES

----

---

DATA: l_vkorg TYPE vkorg, "Sales Country

l_kunnr TYPE kunnr, "Sold To Party

l_vtweg TYPE vtweg, "Distribution Channel

l_spart TYPE spart. "Division

DATA: l_kunnr_sh TYPE kunnr, "Ship To Party

l_land1_sh TYPE LAND1_GP. "Country Key

----

---

• CONSTANT VALUES.

----

---

CONSTANTS: lc_vbak(40) VALUE '(SAPMV45A)VBAK', "Reads header information

lc_us01(4) VALUE 'US01', "Sales Organization Country = USA

lc_usa(3) VALUE 'US', "Country for Ship To Party

lc_shp_2_party(2) VALUE 'SH', "Partner Function

lc_va01(4) VALUE 'VA01', "T.Code = 'VA01'

lc_va02(4) VALUE 'VA02'. "T.Code = 'VA02'

----

---

• FIELD SYMBOL TO HOLD XVBAK-VKORG VALUE.

----

---

FIELD-SYMBOLS: <lfs_vbak> TYPE vbak.

BREAK prbist.

IF sy-uname EQ 'PRBIST'.

• CHECK THE TRANSACTION CODE.

CASE sy-tcode.

WHEN lc_va01 OR lc_va02.

• ASSIGN VALUE OF XVBAK_VKORG TO THE FIELD SYMBOL.

ASSIGN (lc_vbak) TO <lfs_vbak>.

• CLEAR THE LOCAL VARIABLES.

CLEAR: l_vkorg, l_kunnr, l_vtweg, l_spart.

• ASSIGN LOCAL VARIABLES WITH THE VALUES FROM HEADER DATA.

l_vkorg = <lfs_vbak>-vkorg.

l_kunnr = <lfs_vbak>-kunnr.

l_vtweg = <lfs_vbak>-vtweg.

l_spart = <lfs_vbak>-spart.

• DETERMINE THE 'SHIP TO PARTY' VALUE.

SELECT SINGLE kunnr FROM knvp INTO l_kunnr_sh

WHERE kunnr EQ l_kunnr

AND vtweg EQ l_vtweg

AND spart EQ l_spart

AND parvw EQ lc_shp_2_party.

• DETERMINE COUNTRY FOR THE 'SHIP TO PARTY'.

SELECT SINGLE land1 FROM KNA1 INTO l_land1_sh

WHERE kunnr EQ l_kunnr_sh.

• IF SALES ORGANIZATION IS US01.

IF ( l_vkorg EQ lc_us01 ).

• CHECK IF THE SYSTEM PARAMETER IS INITIAL IF YES CHANGE IT TO A VALUE.

IF gvs_tc_parameters-active NE space.

CLEAR gvs_tc_parameters-active.

ENDIF.

ENDIF.

ENDCASE.

• UNASSIGN THE FIELD SYMBOL.

UNASSIGN <lfs_vbak>.

ENDIF.

ENDENHANCEMENT.

[former_member233595]

This message was moderated.