Z_06MM_FWYS_PRINT
FUNCTION z_06mm_fwys_print. *"---------------------------------------------------------------------- *"*"本地接口： *"---------------------------------------------------------------------- * 数据申明 data:ET_ALV TYPE Z29MMTENTRYSHEET. * data:ET_LINES like TLINE. DATA:lt_number TYPE TABLE OF z06pms_not_number_i WITH HEADER LINE, ls_number TYPE z06pms_not_number_i. DATA: gt_alv TYPE TABLE OF z29mmsentrysheet. DATA:gt_hs TYPE STANDARD TABLE OF tline . DATA:gs_hs TYPE tline . RANGES:r_qmnum FOR qmel-qmnum. DATA:gs_alv TYPE z29mmsentrysheet. DATA:return_pdf TYPE TABLE OF z06pms_bapiret2 WITH HEADER LINE. DATA:lv_path TYPE z06pmepath, lv_filename TYPE z06pmefilename, lt_return TYPE TABLE OF z06pms_bapiret2 WITH HEADER LINE, ls_return TYPE z06pms_bapiret2. DATA:lv_msg TYPE string. * data : gt_notif_otfdata_01 TYPE TABLE OF itcoo. "---------------------------------------------------------------------- * 数据初始化 INCLUDE z06pm500_z01_notif_print_01. CLEAR:object_tab[],gs_notif_ssfcrescl,gt_notif_otfdata[],gs_notif_otfdata. CLEAR:lv_msg. CLEAR:return_pdf[]. CLEAR:lv_path,lv_filename,lt_return[],ls_return. CLEAR:return_notif_print[],gs_return_notif_print. * gv_webusrid = i_webusrid. *"---------------------------------------------------------------------- * 数据校验 *"---------------------------------------------------------------------- * 获取打印数据 *------------------- IF IV_ALV[] IS NOT INITIAL. PERFORM frm_print TABLES IV_ALV IV_LINES CHANGING ccc_ccc . ELSE. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '093' INTO lv_msg. ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO lt_return.CLEAR:ls_return. ENDIF. *"---------------------------------------------------------------------- * 处理打印返回参数 APPEND LINES OF return_notif_print TO lt_return. LOOP AT lt_return TRANSPORTING NO FIELDS WHERE type CA 'EA'. EXIT. ENDLOOP. *"---------------------------------------------------------------------- * SMARTFORMS生成PDF至FTP IF sy-subrc <> 0. IF gt_notif_otfdata_01[] IS NOT INITIAL. CALL FUNCTION 'Z_06PM_NOTIF_SF_TO_FTP' IMPORTING e_path = lv_path e_filename = lv_filename TABLES it_otfdata = gt_notif_otfdata_01 et_return = return_pdf. APPEND LINES OF return_pdf TO lt_return. ELSE. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '080' INTO lv_msg. ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO lt_return.CLEAR:ls_return. ENDIF. ENDIF. *"---------------------------------------------------------------------- e_path = lv_path. e_filename = lv_filename. et_return[] = lt_return[]. *"---------------------------------------------------------------------- ENDFUNCTION.
Z_06PM_NOTIF_SF_TO_FTP
FUNCTION z_06pm_notif_sf_to_ftp. *"---------------------------------------------------------------------- *"*"Local interface: *" EXPORTING *" VALUE(E_PATH) TYPE Z06PMEPATH *" VALUE(E_FILENAME) TYPE Z06PMEFILENAME *" TABLES *" IT_OTFDATA STRUCTURE ITCOO *" ET_RETURN STRUCTURE Z06PMS_BAPIRET2 *"---------------------------------------------------------------------- * 数据申明 DATA:lt_otfdata TYPE TABLE OF itcoo WITH HEADER LINE. DATA:file_bin TYPE xstring, file_size(12) TYPE c. DATA:lv_hdl TYPE i, lv_command(255) TYPE c, lv_blength TYPE i, lv_num(100) TYPE i, lv_ftp_path TYPE z06pmepath, lv_path TYPE z06pmepath, lv_filename TYPE char1024, lv_comp_sizp TYPE i, lv_guid TYPE sysuuid_c32. DATA:lt_lines TYPE TABLE OF tline, ls_lines TYPE tline. TYPES:BEGIN OF ls_blob, line(1022) TYPE x, END OF ls_blob. DATA:lt_bindata TYPE STANDARD TABLE OF ls_blob, ls_bindata TYPE ls_blob. DATA:BEGIN OF it_result OCCURS 0, line(100) TYPE c, END OF it_result. DATA:ls_msgout TYPE LINE OF z10wfsket1, ls_return TYPE z06pms_bapiret2, lv_msg TYPE string, lv_oref TYPE REF TO cx_uuid_error, ls_ftp TYPE z06pmtftpcf. *"---------------------------------------------------------------------- * 数据初始化 CLEAR:lt_otfdata[]. CLEAR:file_bin,file_size. CLEAR:lv_hdl,lv_command,lv_blength,lv_num,lv_ftp_path,lv_filename,lv_comp_sizp,lv_guid. CLEAR:lt_lines[],ls_lines. CLEAR:lt_bindata[],ls_bindata. CLEAR:it_result[]. CLEAR:ls_msgout,ls_return,lv_msg,lv_oref,ls_ftp. lt_otfdata[] = it_otfdata[]. * 查询FTP配置表 SELECT SINGLE * INTO ls_ftp FROM z06pmtftpcf WHERE intid EQ 'PWPFTP'. lv_ftp_path = ls_ftp-folder_t."临时文件夹 * lv_ftp_path = '/upload'. *"---------------------------------------------------------------------- * OTF预览和转换 CALL FUNCTION 'CONVERT_OTF' EXPORTING format = 'PDF' IMPORTING bin_filesize = file_size bin_file = file_bin TABLES otf = lt_otfdata lines = lt_lines 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 'Z06500' TYPE 'E' NUMBER '087' INTO lv_msg. ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDIF. *"---------------------------------------------------------------------- * 数据二进制转换 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTING buffer = file_bin IMPORTING output_length = lv_comp_sizp TABLES binary_tab = lt_bindata. ##FM_SUBRC_OK IF sy-subrc <> 0. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '088' INTO lv_msg. ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ELSE. lv_blength = lv_comp_sizp. ENDIF. *"---------------------------------------------------------------------- * 连接FTP CALL FUNCTION 'Z_06PM_FTP_CONNECT' IMPORTING e_hdl = lv_hdl e_msg = ls_msgout. IF ls_msgout-msgtyp CA 'EA'. ls_return-type = ls_msgout-msgtyp. ls_return-message = ls_msgout-msgtxt. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDIF. *"---------------------------------------------------------------------- * 操作FTP * 打开upload文件夹 CLEAR:lv_command. CONCATENATE 'cd' lv_ftp_path INTO lv_command SEPARATED BY space. CALL FUNCTION 'FTP_COMMAND' EXPORTING handle = lv_hdl command = lv_command TABLES data = it_result EXCEPTIONS command_error = 1 tcpip_error = 2. IF sy-subrc <> 0. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '089' INTO lv_msg."FTP操作失败-打开根目录失败 ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDIF. * 打开临时文件夹 CLEAR:lv_command. CONCATENATE 'cd' lv_ftp_path INTO lv_command SEPARATED BY space. CONCATENATE lv_command sy-datum INTO lv_command. "edit by pxmwyzh 20181014 * CONCATENATE lv_command '/' sy-datum INTO lv_command. CALL FUNCTION 'FTP_COMMAND' EXPORTING handle = lv_hdl command = lv_command TABLES data = it_result EXCEPTIONS command_error = 1 tcpip_error = 2. IF sy-subrc = 1. * 如临时文件夹不存在，创建临时文件夹 CLEAR:lv_command. CONCATENATE 'mkdir' sy-datum INTO lv_command SEPARATED BY space. CALL FUNCTION 'FTP_COMMAND' EXPORTING handle = lv_hdl command = lv_command TABLES data = it_result EXCEPTIONS command_error = 1 tcpip_error = 2. IF sy-subrc <> 0. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '100' INTO lv_msg."FTP操作失败-创建子目录失败 ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDIF. * 打开临时文件夹 CLEAR:lv_command. CONCATENATE 'cd' lv_ftp_path INTO lv_command SEPARATED BY space. CONCATENATE lv_command sy-datum INTO lv_command. "edit by pxmwyzh 20181014 * CONCATENATE lv_command '/' sy-datum INTO lv_command. CALL FUNCTION 'FTP_COMMAND' EXPORTING handle = lv_hdl command = lv_command TABLES data = it_result EXCEPTIONS command_error = 1 tcpip_error = 2. IF sy-subrc <> 0. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '101' INTO lv_msg. "FTP操作失败-打开子目录失败 ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDIF. ELSEIF sy-subrc <> 0 AND sy-subrc <> 1. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '101' INTO lv_msg. ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDIF. *"---------------------------------------------------------------------- * 获取GUID TRY. lv_guid = cl_system_uuid=>create_uuid_c32_static( ). CATCH cx_uuid_error INTO lv_oref. ls_return-type = 'E'. ls_return-number = '000'. ls_return-message = lv_oref->get_text( ). APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDTRY. *"---------------------------------------------------------------------- * 生成PDF文件 CONCATENATE lv_guid '.pdf' INTO lv_filename.CONDENSE lv_filename NO-GAPS. CALL FUNCTION 'FTP_R3_TO_SERVER' "传输到FTP服务器 EXPORTING handle = lv_hdl fname = lv_filename blob_length = lv_blength TABLES blob = lt_bindata EXCEPTIONS tcpip_error = 1 command_error = 2 data_error = 3. IF sy-subrc <> 0. MESSAGE ID 'Z06500' TYPE 'E' NUMBER '090' INTO lv_msg. "PDF文件生成失败 ls_return-type = 'E'. ls_return-message = lv_msg. APPEND ls_return TO et_return.CLEAR:ls_return. RETURN. ENDIF. lv_num = strlen( lv_command ). lv_path = lv_command+2(lv_num). CONDENSE lv_path NO-GAPS. *"---------------------------------------------------------------------- e_path = lv_path. e_filename = lv_filename. *"---------------------------------------------------------------------- ENDFUNCTION.
Z_06PM_FTP_CONNECT
FUNCTION z_06pm_ftp_connect. *"---------------------------------------------------------------------- *"*"Local interface: *" EXPORTING *" REFERENCE(E_HDL) TYPE I *" REFERENCE(E_MSG) TYPE Z10WFSKE01 *"---------------------------------------------------------------------- DATA: lv_slen TYPE i, lv_host(100) TYPE c, lv_pwd(50) TYPE c, ls_mess TYPE z10wfske01, lv_hdl TYPE i. DATA: ls_ftp TYPE z06pmtftpcf. *查询配置表 SELECT SINGLE * INTO ls_ftp FROM z06pmtftpcf WHERE intid EQ cns_intid . * 生成FTP服务器地址 CLEAR lv_host. CONCATENATE ls_ftp-ipadr ls_ftp-zport INTO lv_host SEPARATED BY space. * CONCATENATE cns_ip cns_port INTO lv_host SEPARATED BY space. CLEAR lv_slen. lv_slen = strlen( ls_ftp-paswd ). * lv_slen = strlen( cns_pass ). * 将密码加密 CLEAR lv_pwd. CALL FUNCTION 'HTTP_SCRAMBLE' EXPORTING source = ls_ftp-paswd * source = cns_pass sourcelen = lv_slen key = cns_key IMPORTING destination = lv_pwd. * 连接到FTP服务器 DO 3 TIMES. CLEAR lv_hdl. CALL FUNCTION 'FTP_CONNECT' EXPORTING user = ls_ftp-usrid * user = cns_user password = lv_pwd host = lv_host rfc_destination = cns_dest IMPORTING handle = lv_hdl EXCEPTIONS not_connected = 1. IF sy-subrc NE 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO ls_mess-msgtxt. ls_mess-msgtyp = sy-msgty. ls_mess-msgno = sy-msgno. e_msg = ls_mess. RETURN. ENDIF. ENDDO. e_hdl = lv_hdl. ENDFUNCTION.