Searching program for smartform

Question

Hello Expert
How can I seach a program for smartform zxyz
Eg VA01 enter the order no and all the relavent data
     and when enter the output will display the the smartform zxyz
Thanks
Monto

Answer 1

Well Atish and Experts
Thanks for your suggestion, I can see the program name also in smarform
and clicking the function /bcdwb/sf00000053 when double click i can see my smartform name as FORM TYPE TDSFNAME VALUE 'Z_DELIVERY_NOTE',
(Note: Z_delivery_note is a smartform)
Now I have 2 logs for Quality Assurance , currently I can one logo .
but management need only those log to be display with the condition of logo to be display when the order type = ZOR (Sales order)
       Sales organization = 'OMAN'
         Division = 11
           sales ofice = TWMB
then the DNV logo should display
esle
            SAI logo should display at the bottom
So how can Write a condition to display the logo or is there any way
regards
Monto  
FUNCTION /1BCDWB/SF00000053.
""Global interface:
*"       IMPORTING
*"             VALUE(ARCHIVE_INDEX) TYPE  TOA_DARA OPTIONAL
*"             VALUE(ARCHIVE_INDEX_TAB) TYPE  TSFDARA OPTIONAL
*"             VALUE(ARCHIVE_PARAMETERS) TYPE  ARC_PARAMS OPTIONAL
*"             VALUE(CONTROL_PARAMETERS) TYPE  SSFCTRLOP OPTIONAL
*"             VALUE(MAIL_APPL_OBJ) TYPE  SWOTOBJID OPTIONAL
*"             VALUE(MAIL_RECIPIENT) TYPE  SWOTOBJID OPTIONAL
*"             VALUE(MAIL_SENDER) TYPE  SWOTOBJID OPTIONAL
*"             VALUE(OUTPUT_OPTIONS) TYPE  SSFCOMPOP OPTIONAL
*"             VALUE(USER_SETTINGS) TYPE  TDBOOL DEFAULT 'X'
*"             REFERENCE(IS_DLV_DELNOTE) TYPE  LEDLV_DELNOTE
*"       EXPORTING
*"             VALUE(DOCUMENT_OUTPUT_INFO) TYPE  SSFCRESPD
*"             VALUE(JOB_OUTPUT_INFO) TYPE  SSFCRESCL
*"             VALUE(JOB_OUTPUT_OPTIONS) TYPE  SSFCRESOP
*"       EXCEPTIONS
*"              FORMATTING_ERROR
*"              INTERNAL_ERROR
*"              SEND_ERROR
*"              USER_CANCELED
DATA: %INPUT     TYPE SSFCOMPIN,
      %RESULT_OP TYPE SSFCRESOP,
      %RESULT_PD TYPE SSFCRESPD,
      %RESULT_CL TYPE SSFCRESCL,
      %TABDEF    LIKE LINE OF %TABDEFS,
      %ARCTAB    TYPE TSFDARA,
      BEGIN OF %FULLNAME,
        FORM TYPE TDSFNAME VALUE 'Z_DELIVERY_NOTE',
        VARI TYPE TDVARIANT,
        ACTV TYPE TDBOOL VALUE 'X',
      END OF %FULLNAME.
TYPES: T_XDF_ELEM(255)     TYPE C,
       T_XDF_ATTR(255)     TYPE C.
DATA:  %IMPORT_PARAMETER   TYPE TABLE OF RSIMP WITH HEADER LINE,
       %CHANGING_PARAMETER TYPE TABLE OF RSCHA WITH HEADER LINE,
       %TABLES_PARAMETER   TYPE TABLE OF RSTBL WITH HEADER LINE,
       %EXPORT_PARAMETER   TYPE TABLE OF RSEXP WITH HEADER LINE,
       %EXCEPTION_LIST     TYPE TABLE OF RSEXC WITH HEADER LINE.
DATA:  %XDF_TABLE          TYPE TSFIXML,
       %XDF_LENGTH         TYPE I.
