#smartform

[captainmsrposts]

SMARTFORM-OTF_TO_PDF

DATA: w_form_name TYPE tdsfname VALUE 'ZSURESH_TEST', w_fmodule TYPE rs38l_fnam, w_cparam TYPE ssfctrlop, w_outoptions TYPE ssfcompop, W_bin_filesize TYPE i, " Binary File Size w_FILE_NAME type string, w_File_path type string, w_FULL_PATH type string.

* Internal tables declaration

* Internal table to hold the OTF data DATA: t_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,

* Internal table to hold OTF data recd from the SMARTFORM t_otf_from_fm TYPE ssfcrescl,

* Internal table to hold the data from the FM CONVERT_OTF T_pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE.

* This function module call is used to retrieve the name of the Function * module generated when the SMARTFORM is activated

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING formname = 'Z_CONVERT_OTF_TO_PDF' * VARIANT = ' ' * DIRECT_CALL = ' ' IMPORTING fm_name = w_fmodule 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.

* Calling the SMARTFORM using the function module retrieved above * GET_OTF parameter in the CONTROL_PARAMETERS is set to get the OTF * format of the output

w_cparam-no_dialog = 'X'. w_cparam-preview = space. " Suppressing the dialog box                                                    " for print preview w_cparam-getotf = 'X'.

* Printer name to be used is provided in the export parameter * OUTPUT_OPTIONS w_outoptions-tddest = 'LP01'.

CALL FUNCTION w_fmodule EXPORTING * ARCHIVE_INDEX = * ARCHIVE_INDEX_TAB = * ARCHIVE_PARAMETERS = control_parameters = w_cparam * MAIL_APPL_OBJ = * MAIL_RECIPIENT = * MAIL_SENDER = output_options = w_outoptions * USER_SETTINGS = 'X' IMPORTING * DOCUMENT_OUTPUT_INFO = job_output_info = t_otf_from_fm * JOB_OUTPUT_OPTIONS = EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 OTHERS = 5 . IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.

t_otf[] = t_otf_from_fm-otfdata[].

* Function Module CONVERT_OTF is used to convert the OTF format to PDF

CALL FUNCTION 'CONVERT_OTF' EXPORTING FORMAT = 'PDF' MAX_LINEWIDTH = 132 * ARCHIVE_INDEX = ' ' * COPYNUMBER = 0 * ASCII_BIDI_VIS2LOG = ' ' * PDF_DELETE_OTFTAB = ' ' IMPORTING BIN_FILESIZE = W_bin_filesize * BIN_FILE = 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.

* To display File SAVE dialog window CALL METHOD cl_gui_frontend_services=>file_save_dialog * EXPORTING * WINDOW_TITLE = * DEFAULT_EXTENSION = * DEFAULT_FILE_NAME = * FILE_FILTER = * INITIAL_DIRECTORY = * WITH_ENCODING = * PROMPT_ON_OVERWRITE = 'X' CHANGING filename = w_FILE_NAME path = w_FILE_PATH fullpath = w_FULL_PATH * USER_ACTION = * FILE_ENCODING = 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.

* Use the FM GUI_DOWNLOAD to download the generated PDF file onto the * presentation server

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' * WK1_N_FORMAT = ' ' * WK1_N_SIZE = ' ' * WK1_T_FORMAT = ' ' * WK1_T_SIZE = ' ' * IMPORTING * FILELENGTH = tables data_tab = T_pdf_tab * FIELDNAMES = * 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.

[aysekozmetik]

Farmasi Nutriplus Nutritea Smart Form Karışık Bitki Çayı Ürün Kodu: 9700492 #nutritea #smartform #karışıkbitkiçayı

Şifalı bitkilerin ve bu bitkilerden elde edilen karışımların konusuna hakim birisi tarafından tavsiye edilmesi ve bilinçli kullanım ile birlikte sağlık açısından pek çok faydası bulunduğu bilinmektedir. Farklı şifa tekniklerini deneyen ve en çok şifalı bitkiler ile beklentilerini karşılayan insanlar mutlaka sizlerin de çevresinde bulunmaktadır. Bu hususta önemli

[kudzusoftware-blog]

The Future of Enterprise Forms Management – The Kudzu Vines Way!

