SAP 金税接口代码 供参考

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

REPORT  zc0000sdr0017 NO STANDARD PAGE HEADING
LINE-COUNT 58
LINE-SIZE 170.
TYPE-POOLS: icon,slis,kcdu,tpit.
TABLES: sscrfields,
zc0000sdt0020.
*----------------------------------------------------------------------*
* type define
*----------------------------------------------------------------------*
TYPES: ty_dir_list TYPE STANDARD TABLE OF salfldir,
BEGIN OF ty_dir,
name    TYPE pfeflname,
size TYPE pfeflsize,
name2 TYPE pfeflname,
END OF ty_dir,
BEGIN OF ty_tabl,
line(200),
END OF ty_tabl,
BEGIN OF ty_vbeln,
vbeln TYPE vbrk-vbeln,
fkart TYPE vbrk-fkart,
kunrg TYPE vbrk-kunrg,
bukrs TYPE vbrk-bukrs,
fkdat TYPE vbrk-fkdat,
xblnr TYPE xblnr,
gjahr TYPE gjahr,
bktxt TYPE bktxt, "linda 20140918
zline TYPE i,  "bseg table lines  "Linda 20141023
END OF ty_vbeln,
BEGIN OF ty_vbrk,
vbeln TYPE vbrk-vbeln,
bukrs TYPE vbrk-bukrs,
gjahr TYPE vbrk-gjahr,
xblnr TYPE vbrk-xblnr,
fkdat TYPE vbrk-fkdat,
END OF ty_vbrk,
* add local file read  begin
BEGIN OF ty_row,
field TYPE char40,
END OF ty_row,
* add local file read  end
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_file        TYPE ty_dir_list,
it_file2       TYPE STANDARD TABLE OF ty_dir,
it_errtab      TYPE tpit_t_errdoc,
it_buztab      TYPE TABLE OF tpit_buztab,
it_fldtab         TYPE tpit_t_fname,
it_tabl        TYPE STANDARD TABLE OF ty_tabl WITH HEADER LINE,
it_errlog      TYPE STANDARD TABLE OF zc0000sdt0020,
it_errlog2     TYPE STANDARD TABLE OF ty_errlog,  "Linda 20141120 add
it_fieldcat    TYPE slis_t_fieldcat_alv,
it_bseg        TYPE STANDARD TABLE OF bseg." Linda 20141024 add
*&---------------------------------------------------------------------*
*  Workarea define
*&---------------------------------------------------------------------*
DATA: iw_file      TYPE salfldir,
iw_file2     TYPE ty_dir,
iw_ins       TYPE ty_vbeln,
iw_vbrk      TYPE ty_vbrk,
iw_err       TYPE zc0000sdt0020,
iw_errlog    TYPE ty_errlog,  "Linda 20141120 add
iw_bseg      TYPE bseg.
*----------------------------------------------------------------------*
*   Global Variables
*----------------------------------------------------------------------*
DATA :w_ret           TYPE char1,
w_cmd(100)      TYPE c,
w_date          TYPE sy-datum,
w_time          TYPE char6,
w_read_file     TYPE salfile-longname,
functxt         TYPE smp_dyntxt,
ok_code         TYPE sy-ucomm,
w_repid         TYPE sy-repid,
w_str(1000)     TYPE c,
putdahigh       TYPE zc0000sdt0020-putda,
puttihigh       TYPE zc0000sdt0020-putti,
vbelnhigh       TYPE zc0000sdt0020-vbeln,
xblnrhigh       TYPE zc0000sdt0020-xblnr,
w_file_path     TYPE string,
w_lfile         TYPE string, "file name
w_row_num       TYPE char4,
w_msg_txt       TYPE string.
*----------------------------------------------------------------------*
*  Constants define
*----------------------------------------------------------------------*
CONSTANTS: cos_star2(3)       TYPE c VALUE '*.*',
cos_2(2)           TYPE c VALUE '2',
cos_1(1)           TYPE c VALUE '1',
cos_numc(4)        TYPE c VALUE 'NUMC'.

SELECTION-SCREEN: FUNCTION KEY 1 .
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER p_check2 TYPE c RADIOBUTTON GROUP rads DEFAULT 'X'.
SELECTION-SCREEN COMMENT 4(20) text-c02 FOR FIELD p_check2."导出到服务器
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_fpath(1024) TYPE c DEFAULT 'g:\r3ftp\formware\writeback\nonprocess\',"need edit  D:\usr\sap\put\Inbound\Nonprocess\
p_bpath(1024) TYPE c DEFAULT 'g:\r3ftp\formware\writeback\bak\'." D:\usr\sap\put\Inbound\Backup\
SELECTION-SCREEN END OF BLOCK b1.
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.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t01.
PARAMETERS: p_flpath(1024) TYPE c DEFAULT ''."need edit  D:\usr\sap\put\Inbound\Nonprocess\
*            p_blpath(1024) TYPE c DEFAULT 'D:\Backup\'." D:\usr\sap\put\Inbound\Backup\
SELECTION-SCREEN END OF BLOCK b2.
*----------------------------------------------------------------------*
* INITIALIZATION.
*----------------------------------------------------------------------*
INITIALIZATION.
functxt-icon_id   = icon_biw_info_catalog.
functxt-icon_text = 'ERROR LOG'.
sscrfields-functxt_01 = functxt.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN ON VALUE-REQUEST
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flpath.
PERFORM form_get_file_path_upload.
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
w_date = sy-datum.
w_time = sy-uzeit.
*   file process
IF p_check2 IS NOT INITIAL.
PERFORM frm_file_process.
ELSE.
* local
PERFORM frm_file_process_local.
ENDIF.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
IF sy-ucomm = 'ONLI'.
IF p_flpath IS INITIAL AND p_check1 = 'X'.
MESSAGE e001(00) WITH 'local path can not be init'(001).
SET CURSOR FIELD 'P_FLPATH'.
ENDIF.
ENDIF.
CASE sscrfields-ucomm.
WHEN 'FC01'.
CALL SCREEN 9000.
WHEN OTHERS.
...
ENDCASE.
*----------------------------------------------------------------------*
* END-OF-SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
IF w_ret = 'X'.
IF it_errlog IS INITIAL.
WRITE: /1  'Write back fail,please see error log.'(014).
ELSE.
LOOP AT it_errlog INTO iw_errlog."
WRITE: /1  iw_errlog-str.
ENDLOOP.
ENDIF.
ELSE.
WRITE: /1  'Write back success'(012).
ENDIF.
CLEAR:it_errlog,iw_errlog.
*----------------------------------------------------------------------*
*  子程序名称 ：文件处理
*  子程序名   ：frm_file_process
*  概要       ：文件处理
*　参数       ：无
*  返回值     ：无
*----------------------------------------------------------------------*
FORM frm_file_process.
DATA: lw_path TYPE salfile-longname,
w_cmd1   TYPE string.
*   Nonprocess路径名组成
CLEAR lw_path.
lw_path = p_fpath.
*   取得目录中的内容
PERFORM frm_read_directory TABLES it_file
USING  lw_path
CHANGING w_ret.
IF w_ret = space.
*   把文件夹Nonprocess下的文件复制到文件夹Backup下

