Report
Report
Report
ZSF_PRINT_SALES_FORM.
TABLES : NAST.
*PARAMETERs : p_vbeln type vbak-vbeln.
DATA: retcode
LIKE sy-subrc.
"Returncode
DATA: xscreen(1) TYPE c.
START-OF-SELECTION.
*&--------------------------------------------------------------------*
*&
Form CALL_SSF
*&--------------------------------------------------------------------*
*
text
*---------------------------------------------------------------------*
* --> p1
text
* <-- p2
text
*---------------------------------------------------------------------*
form ajay USING return_code us_screen.
CLEAR retcode.
xscreen = us_screen.
PERFORM processing USING us_screen.
endform.
" CALL_SSF
*&--------------------------------------------------------------------*
*&
Form processing
*&--------------------------------------------------------------------*
*
text
*---------------------------------------------------------------------*
*
-->P_US_SCREEN text
*---------------------------------------------------------------------*
form processing using proc_screen..
DATA : LV_FORM TYPE TDSFNAME VALUE 'ZSALES_ORDER_FORM1'.
DATA : LV_FM_NAME TYPE RS38L_FNAM.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname
= LV_FORM
*
VARIANT
= ' '
*
DIRECT_CALL
= ' '
IMPORTING
FM_NAME
= LV_FM_NAME
EXCEPTIONS
NO_FORM
= 1
NO_FUNCTION_MODULE
= 2
OTHERS
= 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA : LV_VBELN TYPE VBAK-VBELN.
LV_VBELN = NAST-OBJKY.
CALL FUNCTION LV_FM_NAME "'/1BCDWB/SF00000189'
EXPORTING
*
ARCHIVE_INDEX
=
*
ARCHIVE_INDEX_TAB
=
*
ARCHIVE_PARAMETERS
=
*
CONTROL_PARAMETERS
=
*
MAIL_APPL_OBJ
=
*
MAIL_RECIPIENT
=
*
MAIL_SENDER
=
*
OUTPUT_OPTIONS
=
*
USER_SETTINGS
= 'X'
im_vbeln
= LV_VBELN
* IMPORTING
*
DOCUMENT_OUTPUT_INFO
=
*
JOB_OUTPUT_INFO
=
*
JOB_OUTPUT_OPTIONS
=
EXCEPTIONS
FORMATTING_ERROR
= 1
INTERNAL_ERROR
= 2
SEND_ERROR
= 3
USER_CANCELED
= 4
OTHERS
= 5
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.
" processing