There’s one thing that all organizations have lots of…and that’s forms.  Forms for employees coming, employees going, customers buying, customers complaining, vendors looking to get paid, and more.  The forms come in all shapes, sizes, and formats.  Some are process-enabled, others not-so-much.  Some are in formats that are not easily digestible into digital formats or converted to another format while others are bound to point solutions where the forms and data behind them are difficult to reclaim/repurpose if that point solution is ever retired or the solution provider goes out of business.  And then you have the web platforms that promise speed, agility, and more…but you still have another solution to support, another solution that needs branding, and another solution that is likely siloed from the rest of your organization.

And this is the challenge we’re helping customers overcome with Vines.  We started with Uniform™.  The idea was essentially to have a universal translator and model that was verbose and flexible enough to describe virtually any form format.  We believe we’ve largely achieved that given the growing range of connectors we currently support…not going to have a roadmap discussion today, but there’s a lot more coming.  Around Uniform we built a robust connector framework which supports the reading/writing of forms and the data behind them.  So we can read an InfoPath form from SharePoint along with the schemas and data associated with any SharePoint list(s) that back the form.  Then turn around and write that out as a K2 SmartForm linked up to the same SharePoint list(s) or somewhere new…a SQL table or tables for example.  We could then write it out as a PowerApps app and even a fillable PDF.

Kind of sounds like a pretty powerful forms conversion/migration tool.  While that is a good starting point, it’s much more.  It also serves as a means of future-proofing your forms development efforts, by preserving your forms in a model that can be re-used to author forms to new platforms as they become available in the marketplace and supported by Vines.  Future versions will surface additional capabilities (…no sneak peeks today) that will further simplify and in some cases remove the challenges associated with managing forms in an enterprise.

We’re also focused on accelerating ideation.  As a starting point we developed a very robust connector for Balsamiq…a leading ideation/mock-up platform.  This is important because while most form technologies have robust authoring tools, they require at least some understanding of form construction.  It would be like a builder asking a home buyer to draw up some blueprints for them with no knowledge of building code and hope they produce something useful.  Now the builder could hand them a piece of paper and pencil and say draw it for me, hand that to an architect who does understand building code, and have them transform it into something the builder can use to build the house.  Along those lines, you can hand Balsamiq to a non-technical user (…what do we call them today, Citizen Developers?), let them “draw” the form, then flip over to Vines read it in, and write it out to your target.  Imagine taking what amounts to a drawing from a business user and being able to show them a working form wired up to data objects in a few clicks.

So what did we learn today?  Organizations have forms.  Managing those forms can be expensive and problematic.  We’re delivering a solution that can help.

Go to www.kudzusoftware.com and Join our mailing list to keep up-to-date on our product release date and other exciting news about Kudzu Software and Vines.

[smartspacegirl]

WeVideo is the leading online video creation platform, providing video editing, collaboration, and sharing across any device - mobile, tablets, laptops & PCs.

[jadetreer]

ABAP ALV报表模板

本示例含(可将各个部分模块化，后面需要开发报表时直接套用)

选择屏幕自定义按钮

选择ALV自定义按钮

调用SmartForm代码

**********申明区 TABLES : a305,knvv,mara,makt,konp,kna1,mbew. TYPES:BEGIN OF ty_a305, kappl TYPE a305-kappl, "应用程序 kschl TYPE a305-kschl, "条件类型 vkorg TYPE a305-vkorg, "销售组织 vtweg TYPE a305-vtweg, "分销渠道 kunnr TYPE a305-kunnr, "客户编码 matnr TYPE a305-matnr, "物料号 * KFRST datbi TYPE a305-datbi, "条件记录有效截止日期 datab TYPE a305-datab, "条件记录有效起始日 * KBSTAT * KNUMH name1 TYPE kna1-name1, "客户名称 maktx TYPE makt-maktx, "物料描述 stprs TYPE mbew-stprs, "标准价格 kbetr TYPE konp-kbetr, "价格 (条件金额或百分数 ) 无等级存在 kpein TYPE konp-kpein, "条件定价单位 knumh TYPE konp-knumh, "条件记录号 konwa TYPE konp-konwa, "比率单位(货币或百分数) loevm_ko TYPE konp-loevm_ko, "条件项的删除指示符 * KUNNR TYPE KNVV-KUNNR, "客户编号1 spart TYPE knvv-spart, "产品组 vkbur TYPE knvv-vkbur, "销售部门 vkgrp TYPE knvv-vkgrp, "销售组 * VKORG TYPE KNVV-VKORG, "销售组织 * VTWEG TYPE KNVV-VTWEG, "分销渠道 sel(1), END OF ty_a305. DATA gs_a305 TYPE ty_a305. DATA gt_a305 TYPE STANDARD TABLE OF ty_a305. **********选择屏幕区 SELECT-OPTIONS p_matnr FOR a305-matnr DEFAULT '000000010880000018'. SELECT-OPTIONS p_kunnr FOR a305-kunnr DEFAULT 'DM008'. SELECT-OPTIONS p_vkorg FOR a305-vkorg DEFAULT '1000'. SELECT-OPTIONS vtweg FOR a305-vtweg DEFAULT '10'. SELECTION-SCREEN SKIP. *PARAMETERS P_SPRAS TYPE MAKT-SPRAS. PARAMETERS p_kschl TYPE a305-kschl DEFAULT 'PR00' OBLIGATORY. **********选择屏幕自定义按钮，共5个 SELECTION-SCREEN: FUNCTION KEY 1, FUNCTION KEY 2, FUNCTION KEY 3, FUNCTION KEY 4, FUNCTION KEY 5. **********事件－初始化区 INITIALIZATION . TABLES sscrfields. "定义工作区 sscrfields-functxt_01 = 'FC01'. "定义按钮文本 sscrfields-functxt_02 = 'FC02'. sscrfields-functxt_03 = 'FC03'. sscrfields-functxt_04 = 'FC04'. sscrfields-functxt_05 = 'FC05'. AT SELECTION-SCREEN. **********选择屏幕自定义按钮监听 CASE sscrfields-ucomm. "处理按钮命令 WHEN 'ONLI'. MESSAGE '您也可以按键盘F8来执行此报表' TYPE 'I'. WHEN 'FC01'. MESSAGE 'FC01' TYPE 'I'. WHEN 'FC02'. MESSAGE 'FC02' TYPE 'I'. WHEN OTHERS. MESSAGE 'OTHERS' TYPE 'I'. ENDCASE. *--------------------------------------------------------- **********数据处理区 START-OF-SELECTION. *DISTINCT SELECT a305~kappl a305~kschl a305~vkorg a305~vtweg a305~kunnr a305~matnr a305~datbi a305~datab kna1~name1 makt~maktx mbew~stprs konp~kbetr konp~kpein konp~knumh konp~konwa konp~loevm_ko mara~spart knvv~vkbur knvv~vkgrp FROM mbew INNER JOIN mara ON mbew~matnr = mara~matnr INNER JOIN makt ON mbew~matnr = makt~matnr AND makt~spras = sy-langu INNER JOIN a305 ON mbew~matnr = a305~matnr INNER JOIN kna1 ON a305~kunnr = kna1~kunnr INNER JOIN konp ON a305~knumh = konp~knumh INNER JOIN knvv ON a305~kunnr = knvv~kunnr AND a305~vkorg = knvv~vkorg AND a305~vtweg = knvv~vtweg AND mara~spart = knvv~spart INTO TABLE gt_a305 WHERE a305~kschl = p_kschl AND a305~vkorg IN p_vkorg AND a305~vtweg IN vtweg AND a305~kunnr IN p_kunnr AND a305~matnr IN p_matnr. * CORRESPONDING FIELDS OF PERFORM show_data. END-OF-SELECTION. **********ALV展示区 *&---------------------------------------------------------------------* *& FORM SHOW_DATA *&---------------------------------------------------------------------* * TEXT *----------------------------------------------------------------------* * --> P1 TEXT * --> P2 TEXT *----------------------------------------------------------------------* FORM show_data . TYPE-POOLS :slis. DATA gt_fieldcat TYPE slis_t_fieldcat_alv. DATA gs_fieldcat LIKE LINE OF gt_fieldcat. **********alv自定义按钮 CONSTANTS cns_pf_status TYPE slis_formname VALUE 'ALV_PF_STATUS'. "alv自定义按钮 CONSTANTS cns_user_command TYPE slis_formname VALUE'ALV_USER_COMMAND'. "alv自定义按钮响应事件 DATA is_layout TYPE slis_layout_alv. is_layout-box_fieldname = 'SEL'."行选择框 is_layout-detail_popup = 'X'. "是否弹出详细信息窗口 is_layout-f2code = '&ETA'. "设置触发弹出详细信息窗口的功能码 is_layout-zebra = 'X'. "设置斑马线 is_layout-colwidth_optimize = 'X'. "自适应列宽 DEFINE addfield. gs_fieldcat-col_pos = &1 . gs_fieldcat-fieldname = &2 . gs_fieldcat-seltext_l = &3 . gs_fieldcat-seltext_m = &3 . gs_fieldcat-seltext_s = &3 . gs_fieldcat-no_zero = &4 . append gs_fieldcat to gt_fieldcat. clear gs_fieldcat. END-OF-DEFINITION. addfield 7 'KAPPL' '应用程序' ''. addfield 8 'KSCHL' '条件类型' ''. addfield 3 'VKORG' '销售组织' ''. addfield 4 'VTWEG' '分销渠道' ''. addfield 2 'KUNNR' '客户编码' 'X'. addfield 1 'MATNR' '物料号' 'X'. addfield 6 'DATBI' '条件记录有效截止日期' ''. addfield 5 'DATAB' '条件记录有效起始日' ''. addfield 9 'NAME1' '客户名称' ''. addfield 10 'MAKTX' '物料名称' ''. addfield 11 'STPRS' '标准价格' ''. addfield 12 'KBETR' '价格 (条件金额或百分数 ) 无等级存在' ''. addfield 13 'KONWA' '比率单位(货币或百分数)' ''. addfield 14 'KNUMH' '条件记录号' 'X'. addfield 15 'KONWA' '比率单位(货币或百分数)' ''. addfield 16 'LOEVM_KO' '条件项的删除指示符' ''. addfield 17 'SPART' '产品组' ''. addfield 18 'VKBUR' '销售部门' ''. addfield 19 'VKGRP' '销售组' ''. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' i_callback_program = sy-repid *------------------------------------------------"调用用户事件和按钮事件 i_callback_pf_status_set = cns_pf_status i_callback_user_command = cns_user_command *------------------------------------------------- * I_CALLBACK_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' * I_STRUCTURE_NAME = * I_BACKGROUND_ID = ' ' * I_GRID_TITLE = * I_GRID_SETTINGS = is_layout = is_layout it_fieldcat = gt_fieldcat * IT_EXCLUDING = * IT_SPECIAL_GROUPS = * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' * I_SAVE = ' ' * IS_VARIANT = * IT_EVENTS = * IT_EVENT_EXIT = * IS_PRINT = * IS_REPREP_ID = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES t_outtab = gt_a305 EXCEPTIONS program_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. " SHOW_DATA **********加载GUI状态（用户界面） FORM alv_pf_status USING rt_extab TYPE slis_t_extab. SET PF-STATUS 'Y_DEMO008_FULLSCREEN' EXCLUDING rt_extab. ENDFORM. "alv_pf_status **********alv自定义按钮监听 *&---------------------------------------------------------------------* *& Form ALV_USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->R_UCOMM text * -->RS_SELFIELD text *----------------------------------------------------------------------* FORM alv_user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. CASE r_ucomm. WHEN 'PRINT'. PERFORM showsmartform. MESSAGE '打印结束' TYPE 'I'."调用打印程序 WHEN OTHERS. MESSAGE r_ucomm TYPE 'I'. "提示按钮信息 ENDCASE. ENDFORM. "ALV_USER_COMMAND **********调用SmartForm打印 *&---------------------------------------------------------------------* *& Form SHOWSMARTFORM *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM showsmartform. *取SMARTFORM函数名 DATA:smartform(30) TYPE c, fm_name TYPE rs38l_fnam. CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING formname = 'Y_DEMO001' * VARIANT = ' ' * DIRECT_CALL = ' ' IMPORTING fm_name = fm_name EXCEPTIONS no_form = 1 no_function_module = 2 OTHERS = 3 . IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. *执行SMARTFORM WAIT UP TO 1 SECONDS. CALL FUNCTION fm_name EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 OTHERS = 5. ENDFORM. "SHOWSMARTFORM