DATA:  %XDF_DOCUMENT       TYPE REF TO IF_IXML_DOCUMENT,
       %XDF_PARAMETER      TYPE REF TO IF_IXML_ELEMENT,
       %L_NAME             TYPE STRING,
       %L_VALUE            TYPE STRING,
       %L_OBJECT           TYPE STRING,
       %L_DATE             TYPE STRING,
       %L_TIME             TYPE STRING,
       %L_FLAT             TYPE C,
       %RC                 TYPE SY-SUBRC.
FIELD-SYMBOLS: <%DATA_OBJECT> TYPE ANY.
CLASS CL_IXML DEFINITION LOAD.
CONSTANTS: %C_XDF_ROOT_ELEMENT TYPE T_XDF_ELEM VALUE 'XDF',
     %C_XDF_ATTR_TYPE        TYPE T_XDF_ATTR VALUE 'TYPE',
     %C_XDF_ATTR_TIMESTAMP   TYPE T_XDF_ATTR VALUE 'TIMESTAMP',
     %C_XDF_ATTR_OBJ         TYPE T_XDF_ATTR VALUE 'OBJECT'.
DATA:  %XDF_FACTORY      TYPE REF TO IF_IXML,
       %XDF_ROOT_ELEMENT TYPE REF TO IF_IXML_ELEMENT.
DATA:  %L_GETSTATE    TYPE DDTYPEGET,
       %L_TYPE        TYPE DDTYPEKIND,
       %L_TYPE_NAME   TYPE TYPENAME,
       %L_TYPE_CH     LIKE RS38L-IMPORT_TYP,
       %L_DDIC_OBJ    TYPE DDTYPES OCCURS 0 WITH HEADER LINE,
       %L_DD02L_STATE TYPE DD02L   OCCURS 0 WITH HEADER LINE,
       %L_DD04L_STATE TYPE DD04L   OCCURS 0 WITH HEADER LINE,
       %L_DD40L_STATE TYPE DD40L   OCCURS 0 WITH HEADER LINE,
       %L_XMLOUTPUT   TYPE SSFXMLOUT,
       %L_SFSY        TYPE SFSY.
TYPE-POOLS: ABAP.
DATA: %XDF2_IXML        TYPE REF TO IF_IXML,
      %XDF2_DOCUMENT    TYPE REF TO IF_IXML_DOCUMENT,
      %XDF2_SRC_OBJECTS TYPE ABAP_TRANS_SRCBIND_TAB,
      %XDF2_SRC_OBJECT  LIKE LINE OF %XDF2_SRC_OBJECTS.
DEFINE XDF2_APPEND_SRC_OBJECT.
  %XDF2_SRC_OBJECT-NAME  = '&1'.
  TRANSLATE %XDF2_SRC_OBJECT-NAME TO UPPER CASE.
  GET REFERENCE OF &2 INTO %XDF2_SRC_OBJECT-VALUE.
  APPEND %XDF2_SRC_OBJECT TO %XDF2_SRC_OBJECTS.
END-OF-DEFINITION.
DEFINE XDF_GET_DDIC_INFO.
  CLEAR %L_DDIC_OBJ.
  CLEAR %L_DDIC_OBJ.
  IF NOT &2 IS INITIAL.
    %L_TYPE_NAME = &2.
  ELSEIF NOT &1-TYP IS INITIAL.
    %L_TYPE_NAME = &1-TYP.
  ELSEIF NOT &1-LINE_OF IS INITIAL.
    %L_TYPE_NAME = &1-LINE_OF.
  ELSEIF NOT &1-TABLE_OF IS INITIAL.
    %L_TYPE_NAME = &1-TABLE_OF.
  ELSE.
    CLEAR %L_TYPE_NAME.
  ENDIF.
  CALL FUNCTION 'DDIF_TYPEINFO_GET'
       EXPORTING TYPENAME = %L_TYPE_NAME
       IMPORTING TYPEKIND = %L_TYPE.
  %L_DDIC_OBJ-TYPENAME = %L_TYPE_NAME.
  %L_DDIC_OBJ-TYPEKIND = %L_TYPE.
  IF NOT %L_DDIC_OBJ IS INITIAL.
    COLLECT %L_DDIC_OBJ.
  ENDIF.
