Code: Alles auswählen.
data:ls_n1vkg type n1vkg.
field-symbols: <lr_cordpos> type ref to cl_ish_cordpos.
* Mehrfachverarbeitung über alle Einträge
loop at lt_cordpos assigning <lr_cordpos>.
<lr_cordpos>->get_data( importing e_n1vkg = ls_n1vkg ).
...
endloop.
* oder Einfachverarbeitung
read table lt_cordpos assigning <lr_cordpos> index 1.
if sy-subrc eq 0.
<lr_cordpos>->get_data( importing e_n1vkg = ls_n1vkg ).
...
endif.
Code: Alles auswählen.
field-symbols: <lr_cordpos> type ref to cl_ishmed_cordpos.
Code: Alles auswählen.
field-symbols: <lr_cordpos> type ref to cl_ishmed_prereg.
Code: Alles auswählen.
* Diagnosetext gefüllt?
dyname = 'SAPLN1_SDY_MED_DATA'.
dynumb = '0100'.
DYFIELD = 'RN1_DYNP_MED_DATA-DITXT'.
CALL FUNCTION 'GET_DYNP_VALUE'
EXPORTING
I_FIELD = dyfield
I_REPID = dyname
I_DYNNR = dynumb
* I_CONV_INPUT = ' '
* I_CONV_OUTPUT = ' '
CHANGING
O_VALUE = DIA_VALUE.
* Wunschdatum gefüllt?
dyname = 'ISH_WORKPLACE_START'.
dynumb = '0100'.
DYFIELD = 'RN1_DYNP_CSRV-DATE_APCN'.
CALL FUNCTION 'GET_DYNP_VALUE'
EXPORTING
I_FIELD = dyfield
I_REPID = dyname
I_DYNNR = dynumb
* I_CONV_INPUT = ' '
* I_CONV_OUTPUT = ' '
CHANGING
O_VALUE = DAT_VALUE.
Code: Alles auswählen.
data: lr_service type ref to CL_ISHMED_COMP_SERVICES.
try.
lr_service ?= lr_component.
* Alles in Ordnung
catch cx_root.
* Nicht gefunden
endtry.
Code: Alles auswählen.
DATA: lr_cordpos TYPE REF TO cl_ishmed_prereg,
lt_cordpos TYPE ish_t_cordpos,
lt_services TYPE ish_objectlist,
ls_nlei TYPE nlei,
lr_service TYPE REF TO cl_ishmed_service.
Field-symbols: <lr_cordpos> type ref to cl_ishmed_prereg,
<ls_services> LIKE LINE OF lt_services.
loop at lt_cordpos assigning <lr_cordpos>.
<lr_cordpos>->get_services_for_prereg( EXPORTING i_prereg = <lr_cordpos>
IMPORTING et_services = lt_services ).
endloop.
Code: Alles auswählen.
loop at lt_services assigning <ls_services>.
try.
lr_service ?= <ls_services>-object.
lr_service->get_data( importing e_nlei = ls_nlei ).
* Oder irgendeine andere von den GET_... Methoden
catch cx_root.
endtry.
endloop.