Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- P/GOBIZ/LHAUFU05
- 000446 MOVE-CORRESPONDING wa3_adr-data TO wa_l_pd.
- 000447 wa_l_pd-name1 = wa3_adr-data-name_first.
- 000448 wa_l_pd-namefir = wa3_adr-data-name_first. "#x#0000#2021.11.11.13:00 bk
- 000449 wa_l_pd-type = '1'. "#x#0000#2021.11.11.13:00 ist im SAP immer Person!
- 000450 wa_l_pd-name1 = wa3_adr-data-name_last. "#x#0000#2021.11.11.13:00 ist i
- 000451 wa_l_pd-title = wa3_adr-data-title_p.
- 000452 wa_l_pd-sort1 = wa3_adr-data-sort1_p.
- /GOBIZ/LHAUF_0000FFE
- 002861 IF <fs_gobiz_haui_gp> IS ASSIGNED.
- 002862 CLEAR <fs_gobiz_haui_gp>.
- 002863 *#x#0000#2021.11.11.13:00 Bka beg Vorbelegen Partnertyp Person bei SAP-AP
- 002864 IF it_pa_r-rolltyp = 'AP'.
- 002865 <fs_gobiz_haui_gp>-type = '1'.
- 002866 ENDIF.
- 002867 *#x#0000#2021.11.11.13:00 Bka beg
- 002868 ENDIF.
- 002869 * END MMA 20100204
- 007866 ENDIF.
- 007867 ELSEIF it_pa_r-rolltyp EQ 'DEBI'.
- 007868 *#x#0000#2021.11.11.13:00 OR it_pa_r-rolltyp EQ 'AP' .
- 007869 IF screen-name EQ subsc_namefir.
- 007870 screen-active = 0.
- 007873 screen-active = 0.
- 007874 ENDIF.
- 007875 ELSEIF it_pa_r-rolltyp EQ 'AP'. "*#x#0000#2021.11.11.13:00 bka beg AP hat V
- 007876 IF screen-name EQ subsc_type. "Typ nicht zeigen
- 007877 screen-active = 0.
- 007899 ENDIF.
- 007900 ENDIF.
- 007901 "*#x#0000#2021.11.11.13:00 bka end
- 007902 ENDFORM. " screen_gp_names
- 007903
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement