金税接口Sap下传文档

rfcvg3

摘自BOB，以后备查，有问题别问我！
* Program ID/Name: ZSDE1001              Date written: 20080516
* Author's name:   xh                    Last update:
* Program title:   金税接口Sap下传文档
* Project Name:    JSZY
* Version: 1.0
*----------------------------------------------------------------------*
* Description: (Incl. Related Function Area and System)
*----------------------------------------------------------------------*
* Change History
*----------------------------------------------------------------------*
*     Date   |   Programmer   |   Corr. #   |   Description
* 20080516   |       xh       |             |    New create
*            |                |             |
*            |                |             |
************************************************************************
report    ZSDI002_01 no standard page heading
message-id z001.
************************************************************************
*        TABLES
************************************************************************
tables:vbrk,
vbrp,
kna1,
makt,
knbk,
konv,
t006a,
vbkd,
stxl,
vbak,
VBAP,
adrc,knvv,t001,vbfa,
BSEG ,zfi031,mara,stxh.
************************************************************************
*        INCLUDES
***********************************************************************
include z_alv_define.
************************************************************************
*        PARAMETERS
************************************************************************
data:g_lin like sy-tabix,
p_lin like sy-tabix,
g_num like sy-tabix,
g_bs(1),
g_flag(1),
g_tabix like sy-tabix,
c_tmp(255),
g_text(60),
g_dmbtr(16) type p decimals 2,
g_pr(13),
G_shuilv TYPE P decimals 4,
g_vbeln like vbrk-vbeln,
g_subrc like sy-subrc,
g_zzfsn like zfi031-zzfsn,
g_mod   like sy-tabix,
G_SUM LIKE LIPS-NETWR,
g_netwr like lips-netwr,
g_kzwi5 like vbrp-kzwi5,
P_FILE like RLGRAP-FILENAME,
g_file TYPE STRING,
g_name like THEAD-TDNAME,
g_path like RLGRAP-FILENAME,
G_FKART LIKE VBRK-FKART,
G_INTYP(1),
g_answer.
*constants:
constants:C_SEP(2) VALUE '~~',
C_SPLT(1) VALUE ' ',
C_SPLT2(1) VALUE ' '.
************************************************************************
*        INTERNAL TABLES
************************************************************************
data: begin of it_konv occurs 0,
kschl like konv-kschl,
kwert like konv-kwert,
kbetr like konv-kbetr,
end of it_konv.
data:begin of it_vbrk occurs 0 ,
vbeln  like vbrk-vbeln,                              "单据号10
FKART  LIKE VBRK-FKART,
KUNRG  like vbrk-KUNRG,   "售达方
name1  like kna1-name1,   "100
stceg like  kna1-stceg,   "15
STRAS  like kna1-STRAS,
ORT01  like kna1-ORT01,
telf1  like kna1-telf1,
bankn  like knbk-bankn,
banka  like bnka-banka,
bankl  like knbk-bankl,
bkref  like knbk-bkref,
koinh  like knbk-koinh,
zzflag like vbrk-zzflag,
knumv  like vbrk-knumv,
flag   like vbrk-zzflag,
vkorg  like vbrk-vkorg,
spart  like vbrk-spart,
vtweg  like vbrk-vtweg,
SFAKN  like vbrk-sfakn,
FKDAT  LIKE VBRK-FKDAT,
FKDAR  LIKE VBRK-FKDAT,
FKARR  LIKE VBRK-FKART,
INTYP(1),                "发票类型
netwr  like vbrk-netwr,
tax    like vbrk-netwr,
mwsbk  like vbrk-mwsbk,
BSTKD  LIKE VBKD-BSTKD,
zuonr  like vbrk-zuonr,
ZZBNO  LIKE VBRK-ZZBNO,
ZZVER  LIKE VBRK-ZZVER,
check(08),
payer(08),
**************
****B   蓝票
****H   红票
**************
end of it_vbrk.
data:begin of i_vbrk occurs 0 ,
vbeln  like vbrk-vbeln,                              "单据号10
FKART  LIKE VBRK-FKART,
KUNRG  like vbrk-KUNRG,   "售达方
name1  like kna1-name1,   "100
stceg like  kna1-stceg,   "15
STRAS  like kna1-STRAS,
ORT01  like kna1-ORT01,
telf1  like kna1-telf1,
bankn  like knbk-bankn,
koinh  like knbk-koinh,
zzflag like vbrk-zzflag,
knumv  like vbrk-knumv,
flag   like vbrk-zzflag,
zzfsn  like zfi031-zzfsn,
check(08),  "复核人
payer(08),  "收款人
end of i_vbrk.
data :begin of out_vbrk occurs 0,
vbeln(10),
c1(02),
num(04),
c2(02),
name1(100), "购货单位名称
c3(02),
stceg(15),  "购方税号
c4(02),
text1(80),  "购方地址电话
c5(02),
text2(80),  "购方银行帐号
c6(02),
text3(160), "备注?位数
c7(02),
check(08),  "复核人
C8(02),
payer(08),  "收款人
end of out_vbrk.
DATA :BEGIN OF IT_VBRP OCCURS 0,
WERKS LIKE VBRP-WERKS,
matnr like vbrp-matnr,
maktx like makt-maktx,
vrkme LIKE vbap-vrkme ,"计量单位*
mseh3 LIKE t006a-mseht,"计量单位描述？
fkimg type p decimals 6," like vbrp-fkimg, "数量
netpr type p decimals 6, "单价
NETWR LIKE vbrp-netwr, "金额
tax(4) type p decimals 2 ,"税率
MWSBP like vbrp-MWSBP, "税额
kzwi1 like vbrp-kzwi1, "
kzwi5 like vbrp-kzwi5, "折扣金额
zks   like vbrp-MWSBP,
zkl(09) type p decimals 3,
groes like mara-groes,
vbeln like vbrp-vbeln,
posnr like vbrp-posnr,
UEPOS like vbrp-UEPOS,
VGBEL LIKE VBRP-VGBEL,
VGPOS LIKE VBRP-VGPOS,
pr    like vbrp-netwr,  "包装费
bstkd like VBKD-BSTKD,
END OF IT_vbrp.
data:begin of out_vbrp occurs 0,
maktx(60),   "货物名称
c1(02),
vrkme(16),   "计量单位
c2(02),
gui(30),     "规格
c3(02),
fkimg(16),   "数量
c4(02),
netwr(14),   "不含税金额
c5(02),
tax(6),      "税率
c6(02),
text1(04),   "商品税目
c7(02),
text2(16),   "折扣金额
c8(02),
mwsbp(14),   "税额
c9(02),
text3(14),   "折扣税额
c10(02),
text4(06),   "折扣率
c11(02),
netpr(14),   "单价
c12(02),
pr(01),      "单价方式
end of out_vbrp.
data:begin of i_text occurs 0,
text(80),
end of i_text.
data:begin of i_stceg occurs 0,
stceg like  kna1-stceg,
KUNRG like  vbrk-KUNRG,
zzbno like  vbrk-zzbno,
intyp(1),
end of i_stceg.
data:begin of t_text occurs 0,
text(2000),
end of t_text.
data:begin of i_vbeln occurs 0,
vbeln(20),
end of i_vbeln.
data:begin of i_zfi031  occurs 0.
include structure zfi031.
data:end of i_zfi031.
DATA : begin of LT_LINE  occurs 0.
include structure TLINE.
DATA:END OF LT_LINE.
data:begin of i_FKART occurs 0,
intyp(1),
end of i_FKART.
data:begin of i_typ occurs 0,
fkart like vbrk-fkart,
end of i_typ.
data:begin of t_vbeln occurs 0,
vbeln like vbrk-vbeln,
BSTKD like vbkd-bstkd,
end of t_vbeln.
data:er_fieldcatd type slis_t_fieldcat_alv,
er_layoutd   type slis_layout_alv,
er_list_top_of_paged type slis_t_listheader,
er_eventsd   type slis_t_event.
RANGES:R_FKARTS FOR VBRK-FKART,
R_FKARTC FOR VBRK-FKART,
R_FKARTR FOR VBRK-FKART,
R_KVGR1  FOR TVV1-KVGR1,
R_FKART  FOR VBRK-FKART.
* Selection screen
* Selection screen
selection-screen begin of block vbrk with frame title text-001.
select-options: s_vkorg FOR vbrk-vkorg no-display,
s_bukrs for vbrk-bukrs default '8000' NO-EXTENSION NO INTERVALS .
select-options:s_werks  for vbrp-werks ,
s_VBELN  FOR VBRp-VBELN,
s_KUNrg FOR vbrk-KUNrg,
s_FKDAT FOR vbrK-FKDAT default sy-datum,
s_FKART FOR vbrK-FKART no-display,
s_ERNAM for vbrk-ERNAM default sy-uname.
select-options s_posnr  FOR VBRp-posnr no-display.
select-options s_matnr for vbrp-matnr  no-display.
select-options s_matkl  FOR VBRp-matkl no-display.
selection-screen end of block VBRK.
*selection-screen : begin of block b2 with frame title text-002.
*selection-screen begin of line.
*selection-screen position 1.
*selection-screen comment 1(20)   text-003.
*selection-screen position 25.
*parameters: p_v radiobutton group rad1 default 'X'.
*selection-screen end of line.
*selection-screen begin of line.
*selection-screen position 1.
*selection-screen comment 1(20)   text-004.
*selection-screen position 25.
*parameters: p_n radiobutton group rad1 .
*selection-screen end of line.
*selection-screen : end of block b2.
selection-screen : begin of block b3 with frame title text-014.
selection-screen begin of line.
selection-screen position 1.
selection-screen comment 1(20)   text-005.
selection-screen position 25.
parameters: p_ck_1 radiobutton group rad2 default 'X'.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
selection-screen comment 1(20)   text-006.
selection-screen position 25.
parameters: p_ck_2 radiobutton group rad2.
selection-screen end of line.
*selection-screen begin of line.
*selection-screen position 1.
*selection-screen comment 1(20)   text-007.
*selection-screen position 25.
*parameters: p_ck_3 radiobutton group rad2.
*selection-screen end of line.
selection-screen : end of block b3.
initialization.
e_repid = sy-repid.
perform fieldcat_init  using er_fieldcat[].
perform eventtab_build using er_events[].
perform comment_build  using er_list_top_of_page[].
AT SELECTION-SCREEN.
*  PERFORM FRM_SC.
*&-------------------------------------------------------------------*
*& Start-of-selection
*&-------------------------------------------------------------------*
start-of-selection.
*== step two ==
perform fmr_get_data.
describe table it_vbrk lines g_lin.
if g_lin < 1.
message s006.
else.
perform frm_fill_out.
endif.
*---------------------------------------------------------------------*
*       FORM fieldcat_init                                            *
*---------------------------------------------------------------------*
form fieldcat_init using u_er_fieldcat type slis_t_fieldcat_alv.
data: ls_fieldcat type slis_fieldcat_alv,
nn type i.
clear:nn.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'KUNRG'.
ls_fieldcat-tabname ='IT_VBRK'.
ls_fieldcat-seltext_l = '付款方'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 10.
append ls_fieldcat to u_er_fieldcat.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'NAME1'.
ls_fieldcat-tabname ='IT_VBRK'.
ls_fieldcat-seltext_l = '购方名称'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 35.
append ls_fieldcat to u_er_fieldcat.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'FKART'.
ls_fieldcat-tabname ='IT-VBRK'.
ls_fieldcat-seltext_l = '发票类型'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 10.
append ls_fieldcat to u_er_fieldcat.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'VBELN'.
ls_fieldcat-tabname ='IT-VBRK'.
ls_fieldcat-seltext_l = '单据号'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 10.
append ls_fieldcat to u_er_fieldcat.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'FKDAT'.
ls_fieldcat-tabname ='IT-VBRK'.
ls_fieldcat-seltext_l = '日期'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 10.
append ls_fieldcat to u_er_fieldcat.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'NETWR'.
ls_fieldcat-tabname ='IT-VBRK'.
ls_fieldcat-seltext_l = '金额'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 16.
append ls_fieldcat to u_er_fieldcat.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'TAX'.
ls_fieldcat-tabname ='IT-VBRK'.
ls_fieldcat-seltext_l = '税'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 16.
append ls_fieldcat to u_er_fieldcat.
nn = nn + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos  = nn.
ls_fieldcat-fieldname  = 'BSTKD'.
ls_fieldcat-tabname ='IT-VBRK'.
ls_fieldcat-seltext_l = '采购单'.
ls_fieldcat-key         = 'X'.
ls_fieldcat-outputlen = 16.
append ls_fieldcat to u_er_fieldcat.
endform.                               " FIELDCAT_INIT
*---------------------------------------------------------------------*
*       FORM eventtab_build                                           *
*---------------------------------------------------------------------*
form eventtab_build using u_er_events type slis_t_event.
data: ls_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events   = u_er_events.
read table u_er_events with key name = slis_ev_top_of_page
into ls_event.
if sy-subrc = 0.
move er_formname_top_of_page to ls_event-form.
append ls_event to u_er_events.
endif.
read table u_er_events with key name = slis_ev_user_command
into ls_event.
if sy-subrc = 0.
move e_user_command to ls_event-form.
append ls_event to u_er_events.
endif.
read table u_er_events with key name =  slis_ev_pf_status_set
into ls_event.
if sy-subrc = 0.
move e_status to ls_event-form.
append ls_event to u_er_events.
endif.
endform.                               " EVENTTAB_BUILD
*
form comment_build using u_er_list_top_of_page type
slis_t_listheader.
data: ls_line type slis_listheader.
* Listen黚erschrift: Typ H
clear ls_line.
ls_line-typ  = 'H'.
ls_line-info = text-s07.
append ls_line to u_er_list_top_of_page.
* Kopfinfo: Typ S
clear ls_line.
ls_line-typ  = 'S'.
ls_line-key  = text-s08.
append ls_line to u_er_list_top_of_page.
endform.                               " COMMENT_BUILD
*
form sp_group_build using u_er_sp_group type slis_t_sp_group_alv.
data: ls_sp_group type slis_sp_group_alv.
clear  ls_sp_group.
ls_sp_group-sp_group = 'A'.
ls_sp_group-text     = text-s06.
append ls_sp_group to u_er_sp_group.
endform.                               " SP_GROUP_BUILD
*
form layout_build using u_er_layout type slis_layout_alv.
u_er_layout-box_fieldname       = 'FLAG'.  " Checkbox
u_er_layout-get_selinfos        = 'X'.
*  U_ER_LAYOUT-F2CODE              =  'FEHL' .
* u_er_layout-confirmation_prompt = 'X'.     "Sicherheitsabfrage
* u_er_layout-key_hotspot         = 'X'.    "Schl黶sel alsHotspot
* u_er_layout-info_fieldname      = 'COL'.    "Zeilenfarbe
* u_er_layout-get_selinfos      = 'X'.
*  u_er_layout-colwidth_optimize = 'X'.
u_er_layout-detail_popup      = 'X'.
*  u_er_layout-no_keyfix         = 'X'.
*  u_er_layout-numc_sum         = 'X'.
* u_er_layout-box_fieldname     = 'FLAG'.
u_er_layout-zebra             = 'X'.
endform.                               " LAYOUT_BUILD
*---------------------------------------------------------------------*
*       FORM top_of_page                                              *
*---------------------------------------------------------------------*
form top_of_page.
*
call function 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo             = 'ENJOYSAP_LOGO'
it_list_commentary = er_list_top_of_page.
endform.                    "TOP_OF_PAGE
*&---------------------------------------------------------------------*
*&      Form  fmr_get_data
*&---------------------------------------------------------------------*
FORM fmr_get_data .
PERFORM FRM_INIT.
refresh : it_vbrk . clear : it_vbrk.
select vbrk~zzflag vbrk~vbeln vbrk~fkart vbrk~vsbed vbrk~vkorg
vbrk~vtweg  vbrk~spart vbrk~fkdat vbrk~netwr vbrk~KUNRG
vbrk~sfakn   VBRK~KNUMV VBRK~BUKRS vbrk~mwsbk VBRK~BSTNK_VF AS BSTKD VBRK~zuonr
from vbrk
into CORRESPONDING fields of  table it_vbrk
where vbrk~vkorg in s_vkorg
and   vbrk~KUNRG in s_KUNRG
and   vbrk~VBELN in s_VBELN
and  vbrk~FKDAT  in s_FKDAT
* and  vbrk~FKART in s_FKART
and  vbrk~FKART in R_FKART
* and   vbrk~RFBSK in s_RFBSK
and   vbrk~ERNAM in s_ERNAM
and   vbrk~zzflag ne 'X'  "下传金税标识
and   vbrk~fksto ne 'X'   "凭证取消标识
* AND  VBRK~RFBSK = 'C'
* and  VBRK~taxk1 = '1'
* and VBRK~land1 = 'CN'
and VBRK~netwr ne 0
and  vbrk~bukrs in s_bukrs.
loop at it_vbrk.
g_tabix = sy-tabix.
AUTHORITY-CHECK OBJECT 'V_VBRK_FKA'
ID 'FKART' FIELD IT_VBRK-FKART
ID 'ACTVT' FIELD '03'.
IF SY-SUBRC <> 0.
delete it_vbrk index g_tabix.
continue.
ENDIF.
AUTHORITY-CHECK OBJECT 'V_VBRK_VKO'
ID 'VKORG' FIELD IT_VBRK-VKORG
ID 'ACTVT' FIELD '03'.
IF SY-SUBRC <> 0.
delete it_vbrk index g_tabix.
continue.
ENDIF.
select single * from knvv where kunnr = it_vbrk-KUNRG
and VKORG = it_vbrk-vkorg
and VTWEG = it_vbrk-vtweg
and spart = it_vbrk-spart
and kvgr1 in r_kvgr1.
*    if sy-subrc = 0.
**********************
select single * from kna1 where kunnr = it_vbrk-KUNRG.
if sy-subrc = 0.
it_vbrk-name1 = kna1-name1.
it_vbrk-stceg = kna1-stceg.
it_vbrk-STRAS = kna1-STRAS.
it_vbrk-ORT01 = kna1-ORT01.
it_vbrk-telf1 = kna1-telf1.
endif.
select single * from kna1 where kunnr = 'ZZZZ'.
IF SY-SUBRC = 0.
IT_VBRK-CHECK = KNA1-NAME1.
IT_VBRK-PAYER = KNA1-NAME2.
ENDIF.
clear knbk.
select single * from knbk where kunnr = it_vbrk-KUNRG.
if sy-subrc = 0.
it_vbrk-bankn = knbk-bankn.
it_vbrk-koinh = knbk-koinh.
it_vbrk-bankl = knbk-bankl.
it_vbrk-bkref = knbk-bkref.
select single banka into it_vbrk-banka from bnka where BANKS = knbk-BANKS
and BANKL = knbk-BANKL.
endif.
it_vbrk-tax = it_vbrk-mwsbk.
CLEAR:IT_VBRK-SFAKN.
SELECT SINGLE * FROM VBFA WHERE VBELN   = IT_VBRK-VBELN
AND VBTYP_N = 'O'
AND VBTYP_V = 'M'.
IF SY-SUBRC = 0.
IT_VBRK-SFAKN = VBFA-VBELV.
ENDIF.
*    if not r_fkarts[] is initial.
*      clear vbrk.
*      SELECT SINGLE * FROM VBRK WHERE SFAKN = IT_VBRK-VBELN.
*      IF SY-SUBRC = 0 AND VBRK-FKDAT+0(6) = IT_VBRK-FKDAT+0(6).
*        delete it_vbrk index g_tabix.
*        continue.
*      ENDIF.
*    endif.
*    if not r_fkartc[] is initial.
*      clear vbrk.
*      IF it_vbrk-sfakn ne space.
*        select single * from vbrk where vbeln  = it_vbrk-SFAKN
*                                    and zzflag = 'X'.
*        IF SY-SUBRC NE  0.
*          delete it_vbrk index g_tabix.
*          continue.
*        ENDIF.
*      endif.
*    endif.
*    if not r_fkartr[] is initial.
*      clear vbrk.
*      IF IT_VBRK-FKART = 'ZSE' OR IT_VBRK-FKART = 'ZSE2'.
*        select single * from vbrk where vbeln  = it_vbrk-SFAKN
*                                    and zzflag = 'X'.
*        IF SY-SUBRC NE  0.
*          delete it_vbrk index g_tabix.
*        ENDIF.
*      ELSEIF IT_VBRK-FKART = 'ZRE'.
*        SELECT SINGLE * FROM VBRK WHERE SFAKN = IT_VBRK-VBELN.
*        IF SY-SUBRC = 0 AND VBRK-FKDAT+0(6) = IT_VBRK-FKDAT+0(6).
*          delete it_vbrk index g_tabix.
*        ENDIF.
*      ENDIF.
*    endif.
it_vbrk-intyp = 'B'.
if it_vbrk-fkart = 'ZG1' or it_vbrk-fkart = 'ZG3' or it_vbrk-fkart = 'ZRE'
or it_vbrk-fkart = 'ZRE2'.
select single * from vbrk where vbeln = it_vbrk-SFAKN.
IT_VBRK-INTYP = 'H'.
IT_VBRK-ZZBNO = vbrk-zzbno.
IT_VBRK-ZZVER = VBRK-ZZVER.
endif.
modify it_vbrk index g_tabix.
endloop.
refresh:it_vbrp.  clear:it_vbrp,g_lin.
describe table it_vbrk lines g_lin.
if g_lin > 0.
select * into corresponding fields of table it_vbrp
from vbrp for all entries in it_vbrk
where vbeln = it_vbrk-vbeln
and werks in s_werks.
endif.
CLEAR G_TABIX.
loop at it_vbrp.
g_tabix = sy-tabix.
AUTHORITY-CHECK OBJECT 'Z_ABAP'
ID 'WERKS' FIELD IT_VBRP-WERKS
ID 'ACTVT' FIELD '03'.
IF SY-SUBRC <> 0.
delete it_vbrP index g_tabix.
continue.
ENDIF.
clear: g_sum,makt,mara,t006a,mara.
select single * from  makt where matnr = it_vbrp-matnr
and SPRAS = '1'.
if sy-subrc = 0.
it_vbrp-maktx = makt-maktx.
else.
select single * from  makt where matnr = it_vbrp-matnr
and SPRAS = 'E'.
it_vbrp-maktx = makt-maktx.
endif .
select single * from mara where matnr = it_vbrp-matnr.
if sy-subrc = 0.
it_vbrp-groes = mara-WRKST.
endif.
select single * from t006a where MSEHI = it_vbrp-vrkme
and   SPRAS = '1'.
if sy-subrc = 0 .
it_vbrp-mseh3 = t006a-mseht.
endif.
REFRESH: it_konv . CLEAR : it_konv.
read table it_vbrk with key vbeln = it_vbrp-vbeln.
SELECT kschl  kwert  kbetr
INTO CORRESPONDING FIELDS OF TABLE it_konv
FROM konv
WHERE knumv = it_vbrk-knumv
AND   kposn = it_vbrp-posnr.
READ TABLE it_konv WITH KEY  kschl = 'MWSI'.
IF sy-subrc = 0.
it_vbrp-tax = it_konv-kbetr / 1000 .
ENDIF .
READ TABLE it_konv WITH KEY  kschl = 'MWST'.
IF sy-subrc = 0.
it_vbrp-tax = it_konv-kbetr / 1000 .
ENDIF .
if it_vbrp-fkimg ne 0.
it_vbrp-netpr = it_vbrp-netwr / it_vbrp-fkimg.
endif.
t_vbeln-vbeln = it_vbrp-vbeln. collect t_vbeln.
SELECT SINGLE * FROM VBKD WHERE VBELN = IT_VBRP-VGBEL.
IF SY-SUBRC = 0.
IT_VBRP-BSTKD = VBKD-BSTKD.
ENDIF.
modify it_vbrp index g_tabix.
endloop.
loop at it_vbrk.
g_tabix = sy-tabix.
read table t_vbeln with key vbeln = it_vbrk-vbeln.
if sy-subrc ne 0.
delete it_vbrk index g_tabix.
else.
endif.
READ TABLE IT_VBRP WITH KEY VBELN = IT_VBRK-VBELN.
IF SY-SUBRC = 0.
IT_VBRK-BSTKD = IT_VBRP-BSTKD.
MODIFY IT_VBRK INDEX G_TABIX.
ENDIF.
endloop.
ENDFORM.                    " fmr_get_data
*&---------------------------------------------------------------------*
*&      Form  frm_fill_out
*&---------------------------------------------------------------------*
FORM frm_fill_out .
perform layout_build using er_layout.
call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program       = e_repid
i_callback_pf_status_set = e_status
i_callback_user_command  = e_user_command
is_layout                = er_layout
it_fieldcat              = er_fieldcat[]
it_events                = er_events[]
TABLES
t_outtab                 = it_vbrk.
ENDFORM.                    " frm_fill_out
*---------------------------------------------------------------------*
*       FORM user_command                                             *
*---------------------------------------------------------------------*
form user_command using p_ucomm like sy-ucomm
p_selfield type slis_selfield.
case p_ucomm.
when 'DOWN'. "单个发票下传
p_selfield-refresh = 'X'.
PERFORM FRM_EXCU.
when 'CDOW'. "汇总开票(合并明细开票)
p_selfield-refresh = 'X'.
perform frm_save.
when 'CDF2'. ""汇总开票(合并明细开票)ZF2+ZF2
p_selfield-refresh = 'X'.
perform frm_save_zf2.
when '&IC1'.
read table it_vbrk index p_selfield-tabindex.
check sy-subrc = 0.
SET PARAMETER ID: 'VF' FIELD IT_VBRK-VBELN.
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
when others.
endcase.
endform.                    "user_command
*---------------------------------------------------------------------*
*       FORM standard_er01                                            *
*---------------------------------------------------------------------*
form standard_er01 using  extab type slis_t_extab.
data:  wa_tab type slis_extab.
delete extab where fcode = '&RNT_PREV'.
delete extab where fcode = '&LFO'.
delete extab where fcode = '&NFO'.
move '&IC1' to wa_tab-fcode.
append wa_tab to extab.
set pf-status 'ALVLIST1' excluding extab.
endform.                    "STANDARD_ER01
*&---------------------------------------------------------------------*
*&      Form  FRM_EXCU
*&---------------------------------------------------------------------*
FORM FRM_EXCU .
CLEAR:G_LIN,g_flag, i_fkart[].
read table it_vbrk with key flag = 'X'.
IF SY-SUBRC = 0.
LOOP AT IT_VBRK WHERE FLAG  = 'X'
AND ( INTYP = 'B' OR INTYP = 'H' ).
EXIT.
ENDLOOP.
IF SY-SUBRC = 0.
PERFORM FRM_N.
ENDIF.
*    LOOP AT IT_VBRK WHERE FLAG  = 'X'
*                      AND INTYP = 'R'.
*        EXIT.
*    ENDLOOP.
*    IF SY-SUBRC = 0.
*    PERFORM FRM_R.
*    ENDIF.
ELSE.
message s007.
ENDIF.
ENDFORM.                    " FRM_EXCU
*&---------------------------------------------------------------------*
*&      Form  frm_down_h
*&---------------------------------------------------------------------*
FORM frm_down_h .
refresh:out_vbrk. clear:out_vbrk,g_lin,g_flag.
loop at it_vbrp where vbeln = it_vbrk-vbeln
and netwr ne 0.
if it_vbrp-netwr ne 0.
g_lin = g_lin + 1.
endif.
endloop.
out_vbrk-vbeln = it_vbrk-vbeln.
out_vbrk-c1 = c_sep.
if g_bs = '1'.
out_vbrk-num = g_num.
clear g_bs.
clear out_vbrk-text3.
sort t_vbeln by vbeln descending.
describe table t_vbeln lines p_lin.
loop at t_vbeln.
if sy-tabix = '1'.
concatenate t_vbeln-vbeln  out_vbrk-text3 into out_vbrk-text3.
else.
concatenate t_vbeln-vbeln ',' out_vbrk-text3 into out_vbrk-text3.
endif.
endloop.
concatenate '流水号:' out_vbrk-text3 into out_vbrk-text3.
loop at t_vbeln.
if sy-tabix = '1'.
concatenate t_vbeln-bstkd  out_vbrk-text3 into out_vbrk-text3.
else.
concatenate t_vbeln-bstkd ',' out_vbrk-text3 into out_vbrk-text3.
endif.
endloop.
concatenate '合同号:' out_vbrk-text3 into out_vbrk-text3.
else.
out_vbrk-num = g_lin.
concatenate '流水号:' it_vbrp-vgbel into out_vbrk-text3.
concatenate '合同号:' it_vbrp-bstkd out_vbrk-text3 into out_vbrk-text3.
endif.
condense out_vbrk-num.
out_vbrk-c2 = c_sep.
out_vbrk-name1 = it_vbrk-name1.
out_vbrk-c3 = c_sep.
out_vbrk-stceg = it_vbrk-stceg.
out_vbrk-c4 = c_sep.
SPLIT it_vbrk-STRAS AT c_splt  INTO:it_vbrk-STRAS  g_text.
if sy-subrc ne 0.
SPLIT it_vbrk-STRAS AT c_splt2  INTO:it_vbrk-STRAS  g_text.
endif.
SPLIT it_vbrk-ORT01 AT c_splt  INTO:it_vbrk-ORT01  g_text.
if sy-subrc ne 0.
SPLIT it_vbrk-ORT01 AT c_splt2  INTO:it_vbrk-ORT01  g_text.
endif.
* concatenate it_vbrk-STRAS it_vbrk-ORT01 it_vbrk-telf1 into   out_vbrk-text1.
concatenate it_vbrk-STRAS  it_vbrk-telf1 into   out_vbrk-text1.
out_vbrk-c5 = c_sep.
SPLIT it_vbrk-banka AT c_splt  INTO:it_vbrk-banka  g_text.
if sy-subrc ne 0.
SPLIT it_vbrk-banka AT c_splt2  INTO:it_vbrk-banka  g_text.
endif.
concatenate it_vbrk-banka it_vbrk-bankn it_vbrk-bkref into out_vbrk-text2.
* out_vbrk-text2 = it_vbrk-banka.
out_vbrk-c6 = c_sep.
********************?
if it_vbrk-intyp = 'H'.
g_flag = '1'.
*    IF IT_VBRK-FKART = 'ZS' OR IT_VBRK-FKART = 'ZS2'.
*   concatenate  into .
out_vbrk-text3 = '开具红字增值税专用发票通知单号'.
*    ENDIF.
endif.
out_vbrk-c7 = c_sep.
OUT_VBRK-CHECK = IT_VBRK-CHECK.
out_vbrk-c8 = c_sep.
OUT_VBRK-PAYER = IT_VBRK-PAYER.
append out_vbrk.
*  CLEAR OUT_VBRK.
ENDFORM.                    " frm_down_h
*&---------------------------------------------------------------------*
*&      Form  frm_down_i
*&---------------------------------------------------------------------*
FORM frm_down_i .
refresh:out_vbrp,t_text. clear:out_vbrp,G_FLAG,t_text.
loop at it_vbrp where vbeln = it_vbrk-vbeln
and netwr ne 0
and fkimg ne 0.
CLEAR G_shuilv.
out_vbrp-maktx = it_vbrp-maktx.
out_vbrp-c1 = c_sep.
*   out_vbrp-vrkme = it_vbrp-vrkme.mseh3
out_vbrp-vrkme = it_vbrp-mseh3.
out_vbrp-c2 = c_sep.
out_vbrp-gui = IT_VBRP-GROES.
out_vbrp-c3 = c_sep.
out_vbrp-fkimg = it_vbrp-fkimg.
condense out_vbrp-fkimg.
out_vbrp-c4 = c_sep.
G_shuilv = IT_VBRP-TAX + 1.
*    if it_vbrk-fkart = 'ZRE'.
*      IT_VBRP-NETWR = IT_VBRP-NETWR + IT_VBRP-KZWI5.
*      out_vbrp-netwr = it_vbrp-netwr.
*      it_vbrp-netpr  = it_vbrp-netwr / it_vbrp-fkimg.
*    ENDIF.
out_vbrp-netwr = it_vbrp-netwr.
condense out_vbrp-netwr.
out_vbrp-c5 = c_sep.
out_vbrp-tax = it_vbrp-tax.
condense out_vbrp-tax.
out_vbrp-c6 = c_sep.
out_vbrp-text1 = '1209'.
out_vbrp-c7 = c_sep.
*    if g_sum ne 0 and g_kzwi5 ne 0.
*    it_vbrp-zkl = g_kzwi5 / g_sum.
*    out_vbrp-text4 = it_vbrp-zkl.
*    condense out_vbrp-text4.
*    endif.
*  it_vbrp-kzwi5 = it_vbrp-netwr * it_vbrp-zkl.
*    it_vbrp-kzwi5 = 0 - it_vbrp-kzwi5.
*    IF G_BS = '1'.
*      IT_VBRP-KZWI5 = IT_VBRP-KZWI5 + G_KZWI5 * IT_VBRP-NETWR / G_SUM.
*    ENDIF.
*    if it_vbrk-fkart ne 'ZRE'.
*      out_vbrp-text2 = it_vbrp-kzwi5.
*      condense out_vbrp-text2.
*      out_vbrp-text3 = it_vbrp-kzwi5 * it_vbrp-tax.
*      condense out_vbrp-text3.
*    ENDIF.
*    clear it_vbrp-mwsbp.
*    it_vbrp-mwsbp = it_vbrp-netwr." - IT_VBRP-KZWI5.
*    it_vbrp-mwsbp = it_vbrp-mwsbp * it_vbrp-tax.
out_vbrp-mwsbp = it_vbrp-mwsbp.
condense out_vbrp-mwsbp.
out_vbrp-c9 = c_sep.
out_vbrp-c10 = c_sep.
out_vbrp-c11 = c_sep.
out_vbrp-c8 = c_sep.
*    out_vbrp-netpr = it_vbrp-netpr.
*    condense out_vbrp-netpr.
out_vbrp-c12 = c_sep.
out_vbrp-pr  = '0'.
if it_vbrk-intyp = 'H' ." it_vbrk-fkart ne 'ZRE'.
condense out_vbrp-fkimg.
concatenate '-' out_vbrp-fkimg into out_vbrp-fkimg.
condense out_vbrp-netwr.
concatenate '-' out_vbrp-netwr into out_vbrp-netwr.
condense out_vbrp-mwsbp.
concatenate '-' out_vbrp-mwsbp into out_vbrp-mwsbp.
*      IF IT_VBRK-FKART NE 'ZRE'.
*        concatenate '-' out_vbrp-text2 into out_vbrp-text2.
*        concatenate '-' out_vbrp-text3 into out_vbrp-text3.
*      ENDIF.
ENDIF.
append out_vbrp.
concatenate out_vbrp-maktx out_vbrp-c1  out_vbrp-vrkme out_vbrp-c2
out_vbrp-gui   out_vbrp-c3  out_vbrp-fkimg out_vbrp-c4
out_vbrp-netwr out_vbrp-c5  out_vbrp-tax   out_vbrp-c6
out_vbrp-text1 out_vbrp-c7  out_vbrp-text2 out_vbrp-c8 out_vbrp-mwsbp
out_vbrp-c9  out_vbrp-text3 out_vbrp-c10
out_vbrp-c11 out_vbrp-netpr out_vbrp-c12
out_vbrp-pr into t_text-text.
append t_text.
clear:out_vbrp,t_text.
endloop.
ENDFORM.                    " frm_down_i
*&---------------------------------------------------------------------*
*&      Form  frm_save
*&---------------------------------------------------------------------*
FORM frm_save .
refresh:i_stceg. clear:i_stceg,g_lin,g_num,g_bs,G_KZWI5,
G_FKART,G_INTYP,i_typ,i_typ[],t_vbeln[],t_vbeln.
loop at it_vbrk where flag = 'X'.
i_typ-fkart = it_vbrk-fkart. collect i_typ. clear i_typ.
g_lin = g_lin + 1.
IF it_vbrk-fkart IN R_FKART.
i_stceg-stceg = it_vbrk-stceg.
i_stceg-KUNRG = it_vbrk-KUNRG.
i_stceg-intyp = it_vbrk-intyp.
collect i_stceg. clear i_stceg.
loop at it_vbrp where vbeln = it_vbrk-vbeln
and netwr ne 0.
g_num = g_num + 1.
*      if it_vbrp-pr ne 0.
*        g_num = g_num + 1.
*      endif.
t_vbeln-vbeln = it_vbrp-vgbel.
t_vbeln-bstkd = it_vbrp-bstkd.
collect t_vbeln. clear t_vbeln.
endloop.
ENDIF.
endloop.
if g_lin < 2.
message e000 with '不能合并下载!'.
endif.
************
clear g_lin.
describe table i_stceg lines g_lin.
if g_lin = 1.
perform frm_nc.
else.
message s000 with '不能合并下载!'.
endif.
ENDFORM.                    " frm_save
*&---------------------------------------------------------------------*
*&      Form  FRM_N
*&---------------------------------------------------------------------*
FORM FRM_N .
refresh:i_text. clear:i_text.
concatenate 'SJJK0101' c_sep '销售单据传入' into i_text-text.
append i_text.
concatenate 'C:\销售发票传入文件\' sy-datum '.txt' into g_path.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
filename                = g_path
codepage                = '8400'
filetype                = 'ASC'
item                    = 'Export Invoice'
mode                    = 'A'
IMPORTING
ACT_FILENAME            = P_FILE
TABLES
DATA_TAB                = i_text
EXCEPTIONS
INVALID_FILESIZE        = 1
INVALID_TABLE_WIDTH     = 2
INVALID_TYPE            = 3
NO_BATCH                = 4
UNKNOWN_ERROR           = 5
GUI_REFUSE_FILETRANSFER = 6
CUSTOMER_ERROR          = 7
OTHERS                  = 8.
G_FILE = P_FILE.
IF g_file IS INITIAL. EXIT. ENDIF.
clear:g_tabix.
loop at it_vbrk where flag = 'X' AND
( INTYP = 'B' OR INTYP = 'H' ).
refresh:i_text,t_text. clear:i_text,t_text.
g_tabix = g_tabix + 1.
clear:g_text.
CALL FUNCTION 'Z_GET_CHINESE_CHAR'
EXPORTING
NUM  = g_tabix
IMPORTING
CHAR = g_text.
concatenate '//' '单据'  g_text ':' into i_text-text.
append i_text.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
codepage = '8400'
*TRUNC_TRAILING_BLANKS_EOL = ' '
*        filetype                = 'ASC'
APPEND   = 'X'
TABLES
data_tab = i_text.
perform frm_down_h.
SPLIT OUT_VBRK-NAME1 AT c_splt  INTO:out_vbrk-name1  g_text.
if sy-subrc ne 0.
SPLIT OUT_VBRK-NAME1 AT c_splt2  INTO:out_vbrk-name1  g_text.
endif.
concatenate out_vbrk-vbeln out_vbrk-c1 out_vbrk-num   out_vbrk-c2
out_vbrk-name1 out_vbrk-c3 out_vbrk-stceg out_vbrk-c4
out_vbrk-text1 out_vbrk-c5 out_vbrk-text2 out_vbrk-c6
out_vbrk-text3 out_vbrk-c7 out_vbrk-check out_vbrk-c8
out_vbrk-payer into t_text-text.
append t_text.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
CODEPAGE = '8400'
*TRUNC_TRAILING_BLANKS_EOL = ' '
APPEND   = 'X'
*        filetype                = 'ASC'
TABLES
data_tab = t_text.
perform frm_down_i.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
codepage = '8400'
*TRUNC_TRAILING_BLANKS_EOL = ' '
APPEND   = 'X'
*       filetype                = 'ASC'
TABLES
data_tab = t_text.
if sy-subrc  = 0.
perform frm_updates.
delete it_vbrk.
endif.
endloop.
ENDFORM.                    " FRM_N
*&---------------------------------------------------------------------*
*&      Form  FRM_R
*&---------------------------------------------------------------------*
FORM FRM_R .
refresh:i_text. clear:i_text,g_file.
concatenate 'SJJK0102' c_sep '作废销售单据传入' into i_text-text.
append i_text.
concatenate 'C:\销售发票传入文件\' sy-datum '.txt' into g_path.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
filename     = g_path
filetype     = 'ASC'
item         = 'Export Invoice'
mode         = 'A'
IMPORTING
ACT_FILENAME = g_file
TABLES
DATA_TAB     = i_text.
clear:g_tabix.
loop at it_vbrk where flag = 'X'
AND INTYP = 'R'.
refresh:i_text. clear:i_text.
g_tabix = g_tabix + 1.
clear:g_text.
CALL FUNCTION 'Z_GET_CHINESE_CHAR'
EXPORTING
NUM  = g_tabix
IMPORTING
CHAR = g_text.
concatenate '//' g_text ':' into i_text-text.
append i_text.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
filetype = 'ASC'
APPEND   = 'X'
TABLES
data_tab = i_text.
refresh:i_vbeln.clear:i_vbeln.
select single SFAKN into i_vbeln-vbeln from vbrk where vbeln = it_vbrk-vbeln.
*    i_vbeln-vbeln = it_vbrk-vbeln.
append i_vbeln.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
filetype = 'ASC'
APPEND   = 'X'
TABLES
data_tab = i_vbeln.
if sy-subrc  = 0.
perform frm_updates.
delete it_vbrk.
endif.
endloop.
ENDFORM.                    " FRM_R
*&---------------------------------------------------------------------*
*&      Form  FRM_SC
*&---------------------------------------------------------------------*
FORM FRM_SC .
IF S_BUKRS-LOW IS INITIAL.
message e001.
ENDIF.
IF  NOT S_BUKRS-LOW IS INITIAL.
SELECT SINGLE * FROM T001 WHERE BUKRS = S_BUKRS-LOW.
IF SY-SUBRC NE 0.
message e002.
ENDIF.
ENDIF.
IF S_KUNRG[] IS INITIAL AND S_VBELN[] IS INITIAL AND S_FKDAT[] IS INITIAL.
MESSAGE E003.
ENDIF.
ENDFORM.                    " FRM_SC
*&---------------------------------------------------------------------*
*&      Form  frm_nc
*&---------------------------------------------------------------------*
FORM frm_nc .
refresh:i_text,i_zfi031.clear:i_text,i_zfi031,g_file.
concatenate 'SJJK0101' c_sep '销售单据传入' into i_text-text.
append i_text.
concatenate 'C:\销售发票传入文件\' sy-datum '.txt' into g_path.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
filename     = g_path
CODEPAGE     = '8400'
filetype     = 'ASC'
item         = 'Export Invoice'
mode         = 'A'
IMPORTING
ACT_FILENAME = P_file
TABLES
DATA_TAB     = i_text.
G_FILE = P_FILE.
IF g_file IS INITIAL. EXIT. ENDIF.
clear:g_tabix,g_vbeln.
loop at it_vbrk where flag = 'X'.
refresh:i_text. clear:i_text.
g_tabix = g_tabix + 1.
clear:g_text.
if g_tabix = 1.
g_vbeln = it_vbrk-vbeln.
CALL FUNCTION 'Z_GET_CHINESE_CHAR'
EXPORTING
NUM  = g_tabix
IMPORTING
CHAR = g_text.
concatenate '//' '单据' g_text ':' into i_text-text.
append i_text.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
CODEPAGE = '8400'
*          TRUNC_TRAILING_BLANKS_EOL = ' '
*         filetype = 'ASC'
APPEND   = 'X'
TABLES
data_tab = i_text.
g_bs = '1'.
perform frm_down_h.
clear t_text[].
concatenate out_vbrk-vbeln out_vbrk-c1 out_vbrk-num   out_vbrk-c2
out_vbrk-name1 out_vbrk-c3 out_vbrk-stceg out_vbrk-c4
out_vbrk-text1 out_vbrk-c5 out_vbrk-text2 out_vbrk-c6
out_vbrk-text3 out_vbrk-c7 out_vbrk-check out_vbrk-c8
out_vbrk-payer into t_text-text.
append t_text.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
CODEPAGE = '8400'
*          TRUNC_TRAILING_BLANKS_EOL = ' '
*          filetype                = 'ASC'
APPEND   = 'X'
TABLES
data_tab = t_text.
endif.
perform frm_down_i.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
CODEPAGE = '8400'
*TRUNC_TRAILING_BLANKS_EOL = ' '
APPEND   = 'X'
*        filetype                = 'ASC'
TABLES
data_tab = t_text.
if sy-subrc  = 0.
perform frm_upm.
delete it_vbrk.
endif.
endloop.
loop at i_zfi031.
move-corresponding i_zfi031 to zfi031.
modify zfi031 .
clear zfi031.
endloop.
ENDFORM.                    " frm_nc
*&---------------------------------------------------------------------*
*&      Form  frm_updates
*&---------------------------------------------------------------------*
FORM frm_updates .
ZFI031-vbeln  = it_vbrk-vbeln.
zfi031-vbeln1 = it_vbrk-vbeln.
zfi031-intyp  = it_vbrk-intyp.
ZFI031-UNAME = sy-uname.
ZFI031-datum = sy-datum.
modify zfi031.
ENDFORM.                    " frm_updates
*&---------------------------------------------------------------------*
*&      Form  frm_upm
*&---------------------------------------------------------------------*
FORM frm_upm .
loop at it_vbrk where flag = 'X'.
i_ZFI031-vbeln1 = g_vbeln.
*    if it_vbrk-vbeln = g_vbeln.
*      I_ZFI031-POSNR = '01'.
*    ELSE.
*      I_ZFI031-POSNR = '02'.
*    endif.
i_zfi031-vbeln = it_vbrk-vbeln.
i_zfi031-intyp = it_vbrk-intyp.
i_ZFI031-UNAME = sy-uname.
i_ZFI031-datum = sy-datum.
append i_zfi031.
*    delete it_vbrk.
endloop.
ENDFORM.                    " frm_upm
*&---------------------------------------------------------------------*
*&      Form  frm_save_zf2
*&---------------------------------------------------------------------*
FORM frm_save_zf2 .
refresh:i_stceg. clear:i_stceg,g_lin,g_num,g_bs,G_KZWI5,
G_FKART,G_INTYP,i_typ,i_typ[],g_SUM,i_zfi031[].
data:l_tabix like sy-tabix.
loop at it_vbrk where flag = 'X' and FKART = 'ZF2'.
g_lin = g_lin + 1.
i_typ-fkart = it_vbrk-fkart. collect i_typ. clear i_typ.
i_stceg-stceg = it_vbrk-stceg.
i_stceg-KUNRG = it_vbrk-KUNRG.
i_stceg-intyp = it_vbrk-intyp.
collect i_stceg. clear i_stceg.
loop at it_vbrp where vbeln = it_vbrk-vbeln.
if it_vbrp-netwr ne '0.00'.
G_SUM   = G_SUM + IT_VBRP-NETWR.
l_tabix = l_tabix + 1.
ENDIF.
endloop.
endloop.
if g_lin = 0.
message e000 with '请选择数据合并下载!'.
elseif g_lin = 1.
message e000 with '不能选择一条数据合并下载!'.
endif.
if g_sum >= '100000.00'.
message e000 with '不能合并下载!(金额大于10万)'.
ENDIF.
describe table i_stceg lines g_lin.
if g_lin >= 2.
message e000 with '不能合并下载!'.
endif.
clear g_lin.
describe table i_typ lines g_lin.
if g_lin NE 1.
message e000 with '不能合并下载!(只能ZF2+ZF2)'.
endif.
refresh:i_text,i_zfi031.clear:i_text,i_zfi031,g_file,g_path.
concatenate 'C:\销售发票传入文件\' sy-datum '.txt' into g_path.
concatenate 'SJJK0101' c_sep '销售单据传入' into i_text-text.
append i_text.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
filename     = g_path
filetype     = 'ASC'
item         = 'Export Invoice'
mode         = 'A'
IMPORTING
ACT_FILENAME = g_file
TABLES
DATA_TAB     = i_text.
IF g_file IS INITIAL. EXIT. ENDIF.
clear:g_tabix,g_vbeln.
loop at it_vbrk where flag = 'X'.
refresh:i_text. clear:i_text.
g_tabix = g_tabix + 1.
clear:g_text.
if g_tabix = 1.
g_vbeln = it_vbrk-vbeln.
CALL FUNCTION 'Z_GET_CHINESE_CHAR'
EXPORTING
NUM  = g_tabix
IMPORTING
CHAR = g_text.
concatenate '//' '单据' g_text ':' into i_text-text.
append i_text.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
filetype = 'ASC'
APPEND   = 'X'
TABLES
data_tab = i_text.
g_bs = '1'.
perform frm_down_h.
out_vbrk-num = l_tabix.
condense out_vbrk-num.
concatenate out_vbrk-vbeln out_vbrk-c1 out_vbrk-num   out_vbrk-c2
out_vbrk-name1 out_vbrk-c3 out_vbrk-stceg out_vbrk-c4
out_vbrk-text1 out_vbrk-c5 out_vbrk-text2 out_vbrk-c6
out_vbrk-text3 out_vbrk-c7 out_vbrk-check out_vbrk-c8
out_vbrk-payer into t_text-text.
append t_text.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
filetype = 'ASC'
APPEND   = 'X'
TABLES
data_tab = t_text.
endif.
perform frm_down_i.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = g_file
filetype = 'ASC'
APPEND   = 'X'
TABLES
data_tab = t_text.
if sy-subrc  = 0.
i_ZFI031-vbeln1 = g_vbeln.
i_zfi031-vbeln = it_vbrk-vbeln.
i_zfi031-intyp = it_vbrk-intyp.
i_ZFI031-UNAME = sy-uname.
i_ZFI031-datum = sy-datum.
append i_zfi031.
delete it_vbrk.
endif.
endloop.
loop at i_zfi031.
move-corresponding i_zfi031 to zfi031.
modify zfi031 .
clear zfi031.
endloop.
ENDFORM.                    " frm_save_zf2
*&---------------------------------------------------------------------*
*&      Form  FRM_INIT
*&---------------------------------------------------------------------*
FORM FRM_INIT .
clear:r_fkarts[],r_fkartc[],r_fkartr[],r_kvgr1,R_FKART."s_fkart[].
R_FKART-sign = 'I'.
R_FKART-option = 'EQ'.
R_FKART-LOW = 'ZF2'. append R_FKART.
* R_FKART-LOW = 'ZF1'.  append R_FKART.
R_FKART-LOW = 'ZF'.  append R_FKART.
*  R_FKART-LOW = 'ZRE'.  append R_FKART.
*  R_FKART-LOW = 'ZRE1'. append r_fkart.
*  R_FKART-LOW = 'ZRE2'. append r_fkart.
if p_ck_1 = 'X'.
r_fkarts-sign = 'I'.
r_fkarts-option = 'EQ'.
r_fkarts-LOW = 'ZF'.  append r_fkarts.
r_fkarts-LOW = 'ZF2'. append r_fkarts.
r_fkarts-LOW = 'ZL1'. append r_fkarts.
r_fkarts-LOW = 'ZL3'.append r_fkarts.
R_fkart[] = r_fkarts[].
endif.
if p_ck_2 = 'X'.
r_fkartc-sign = 'I'.
r_fkartc-option = 'EQ'.
r_fkartc-LOW = 'ZG1'.   append r_fkartc.
r_fkartc-LOW = 'ZG3'.  append r_fkartc.
r_fkartc-LOW = 'ZRE'.  append r_fkartc.
r_fkartc-LOW = 'ZRE2'. append r_fkartc.
R_fkart[] = r_fkartc[].
endif.
*  if p_ck_3 = 'X'.
*    r_fkartr-sign = 'I'.
*    r_fkartr-option = 'EQ'.
*
*
*    R_fkart[] = r_fkartr[].
*  endif.
ENDFORM.                    " FRM_INIT