防伪税控文本接口

INCLUDE STRUCTURE gt_document.
INCLUDE STRUCTURE gt_customer.
DATA: sel_flag TYPE C, "选择框
dc_flag TYPE C, "已导出到文本标识
ht_flag TYPE C. "已回填标识
DATA: END OF gt_output.
TABLES: vbrk, "Billing Document: Header Data
vbrp, "Billing Document: Item Data
vbfa, "销售凭证流
vbak, "销售凭证：抬头数据
vbap, "销售凭证：项目数据
vbpa, "销售凭证：合作伙伴
vbpa3, "一次性客户的税编码
CONSTANTS: C_AUTH_QUERY LIKE zsd014u-zauth VALUE '1',
C_AUTH_TRANS LIKE zsd014u-zauth VALUE '2'.
CONSTANTS: C_CANCEL_ZUONR1 LIKE vbrk-zuonr VALUE 'x',
LINE-SIZE 255
line-count 65.
*---------------------------------------------------------------------------------
* INCLUDES
*---------------------------------------------------------------------------------
END OF gt_document.
DATA: BEGIN OF gt_customer OCCURS 0,
kunnr LIKE kna1-kunnr,
name1 LIKE kna1-name1, "客户名称
name2 LIKE kna1-name2, "客户名称
name(70) TYPE C, "客户名称=name1+name2 导出到金税使用
message(60) TYPE C,
END OF gt_input.
DATA: gt_zsd014o LIKE zsd014o OCCURS 0 WITH HEADER LINE,
gt_zsd014i LIKE zsd014i OCCURS 0 WITH HEADER LINE.
DATA: gt_bdcdata LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
name3(20) TYPE C, "客户名称=name1(20) Alv 显示时使用
ktokd LIKE kna1-ktokd, "客户帐户组/判断是否为一次性客户
* stras LIKE kna1-stras, "客户地址(门牌号 街道)
street LIKE adrc-street, "客户地址-街道
DATA: BEGIN OF gt_input OCCURS 0,
sel_flag TYPE C, "选择框
jinsh1(10) TYPE C,
jinsh2(8) TYPE C,
vbeln(10) TYPE C,
belnr LIKE bkpf-belnr,
flag TYPE C, "回填结果状态标志
text(160) TYPE C, "备注
vbelv LIKE vbfa-vbelv, "vbeln+posnr<->vbelv+posnv 发票与销售订单的对应
posnv LIKE vbfa-posnv,
bukrs LIKE vbrk-bukrs, "公司代码，不同的公司适用不同风格的发票
*--------------------------------------------------------------------------------*
* DESCRIPTION:
*--------------------------------------------------------------------------------*
TYPE-POOLS: slis. "ALV
*---------------------------------------------------------------------------------
* TABLES
*---------------------------------------------------------------------------------
konv, "vbrk-knumv
konp, "konv-knumh
lips, "SD document: Delivery: Item data
bkpf.
TABLES: kna1, "General Data in Customer Master
knvv, "Customer Master Sales Data
DATA: BEGIN OF gt_document OCCURS 0,
vbeln LIKE vbrk-vbeln, "发票号
fkart LIKE vbrk-fkart, "发票类型
fkdat LIKE vbrk-fkdat, "出具发票日期
kunrg LIKE vbrk-kunrg, "付款方(客户)
gt_bdcmsg LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
*---------------------------------------------------------------------------------
* 常量定义
*---------------------------------------------------------------------------------
*--------------------------------------------------------------------------------*
* PROJECT NAME:
* PROGRAM TITLE: 防伪税控接口
* PROGRAM ID/NAME:
* AUTHOR'S NAME: * VERSION: 1.0
house_num1 LIKE adrc-house_num1, "客户地址-门牌号
addr(70) TYPE C, "客户地址(街道 门牌号)
telf1 LIKE kna1-telf1, "电话
stcd1 LIKE kna1-stcd1IKE knbk-bankl, "客户开户银行代码
* 内表定义
*---------------------------------------------------------------------------------
* 发票抬头备注、客户名称、客户地址、客户银行
*---------------------------------------------------------------------------------
zsd014o, "从SAP导出数据记录表
zsd014i. "从SAP导入数据记录表
*---------------------------------------------------------------------------------
* Global data define
*---------------------------------------------------------------------------------
C_CANCEL_ZUONR2 LIKE vbrk-zuonr VALUE 'X',
C_LENTH_ZUONR TYPE I VALUE 18.
CONSTANTS: C_TEXT_SEPARATE(2) TYPE C VALUE 'n',
C_TEXT_ID LIKE THEAD-TDID VALUE '0002',
C_TEXT_OBJECT LIKE THEAD-TDOBJECT VALUE 'VBBK'.
CONSTANTS: g_object LIKE inri-object VALUE 'ZMIGSD014', "Number range
* CHANGE HISTORY
*--------------------------------------------------------------------------------*
* Changed by xxxxxxxx
* On xxxxxxxx
* Description of the changes:
banka LIKE bnka-banka, "银行名称
* bankn LIKE knbk-bankn, "客户账号
bankn LIKE bnka-stras, "银行街道实际存放客户账号