📄 zfir0020_top.html

📁 SAP中的金税发票下载程序参考(ABAP) 程序写的比较详细,大家请指正
💻 HTML
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>ZFIR0020_TOP</title>
</head>
<body bgcolor="#FFFFE0">
<font size="3" face = "Arial" color="#000000"><b>Code listing for: ZFIR0020_TOP</b></font>
<br>
<font size="3" face = "Arial" color="#000000"><b>Description:  金税发票下载变量定义</b></font>
<hr>
<pre width="100">
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
<font color ="#0000FF">*&  包括                ZFIR0020_TOP</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>

TABLES:VBRK,VBRP,ZFI01,ZFI02,ZFI04.

DATA:BEGIN OF IT_DATA OCCURS 0, "输出显示
       dl(1) TYPE c,
       kunrg TYPE vbrk-kunrg,  "付款方
       NAME1 TYPE KNA1-NAME1,  "名称
       AUBEL TYPE VBRP-AUBEL,  "销售订单号
       BSTNK TYPE VBAK-BSTNK,  "合同号
       vbeln TYPE vbrk-vbeln,  "发票号
       fkart TYPE vbrk-fkart,  "发票类型
       vkorg TYPE vbrk-vkorg,  "销售组织
       vtweg TYPE vbrk-vtweg,  "分销渠道
       werks TYPE vbrp-werks,  "工厂
       erdat TYPE vbrk-erdat,  "录入日期
       erzet TYPE vbrk-erzet,  "录入时间
       fkdat TYPE vbrk-fkdat,  "发票日期
       SFAKN TYPE VBRK-SFAKN,  "取消的发票号
       posnr TYPE vbrp-posnr,  "行项目
       matnr TYPE vbrp-matnr,  "物料号
       vrkme TYPE vbrp-vrkme,  "计量单位
       stat_i TYPE zinvsta-stat_i,"发票状态
       fkimg TYPE vbrp-fkimg,  "数量
       netwr TYPE vbrp-netwr,  "金额
       mwsbp TYPE vbrp-mwsbp,  "税
       d_place(1),"1.正常发票下载；2.作废发票下载
       FLAG TYPE C,
     END OF IT_DATA,
     WA_DATA LIKE IT_DATA.
RANGES:R_FKARTC FOR VBRK-FKART,
       R_FKARTF FOR VBRK-FKART,
       R_FKARTL FOR VBRK-FKART,
       R_FKARTH FOR VBRK-FKART,
       R_FKART FOR VBRK-FKART.
DATA:BEGIN OF IT_FKART OCCURS 0, "开票类型表
       FKART TYPE VBRK-FKART,    "开票类型
       FKARTC TYPE VBRK-FKART,   "开票类型
       FKARTF TYPE VBRK-FKART,   "开票类型
     END OF IT_FKART,
     BEGIN OF IT_DOWN OCCURS 0,
       ZSERNR TYPE ZFI03-ZSERNR,
       ZVBELN TYPE ZFI02-ZVBELN,
       ZSTATU TYPE CHAR6,
       ZPOSNR TYPE ZFI03-ZPOSNR,
       KUNRG TYPE VBRK-KUNRG,  "付款方
       NAME1 TYPE KNA1-NAME1,  "名称
       vbeln TYPE vbrk-vbeln,  "发票号
       POSNR TYPE ZFI03-POSNR, "行号
       fkart TYPE vbrk-fkart,  "发票类型
       vkorg TYPE vbrk-vkorg,  "销售组织
       vtweg TYPE vbrk-vtweg,  "分销渠道
       werks TYPE vbrp-werks,  "工厂
       erdat TYPE vbrk-erdat,  "录入日期
       erzet TYPE vbrk-erzet,  "录入时间
       fkdat TYPE vbrk-fkdat,  "发票日期
       aubel TYPE vbrp-aubel,  "订单号
       matnr TYPE vbrp-matnr,  "物料号
       stat_i TYPE zinvsta-stat_i,"发票状态
       fkimg TYPE vbrp-fkimg,  "数量
       netwr TYPE vbrp-netwr,  "金额
       mwsbp TYPE vbrp-mwsbp,  "税
       d_place(1),"1.正常发票下载；2.作废发票下载
       FLAG TYPE C,
     END OF IT_DOWN.
<font color ="#0000FF">*---------------------------ALV_OO----------------------------------*</font>
DATA g_container TYPE REF TO cl_gui_custom_container. "控制区域
DATA: g_alv_grid  TYPE REF TO cl_gui_alv_grid,
      it_fieldcat TYPE lvc_t_fcat,
      it_exclude TYPE ui_functions,
      is_layout TYPE lvc_s_layo.
DATA: x_save,                          "for Parameter I_SAVE
      ls_layout TYPE disvariant.       "for parameter IS_VARIANT
<font color ="#0000FF">**      f_title TYPE LVC_TITLE.  "ALV 的标题</font>
CLASS lcl_alv_application DEFINITION DEFERRED.
DATA: g_alv_application TYPE REF TO lcl_alv_application. "继承alv见面创建和事件定义处理
</pre>
<hr>
<font size="2" face = "Sans Serif">Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 700
</font>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -