SmartForms & Smartstyles

My smartforms work fine when I use Courier-font for styling! But when I use any other font-family, it is printing junk character!
Please let me know what could be the reason!
Thanks in advance!
Message was edited by: Sam

Hi SAM,
Check this link to learn about true type fonts...
http://www.microsoft.com/typography/FreeToolsOverview.mspx
Regards,
Raj

Similar Messages

  • Smartforms/Smartstyle How to create/upload paragraph and character formats

    Hi Folks,
    I am working on a demo IDES system. In my ECC 6.0 system, the paragraph formats were not included. How can import or include or create or upload paragraph and character formats in order to create smartforms and smartstyles.
    Waiting for your answer................
    Thanks,
    Creasy Matt

    If you Ran Smartstyles T-code and from Utilities you should got all information how to do all these activities.

  • SmartForms printing  on ZEBRA S4M doesn't work!

    I heard that we can use SmartForms to design label. We would prefer to use SmartForms instead of Bar-One if possible.
    I've read the following OSS notes very carefully :
    750772 - Information on the ZPL-2 printer driver for SF
    750002 - SmartForms: Support Zebra label printer (ZPL2)
    We are using Zebra S4M printer.
    Basis installed the Zebra S4M driver. I did a print configuration test and it works well, so I suppose the printer has been installed correctly.
    SAP installation info
    SAP_BASIS     620     0058     SAPKB62058
    SAP_ABA             620     0058     SAPKA62058
    SAP_APPL     470     0026     SAPKH47026
    Kernel release: 640
    Patch level: 109
    According to the OSS notes, our system should be capable to work.
    1. I create the device type ZLZEB2 using program RSTXSCRP.
    This create the device type with the following parameters:
    Version: 3
    Driver: LZPL Zebra Programming Language 2
    Printer driver: Do not use printer driver for ABAP list...
    Argument: R203
    Character set: 1162 Printer LB_ZEB IBM 850(internal fonts)
    2. I create an output device ZEBRA_S4M with parameters:
    Device Type: ZLZEB2 Zebra label printer 203dpi
    Device Class: Standard printer
    Host Spool Access Method: C
    Host printer:
    svr25node2prd.jacob.grpPrinter-EtiquetteTI
    Host Name: svr20dev
    3. I create a SmartStyle.
    In the Header Data section, I put the font Helve 12 and I create one paragraph with a left-alignment, very simple.
    4. I create a SmartForm
    Page Format: LETTER
    Style: SmartStyle created in step 3
    Then I create a secondary window with one text where
    I wrote "Test on Zebra S4M"
    Also, in the main window, I change the left margin and upper margin to 0.
    5. Printing
    After activating the SmartForm & SmartStyle
    From SmartForm, F8-F8-F8 then I choose my output device, check print immediatly but nothing comes out???
    Does anybody no why? or could help me??
    Thanks!
    Message was edited by: Alexandre Giguère

    Hi Alexander,
    I have a question. I have designed my smartform with a style which is a label. I am able to get the data from the application program.  I should print it on a zebra printer. I can see the print preview too.
    When I give a print in the spool requests it shows me <b>Completed</b>.
    In the printer it is not printing . should I go for ZPL language and do that or is there any other way...
    Please help me out..
    with regards,
    chaithanya.

  • O/p style  for smartform changes with printer

    Hi,
    I have a smartform for which I see the print o/p in SP01.When I test with the test printer,o/p looks fine.However when I change the printer at runtime(or select some other printer in sel criteria),then when I see the o/p in SP01,the smartform data is printed in BOLD!
    Can ayone suggest what settings need to be done so that smartform o/p is uniform irrespective of the printer selection!
    I havent made any changes to the smartform smartstyle yet the o/ p is different as mentioned above.
    Thanks!
    Subodh.

    Hi,
    You can refer
    SMARTFORM style changes with printer
    Regards,
    Subramanian

  • SmartForms Character Formats, Fonts, and Sizes?

    Does anyone have any good documentation, links, or suggestions related to character formats, fonts, and sizes we can use in SmartForms? My biggest challenges are trying to decide which fonts and their sizes to use in my windows.
    For instance, what are good small, or medium, or large, font types to use under different scenarios, and what suggested sizes should be used with them? It would be nice to have some kind of a tip sheet that would refer to this. Because I spend more time playing with configuration then I do actually coding.
    Open to all or any suggestions.    Thank-You.

    hi,
    please check in these link
    SmartForms & Smartstyles
    Re: SAP Smart Forms
    hope  this will help u..
    pradeep
    Edited by: pradeep kandgal on Jan 6, 2009 3:24 PM

  • Converting ECC to 4.6c version

    Hi friends,
        I have a requirement where we need to downgrade the smartform which is in ECC5.0 into 4.6 version. I was trying to do it manually by looking at the ECC one but I find quite a few things which are different. Most imp thing is the table. When I create a table node I am not able to see 3 subnodes (main, header, footer) automatically in 4,6. Is there any other way to directly conver ecc to 4.6 ? or we need to do it manually only ?
    Please suggest.
    Thanks in advance.
    Reddy

    I found one program and which will download and upload the smartform.
    Note : i did not test it and i am not sure how it works.
    ZSMART FORM UPLOAD DOWNLOAD
    De SAP ABAP en castellano
    Saltar a navegación, búsqueda
    REPORT zquality LINE-SIZE 150 NO STANDARD PAGE HEADING.
    *Program : ZSMART_FORM_UPLOAD_DOWNLOAD *
    *Description : This utility/tool can download or upload smartform and *
    smartstyles. *
    *=================================================
    =====================*
    Abhishek is not responsible for any damages caused by the use or *
    misuse of this program and can not provide any warranty with this *
    program. Use it entirely at your own risk. *
    Incase you don't remember the key or your key has expired, Please *
    drop me a mail at [email protected] with your installation number. A *
    new key will be allocated to you. *
    *=================================================
    =====================*
    CHANGE LOG *
    | Date | Ver | Name | Description |
    *|----
    |----
    |----
    |----
    |*
    | 30.04.2003| VER 1.01 | ABHISHEK | Created |
    | 30.01.2004| VER 1.02 | ABHISHEK | Modified |
    | 09.02.2004| VER 2.00 | ABHISHEK | Modified (Released) |
    | | | | |
    *&===== TABLES =====
    TABLES: stxfadm,
            stxsadm.
    DATA: v_pass,
    g_ans,
    v_abhi(16),
    g_ins00(14) VALUE ' ',
    BEGIN OF tab OCCURS 0,
    line(72),
    END OF tab,
    tname LIKE sy-repid.
    *&===== SELCTION SCREEN =====
    SELECTION-SCREEN BEGIN OF BLOCK smart1 WITH FRAME TITLE text-001.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-101.
    PARAMETERS: p_fname LIKE stxfadm-formname DEFAULT 'ZTEST2'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-102.
    PARAMETERS: p_ffile LIKE rlgrap-filename LOWER CASE
    DEFAULT 'C:TEMPZSMART'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF BLOCK ind1 WITH FRAME TITLE text-002.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-103.
    PARAMETERS: p_ft RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-104.
    PARAMETERS: p_fu RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-105.
    PARAMETERS: p_fd RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK ind1.
    SELECTION-SCREEN END OF BLOCK smart1.
    SELECTION-SCREEN SKIP 2.
    SELECTION-SCREEN BEGIN OF BLOCK smart2 WITH FRAME TITLE text-003.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-106.
    PARAMETERS: p_sname LIKE stxfadm-formname DEFAULT 'ZTEST2'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-102.
    PARAMETERS: p_sfile LIKE rlgrap-filename LOWER CASE
    DEFAULT 'C:TEMPZSMART'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF BLOCK ind2 WITH FRAME TITLE text-002.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-103.
    PARAMETERS: p_st RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-104.
    PARAMETERS: p_su RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-105.
    PARAMETERS: p_sd RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK ind2.
    SELECTION-SCREEN END OF BLOCK smart2.
    SELECTION-SCREEN SKIP 2.
    SELECTION-SCREEN BEGIN OF BLOCK abhi WITH FRAME TITLE text-004.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(70) text-107.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 5(15) text-108.
    PARAMETERS: p_key(8).
    SELECTION-SCREEN COMMENT 30(16) text-109.
    PARAMETERS: p_ins(14).
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK abhi.
    *&===== AT-SELCTION-SCREEN BEFOR OUTPUT =====
    AT SELECTION-SCREEN OUTPUT.
      PERFORM sub_installation.
      PERFORM sub_get_set_para.
      PERFORM sub_pass.
    *&===== AT-SELCTION-SCREEN =====
    AT SELECTION-SCREEN.
      CLEAR v_pass.
      PERFORM set_para.
      PERFORM sub_validation.
    *&===== MACRO =====
      DEFINE checkabap.
        data: begin of l_tab occurs 0,
        line(72),
        end of l_tab,
        l_lines like sy-index.
        read report sy-repid into l_tab.
        describe table l_tab lines l_lines.
        if l_lines <> 0 .
          vmess ' Program has been modifid externally !!'.
        endif.
      END-OF-DEFINITION.
      DEFINE vmess.
        if v_pass = space.
          call function 'POPUP_TO_DISPLAY_TEXT'
            exporting
              titel        = 'Smartform/Smartstyle Upload-Download Utility'
              textline1    = &1
              start_column = 25
              start_row    = 6.
          v_pass = 'X'.
        endif.
      END-OF-DEFINITION.
      DEFINE abhishek.
        tab-line = &1.
        translate tab-line using v_abhi.
        append tab.
        clear tab.
      END-OF-DEFINITION.
      DEFINE app.
        itab-id = &1. itab-key = &2. itab-entry = &3.
        append itab.
        clear itab.
      END-OF-DEFINITION.
    *&===== START-SELCTION-SCREEN =====
    START-OF-SELECTION.
      IF v_pass = space.
        PERFORM sub_warning.
        IF g_ans = '1'.
          REFRESH tab. CLEAR tab.
          abhishek: 'report ztabhi.'.
          PERFORM form1000000.
          GENERATE SUBROUTINE POOL tab NAME tname.
          IF sy-subrc = 0.
            PERFORM sub_000005
            IN PROGRAM (tname) USING p_key v_abhi g_ins00 IF FOUND .
          ELSE.
            vmess 'Error!! Trying to copy this Utility, Please install'.
          ENDIF.
          REFRESH tab. CLEAR: tab, tname.
          abhishek: 'report ztabhi.'.
          PERFORM form100000.
          PERFORM form100001.
          PERFORM form100002.
          PERFORM form100003.
          PERFORM form100004.
          PERFORM form100005.
          GENERATE SUBROUTINE POOL tab NAME tname.
          IF sy-subrc = 0.
            SET PARAMETER ID 'ABH1' FIELD p_key.
            IF p_fu = 'X'.
              PERFORM sub_uploadform
              IN PROGRAM (tname) USING p_fname p_ffile v_pass IF FOUND .
            ELSEIF p_fd = 'X'.
              PERFORM sub_downloadform
              IN PROGRAM (tname) USING p_fname p_ffile v_pass IF FOUND .
            ENDIF.
            IF p_su = 'X'.
              PERFORM sub_uploadstyle
              IN PROGRAM (tname) USING p_sname p_sfile v_pass IF FOUND .
            ELSEIF p_sd = 'X'.
              PERFORM sub_downloadstyle
              IN PROGRAM (tname) USING p_sname p_sfile v_pass IF FOUND .
            ENDIF.
          ELSE.
            vmess 'ERROR: Either the key is wrong or Program has been
    modified'.
          ENDIF.
        ELSE.
          vmess 'Action Cancelled'.
        ENDIF.
      ENDIF.
    *& Form form1000000
    FORM form1000000.
      abhishek:
      'FORM SUB_000005 USING P_KEY V_ABHI G_INS00. ',
      'Data: L_xyz like sy-datum,',
      ' l_check(4) .',
      'ZVABHI G_INS00.',
      'ENDFORM.'.
    ENDFORM. " form1000000
    *& Form form100001
    FORM form100001.
      abhishek:
      ' DEFINE DATADECS.',
      ' DATA: BEGIN OF T_&1 OCCURS 0.',
      ' INCLUDE STRUCTURE &1.',
      ' DATA: END OF T_&1.',
      ' SELECT * INTO TABLE T_&1 FROM &1 WHERE STYLENAME = P_?NAME.',
      ' END-OF-DEFINITION.',
      ' DEFINE DOWNLOADALL.',
      ' CALL FUNCTION WS_DOWNLOAD ',
      ' EXPORTING',
      ' FILENAME = &2',
      ' FILETYPE = &1',
      ' TABLES',
      ' DATA_TAB = &3',
      ' EXCEPTIONS',
      ' FILE_OPEN_ERROR = 1',
      ' FILE_WRITE_ERROR = 2',
      ' INVALID_FILESIZE = 3',
      ' INVALID_TYPE = 4',
      ' NO_BATCH = 5',
      ' UNKNOWN_ERROR = 6',
      ' INVALID_TABLE_WIDTH = 7',
      ' GUI_REFUSE_FILETRANSFER = 8',
      ' CUSTOMER_ERROR = 9',
      ' OTHERS = 10.',
      ' END-OF-DEFINITION.',
      ' DEFINE UPLOADALL.',
      ' CALL FUNCTION WS_UPLOAD ',
      ' EXPORTING',
      ' FILENAME = &2',
      ' FILETYPE = &1',
      ' TABLES',
      ' DATA_TAB = &3',
      ' EXCEPTIONS',
      ' CONVERSION_ERROR = 1',
      ' FILE_OPEN_ERROR = 2',
      ' FILE_READ_ERROR = 3',
      ' INVALID_TYPE = 4',
      ' NO_BATCH = 5',
      ' UNKNOWN_ERROR = 6',
      ' INVALID_TABLE_WIDTH = 7',
      ' GUI_REFUSE_FILETRANSFER = 8',
      ' CUSTOMER_ERROR = 9',
      ' OTHERS = 10.',
      ' END-OF-DEFINITION.',
      ' DEFINE ABHI_SPEC1.',
      ' DATA: BEGIN OF T_&1 .',
      ' INCLUDE STRUCTURE &1.',
      ' DATA: END OF T_&1.',
      ' CLEAR: L_CHAR, L_NO, .',
      ' L_NO = L_NO + DD03L-INTLEN.',
      ' ENDIF.',
      ' ENDSELECT.',
      ' APPEND %_%A@.',
      ' CLEAR %_%A@.',
      ' ENDLOOP.',
      ' END-OF-DEFINITION.',
      ' DEFINE VMESS.',
      ' IF V_PASS = SPACE.',
      ' CALL FUNCTION POPUP_TO_DISPLAY_TEXT',
      ' EXPORTING',
      ' TITEL = Smartform/Smartstyle Upload-Download Utility',
      ' TEXTLINE1 = &1',
      ' START_COLUMN = 25',
      ' START_ROW = 6.',
      ' V_PASS = X.',
      ' ENDIF.',
      ' END-OF-DEFINITION.'.
    ENDFORM. " form100001
    *& Form form100000
    FORM form100000.
      abhishek:
    *&===== TABLES =====
      'TABLES: STXFADM,',
      ' STXSADM,',
      ' DD03L.',
    *&===== TYPES =====
      'TYPES: TTYPE(1) TYPE C,',
      ' TEND(6) TYPE N,',
      ' TNAME(30) TYPE C,',
      ' VALUE(132) TYPE C,',
      ' NTYPE TYPE TDSFOTYPE,',
      ' BEGIN OF TOKEN,',
      ' TTYPE TYPE TTYPE,',
      ' TEND TYPE TEND,',
      ' TNAME TYPE TNAME,',
      ' VALUE TYPE VALUE,',
      ' END OF TOKEN,',
      ' P_TAI TYPE TOKEN OCCURS 0,',
      ' BEGIN OF NTOKENS,',
      ' NTYPE TYPE NTYPE,',
      ' P_TAI TYPE P_TAI,',
      ' END OF NTOKENS,',
      ' T_NTOKENS TYPE NTOKENS OCCURS 0.',
    *&===== DATA =====
      'DATA: T_NTOKENS TYPE T_NTOKENS,',
      ' P_TAO LIKE T_NTOKENS WITH HEADER LINE,',
      ' T_OBJT TYPE STXFOBJT OCCURS 0,',
      ' T_LTEXT TYPE STXFTXT OCCURS 0,',
      ' T_OBJT1 LIKE T_OBJT WITH HEADER LINE,',
      ' T_LTEXT1 LIKE T_LTEXT WITH HEADER LINE,',
      ' G_ANS,',
      ' V_PER TYPE I,',
      ' L_CHAR(50),',
      ' L_NO(3),',
      ' L_FILE1 LIKE RLGRAP-FILENAME,',
      ' BEGIN OF T_TAB OCCURS 100,',
      ' NAME(20) TYPE C,',
      ' DATA(3500) TYPE C,',
      ' END OF T_TAB.',
    *&===== FIELD-SYMBOLS =====
      'FIELD-SYMBOLS: .'.
    ENDFORM. " form100000
    *& Form form100002
    FORM form100002.
      abhishek:
      'FORM SUB_UPLOADFORM using P_#NAME p_ffile v_pass.',
      ' DATA: I_FORMNAME(30),',
      ' P_TA` LIKE P_TA^-P_TA` WITH HEADER LINE.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' REFRESH: %_%^KE?, %_@!%, %_L%EX%, P_TA, %_^@!%1, %_L%EX%1.',
      ' CLEAR: %_%^KE?, %_@!%, %_L%EX%, P_TA, %_^@!%1, %_L%EX%1.',
      ' CONCATENATE P_fFILE ~f!o@r#m$.ABHI INTO L_FILE1.',
      ' I_FORMNAME = P_#NAME .',
      ' UPLOADALL DAT L_FILE1 %_%A@.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ERROR in Uploading: Please check the file path.',
      ' ENDIF.',
      ' LOOP AT %_%A@.',
      ' IF %_%A@-NAME = STXFOBJT.',
      ' %_^@!%1 = %_%A@-DATA.',
      ' IF %_^@!%1-FORMNAME <> SPACE.',
      ' %_^@!%1-FORMNAME = I_FORMNAME.',
      ' ENDIF.',
      ' APPEND %_^@!%1.',
      ' CLEAR %_^@!%1.',
      ' ELSEIF %_%A@-NAME = STXFTXT.',
      ' %_L%EX%1 = %_%A@-DATA.',
      ' IF %_L%EX%1-FORMNAME <> SPACE.',
      ' %_L%EX%1-FORMNAME = I_FORMNAME.',
      ' ENDIF.',
      ' APPEND %_L%EX%1.',
      ' CLEAR %_L%EX%1.',
      ' ELSEIF %_%A@-NAME = STXFADM.',
      ' STXFADM = %_%A@-DATA.',
      ' IF STXFADM-FORMNAME <> SPACE.',
      ' STXFADM-FORMNAME = P_#NAME.',
      ' STXFADM-FIRSTUSER = SY-UNAME.',
      ' STXFADM-LASTUSER = SY-UNAME.',
      ' STXFADM-DEVCLASS = $TMP.',
      ' ENDIF.',
      ' ELSE.',
      ' AT NEW NAME.',
      ' P_TA^-NTYPE = %_%A@-NAME.',
      ' REFRESH P_TA`. CLEAR P_TA`.',
      ' ENDAT.',
      ' P_TA` = %_%A@-DATA.',
      ' IF P_TA^-NTYPE =SF.',
      ' IF P_TA`-TNAME = FORMNAME.',
      ' P_TA`-VALUE = P_#NAME.',
      ' ELSEIF P_TA`-TNAME = DEVCLASS.',
      ' P_TA`-VALUE = $TMP.',
      ' ELSEIF P_TA`-TNAME = FIRSTUSER.',
      ' P_TA`-VALUE = SY-UNAME.',
      ' ELSEIF P_TA`-TNAME = FIRSTDATE.',
      ' P_TA`-VALUE = SY-DATUM.',
      ' ELSEIF P_TA`-TNAME = FIRSTTIME.',
      ' P_TA`-VALUE = SY-UZEIT.',
      ' ELSEIF P_TA`-TNAME = LASTUSER.',
      ' P_TA`-VALUE = SY-UNAME.',
      ' ELSEIF P_TA`-TNAME = LASTDATE.',
      ' P_TA`-VALUE = SY-DATUM.',
      ' ELSEIF P_TA`-TNAME = LASTTIME.',
      ' P_TA`-VALUE = SY-UZEIT.',
      ' ENDIF.',
      ' ENDIF.',
      ' APPEND P_TA`.',
      ' AT END OF NAME.',
      ' P_TA^-P_TA`[] = P_TA`[].',
      ' APPEND P_TA^.',
      ' CLEAR P_TA^.',
      ' ENDAT.',
      ' ENDIF.',
      ' ENDLOOP.',
      ' %_%^KE?[] = P_TA^[].',
      ' %_@!%[] = %_@!%1[].',
      ' %_L%EX%[] = %_L%EX%1[].',
      ' MODIFY STXFADM .',
      ' EXPORT %_%^KE? %_^@!% %_L%EX%',
      ' TO DATABASE STXFCONTS(XX) ID I_FORMNAME.',
      ' IF SY-SUBRC = 0.',
      ' VMESS FORM UPLOAD: Sucessfully completed.',
      ' ELSE.',
      ' VMESS ERROR in Exporting the Form .',
      ' ENDIF.',
      'ENDFORM.'.
    ENDFORM. " form100002
    *& Form form100003
    FORM form100003.
      abhishek:
      'FORM SUB_DOWNLOADFORM using P_#NAME p_ffile v_pass. ',
      ' DATA: I_FORMNAME(30). ',
      ' CONSTANTS C_TEXT_FORM VALUE F. ',
      ' CLEAR: L_FILE1,',
      ' %_%A@. ',
      ' REFRESH: %_%A@. ',
      ' REFRESH: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^. ',
      ' CLEAR: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^. ',
      ' CONCATENATE P_fFILE ~f!o@r#m$.ABHI INTO L_FILE1.',
      ' I_FORMNAME = P_#NAME . ',
      ' IMPORT %_~%^KE~? %_^@!% %_L%EX% ',
      ' FROM DATABASE STXFCONTS(XX) ID I_FORMNAME.',
      ' IF SY-SUBRC <> 0. ',
      ' SELECT * FROM STXFOBJT INTO TABLE %_^@!% ',
      ' WHERE FORMNAME = I_FORMNAME. ',
      ' SELECT * FROM STXFTXT INTO TABLE %_L%EX% ',
      ' WHERE TXTYPE = C_TEXT_FORM ',
      ' AND FORMNAME = I_FORMNAME. ',
      ' IMPORT %_~%^KE~? FROM DATABASE STXFCONT(XX) ID I_FORMNAME. ',
      ' ENDIF.',
      ' P_TA^[] = %_~%^KE~?[]. ',
      ' LOOP AT P_TA^. ',
      ' LOOP AT P_TA^-P_TA` INTO %_%A@-DATA. ',
      ' %_%A@-NAME = P_TA^-NTYPE. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' ENDLOOP.' ,
      ' LOOP AT %_^@!% INTO %_%A@-DATA. ',
      ' %_%A@-NAME = STXFOBJT. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' LOOP AT %_L%EX% INTO %_%A@-DATA. ',
      ' %_%A@-NAME = STXFTXT. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' SELECT SINGLE * FROM STXFADM WHERE FORMNAME = P_#NAME. ',
      ' %_%A@-DATA = STXFADM. ',
      ' %_%A@-NAME = STXFADM. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@.' ,
      ' DOWNLOADALL DAT L_FILE1 %_%A@. ',
      ' IF SY-SUBRC = 0. ',
      ' VMESS FORM DOWNLOAD: Sucessfully completed. ',
      ' ELSE. ',
      ' VMESS ERROR in Downloading: Please check the file path . ',
      ' ENDIF. ',
      'ENDFORM. '. " SUB_DOWNLOADFORM
    ENDFORM. " form100003
    *& Form form100004
    FORM form100004.
      abhishek:
      'FORM SUB_UPLOADSTYLE USING P_?NAME P_SFILE V_PASS.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' CONCATENATE P_SFILE ~s!t@l#y$e.ABHI INTO L_FILE1.',
      ' UPLOADALL DAT L_FILE1 %_%A@.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ERROR in uploading the File .',
      ' ENDIF.',
      ' ABHI_SPEC1:',
      ' STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' IF SY-SUBRC = 0.',
      ' VMESS STYLE UPLOAD: Sucessfully completed.',
      ' ELSE.',
      ' VMESS ERROR in uploading the Style .',
      ' ENDIF.',
      'ENDFORM. '.
    ENDFORM. " form100004
    *& Form form100005
    FORM form100005.
      abhishek:
      'FORM SUB_DOWNLOADSTYLE USING P_?NAME P_SFILE V_PASS.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' CONCATENATE P_SFILE ~s!t@l#y$e.ABHI INTO L_FILE1.',
      ' DATADECS: STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' ABHI_SPEC:STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' DOWNLOADALL DAT L_FILE1 %_%A@.',
      ' IF SY-SUBRC = 0.',
      ' VMESS STYLE DOWNLOAD: Sucessfully completed.',
      ' ELSE.',
      ' VMESS ERROR in Downloading the File .',
      ' ENDIF.',
      'ENDFORM. '.
    ENDFORM. " form100005
    *& Form sub_get_set_para
    FORM sub_get_set_para.
      p_ins = g_ins00.
      GET PARAMETER ID 'ABH1' FIELD p_key.
      GET PARAMETER ID 'ABH2' FIELD p_sfile.
      GET PARAMETER ID 'ABH3' FIELD p_sname.
      GET PARAMETER ID 'ABH4' FIELD p_ffile.
      GET PARAMETER ID 'ABH5' FIELD p_fname. checkabap.
    ENDFORM. " sub_get_set_para
    *& Form set_para
    FORM set_para.
      SET PARAMETER ID 'ABH2' FIELD p_sfile.
      SET PARAMETER ID 'ABH3' FIELD p_sname.
      SET PARAMETER ID 'ABH4' FIELD p_ffile.
      SET PARAMETER ID 'ABH5' FIELD p_fname.
    ENDFORM. " set_para
    *& Form SUB_VALIDATION
    FORM sub_validation.
      IF p_key = space.
        vmess 'Please Enter the key.'.
      ELSE.
        v_abhi+0(1) = '@'.
        v_abhi1(1) = p_key0(1).
        v_abhi+2(1) = '`'.
        v_abhi3(1) = p_key1(1).
        v_abhi+4(1) = '!'.
        v_abhi5(1) = p_key2(1).
        v_abhi+6(1) = '~'.
        v_abhi7(1) = p_key3(1).
        v_abhi+8(1) = '^'.
        v_abhi9(1) = p_key4(1).
        v_abhi+10(1) = '%'.
        v_abhi11(1) = p_key5(1).
        v_abhi+12(1) = '#'.
        v_abhi13(1) = p_key6(1).
        v_abhi+14(1) = '?'.
        v_abhi15(1) = p_key7(1).
      ENDIF.
      IF p_st = 'X' AND p_ft = 'X'.
        vmess 'Please Select Upload Download Indicator.'.
      ENDIF.
      IF p_ft = space.
        PERFORM sub_val_form.
      ENDIF.
      IF p_st = space.
        PERFORM sub_val_style.
      ENDIF.
    ENDFORM. " SUB_VALIDATION
    *& Form SUB_VAL_FORM
    FORM sub_val_form.
      DATA: l_file1(20),
      l_file2(20).
      IF p_fname = space.
        vmess 'Please enter the form name'.
      ENDIF.
      IF p_fname+0(1) <> 'Z'.
        IF p_fu = 'X'.
          vmess 'Form name should start with Z only'.
        ENDIF.
      ENDIF.
      IF p_ffile = space.
        vmess 'Please enter the file name'.
      ENDIF.
      SPLIT p_ffile AT '.' INTO l_file1 l_file2.
      IF l_file2 <> space.
        vmess 'Dont enter the extention with file name'.
      ENDIF.
      IF p_fu = 'X'.
        SELECT SINGLE * FROM stxfadm WHERE formname = p_fname.
        IF sy-subrc = 0.
          vmess 'Form already exists'.
        ENDIF.
      ENDIF.
      IF p_fd = 'X'.
        SELECT SINGLE * FROM stxfadm WHERE formname = p_fname.
        IF sy-subrc <> 0.
          vmess 'Form does not exists'.
        ENDIF.
      ENDIF.
    ENDFORM. " SUB_VAL_FORM
    *& Form SUB_VAL_STYLE
    FORM sub_val_style.
      DATA: l_file1(20),
      l_file2(20).
      IF p_sname = space.
        vmess 'Please enter the Style name'.
      ENDIF.
      IF p_sname+0(1) <> 'Z'.
        vmess 'Style name should start with Z only'.
      ENDIF.
      IF p_sfile = space.
        vmess 'Please enter the file name'.
      ENDIF.
      SPLIT p_sfile AT '.' INTO l_file1 l_file2.
      IF l_file2 <> space.
        vmess 'Dont enter extention with file name'.
      ENDIF.
      IF p_su = 'X'.
        SELECT SINGLE * FROM stxsadm WHERE stylename = p_sname.
        IF sy-subrc = 0.
          vmess 'Style already exists'.
        ENDIF.
      ENDIF.
      IF p_sd = 'X'.
        SELECT SINGLE * FROM stxsadm WHERE stylename = p_sname.
        IF sy-subrc <> 0.
          vmess 'Style does not exists'.
        ENDIF.
      ENDIF.
    ENDFORM. " SUB_VAL_STYLE
    *& Form SUB_WARNING
    FORM sub_warning.
      DATA: l_line1(50),
      l_line2(50),
      l_line3(50),
      l_title(50).
      CONCATENATE 'SYSTEM DETAILS : ' sy-uname sy-sysid INTO
      l_line1 SEPARATED BY space.
      IF p_fu = 'X'.
        CONCATENATE 'Upload Form : ' p_fname INTO l_line2
        SEPARATED BY space.
      ENDIF.
      IF p_fd = 'X'.
        CONCATENATE 'Download Form : ' p_fname INTO l_line2
        SEPARATED BY space.
      ENDIF.
      IF p_su = 'X'.
        CONCATENATE 'Upload Style : ' p_sname INTO l_line3
        SEPARATED BY space.
      ENDIF.
      IF p_sd = 'X'.
        CONCATENATE 'Download Style : ' p_sname INTO l_line3
        SEPARATED BY space.
      ENDIF.
      l_title = 'Upload/Download Form and Style'.
      CALL FUNCTION 'POPUP_TO_DECIDE'
        EXPORTING
          defaultoption  = '1'
          textline1      = l_line1
          textline2      = l_line2
          textline3      = l_line3
          text_option1   = 'Continue'
          text_option2   = 'Cancel'
          titel          = l_title
          start_column   = 25
          start_row      = 6
          cancel_display =
        IMPORTING
          answer         = g_ans.
    ENDFORM. " SUB_WARNING
    *& Form sub_pass
    FORM sub_pass.
      LOOP AT SCREEN.
        IF screen-name = 'P_KEY' .
          IF p_key = space.
            screen-invisible = 1.
            MODIFY SCREEN.
          ELSE.
            screen-input = 0.
            screen-invisible = 1.
            MODIFY SCREEN.
          ENDIF.
        ENDIF.
      ENDLOOP.
    ENDFORM. " sub_pass
    ************%HG&#%#%(HMDC@!#$M<M()&87687*****************************
    *& Form SUB_Installation
    FORM sub_installation .
      DATA: l_abhishek,
      l_ques(450),
      BEGIN OF ttab OCCURS 0,
      line(61),
      END OF ttab.
      DEFINE note.
        ttab-line = &1.
        append ttab.
        clear ttab.
      END-OF-DEFINITION.
      l_ques+0(49) =
      'This utility has been checked and tested by down'.
      l_ques+49(49) =
      'loading & Uploading several Smartforms and smart'.
      l_ques+98(49) =
      'style and found OK. Extensive testing & rigorous'.
      l_ques+147(49) =
      'code review makes this utility more smart, '.
      l_ques+196(49) =
      'useful and Intelligent. '.
      l_ques+245(49) =
      'But you will be solely responsible for any '.
      l_ques+294(49) =
      'damage caused by use or misuse of this utility. '.
      l_ques+343(49) =
      'Also, you will not modify or change this'.
      l_ques+392(49) =
      'utility.'.
      note:
      'Installation Done, Successfully !!!!!! ',
      ' Thank you for installing the exiting tool ',
      ' "The Smartform/Smartstyle Upload Download Tool" ',
      'Please note down the below installation number and ',
      'the key which will be used by the program for identifying ',
      'the right access. ',
      ' INSTALLATION NUMBER: ',
      ' KEY : ',
      'After expiration of your key, if you want to extend your key, ',
      'Please drop me mail at [email protected]. ',
      'Dont forget to mention the installation number. ',
      'A New will be allocated to you with extended period. ',
      'Thank You. ',
      'Abhishek Kumar ',
      '[email protected] '.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          titlebar              = 'I Agree'
          text_question         = l_ques
          text_button_1         = 'I ACCEPT'
          text_button_2         = 'I REJECT'
          default_button        =
          display_cancel_button =
        IMPORTING
          answer                = l_abhishek
        EXCEPTIONS
          text_not_found        = 1
          OTHERS                = 2.
      IF l_abhishek = '1'.
        CLEAR l_abhishek.
        PERFORM sub_0001 USING l_abhishek.
        PERFORM sub_0002 USING l_abhishek.
        PERFORM sub_0003 USING l_abhishek.
        READ TABLE ttab INDEX 14.
        ttab-line+25(14) = g_ins00.
        MODIFY ttab INDEX 14.
        READ TABLE ttab INDEX 15.
        ttab-line+25(8) = p_key.
        ttab-line+35(23) = 'Valid for next 15 Days'.
        MODIFY ttab INDEX 15.
        IF l_abhishek = space.
          CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
            EXPORTING
              endpos_col   = 70
              endpos_row   = 30
              startpos_col = 10
              startpos_row = 5
              titletext    = 'Welcome'
            TABLES
              valuetab     = ttab
            EXCEPTIONS
              break_off    = 1
              OTHERS       = 2.
          PERFORM sub_0004 USING l_abhishek .
          SUBMIT (sy-repid) VIA SELECTION-SCREEN .
        ELSE.
          REFRESH ttab. CLEAR ttab.
          note:
          ' ERROR !! ',
          ' Some error has been occured, while installing the tool. ',
          'Probable reason : ',
          ' 1. Error in generating the Text Element ',
          ' 2. Error in Instalation Congiguration ',
          ' 3. Error in Inserting the report ',
          ' 4. Error in Modifying the database tables ',
          'Error Code: ',
          l_abhishek,
          'Please drop me a mail with error Code at "[email protected]": '.
          CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
            EXPORTING
              endpos_col   = 70
              endpos_row   = 30
              startpos_col = 10
              startpos_row = 5
              titletext    = 'Error'
            TABLES
              valuetab     = ttab
            EXCEPTIONS
              break_off    = 1
              OTHERS       = 2.
        ENDIF.
      ELSE.
        LEAVE PROGRAM.
      ENDIF.
    ENDFORM. " SUB_Installation
    *& Form sub_0001
    FORM sub_0001 USING l_abhishek.
      DATA: l_lines LIKE sy-index.
      DATA: itab LIKE textpool OCCURS 50 WITH HEADER LINE.
      READ TEXTPOOL sy-repid INTO itab LANGUAGE sy-langu.
      DESCRIBE TABLE itab LINES l_lines.
      IF itab[] IS INITIAL OR l_lines < 10.
        REFRESH itab.
        CLEAR itab.
        app: 'I' '101' 'Smart Form Name',
        'I' '102' 'File Name',
        'I' '103' 'None',
        'I' '104' 'Upload Indicator',
        'I' '105' 'Download Indicator',
        'I' '106' 'Smart Style Name',
        'I' '001' 'SmartForm Upload Download Menu',
        'I' '002' 'Specify Upload Download Indicator',
        'I' '003' 'SmartStyle Upload Download Menu',
        'I' '004' 'SFST Utility Version 1.02',
        'I' '107'
        'Created By Abhishek Kumar On 11.03.2003 Version 2.00 (XML
    approach)',
        'I' '108' 'Enter the key',
        'I' '109' 'Installation No'.
        itab-id = 'R'. itab-key = space.
        itab-entry = 'Smart Form Upload Download utility'.
        APPEND itab.
        INSERT TEXTPOOL sy-repid FROM itab LANGUAGE 'EN' STATE 'A'.
      ENDIF.
    ENDFORM.                                                    "sub_0001
    *& Form sub_0002
    FORM sub_0002 USING l_abhishek.
      DATA: l_rnd TYPE integer4,
      l_no(4) TYPE n,
      l_ktx LIKE t247-ktx,
      l_dat LIKE sy-datum.
      l_dat = sy-datum + 15.
      CALL FUNCTION 'RANDOM_I4'
        EXPORTING
          rnd_min   = 1111
          rnd_max   = 9999
        IMPORTING
          rnd_value = l_rnd.
      l_no = l_rnd.
      SELECT SINGLE ktx FROM t247 INTO l_ktx WHERE mnr = sy-datum+4(2)
      AND spras ='EN'.
      g_ins005(1) = l_ktx0(1).
      g_ins008(1) = l_ktx1(1).
      g_ins0010(1) = l_ktx2(1).
      g_ins00+4(1) = '-'.
      g_ins00+9(1) = '-'.
      g_ins000(2) = l_no0(2).
      g_ins006(2) = l_no2(2).
      g_ins00+11(1) = '0'.
      g_ins00+12(1) = 'A'.
      g_ins00+13(1) = '4'.
      g_ins002(2) = sy-datum6(2).
      CASE l_dat+4(1).
        WHEN 0.
          p_key0(1) = l_dat4(1).
          p_key1(1) = l_dat6(1).
          p_key6(1) = l_dat7(1).
          p_key4(1) = l_dat5(1).
          p_key2(2) = l_no0(2).
          p_key5(1) = l_no2(1).
          p_key7(1) = l_no3(1).
        WHEN 1.
          p_key0(1) = l_dat4(1).
          p_key1(2) = l_dat6(2).
          p_key3(1) = l_dat5(1).
          p_key4(4) = l_no0(4).
      ENDCASE.
    ENDFORM.                                                    "sub_0002
    *& Form sub_0003
    FORM sub_0003 USING l_abhishek.
      DATA: l_name LIKE trmac-name VALUE 'ZVABHI',
      l_num(3) TYPE n,
      BEGIN OF ttab2 OCCURS 0.
              INCLUDE STRUCTURE trmac.
      DATA: END OF ttab2.
      l_num = '001'.
      DEFINE aa.
        ttab2-name = l_name.
        ttab2-numm = l_num.
        ttab2-line = &1.
        append ttab2.
        clear ttab2. l_num = l_num + 1.
      END-OF-DEFINITION.
      aa:
      'if G_INS00 =  .',
      'case P_Key+0(1). ',
      ' when 1. ',
      ' l_xyz6(2) = p_key1(2).',
      ' l_check = p_key+4(4). ',
      ' when 0. ',
      ' l_xyz6(1) = p_key1(1).',
      ' l_xyz7(1) = p_key6(1).',
      ' l_check0(2) = p_key2(2). ',
      ' l_check2(1) = p_key5(1). ',
      ' l_check3(1) = p_key7(1). ',
      'Endcase. ',
      ' l_xyz4(1) = p_key0(1).',
      ' l_xyz5(1) = p_key3(1).',
      'l_xyz+0(1) = 2. ',
      'l_xyz+1(1) = 0. ',
      'l_xyz2(1) = &111(1).',
      'l_xyz3(1) = G_INS0013(1).',
      'if l_check0(2) = G_INS000(2).',
      'if l_check2(2) = G_INS006(2).',
      'if l_xyz >= sy-datum.',
      'If V_ABHI+1(1) <> B.',
      'Clear V_ABHI.',
      'V_ABHI+0(16) = @B`I!J~N^O%T#F?S|Q.',
      'Endif.',
      'Endif.',
      'Endif.',
      'Endif.',
      'Endif.'.
      READ TABLE ttab2 INDEX 1.
      ttab2-line+14(14) = g_ins00.
      MODIFY ttab2 INDEX 1.
      DELETE FROM trmac WHERE name = l_name.
      MODIFY trmac FROM TABLE ttab2.
      IF sy-subrc = 0.
      ENDIF.
    ENDFORM.                                                    "sub_0003
    *& Form sub_0004
    FORM sub_0004 USING l_abhishek.
      DATA: BEGIN OF t_prog OCCURS 0,
      line(72),
      END OF t_prog,
      l_lines LIKE sy-index.
      READ REPORT sy-repid INTO t_prog.
      DELETE t_prog FROM 805.
      DELETE t_prog INDEX 114.
      READ TABLE t_prog INDEX 36.
      t_prog-line+25(14) = g_ins00.
      MODIFY t_prog INDEX 36.
      DESCRIBE TABLE t_prog LINES l_lines.
      READ TABLE t_prog INDEX 131.
      t_prog-line+16(3) = l_lines.
      MODIFY t_prog INDEX 131.
      INSERT REPORT sy-repid FROM t_prog STATE 'A'.
      GENERATE REPORT sy-repid.
    ENDFORM.                                                     "SUB_0004
    Thanks
    Seshu

  • Text printinng misalign from text include

    Hi Buddy,
    I am using smartform / smartstyle to print my layout. I was able to print correctly my output but somehow some of the blank character was misaligned.
    Eg. my orginal text is like this:
    Article   2342           phone no     2332
    Article   2999           fax no          8899
    But when I print it is misaligned like this
    Article   2342           phone no     2332
    Article     2999      fax no          8899
    It sounds weird, do you have any ideas that smartstyle may cause this error?
    I use text paragraph as ST since in the text include it is defined as *
    Thanks
    nicki

    Just before the text elememnt, create a COMMAND node and in that specify Go To--> Give the name of the next page. That should introduce a page break.
    Regards,
    Ravi
    Note - Please mark all the helpful answers

  • ABAP forum over 10.000 Threads ...

    Hi ABAPers,
    Congratulations we just crossed 10.000 threads in our ABAP Programming forum.
    It will be no secrete to you that we are getting about 250 posts a day. Things are very fast paced.
    Which begs the question: Should we split it as we did the /community [original link is broken] forums just a couple of weeks ago?
    If so, what areas? I want to collect some input first and then we will do a quick poll about it.
    The question was asked here before. I can't find the thread. 10 points for the one who posts the link, so that we don't have to start the discussion from scratch.
    Looking forward to your opinion, Mark.

    Hi to all
    My suggestion would comprise more subareas:
    <b>1. Basic ABAP:</b> Basic programming structures, ABAP OOP, List processing, Programming database updates, Enhancements (BAdIs, customer-exits), Modifications, Performance issues, ...
    <b>2. Dialog Programming & EnjoySAP:</b> Classical dialog programming, EnjoySAP controls, CFW, GFW, ...
    <b>3. Output Issues:</b> SAPScript, SmartForms/SmartStyles, Adobe Forms, ...
    <b>4. Integration Issues:</b> EDI, ALE, IDoc, OLE automation, ...
    <b>5. ABAP WebDynpro:</b> <i>-After it is shipped-</i>
    <b>6. Module specific:</b> Questions related to a specific module, e.g. asking an HR function
    and if the old threads will not be redistributed, another forum for <b>"Old Threads"</b> will be required.
    Regards
    *--Serdar <a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=qbk%2bsag%2bjiw%3d">[ BC ]</a>

  • Download smart style and upload into ecc

    Hi,
    I want one smart style to be uploaded into ECC6.0, I have upload option. Prior to that I need to download the styles in 4.6C system where there is no download option. Can any one help me.
    Venkat.

    Hi
    IN 4.6c did you check in smartforms tcode....Utilities-->Download Style?? You have to select the radio button and check.
    Actually, just did some research and found out that there is no option to download in 4.6c. However, this code can help you do that:
    REPORT zi_load_smartforms_and_styles LINE-SIZE 150
           NO STANDARD PAGE HEADING.
    *Program : ZSMART_FORM_UPLOAD_DOWNLOAD *
    *Description : This utility/tool can download or upload smartform and *
    * smartstyles. *
    *======================================================================*
    *&===== TABLES =====
    TABLES: stxfadm,
            stxsadm.
    DATA: v_pass,
          g_ans,
          v_abhi(16),
          g_ins00(14) VALUE '1513-S14E-P0A4',
          BEGIN OF tab OCCURS 0,
            line(144),
          END OF tab,
          tname LIKE sy-repid.
    *&===== SELCTION SCREEN =====
    SELECTION-SCREEN BEGIN OF BLOCK smart1 WITH FRAME TITLE text-001.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-101.
    PARAMETERS: p_fname LIKE stxfadm-formname DEFAULT 'ZTEST2'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-102.
    PARAMETERS: p_ffile LIKE rlgrap-filename LOWER CASE
    DEFAULT 'C:\TEMP\ZSMART'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF BLOCK ind1 WITH FRAME TITLE text-002.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-103.
    PARAMETERS: p_ft RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-104.
    PARAMETERS: p_fu RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-105.
    PARAMETERS: p_fd RADIOBUTTON GROUP abh1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK ind1.
    SELECTION-SCREEN END OF BLOCK smart1.
    SELECTION-SCREEN SKIP 2.
    SELECTION-SCREEN BEGIN OF BLOCK smart2 WITH FRAME TITLE text-003.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-106.
    PARAMETERS: p_sname LIKE stxfadm-formname DEFAULT 'ZTEST2'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-102.
    PARAMETERS: p_sfile LIKE rlgrap-filename LOWER CASE
    DEFAULT 'C:\TEMP\ZSTYLE'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF BLOCK ind2 WITH FRAME TITLE text-002.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-103.
    PARAMETERS: p_st RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-104.
    PARAMETERS: p_su RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 4(20) text-105.
    PARAMETERS: p_sd RADIOBUTTON GROUP abh2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK ind2.
    SELECTION-SCREEN END OF BLOCK smart2.
    SELECTION-SCREEN SKIP 2.
    *&===== AT-SELCTION-SCREEN =====
    AT SELECTION-SCREEN.
      PERFORM sub_validation.
      DEFINE vmess.
        if v_pass = space.
          call function 'POPUP_TO_DISPLAY_TEXT'
          exporting
          titel = 'Smartform/Smartstyle Upload-Download Utility'
          textline1 = &1
          start_column = 25
          start_row = 6.
          v_pass = 'X'.
        endif.
      END-OF-DEFINITION.
      DEFINE abhishek.
        tab-line = &1.
        translate tab-line using '@B`I!J~N^O%T#F?S|Q'.
        append tab.
        clear tab.
      END-OF-DEFINITION.
      DEFINE app.
        itab-id = &1. itab-key = &2. itab-entry = &3.
        append itab.
        clear itab.
      END-OF-DEFINITION.
    *&===== START-SELCTION-SCREEN =====
    START-OF-SELECTION.
      DATA: error(150).
      IF v_pass = space.
        PERFORM sub_warning.
        IF g_ans = '1'.
          REFRESH tab. CLEAR tab.
          REFRESH tab. CLEAR: tab, tname.
          abhishek: 'report ztabhi.'.
          PERFORM form100000.
          PERFORM form100001.
          PERFORM form100002.
          PERFORM form100003.
          PERFORM form100004.
          PERFORM form100005.
          GENERATE SUBROUTINE POOL tab NAME tname MESSAGE error.
          IF sy-subrc = 0.
            IF p_fu = 'X'.
              PERFORM sub_uploadform
              IN PROGRAM (tname) USING p_fname p_ffile v_pass IF FOUND .
            ELSEIF p_fd = 'X'.
              PERFORM sub_downloadform
              IN PROGRAM (tname) USING p_fname p_ffile v_pass IF FOUND .
            ENDIF.
            IF p_su = 'X'.
              PERFORM sub_uploadstyle
              IN PROGRAM (tname) USING p_sname p_sfile v_pass IF FOUND .
            ELSEIF p_sd = 'X'.
              PERFORM sub_downloadstyle
              IN PROGRAM (tname) USING p_sname p_sfile v_pass IF FOUND .
            ENDIF.
          ELSE.
        vmess 'ERROR: Either the key is wrong or Program has been modified'.
          ENDIF.
        ELSE.
          vmess 'Action Cancelled'.
        ENDIF.
      ENDIF.
    *& Form form100001
    FORM form100001.
      abhishek:
      ' DEFINE DATADECS.',
      ' DATA: BEGIN OF T_&1 OCCURS 0.',
      ' INCLUDE STRUCTURE &1.',
      ' DATA: END OF T_&1.',
      ' SELECT * INTO TABLE T_&1 FROM &1 WHERE STYLENAME = P_?NAME.',
      ' END-OF-DEFINITION.',
      ' DEFINE DOWNLOADALL.',
      ' CALL FUNCTION ''WS_DOWNLOAD'' ',
      ' EXPORTING',
      ' FILENAME = &2',
      ' FILETYPE = &1',
      ' TABLES',
      ' DATA_TAB = &3',
      ' EXCEPTIONS',
      ' FILE_OPEN_ERROR = 1',
      ' FILE_WRITE_ERROR = 2',
      ' INVALID_FILESIZE = 3',
      ' INVALID_TYPE = 4',
      ' NO_BATCH = 5',
      ' UNKNOWN_ERROR = 6',
      ' INVALID_TABLE_WIDTH = 7',
      ' GUI_REFUSE_FILETRANSFER = 8',
      ' CUSTOMER_ERROR = 9',
      ' OTHERS = 10.',
      ' END-OF-DEFINITION.',
      ' DEFINE UPLOADALL.',
      ' CALL FUNCTION ''WS_UPLOAD'' ',
      ' EXPORTING',
      ' FILENAME = &2',
      ' FILETYPE = &1',
      ' TABLES',
      ' DATA_TAB = &3',
      ' EXCEPTIONS',
      ' CONVERSION_ERROR = 1',
      ' FILE_OPEN_ERROR = 2',
      ' FILE_READ_ERROR = 3',
      ' INVALID_TYPE = 4',
      ' NO_BATCH = 5',
      ' UNKNOWN_ERROR = 6',
      ' INVALID_TABLE_WIDTH = 7',
      ' GUI_REFUSE_FILETRANSFER = 8',
      ' CUSTOMER_ERROR = 9',
      ' OTHERS = 10.',
      ' END-OF-DEFINITION.',
      ' DEFINE ABHI_SPEC1.',
      ' DATA: BEGIN OF T_&1 .',
      ' INCLUDE STRUCTURE &1.',
      ' DATA: END OF T_&1.',
      ' CLEAR: L_CHAR, L_NO.',
      ' LOOP AT %_%A@ WHERE NAME = ''&1''.',
      ' L_NO = 0.',
      ' SELECT * FROM DD03L WHERE TABNAME = %_%A@-NAME ORDER BY POSITION .',
      ' IF DD03L-INTTYPE <> SPACE.',
      ' IF DD03L-INTTYPE = ''P''. DD03L-INTLEN = 10. ENDIF.',
      ' CONCATENATE ''t_&1-'' DD03L-FIELDNAME INTO L_CHAR.',
      ' ASSIGN (L_CHAR) TO <FS_PAR>.',
      ' <FS_PAR> = %_%A@-DATA+L_NO(DD03L-INTLEN).',
      ' IF DD03L-FIELDNAME = ''STYLENAME''.',
      ' <FS_PAR> = P_?NAME.',
      ' ENDIF.',
      ' L_NO = L_NO + DD03L-INTLEN.',
      ' ENDIF.',
      ' ENDSELECT.',
      ' MODIFY &1 FROM T_&1.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ''ERROR in uploading the Style ''.',
      ' ENDIF.',
      ' ENDLOOP.',
      ' END-OF-DEFINITION.',
      ' DEFINE ABHI_SPEC.',
      ' CLEAR: L_CHAR, L_NO.',
      ' LOOP AT T_&1.',
      ' L_NO = 0.',
      ' SELECT * FROM DD03L WHERE TABNAME = ''&1'' ORDER BY POSITION .',
      ' IF DD03L-INTTYPE <> SPACE.',
      ' IF DD03L-INTTYPE = ''P''. DD03L-INTLEN = 10. ENDIF.',
      ' CONCATENATE ''t_&1-'' DD03L-FIELDNAME INTO L_CHAR.',
      ' ASSIGN (L_CHAR) TO <FS_PAR>.',
      ' %_%A@-NAME = ''&1''.',
      ' %_%A@-DATA+L_NO(DD03L-INTLEN) = <FS_PAR>.',
      ' L_NO = L_NO + DD03L-INTLEN.',
      ' ENDIF.',
      ' ENDSELECT.',
      ' APPEND %_%A@.',
      ' CLEAR %_%A@.',
      ' ENDLOOP.',
      ' END-OF-DEFINITION.',
      ' DEFINE VMESS.',
      ' IF V_PASS = SPACE.',
      ' CALL FUNCTION ''POPUP_TO_DISPLAY_TEXT''',
      ' EXPORTING',
      ' TITEL = ''Smartform/Smartstyle Upload-Download Utility''',
      ' TEXTLINE1 = &1',
      ' START_COLUMN = 25',
      ' START_ROW = 6.',
      ' V_PASS = ''X''.',
      ' ENDIF.',
      ' END-OF-DEFINITION.'.
    ENDFORM. " form100001
    *& Form form100000
    FORM form100000.
      abhishek:
    *&===== TABLES =====
      'TABLES: STXFADM,',
      ' STXSADM,',
      ' DD03L.',
    *&===== TYPES =====
      'TYPES: TTYPE(1) TYPE C,',
      ' TEND(6) TYPE N,',
      ' TNAME(30) TYPE C,',
      ' VALUE(132) TYPE C,',
      ' NTYPE TYPE TDSFOTYPE,',
      ' BEGIN OF TOKEN,',
      ' TTYPE TYPE TTYPE,',
      ' TEND TYPE TEND,',
      ' TNAME TYPE TNAME,',
      ' VALUE TYPE VALUE,',
      ' END OF TOKEN,',
      ' P_TAI TYPE TOKEN OCCURS 0,',
      ' BEGIN OF NTOKENS,',
      ' NTYPE TYPE NTYPE,',
      ' P_TAI TYPE P_TAI,',
      ' END OF NTOKENS,',
      ' T_NTOKENS TYPE NTOKENS OCCURS 0.',
    *&===== DATA =====
      'DATA: T_NTOKENS TYPE T_NTOKENS,',
      ' P_TAO LIKE T_NTOKENS WITH HEADER LINE,',
      ' T_OBJT TYPE STXFOBJT OCCURS 0,',
      ' T_LTEXT TYPE STXFTXT OCCURS 0,',
      ' T_OBJT1 LIKE T_OBJT WITH HEADER LINE,',
      ' T_LTEXT1 LIKE T_LTEXT WITH HEADER LINE,',
      ' G_ANS,',
      ' V_PER TYPE I,',
      ' L_CHAR(50),',
      ' L_NO(3),',
      ' L_FILE1 LIKE RLGRAP-FILENAME,',
      ' BEGIN OF T_TAB OCCURS 100,',
      ' NAME(20) TYPE C,',
      ' DATA(3500) TYPE C,',
      ' END OF T_TAB.',
    *&===== FIELD-SYMBOLS =====
      'FIELD-SYMBOLS: <FS_PAR>.'.
    ENDFORM. " form100000
    *& Form form100002
    FORM form100002.
      abhishek:
      'FORM SUB_UPLOADFORM using P_#NAME p_ffile v_pass.',
      ' DATA: I_FORMNAME(30),',
      ' P_TA` LIKE P_TA^-P_TA` WITH HEADER LINE.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' REFRESH: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^, %_^@!%1, %_L%EX%1.',
      ' CLEAR: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^, %_^@!%1, %_L%EX%1.',
      ' CONCATENATE P_fFILE ''~f!o@r#m$.ABHI'' INTO L_FILE1.',
      ' I_FORMNAME = P_#NAME .',
      ' UPLOADALL ''DAT'' L_FILE1 %_%A@.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ''ERROR in Uploading: Please check the file path''.',
      ' ENDIF.',
      ' LOOP AT %_%A@.',
      ' IF %_%A@-NAME = ''STXFOBJT''.',
      ' %_^@!%1 = %_%A@-DATA.',
      ' IF %_^@!%1-FORMNAME <> SPACE.',
      ' %_^@!%1-FORMNAME = I_FORMNAME.',
      ' ENDIF.',
      ' APPEND %_^@!%1.',
      ' CLEAR %_^@!%1.',
      ' ELSEIF %_%A@-NAME = ''STXFTXT''.',
      ' %_L%EX%1 = %_%A@-DATA.',
      ' IF %_L%EX%1-FORMNAME <> SPACE.',
      ' %_L%EX%1-FORMNAME = I_FORMNAME.',
      ' ENDIF.',
      ' APPEND %_L%EX%1.',
      ' CLEAR %_L%EX%1.',
      ' ELSEIF %_%A@-NAME = ''STXFADM''.',
      ' STXFADM = %_%A@-DATA.',
      ' IF STXFADM-FORMNAME <> SPACE.',
      ' STXFADM-FORMNAME = P_#NAME.',
      ' STXFADM-FIRSTUSER = SY-UNAME.',
      ' STXFADM-LASTUSER = SY-UNAME.',
      ' STXFADM-DEVCLASS = ''$TMP''.',
      ' ENDIF.',
      ' ELSE.',
      ' AT NEW NAME.',
      ' P_TA^-NTYPE = %_%A@-NAME.',
      ' REFRESH P_TA`. CLEAR P_TA`.',
      ' ENDAT.',
      ' P_TA` = %_%A@-DATA.',
      ' IF P_TA^-NTYPE =''SF''.',
      ' IF P_TA`-TNAME = ''FORMNAME''.',
      ' P_TA`-VALUE = P_#NAME.',
      ' ELSEIF P_TA`-TNAME = ''DEVCLASS''.',
      ' P_TA`-VALUE = ''$TMP''.',
      ' ELSEIF P_TA`-TNAME = ''FIRSTUSER''.',
      ' P_TA`-VALUE = SY-UNAME.',
      ' ELSEIF P_TA`-TNAME = ''FIRSTDATE''.',
      ' P_TA`-VALUE = SY-DATUM.',
      ' ELSEIF P_TA`-TNAME = ''FIRSTTIME''.',
      ' P_TA`-VALUE = SY-UZEIT.',
      ' ELSEIF P_TA`-TNAME = ''LASTUSER''.',
      ' P_TA`-VALUE = SY-UNAME.',
      ' ELSEIF P_TA`-TNAME = ''LASTDATE''.',
      ' P_TA`-VALUE = SY-DATUM.',
      ' ELSEIF P_TA`-TNAME = ''LASTTIME''.',
      ' P_TA`-VALUE = SY-UZEIT.',
      ' ENDIF.',
      ' ENDIF.',
      ' APPEND P_TA`.',
      ' AT END OF NAME.',
      ' P_TA^-P_TA`[] = P_TA`[].',
      ' APPEND P_TA^.',
      ' CLEAR P_TA^.',
      ' ENDAT.',
      ' ENDIF.',
      ' ENDLOOP.',
      ' %_~%^KE~?[] = P_TA^[].',
      ' %_^@!%[] = %_^@!%1[].',
      ' %_L%EX%[] = %_L%EX%1[].',
      ' MODIFY STXFADM .',
      ' EXPORT %_~%^KE~? %_^@!% %_L%EX%',
      ' TO DATABASE STXFCONTS(XX) ID I_FORMNAME.',
      ' IF SY-SUBRC = 0.',
      ' VMESS ''FORM UPLOAD: Sucessfully completed''.',
      ' ELSE.',
      ' VMESS ''ERROR in Exporting the Form ''.',
      ' ENDIF.',
      'ENDFORM.'.
    ENDFORM. " form100002
    *& Form form100003
    FORM form100003.
      abhishek:
      'FORM SUB_DOWNLOADFORM using P_#NAME p_ffile v_pass. ',
      ' DATA: I_FORMNAME(30). ',
      ' CONSTANTS C_TEXT_FORM VALUE ''F''. ',
      ' CLEAR: L_FILE1,',
      ' %_%A@. ',
      ' REFRESH: %_%A@. ',
      ' REFRESH: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^. ',
      ' CLEAR: %_~%^KE~?, %_^@!%, %_L%EX%, P_TA^. ',
      ' CONCATENATE P_fFILE ''~f!o@r#m$.ABHI'' INTO L_FILE1.',
      ' I_FORMNAME = P_#NAME . ',
      ' IMPORT %_~%^KE~? %_^@!% %_L%EX% ',
      ' FROM DATABASE STXFCONTS(XX) ID I_FORMNAME.',
      ' IF SY-SUBRC <> 0. ',
      ' SELECT * FROM STXFOBJT INTO TABLE %_^@!% ',
      ' WHERE FORMNAME = I_FORMNAME. ',
      ' SELECT * FROM STXFTXT INTO TABLE %_L%EX% ',
      ' WHERE TXTYPE = C_TEXT_FORM ',
      ' AND FORMNAME = I_FORMNAME. ',
      ' IMPORT %_~%^KE~? FROM DATABASE STXFCONT(XX) ID I_FORMNAME. ',
      ' ENDIF.',
      ' P_TA^[] = %_~%^KE~?[]. ',
      ' LOOP AT P_TA^. ',
      ' LOOP AT P_TA^-P_TA` INTO %_%A@-DATA. ',
      ' %_%A@-NAME = P_TA^-NTYPE. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' ENDLOOP.' ,
      ' LOOP AT %_^@!% INTO %_%A@-DATA. ',
      ' %_%A@-NAME = ''STXFOBJT''. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' LOOP AT %_L%EX% INTO %_%A@-DATA. ',
      ' %_%A@-NAME = ''STXFTXT''. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@. ',
      ' ENDLOOP. ',
      ' SELECT SINGLE * FROM STXFADM WHERE FORMNAME = P_#NAME. ',
      ' %_%A@-DATA = STXFADM. ',
      ' %_%A@-NAME = ''STXFADM''. ',
      ' APPEND %_%A@. ',
      ' CLEAR %_%A@.' ,
      ' DOWNLOADALL ''DAT'' L_FILE1 %_%A@. ',
      ' IF SY-SUBRC = 0. ',
      ' VMESS ''FORM DOWNLOAD: Sucessfully completed''. ',
      ' ELSE. ',
      ' VMESS ''ERROR in Downloading: Please check the file path ''. ',
      ' ENDIF. ',
      'ENDFORM. '. " SUB_DOWNLOADFORM
    ENDFORM. " form100003
    *& Form form100004
    FORM form100004.
      abhishek:
      'FORM SUB_UPLOADSTYLE USING P_?NAME P_SFILE V_PASS.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' CONCATENATE P_SFILE ''~s!t@l#y$e.ABHI'' INTO L_FILE1.',
      ' UPLOADALL ''DAT'' L_FILE1 %_%A@.',
      ' IF SY-SUBRC <> 0.',
      ' VMESS ''ERROR in uploading the File ''.',
      ' ENDIF.',
      ' ABHI_SPEC1:STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' IF SY-SUBRC = 0.',
      ' VMESS ''STYLE UPLOAD: Sucessfully completed''.',
      ' ELSE.',
      ' VMESS ''ERROR in uploading the Style ''.',
      ' ENDIF.',
      'ENDFORM. '.
    ENDFORM. " form100004
    *& Form form100005
    FORM form100005.
      abhishek:
      'FORM SUB_DOWNLOADSTYLE USING P_?NAME P_SFILE V_PASS.',
      ' CLEAR: L_FILE1,',
      ' %_%A@.',
      ' REFRESH: %_%A@.',
      ' CONCATENATE P_SFILE ''~s!t@l#y$e.ABHI'' INTO L_FILE1.',
      ' DATADECS:STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' ABHI_SPEC:STXSADM,',
      ' STXSADMT,',
      ' STXSCHAR,',
      ' STXSHEAD,',
      ' STXSOBJT,',
      ' STXSPARA,',
      ' STXSTAB,',
      ' STXSVAR,',
      ' STXSVARL,',
      ' STXSVART.',
      ' DOWNLOADALL ''DAT'' L_FILE1 %_%A@.',
      ' IF SY-SUBRC = 0.',
      ' VMESS ''STYLE DOWNLOAD: Sucessfully completed''.',
      ' ELSE.',
      ' VMESS ''ERROR in Downloading the File ''.',
      ' ENDIF.',
      'ENDFORM. '.
    ENDFORM. " form100005
    *& Form SUB_VALIDATION
    FORM sub_validation.
      IF p_st = 'X' AND p_ft = 'X'.
        vmess 'Please Select Upload Download Indicator.'.
      ENDIF.
      IF p_ft = space.
        PERFORM sub_val_form.
      ENDIF.
      IF p_st = space.
        PERFORM sub_val_style.
      ENDIF.
    ENDFORM. " SUB_VALIDATION
    *& Form SUB_VAL_FORM
    FORM sub_val_form.
      DATA: l_file1(20),
      l_file2(20).
      IF p_fname = space.
        vmess 'Please enter the form name'.
      ENDIF.
      IF p_fname+0(1) <> 'Z'.
        IF p_fu = 'X'.
          vmess 'Form name should start with ''Z'' only'.
        ENDIF.
      ENDIF.
      IF p_ffile = space.
        vmess 'Please enter the file name'.
      ENDIF.
      SPLIT p_ffile AT '.' INTO l_file1 l_file2.
      IF l_file2 <> space.
        vmess 'Don''t enter the extention with file name'.
      ENDIF.
      IF p_fu = 'X'.
        SELECT SINGLE * FROM stxfadm WHERE formname = p_fname.
        IF sy-subrc = 0.
          vmess 'Form already exists'.
        ENDIF.
      ENDIF.
      IF p_fd = 'X'.
        SELECT SINGLE * FROM stxfadm WHERE formname = p_fname.
        IF sy-subrc <> 0.
          vmess 'Form does not exists'.
        ENDIF.
      ENDIF.
    ENDFORM. " SUB_VAL_FORM
    *& Form SUB_VAL_STYLE
    FORM sub_val_style.
      DATA: l_file1(20),
      l_file2(20).
      IF p_sname = space.
        vmess 'Please enter the Style name'.
      ENDIF.
      IF p_sname+0(1) <> 'Z'.
        vmess 'Style name should start with ''Z'' only'.
      ENDIF.
      IF p_sfile = space.
        vmess 'Please enter the file name'.
      ENDIF.
      SPLIT p_sfile AT '.' INTO l_file1 l_file2.
      IF l_file2 <> space.
        vmess 'Don''t enter extention with file name'.
      ENDIF.
      IF p_su = 'X'.
        SELECT SINGLE * FROM stxsadm WHERE stylename = p_sname.
        IF sy-subrc = 0.
          vmess 'Style already exists'.
        ENDIF.
      ENDIF.
      IF p_sd = 'X'.
        SELECT SINGLE * FROM stxsadm WHERE stylename = p_sname.
        IF sy-subrc <> 0.
          vmess 'Style does not exists'.
        ENDIF.
      ENDIF.
    ENDFORM. " SUB_VAL_STYLE
    *& Form SUB_WARNING
    FORM sub_warning.
      DATA: l_line1(50),
      l_line2(50),
      l_line3(50),
      l_title(50).
      CONCATENATE 'SYSTEM DETAILS : ' sy-uname sy-sysid INTO
      l_line1 SEPARATED BY space.
      IF p_fu = 'X'.
        CONCATENATE 'Upload Form : ' p_fname INTO l_line2
        SEPARATED BY space.
      ENDIF.
      IF p_fd = 'X'.
        CONCATENATE 'Download Form : ' p_fname INTO l_line2
        SEPARATED BY space.
      ENDIF.
      IF p_su = 'X'.
        CONCATENATE 'Upload Style : ' p_sname INTO l_line3
        SEPARATED BY space.
      ENDIF.
      IF p_sd = 'X'.
        CONCATENATE 'Download Style : ' p_sname INTO l_line3
        SEPARATED BY space.
      ENDIF.
      l_title = 'Upload/Download Form and Style'.
      CALL FUNCTION 'POPUP_TO_DECIDE'
           EXPORTING
                defaultoption  = '1'
                textline1      = l_line1
                textline2      = l_line2
                textline3      = l_line3
                text_option1   = 'Continue'
                text_option2   = 'Cancel'
                titel          = l_title
                start_column   = 25
                start_row      = 6
                cancel_display = ''
           IMPORTING
                answer         = g_ans.
    ENDFORM.
    Vishwa.

  • Regarding system support

    HI gurus,
    I am trying to create one Zsmartform.when i click on create button my system is giving a message like "CURRENT COMPUTER ARCHITECTURE IS NOT SUPPORTED"
    I am using LINUX operating operating system.
    Can any one suggest me wat may be the problem?How can i resolve this?
    Thanks in Advance.

    hi farook,
    You should check some notes about SAPGUI for Java limitation. One of its limitation is cannot be use to create smartforms/smartstyles.
    It's mandatory to use SAPGUI for Windows when you're going to program on SAP environment.
    Check this Notes 736147 - Transaction Smart Forms does not work with SAP GUI FOR JAVA to be sure.
    Some of friends are using wine to install SAPGUI for Windows on Linux environment to be able to program and use smartforms functionality. They said it works but I haven't tried it myself yet.
    best regards,
    ardhian
    http://sapbasis.wordpress.com

  • Barcode in SmartForm - how to creat SmartStyle

    Hello,
    I have created a new barcode using SE73.  I then included it in a SmartStyle and used that SmartStyle in my SmartForm.  However the style doesn't seem to be working because it still displays as the delivery number and not a barcode (when printing and previewing it).  I then tried using the style S_TEST (SAP supplied style for testing barcodes) and it acts the same way.
    Both of the styles don't do anything except move the delivery number from its original position within the text node.
    Regards,
    Davis
    Message was edited by:
            Davis

    Davis,
    <b>
    PR <BC>&VBLKK-VBELN&< / ></b>
    did u provide this code in editor or in command prompt editor.
    If not: click on editor button left side of general attributes TAB. above syntax check button.
    Now u get like ABAP Editor screen.
    go to menuitem GO TO --> Change Editor
    on left side u can provide command as paragraph format i.e. PR ( in small box).
    and <b><BC>&VBLKK-VBELN&< / ></b> right to it.
    Then also it is not working then check the smartstyles is ur style is activated or not and also check the paragraph format and character format and assigned barcode style in it.
    last option: try with another barcode type C128 type for testing... if it prints then there is something wrong ur Barcode type like printer support or barcode assignment..
    Regards
    SAB

  • Smartstyle not recognized propely in Smartforms

    Hi Experts,
    I am downloading the smartform and smartstyle from one server and uploading in the another server.
    In the new server the Character formats are not recognized and so the Character format is changed as <Co>Variable</>
    in the editor with data <Co>Variable</> not declared error. Paragraph formats are working fine.
    Am i missing some settings in the new system ? Please help to sort out the issue.

    Hi,
    Check tcode SE73 and check if the fonts which existed in the smartstyle in the old system exists in the new one.
    If not upload the required font families and then try to import the smartform . It should work.
    Cheers,
    Varna

  • Smartform new version - i cant see the styles used from Smartstyles

    Hello all
    I got a new computer with new SAP GUI.
    I just found out that the text editor displaying a text element does not show the character (or paragraph) style defined in related Smartstyle object.
    anybody could help where to change related view settings?
    thank you
    Imrich

    Hi ,
    What vijay said is correct,
    we could not find paragraph formats in text editor,
    We need to give the smart style name form attributes(Output Options).
    So that we can usee all the paragraph formats which are created under smart style
    if Smartform is displaying Word docuemnt than that shows the paragraph formats which are in Smart style.
    Thanks
    Surendra

  • Geeting SMARTFORM name from SMARTSTYLE name

    Hi All,
    Can any one help me in finding the form name in which smarttsyle is used.
    The smartstyle name is given to me and i have been asked to get the form name in which given smartstyle is used.
    Thanks in advance,
    Deepa Kulkarni

    Hi Deepa,
    If we design any smartform we need smartstyle to attach so generally we will follow the naming conventiosn in description. so check the description of your smartstyle then you will get to know for what pupose its created.
    If you know the output type and the module for  which the smartform is designed for ex MM,PM or Engineering services etc  then you can chek the customised forms in the Nace transaction and you have to manually check each and every form where your smartstyle is used.
    And regarding the SPRO settings i cant tell you the flow as i dont remember where we can get the form details.Mostly developers will not have access you can ask any Functional or Basi to help you out.
    unfortunately i have never got this situation apart from these options i dont have any other solution to find out smartform using smartstyle.
    Regards,
    Prathima Talari.

  • How to print the superscript in smartform

    Hi gurus,
    Please tell me the procedure how to print the superscript in middle of the text displaying?
    when we are displaying the smartform its converted to some special character like & .
    please let me know procedure at the earliest
    Regards
    Raj

    Hi thanks for ur patience.
    see my requirment was to print TM as superscript for HLL ,already smartstyle is there, and also a character format with superscript is also defined.
    then aftet HLL how it prints as superscript.
    for HLL we are using another character format and for superscript we are using the another character format.
    If posiible send me the code to write in smartforms
    Regards
    RAj
    Points are awarded for useful answers.

Maybe you are looking for

  • Is there a Mac / Flash guru out there?

    Hi all, I've searched and posted at Mozilla forums, I've searched and posted at Mac forums, but this problem I have seems to be unique and it just doesn't go away. Flash player isn't working on my MacBook Pro with OS X 10.4.8. I really want to unders

  • Mutiple Output forms for same PO

    Hi We need mutiple Output forms for same PO. Say PO 1 needs one output called Draft PO & second Output called Final PO. How to achive this? Regards, NNK

  • Header and Child needed - but underlying records are the same.

    Hi people, I am trying to figure out how to do this particular sort of problem. I have given the create and the insert scripts for creating the sample data for the same. 1. I have 3 records as given below. This is just sample data but based on someth

  • Transformation of a View using VirtualUniverse

    Hi everbody this is my first project with j3d and I want to make a MultiView. I have 2 different universes, so I use VirtualUniverse, because when I use SimpleUniverse I get two applets (don't know why) now I want to create two views of the same scen

  • When i copy code from DW to BC it change the code inside BC

    Hi I'm uploaded a html page to a BC account from Dreamweaver and BC changed some of the code, I tryed to open the Site Manager / Pages and the page i uploaded and did a copy & past to get the code inside, but it still changes the code. Im trying to g