**{ Insert started by ZhouTing on 25-Jan-2015 - CR0010

** begin of comment by zhou ting
** to use open dataset instead
*
**    这是在Linux系统下用的
**    CONCATENATE p_fpath cos_nonprocess cos_star2            "#EC NOTEXT
**                INTO w_cmd1.
**    这是在windows系统下用的
*    CONCATENATE p_fpath cos_star2                           "#EC NOTEXT
*              INTO w_cmd1.
*
**    这是在Linux系统下用的  "need be edited
**    CONCATENATE 'cp' w_cmd1 p_bpath INTO w_cmd SEPARATED BY space.
**    这是在windows系统下用的
*    CONCATENATE 'copy' w_cmd1 p_bpath INTO w_cmd SEPARATED BY space.
***{ Insert started by Linda on 06-Jan-2015 - CR0010
*    TRY.
***{ Insert ended by Linda on 06-Jan-2015 - CR0010
*    CALL 'SYSTEM' ID 'COMMAND' FIELD w_cmd
*                  ID 'TAB' FIELD it_tabl-*sys*.
*
*    IF sy-subrc <> 0.
*      CONCATENATE 'Move file fail'(013) p_bpath INTO iw_errlog-str.
*      APPEND iw_errlog TO it_errlog2.
*      w_ret = 'X'.
*    ENDIF.
***{ Insert started by Linda on 06-Jan-2015 - CR0010
*         CATCH cx_root.
*             CONCATENATE 'Move file fail'(013) p_bpath INTO iw_errlog-str.
*      APPEND iw_errlog TO it_errlog2.
*      w_ret = 'X'.
*     ENDTRY.
***{ Insert ended by Linda on 06-Jan-2015 - CR0010
** end of comment.

PERFORM frm_copy_file USING p_fpath p_bpath it_file
CHANGING w_ret.
IF w_ret <> 0.
CONCATENATE 'Move file fail'(013) p_bpath INTO iw_errlog-str.
APPEND iw_errlog TO it_errlog2.
w_ret = 'X'.
ENDIF.

**{ Insert ended by ZhouTing on 25-Jan-2015 - CR0010

*   文件数据传送接口表

PERFORM frm_transfer_data USING lw_path
CHANGING w_ret.
ENDIF.

ENDFORM.                    " FRM_file_process
*----------------------------------------------------------------------*
*  子程序名称 ：取得目录中的内容
*  子程序名   ：frm_read_directory
*  概要       ：取得目录中的内容
*　参数       ：fit_dir_bukrs type ty_dir_list        取得的目录列表
*             ：f_dir_path type salfile-longname      目录路径
*  返回值     ：f_ret type c  正常取得：space  未取得：'1' 异常：'2'
*----------------------------------------------------------------------*
FORM frm_read_directory TABLES fit_dir TYPE ty_dir_list
USING f_dir_path TYPE salfile-longname
CHANGING f_ret TYPE c.
DATA: lw_lines TYPE i.

CLEAR f_ret.
REFRESH fit_dir.
CALL FUNCTION 'RZL_READ_DIR_LOCAL'
EXPORTING
name           = f_dir_path
TABLES
file_tbl       = fit_dir
EXCEPTIONS
argument_error = 1
not_found      = 2
OTHERS         = 3.

IF sy-subrc <> 0.
f_ret = cos_2.
RETURN.
ENDIF.

lw_lines = LINES( fit_dir ).
IF lw_lines < 3.
f_ret = cos_1.
ENDIF.
ENDFORM.                    " frm_read_directory
*----------------------------------------------------------------------*
*  子程序名称 ：数据传输处理
*  子程序名   ：frm_copy_file
*  概要       ：把需处理的文件拷贝到bak目录下
*　参数       ：i_frompath    目录路径
*               i_topath      目录路径
*  返回值     ：o_ret 正常：space  异常：'4'
*----------------------------------------------------------------------*
FORM frm_copy_file USING i_frompath
i_topath
i_filelist TYPE ty_dir_list
CHANGING o_ret.

DATA: from_file TYPE string,
to_file   TYPE string,
lt_file_content TYPE TABLE OF string,
lv_text     TYPE string,
ls_filelist TYPE salfldir.

LOOP AT i_filelist FROM 3 INTO ls_filelist.

REFRESH lt_file_content.

"源文件路径+文件名
CONCATENATE i_frompath ls_filelist-name INTO from_file.
"目标文件路径+文件名
CONCATENATE i_topath   ls_filelist-name INTO to_file.

"把源文件内容保存进内表
OPEN DATASET from_file FOR INPUT IN TEXT MODE
ENCODING NON-UNICODE
IGNORING CONVERSION ERRORS.
IF sy-subrc NE 0.
o_ret = 4.
EXIT.
ENDIF.
DO.
READ DATASET from_file INTO lv_text.
IF sy-subrc NE 0.
EXIT.
ENDIF.
APPEND lv_text TO lt_file_content.
ENDDO.

CLOSE DATASET from_file.

"把源文件内容从系统内表中写入目标文件中
OPEN DATASET to_file FOR OUTPUT IN TEXT MODE
ENCODING NON-UNICODE
IGNORING CONVERSION ERRORS.

IF sy-subrc NE 0.
o_ret = 4.
EXIT.
ENDIF.
LOOP AT lt_file_content INTO lv_text.
TRANSFER lv_text TO to_file.
ENDLOOP.
CLOSE DATASET to_file.

ENDLOOP.

ENDFORM.                    "frm_copy_file
*----------------------------------------------------------------------*
*  子程序名称 ：数据传输处理
*  子程序名   ：frm_transfer_data
*  概要       ：文件数据传送接口表
*　参数       ：f_path type salfile-longname    目录路径
*  返回值     ：无
*----------------------------------------------------------------------*
FORM frm_transfer_data USING f_path TYPE salfile-longname
CHANGING lw_ret.
DATA: lw_loopc       TYPE sy-index,
lw_text(2048)  TYPE c,
*        lw_ret(1)      TYPE c,
lw_zwrit       TYPE i,
lw_lines       TYPE i,
lw_len         TYPE i.

*  处理文件名排序的问题
SORT it_file BY name DESCENDING.
lw_lines = LINES( it_file ).
lw_lines = lw_lines - 1.
*  删除无用的2行
DELETE it_file FROM lw_lines.
*  从it_file 取数添加到it_file2

LOOP AT it_file INTO iw_file.
MOVE-CORRESPONDING iw_file TO iw_file2.

lw_len = STRLEN( iw_file-name ) - 18.

SHIFT iw_file-name BY lw_len PLACES LEFT.
iw_file2-name2 = iw_file-name+0(14).
APPEND iw_file2 TO it_file2.
CLEAR:lw_len,iw_file2.
ENDLOOP.

CLEAR iw_file.
*  按文件生成时间排序
SORT it_file2 BY name2.
LOOP AT it_file2 INTO iw_file2.
*   文件路径组
CLEAR w_read_file.
CONCATENATE f_path iw_file2-name INTO w_read_file.
*   打开文件
OPEN DATASET w_read_file FOR INPUT
IN TEXT MODE ENCODING NON-UNICODE.
IF sy-subrc <> 0.
EXIT.
ENDIF.
DO.
lw_loopc = sy-index.
TRY.
CLEAR lw_text.
READ DATASET w_read_file INTO lw_text.
CATCH cx_sy_conversion_codepage.
CLOSE DATASET: w_read_file.
EXIT.
ENDTRY.
*      空文件的情况下
IF sy-subrc <> 0 AND lw_loopc = 1."lw_loopc = 2 带标题的文件
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'FILE NO DATA'(002).
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err.
lw_ret = 'X'.
" EXIT.
ELSEIF sy-subrc <> 0.
**{ Insert started by ZhouTing on 30-Jan-2015 - CR0010
"lw_ret = 'X'.
**{ Insert ended by ZhouTing on 30-Jan-2015 - CR0010
EXIT.
ENDIF.
*     第一行不是标题
*      IF lw_loopc = 1.
*        CONTINUE.
*      ENDIF.
*     拆分数据并加入接口表
*      0090036259 LR  0000300713  20140525  123456  3000
*  vbeln fkart 客户代码   金税号
CHECK lw_ret IS INITIAL.
PERFORM frm_separate_text USING lw_text
CHANGING lw_ret.
CHECK lw_ret IS INITIAL.
PERFORM frm_writeback CHANGING lw_ret.
ENDDO.

**{ Insert started by ZhouTing on 27-Jan-2015 - CR0010
CLOSE DATASET w_read_file.
**{ Insert ended by ZhouTing on 27-Jan-2015 - CR0010

DELETE DATASET w_read_file.

ENDLOOP.
ENDFORM.                    " frm_transfer_data
*----------------------------------------------------------------------*
*  子程序名称 ：拆分数据并加入接口表
*  子程序名   ：frm_separate_text
*  概要       ：拆分数据并加入接口表
*　参数       ：f_text type c           要拆分的数据
*  返回值     ：无
*----------------------------------------------------------------------*
FORM frm_separate_text USING f_text TYPE c
CHANGING f_ret TYPE c.
DATA: lw_value(100) TYPE c,
lw_val(1024)  TYPE c,
lw_ret        TYPE char1,
lw_zwrit      TYPE i.
CLEAR f_ret.
lw_val = f_text.

*  Sys_Inv_No
SPLIT lw_val AT cl_abap_char_utilities=>horizontal_tab
INTO lw_value lw_val.
IF lw_value = space.
*    检查 发票号是否为空
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'INVOICENO IS EMPTY'(003).
iw_err-vbeln = lw_value.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err.
f_ret = 'X'.
ELSE.
* Sys_Inv_No检查
PERFORM frm_numeric_check USING lw_value
CHANGING lw_ret.
IF lw_ret = 'X'.
*    检查 发票是否为数字
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'INVOICENO IS NOT NUMBER'(004).
iw_err-vbeln = lw_value.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err.
f_ret = 'X'.
ELSE.
*    检查 发票存在性
PERFORM frm_check_inv USING lw_value
CHANGING lw_ret.
IF lw_ret  = 'X'.
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'INVOICENO IS NOT EXIST'(005).
iw_err-vbeln = lw_value.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err.
f_ret = 'X'.
ELSEIF lw_val = space."  金税号 为空检查
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'JINSHUHAO IS EMPTY'(006).
iw_err-vbeln = lw_value.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err.
f_ret = 'X'.
ELSE.
iw_ins-vbeln = lw_value. "保存 数据
* fkart
CLEAR lw_value.
SPLIT lw_val AT  cl_abap_char_utilities=>horizontal_tab
INTO lw_value lw_val.
iw_ins-fkart = lw_value. "保存 数据

*kunrg
CLEAR lw_value.
SPLIT lw_val AT  cl_abap_char_utilities=>horizontal_tab
INTO lw_value lw_val.
iw_ins-kunrg = lw_value. "保存 数据
* Year
IF lw_val = space."  年度 为空检查
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'YEAR IS EMPTY'(007).
iw_err-vbeln = lw_value.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err.
f_ret = 'X'.
ELSE.
CLEAR lw_value.
SPLIT lw_val AT  cl_abap_char_utilities=>horizontal_tab
INTO lw_value lw_val.
iw_ins-gjahr = lw_value+0(4). "保存 数据
*linda   20140806
iw_ins-fkdat = lw_value. "保存 数据
ENDIF.
* VAT_Inv_No
CLEAR lw_value.
SPLIT lw_val AT  cl_abap_char_utilities=>horizontal_tab
INTO lw_value lw_val.
iw_ins-xblnr = lw_value. "保存 数据
iw_ins-bktxt = lw_value."Linda 20140918
* bukrs
CLEAR lw_value.
SPLIT lw_val AT  cl_abap_char_utilities=>horizontal_tab
INTO lw_value lw_val.
iw_ins-bukrs = lw_value. "保存 数据
ENDIF.
ENDIF.
ENDIF.
ENDFORM.                    " frm_separate_text
*Sys_Inv_No VAT_Inv_No  VAT Issue_date  Total_Amount
*0090035243 12345654321 2005-08-10  8
*----------------------------------------------------------------------*
*  子程序名称 ：数据类型检查
*  子程序名   ：frm_numeric_check
*  概要       ：数据类型检查
*　参数       ：f_val TYPE c            要检查的数据
*  返回值     ：f_ret TYPE c            正常：space    出错：'X'
*----------------------------------------------------------------------*
FORM frm_numeric_check USING f_val TYPE c
CHANGING f_ret TYPE c.
DATA: lw_type TYPE dd01v-datatype.

CHECK f_val <> space.
CLEAR f_ret.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
string_in = f_val
IMPORTING
htype     = lw_type.
IF lw_type <> cos_numc.
f_ret = 'X'.
ENDIF.
ENDFORM.                    " frm_numeric_check

*&---------------------------------------------------------------------*
*&      Form  frm_get_errno
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_LW_ZWRIT  text
*----------------------------------------------------------------------*
FORM frm_get_errno  CHANGING f_zwrit TYPE i.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr             = '01'      "snro
object                  = 'ZWRITEBACK'   "snro object "be edit
IMPORTING
number                  = f_zwrit   "所得到的号码
EXCEPTIONS
interval_not_found      = 1
number_range_not_intern = 2
object_not_found        = 3
quantity_is_0           = 4
quantity_is_not_1       = 5
interval_overflow       = 6
buffer_overflow         = 7
OTHERS                  = 8.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO iw_errlog-str.
APPEND iw_errlog TO it_errlog2.
ENDIF.

ENDFORM.                    " frm_get_errno
*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_INV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->f_vbeln  text
*      <--f_ret  text
*----------------------------------------------------------------------*
FORM frm_check_inv  USING   f_vbeln
CHANGING f_ret.
DATA:lw_count TYPE i.
SELECT COUNT(*)
INTO lw_count
FROM vbrk                      "(Reference Document Number)
WHERE vbeln = f_vbeln .   "Billing Document
IF sy-subrc = 4.
f_ret = 'X'.
ENDIF.
ENDFORM.                    " FRM_CHECK_INV
*&---------------------------------------------------------------------*
*&      Form  frm_writeback
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->fw_ret  text
*----------------------------------------------------------------------*
FORM frm_writeback CHANGING fw_ret.
DATA:lw_zwrit TYPE i,
lw_count TYPE i,
lw_bktxt TYPE bktxt, "linda 20140916
lw_belnr TYPE bkpf-belnr,
lw_gjahr TYPE char4.
*Select IsExist Invoice
SELECT SINGLE vbeln
bukrs
gjahr
xblnr
fkdat
INTO iw_vbrk
FROM vbrk                      "(Reference Document Number)
WHERE vbeln = iw_ins-vbeln.    "Billing Document
IF iw_vbrk-xblnr <> iw_ins-xblnr.
* 将发票号更新到发票 BKPF-XBLNR（Reference Document Number)
PERFORM frm_vbrk_xblnr USING iw_ins-xblnr
iw_ins-vbeln.
IF w_msg_txt IS NOT INITIAL.
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'UPDATA VBRK FAIL'(008).
iw_err-vbeln = iw_ins-vbeln.
iw_err-xblnr = iw_ins-xblnr.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err,w_msg_txt.
fw_ret = 'X'.
ENDIF.
ENDIF.
CHECK fw_ret IS INITIAL.
SELECT SINGLE belnr bktxt "Linda 20140916 xblnr
INTO (lw_belnr,lw_bktxt) "Linda 20140916lw_xblnr
FROM bkpf
WHERE bukrs = iw_vbrk-bukrs
AND awkey = iw_ins-vbeln    "BKPF-AWKEY(Reference Key)
AND gjahr = iw_vbrk-fkdat+0(4).

IF lw_bktxt <> iw_ins-bktxt.
lw_gjahr = iw_vbrk-fkdat+0(4).
IF lw_belnr IS INITIAL.
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'Invoice Is Empty'(009).
iw_err-vbeln = iw_ins-vbeln.
iw_err-xblnr = iw_ins-xblnr.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err,w_msg_txt.
fw_ret = 'X'.
ELSE.
*    将发票号更新到凭证BKPF中的BKPF-XBLNR(Reference Document Number)
*    update the GTS No.# to BKPF-XBLNR(Reference Document Number)
*    2 reason:1>.要调用的function 用到了bseg这个结构;
*                 Call function "'Z_FI_ITEMS_MASS_CHANGE'" using BSEG as import structure
*           2>使用的频率不高，1周1次，每次XX 条，所以即使写成 select * 也对性能影响不大
*                The call frequence will be weekly, and the volume is limited, thus should the performance impact is restricted.
SELECT *
INTO TABLE it_bseg
FROM bseg
WHERE bukrs = iw_vbrk-bukrs
AND belnr = lw_belnr
AND gjahr = lw_gjahr.

PERFORM frm_bseg_sgtxt USING  iw_ins.
IF w_msg_txt IS NOT INITIAL.
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
IF p_check1 = 'X'.
iw_err-filen = w_lfile.
ELSE.
iw_err-filen = iw_file2-name.
ENDIF.
iw_err-errin = 'BDC update fail'(010).
iw_err-vbeln = iw_ins-vbeln.
iw_err-xblnr = iw_ins-xblnr.
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err,w_msg_txt.
fw_ret = 'X'.
ENDIF.

ENDIF.
ENDIF.
CHECK fw_ret IS INITIAL.
SELECT COUNT(*)
FROM zc0000sdt0020
INTO lw_count
WHERE vbeln = iw_ins-vbeln.
IF lw_count > 1.
DELETE FROM zc0000sdt0020 WHERE vbeln = iw_ins-vbeln.
IF sy-subrc = 0.
COMMIT WORK AND WAIT.
ELSE.
ROLLBACK WORK.
ENDIF.
ENDIF.
CLEAR:it_bseg.
ENDFORM.                    " frm_writeback
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
SET PF-STATUS '800'.
SET TITLEBAR 'ERROR LOG SEARCH'.

ENDMODULE.                 " STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
CASE ok_code.
WHEN 'EXECUTE'.
PERFORM frm_data_select.

IF it_errlog IS INITIAL.
MESSAGE e001(00) WITH 'NO error log data'(011).
LEAVE TO SCREEN 9000.
ENDIF.
*  ALV最后结果输出
PERFORM frm_display_data.
WHEN 'CANCEL'.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000  INPUT
*----------------------------------------------------------------------*
*  子程序名称 ：ALV最后结果输出
*  子程序名   ：frm_display_data
*  概要       ：ALV最后结果输出
*　参数       ：无
*  返回值     ：无
*----------------------------------------------------------------------*
FORM frm_display_data .
w_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = w_repid
i_structure_name   = 'ZC0000SDT0020'
it_fieldcat        = it_fieldcat
TABLES
t_outtab           = it_errlog.
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.                    " frm_display_data
*&---------------------------------------------------------------------*
*&      Form  frm_data_select
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_data_select .
IF zc0000sdt0020-filen IS NOT INITIAL.
CONCATENATE 'FILEN LIKE ''' zc0000sdt0020-filen '%''' INTO w_str.
ENDIF.
**************** putda**************************************
IF zc0000sdt0020-putda IS NOT INITIAL AND putdahigh IS INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and putda = ZC0000SDT0020-putda' INTO w_str.
ELSE.
w_str = 'putda = ZC0000SDT0020-putda'.
ENDIF.
ENDIF.
IF zc0000sdt0020-putda IS INITIAL AND putdahigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and putda = putdahigh' INTO w_str.
ELSE.
w_str = 'putda = putdahigh'.
ENDIF.
ENDIF.
IF zc0000sdt0020-putda IS NOT INITIAL AND putdahigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and putda <= putdahigh and putda >= ZC0000SDT0020-putda' INTO w_str.
ELSE.
w_str = 'putda <= putdahigh and putda >= ZC0000SDT0020-putda'.
ENDIF.

ENDIF.
*  **************** putti**************************************
IF zc0000sdt0020-putti IS NOT INITIAL AND puttihigh IS INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and putti = ZC0000SDT0020-putti' INTO w_str.
ELSE.
w_str = 'putti = ZC0000SDT0020-putti'.
ENDIF.
ENDIF.
IF zc0000sdt0020-putti IS INITIAL AND puttihigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and putti = puttihigh' INTO w_str.
ELSE.
w_str = 'putti = puttihigh'.
ENDIF.
ENDIF.
IF zc0000sdt0020-putti IS NOT INITIAL AND puttihigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and putti <= puttihigh and putti >= ZC0000SDT0020-putti' INTO w_str.
ELSE.
w_str = 'putti <= puttihigh and putti >= ZC0000SDT0020-putti'.
ENDIF.

ENDIF.
*  **************** VBELN**************************************
IF zc0000sdt0020-vbeln IS NOT INITIAL AND vbelnhigh IS INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and VBELN = ZC0000SDT0020-VBELN' INTO w_str.
ELSE.
w_str = 'VBELN = ZC0000SDT0020-VBELN'.
ENDIF.
ENDIF.
IF zc0000sdt0020-vbeln IS INITIAL AND vbelnhigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and VBELN = VBELNHIGH' INTO w_str.
ELSE.
w_str = 'VBELN = VBELNHIGH'.
ENDIF.
ENDIF.
IF zc0000sdt0020-vbeln IS NOT INITIAL AND vbelnhigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and VBELN <= VBELNHIGH and VBELN >= ZC0000SDT0020-VBELN' INTO w_str.
ELSE.
w_str = 'VBELN <= VBELNHIGH and VBELN >= ZC0000SDT0020-VBELN'.
ENDIF.

ENDIF.
*  **************** XBLNR**************************************
IF zc0000sdt0020-xblnr IS NOT INITIAL AND xblnrhigh IS INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and XBLNR = ZC0000SDT0020-XBLNR' INTO w_str.
ELSE.
w_str = 'XBLNR = ZC0000SDT0020-XBLNR'.
ENDIF.
ENDIF.
IF zc0000sdt0020-xblnr IS INITIAL AND xblnrhigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and XBLNR = XBLNRHIGH' INTO w_str.
ELSE.
w_str = 'XBLNR = XBLNRHIGH'.
ENDIF.
ENDIF.
IF zc0000sdt0020-xblnr IS NOT INITIAL AND xblnrhigh IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and XBLNR <= XBLNRHIGH and XBLNR >= ZC0000SDT0020-XBLNR' INTO w_str.
ELSE.
w_str = 'XBLNR <= XBLNRHIGH and XBLNR >= ZC0000SDT0020-XBLNR'.
ENDIF.

ENDIF.
*  **************** ERRIN**************************************
IF zc0000sdt0020-errin IS NOT INITIAL.
IF w_str IS NOT INITIAL.
CONCATENATE w_str ' and ERRIN LIKE ''' zc0000sdt0020-errin '%''' INTO w_str.
ELSE.
CONCATENATE 'ERRIN LIKE ''' zc0000sdt0020-errin '%''' INTO w_str.
ENDIF.
ENDIF.
SELECT zwrit
filen
putda
putti
vbeln
xblnr
errin
INTO CORRESPONDING FIELDS OF TABLE it_errlog
FROM zc0000sdt0020
WHERE (w_str).
CLEAR:w_str.
ENDFORM.                    " frm_data_select
*&---------------------------------------------------------------------*
*&      Form  frm_vbrk_xblnr
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->pf_xblnr  text
*      -->pf_vbeln  text
*----------------------------------------------------------------------*
FORM frm_vbrk_xblnr  USING  pf_xblnr
pf_vbeln.

CALL FUNCTION 'UPDATE_XBLNR_IN_VBRK'
EXPORTING
i_vbeln                 = pf_vbeln
i_xblnr                 = pf_xblnr
*   I_XBLNR_CHECK           =
* IMPORTING
*   E_XBLNR                 =
EXCEPTIONS
document_blocked        = 1
update_no_success       = 2
OTHERS                  = 3
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
INTO w_msg_txt
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDFORM.                    " FRM_VBRK_BDC
*&---------------------------------------------------------------------*
*&      Form  FRM_FILE_PROCESS_LOCAL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_file_process_local.
DATA: ls_row         TYPE kcdu_srec,
lw_zwrit       TYPE i.

PERFORM file_format_check.
PERFORM upload_csv.

*   文件数据传送接口表
DO.
w_row_num = sy-index.
CLEAR ls_row.
"    w_step_ok = 'X'.
CALL FUNCTION 'FILE_NEXT_RECORD'
IMPORTING
next_record = ls_row
EXCEPTIONS
no_record   = 1.
IF sy-subrc <> 0 OR ls_row IS INITIAL.
IF w_row_num = 1.
PERFORM frm_get_errno CHANGING lw_zwrit.
iw_err-zwrit = lw_zwrit.
iw_err-filen = w_lfile.
iw_err-errin = 'FILE NO DATA'(002).
iw_err-putda = w_date.
iw_err-putti = w_time.
INSERT zc0000sdt0020 FROM iw_err.
CLEAR:iw_err.
w_ret = 'X'.
ENDIF.
EXIT.
ENDIF.

*     第一行不是标题
*      IF lw_loopc = 1.
*        CONTINUE.
*      ENDIF.
*     拆分数据并加入接口表
*      0090036259 LR  0000300713  20140525  123456  3000
*  vbeln fkart 客户代码   金税号
CHECK  w_ret IS INITIAL.
PERFORM frm_separate_text USING ls_row
CHANGING w_ret.
CHECK  w_ret IS INITIAL.
PERFORM frm_writeback CHANGING w_ret.

ENDDO.

ENDFORM.                    " frm_file_process_local
*&---------------------------------------------------------------------*
*&      Form  form_get_file_path_upload
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM form_get_file_path_upload .
DATA:
ld_rc    TYPE i,
lw_file  TYPE string,
lt_file  TYPE filetable.

CALL FUNCTION 'GET_DYNP_VALUE'
EXPORTING
i_field = 'P_FLPATH'
i_repid = sy-repid
i_dynnr = '1000'
CHANGING
o_value = p_flpath.

lw_file = p_flpath.

CALL FUNCTION 'CH_SPLIT_FILENAME'
EXPORTING
complete_filename = lw_file
IMPORTING
path              = w_file_path
EXCEPTIONS
invalid_drive     = 1
invalid_path      = 2
OTHERS            = 3.

CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
*      window_title            =
default_extension       = '*.TXT'
default_filename        = lw_file
file_filter             = '*.TXT'
*      with_encoding           =
initial_directory       = w_file_path
*      multiselection          =
CHANGING
file_table              = lt_file
rc                      = ld_rc
*      user_action             =
*      file_encoding           =
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error              = 2
error_no_gui            = 3
not_supported_by_gui    = 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.
ELSE.
READ TABLE lt_file INTO lw_file INDEX 1.
p_flpath = lw_file.
ENDIF.

ENDFORM.                    " form_get_file_path_upload

*&---------------------------------------------------------------------*
*&      Form  file_format_check
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM file_format_check .
DATA:ld_ext   TYPE char10,
lw_file  TYPE string,
lw_name  TYPE string.
lw_file = p_flpath.
CALL FUNCTION 'CH_SPLIT_FILENAME'
EXPORTING
complete_filename = lw_file
IMPORTING
extension         = ld_ext
name              = lw_name
name_with_ext     = w_lfile
EXCEPTIONS
invalid_drive     = 1
invalid_path      = 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 INTO iw_errlog-str.
APPEND iw_errlog TO it_errlog2.
w_ret = 'X'.
ENDIF.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
CALL FUNCTION 'AIPC_CONVERT_TO_UPPERCASE'
EXPORTING
i_input  = ld_ext
i_langu  = sy-langu
IMPORTING
e_output = ld_ext.
ENDIF.
ENDFORM.                    " file_format_check
*&---------------------------------------------------------------------*
*&      Form  upload_csv
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM upload_csv .
DATA:ld_file TYPE localfile.

ld_file = p_flpath.

CALL FUNCTION 'FILE_OPEN'
EXPORTING
filnm             = ld_file
upl               = 'X'
filfmt            = 'T'
EXCEPTIONS
logname_not_found = 1
file_not_opened   = 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 INTO iw_errlog-str.
APPEND iw_errlog TO it_errlog2.
w_ret = 'X'.
ENDIF.
ENDFORM.                    " upload_csv
*&---------------------------------------------------------------------*
*&      Form  FRM_BSEG_UPDATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->pf_bukrs  text
*      -->pf_belnr  text
*      -->pf_gjahr  text
*      -->pf_buzei  text
*      -->pf_bschl  text
*      -->pf_bktxt  text
*----------------------------------------------------------------------*
FORM frm_bseg_update USING pf_bukrs
pf_belnr
pf_gjahr
pf_buzei
pf_bschl
pf_bktxt. "Linda 20141117
DATA:iw_buztab TYPE tpit_buztab,
iw_fldtab TYPE tpit_fname.

*   所改字段之值
*  iw_bseg-sgtxt   = pf_sgtxt. "Linda 20141117 edi
iw_bseg-sgtxt    = pf_bktxt.

iw_buztab-bukrs  = pf_bukrs.
iw_buztab-belnr  = pf_belnr.
iw_buztab-gjahr  = pf_gjahr.
iw_buztab-buzei  = pf_buzei.
iw_buztab-bschl  = pf_bschl. "posting key
*    it_buztab-koart  = 'S'.    "leixing
APPEND iw_buztab TO it_buztab.

iw_fldtab-fname = 'SGTXT'.
iw_fldtab-aenkz  = 'X'.
APPEND iw_fldtab TO it_fldtab.

* copy from FI_ITEMS_MASS_CHANGE , change defult module from asynchronous to synchronous
CALL FUNCTION 'Z_FI_ITEMS_MASS_CHANGE'
EXPORTING
s_bseg     = iw_bseg
i_bktxt    = pf_bktxt
IMPORTING
errtab     = it_errtab
TABLES
it_buztab  = it_buztab
it_fldtab  = it_fldtab
EXCEPTIONS
bdc_errors = 1
OTHERS     = 2.
IF sy-subrc = 0.
COMMIT WORK AND WAIT.
ELSE.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO w_msg_txt.
ENDIF.
CLEAR:it_errtab,it_errtab[],it_buztab,it_buztab[],it_fldtab,it_fldtab[],iw_bseg.

ENDFORM.                    " FRM_BSEG_UPDATE
*&---------------------------------------------------------------------*
*&      Form  FRM_BSEG_SGTXT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  pf_ins        text
*----------------------------------------------------------------------*
FORM frm_bseg_sgtxt USING pf_ins LIKE iw_ins.
DATA:lw_bseg  TYPE bseg.
LOOP AT it_bseg INTO lw_bseg.

PERFORM frm_bseg_update USING lw_bseg-bukrs
lw_bseg-belnr
lw_bseg-gjahr
lw_bseg-buzei
lw_bseg-bschl
pf_ins-bktxt.
IF w_msg_txt IS NOT INITIAL.
EXIT.
ENDIF.
ENDLOOP.
ENDFORM.                    " FRM_BSEG_SGTXT