程序可以通过抓取 客户 开票信息等 下载文本 导出
需要事先创建好几个structure
zc0000sdt0016,
zc0000sdt0017
REPORT zc0000sdr0016 NO STANDARD PAGE HEADING
LINE-COUNT 58
LINE-SIZE 170.
TABLES:vbrk,vbrp,t001.
*----------------------------------------------------------------------*
* type define
*----------------------------------------------------------------------*
TYPES: BEGIN OF ty_vbrk,
vbeln TYPE vbrk-vbeln,"invoice number
fkart TYPE vbrk-fkart, "ERPInvoiceType
waerk TYPE vbrk-waerk, "Currency
vkorg TYPE vbrk-vkorg, "Sales Organization
vtweg TYPE vbrk-vtweg, "Distribution Channel
knumv TYPE vbrk-knumv,
fkdat TYPE vbrk-fkdat, "Invoice data
gjahr TYPE vbrk-gjahr, "Year
bukrs TYPE vbrk-bukrs,
taxk1 TYPE vbrk-taxk1, "Invoice type（eg:0 - Expore Invoice， 1 - VAT Inovice ， 2 - Credit Inovice）BillingType
kunag TYPE vbrk-kunag, "Customer code
sfakn TYPE vbrk-sfakn, "Credit Notes
fksto TYPE vbrk-fksto, "Cancel flag
del TYPE c,
END OF ty_vbrk,
BEGIN OF ty_vbrp,
vbeln TYPE vbrp-vbeln, "Invoice number
posnr TYPE vbrp-posnr, "Item number
fkimg TYPE vbrp-fkimg, "Quantity
vrkme TYPE vbrp-vrkme, "Unit
netwr TYPE vbrp-netwr, "Sum
vbelv TYPE vbrp-vbelv, "First Document
aubel TYPE vbrp-aubel, "Sales Document
matnr TYPE vbrp-matnr, "Material Number
arktx TYPE vbrp-arktx, "Product chinese name
ernam TYPE vbrp-ernam, "Person code
mwsbp TYPE vbrp-mwsbp, "Tax
END OF ty_vbrp,
BEGIN OF ty_out,
txt TYPE string,
END OF ty_out,
BEGIN OF ty_errlog, "Linda 20141120 add
str(100) TYPE c, "Linda 20141120 add
END OF ty_errlog. "Linda 20141120 add
*----------------------------------------------------------------------*
* Internal Tables define
*----------------------------------------------------------------------*
DATA: it_blitems TYPE STANDARD TABLE OF zc0000sdt0016,"is struction
it_tbillno TYPE STANDARD TABLE OF zc0000sdt0017,"is table,
it_kunnr TYPE jito_kunnr_range_tt,
it_vbeln TYPE jit_vbeln_vl_range_tt,
it_out TYPE STANDARD TABLE OF ty_out,"use for output
it_errlog TYPE STANDARD TABLE OF ty_errlog, "Linda 20141120 add
*----------------------------------------------------------------------*
* Workarea define
*----------------------------------------------------------------------*
iw_vbrk TYPE ty_vbrk,
iw_tbillno TYPE zc0000sdt0017,"is table
iw_blitems TYPE zc0000sdt0016,"is struction
iw_kunnr TYPE jito_kunnr_range,
iw_vbeln TYPE jit_vbeln_vl_range,
iw_out TYPE ty_out,
iw_errlog TYPE ty_errlog, "Linda 20141120 add
*----------------------------------------------------------------------*
* Variables define
*----------------------------------------------------------------------*
w_time TYPE char6, "run time
w_path TYPE rlgrap-filename, "path
w_filename TYPE rlgrap-filename, "file name
w_data1 TYPE i,
w_data2 TYPE i,
w_filter TYPE string." VALUE ‘Text Files(*.txt)|*.txt‘.Linda 20141024
*----------------------------------------------------------------------*
* Constants define
*----------------------------------------------------------------------*
CONSTANTS: cos_vl TYPE char1 VALUE ‘\‘,
cos_open TYPE char4 VALUE ‘OPEN‘,
cos_close TYPE char5 VALUE ‘CLOSE‘,
cos_transfer TYPE char8 VALUE ‘TRANSFER‘,
cos_comma TYPE char1 VALUE ‘,‘. "Linda 20141120 add
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-003.
PARAMETERS:"p_batch TYPE char20, "batch 1
p_bukrs TYPE vbrk-bukrs OBLIGATORY. "company
SELECT-OPTIONS:s_fkdat FOR vbrk-fkdat NO-EXTENSION. "Billing date for billing index and printout 2
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1(31) text-009 . "enter data range
PARAMETER p_data1 TYPE char3.
SELECTION-SCREEN COMMENT 40(4) text-010.
PARAMETER p_data2 TYPE char3.
SELECTION-SCREEN COMMENT 70(79) text-008.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS:
s_vbeln FOR vbrk-vbeln, "Billing Document 3
s_kunag FOR vbrk-kunag, "Payer 4
s_matnr FOR vbrp-matnr NO-EXTENSION, "Material Number 5
s_aubel FOR vbrp-aubel NO-EXTENSION, "Sales Document 6
s_vkorg FOR vbrk-vkorg NO-EXTENSION OBLIGATORY.
PARAMETERS:p_gjahr TYPE vbrk-gjahr. "Fiscal Year
PARAMETERS:p_nonrep TYPE c AS CHECKBOX. "compare or not
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER p_check3 RADIOBUTTON GROUP rad DEFAULT ‘X‘ USER-COMMAND rad.
SELECTION-SCREEN COMMENT 4(20) text-c03 FOR FIELD p_check3."TXT format
PARAMETER p_check4 RADIOBUTTON GROUP rad.
SELECTION-SCREEN COMMENT 28(30) text-c04 FOR FIELD p_check4."CSV format
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER p_check2 TYPE c RADIOBUTTON GROUP rads DEFAULT ‘X‘ USER-COMMAND rad2.
SELECTION-SCREEN COMMENT 4(20) text-c02 FOR FIELD p_check2."output to server
SELECTION-SCREEN END OF LINE.
PARAMETERS: p_path2(1024) TYPE c LOWER CASE
VISIBLE LENGTH 200.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER p_check1 RADIOBUTTON GROUP rads.
SELECTION-SCREEN COMMENT 4(20) text-c01 FOR FIELD p_check1."
SELECTION-SCREEN END OF LINE.
PARAMETERS: p_path(1024) TYPE c LOWER CASE
VISIBLE LENGTH 200.
SELECTION-SCREEN END OF BLOCK b3.
*----------------------------------------------------------------------*
* INITIALIZATION
*----------------------------------------------------------------------*
INITIALIZATION.
* init
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN ON VALUE-REQUEST
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
PERFORM frm_save_file CHANGING p_path.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
IF p_data1 <> space AND p_data2 <> space. "Linda 20141120 add
REFRESH:s_fkdat. "Linda 20141024 add
ENDIF. "Linda 20141120 add
IF p_data1 <> space AND p_data2 <> space.
PERFORM frm_chang_data USING p_data1
CHANGING s_fkdat-low.
PERFORM frm_chang_data USING p_data2
CHANGING s_fkdat-high.
APPEND s_fkdat.
ENDIF.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
* WHEN ‘ONLI‘.
PERFORM frm_init.
IF p_path = space AND p_check1 = ‘X‘.
SET CURSOR FIELD ‘P_PATH‘.
MESSAGE e001(00) WITH ‘Local path can not be space‘(018).
ENDIF.
IF p_path2 = space AND p_check2 = ‘X‘.
SET CURSOR FIELD ‘P_PATH2‘.
MESSAGE e001(00) WITH ‘Server path can not be space‘(017).
ENDIF.
CASE sy-ucomm.
WHEN ‘RAD‘ OR ‘RAD2‘.
* lw_filter = ‘Text Files(*.txt)|*.txt|Csv Files(*.csv)|*.csv|Excel Files(*.xls)|*.xls|All Files(*.*)|*.*|‘."Text Files(*.txt)|*.txt|‘. "All Files(*.*)|*.*|
IF p_check3 = ‘X‘.
w_filter = ‘Text Files(*.txt)|*.txt‘(020).
ELSEIF p_check4 = ‘X‘.
w_filter = ‘Csv Files(*.csv)|*.csv‘(021).
ENDIF.
CLEAR: p_path,
p_path2.
WHEN OTHERS.
ENDCASE.
TRY.
w_data1 = p_data1.
w_data2 = p_data2.
CATCH cx_root.
SET CURSOR FIELD ‘P_DATA1‘.
MESSAGE e001(00) WITH ‘Data range must be number‘(014).
ENDTRY.
IF w_data1 > w_data2.
SET CURSOR FIELD ‘P_DATA1‘.
MESSAGE e001(00) WITH ‘Data range must from small to big‘(015).
ENDIF.
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
w_time = sy-uzeit.
IF s_fkdat[] IS INITIAL AND p_data1 <> space AND p_data2 <> space.
PERFORM frm_chang_data USING p_data1
CHANGING s_fkdat-low.
PERFORM frm_chang_data USING p_data2
CHANGING s_fkdat-high.
s_fkdat-sign = ‘I‘.
s_fkdat-option = ‘BT‘.
APPEND s_fkdat.
ELSEIF s_fkdat[] IS INITIAL AND p_data1 = space AND p_data2 = space.
MESSAGE s001(00) WITH text-022 text-025 DISPLAY LIKE ‘E‘.
RETURN.
LEAVE TO LIST-PROCESSING.
ENDIF.
LOOP AT s_kunag.
iw_kunnr-sign = s_kunag-sign.
iw_kunnr-option = s_kunag-option.
iw_kunnr-low = s_kunag-low.
iw_kunnr-high = s_kunag-high.
APPEND iw_kunnr TO it_kunnr.
ENDLOOP.
LOOP AT s_vbeln.
iw_vbeln-sign = s_vbeln-sign.
iw_vbeln-option = s_vbeln-option.
iw_vbeln-low = s_vbeln-low.
iw_vbeln-high = s_vbeln-high.
APPEND iw_vbeln TO it_vbeln.
ENDLOOP.
CHECK it_errlog IS INITIAL.
CALL FUNCTION ‘ZBPI_FW_INVOICE_MAHLE_NEW‘
EXPORTING
fkdat_fr = s_fkdat-low
vbeln_fr = s_vbeln-low
kunnr_fr = s_kunag-low
matnr_fr = s_matnr-low
fkdat_to = s_fkdat-high
vbeln_to = s_vbeln-high
kunnr_to = s_kunag-high
matnr_to = s_matnr-high
aubel_fr = s_aubel-low
aubel_to = s_aubel-high
vkorg_fr = s_vkorg-low
vkorg_to = s_vkorg-high
* disc_cond_type = p_disc
* unit_cond_type = p_unit
* tax_cond_type = p_tax
bukrs = p_bukrs
nonrepeat = p_nonrep
gjahr = p_gjahr
TABLES
zfw_billing_items = it_blitems
zfw_billingno = it_tbillno
zfw_kunnr = it_kunnr
zfw_vbeln = it_vbeln
EXCEPTIONS
no_data = 1
lock_errord = 2
insert_error = 3.
CASE sy-subrc.
WHEN 1.
iw_errlog-str = ‘No matching data is found.‘(012).
APPEND iw_errlog TO it_errlog.
WHEN 2.
iw_errlog-str = ‘Lock table error.‘(023).
APPEND iw_errlog TO it_errlog.
WHEN 3.
iw_errlog-str = ‘Insert table error.‘(026).
APPEND iw_errlog TO it_errlog.
ENDCASE.
CHECK it_errlog IS INITIAL.
**{ Insert started by Linda on 06-Jan-2015 - CRXX
PERFORM frm_modify_blitems.
*
**} Insert ended by Linda on 06-Jan-2015 - CRXX
* background process
IF p_check2 = ‘X‘.
PERFORM frm_transfer_sever.
ELSE.
* front process
PERFORM frm_transfer_loc.
ENDIF.
*----------------------------------------------------------------------*
* END-OF-SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
* error log print
LOOP AT it_errlog INTO iw_errlog."
WRITE: /1 iw_errlog-str.
ENDLOOP.
FREE:it_tbillno,
it_out,
iw_vbrk,
iw_tbillno,
iw_blitems,
it_vbeln,
it_kunnr,
it_blitems,
w_time,
w_path,
w_filename,
iw_out.
*&---------------------------------------------------------------------*
*& Form frm_transfer_sever
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_transfer_sever .
* 拼接文件名
IF p_check3 = ‘X‘.
CONCATENATE p_bukrs s_vkorg-low sy-datum "LINDA 20140916
w_time ‘.txt‘
INTO w_filename.
ELSEIF p_check4 = ‘X‘.
CONCATENATE p_bukrs s_vkorg-low sy-datum "LINDA 20140916
w_time ‘.csv‘
INTO w_filename.
ENDIF.
* 拼接服务器路径
CONCATENATE p_path2 w_filename
INTO w_path SEPARATED BY cos_vl.
* 打开服务器文件 编码是非unicode
* OPEN DATASET w_path FOR OUTPUT IN TEXT MODE ENCODING NON-UNICODE.
* 打开服务器文件 编码是unicode
OPEN DATASET w_path FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
* 打开成功
IF sy-subrc = 0.
* 读取
PERFORM frm_write_txt.
* 关闭 DATASET
TRY.
CLOSE DATASET w_path.
IF sy-subrc <> 0.
* 文件名 &1 &2 &3 操作出错
MESSAGE s001(00) WITH ‘File name‘ w_filename cos_close ‘operate Error‘ INTO iw_errlog-str. "Linda 20141119
ELSE.
* 导出成功
MESSAGE s001(00) WITH ‘Output successful‘ INTO iw_errlog-str.
ENDIF.
CATCH cx_root. "#EC CATCH_ALL
MESSAGE s001(00) WITH ‘File name‘ w_filename cos_close ‘operate Error‘ INTO iw_errlog-str. "Linda 20141119
CLEANUP.
ENDTRY.
ELSE.
* 文件名 &1 &2 &3 操作出错
MESSAGE s001(00) WITH ‘File name‘ w_filename cos_open ‘operate Error‘ INTO iw_errlog-str. "Linda 20141119
ENDIF.
APPEND iw_errlog TO it_errlog.
CLEAR:w_filename,
w_path.
ENDFORM. " frm_transfer_sever
*&---------------------------------------------------------------------*
*& Form frm_transfer_loc
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->p1 text
* <--p2 text
*----------------------------------------------------------------------*
FORM frm_transfer_loc.
DATA:lw_file TYPE string.
* 拼接download数据
LOOP AT it_blitems INTO iw_blitems.
PERFORM frm_con_string USING iw_blitems
CHANGING iw_out-txt.
APPEND iw_out TO it_out.
CLEAR: iw_blitems,iw_out.
ENDLOOP.
lw_file = p_path.
CALL FUNCTION ‘GUI_DOWNLOAD‘
EXPORTING
filename = lw_file "string
filetype = ‘ASC‘
codepage = ‘8400‘ "4110 是utf-8
write_bom = ‘X‘
TABLES
data_tab = it_out
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 ‘S‘ NUMBER sy-msgno
DISPLAY LIKE ‘E‘
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
iw_errlog-str = ‘Output success.‘(024).
APPEND iw_errlog TO it_errlog.
ENDIF.
ENDFORM. " frm_transfer_loc
*&---------------------------------------------------------------------*
*& Form frm_save_file
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--f_path text
*----------------------------------------------------------------------*
FORM frm_save_file CHANGING f_path TYPE file_table-filename.
DATA: lw_fname TYPE string,
lw_path TYPE string,
lw_fpath TYPE string.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
file_filter = w_filter
CHANGING
filename = lw_fname
path = lw_path
fullpath = lw_fpath
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE ‘E‘ NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
f_path = lw_fpath.
ENDFORM. " frm_save_file
*&---------------------------------------------------------------------*
*& Form frm_con_string
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->piw_blitem text
* <--pw_txt text
*----------------------------------------------------------------------*
FORM frm_con_string USING piw_blitem TYPE zc0000sdt0016
CHANGING pw_txt TYPE string.
DATA: lw_temp TYPE char1024.
FIELD-SYMBOLS: <fs_temp> TYPE ANY.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE piw_blitem TO <fs_temp>.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CLEAR lw_temp.
lw_temp = <fs_temp>.
* 去空格
SHIFT lw_temp LEFT DELETING LEADING space.
IF sy-index = 1.
pw_txt = lw_temp.
ELSE.
IF p_check3 = ‘X‘. "Linda 20141120 add
CONCATENATE pw_txt cl_abap_char_utilities=>horizontal_tab lw_temp
INTO pw_txt.
ELSEIF p_check4 = ‘X‘.
CONCATENATE pw_txt cos_comma lw_temp "Linda 20141120 add
INTO pw_txt.
* ELSE.
* CONCATENATE pw_txt cos_comma lw_temp
* INTO pw_txt.
ENDIF.
ENDIF.
ENDDO.
UNASSIGN <fs_temp>.
ENDFORM. " frm_con_string
*&---------------------------------------------------------------------*
*& Form frm_write_txt
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_write_txt .
DATA:lw_out TYPE string.
** 上传数据头
** 捕获异常
* TRY.
** 上传服务器
* lw_out = LINES( it_blitems ).
* CONCATENATE w_filename ‘#Record‘ lw_out
* INTO lw_out.
* CONDENSE lw_out.
* TRANSFER lw_out TO w_path.
** 判断传输是否成功
* IF sy-subrc <> 0.
** 文件名 &1 &2 &3 操作出错
* MESSAGE s001(00) WITH ‘File name‘ w_path cos_transfer ‘operate error‘.
* ENDIF.
* CATCH cx_root.
* MESSAGE s001(00) WITH ‘File name‘ w_path cos_transfer ‘operate error‘.
* CLEANUP.
* ENDTRY.
* 上传数据
LOOP AT it_blitems INTO iw_blitems.
PERFORM frm_con_string USING iw_blitems
CHANGING lw_out.
TRY.
TRANSFER lw_out TO w_path.
* 判断传输是否成功
IF sy-subrc <> 0.
* 文件名 &1 &2 &3 操作出错
MESSAGE s001(00) WITH ‘File name‘ w_path cos_transfer ‘operate error‘.
ENDIF.
CATCH cx_root.
MESSAGE s001(00) WITH ‘File name‘ w_path cos_transfer ‘operate error‘.
CLEANUP.
ENDTRY.
CLEAR: iw_blitems,lw_out.
ENDLOOP.
ENDFORM. " frm_write_txt
*&---------------------------------------------------------------------*
*& Form frm_chang_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->fw_data text
* <--fw_budat text
*----------------------------------------------------------------------*
FORM frm_chang_data USING fw_data
CHANGING fw_budat.
DATA:l_today TYPE p0001-begda,
lw_data TYPE t5a4a-dlydy,
lw_calc TYPE p0001-begda.
* lw_data2 LIKE sy-datum.
l_today = sy-datum.
lw_data = fw_data.
IF fw_data = 0.
fw_budat = sy-datum.
ELSEIF fw_data > 0.
CALL FUNCTION ‘RP_CALC_DATE_IN_INTERVAL‘
EXPORTING
date = l_today
days = lw_data
months = 0
signum = ‘+‘
years = 0
IMPORTING
calc_date = lw_calc.
fw_budat = lw_calc .
ELSE.
CALL FUNCTION ‘RP_CALC_DATE_IN_INTERVAL‘
EXPORTING
date = l_today
days = lw_data
months = 0
signum = ‘-‘
years = 0
IMPORTING
calc_date = lw_calc.
fw_budat = lw_calc .
ENDIF.
ENDFORM. " frm_chang_data
*&---------------------------------------------------------------------*
*& Form frm_init
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_init .
* SELECT * FROM t001 INTO t001. "Linda 20141204 del
* authority-check
AUTHORITY-CHECK OBJECT ‘F_BKPF_BUK‘
ID ‘BUKRS‘ FIELD p_bukrs
ID ‘ACTVT‘ FIELD ‘03‘.
IF sy-subrc <> 0.
* You have no authorization for Company code
MESSAGE e004(zp001) WITH p_bukrs.
ENDIF.
* ENDSELECT. "Linda 20141204 del
ENDFORM. " frm_init
**{ Insert started by Linda on 06-Jan-2015 - CR0001
*&---------------------------------------------------------------------*
*& Form FRM_MODIFY_BLITEMS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_modify_blitems .
DATA:lw_blitems TYPE zc0000sdt0016.
LOOP AT it_blitems INTO lw_blitems.
CALL FUNCTION ‘CONVERSION_EXIT_CUNIT_OUTPUT‘
EXPORTING
input = lw_blitems-vrkme
language = sy-langu
IMPORTING
* LONG_TEXT =
output = lw_blitems-vrkme
* SHORT_TEXT =
* EXCEPTIONS
* UNIT_NOT_FOUND = 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.
MODIFY it_blitems FROM lw_blitems TRANSPORTING vrkme.
ENDLOOP.
ENDFORM. " FRM_MODIFY_BLITEMS
发票号码回传程序
1 REPORT zc0000sdr0017 NO STANDARD PAGE HEADING
2 LINE-COUNT 58
3 LINE-SIZE 170.
4 TYPE-POOLS: icon,slis,kcdu,tpit.
5 TABLES: sscrfields,
6 zc0000sdt0020.
7 *----------------------------------------------------------------------*
8 * type define
9 *----------------------------------------------------------------------*
10 TYPES: ty_dir_list TYPE STANDARD TABLE OF salfldir,
11 BEGIN OF ty_dir,
12 name TYPE pfeflname,
13 size TYPE pfeflsize,
14 name2 TYPE pfeflname,
15 END OF ty_dir,
16 BEGIN OF ty_tabl,
17 line(200),
18 END OF ty_tabl,
19 BEGIN OF ty_vbeln,
20 vbeln TYPE vbrk-vbeln,
21 fkart TYPE vbrk-fkart,
22 kunrg TYPE vbrk-kunrg,
23 bukrs TYPE vbrk-bukrs,
24 fkdat TYPE vbrk-fkdat,
25 xblnr TYPE xblnr,
26 gjahr TYPE gjahr,
27 bktxt TYPE bktxt, "linda 20140918
28 zline TYPE i, "bseg table lines "Linda 20141023
29 END OF ty_vbeln,
30 BEGIN OF ty_vbrk,
31 vbeln TYPE vbrk-vbeln,
32 bukrs TYPE vbrk-bukrs,
33 gjahr TYPE vbrk-gjahr,
34 xblnr TYPE vbrk-xblnr,
35 fkdat TYPE vbrk-fkdat,
36 END OF ty_vbrk,
37 * add local file read begin
38 BEGIN OF ty_row,
39 field TYPE char40,
40 END OF ty_row,
41 * add local file read end
42 BEGIN OF ty_errlog, "Linda 20141120 add
43 str(100) TYPE c, "Linda 20141120 add
44 END OF ty_errlog. "Linda 20141120 add
45 *----------------------------------------------------------------------*
46 * Internal Tables define
47 *----------------------------------------------------------------------*
48 DATA: it_file TYPE ty_dir_list,
49 it_file2 TYPE STANDARD TABLE OF ty_dir,
50 it_errtab TYPE tpit_t_errdoc,
51 it_buztab TYPE TABLE OF tpit_buztab,
52 it_fldtab TYPE tpit_t_fname,
53 it_tabl TYPE STANDARD TABLE OF ty_tabl WITH HEADER LINE,
54 it_errlog TYPE STANDARD TABLE OF zc0000sdt0020,
55 it_errlog2 TYPE STANDARD TABLE OF ty_errlog, "Linda 20141120 add
56 it_fieldcat TYPE slis_t_fieldcat_alv,
57 it_bseg TYPE STANDARD TABLE OF bseg." Linda 20141024 add
58 *&---------------------------------------------------------------------*
59 * Workarea define
60 *&---------------------------------------------------------------------*
61 DATA: iw_file TYPE salfldir,
62 iw_file2 TYPE ty_dir,
63 iw_ins TYPE ty_vbeln,
64 iw_vbrk TYPE ty_vbrk,
65 iw_err TYPE zc0000sdt0020,
66 iw_errlog TYPE ty_errlog, "Linda 20141120 add
67 iw_bseg TYPE bseg.
68 *----------------------------------------------------------------------*
69 * Global Variables
70 *----------------------------------------------------------------------*
71 DATA :w_ret TYPE char1,
72 w_cmd(100) TYPE c,
73 w_date TYPE sy-datum,
74 w_time TYPE char6,
75 w_read_file TYPE salfile-longname,
76 functxt TYPE smp_dyntxt,
77 ok_code TYPE sy-ucomm,
78 w_repid TYPE sy-repid,
79 w_str(1000) TYPE c,
80 putdahigh TYPE zc0000sdt0020-putda,
81 puttihigh TYPE zc0000sdt0020-putti,
82 vbelnhigh TYPE zc0000sdt0020-vbeln,
83 xblnrhigh TYPE zc0000sdt0020-xblnr,
84 w_file_path TYPE string,
85 w_lfile TYPE string, "file name
86 w_row_num TYPE char4,
87 w_msg_txt TYPE string.
88 *----------------------------------------------------------------------*
89 * Constants define
90 *----------------------------------------------------------------------*
91 CONSTANTS: cos_star2(3) TYPE c VALUE ‘*.*‘,
92 cos_2(2) TYPE c VALUE ‘2‘,
93 cos_1(1) TYPE c VALUE ‘1‘,
94 cos_numc(4) TYPE c VALUE ‘NUMC‘.
95
96 SELECTION-SCREEN: FUNCTION KEY 1 .
97 SELECTION-SCREEN BEGIN OF LINE.
98 PARAMETER p_check2 TYPE c RADIOBUTTON GROUP rads DEFAULT ‘X‘.
99 SELECTION-SCREEN COMMENT 4(20) text-c02 FOR FIELD p_check2."导出到服务器
100 SELECTION-SCREEN END OF LINE.
101 SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
102 PARAMETERS: p_fpath(1024) TYPE c DEFAULT ‘g:\r3ftp\formware\writeback\nonprocess\‘,"need edit D:\usr\sap\put\Inbound\Nonprocess 103 p_bpath(1024) TYPE c DEFAULT ‘g:\r3ftp\formware\writeback\bak\‘." D:\usr\sap\put\Inbound\Backup 104 SELECTION-SCREEN END OF BLOCK b1.
105 SELECTION-SCREEN BEGIN OF LINE.
106 PARAMETER p_check1 RADIOBUTTON GROUP rads.
107 SELECTION-SCREEN COMMENT 4(20) text-c01 FOR FIELD p_check1."导出到本地
108 SELECTION-SCREEN END OF LINE.
109 SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t01.
110 PARAMETERS: p_flpath(1024) TYPE c DEFAULT ‘‘."need edit D:\usr\sap\put\Inbound\Nonprocess 111 * p_blpath(1024) TYPE c DEFAULT ‘D:\Backup\‘." D:\usr\sap\put\Inbound\Backup 112 SELECTION-SCREEN END OF BLOCK b2.
113 *----------------------------------------------------------------------*
114 * INITIALIZATION.
115 *----------------------------------------------------------------------*
116 INITIALIZATION.
117 functxt-icon_id = icon_biw_info_catalog.
118 functxt-icon_text = ‘ERROR LOG‘.
119 sscrfields-functxt_01 = functxt.
120 *----------------------------------------------------------------------*
121 * AT SELECTION-SCREEN ON VALUE-REQUEST
122 *----------------------------------------------------------------------*
123 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flpath.
124 PERFORM form_get_file_path_upload.
125 *----------------------------------------------------------------------*
126 * START-OF-SELECTION
127 *----------------------------------------------------------------------*
128 START-OF-SELECTION.
129 w_date = sy-datum.
130 w_time = sy-uzeit.
131 * file process
132 IF p_check2 IS NOT INITIAL.
133 PERFORM frm_file_process.
134 ELSE.
135 * local
136 PERFORM frm_file_process_local.
137 ENDIF.
138 *----------------------------------------------------------------------*
139 * AT SELECTION-SCREEN
140 *----------------------------------------------------------------------*
141 AT SELECTION-SCREEN.
142 IF sy-ucomm = ‘ONLI‘.
143 IF p_flpath IS INITIAL AND p_check1 = ‘X‘.
144 MESSAGE e001(00) WITH ‘local path can not be init‘(001).
145 SET CURSOR FIELD ‘P_FLPATH‘.
146 ENDIF.
147 ENDIF.
148 CASE sscrfields-ucomm.
149 WHEN ‘FC01‘.
150 CALL SCREEN 9000.
151 WHEN OTHERS.
152 ...
153 ENDCASE.
154 *----------------------------------------------------------------------*
155 * END-OF-SELECTION
156 *----------------------------------------------------------------------*
157 END-OF-SELECTION.
158 IF w_ret = ‘X‘.
159 IF it_errlog IS INITIAL.
160 WRITE: /1 ‘Write back fail,please see error log.‘(014).
161 ELSE.
162 LOOP AT it_errlog INTO iw_errlog."
163 WRITE: /1 iw_errlog-str.
164 ENDLOOP.
165 ENDIF.
166 ELSE.
167 WRITE: /1 ‘Write back success‘(012).
168 ENDIF.
169 CLEAR:it_errlog,iw_errlog.
170 *----------------------------------------------------------------------*
171 * 子程序名称 ：文件处理
172 * 子程序名 ：frm_file_process
173 * 概要 ：文件处理
174 * 参数 ：无
175 * 返回值 ：无
176 *----------------------------------------------------------------------*
177 FORM frm_file_process.
178 DATA: lw_path TYPE salfile-longname,
179 w_cmd1 TYPE string.
180 * Nonprocess路径名组成
181 CLEAR lw_path.
182 lw_path = p_fpath.
183 * 取得目录中的内容
184 PERFORM frm_read_directory TABLES it_file
185 USING lw_path
186 CHANGING w_ret.
187 IF w_ret = space.
188 * 把文件夹Nonprocess下的文件复制到文件夹Backup下
189
190 **{ Insert started by ZhouTing on 25-Jan-2015 - CR0010
191
192 ** begin of comment by zhou ting
193 ** to use open dataset instead
194 *
195 ** 这是在Linux系统下用的
196 ** CONCATENATE p_fpath cos_nonprocess cos_star2 "#EC NOTEXT
197 ** INTO w_cmd1.
198 ** 这是在windows系统下用的
199 * CONCATENATE p_fpath cos_star2 "#EC NOTEXT
200 * INTO w_cmd1.
201 *
202 ** 这是在Linux系统下用的 "need be edited
203 ** CONCATENATE ‘cp‘ w_cmd1 p_bpath INTO w_cmd SEPARATED BY space.
204 ** 这是在windows系统下用的
205 * CONCATENATE ‘copy‘ w_cmd1 p_bpath INTO w_cmd SEPARATED BY space.
206 ***{ Insert started by Linda on 06-Jan-2015 - CR0010
207 * TRY.
208 ***{ Insert ended by Linda on 06-Jan-2015 - CR0010
209 * CALL ‘SYSTEM‘ ID ‘COMMAND‘ FIELD w_cmd
210 * ID ‘TAB‘ FIELD it_tabl-*sys*.
211 *
212 * IF sy-subrc <> 0.
213 * CONCATENATE ‘Move file fail‘(013) p_bpath INTO iw_errlog-str.
214 * APPEND iw_errlog TO it_errlog2.
215 * w_ret = ‘X‘.
216 * ENDIF.
217 ***{ Insert started by Linda on 06-Jan-2015 - CR0010
218 * CATCH cx_root.
219 * CONCATENATE ‘Move file fail‘(013) p_bpath INTO iw_errlog-str.
220 * APPEND iw_errlog TO it_errlog2.
221 * w_ret = ‘X‘.
222 * ENDTRY.
223 ***{ Insert ended by Linda on 06-Jan-2015 - CR0010
224 ** end of comment.
225
226 PERFORM frm_copy_file USING p_fpath p_bpath it_file
227 CHANGING w_ret.
228 IF w_ret <> 0.
229 CONCATENATE ‘Move file fail‘(013) p_bpath INTO iw_errlog-str.
230 APPEND iw_errlog TO it_errlog2.
231 w_ret = ‘X‘.
232 ENDIF.
233
234 **{ Insert ended by ZhouTing on 25-Jan-2015 - CR0010
235
236 * 文件数据传送接口表
237
238 PERFORM frm_transfer_data USING lw_path
239 CHANGING w_ret.
240 ENDIF.
241
242 ENDFORM. " FRM_file_process
243 *----------------------------------------------------------------------*
244 * 子程序名称 ：取得目录中的内容
245 * 子程序名 ：frm_read_directory
246 * 概要 ：取得目录中的内容
247 * 参数 ：fit_dir_bukrs type ty_dir_list 取得的目录列表
248 * ：f_dir_path type salfile-longname 目录路径
249 * 返回值 ：f_ret type c 正常取得：space 未取得：‘1‘ 异常：‘2‘
250 *----------------------------------------------------------------------*
251 FORM frm_read_directory TABLES fit_dir TYPE ty_dir_list
252 USING f_dir_path TYPE salfile-longname
253 CHANGING f_ret TYPE c.
254 DATA: lw_lines TYPE i.
255
256 CLEAR f_ret.
257 REFRESH fit_dir.
258 CALL FUNCTION ‘RZL_READ_DIR_LOCAL‘
259 EXPORTING
260 name = f_dir_path
261 TABLES
262 file_tbl = fit_dir
263 EXCEPTIONS
264 argument_error = 1
265 not_found = 2
266 OTHERS = 3.
267
268 IF sy-subrc <> 0.
269 f_ret = cos_2.
270 RETURN.
271 ENDIF.
272
273 lw_lines = LINES( fit_dir ).
274 IF lw_lines < 3.
275 f_ret = cos_1.
276 ENDIF.
277 ENDFORM. " frm_read_directory
278 *----------------------------------------------------------------------*
279 * 子程序名称 ：数据传输处理
280 * 子程序名 ：frm_copy_file
281 * 概要 ：把需处理的文件拷贝到bak目录下
282 * 参数 ：i_frompath 目录路径
283 * i_topath 目录路径
284 * 返回值 ：o_ret 正常：space 异常：‘4‘
285 *----------------------------------------------------------------------*
286 FORM frm_copy_file USING i_frompath
287 i_topath
288 i_filelist TYPE ty_dir_list
289 CHANGING o_ret.
290
291 DATA: from_file TYPE string,
292 to_file TYPE string,
293 lt_file_content TYPE TABLE OF string,
294 lv_text TYPE string,
295 ls_filelist TYPE salfldir.
296
297 LOOP AT i_filelist FROM 3 INTO ls_filelist.
298
299 REFRESH lt_file_content.
300
301 "源文件路径+文件名
302 CONCATENATE i_frompath ls_filelist-name INTO from_file.
303 "目标文件路径+文件名
304 CONCATENATE i_topath ls_filelist-name INTO to_file.
305
306 "把源文件内容保存进内表
307 OPEN DATASET from_file FOR INPUT IN TEXT MODE
308 ENCODING NON-UNICODE
309 IGNORING CONVERSION ERRORS.
310 IF sy-subrc NE 0.
311 o_ret = 4.
312 EXIT.
313 ENDIF.
314 DO.
315 READ DATASET from_file INTO lv_text.
316 IF sy-subrc NE 0.
317 EXIT.
318 ENDIF.
319 APPEND lv_text TO lt_file_content.
320 ENDDO.
321
322 CLOSE DATASET from_file.
323
324
325 "把源文件内容从系统内表中写入目标文件中
326 OPEN DATASET to_file FOR OUTPUT IN TEXT MODE
327 ENCODING NON-UNICODE
328 IGNORING CONVERSION ERRORS.
329
330 IF sy-subrc NE 0.
331 o_ret = 4.
332 EXIT.
333 ENDIF.
334 LOOP AT lt_file_content INTO lv_text.
335 TRANSFER lv_text TO to_file.
336 ENDLOOP.
337 CLOSE DATASET to_file.
338
339 ENDLOOP.
340
341 ENDFORM. "frm_copy_file
342 *----------------------------------------------------------------------*
343 * 子程序名称 ：数据传输处理
344 * 子程序名 ：frm_transfer_data
345 * 概要 ：文件数据传送接口表
346 * 参数 ：f_path type salfile-longname 目录路径
347 * 返回值 ：无
348 *----------------------------------------------------------------------*
349 FORM frm_transfer_data USING f_path TYPE salfile-longname
350 CHANGING lw_ret.
351 DATA: lw_loopc TYPE sy-index,
352 lw_text(2048) TYPE c,
353 * lw_ret(1) TYPE c,
354 lw_zwrit TYPE i,
355 lw_lines TYPE i,
356 lw_len TYPE i.
357
358 * 处理文件名排序的问题
359 SORT it_file BY name DESCENDING.
360 lw_lines = LINES( it_file ).
361 lw_lines = lw_lines - 1.
362 * 删除无用的2行
363 DELETE it_file FROM lw_lines.
364 * 从it_file 取数添加到it_file2
365
366 LOOP AT it_file INTO iw_file.
367 MOVE-CORRESPONDING iw_file TO iw_file2.
368
369 lw_len = STRLEN( iw_file-name ) - 18.
370
371 SHIFT iw_file-name BY lw_len PLACES LEFT.
372 iw_file2-name2 = iw_file-name+0(14).
373 APPEND iw_file2 TO it_file2.
374 CLEAR:lw_len,iw_file2.
375 ENDLOOP.
376
377 CLEAR iw_file.
378 * 按文件生成时间排序
379 SORT it_file2 BY name2.
380 LOOP AT it_file2 INTO iw_file2.
381 * 文件路径组
382 CLEAR w_read_file.
383 CONCATENATE f_path iw_file2-name INTO w_read_file.
384 * 打开文件
385 OPEN DATASET w_read_file FOR INPUT
386 IN TEXT MODE ENCODING NON-UNICODE.
387 IF sy-subrc <> 0.
388 EXIT.
389 ENDIF.
390 DO.
391 lw_loopc = sy-index.
392 TRY.
393 CLEAR lw_text.
394 READ DATASET w_read_file INTO lw_text.
395 CATCH cx_sy_conversion_codepage.
396 CLOSE DATASET: w_read_file.
397 EXIT.
398 ENDTRY.
399 * 空文件的情况下
400 IF sy-subrc <> 0 AND lw_loopc = 1."lw_loopc = 2 带标题的文件
401 PERFORM frm_get_errno CHANGING lw_zwrit.
402 iw_err-zwrit = lw_zwrit.
403 IF p_check1 = ‘X‘.
404 iw_err-filen = w_lfile.
405 ELSE.
406 iw_err-filen = iw_file2-name.
407 ENDIF.
408 iw_err-errin = ‘FILE NO DATA‘(002).
409 iw_err-putda = w_date.
410 iw_err-putti = w_time.
411 INSERT zc0000sdt0020 FROM iw_err.
412 CLEAR:iw_err.
413 lw_ret = ‘X‘.
414 " EXIT.
415 ELSEIF sy-subrc <> 0.
416 **{ Insert started by ZhouTing on 30-Jan-2015 - CR0010
417 "lw_ret = ‘X‘.
418 **{ Insert ended by ZhouTing on 30-Jan-2015 - CR0010
419 EXIT.
420 ENDIF.
421 * 第一行不是标题
422 * IF lw_loopc = 1.
423 * CONTINUE.
424 * ENDIF.
425 * 拆分数据并加入接口表
426 * 0090036259 LR 0000300713 20140525 123456 3000
427 * vbeln fkart 客户代码 金税号
428 CHECK lw_ret IS INITIAL.
429 PERFORM frm_separate_text USING lw_text
430 CHANGING lw_ret.
431 CHECK lw_ret IS INITIAL.
432 PERFORM frm_writeback CHANGING lw_ret.
433 ENDDO.
434
435 **{ Insert started by ZhouTing on 27-Jan-2015 - CR0010
436 CLOSE DATASET w_read_file.
437 **{ Insert ended by ZhouTing on 27-Jan-2015 - CR0010
438
439 DELETE DATASET w_read_file.
440
441 ENDLOOP.
442 ENDFORM. " frm_transfer_data
443 *----------------------------------------------------------------------*
444 * 子程序名称 ：拆分数据并加入接口表
445 * 子程序名 ：frm_separate_text
446 * 概要 ：拆分数据并加入接口表
447 * 参数 ：f_text type c 要拆分的数据
448 * 返回值 ：无
449 *----------------------------------------------------------------------*
450 FORM frm_separate_text USING f_text TYPE c
451 CHANGING f_ret TYPE c.
452 DATA: lw_value(100) TYPE c,
453 lw_val(1024) TYPE c,
454 lw_ret TYPE char1,
455 lw_zwrit TYPE i.
456 CLEAR f_ret.
457 lw_val = f_text.
458
459 * Sys_Inv_No
460 SPLIT lw_val AT cl_abap_char_utilities=>horizontal_tab
461 INTO lw_value lw_val.
462 IF lw_value = space.
463 * 检查 发票号是否为空
464 PERFORM frm_get_errno CHANGING lw_zwrit.
465 iw_err-zwrit = lw_zwrit.
466 IF p_check1 = ‘X‘.
467 iw_err-filen = w_lfile.
468 ELSE.
469 iw_err-filen = iw_file2-name.
470 ENDIF.
471 iw_err-errin = ‘INVOICENO IS EMPTY‘(003).
472 iw_err-vbeln = lw_value.
473 iw_err-putda = w_date.
474 iw_err-putti = w_time.
475 INSERT zc0000sdt0020 FROM iw_err.
476 CLEAR:iw_err.
477 f_ret = ‘X‘.
478 ELSE.
479 * Sys_Inv_No检查
480 PERFORM frm_numeric_check USING lw_value
481 CHANGING lw_ret.
482 IF lw_ret = ‘X‘.
483 * 检查 发票是否为数字
484 PERFORM frm_get_errno CHANGING lw_zwrit.
485 iw_err-zwrit = lw_zwrit.
486 IF p_check1 = ‘X‘.
487 iw_err-filen = w_lfile.
488 ELSE.
489 iw_err-filen = iw_file2-name.
490 ENDIF.
491 iw_err-errin = ‘INVOICENO IS NOT NUMBER‘(004).
492 iw_err-vbeln = lw_value.
493 iw_err-putda = w_date.
494 iw_err-putti = w_time.
495 INSERT zc0000sdt0020 FROM iw_err.
496 CLEAR:iw_err.
497 f_ret = ‘X‘.
498 ELSE.
499 * 检查 发票存在性
500 PERFORM frm_check_inv USING lw_value
501 CHANGING lw_ret.
502 IF lw_ret = ‘X‘.
503 PERFORM frm_get_errno CHANGING lw_zwrit.
504 iw_err-zwrit = lw_zwrit.
505 IF p_check1 = ‘X‘.
506 iw_err-filen = w_lfile.
507 ELSE.
508 iw_err-filen = iw_file2-name.
509 ENDIF.
510 iw_err-errin = ‘INVOICENO IS NOT EXIST‘(005).
511 iw_err-vbeln = lw_value.
512 iw_err-putda = w_date.
513 iw_err-putti = w_time.
514 INSERT zc0000sdt0020 FROM iw_err.
515 CLEAR:iw_err.
516 f_ret = ‘X‘.
517 ELSEIF lw_val = space." 金税号 为空检查
518 PERFORM frm_get_errno CHANGING lw_zwrit.
519 iw_err-zwrit = lw_zwrit.
520 IF p_check1 = ‘X‘.
521 iw_err-filen = w_lfile.
522 ELSE.
523 iw_err-filen = iw_file2-name.
524 ENDIF.
525 iw_err-errin = ‘JINSHUHAO IS EMPTY‘(006).
526 iw_err-vbeln = lw_value.
527 iw_err-putda = w_date.
528 iw_err-putti = w_time.
529 INSERT zc0000sdt0020 FROM iw_err.
530 CLEAR:iw_err.
531 f_ret = ‘X‘.
532 ELSE.
533 iw_ins-vbeln = lw_value. "保存 数据
534 * fkart
535 CLEAR lw_value.
536 SPLIT lw_val AT cl_abap_char_utilities=>horizontal_tab
537 INTO lw_value lw_val.
538 iw_ins-fkart = lw_value. "保存 数据
539
540 *kunrg
541 CLEAR lw_value.
542 SPLIT lw_val AT cl_abap_char_utilities=>horizontal_tab
543 INTO lw_value lw_val.
544 iw_ins-kunrg = lw_value. "保存 数据
545 * Year
546 IF lw_val = space." 年度 为空检查
547 PERFORM frm_get_errno CHANGING lw_zwrit.
548 iw_err-zwrit = lw_zwrit.
549 IF p_check1 = ‘X‘.
550 iw_err-filen = w_lfile.
551 ELSE.
552 iw_err-filen = iw_file2-name.
553 ENDIF.
554 iw_err-errin = ‘YEAR IS EMPTY‘(007).
555 iw_err-vbeln = lw_value.
556 iw_err-putda = w_date.
557 iw_err-putti = w_time.
558 INSERT zc0000sdt0020 FROM iw_err.
559 CLEAR:iw_err.
560 f_ret = ‘X‘.
561 ELSE.
562 CLEAR lw_value.
563 SPLIT lw_val AT cl_abap_char_utilities=>horizontal_tab
564 INTO lw_value lw_val.
565 iw_ins-gjahr = lw_value+0(4). "保存 数据
566 *linda 20140806
567 iw_ins-fkdat = lw_value. "保存 数据
568 ENDIF.
569 * VAT_Inv_No
570 CLEAR lw_value.
571 SPLIT lw_val AT cl_abap_char_utilities=>horizontal_tab
572 INTO lw_value lw_val.
573 iw_ins-xblnr = lw_value. "保存 数据
574 iw_ins-bktxt = lw_value."Linda 20140918
575 * bukrs
576 CLEAR lw_value.
577 SPLIT lw_val AT cl_abap_char_utilities=>horizontal_tab
578 INTO lw_value lw_val.
579 iw_ins-bukrs = lw_value. "保存 数据
580 ENDIF.
581 ENDIF.
582 ENDIF.
583 ENDFORM. " frm_separate_text
584 *Sys_Inv_No VAT_Inv_No VAT Issue_date Total_Amount
585 *0090035243 12345654321 2005-08-10 8
586 *----------------------------------------------------------------------*
587 * 子程序名称 ：数据类型检查
588 * 子程序名 ：frm_numeric_check
589 * 概要 ：数据类型检查
590 * 参数 ：f_val TYPE c 要检查的数据
591 * 返回值 ：f_ret TYPE c 正常：space 出错：‘X‘
592 *----------------------------------------------------------------------*
593 FORM frm_numeric_check USING f_val TYPE c
594 CHANGING f_ret TYPE c.
595 DATA: lw_type TYPE dd01v-datatype.
596
597 CHECK f_val <> space.
598 CLEAR f_ret.
599 CALL FUNCTION ‘NUMERIC_CHECK‘
600 EXPORTING
601 string_in = f_val
602 IMPORTING
603 htype = lw_type.
604 IF lw_type <> cos_numc.
605 f_ret = ‘X‘.
606 ENDIF.
607 ENDFORM. " frm_numeric_check
608
609 *&---------------------------------------------------------------------*
610 *& Form frm_get_errno
611 *&---------------------------------------------------------------------*
612 * text
613 *----------------------------------------------------------------------*
614 * <--P_LW_ZWRIT text
615 *----------------------------------------------------------------------*
616 FORM frm_get_errno CHANGING f_zwrit TYPE i.
617 CALL FUNCTION ‘NUMBER_GET_NEXT‘
618 EXPORTING
619 nr_range_nr = ‘01‘ "snro
620 object = ‘ZWRITEBACK‘ "snro object "be edit
621 IMPORTING
622 number = f_zwrit "所得到的号码
623 EXCEPTIONS
624 interval_not_found = 1
625 number_range_not_intern = 2
626 object_not_found = 3
627 quantity_is_0 = 4
628 quantity_is_not_1 = 5
629 interval_overflow = 6
630 buffer_overflow = 7
631 OTHERS = 8.
632 IF sy-subrc <> 0.
633 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
634 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO iw_errlog-str.
635 APPEND iw_errlog TO it_errlog2.
636 ENDIF.
637
638 ENDFORM. " frm_get_errno
639 *&---------------------------------------------------------------------*
640 *& Form FRM_CHECK_INV
641 *&---------------------------------------------------------------------*
642 * text
643 *----------------------------------------------------------------------*
644 * -->f_vbeln text
645 * <--f_ret text
646 *----------------------------------------------------------------------*
647 FORM frm_check_inv USING f_vbeln
648 CHANGING f_ret.
649 DATA:lw_count TYPE i.
650 SELECT COUNT(*)
651 INTO lw_count
652 FROM vbrk "(Reference Document Number)
653 WHERE vbeln = f_vbeln . "Billing Document
654 IF sy-subrc = 4.
655 f_ret = ‘X‘.
656 ENDIF.
657 ENDFORM. " FRM_CHECK_INV
658 *&---------------------------------------------------------------------*
659 *& Form frm_writeback
660 *&---------------------------------------------------------------------*
661 * text
662 *----------------------------------------------------------------------*
663 * -->fw_ret text
664 *----------------------------------------------------------------------*
665 FORM frm_writeback CHANGING fw_ret.
666 DATA:lw_zwrit TYPE i,
667 lw_count TYPE i,
668 lw_bktxt TYPE bktxt, "linda 20140916
669 lw_belnr TYPE bkpf-belnr,
670 lw_gjahr TYPE char4.
671 *Select IsExist Invoice
672 SELECT SINGLE vbeln
673 bukrs
674 gjahr
675 xblnr
676 fkdat
677 INTO iw_vbrk
678 FROM vbrk "(Reference Document Number)
679 WHERE vbeln = iw_ins-vbeln. "Billing Document
680 IF iw_vbrk-xblnr <> iw_ins-xblnr.
681 * 将发票号更新到发票 BKPF-XBLNR（Reference Document Number)
682 PERFORM frm_vbrk_xblnr USING iw_ins-xblnr
683 iw_ins-vbeln.
684 IF w_msg_txt IS NOT INITIAL.
685 PERFORM frm_get_errno CHANGING lw_zwrit.
686 iw_err-zwrit = lw_zwrit.
687 IF p_check1 = ‘X‘.
688 iw_err-filen = w_lfile.
689 ELSE.
690 iw_err-filen = iw_file2-name.
691 ENDIF.
692 iw_err-errin = ‘UPDATA VBRK FAIL‘(008).
693 iw_err-vbeln = iw_ins-vbeln.
694 iw_err-xblnr = iw_ins-xblnr.
695 iw_err-putda = w_date.
696 iw_err-putti = w_time.
697 INSERT zc0000sdt0020 FROM iw_err.
698 CLEAR:iw_err,w_msg_txt.
699 fw_ret = ‘X‘.
700 ENDIF.
701 ENDIF.
702 CHECK fw_ret IS INITIAL.
703 SELECT SINGLE belnr bktxt "Linda 20140916 xblnr
704 INTO (lw_belnr,lw_bktxt) "Linda 20140916lw_xblnr
705 FROM bkpf
706 WHERE bukrs = iw_vbrk-bukrs
707 AND awkey = iw_ins-vbeln "BKPF-AWKEY(Reference Key)
708 AND gjahr = iw_vbrk-fkdat+0(4).
709
710 IF lw_bktxt <> iw_ins-bktxt.
711 lw_gjahr = iw_vbrk-fkdat+0(4).
712 IF lw_belnr IS INITIAL.
713 PERFORM frm_get_errno CHANGING lw_zwrit.
714 iw_err-zwrit = lw_zwrit.
715 IF p_check1 = ‘X‘.
716 iw_err-filen = w_lfile.
717 ELSE.
718 iw_err-filen = iw_file2-name.
719 ENDIF.
720 iw_err-errin = ‘Invoice Is Empty‘(009).
721 iw_err-vbeln = iw_ins-vbeln.
722 iw_err-xblnr = iw_ins-xblnr.
723 iw_err-putda = w_date.
724 iw_err-putti = w_time.
725 INSERT zc0000sdt0020 FROM iw_err.
726 CLEAR:iw_err,w_msg_txt.
727 fw_ret = ‘X‘.
728 ELSE.
729 * 将发票号更新到凭证BKPF中的BKPF-XBLNR(Reference Document Number)
730 * update the GTS No.# to BKPF-XBLNR(Reference Document Number)
731 * 2 reason:1>.要调用的function 用到了bseg这个结构;
732 * Call function "‘Z_FI_ITEMS_MASS_CHANGE‘" using BSEG as import structure
733 * 2>使用的频率不高，1周1次，每次XX 条，所以即使写成 select * 也对性能影响不大
734 * The call frequence will be weekly, and the volume is limited, thus should the performance impact is restricted.
735 SELECT *
736 INTO TABLE it_bseg
737 FROM bseg
738 WHERE bukrs = iw_vbrk-bukrs
739 AND belnr = lw_belnr
740 AND gjahr = lw_gjahr.
741
742 PERFORM frm_bseg_sgtxt USING iw_ins.
743 IF w_msg_txt IS NOT INITIAL.
744 PERFORM frm_get_errno CHANGING lw_zwrit.
745 iw_err-zwrit = lw_zwrit.
746 IF p_check1 = ‘X‘.
747 iw_err-filen = w_lfile.
748 ELSE.
749 iw_err-filen = iw_file2-name.
750 ENDIF.
751 iw_err-errin = ‘BDC update fail‘(010).
752 iw_err-vbeln = iw_ins-vbeln.
753 iw_err-xblnr = iw_ins-xblnr.
754 iw_err-putda = w_date.
755 iw_err-putti = w_time.
756 INSERT zc0000sdt0020 FROM iw_err.
757 CLEAR:iw_err,w_msg_txt.
758 fw_ret = ‘X‘.
759 ENDIF.
760
761 ENDIF.
762 ENDIF.
763 CHECK fw_ret IS INITIAL.
764 SELECT COUNT(*)
765 FROM zc0000sdt0020
766 INTO lw_count
767 WHERE vbeln = iw_ins-vbeln.
768 IF lw_count > 1.
769 DELETE FROM zc0000sdt0020 WHERE vbeln = iw_ins-vbeln.
770 IF sy-subrc = 0.
771 COMMIT WORK AND WAIT.
772 ELSE.
773 ROLLBACK WORK.
774 ENDIF.
775 ENDIF.
776 CLEAR:it_bseg.
777 ENDFORM. " frm_writeback
778 *&---------------------------------------------------------------------*
779 *& Module STATUS_9000 OUTPUT
780 *&---------------------------------------------------------------------*
781 * text
782 *----------------------------------------------------------------------*
783 MODULE status_9000 OUTPUT.
784 SET PF-STATUS ‘800‘.
785 SET TITLEBAR ‘ERROR LOG SEARCH‘.
786
787 ENDMODULE. " STATUS_9000 OUTPUT
788 *&---------------------------------------------------------------------*
789 *& Module USER_COMMAND_9000 INPUT
790 *&---------------------------------------------------------------------*
791 * text
792 *----------------------------------------------------------------------*
793 MODULE user_command_9000 INPUT.
794 CASE ok_code.
795 WHEN ‘EXECUTE‘.
796 PERFORM frm_data_select.
797
798 IF it_errlog IS INITIAL.
799 MESSAGE e001(00) WITH ‘NO error log data‘(011).
800 LEAVE TO SCREEN 9000.
801 ENDIF.
802 * ALV最后结果输出
803 PERFORM frm_display_data.
804 WHEN ‘CANCEL‘.
805 LEAVE TO SCREEN 0.
806 WHEN ‘EXIT‘.
807 LEAVE PROGRAM.
808 WHEN ‘BACK‘.
809 LEAVE TO SCREEN 0.
810 ENDCASE.
811 ENDMODULE. " USER_COMMAND_9000 INPUT
812 *----------------------------------------------------------------------*
813 * 子程序名称 ：ALV最后结果输出
814 * 子程序名 ：frm_display_data
815 * 概要 ：ALV最后结果输出
816 * 参数 ：无
817 * 返回值 ：无
818 *----------------------------------------------------------------------*
819 FORM frm_display_data .
820 w_repid = sy-repid.
821 CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY‘
822 EXPORTING
823 i_callback_program = w_repid
824 i_structure_name = ‘ZC0000SDT0020‘
825 it_fieldcat = it_fieldcat
826 TABLES
827 t_outtab = it_errlog.
828 IF sy-subrc <> 0.
829 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
830 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
831 ENDIF.
832
833 ENDFORM. " frm_display_data
834 *&---------------------------------------------------------------------*
835 *& Form frm_data_select
836 *&---------------------------------------------------------------------*
837 * text
838 *----------------------------------------------------------------------*
839 * --> p1 text
840 * <-- p2 text
841 *----------------------------------------------------------------------*
842 FORM frm_data_select .
843 IF zc0000sdt0020-filen IS NOT INITIAL.
844 CONCATENATE ‘FILEN LIKE ‘‘‘ zc0000sdt0020-filen ‘%‘‘‘ INTO w_str.
845 ENDIF.
846 **************** putda**************************************
847 IF zc0000sdt0020-putda IS NOT INITIAL AND putdahigh IS INITIAL.
848 IF w_str IS NOT INITIAL.
849 CONCATENATE w_str ‘ and putda = ZC0000SDT0020-putda‘ INTO w_str.
850 ELSE.
851 w_str = ‘putda = ZC0000SDT0020-putda‘.
852 ENDIF.
853 ENDIF.
854 IF zc0000sdt0020-putda IS INITIAL AND putdahigh IS NOT INITIAL.
855 IF w_str IS NOT INITIAL.
856 CONCATENATE w_str ‘ and putda = putdahigh‘ INTO w_str.
857 ELSE.
858 w_str = ‘putda = putdahigh‘.
859 ENDIF.
860 ENDIF.
861 IF zc0000sdt0020-putda IS NOT INITIAL AND putdahigh IS NOT INITIAL.
862 IF w_str IS NOT INITIAL.
863 CONCATENATE w_str ‘ and putda <= putdahigh and putda >= ZC0000SDT0020-putda‘ INTO w_str.
864 ELSE.
865 w_str = ‘putda <= putdahigh and putda >= ZC0000SDT0020-putda‘.
866 ENDIF.
867
868 ENDIF.
869 * **************** putti**************************************
870 IF zc0000sdt0020-putti IS NOT INITIAL AND puttihigh IS INITIAL.
871 IF w_str IS NOT INITIAL.
872 CONCATENATE w_str ‘ and putti = ZC0000SDT0020-putti‘ INTO w_str.
873 ELSE.
874 w_str = ‘putti = ZC0000SDT0020-putti‘.
875 ENDIF.
876 ENDIF.
877 IF zc0000sdt0020-putti IS INITIAL AND puttihigh IS NOT INITIAL.
878 IF w_str IS NOT INITIAL.
879 CONCATENATE w_str ‘ and putti = puttihigh‘ INTO w_str.
880 ELSE.
881 w_str = ‘putti = puttihigh‘.
882 ENDIF.
883 ENDIF.
884 IF zc0000sdt0020-putti IS NOT INITIAL AND puttihigh IS NOT INITIAL.
885 IF w_str IS NOT INITIAL.
886 CONCATENATE w_str ‘ and putti <= puttihigh and putti >= ZC0000SDT0020-putti‘ INTO w_str.
887 ELSE.
888 w_str = ‘putti <= puttihigh and putti >= ZC0000SDT0020-putti‘.
889 ENDIF.
890
891 ENDIF.
892 * **************** VBELN**************************************
893 IF zc0000sdt0020-vbeln IS NOT INITIAL AND vbelnhigh IS INITIAL.
894 IF w_str IS NOT INITIAL.
895 CONCATENATE w_str ‘ and VBELN = ZC0000SDT0020-VBELN‘ INTO w_str.
896 ELSE.
897 w_str = ‘VBELN = ZC0000SDT0020-VBELN‘.
898 ENDIF.
899 ENDIF.
900 IF zc0000sdt0020-vbeln IS INITIAL AND vbelnhigh IS NOT INITIAL.
901 IF w_str IS NOT INITIAL.
902 CONCATENATE w_str ‘ and VBELN = VBELNHIGH‘ INTO w_str.
903 ELSE.
904 w_str = ‘VBELN = VBELNHIGH‘.
905 ENDIF.
906 ENDIF.
907 IF zc0000sdt0020-vbeln IS NOT INITIAL AND vbelnhigh IS NOT INITIAL.
908 IF w_str IS NOT INITIAL.
909 CONCATENATE w_str ‘ and VBELN <= VBELNHIGH and VBELN >= ZC0000SDT0020-VBELN‘ INTO w_str.
910 ELSE.
911 w_str = ‘VBELN <= VBELNHIGH and VBELN >= ZC0000SDT0020-VBELN‘.
912 ENDIF.
913
914 ENDIF.
915 * **************** XBLNR**************************************
916 IF zc0000sdt0020-xblnr IS NOT INITIAL AND xblnrhigh IS INITIAL.
917 IF w_str IS NOT INITIAL.
918 CONCATENATE w_str ‘ and XBLNR = ZC0000SDT0020-XBLNR‘ INTO w_str.
919 ELSE.
920 w_str = ‘XBLNR = ZC0000SDT0020-XBLNR‘.
921 ENDIF.
922 ENDIF.
923 IF zc0000sdt0020-xblnr IS INITIAL AND xblnrhigh IS NOT INITIAL.
924 IF w_str IS NOT INITIAL.
925 CONCATENATE w_str ‘ and XBLNR = XBLNRHIGH‘ INTO w_str.
926 ELSE.
927 w_str = ‘XBLNR = XBLNRHIGH‘.
928 ENDIF.
929 ENDIF.
930 IF zc0000sdt0020-xblnr IS NOT INITIAL AND xblnrhigh IS NOT INITIAL.
931 IF w_str IS NOT INITIAL.
932 CONCATENATE w_str ‘ and XBLNR <= XBLNRHIGH and XBLNR >= ZC0000SDT0020-XBLNR‘ INTO w_str.
933 ELSE.
934 w_str = ‘XBLNR <= XBLNRHIGH and XBLNR >= ZC0000SDT0020-XBLNR‘.
935 ENDIF.
936
937 ENDIF.
938 * **************** ERRIN**************************************
939 IF zc0000sdt0020-errin IS NOT INITIAL.
940 IF w_str IS NOT INITIAL.
941 CONCATENATE w_str ‘ and ERRIN LIKE ‘‘‘ zc0000sdt0020-errin ‘%‘‘‘ INTO w_str.
942 ELSE.
943 CONCATENATE ‘ERRIN LIKE ‘‘‘ zc0000sdt0020-errin ‘%‘‘‘ INTO w_str.
944 ENDIF.
945 ENDIF.
946 SELECT zwrit
947 filen
948 putda
949 putti
950 vbeln
951 xblnr
952 errin
953 INTO CORRESPONDING FIELDS OF TABLE it_errlog
954 FROM zc0000sdt0020
955 WHERE (w_str).
956 CLEAR:w_str.
957 ENDFORM. " frm_data_select
958 *&---------------------------------------------------------------------*
959 *& Form frm_vbrk_xblnr
960 *&---------------------------------------------------------------------*
961 * text
962 *----------------------------------------------------------------------*
963 * -->pf_xblnr text
964 * -->pf_vbeln text
965 *----------------------------------------------------------------------*
966 FORM frm_vbrk_xblnr USING pf_xblnr
967 pf_vbeln.
968
969 CALL FUNCTION ‘UPDATE_XBLNR_IN_VBRK‘
970 EXPORTING
971 i_vbeln = pf_vbeln
972 i_xblnr = pf_xblnr
973 * I_XBLNR_CHECK =
974 * IMPORTING
975 * E_XBLNR =
976 EXCEPTIONS
977 document_blocked = 1
978 update_no_success = 2
979 OTHERS = 3
980 .
981 IF sy-subrc <> 0.
982 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
983 INTO w_msg_txt
984 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
985 ENDIF.
986
987 ENDFORM. " FRM_VBRK_BDC
988 *&---------------------------------------------------------------------*
989 *& Form FRM_FILE_PROCESS_LOCAL
990 *&---------------------------------------------------------------------*
991 * text
992 *----------------------------------------------------------------------*
993 * --> p1 text
994 * <-- p2 text
995 *----------------------------------------------------------------------*
996 FORM frm_file_process_local.
997 DATA: ls_row TYPE kcdu_srec,
998 lw_zwrit TYPE i.
999
1000 PERFORM file_format_check.
1001 PERFORM upload_csv.
1002
1003 * 文件数据传送接口表
1004 DO.
1005 w_row_num = sy-index.
1006 CLEAR ls_row.
1007 " w_step_ok = ‘X‘.
1008 CALL FUNCTION ‘FILE_NEXT_RECORD‘
1009 IMPORTING
1010 next_record = ls_row
1011 EXCEPTIONS
1012 no_record = 1.
1013 IF sy-subrc <> 0 OR ls_row IS INITIAL.
1014 IF w_row_num = 1.
1015 PERFORM frm_get_errno CHANGING lw_zwrit.
1016 iw_err-zwrit = lw_zwrit.
1017 iw_err-filen = w_lfile.
1018 iw_err-errin = ‘FILE NO DATA‘(002).
1019 iw_err-putda = w_date.
1020 iw_err-putti = w_time.
1021 INSERT zc0000sdt0020 FROM iw_err.
1022 CLEAR:iw_err.
1023 w_ret = ‘X‘.
1024 ENDIF.
1025 EXIT.
1026 ENDIF.
1027
1028 * 第一行不是标题
1029 * IF lw_loopc = 1.
1030 * CONTINUE.
1031 * ENDIF.
1032 * 拆分数据并加入接口表
1033 * 0090036259 LR 0000300713 20140525 123456 3000
1034 * vbeln fkart 客户代码 金税号
1035 CHECK w_ret IS INITIAL.
1036 PERFORM frm_separate_text USING ls_row
1037 CHANGING w_ret.
1038 CHECK w_ret IS INITIAL.
1039 PERFORM frm_writeback CHANGING w_ret.
1040
1041 ENDDO.
1042
1043 ENDFORM. " frm_file_process_local
1044 *&---------------------------------------------------------------------*
1045 *& Form form_get_file_path_upload
1046 *&---------------------------------------------------------------------*
1047 * text
1048 *----------------------------------------------------------------------*
1049 * --> p1 text
1050 * <-- p2 text
1051 *----------------------------------------------------------------------*
1052 FORM form_get_file_path_upload .
1053 DATA:
1054 ld_rc TYPE i,
1055 lw_file TYPE string,
1056 lt_file TYPE filetable.
1057
1058 CALL FUNCTION ‘GET_DYNP_VALUE‘
1059 EXPORTING
1060 i_field = ‘P_FLPATH‘
1061 i_repid = sy-repid
1062 i_dynnr = ‘1000‘
1063 CHANGING
1064 o_value = p_flpath.
1065
1066 lw_file = p_flpath.
1067
1068 CALL FUNCTION ‘CH_SPLIT_FILENAME‘
1069 EXPORTING
1070 complete_filename = lw_file
1071 IMPORTING
1072 path = w_file_path
1073 EXCEPTIONS
1074 invalid_drive = 1
1075 invalid_path = 2
1076 OTHERS = 3.
1077
1078 CALL METHOD cl_gui_frontend_services=>file_open_dialog
1079 EXPORTING
1080 * window_title =
1081 default_extension = ‘*.TXT‘
1082 default_filename = lw_file
1083 file_filter = ‘*.TXT‘
1084 * with_encoding =
1085 initial_directory = w_file_path
1086 * multiselection =
1087 CHANGING
1088 file_table = lt_file
1089 rc = ld_rc
1090 * user_action =
1091 * file_encoding =
1092 EXCEPTIONS
1093 file_open_dialog_failed = 1
1094 cntl_error = 2
1095 error_no_gui = 3
1096 not_supported_by_gui = 4
1097 OTHERS = 5.
1098 IF sy-subrc <> 0.
1099 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
1100 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
1101 ELSE.
1102 READ TABLE lt_file INTO lw_file INDEX 1.
1103 p_flpath = lw_file.
1104 ENDIF.
1105
1106 ENDFORM. " form_get_file_path_upload
1107
1108 *&---------------------------------------------------------------------*
1109 *& Form file_format_check
1110 *&---------------------------------------------------------------------*
1111 * text
1112 *----------------------------------------------------------------------*
1113 * --> p1 text
1114 * <-- p2 text
1115 *----------------------------------------------------------------------*
1116 FORM file_format_check .
1117 DATA:ld_ext TYPE char10,
1118 lw_file TYPE string,
1119 lw_name TYPE string.
1120 lw_file = p_flpath.
1121 CALL FUNCTION ‘CH_SPLIT_FILENAME‘
1122 EXPORTING
1123 complete_filename = lw_file
1124 IMPORTING
1125 extension = ld_ext
1126 name = lw_name
1127 name_with_ext = w_lfile
1128 EXCEPTIONS
1129 invalid_drive = 1
1130 invalid_path = 2
1131 OTHERS = 3.
1132 IF sy-subrc <> 0.
1133 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
1134 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO iw_errlog-str.
1135 APPEND iw_errlog TO it_errlog2.
1136 w_ret = ‘X‘.
1137 ENDIF.
1138
1139 IF sy-subrc <> 0.
1140 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
1141 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
1142 ELSE.
1143 CALL FUNCTION ‘AIPC_CONVERT_TO_UPPERCASE‘
1144 EXPORTING
1145 i_input = ld_ext
1146 i_langu = sy-langu
1147 IMPORTING
1148 e_output = ld_ext.
1149 ENDIF.
1150 ENDFORM. " file_format_check
1151 *&---------------------------------------------------------------------*
1152 *& Form upload_csv
1153 *&---------------------------------------------------------------------*
1154 * text
1155 *----------------------------------------------------------------------*
1156 * --> p1 text
1157 * <-- p2 text
1158 *----------------------------------------------------------------------*
1159 FORM upload_csv .
1160 DATA:ld_file TYPE localfile.
1161
1162 ld_file = p_flpath.
1163
1164 CALL FUNCTION ‘FILE_OPEN‘
1165 EXPORTING
1166 filnm = ld_file
1167 upl = ‘X‘
1168 filfmt = ‘T‘
1169 EXCEPTIONS
1170 logname_not_found = 1
1171 file_not_opened = 2
1172 OTHERS = 3.
1173 IF sy-subrc <> 0.
1174 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
1175 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO iw_errlog-str.
1176 APPEND iw_errlog TO it_errlog2.
1177 w_ret = ‘X‘.
1178 ENDIF.
1179 ENDFORM. " upload_csv
1180 *&---------------------------------------------------------------------*
1181 *& Form FRM_BSEG_UPDATE
1182 *&---------------------------------------------------------------------*
1183 * text
1184 *----------------------------------------------------------------------*
1185 * -->pf_bukrs text
1186 * -->pf_belnr text
1187 * -->pf_gjahr text
1188 * -->pf_buzei text
1189 * -->pf_bschl text
1190 * -->pf_bktxt text
1191 *----------------------------------------------------------------------*
1192 FORM frm_bseg_update USING pf_bukrs
1193 pf_belnr
1194 pf_gjahr
1195 pf_buzei
1196 pf_bschl
1197 pf_bktxt. "Linda 20141117
1198 DATA:iw_buztab TYPE tpit_buztab,
1199 iw_fldtab TYPE tpit_fname.
1200
1201 * 所改字段之值
1202 * iw_bseg-sgtxt = pf_sgtxt. "Linda 20141117 edi
1203 iw_bseg-sgtxt = pf_bktxt.
1204
1205 iw_buztab-bukrs = pf_bukrs.
1206 iw_buztab-belnr = pf_belnr.
1207 iw_buztab-gjahr = pf_gjahr.
1208 iw_buztab-buzei = pf_buzei.
1209 iw_buztab-bschl = pf_bschl. "posting key
1210 * it_buztab-koart = ‘S‘. "leixing
1211 APPEND iw_buztab TO it_buztab.
1212
1213 iw_fldtab-fname = ‘SGTXT‘.
1214 iw_fldtab-aenkz = ‘X‘.
1215 APPEND iw_fldtab TO it_fldtab.
1216
1217 * copy from FI_ITEMS_MASS_CHANGE , change defult module from asynchronous to synchronous
1218 CALL FUNCTION ‘Z_FI_ITEMS_MASS_CHANGE‘
1219 EXPORTING
1220 s_bseg = iw_bseg
1221 i_bktxt = pf_bktxt
1222 IMPORTING
1223 errtab = it_errtab
1224 TABLES
1225 it_buztab = it_buztab
1226 it_fldtab = it_fldtab
1227 EXCEPTIONS
1228 bdc_errors = 1
1229 OTHERS = 2.
1230 IF sy-subrc = 0.
1231 COMMIT WORK AND WAIT.
1232 ELSE.
1233 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
1234 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO w_msg_txt.
1235 ENDIF.
1236 CLEAR:it_errtab,it_errtab[],it_buztab,it_buztab[],it_fldtab,it_fldtab[],iw_bseg.
1237
1238 ENDFORM. " FRM_BSEG_UPDATE
1239 *&---------------------------------------------------------------------*
1240 *& Form FRM_BSEG_SGTXT
1241 *&---------------------------------------------------------------------*
1242 * text
1243 *----------------------------------------------------------------------*
1244 * --> pf_ins text
1245 *----------------------------------------------------------------------*
1246 FORM frm_bseg_sgtxt USING pf_ins LIKE iw_ins.
1247 DATA:lw_bseg TYPE bseg.
1248 LOOP AT it_bseg INTO lw_bseg.
1249
1250 PERFORM frm_bseg_update USING lw_bseg-bukrs
1251 lw_bseg-belnr
1252 lw_bseg-gjahr
1253 lw_bseg-buzei
1254 lw_bseg-bschl
1255 pf_ins-bktxt.
1256 IF w_msg_txt IS NOT INITIAL.
1257 EXIT.
1258 ENDIF.
1259 ENDLOOP.
1260 ENDFORM. " FRM_BSEG_SGTXT
时间： 2024-10-22 01:01:44