Report

Download as doc, pdf, or txt
Download as doc, pdf, or txt
You are on page 1of 2

*&--------------------------------------------------------------------*

*& Report ZSF_PRINT_SALES_FORM


*&
*&--------------------------------------------------------------------*
*&
*&
*&--------------------------------------------------------------------*
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

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy