韩城网站建设韩城网站推广,高邮城乡建设网站,做汽车团购网站有哪些,官方入口前言
本文用于简单介绍在SAP中使用ZPL语言进行打印的开发步骤#xff0c;由于对ZPL语言并不是很熟悉#xff0c;所以ZPL相关的部分并不会很深入#xff0c;主要介绍在SAP端如何动态填充ZPL内容及预览、打印。 什么是ZPL
ZPL是斑马条码打印机工业型号用的编程语言。利用这些…前言
本文用于简单介绍在SAP中使用ZPL语言进行打印的开发步骤由于对ZPL语言并不是很熟悉所以ZPL相关的部分并不会很深入主要介绍在SAP端如何动态填充ZPL内容及预览、打印。 什么是ZPL
ZPL是斑马条码打印机工业型号用的编程语言。利用这些编程语言编辑好一个打印的指令集发送给条码打印机条码打印机就会把ZPL所绘制的标签打印出来。
ZPL语言代码片段
^XA^FX Top section with logo, name and address.
^CF0,60
^FO50,50^GB100,100,100^FS
^FO75,75^FR^GB100,100,100^FS
^FO93,93^GB40,40,40^FS
^FO220,50^FDIntershipping, Inc.^FS
^CF0,30
^FO220,115^FD1000 Shipping Lane^FS
^FO220,155^FDShelbyville TN 38102^FS
^FO220,195^FDUnited States (USA)^FS
^FO50,250^GB700,3,3^FS^FX Second section with recipient address and permit information.
^CFA,30
^FO50,300^FDJohn Doe^FS
^FO50,340^FD100 Main Street^FS
^FO50,380^FDSpringfield TN 39021^FS
^FO50,420^FDUnited States (USA)^FS
^CFA,15
^FO600,300^GB150,150,3^FS
^FO638,340^FDPermit^FS
^FO638,390^FD123456^FS
^FO50,500^GB700,3,3^FS^FX Third section with bar code.
^BY5,2,270
^FO100,550^BC^FD12345678^FS^FX Fourth section (the two boxes on the bottom).
^FO50,900^GB700,250,3^FS
^FO400,900^GB3,250,3^FS
^CF0,40
^FO100,960^FDCtr. X34B-1^FS
^FO100,1010^FDREF1 F00B47^FS
^FO100,1060^FDREF2 BL4H8^FS
^CF0,190
^FO470,955^FDCA^FS^XZ
上面这段ZPL代码所输出的图形如下所示 下面是ZPL预览的官方网站通过该网站可以快速的根据ZPL代码预览实际输出的条码样式
Labelary Online ZPL Viewer
同时该网站也提供了标准的公有的API供外部调用 其中postman的测试用例有四个将测试的json文件下载出来导入postman后即可自行测试执行效果后续在SAP端实现ZPL预览的效果就是调用的该API来实现的 关于ZPL的更多信息可以参考下面这篇博客或者访问官方文档
斑马打印机ZPL语言编程实战_zpl指令-CSDN博客
ZPL 命令信息和详细信息 (zebra.cn) 如何生成ZPL语言
对于不熟悉ZPL语言的开发者我们需要借助Zebra Desiner工具来生成ZPL代码。
下载地址ZebraDesigner 3 Software Support Downloads | Zebra 安装好Zebra Desiner之后打开软件新建标签借助左侧的工具我们可以快速的画出一个想要的标签模板 点击上方的打印按钮 勾选打印至文件按钮再点击打印即可将标签对应的ZPL语言代码下载至本地 将文本中的ZPL代码粘贴至在线预览网站可以看到被解析为我们所绘制的标签图形 SAP中开发步骤 注或许有其他更好的方式来实现在SAP中调用ZPL打印本文方式仅是一种解决方案。 跟我们平时所做的smartformsadobe forms打印相同我们都需要通过变量来传参所以我们要做的是通过Zebra Designer调整好标签内容的样式及位置之后将其中需要用变量替换的内容用占位符来代替然后通过ABAP代码来替换掉其中的占位符再将替换后的内容进行打印或者预览即可下面做一个demo来演示完整的开发步骤
1.用占位符替换ZPL代码中的固定值
此处将原本的固定值2A01,2100替换为占位符 %PLANT% 和 %LOCATION% 注条形码可以按照替换值的方式正常替换但是二维码的大小会根据内容长短而变化如果要保证二维码大小固定应该只能通过补空格等方式来保证内容长度一致即可保证二维码大小一致实际上通过各种Desiner生成的二维码其实是可以固定大小的即使内容长度不一致原理大概是将二维码转成图片再通过Z64或者其他编码去加密生成的SAP端尚不知道有什么好办法来实现这种效果。 2.将替换后的ZPL代码上传至SAP
使用SO10长本文来存储ZPL代码是一个不错的选择为了区分属于自开发的内容我们最好创建自定义的文本ID。
2.1 SE75创建文本ID 2.2 SO10保存ZPL代码 3.使用ABAP代码读取并替换内容
首先使用READ_TEXT读取上一步存储的ZPL代码然后用 REPLACE ALL OCCURRENCE 关键字将占位符替换为根据实际业务取出来的值。
*---------------------------------------------------------------------*
* Form frm_get_zpl
*---------------------------------------------------------------------*
* Get ZPL code and replace the value
*---------------------------------------------------------------------*
FORM frm_get_zpl .DATA:lt_tline TYPE text_line_tab,lt_tline_ret TYPE text_line_tab,lv_string TYPE string.CALL FUNCTION READ_TEXTEXPORTING
* CLIENT SY-MANDTid ZDEMlanguage sy-languname ZDEMO_ZPLobject TEXT
* ARCHIVE_HANDLE 0
* LOCAL_CAT
* IMPORTING
* HEADER
* OLD_LINE_COUNTER TABLESlines lt_tlineEXCEPTIONSid 1language 2name 3not_found 4object 5reference_check 6wrong_access_to_archive 7OTHERS 8.IF sy-subrc 0.
* Implement suitable error handling hereMESSAGE ID sy-msgidTYPE sy-msgtyNUMBER sy-msgnoWITH sy-msgv1sy-msgv2sy-msgv3sy-msgv4.RETURN.ENDIF.* Convert to stringCALL FUNCTION IDMX_DI_TLINE_INTO_STRINGEXPORTINGit_tline lt_tlineIMPORTINGev_text_string lv_string.REPLACE ALL OCCURRENCES OF cl_abap_char_utilitiescr_lf IN lv_string WITH space.REPLACE ALL OCCURRENCES OF %PLANT% IN lv_string WITH 2A01.REPLACE ALL OCCURRENCES OF %LOCATION% IN lv_string WITH 2100.gv_zpl_string lv_string.ENDFORM.
4.打印至打印设备
使用NEW-PAGE PRINT ON和NEW-PAGE PRINT OFFWRITE来实现将ZPL代码输出至打印设备打印结果可以在SP01中看到。
打印设备根据实际情况选择如果需要SAP中配置Zebra打印机可以参考下面的这篇博客。
Zebra 标签打印 – SAP 中的配置 |SAP 博客
*---------------------------------------------------------------------*
* Form frm_print_zpl
*---------------------------------------------------------------------*
* Print ZPL to SP01
*---------------------------------------------------------------------*
FORM frm_print_zpl .DATA:lt_string TYPE STANDARD TABLE OF string,lv_zpl_string TYPE string.NEW-PAGE PRINT ONDESTINATION PM42COPIES 1LIST NAME spaceLIST DATASET spaceIMMEDIATELY XKEEP IN SPOOL XLINE-COUNT 60000LINE-SIZE 1023LAYOUT G_RAWNEW LIST IDENTIFICATION XSAP COVER PAGE spaceNO DIALOGNO-TITLENO-HEADING.lv_zpl_string gv_zpl_string.REPLACE ALL OCCURRENCES OF ^FS IN lv_zpl_string WITH |^FS{ cl_abap_char_utilitiescr_lf }|.SPLIT lv_zpl_string AT cl_abap_char_utilitiescr_lf INTO TABLE lt_string.LOOP AT lt_string INTO DATA(ls_string).WRITE:ls_string.NEW-LINE.ENDLOOP.NEW-PAGE PRINT OFF.MESSAGE ZPL Printed TYPE S.
ENDFORM. 5.在SAP端预览ZPL输出内容
通常我们要知道ZPL的输出内容需要将ZPL代码放在在线预览网站中才能知道效果这样很不方便所以我们可以调用他们提供的公有API以下是调用测试代码
5.1 获取ZPL二进制内容
*---------------------------------------------------------------------*
* Form frm_preview_zpl
*---------------------------------------------------------------------*
* Preview ZPL as PDF
*---------------------------------------------------------------------*
FORM frm_preview_zpl .DATA:lv_request_data TYPE string,lv_responsex TYPE xstring,lo_http_client TYPE REF TO if_http_client,lv_url TYPE string,lv_response TYPE string,lv_msgty TYPE c,lv_msgtx TYPE string.lv_url http://api.labelary.com/v1/printers/8dpmm/labels/7x8/ .CALL METHOD cl_http_clientcreate_by_urlEXPORTINGurl lv_urlIMPORTINGclient lo_http_clientEXCEPTIONSargument_not_found 1plugin_not_active 2internal_error 3OTHERS 4.IF sy-subrc 0.
* Implement suitable error handling hereMESSAGE ID sy-msgidTYPE sy-msgtyNUMBER sy-msgnoWITH sy-msgv1sy-msgv2sy-msgv3sy-msgv4.EXIT.ENDIF.* Set header to get pdflo_http_client-request-set_header_field(name Acceptvalue application/pdf).* Set content-typelo_http_client-request-set_content_type(content_type application/x-www-form-urlencoded).* Content of ZPL request datalv_request_data gv_zpl_string.* Set request bodylo_http_client-request-set_cdata( data lv_request_data ).* Set request methodlo_http_client-request-set_method( POST ).* Send requestlo_http_client-send(EXCEPTIONShttp_communication_failure 1http_invalid_state 2).IF sy-subrc 0.lo_http_client-get_last_error( IMPORTING message lv_msgtx ).MESSAGE lv_msgtx TYPE S DISPLAY LIKE E.RETURN.ENDIF.* Receive response dataCALL METHOD lo_http_client-receiveEXCEPTIONShttp_communication_failure 1http_invalid_state 2http_processing_failed 3.IF sy-subrc 0 .lo_http_client-get_last_error( IMPORTING message lv_msgtx ).MESSAGE lv_msgtx TYPE S DISPLAY LIKE E.RETURN.ENDIF.* Get response bodylv_responsex lo_http_client-response-get_data( ).* Convert XSTRING to BinaryCALL FUNCTION SCMS_XSTRING_TO_BINARYEXPORTINGbuffer lv_responsexTABLESbinary_tab gt_pdf_binary.CALL SCREEN 9000.
ENDFORM.
5.2 将二进制内容在SAP屏幕容器中展示
*---------------------------------------------------------------------*
* Form frm_display_pdf
*---------------------------------------------------------------------*
* Show PDF
*---------------------------------------------------------------------*
FORM frm_display_pdf .
* Create container objectCREATE OBJECT go_pdf_containerEXPORTINGcontainer_name PDF.* Creare pdf objectCREATE OBJECT go_pdf_objectEXPORTINGparent go_pdf_container.* Load PDF binary dataCALL METHOD go_pdf_object-load_dataEXPORTINGtype applicationsubtype pdfIMPORTINGassigned_url gv_pdf_urlCHANGINGdata_table gt_pdf_binaryEXCEPTIONSdp_invalid_parameter 1dp_error_general 2cntl_error 3html_syntax_notcorrect 4OTHERS 5.IF sy-subrc 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF.CALL METHOD go_pdf_object-show_dataEXPORTINGurl gv_pdf_urlin_place abap_true.
ENDFORM.
输出效果 SAP端显示PDF的实现可以参考Jerry老师的这篇文章
如何在 SAPGUI 里显示上传到 ABAP 服务器的 PDF 文件_abap屏幕加载pdf文件-CSDN博客 完整测试代码
ZPL代码
^XA
~TA000
~JSN
^LT0
^MNW
^MTT
^PON
^PMN
^LH0,0
^JMA
^PR6,6
~SD15
^JUS
^LRN
^CI27
^PA0,1,1,0
^XZ
^XA
^MMT
^PW900
^LL600
^LS0
^FT119,162^A0N,42,43^FH\^CI28^FDHello ABAP^FS^CI27
^FT119,215^A0N,42,43^FH\^CI28^FDHello DeveloperMrMeng^FS^CI27
^BY2,3,61^FT119,308^BCN,,Y,N
^FH\^FD;123456789012^FS
^FO382,247^GB454,239,2^FS
^FO385,300^GB452,0,2^FS
^FO607,250^GB0,237,2^FS
^FT160,482^BQN,2,5
^FH\^FDLA,123456789012^FS
^FT445,292^A0N,42,43^FH\^CI28^FDPlant^FS^CI27
^FT646,292^A0N,42,43^FH\^CI28^FDLocation^FS^CI27
^FT452,397^A0N,42,43^FH\^CI28^FD%PLANT%^FS^CI27
^FT684,397^A0N,42,43^FH\^CI28^FD%LOCATION%^FS^CI27
^LRY^FO717,101^GB120,0,120^FS^LRN
^LRY^FO691,74^GB120,0,120^FS^LRN
^PQ1,0,1,Y
^XZABAP代码
*---------------------------------------------------------------------*
* Report ZPRTEST_ZPL_DEMO
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
REPORT zprtest_zpl_demo.DATA:gv_zpl_string TYPE string,gt_pdf_binary TYPE STANDARD TABLE OF raw255,gv_ok_code TYPE sy-ucomm,go_pdf_object TYPE REF TO cl_gui_html_viewer,go_pdf_container TYPE REF TO cl_gui_custom_container,gv_pdf_url TYPE char255.PARAMETERS:p_print RADIOBUTTON GROUP gp1 DEFAULT X,p_prev RADIOBUTTON GROUP gp1.INITIALIZATION.%_p_print_%_app_%-text Print.%_p_prev_%_app_%-text Preview.START-OF-SELECTION.
* Get ZPL code and replace valuePERFORM frm_get_zpl.CASE abap_on.WHEN p_print.
* Print ZPL to print spoolPERFORM frm_print_zpl.WHEN p_prev.
* Preview ZPL as PDFPERFORM frm_preview_zpl.WHEN OTHERS.ENDCASE.
*---------------------------------------------------------------------*
* Form frm_print_zpl
*---------------------------------------------------------------------*
* Print ZPL to SP01
*---------------------------------------------------------------------*
FORM frm_print_zpl .DATA:lt_string TYPE STANDARD TABLE OF string,lv_zpl_string TYPE string.NEW-PAGE PRINT ONDESTINATION PM42COPIES 1LIST NAME spaceLIST DATASET spaceIMMEDIATELY XKEEP IN SPOOL XLINE-COUNT 60000LINE-SIZE 1023LAYOUT G_RAWNEW LIST IDENTIFICATION XSAP COVER PAGE spaceNO DIALOGNO-TITLENO-HEADING.lv_zpl_string gv_zpl_string.REPLACE ALL OCCURRENCES OF ^FS IN lv_zpl_string WITH |^FS{ cl_abap_char_utilitiescr_lf }|.SPLIT lv_zpl_string AT cl_abap_char_utilitiescr_lf INTO TABLE lt_string.LOOP AT lt_string INTO DATA(ls_string).WRITE:ls_string.NEW-LINE.ENDLOOP.NEW-PAGE PRINT OFF.MESSAGE ZPL Printed TYPE S.
ENDFORM.
*---------------------------------------------------------------------*
* Form frm_preview_zpl
*---------------------------------------------------------------------*
* Preview ZPL as PDF
*---------------------------------------------------------------------*
FORM frm_preview_zpl .DATA:lv_request_data TYPE string,lv_responsex TYPE xstring,lo_http_client TYPE REF TO if_http_client,lv_url TYPE string,lv_response TYPE string,lv_msgty TYPE c,lv_msgtx TYPE string.lv_url http://api.labelary.com/v1/printers/8dpmm/labels/7x8/ .CALL METHOD cl_http_clientcreate_by_urlEXPORTINGurl lv_urlIMPORTINGclient lo_http_clientEXCEPTIONSargument_not_found 1plugin_not_active 2internal_error 3OTHERS 4.IF sy-subrc 0.
* Implement suitable error handling hereMESSAGE ID sy-msgidTYPE sy-msgtyNUMBER sy-msgnoWITH sy-msgv1sy-msgv2sy-msgv3sy-msgv4.EXIT.ENDIF.* Set header to get pdflo_http_client-request-set_header_field(name Acceptvalue application/pdf).* Set content-typelo_http_client-request-set_content_type(content_type application/x-www-form-urlencoded).* Content of ZPL request datalv_request_data gv_zpl_string.* Set request bodylo_http_client-request-set_cdata( data lv_request_data ).* Set request methodlo_http_client-request-set_method( POST ).* Send requestlo_http_client-send(EXCEPTIONShttp_communication_failure 1http_invalid_state 2).IF sy-subrc 0.lo_http_client-get_last_error( IMPORTING message lv_msgtx ).MESSAGE lv_msgtx TYPE S DISPLAY LIKE E.RETURN.ENDIF.* Receive response dataCALL METHOD lo_http_client-receiveEXCEPTIONShttp_communication_failure 1http_invalid_state 2http_processing_failed 3.IF sy-subrc 0 .lo_http_client-get_last_error( IMPORTING message lv_msgtx ).MESSAGE lv_msgtx TYPE S DISPLAY LIKE E.RETURN.ENDIF.* Get response bodylv_responsex lo_http_client-response-get_data( ).* Convert XSTRING to BinaryCALL FUNCTION SCMS_XSTRING_TO_BINARYEXPORTINGbuffer lv_responsexTABLESbinary_tab gt_pdf_binary.CALL SCREEN 9000.
ENDFORM.
*---------------------------------------------------------------------*
* Module STATUS_9000 OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.SET PF-STATUS STATUS_9000.PERFORM frm_display_pdf.
ENDMODULE.
*---------------------------------------------------------------------*
* Module USER_COMMAND_9000 INPUT
*---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.gv_ok_code sy-ucomm.CASE gv_ok_code.WHEN QUIT OR BACK OR EXIT.LEAVE PROGRAM.WHEN OTHERS.ENDCASE.
ENDMODULE.
*---------------------------------------------------------------------*
* Form frm_display_pdf
*---------------------------------------------------------------------*
* Show PDF
*---------------------------------------------------------------------*
FORM frm_display_pdf .
* Create container objectCREATE OBJECT go_pdf_containerEXPORTINGcontainer_name PDF.* Creare pdf objectCREATE OBJECT go_pdf_objectEXPORTINGparent go_pdf_container.* Load PDF binary dataCALL METHOD go_pdf_object-load_dataEXPORTINGtype applicationsubtype pdfIMPORTINGassigned_url gv_pdf_urlCHANGINGdata_table gt_pdf_binaryEXCEPTIONSdp_invalid_parameter 1dp_error_general 2cntl_error 3html_syntax_notcorrect 4OTHERS 5.IF sy-subrc 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF.CALL METHOD go_pdf_object-show_dataEXPORTINGurl gv_pdf_urlin_place abap_true.
ENDFORM.
*---------------------------------------------------------------------*
* Form frm_get_zpl
*---------------------------------------------------------------------*
* Get ZPL code and replace the value
*---------------------------------------------------------------------*
FORM frm_get_zpl .DATA:lt_tline TYPE text_line_tab,lt_tline_ret TYPE text_line_tab,lv_string TYPE string.CALL FUNCTION READ_TEXTEXPORTING
* CLIENT SY-MANDTid ZDEMlanguage sy-languname ZDEMO_ZPLobject TEXT
* ARCHIVE_HANDLE 0
* LOCAL_CAT
* IMPORTING
* HEADER
* OLD_LINE_COUNTER TABLESlines lt_tlineEXCEPTIONSid 1language 2name 3not_found 4object 5reference_check 6wrong_access_to_archive 7OTHERS 8.IF sy-subrc 0.
* Implement suitable error handling hereMESSAGE ID sy-msgidTYPE sy-msgtyNUMBER sy-msgnoWITH sy-msgv1sy-msgv2sy-msgv3sy-msgv4.RETURN.ENDIF.* Convert to stringCALL FUNCTION IDMX_DI_TLINE_INTO_STRINGEXPORTINGit_tline lt_tlineIMPORTINGev_text_string lv_string.REPLACE ALL OCCURRENCES OF cl_abap_char_utilitiescr_lf IN lv_string WITH space.REPLACE ALL OCCURRENCES OF %PLANT% IN lv_string WITH 2A01.REPLACE ALL OCCURRENCES OF %LOCATION% IN lv_string WITH 2100.gv_zpl_string lv_string.ENDFORM.
以上。