END-OF-DEFINITION.
DEFINE XDF_CREATE_DATA_STREAM.
  CLEAR: %L_OBJECT, %L_DATE, %L_TIME, %L_NAME, %L_TYPE_NAME,
         %L_VALUE.
  IF &3 = 'T'.
    IF NOT &2 IS INITIAL.
      %L_TYPE_NAME = &2.
    ELSEIF NOT &1-TYP IS INITIAL.
      %L_TYPE_NAME = &1-TYP.
    ENDIF.
    IF NOT %L_TYPE_NAME IS INITIAL.
      %L_TYPE_CH = %L_TYPE_NAME.
      CALL FUNCTION 'RS_TYPE_EXISTENCE_CHECK'
           EXPORTING
             TYPE = %L_TYPE_CH
           IMPORTING
             STRUCTURE_IS_FLAT = %L_FLAT
           EXCEPTIONS
             OTHERS = 1.
    ENDIF.
    IF %L_FLAT NE 'X'.
      CONCATENATE &1-PARAMETER '[]' INTO %L_NAME.
    ELSE.
      %L_NAME = &1-PARAMETER.
    ENDIF.
  ELSE.
    %L_NAME = &1-PARAMETER.
  ENDIF.
  IF NOT &2 IS INITIAL.
    ASSIGN (%L_NAME) TO <%DATA_OBJECT>
           CASTING TYPE (&2).
    %L_TYPE_NAME = &2.
  ELSEIF NOT &1-TYP IS INITIAL.
    ASSIGN (%L_NAME) TO <%DATA_OBJECT>
           CASTING TYPE (&1-TYP).
    %L_TYPE_NAME = &1-TYP.
  ELSEIF NOT &1-LINE_OF IS INITIAL.
    ASSIGN (%L_NAME) TO <%DATA_OBJECT>.
    %L_TYPE_NAME = &1-LINE_OF.
  ELSEIF NOT &1-TABLE_OF IS INITIAL.
    ASSIGN (%L_NAME) TO <%DATA_OBJECT>.
    %L_TYPE_NAME = &1-TABLE_OF.
  ELSE.
    ASSIGN (%L_NAME) TO <%DATA_OBJECT>.
    CLEAR %L_TYPE_NAME.
  ENDIF.
  IF &3 EQ 'T'.
    %L_NAME = &1-PARAMETER.
  ENDIF.
  CALL FUNCTION 'SDIXML_DATA_TO_DOM'
       EXPORTING
             NAME        = %L_NAME
             DATAOBJECT  = <%DATA_OBJECT>
       IMPORTING
             DATA_AS_DOM = %XDF_PARAMETER
       CHANGING
             DOCUMENT    = %XDF_DOCUMENT
       EXCEPTIONS
             OTHERS      = 1.
  %L_NAME  = %C_XDF_ATTR_TYPE.
  %L_VALUE = %L_TYPE_NAME.
  CALL METHOD %XDF_PARAMETER->SET_ATTRIBUTE
       EXPORTING NAME      = %L_NAME
                    VALUE     = %L_VALUE
       RECEIVING RVAL      = %RC.
  CLEAR %L_DDIC_OBJ.
  READ TABLE %L_DDIC_OBJ WITH KEY TYPENAME = %L_TYPE_NAME.
  CASE %L_DDIC_OBJ-TYPEKIND.
    WHEN 'S'.
      READ TABLE %L_DD02L_STATE WITH KEY TABNAME = &1-TYP.
      %L_DATE = %L_DD02L_STATE-AS4DATE.
      %L_TIME = %L_DD02L_STATE-AS4TIME.
      %L_OBJECT = 'TABL'.
    WHEN 'E'.        " data elements
      READ TABLE %L_DD04L_STATE WITH KEY ROLLNAME = &1-TYP.
      %L_DATE = %L_DD04L_STATE-AS4DATE.
      %L_TIME = %L_DD04L_STATE-AS4TIME.
      %L_OBJECT = 'DTEL'.
    WHEN 'L'.        " table types
      READ TABLE %L_DD40L_STATE WITH KEY TYPENAME = &1-TYP.
      %L_DATE = %L_DD40L_STATE-AS4DATE.
      %L_TIME = %L_DD40L_STATE-AS4TIME.
      %L_OBJECT = 'TTYP'.
    WHEN OTHERS.
      CLEAR: %L_DATE, %L_TIME, %L_OBJECT.
  ENDCASE.
  %L_NAME  = %C_XDF_ATTR_OBJ.
  CALL METHOD %XDF_PARAMETER->SET_ATTRIBUTE
       EXPORTING NAME      = %L_NAME
                 VALUE     = %L_OBJECT
       RECEIVING RVAL      = %RC.
  %L_NAME  = %C_XDF_ATTR_TIMESTAMP.
  CONCATENATE %L_DATE %L_TIME INTO %L_VALUE.
  CALL METHOD %XDF_PARAMETER->SET_ATTRIBUTE
       EXPORTING NAME      = %L_NAME
                 VALUE     = %L_VALUE
       RECEIVING RVAL      = %RC.
  CALL METHOD %XDF_ROOT_ELEMENT->APPEND_CHILD
       EXPORTING NEW_CHILD = %XDF_PARAMETER
       RECEIVING RVAL      = %RC.
  CHECK %RC = 0.
