Probelm in Smart forms Download/upload into Ecc6.0
Dear Friends,
i m working on Sap4.6c version i want to download smartform(report) from 4.6c and upload it into ECC6 so is there is any utility to do this.
regarding sapscript there is one program rstxscrp to do this, is there is any such program for smartform.
thanks in advance
regards,
Bhaskar.
Hi,
I dont think it is available.
Save the smartforms in a request and ask the Basis to transport to the ECC6.0 system.
This is very simple and easy to do, as you will not miss out anything even if you had to redo the same in Ecc6.0
Regards
Subramanian
Similar Messages
-
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. -
Smart form downloaded into .xml file ??.
Hi all,
When a smart form is downloaded, it gets downloaded as a .xml file.
My question is, how does it get converted to .xml file.
<i>Is there any</i> <u>function module</u> that is called and <i>if so</i> <u>what</u> is the function module.Hi,
You can download into XML format. However, it's not sure about uploading. Refer to the program <b>'SF_XSF_DEMO'</b>.
In 4.7 Enterprise, other have seen this utlity which is completey missing in 4.6c. There is functionality to downlaod a complete form or only a particular node. (Utilities -> Download form). It will create a XML file and save it in the hard disk.
Feel free to revert back.
--Ragu -
Hello All ,
I have created one smart form and provided option to download the same in PDF. My Problem is that is downloaded in PDF but at the same time my end user want to see the print preview and take the print from there itself also.
I am using the following code can some one suggest me the what need to do the change after both option will work at the same time.
Please Note I have also made the use of property
SSFCOMPOP-TDNOPREV
But after this also issue not resolve. Some one Please suggest me the how to resolve the issue.
DATA :
WA_FMNM TYPE TDSFNAME, " Smart Forms: Form Name
WA_CNTL TYPE SSFCTRLOP, " FOR PDF PRINT
WA_POP TYPE SSFCOMPOP, " printer name
T_OTF_FROM_FM TYPE SSFCRESCL,
T_PDF_TAB LIKE TLINE OCCURS 0 WITH HEADER LINE,
T_OTF TYPE SSFCRESCL-OTFDATA,
W_BIN_FILESIZE TYPE I, " BINARY FILE SIZE
W_FILE_NAME TYPE STRING,
WA_FNMD TYPE RS38L_FNAM. " Name of Function Module
DATA:
W_FORM_NAME TYPE TDSFNAME,
W_FMODULE TYPE RS38L_FNAM,
W_CPARAM TYPE SSFCTRLOP,
W_OUTOPTIONS TYPE SSFCOMPOP,
W_FILE_PATH TYPE STRING,
W_FULL_PATH TYPE STRING.
SMART FORM FUNCTION MODULE
WA_FMNM = TEXT-113.
W_FORM_NAME = TEXT-113.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = WA_FMNM
IMPORTING
FM_NAME = WA_FNMD
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.
END FORM
WA_CNTL-GETOTF = 'X'.
WA_CNTL-NO_DIALOG = 'X'.
WA_CNTL-PREVIEW = SPACE .
WA_POP-TDDEST = 'LP01'.
CALL FUNCTION WA_FNMD
EXPORTING
CONTROL_PARAMETERS = WA_CNTL
OUTPUT_OPTIONS = WA_POP
V_APPLN_OB = V_APPLN_OB
V_KUNNR_OB = V_KUNNR_OB
V_EBELN = V_EBELN
V_CAT_NAME = V_CAT_NAME
V_VAR_NAME = V_VAR_NAME
IMPORTING
JOB_OUTPUT_INFO = T_OTF_FROM_FM
TABLES
T_ZCNC18 = T_ZCNC18
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.
T_OTF[] = T_OTF_FROM_FM-OTFDATA[].
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132
IMPORTING
BIN_FILESIZE = W_BIN_FILESIZE
TABLES
OTF = T_OTF
LINES = T_PDF_TAB
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
ERR_BAD_OTF = 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.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
PROMPT_ON_OVERWRITE = 'X'
CHANGING
FILENAME = W_FILE_NAME
PATH = W_FILE_PATH
FULLPATH = W_FULL_PATH
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4 .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = W_BIN_FILESIZE
FILENAME = W_FULL_PATH
FILETYPE = 'BIN'
APPEND = ' '
WRITE_FIELD_SEPARATOR = ''
HEADER = '00'
TRUNC_TRAILING_BLANKS = ''
WRITE_LF = 'X'
COL_SELECT = ''
COL_SELECT_MASK = ''
DAT_MODE = ''
CONFIRM_OVERWRITE = ''
NO_AUTH_CHECK = ''
CODEPAGE = ''
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ''
TRUNC_TRAILING_BLANKS_EOL = 'X'
TABLES
DATA_TAB = T_PDF_TAB
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22 .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards
Swati NamdevHi Swati,
Pls refer the below code:
TABLES: ekko.
DATA: int_itab TYPE TABLE OF ekko WITH HEADER LINE.
DATA: wf_name TYPE rs38l_fnam.
DATA: wf_so1.
*For PDf Conversions
DATA: int_tab_otf_data TYPE ssfcrescl,
int_pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE,
int_tab_otf_final TYPE itcoo OCCURS 0 WITH HEADER LINE,
file_size TYPE i,
bin_filesize TYPE i,
file_name TYPE string,
file_path TYPE string,
full_path TYPE string,
cparam TYPE ssfctrlop,
outop TYPE ssfcompop.
**Preview not allowed.
outop-tddest = 'LP01'.
cparam-no_dialog = 'X'.
cparam-preview = ' '.
cparam-getotf = 'X'.
GET PARAMETER ID 'EBLEN' FIELD wf_so1.
SELECT mandt ebeln bukrs bsart ernam ekorg bedat FROM ekko INTO TABLE
int_itab WHERE ebeln = wf_so1.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'Z_SMARTFORM_FINAL2'
IMPORTING
fm_name = wf_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.
CALL FUNCTION wf_name
EXPORTING
control_parameters = cparam
output_options = outop
user_settings = space
IMPORTING
job_output_info = int_tab_otf_data
TABLES
int_itab = int_itab.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
int_tab_otf_final[] = int_tab_otf_data-otfdata[].
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
max_linewidth = 132
IMPORTING
bin_filesize = bin_filesize
TABLES
otf = int_tab_otf_final
lines = int_pdf_tab.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
CHANGING
filename = file_name
path = file_path
fullpath = full_path.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = bin_filesize
filename = full_path
filetype = 'BIN'
IMPORTING
filelength = file_size
TABLES
data_tab = int_pdf_tab.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards,
Ramneet Ahuja -
4.6 C Smart Form Download
Is there any program to dowm load and upload smart form in 4.6 version.
Thank you.Hi AP,
The download and upload utilities are available from 4.7 onward.
Bur you can check this link for custom program which downloads the SmartForm as well as Smartstyles.
http://sap4.com/wiki/index.php?title=ZSMART_FORM_UPLOAD_DOWNLOAD
Hope this will help.
Regards,
Ferry Lianto -
Smart form out put into PDF ????
How to download into PDF file after the execute Smart form out put ????
hi,
pls try this code.
*& Report : ZPDF_FORMAT
*& Description : Conversion of Purchase Order into PDF format
*& used in the workflow (Do Not Change or Delete).
REPORT zpdf .
*& Tables used
TABLES: nast, tsp01, t024, spop, lfa1, tnapr.
*& Data declaration
DATA: spoolno LIKE tsp01-rqident.
DATA: rcode LIKE sy-subrc.
*data: doc_auth like zoutput-ztag.
DATA: cancel.
DATA: pdf LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: numbytes TYPE i,
pdfspoolid LIKE tsp01-rqident,
jobname LIKE tbtcjob-jobname,
jobcount LIKE tbtcjob-jobcount,
is_otf.
DATA: client LIKE tst01-dclient,
name LIKE tst01-dname,
objtype LIKE rststype-type,
type LIKE rststype-type.
DATA: dir_loc(3).
DATA: t_docno LIKE vbak-vbeln..
DATA: spoolreq1 LIKE tsp01sys.
DATA: spoolreq LIKE rsporq OCCURS 0 WITH HEADER LINE.
DATA: t_frgke LIKE ekko-frgke.
DATA: okcode(10),
flag,
t_ekgrp LIKE ekko-ekgrp,
t_lifnr LIKE ekko-lifnr,
s_mail.
Data Declartion for mailing system - Start.
DATA: objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE.
DATA: objhead LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA: objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA: objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA: reclist1 LIKE somlreci1 OCCURS 500 WITH HEADER LINE.
DATA: reclist LIKE somlreci1 OCCURS 500 WITH HEADER LINE.
DATA: itab LIKE somlreci1 OCCURS 50 WITH HEADER LINE."RKU 220802
DATA: doc_chng LIKE sodocchgi1.
DATA: BEGIN OF bdcdata OCCURS 0.
INCLUDE STRUCTURE bdcdata.
DATA: END OF bdcdata.
DATA: tab_lines LIKE sy-tabix.
DATA: verkf LIKE ekko-verkf.
DATA: bemail(250), vemail(250).
Data acceptance
SELECTION-SCREEN BEGIN OF BLOCK blk0_input WITH FRAME .
PARAMETERS: docno LIKE ekko-ebeln OBLIGATORY LOWER CASE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK blk0_input.
Initialisation
*initialization.
Screen Parameters Validation
*at selection-screen.
AT SELECTION-SCREEN.
SELECT SINGLE frgke INTO t_frgke FROM ekko
WHERE ebeln = docno
AND frgke = 'R'.
IF sy-subrc <> 0.
MESSAGE 'DOCUMENT NOT RELEASED' TYPE 'E'.
ENDIF.
Execution Part
START-OF-SELECTION.
For PO related operation
Dislay Buyer Group, Name and Email id
SELECT SINGLE
ekgrp
lifnr
verkf
INTO (t_ekgrp, t_lifnr, verkf)
FROM ekko
WHERE ekko~mandt = sy-mandt
AND ebeln = docno.
IF sy-subrc = 0.
SELECT SINGLE * FROM lfa1
WHERE lfa1~mandt = sy-mandt
AND lifnr = t_lifnr.
ENDIF.
Get message status from NAST or assign msg status NAST stru
Pass the message status and get spool data
PERFORM check_output_create_spool.
IF rcode NE 0.
IF rcode = 9.
message s185 with text-e04.
ELSE.
message s185 with text-e01.
ENDIF.
EXIT.
ENDIF.
find the spool
PERFORM find_spool_request_id.
IF sy-subrc <> 0.
message s185 with text-003.
EXIT.
ENDIF.
READ TABLE spoolreq
WITH KEY rq0name = nast-dsnam
rq1name = 'LP01'
rqclient = '800'
rq2name = sy-uname
rqowner = sy-uname.
IF sy-subrc <> 0.
CASE sy-subrc.
WHEN 1.
message s185 with text-e03.
WHEN OTHERS.
message s185 with text-e02.
ENDCASE.
EXIT.
ENDIF.
spoolno = spoolreq-rqident.
Convert SPOOL job to PDF
PERFORM convert_spool_to_pdf.
Send through mail
PERFORM assign_data_4_mail.
PERFORM send_mail_with_attachment.
Delete created spool request
spoolreq1-rqident = spoolno.
PERFORM delete_spool_job.
*& Form check_output_create_spool
text
--> p1 text
<-- p2 text
FORM check_output_create_spool.
SELECT SINGLE * FROM nast WHERE objky = docno
AND kappl = 'EF'
AND kschl = 'NEU'
AND aktiv = space
AND nacha = '1'.
IF sy-subrc EQ 0.
COUNT = COUNT + 1.
PERFORM mssage_status_field_value.
nast-vsztp = '4'.
PERFORM einzelnachricht_dialog(rsnast00) USING rcode.
ELSE.
CLEAR nast-uhrvr.
CLEAR nast-cmfpnr.
CLEAR nast-datvr.
PERFORM mssage_status_field_value.
nast-vsztp = '4'.
PERFORM einzelnachricht_dialog(rsnast00) USING rcode.
else.
rcode = 9.
ENDIF.
ENDFORM. " check_output_create_spool
*& Form mssage_status_field_value
text
--> p1 text
<-- p2 text
FORM mssage_status_field_value .
nast-mandt = '800'.
nast-kappl = 'EF'.
nast-kschl = 'NEU'.
nast-objky = docno.
nast-ldest = 'LP01'.
nast-anzal = 1.
nast-dimme = 'X'.
nast-delet = 'X'.
nast-nacha = '1'.
nast-vsztp = '2'.
nast-spras = 'E'.
nast-vstat = '0'.
nast-manue = 'X'.
nast-erdat = sy-datum.
nast-eruhr = sy-uzeit.
nast-usnam = sy-uname.
nast-tdreceiver = sy-uname.
concatenate sy-uzeit+2(4) 'PDF' into nast-dsnam.
ENDFORM. " mssage_status_field_value
*& Form find_spool_request_id
text
--> p1 text
<-- p2 text
FORM find_spool_request_id.
CALL FUNCTION 'RSPO_FIND_SPOOL_REQUESTS'
EXPORTING
allclients = '800'
authority = ' '
datatype = '*'
has_output_requests = '*'
rq0name = nast-dsnam "'*'
rq1name = '*'
rq2name = '*'
rqdest = 'LP01'
rqident = 0
rqowner = sy-uname
TABLES
spoolrequests = spoolreq
EXCEPTIONS
no_permission = 1
OTHERS = 2.
ENDFORM. " find_spool_request_id
*& Form convert_spool_to_pdf
text
--> p1 text
<-- p2 text
FORM convert_spool_to_pdf.
SELECT SINGLE * FROM tsp01 WHERE rqident = spoolno.
IF sy-subrc <> 0.
WRITE: / 'Spool order does not exist'
COLOR COL_NEGATIVE.
EXIT.
ENDIF.
client = tsp01-rqclient.
name = tsp01-rqo1name.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
EXPORTING
authority = 'SP01'
client = client
name = name
part = 1
IMPORTING
type = type
objtype = objtype
EXCEPTIONS
fb_error = 1
fb_rsts_other = 2
no_object = 3
no_permission = 4.
IF objtype(3) = 'OTF'.
is_otf = 'X'.
ELSE.
is_otf = space.
ENDIF.
IF is_otf = 'X'.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = spoolno
no_dialog = ' '
IMPORTING
pdf_bytecount = numbytes
pdf_spoolid = pdfspoolid
btc_jobname = jobname
btc_jobcount = jobcount
TABLES
pdf = pdf
EXCEPTIONS
err_no_otf_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_dstdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11.
if sy-subrc <> 0.
case sy-subrc.
when 1.
write: / text-001 color col_positive.
when 2.
write: / text-002 color col_negative.
exit.
when 3.
write: / text-003 color col_negative.
exit.
when 4.
write: / text-004 color col_negative.
exit.
when others.
write: / text-005 color col_negative.
exit.
endcase.
endif.
ELSE.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = spoolno
no_dialog = ' '
DST_DEVICE =
PDF_DESTINATION =
IMPORTING
pdf_bytecount = numbytes
pdf_spoolid = pdfspoolid
LIST_PAGECOUNT =
btc_jobname = jobname
btc_jobcount = jobcount
TABLES
pdf = pdf
EXCEPTIONS
err_no_abap_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_destdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11.
case sy-subrc.
when 0.
*write: / 'Funktion CONVERT_ABAPSPOOLJOB_2_PDF erfolgreich
*(successful)'.
color col_positive.
when 1.
write: / text-001 color col_positive.
when 2.
write: / text-002 color col_negative.
exit.
when 3.
write: / text-003 color col_negative.
exit.
when 4.
write: / text-004 color col_negative.
exit.
when others.
write: / text-005 color col_negative.
exit.
endcase.
ENDIF.
ENDFORM. " convert_spool_to_pdf
*& Form delete_spool_job
text
--> p1 text
<-- p2 text
FORM delete_spool_job .
CALL FUNCTION 'RSPO_IDELETE_SPOOLREQ'
EXPORTING
spoolreq = spoolreq1
IMPORTING
RC =
STATUS =
EXCEPTIONS
error = 1
OTHERS = 2
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. " delete_spool_job
*& Form ASSIGN_DATA_4_MAIL
text
--> p1 text
<-- p2 text
FORM assign_data_4_mail .
Text content of the mail
move 'Purchase order: ' to objtxt.
append objtxt.
move verkf to objtxt.
append objtxt.
move lfa1-name1 to objtxt.
append objtxt.
concatenate lfa1-ort01 lfa1-pstlz
into objtxt separated by space.
append objtxt.
clear: objtxt.
append objtxt.
append objtxt.
CLEAR objtxt.
CONCATENATE 'Purchase Order - ' docno
' has been released.'
INTO objtxt SEPARATED BY space.
APPEND objtxt.
clear: objtxt.
append objtxt.
append objtxt.
MOVE ' ' TO objtxt.
APPEND objtxt.
clear: objtxt.
append objtxt.
append objtxt.
concatenate 'Note:- This is an automatic mail sender.'
' Please do not reply to this mail ID.'
into objtxt.
append objtxt.
concatenate
' Any query, please send the mail to the respective buyer'''
's mail id.' into objtxt.
append objtxt.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = docno
IMPORTING
output = docno.
TLINE format will be coverted as 255 char foramt
CALL FUNCTION 'QCE1_CONVERT'
TABLES
t_source_tab = pdf
t_target_tab = objbin
EXCEPTIONS
convert_not_possible = 1
OTHERS = 2.
DESCRIBE TABLE objtxt LINES tab_lines.
creation of the entry for the compressed document
CLEAR objpack.
objpack-transf_bin = ''.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'.
objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
APPEND objpack.
creation of the entry for the Attachemnt
DESCRIBE TABLE objbin LINES tab_lines.
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'PDF'.
CONCATENATE docno '.PDF' INTO objpack-obj_name.
objpack-obj_descr = objpack-obj_name.
objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
APPEND objpack.
For Object Header
CONCATENATE docno '.PDF' INTO objhead.
APPEND objhead.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
CONCATENATE 'Purchase Order - ' docno ' has been released'
INTO doc_chng-obj_descr.
doc_chng-obj_prio = 1.
recipient Details
CLEAR reclist1.
CLEAR reclist.
REFRESH reclist1.
REFRESH reclist.
SELECT SINGLE * FROM t024
WHERE t024~mandt = sy-mandt
AND ekgrp = t_ekgrp.
reclist1-receiver = t024-smtp_addr.
reclist1-rec_type = 'U'.
reclist1-com_type = 'INT'.
reclist1-receiver = '[email protected]'.
modify table reclist transporting rec_type receiver COM_TYPE .
where rec_type is initial.
APPEND reclist1 TO reclist.
ENDFORM. " ASSIGN_DATA_4_MAIL
*& Form send_mail_with_attachment
text
--> p1 text
<-- p2 text
FORM send_mail_with_attachment.
sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = doc_chng
put_in_outbox = 'X'
commit_work = 'X'
TABLES
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
OTHERS = 99.
CASE sy-subrc.
WHEN 0.
PERFORM flush_mail.
message 'Mail sent successfully' type 'I'.
when 1.
message 'No authorization for sending to the specified number'
*type 'E'.
when 2.
message 'Document could not be sent to any recipient' type 'E'.
when 4.
message 'No send authorization' type 'E'.
when others.
message 'Error occurred while sending' type 'E'.
ENDCASE.
ENDFORM. " send_mail_with_attachment
Start new screen *
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM. "bdc_dynpro
Insert field *
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM. "bdc_field
*& Form AUTOMATE
text
--> p1 text
<-- p2 text
FORM flush_mail .
PERFORM bdc_dynpro USING 'SAPMSSY0' '0120'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=PDIA'.
PERFORM bdc_dynpro USING 'SAPLSPO4' '0300'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=FURT'.
PERFORM bdc_field USING 'BDC_CURSOR'
'SVALD-VALUE(01)'.
PERFORM bdc_field USING 'SVALD-VALUE(01)'
'int'.
PERFORM bdc_dynpro USING 'SAPMSSY0' '0120'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BACK'.
PERFORM bdc_dynpro USING 'SAPMSSY0' '0120'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BACK'.
CALL TRANSACTION 'SCOT' USING bdcdata
MODE 'N'
UPDATE 'S'.
ENDFORM. " AUTOMATE
regards,
Latheesh -
Hi all,
When a smart form is downloaded it gets downloaded as .xml file.
The question is, how does the smart form get converted to xml file. Is there any function module that is called when we download it and if so what is the function module.Hi
These are the two standard function modules when we download the smart form.
FUNCTION SDIXML_DATA_TO_DOM.
and
FUNCTION SDIXML_DOM_TO_XML'.
Hope this will definitely help you.
Please reward suitable points.
Regards
- Atul -
Smart forms download 4.6C
Hello,
I'm working on SAP 4.6C system. I want to download and upload a smartform. Does anyone know a way to do that without using a transport. In 4.7 and higher it is easy to do. Is there another way to import or export a smartform.
Thanx,
FrankWithout Transport Request it is not possible ..
Similar Thread
Check
download smartform
REgards,
Santosh -
Hi, After migration of smart form into adobe form, while checking( syntax )
hi,
After migration of smart form into adobe form, while checking( syntax ) the error message will be displayed like the Sender Country is not filled. if i fill the sender country then only the adobe form activate but no sender country is provided in smart form. how can we rectify this problem in migration of smart form into adobe forms ( Address node ).
sender country is not mandatory in smart form but comes into adobe form it is mandatory. How can we handle this type of issues.
Thanks®ards,
Ashok ReddyI too have the same query..to check Adobe form after migrating from smartform.
Can anybody answer in this regard?
Thanks in advance.. -
How to upload the text file into smart forms
Hi Experts,
can any one tell me that how to upload the text file or html file to SAP Script form or smart forms
i have download the form info from SAPscript form.to text file.
now i want to upload the text file to smartforms.
is it possible ? if it is possible, then how can i do that ?
Thanks in Advance.
Regards,
Mani<b>For Scripts</b>
Go to SE38. Put in the program name RSTXSCRP. Execute it.
Mode(Export/Import) : Import.
Give the file name from which you want to upload and execute it.
<b>For Smartforms</b>
TCode : smartforms.
Give the form name.
Utilities-->Upload form.
Reward points if helpful.
Thanks
Aneesh. -
Download Smart form data for 6000 Invoice documents into Excel
Hi,
Using RSNAST000 program currently we are printing samrtform.
Instead of printing data in smartform i need to write into excel.
Please let me know the logic to do this i need to write 6000 smartforms(Invoice documents) data into Excel.
Thanks
BhuvanaAsk him how he thinks smart forms can be embedded in Excel, and why he wants Excel (for which benefit, for using which functions of Excel?). He has an idea, for sure.
Technical possibilities of Excel to embed graphical documents are very limited, I mean 2 solutions: either storing the whole document as an image (rather easy), or split the document into pieces of text (into cells) and boxes and images (stored as Excel graphical elements) with a rather bad render (highly complex, I mean unfeasible).
- If his idea is to embed them as images (PDFs), then show him the result : 50 kb to 500 kb for each smart form = excel of several mega bytes. He will certainly regret. Moreover I don't see the interest.
On the other way, propose him to store smart forms in a single spool, so he will be able to display (it's then equivalent to preview) all of them at the same time. He'll surely agree that it's the most efficient way.
Propose him proofs of concepts. -
How to Download Smart Form in 4.6C.
Hi all,
I am using the version 4.6C.
Is there any standrd program like in SAP SCRIPTS to download the smart form layout to desktop later can upload to SAP.
In 4.7 have a option to downloadand upload but how to do it in 4.6C?
Any Ideas from your side? please let me know
Thanks
Martin.
<MOVED BY MODERATOR TO THE CORRECT FORUM>
Edited by: Alvaro Tejada Galindo on Jan 8, 2009 11:25 AMtry this program "ZI_LOAD_SMARTFORMS_AND_STYLES"
How could he try it...If it's a Z program?
Greetings,
Blag. -
How to down load the output of smart form into .XLS(spreadsheet) File.
Hi All,
We have one requirement like we need to down load the output of smart form into .XLS(spreadsheet) File.
This output is related to Shipment(VT03N) in the output we are not displaying the any logo.
Just we are displaying the address and item detail.
Anyone tell me, If possible please let me know how can solve that problem.
Thanks and regards,
Amjad Hussain,Hi Mohammed,
Absolutly you can download output from smartforms to excel.
After execution of your Smartforms in that layout Menu bar Do below navigation.
GoTo => ListDisplay after that
System => List
=> Save
=> Local File
=> Spread Sheet.
if helpful REWARD points
Thank you .
Regards
Ramana -
Uploading to online data storage: Now cannot download songs into iTunes
Hello all.
I am not seeing this one on any FAQs, knowledge bases, or discussion boards yet:
I am doing my initial upload of files to SugarSync, a highly-recommended online data storage service. Since I started, I cannot download songs into iTunes, even from the iTunes Store.
On any new downloads from the iTunes Store, the song DOES appear in the Music library view but immediately after completing the download it shows the exclamation point warning that the file is not in its location. The new folders get created properly within the iTunes Music folder but the subfolder where the song should be is empty. Each time I had to write iTunes Support to get them to make the files available.
I can still add files manually, no problem. E.g., I can add *.mp3 or *.wav files or folders, I can convert them to AAC, etc. The glitch seems to occur only when automated loads into iTunes are operating.
As a test, I downloaded a song from Amazon. Here the problem was different but I could work around it manually. Normally the Amazon process loads songs automatically into iTunes, too. Here again, the download did create the proper folder in the iTunes Music folder, as it should, but this time the symptoms were reversed:
(a) the mp3 file WAS in its folder as it should be (w/the iTunes DL, the file was NOT there)
(b) the song did NOT appear in the iTunes Music view (w/the iTunes DL, the song DID appear)
(c) I was able to browse to the file and tell it manually to load into iTunes (w/iTunes I had to write Support and wait a day).
(I wonder what's the cause of the differences between the two cases.)
Strictly speaking, I can't PROVE the problem has anything to do with SugarSync (which otherwise seems good so far), but the DL problem started as soon as I started using it. Something in the SugarSync upload or file-monitoring process, or an odd thin gin iTunes, seems to be preventing automated, direct loads into iTunes. And since the data service runs in background, so it can monitor file changes, that might mean I can't buy music anymore! Obviously that would be a dealbreaker with SS. (I have contacted SS on this but they've not had fair chance to reply yet.)
1) Anyone else have this problem?
2) Is this permanent or just temporary while I am doing the initial upload?
3) Anyone know a solution?
(FYI, I am a highly-experienced user and otherwise quite handy with iTunes files, library moves, and backups. My library is entirely consolidated and all AAC.)
Thanks.
(Oh, and this occurred in both iTunes 8 and the new iTunes 9, so it seems unrelated to the upgrade this week.)UPDATE 1. CHANGING BROWSER HELPED -- OR DID IT?
I called Apple iTunes Support, who said the problem is new to them. The technician's hypothesis was that something, perhaps browser-related, was interfering with the initial creation of a temporary file (which should go to the Recycle Bin) that instead causes the completed file to go to there.
He noted that iTunes, though not going through one's browser onscreen, does use settings within one's default browser. I use Mozilla Firefox, so we switched to IE as the default browser, restarted iTunes, and the song downloaded with no problem! Then I switched back to Mozilla, restarted iTunes, and it worked AGAIN with no problem!
(Dutifully I advised SugarSync, which is still investigating.)
UPDATE 2: ARTIST NAME CHANGE - SOME FILES GOT MIS-MOVED / MIS-CHANGED
Definitely something still wrong. This time some pre-existing song entries (not new downloads) lost their connection to their source file.
In iTunes, which manages folder names for artists and albums automatically, I corrected the spelling for an Artist, so immediately iTunes renamed the folder, and automatically SugarSync noted the change to be uploaded. While the changed folder name and all the songs within were still uploading to SS, in iTunes I saw exclamation points come up -- but only for some of them. Most files got moved or changed correctly, but several lost connection to their file (i.e., the file was removed for the original misnamed folder but never moved into the correctly-named folder). Weird.
Worse, in only some of those cases did I find the missing *.m4a file in the Recycle bin. (I had to retrieve old, original *.mp3 versions from another folder and re-import each into iTunes manually.) I've never seen iTunes have a problem managing an Artist rename until I started using the live SS process.
(I've reported this to SS and asked if there is a way to disable temporarily SS to see if that's the problem.)
[Note: I am willing to try downloads again but I am wary of trying to rename entire Artists (Folder) again. That was a lot of work.]
====
UPDATE 3: SERIES OF TESTS - 1 FAILURE USING iTUNES
Still problem occurs, but not always. Today, I rebooted PC. I tried CD, iTunes, & Amazon. I varied having the browser open when using iTunes.
Here are the results of a series of attempts to download songs. "FAIL" means the file did not load properly into iTunes or loaded but lost its connection (exclamation point warning).
# Source Mozilla #Songs Result
1 CD Closed 1 OK
2 iTunes Closed 1 OK
3 Amazon Open 2 OK
4 iTunes Open 1 FAIL
5 Amazon Open 1 OK
6 iTunes Closed 1 OK
7 Amazon Open 2 OK
8 iTunes Open 2 OK
(I reported this to SS. Hoping they'll test and find the problem.) -
Problem in converting smart form into PDF
HI Experts,
I am using a Function Module CONVERT_OTF for converting smart form into pdf file for send it to with attachment.
But i got a error when i am using that FM.
Runtime Errors CONVT_NO_NUMBER
unable to interpret *292 as a no.
Is that because my file size too large about 13 pages of PDF?
and when i run it for other smart forms which have 2 or 3 pages of PDF, its working perfectly.
can anyone tell what is problem with that FM?
Thanks
ShakunHi,
I had the similar issue and after analysis I have that this is the issue by not passing the IMPORTING parameter of the Function Module "BIN_FILESIZE". Please try to pass some variable to this paramter and then this will be completely rectified.
DATA ; v_filesize TYPE i.
*--Convert OTF data to PDF data
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
max_linewidth = 132
IMPORTING
bin_filesize = v_filesize
TABLES
otf = it_otfdata
lines = it_pdfdata
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
OTHERS = 5.
Please verify whether this reolves the problem for you.
Regards,
SRinivas
Maybe you are looking for
-
Hi. I've got a problem with my sound. I use a Audigy 4 pro with the external unit and a Cambridge Soundworks (Creative) DTT3500 digital speakerset. The external unit only sends the digital signal to the speakerset. When I Test the speakers the sound
-
Video camera output (i.Link or Firewire) to connect to my MacBook Air USB input
Is there a way to for my video camera output (i.Link or Firewire) to connect to my MacBook Air USB input??? Is there any kind of adapter?? I have many movies I want to edit on my Mac
-
Acrobat Pro 9 problems - please help
Hello there from Victoria, Canada We are a small group of teachers that produce monthly current events teaching units for Canadian schools. Some of our our customers receive the newsletter by mail, and the rest download pdf files from our website. Th
-
Indesign CS3 error on start up
Indesign CS3 on startup up reports a Java Script error- number 45 line 387. Had previously been working fine. Also works ok in other user accounts on my mac. I have tried trashing preferences, renaming recovery data, using clean up tool and then re-i
-
Daylight savings patch - Treo 750 Windows Mobile
Sorry because I see so many items when I search and I just can't find what I need (i just spent an hour on the MS site as well and it kept giving me articles and not downloads.) Can someone pls provide me the palm update link? I already did the Outl