📄 zfir0020_forms.html

📁 SAP中的金税发票下载程序参考(ABAP) 程序写的比较详细,大家请指正
💻 HTML
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>ZFIR0020_FORMS</title>
</head>
<body bgcolor="#FFFFE0">
<font size="3" face = "Arial" color="#000000"><b>Code listing for: ZFIR0020_FORMS</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_FORMS</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>

<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
<font color ="#0000FF">*&      FORM GET_FKART.</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
FORM GET_FKART USING P_ZFKART.
  DATA:L_ZFSTA TYPE ZFI04-ZFSTA.
  REFRESH:IT_FKART,R_FKART,R_FKARTC,R_FKARTF,R_FKARTL,R_FKARTH.
  SELECT FKART CFKART FFKART ZFSTA INTO (R_FKART-LOW,R_FKARTC-LOW,R_FKARTF-LOW,L_ZFSTA)
    FROM ZFI04 WHERE ZFKART = P_ZFKART.
    R_FKART-SIGN = 'I'.
    R_FKART-OPTION = 'EQ'.
    APPEND R_FKART.
    R_FKARTC-SIGN = 'I'.
    R_FKARTC-OPTION = 'EQ'.
    APPEND R_FKARTC.
    R_FKARTF-SIGN = 'I'.
    R_FKARTF-OPTION = 'EQ'.
    APPEND R_FKARTF.
    IF L_ZFSTA = '1'.
      R_FKARTL-LOW = R_FKART-LOW.
      R_FKARTL-SIGN = 'I'.
      R_FKARTL-OPTION = 'EQ'.
      APPEND R_FKARTL.
      R_FKARTH-LOW = R_FKARTC-LOW.
      R_FKARTH-SIGN = 'I'.
      R_FKARTH-OPTION = 'EQ'.
      APPEND R_FKARTH.
    ELSE.
      R_FKARTL-LOW = R_FKARTC-LOW.
      R_FKARTL-SIGN = 'I'.
      R_FKARTL-OPTION = 'EQ'.
      APPEND R_FKARTL.
      R_FKARTH-LOW = R_FKART-LOW.
      R_FKARTH-SIGN = 'I'.
      R_FKARTH-OPTION = 'EQ'.
      APPEND R_FKARTH.
    ENDIF.
    IT_FKART-FKART = R_FKART-LOW.
    IT_FKART-FKARTC = R_FKARTC-LOW.
    IT_FKART-FKARTF = R_FKARTF-LOW.
    APPEND IT_FKART.
  ENDSELECT.
ENDFORM.                    " GET_FILENAME

<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
<font color ="#0000FF">*&      Form  GET_FILENAME</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
FORM GET_FILENAME CHANGING P_FILE.
  DATA: P_FILENAME LIKE RLGRAP-FILENAME.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      MASK      = ',*.* ,*.*.'
      STATIC    = 'X'
    CHANGING
      FILE_NAME = P_FILENAME.
  IF SY-SUBRC &lt;&gt; 0.
    MESSAGE '文件路径不存在!' TYPE 'E'.
  ELSE.
    P_FILE = P_FILENAME.
  ENDIF.
ENDFORM.                    " GET_FILENAM
</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 + -