END-OF-DEFINITION.
CLEAR DOCUMENT_OUTPUT_INFO.
CLEAR JOB_OUTPUT_INFO.
CLEAR JOB_OUTPUT_OPTIONS.
%L_SFSY = SFSY.
CLEAR SFSY.
SFSY-PAGE = %L_SFSY-PAGE.
SFSY-FORMPAGES = %L_SFSY-FORMPAGES.
SFSY-JOBPAGES = %L_SFSY-JOBPAGES.
SFSY-XDF = %L_SFSY-XDF.
SFSY-XDF2 = %L_SFSY-XDF2.
CLEAR INTSFSY.
IF CONTROL_PARAMETERS-NO_OPEN = SPACE.
   CALL FUNCTION 'SSF_CREATE_COMPOSER_INPUT'
        EXPORTING
             ARCHIVE_PARAMETERS = ARCHIVE_PARAMETERS
             USER_SETTINGS      = USER_SETTINGS
             MAIL_SENDER        = MAIL_SENDER
             MAIL_RECIPIENT     = MAIL_RECIPIENT
             MAIL_APPL_OBJ      = MAIL_APPL_OBJ
             OUTPUT_OPTIONS     = OUTPUT_OPTIONS
             CONTROL_PARAMETERS = CONTROL_PARAMETERS
        IMPORTING
             INPUT              = %INPUT.
  IF OUTPUT_OPTIONS-XSFCMODE = SPACE.
    %INPUT-XSF        = ' '.
    %INPUT-XSFOUTMODE = ' '.
    %INPUT-XSFOUTDEV  = ' '.
    %INPUT-XSFACTION  = ' '.
    %INPUT-XSFFORMAT  = ' '.
  ENDIF.
  CALL FUNCTION 'SSFCOMP_OPEN'
       EXPORTING  INPUT  = %INPUT
       IMPORTING  RESULT = %RESULT_OP
       EXCEPTIONS OTHERS = 1.
  IF SY-SUBRC <> 0.
    %VARIANT = SPACE.
    PERFORM %RAISE.
  ENDIF.
  JOB_OUTPUT_OPTIONS = %RESULT_OP.
