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