on 12-12-2009 5:35 AM
Dear all,
I wanted to take backup of all smartforms. How to take this instead of copying one by one ?
Is there any Zreport ?
use [SAPLINK tool|http://code.google.com/p/saplink] which allows to download and upload almost any workbench object. You have to install the smart form plugin.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
hai Kishore,
I have created a bdc for saving all Zsmartforms, please copy and paste given below code at your workbench, it will save all Z smartforms on ur desktop.
Tables:STXFVART. "SMARTFORM names
data: begin of iform,
RB_SF_001(001),FNAME_002(030),
FNAME_003(030),RB_SF_004(001),
FNAME_005(030),
end of iform.
data: bdcdata like bdcdata occurs 0 with header line.
data: messtab like bdcmsgcoll occurs 0 with header line.
data: ismart LIKE stxfvart OCCURS 0 WITH HEADER LINE.
data: v_opt like ctu_params, v_flag(1) type c, msg_txt(150) type c.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
parameters: p_mode like ctu_params-dismode default 'A'.
SELECTION-SCREEN END OF BLOCK b1.
start-of-selection.
perform fetch_data.
perform download_data.
FORM FETCH_DATA .
select * from stxfvart into table ismart where formname like 'Z%'.
ENDFORM. " FETCH_DATA
form write_log .
loop at messtab.
call function 'FORMAT_MESSAGE'
EXPORTING
id = messtab-msgid
lang = sy-langu
no = messtab-msgnr
v1 = messtab-msgv1
v2 = messtab-msgv2
v3 = messtab-msgv3
v4 = messtab-msgv4
IMPORTING
msg = msg_txt
EXCEPTIONS
not_found = 1
others = 2.
if messtab-msgtyp eq 'E'.
write:/10 messtab-msgtyp,msg_txt color 6.
elseif messtab-msgtyp eq 'S'.
write:/10 messtab-msgtyp,msg_txt color 5.
elseif messtab-msgtyp eq 'W'.
write:/10 messtab-msgtyp,msg_txt color 3.
else.
write:/10 messtab-msgtyp,msg_txt color 4.
endif. clear msg_txt.
endloop.endform. " write_log
FORM DOWNLOAD_DATA .
v_opt-dismode = 'N'. v_opt-updmode = 'S'.
loop at ismart.
refresh:bdcdata,messtab. clear:bdcdata,messtab.
perform bdc_dynpro using 'SAPMSSFO' '0100'.
perform bdc_field using 'BDC_CURSOR' 'SSFSCREEN-FNAME'.
perform bdc_field using 'BDC_OKCODE' '=XMLDOWN'.
perform bdc_field using 'RB_SF' iform-RB_SF_001.
perform bdc_field using 'SSFSCREEN-FNAME' ismart-Formname.
perform bdc_dynpro using 'SAPLSTXB' '3000'.
perform bdc_field using 'BDC_CURSOR' 'SSFSCREEN-FNAME'.
perform bdc_field using 'BDC_OKCODE' '=ENTER'.
perform bdc_field using 'SSFSCREEN-FNAME' ismart-formname.
perform bdc_dynpro using 'SAPMSSFO' '0100'.
perform bdc_field using 'BDC_CURSOR' 'SSFSCREEN-FNAME'.
perform bdc_field using 'BDC_OKCODE' '=BACK'.
perform bdc_field using 'RB_SF' iform-RB_SF_004.
perform bdc_field using 'SSFSCREEN-FNAME' ismart-formname.
call transaction 'SMARTFORMS' using bdcdata
options from v_opt messages into messtab.
perform write_log.
clear: messtab[].
ENDLOOP.
ENDFORM. " DOWNLOAD_DATA
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program. bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'. APPEND bdcdata.
ENDFORM. "bdc_dynpro
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam. bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
hai Kishore,
I have created a bdc for saving all Zsmartforms, please copy and paste given below code at your workbench, it will save all Z smartforms on ur desktop.
* ----------- " Define Tables for ABAP Program.
Tables:STXFVART. "SMARTFORM names
data: begin of iform,
RB_SF_001(001),
FNAME_002(030),
FNAME_003(030),
RB_SF_004(001),
FNAME_005(030),
end of iform.
* Batch input data
data: bdcdata like bdcdata occurs 0 with header line.
data: messtab like bdcmsgcoll occurs 0 with header line.
data: ismart LIKE stxfvart OCCURS 0 WITH HEADER LINE.
* " Define data variables for BDc Operation
data: v_opt like ctu_params,
v_flag(1) type c,
msg_txt(150) type c.
*** End generated data section ***
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
parameters: p_mode like ctu_params-dismode default 'A'.
SELECTION-SCREEN END OF BLOCK b1.
start-of-selection.
perform fetch_data.
perform download_data.
*
*perform open_dataset using dataset.
*perform open_group.
*do.
*
*read dataset dataset into record.
*if sy-subrc <> 0. exit. endif.
*
*perform bdc_dynpro using 'SAPMSSFO' '0100'.
*perform bdc_field using 'BDC_CURSOR'
* 'SSFSCREEN-FNAME'.
*perform bdc_field using 'BDC_OKCODE'
* '=XMLDOWN'.
*perform bdc_field using 'RB_SF'
* record-RB_SF_001.
*perform bdc_field using 'SSFSCREEN-FNAME'
* record-FNAME_002.
*perform bdc_dynpro using 'SAPLSTXB' '3000'.
*perform bdc_field using 'BDC_CURSOR'
* 'SSFSCREEN-FNAME'.
*perform bdc_field using 'BDC_OKCODE'
* '=ENTER'.
*perform bdc_field using 'SSFSCREEN-FNAME'
* record-FNAME_003.
*perform bdc_dynpro using 'SAPMSSFO' '0100'.
*perform bdc_field using 'BDC_CURSOR'
* 'SSFSCREEN-FNAME'.
*perform bdc_field using 'BDC_OKCODE'
* '=BACK'.
*perform bdc_field using 'RB_SF'
* record-RB_SF_004.
*perform bdc_field using 'SSFSCREEN-FNAME'
* record-FNAME_005.
*perform bdc_transaction using 'SMARTFORMS'.
*
*enddo.
*
*perform close_group.
*perform close_dataset using dataset.
*&---------------------------------------------------------------------*
*& Form FETCH_DATA
*&---------------------------------------------------------------------*
FORM FETCH_DATA .
select * from stxfvart into table ismart where formname like 'Z%'.
if sy-subrc eq 0.
endif.
ENDFORM. " FETCH_DATA
*&---------------------------------------------------------------------*
*& Form write_log
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form write_log .
loop at messtab.
call function 'FORMAT_MESSAGE'
EXPORTING
id = messtab-msgid
lang = sy-langu
no = messtab-msgnr
v1 = messtab-msgv1
v2 = messtab-msgv2
v3 = messtab-msgv3
v4 = messtab-msgv4
IMPORTING
msg = msg_txt
EXCEPTIONS
not_found = 1
others = 2.
if messtab-msgtyp eq 'E'.
write:/10 messtab-msgtyp,msg_txt color 6.
elseif messtab-msgtyp eq 'S'.
write:/10 messtab-msgtyp,msg_txt color 5.
elseif messtab-msgtyp eq 'W'.
write:/10 messtab-msgtyp,msg_txt color 3.
else.
write:/10 messtab-msgtyp,msg_txt color 4.
endif.
clear msg_txt.
endloop.
endform. " write_log
*&---------------------------------------------------------------------*
*& Form DOWNLOAD_DATA
*&---------------------------------------------------------------------*
FORM DOWNLOAD_DATA .
v_opt-dismode = 'N'.
v_opt-updmode = 'S'.
loop at ismart.
refresh:bdcdata,messtab.
clear:bdcdata,messtab.
perform bdc_dynpro using 'SAPMSSFO' '0100'.
perform bdc_field using 'BDC_CURSOR'
'SSFSCREEN-FNAME'.
perform bdc_field using 'BDC_OKCODE'
'=XMLDOWN'.
perform bdc_field using 'RB_SF' iform-RB_SF_001.
perform bdc_field using 'SSFSCREEN-FNAME' ismart-Formname.
perform bdc_dynpro using 'SAPLSTXB' '3000'.
perform bdc_field using 'BDC_CURSOR' 'SSFSCREEN-FNAME'.
perform bdc_field using 'BDC_OKCODE' '=ENTER'.
perform bdc_field using 'SSFSCREEN-FNAME' ismart-formname.
perform bdc_dynpro using 'SAPMSSFO' '0100'.
perform bdc_field using 'BDC_CURSOR' 'SSFSCREEN-FNAME'.
perform bdc_field using 'BDC_OKCODE' '=BACK'.
perform bdc_field using 'RB_SF' iform-RB_SF_004.
perform bdc_field using 'SSFSCREEN-FNAME' ismart-formname.
call transaction 'SMARTFORMS' using bdcdata
options from v_opt messages into messtab.
perform write_log.
clear: messtab[].
ENDLOOP.
ENDFORM. " DOWNLOAD_DATA
* Form BDC_DYNPRO
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM. "bdc_dynpro
* Form BDC_FIELD
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM. "BDC_FIELD
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
101 | |
13 | |
13 | |
11 | |
11 | |
7 | |
6 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.