ENDIF.
IF SFSY-XDF = 'X'.
  CALL FUNCTION 'FUNCTION_IMPORT_INTERFACE'
       EXPORTING
            FUNCNAME           = '/1BCDWB/SF00000053'
            INACTIVE_VERSION   = SPACE
       TABLES
            IMPORT_PARAMETER   = %IMPORT_PARAMETER
            CHANGING_PARAMETER = %CHANGING_PARAMETER
            TABLES_PARAMETER   = %TABLES_PARAMETER
            EXPORT_PARAMETER   = %EXPORT_PARAMETER
            EXCEPTION_LIST     = %EXCEPTION_LIST
       EXCEPTIONS
            OTHERS             = 1.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  %L_GETSTATE-TBHD = %L_GETSTATE-TBFD = %L_GETSTATE-DTEL = 'X'.
  %L_GETSTATE-TTHD = %L_GETSTATE-TTFD = 'X'.
  LOOP AT %IMPORT_PARAMETER.
    XDF_GET_DDIC_INFO %IMPORT_PARAMETER
                      %IMPORT_PARAMETER-DBFIELD.
  ENDLOOP.
  LOOP AT %CHANGING_PARAMETER.
    XDF_GET_DDIC_INFO %CHANGING_PARAMETER
                      %CHANGING_PARAMETER-DBFIELD.
  ENDLOOP.
  LOOP AT %TABLES_PARAMETER.
    XDF_GET_DDIC_INFO %TABLES_PARAMETER
                      %TABLES_PARAMETER-DBSTRUCT.
  ENDLOOP.
  CALL FUNCTION 'DD_TYPEINFO_GET'
       EXPORTING  GETSTATE    = %L_GETSTATE
       TABLES     DDTYPES_TAB = %L_DDIC_OBJ[]
                  DD02L_TAB   = %L_DD02L_STATE[]
                  DD04L_TAB   = %L_DD04L_STATE[]
                  DD40L_TAB   = %L_DD40L_STATE[].
  %XDF_FACTORY = CL_IXML=>CREATE( ).
  %XDF_DOCUMENT = %XDF_FACTORY->CREATE_DOCUMENT( ).
  %L_NAME = %C_XDF_ROOT_ELEMENT.
  %XDF_ROOT_ELEMENT
       = %XDF_DOCUMENT->CREATE_ELEMENT( NAME = %L_NAME ).
  CALL METHOD %XDF_DOCUMENT->APPEND_CHILD
       EXPORTING  NEW_CHILD  = %XDF_ROOT_ELEMENT
       RECEIVING  RVAL       = %RC.
  CHECK %RC = 0.
  LOOP AT %IMPORT_PARAMETER.
    XDF_CREATE_DATA_STREAM %IMPORT_PARAMETER
                           %IMPORT_PARAMETER-DBFIELD 'I'.
  ENDLOOP.
  LOOP AT %CHANGING_PARAMETER.
    XDF_CREATE_DATA_STREAM %CHANGING_PARAMETER
                           %CHANGING_PARAMETER-DBFIELD 'C'.
  ENDLOOP.
  LOOP AT %TABLES_PARAMETER.
    XDF_CREATE_DATA_STREAM %TABLES_PARAMETER
                           %TABLES_PARAMETER-DBSTRUCT 'T'.
  ENDLOOP.
  CALL FUNCTION 'SSFCOMP_XDF_OUTPUT'
       EXPORTING  DOCUMENT = %XDF_DOCUMENT
       EXCEPTIONS OTHERS   = 1.
ELSEIF SFSY-XDF2 = 'X'.
  %XDF2_IXML     = CL_IXML=>CREATE( ).
  %XDF2_DOCUMENT = %XDF2_IXML->CREATE_DOCUMENT( ).
  XDF2_APPEND_SRC_OBJECT ARCHIVE_INDEX ARCHIVE_INDEX.
  XDF2_APPEND_SRC_OBJECT ARCHIVE_INDEX_TAB ARCHIVE_INDEX_TAB.
  XDF2_APPEND_SRC_OBJECT ARCHIVE_PARAMETERS ARCHIVE_PARAMETERS.
  XDF2_APPEND_SRC_OBJECT CONTROL_PARAMETERS CONTROL_PARAMETERS.
  XDF2_APPEND_SRC_OBJECT MAIL_APPL_OBJ MAIL_APPL_OBJ.
  XDF2_APPEND_SRC_OBJECT MAIL_RECIPIENT MAIL_RECIPIENT.
  XDF2_APPEND_SRC_OBJECT MAIL_SENDER MAIL_SENDER.
  XDF2_APPEND_SRC_OBJECT OUTPUT_OPTIONS OUTPUT_OPTIONS.
  XDF2_APPEND_SRC_OBJECT USER_SETTINGS USER_SETTINGS.
  XDF2_APPEND_SRC_OBJECT IS_DLV_DELNOTE IS_DLV_DELNOTE.
  XDF2_APPEND_SRC_OBJECT JOB_OUTPUT_INFO JOB_OUTPUT_INFO.
  CALL TRANSFORMATION ID
       SOURCE (%XDF2_SRC_OBJECTS)
       RESULT XML %XDF2_DOCUMENT.
  CALL FUNCTION 'SSFCOMP_XDF2_OUTPUT'
    EXPORTING
      DOCUMENT = %XDF2_DOCUMENT
    EXCEPTIONS
      OTHERS   = 1.
