Code: Alles auswählen.
LOOP AT it_data INTO wa_data.
* diesen Funktionsbaustein brauche ich zum Aufrufen d. Smart Forms
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'Z_CUSTOMERTEST_1'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = h_fname
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3
.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION 'h_fname'
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
name = h_name
kunnr = h_kunnr
name1 = wa_data-name1
stras = wa_data-stras
telf1 = wa_data-telf1
telfx = wa_data-telfx
vbeln = wa_data-vbeln
audat = wa_data-audat
netwr = wa_data-netwr
waerk = wa_data-waerk
auart = wa_data-auart
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
TABLES
it_data = it_data
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION 'BAPI_CUSTOMER_GETDETAIL2'
EXPORTING
customerno = h_kunnr
* COMPANYCODE =
* IMPORTING
* CUSTOMERADDRESS =
* CUSTOMERGENERALDETAIL =
* CUSTOMERCOMPANYDETAIL =
* RETURN =
* TABLES
* CUSTOMERBANKDETAIL =
.
IF sy-subrc <> 0.
EXIT.
ENDIF.
MODIFY it_data FROM wa_data.
ENDLOOP.
Code: Alles auswählen.
LOOP AT it_data INTO wa_data.
* diesen Funktionsbaustein brauche ich zum Aufrufen d. Smart Forms
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'Z_CUSTOMERTEST_1'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = h_fname
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3
.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION h_fname
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
name = h_name
kunnr = h_kunnr
name1 = wa_data-name1
stras = wa_data-stras
telf1 = wa_data-telf1
telfx = wa_data-telfx
vbeln = wa_data-vbeln
audat = wa_data-audat
netwr = wa_data-netwr
waerk = wa_data-waerk
auart = wa_data-auart
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
TABLES
it_data = it_data
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION 'BAPI_CUSTOMER_GETDETAIL2'
EXPORTING
customerno = h_kunnr
* COMPANYCODE =
* IMPORTING
* CUSTOMERADDRESS =
* CUSTOMERGENERALDETAIL =
* CUSTOMERCOMPANYDETAIL =
* RETURN =
* TABLES
* CUSTOMERBANKDETAIL =
.
IF sy-subrc <> 0.
EXIT.
ENDIF.
MODIFY it_data FROM wa_data.
ENDLOOP.