ELSE.
  %FULLNAME-VARI = %VARIANT.
  %VARIANT = SPACE.
  IF %HEADER IS INITIAL.
    IMPORT HEADER   TO %HEADER
           REFTAB   TO %REFTAB
           DOCSTRUC TO %DOCSTRUC
           TABDEF   TO %TABDEFS
           FROM DATABASE STXFCONTR(SF) ID %FULLNAME.
    IF SY-SUBRC <> 0.
      CALL FUNCTION 'SSFRT_SET_ERROR_PARAMETERS'
           EXPORTING I_FORM      = 'Z_DELIVERY_NOTE'.
      CALL FUNCTION 'SSFRT_WRITE_ERROR'
           EXPORTING I_ERRNUMBER = SSF_ERR_NO_RUNTIME_OBJECT
                     I_MSGID     = 'SSFCOMPOSER'
                     I_MSGNO     = '002'
                     I_MSGV1     = 'Z_DELIVERY_NOTE'.
      PERFORM %RAISE.
    ENDIF.
    SELECT SINGLE SDATE STIME FROM D010SINF
      INTO (%HEADER-SDATE, %HEADER-STIME)
      WHERE PROG    = '/1BCDWB/SAPLSF00000053'
        AND R3STATE = 'A'.
    IF SY-SUBRC <> 0.
      CLEAR: %HEADER-SDATE,
             %HEADER-STIME.
    ENDIF.
  ENDIF.
  LOOP AT %TABDEFS INTO %TABDEF.
    CALL FUNCTION 'SSFCOMP_TABLE_DEFINITION'
         EXPORTING  CPI    = %HEADER-CPI
                    LPI    = %HEADER-LPI
         CHANGING   TABDEF = %TABDEF
         EXCEPTIONS OTHERS = 1.
    IF SY-SUBRC <> 0. PERFORM %RAISE. ENDIF.
  ENDLOOP.
  CALL FUNCTION 'SSFRT_SET_REFERENCES'
       EXPORTING I_REFTAB = %REFTAB .
  CALL FUNCTION 'SSFRT_SET_LANGUAGES'
       EXPORTING I_CONTROL_PARAMETERS = CONTROL_PARAMETERS
                 I_MASTERLANGUAGE     = 'E'
                 I_THRULANG           = ' '
                 I_INSTALL_LANG       = ' '
       IMPORTING O_LANGUAGES          = %LANGUAGES.
  %HEADER-LANGU = %LANGUAGES-LANGU1.
  %WEXIT = SPACE.
  PERFORM %GLOBAL_CLEAR.
  PERFORM %GLOBAL_INIT.
  CLEAR %ARCTAB.
  IF ARCHIVE_INDEX_TAB[] IS INITIAL.
    APPEND ARCHIVE_INDEX TO %ARCTAB.
  ELSE.
    %ARCTAB = ARCHIVE_INDEX_TAB.
  ENDIF.
  CALL FUNCTION 'SSFCOMP_PROCESS_DOCUMENT'
       EXPORTING  HEADER           = %HEADER
                  DOCSTRUC         = %DOCSTRUC
                  STARTPAGE        = CONTROL_PARAMETERS-STARTPAGE
                  ARCHIV_INDEX_TAB = %ARCTAB
                  MAIL_APPL_OBJECT = MAIL_APPL_OBJ
       IMPORTING  RESULT           = %RESULT_PD
       EXCEPTIONS OTHERS           = 1.
  IF SY-SUBRC <> 0. PERFORM %RAISE. ENDIF.
  DOCUMENT_OUTPUT_INFO = %RESULT_PD.
ENDIF.
IF CONTROL_PARAMETERS-NO_CLOSE = SPACE.
  CALL FUNCTION 'SSFCOMP_CLOSE'
       IMPORTING  RESULT = %RESULT_CL
       EXCEPTIONS OTHERS = 1.
  IF SY-SUBRC <> 0. PERFORM %RAISE. ENDIF.
  JOB_OUTPUT_INFO = %RESULT_CL.
ENDIF.
ENDFUNCTION.