清账

文章

ABAP清账例子2

REPORT  ztest.  
  
*--------------------------------------------------------------------*  
*  INTERNAL TABLE DECLARATION  
*--------------------------------------------------------------------*  
DATA: it_blntab TYPE TABLE OF blntab WITH HEADER LINE,  
      it_ftclear TYPE TABLE OF ftclear WITH HEADER LINE,  
      it_ftpost TYPE TABLE OF ftpost WITH HEADER LINE,  
      it_fttax TYPE TABLE OF fttax WITH HEADER LINE.  
  
  
*--------------------------------------------------------------------*  
*  START-OF-SELECTION  
*--------------------------------------------------------------------*  
START-OF-SELECTION.  
  DEFINE populate_ftpost.  
    it_ftpost-stype = &1.  
    it_ftpost-count = &2.  
    it_ftpost-fnam  = &3.  
    it_ftpost-fval  = &4.  
    append it_ftpost.  
  END-OF-DEFINITION.  
  
  DEFINE populate_ftclear.  
    it_ftclear-agkoa  = 'D'.  
    it_ftclear-agbuk  = 'XXXX'. "company code  
    it_ftclear-selfd  = 'BELNR'.  
    it_ftclear-xnops  = 'X'.  
    it_ftclear-selvon = &1.  
    append it_ftclear.  
  END-OF-DEFINITION.  
  
  CALL FUNCTION 'POSTING_INTERFACE_START'  
    EXPORTING  
      i_function         = 'C'  
      i_keep             = 'X'  
      i_mode             = 'A'  
    EXCEPTIONS  
      client_incorrect   = 1  
      function_invalid   = 2  
      group_name_missing = 3  
      mode_invalid       = 4  
      update_invalid     = 5  
      OTHERS             = 6.  
  
  populate_ftpost: 'K' 1 'BKPF-BUKRS' 'BUKRS', "Company code  
                   'K' 1 'BKPF-BLART' 'DA',  
                   'K' 1 'BKPF-BLDAT' '16.09.2010',  
                   'K' 1 'BKPF-BUDAT' '16.09.2010',  
                   'K' 1 'BKPF-WAERS' 'RMB',  
                   'K' 1 'BKPF-XBLNR' 'Test',  
                   'P' 1 'RF05A-NEWBS' '11',  
                   'P' 1 'BSEG-HKONT' '0090000052',  
                   'P' 1 'BSEG-SGTXT' '20100916-01',  
                   'P' 1 'BSEG-WRBTR' '52'.  
  populate_ftclear '78000020772008001'. "concatenate doc number + fiscal year + line number  
  CALL FUNCTION 'POSTING_INTERFACE_CLEARING'  
    EXPORTING  
      i_auglv                          = 'UMBUCHNG'  
      i_tcode                          = 'FB05'  
      i_sgfunct                        = 'C'  
   IMPORTING  
      e_msgid                          = sy-msgid  
      e_msgno                          = sy-msgno  
      e_msgty                          = sy-msgty  
      e_msgv1                          = sy-msgv1  
      e_msgv2                          = sy-msgv2  
      e_msgv3                          = sy-msgv3  
      e_msgv4                          = sy-msgv4  
*      E_SUBRC                          = SY-SUBRC  
    TABLES  
      t_blntab                         = it_blntab  
      t_ftclear                        = it_ftclear  
      t_ftpost                         = it_ftpost  
      t_fttax                          = it_fttax  
    EXCEPTIONS  
      clearing_procedure_invalid       = 1  
      clearing_procedure_missing       = 2  
      table_t041a_empty                = 3  
      transaction_code_invalid         = 4  
      amount_format_error              = 5  
      too_many_line_items              = 6  
      company_code_invalid             = 7  
      screen_not_found                 = 8  
      no_authorization                 = 9  
      OTHERS                           = 10.  
  IF sy-subrc <> 0.  
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
  ENDIF.  
  CALL FUNCTION 'POSTING_INTERFACE_END'  
    EXCEPTIONS  
      session_not_processable = 1  
      OTHERS                  = 2.

REPORT ztest.

*--------------------------------------------------------------------*

* INTERNAL TABLE DECLARATION

*--------------------------------------------------------------------*

DATA: it_blntab TYPE TABLE OF blntab WITH HEADER LINE,

it_ftclear TYPE TABLE OF ftclear WITH HEADER LINE,

it_ftpost TYPE TABLE OF ftpost WITH HEADER LINE,

it_fttax TYPE TABLE OF fttax WITH HEADER LINE.

*--------------------------------------------------------------------*

* START-OF-SELECTION

*--------------------------------------------------------------------*

START-OF-SELECTION.

DEFINE populate_ftpost.

it_ftpost-stype = &1.

it_ftpost-count = &2.

it_ftpost-fnam = &3.

it_ftpost-fval = &4.

append it_ftpost.

END-OF-DEFINITION.

DEFINE populate_ftclear.

it_ftclear-agkoa = 'D'.

it_ftclear-agbuk = 'XXXX'. "company code

it_ftclear-selfd = 'BELNR'.

it_ftclear-xnops = 'X'.

it_ftclear-selvon = &1.

append it_ftclear.

END-OF-DEFINITION.

CALL FUNCTION 'POSTING_INTERFACE_START'

EXPORTING

i_function = 'C'

i_keep = 'X'

i_mode = 'A'

EXCEPTIONS

client_incorrect = 1

function_invalid = 2

group_name_missing = 3

mode_invalid = 4

update_invalid = 5

OTHERS = 6.

populate_ftpost: 'K' 1 'BKPF-BUKRS' 'BUKRS', "Company code

'K' 1 'BKPF-BLART' 'DA',

'K' 1 'BKPF-BLDAT' '16.09.2010',

'K' 1 'BKPF-BUDAT' '16.09.2010',

'K' 1 'BKPF-WAERS' 'RMB',

'K' 1 'BKPF-XBLNR' 'Test',

'P' 1 'RF05A-NEWBS' '11',

'P' 1 'BSEG-HKONT' '0090000052',

'P' 1 'BSEG-SGTXT' '20100916-01',

'P' 1 'BSEG-WRBTR' '52'.

populate_ftclear '78000020772008001'. "concatenate doc number + fiscal year + line number

CALL FUNCTION 'POSTING_INTERFACE_CLEARING'

EXPORTING

i_auglv = 'UMBUCHNG'

i_tcode = 'FB05'

i_sgfunct = 'C'

IMPORTING

e_msgid = sy-msgid

e_msgno = sy-msgno

e_msgty = sy-msgty

e_msgv1 = sy-msgv1

e_msgv2 = sy-msgv2

e_msgv3 = sy-msgv3

e_msgv4 = sy-msgv4

* E_SUBRC = SY-SUBRC

TABLES

t_blntab = it_blntab

t_ftclear = it_ftclear

t_ftpost = it_ftpost

t_fttax = it_fttax

EXCEPTIONS

clearing_procedure_invalid = 1

clearing_procedure_missing = 2

table_t041a_empty = 3

transaction_code_invalid = 4

amount_format_error = 5

too_many_line_items = 6

company_code_invalid = 7

screen_not_found = 8

no_authorization = 9

OTHERS = 10.

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'POSTING_INTERFACE_END'

EXCEPTIONS

session_not_processable = 1

OTHERS = 2.

2017.11.20

2.8K230

文章

ABAP清账实现例子1

*&---------------------------------------------------------------------*
*& Report  ZBAPI_POST_CLEAR_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBAPI_POST_CLEAR_TEST.
DATA:GT_BLNTAB TYPE STANDARD TABLE OF BLNTAB INITIAL SIZE 0,
      GT_BSID_CLEARING TYPE STANDARD TABLE OF BSID INITIAL SIZE 0 ,
      GT_FTCLEAR TYPE STANDARD TABLE OF FTCLEAR INITIAL SIZE 0,
      GT_FTPOST TYPE STANDARD TABLE OF FTPOST INITIAL SIZE 0 ,
      GT_FTTAX TYPE STANDARD TABLE OF FTTAX INITIAL SIZE 0 .
DATA:GS_FTPOST LIKE LINE OF GT_FTPOST,
      GS_BSID_CLEARING LIKE LINE OF GT_BSID_CLEARING.

START-OF-SELECTION.
GS_BSID_CLEARING-BELNR = '2000000303'.
GS_BSID_CLEARING-GJAHR = '2013'.
GS_BSID_CLEARING-BUZEI = 1.
APPEND GS_BSID_CLEARING TO GT_BSID_CLEARING.
  PERFORM: F_POSTING_INTERFACE_START.
  PERFORM: F_POSTING_INTERFACE_CLEARING.
  PERFORM: F_POSTING_INTERFACE_END.

*&---------------------------------------------------------------------*
*&      Form  f_posting_interface_start
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F_POSTING_INTERFACE_START .
  CONSTANTS: LC_FUNCTION       LIKE  RFIPI-FUNCT VALUE 'C',
  " B= BDC, C= Call Trans
             LC_MODE LIKE RFPDO-ALLGAZMD VALUE 'E', "ERRORS only
             LC_UPDATE LIKE RFPDO-ALLGVBMD VALUE 'S' .

  CALL FUNCTION 'POSTING_INTERFACE_START'
    EXPORTING
      I_FUNCTION         = LC_FUNCTION
      I_MODE             = LC_MODE
      I_UPDATE           = LC_UPDATE
    EXCEPTIONS
      CLIENT_INCORRECT   = 1
      FUNCTION_INVALID   = 2
      GROUP_NAME_MISSING = 3
      MODE_INVALID       = 4
      UPDATE_INVALID     = 5
      OTHERS             = 6.
  IF SY-SUBRC <> 0.
    MESSAGE 'ERROR' TYPE 'S'.
  ENDIF.
ENDFORM." F_POSTING_INTERFACE_START
*&---------------------------------------------------------------------*
*&      Form  f_posting_interface_clearing
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F_POSTING_INTERFACE_CLEARING.

  CONSTANTS: LC_AUGLV TYPE AUGLV VALUE 'EINGZAHL',
             LC_TCODE TYPE SYTCODE VALUE 'FB05',
             LC_SGFUNCT TYPE SGFUNCT_PI VALUE 'C'.

  PERFORM: F_PREPARE_FTPOST.
  PERFORM: F_PREPARE_FTCLEAR.

  CALL FUNCTION 'POSTING_INTERFACE_CLEARING'
    EXPORTING
      I_AUGLV                    = LC_AUGLV
      I_TCODE                    = LC_TCODE
      I_SGFUNCT                  = LC_SGFUNCT
    TABLES
      T_BLNTAB                   = GT_BLNTAB
      T_FTCLEAR                  = GT_FTCLEAR
      T_FTPOST                   = GT_FTPOST
      T_FTTAX                    = GT_FTTAX
    EXCEPTIONS
      CLEARING_PROCEDURE_INVALID = 1
      CLEARING_PROCEDURE_MISSING = 2
      TABLE_T041A_EMPTY          = 3
      TRANSACTION_CODE_INVALID   = 4
      AMOUNT_FORMAT_ERROR        = 5
      TOO_MANY_LINE_ITEMS        = 6
      COMPANY_CODE_INVALID       = 7
      SCREEN_NOT_FOUND           = 8
      NO_AUTHORIZATION           = 9
      OTHERS                     = 10.

  IF SY-SUBRC <> 0.
    CASE SY-SUBRC.
      WHEN '1'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '2'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '3'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '4'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '5'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '6'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '7'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '8'.
        MESSAGE 'ERROR' TYPE 'S'.
      WHEN '9'.
        MESSAGE 'ERROR' TYPE 'S'.
    ENDCASE.
  ELSE.
    COMMIT WORK.
    SET SCREEN 0.
  ENDIF.

ENDFORM." F_POSTING_INTERFACE_CLEARING

*&---------------------------------------------------------------------*
*&      Form  f_prepare_ftpost
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F_PREPARE_FTPOST .
  CONSTANTS: LC_HEADER TYPE C VALUE 'K', "Header
             LC_ITEM TYPE C VALUE 'P', "Item
             LC_COUNT TYPE I VALUE '001'.

*fill_header(BKPF)
* Convert the date format from  YYYYMMDD -> DD/MM/YYYY
*  PERFORM: F_CONVERT_DATE USING PA_BLDAT
*                         CHANGING PA_BLDAT.
  GS_FTPOST-STYPE = LC_HEADER.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'BKPF-BLDAT'.
  GS_FTPOST-FVAL  = SY-DATUM.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.

* Convert the date format from  YYYYMMDD -> DD/MM/YYYY
*  PERFORM: F_CONVERT_DATE USING PA_BUDAT
*                         CHANGING PA_BUDAT.
  GS_FTPOST-STYPE = LC_HEADER.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'BKPF-BUDAT'.
  GS_FTPOST-FVAL  = SY-DATUM.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.

  GS_FTPOST-STYPE = LC_HEADER.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'BKPF-BLART'.
  GS_FTPOST-FVAL  = 'SA'.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.


  GS_FTPOST-STYPE = LC_HEADER.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'BKPF-BUKRS'.
  GS_FTPOST-FVAL  = '1000'.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.

  GS_FTPOST-STYPE = LC_HEADER.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'BKPF-WAERS'. "Currency
  GS_FTPOST-FVAL  = 'USD'.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.

*  GS_FTPOST-STYPE = LC_HEADER.
*  GS_FTPOST-COUNT = LC_COUNT.
*  GS_FTPOST-FNAM  = 'BKPF-XBLNR'.
*  GS_FTPOST-FVAL  = PA_XBLNR.
*  APPEND GS_FTPOST TO GT_FTPOST.
*  CLEAR GS_FTPOST.

*  GS_FTPOST-STYPE = LC_HEADER.
*  GS_FTPOST-COUNT = LC_COUNT.
*  GS_FTPOST-FNAM  = 'BKPF-BKTXT'. "Doc. Header Text
*  GS_FTPOST-FVAL  = PA_TEXT.
*  APPEND GS_FTPOST TO GT_FTPOST.
*  CLEAR GS_FTPOST.

*Commented temporarily
*  gs_ftpost-stype = lc_header.
*  gs_ftpost-count = lc_count.
*  gs_ftpost-fnam  = 'BKPF-KURSF'. "Exchange Rate
*  gs_ftpost-fval  = pa_erate.
*  SHIFT gs_ftpost-fval LEFT DELETING LEADING space.
*  APPEND gs_ftpost TO gt_ftpost.
*  CLEAR gs_ftpost.

*Item Data
  GS_FTPOST-STYPE = LC_ITEM.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'RF05A-NEWKO'.
  GS_FTPOST-FVAL  = 'MA03E'.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.

  GS_FTPOST-STYPE = LC_ITEM.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'RF05A-NEWBS'.
  GS_FTPOST-FVAL  = '31'.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.

  GS_FTPOST-STYPE = LC_ITEM.
  GS_FTPOST-COUNT = LC_COUNT.
  GS_FTPOST-FNAM  = 'BSEG-WRBTR'.
  GS_FTPOST-FVAL  = '1000'.
  SHIFT GS_FTPOST-FVAL LEFT DELETING LEADING SPACE.
  APPEND GS_FTPOST TO GT_FTPOST.
  CLEAR GS_FTPOST.

* Convert the date format from  YYYYMMDD -> DD/MM/YYYY
*  PERFORM: F_CONVERT_DATE USING PA_VALUT
*                         CHANGING PA_VALUT.

*  GS_FTPOST-STYPE = LC_ITEM.
*  GS_FTPOST-COUNT = LC_COUNT.
*  GS_FTPOST-FNAM  = 'BSEG-VALUT'.
*  GS_FTPOST-FVAL  = SY-DATUM.
*  APPEND GS_FTPOST TO GT_FTPOST.
*  CLEAR GS_FTPOST.
*
** Convert the date format from  YYYYMMDD -> DD/MM/YYYY
*  PERFORM: F_CONVERT_DATE USING PA_ZFBDT
*                         CHANGING PA_ZFBDT.
*  GS_FTPOST-STYPE = LC_ITEM.
*  GS_FTPOST-COUNT = LC_COUNT.
*  GS_FTPOST-FNAM  = 'BSEG-ZFBDT'.
*  GS_FTPOST-FVAL  = PA_ZFBDT.
*  APPEND GS_FTPOST TO GT_FTPOST.
*  CLEAR GS_FTPOST.


ENDFORM." F_PREPARE_FTPOST
*&---------------------------------------------------------------------*
*&      Form  f_prepare_ftclear
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F_PREPARE_FTCLEAR .
  DATA: LS_FTCLEAR TYPE FTCLEAR.
  CONSTANTS: LC_AGKOA TYPE KOART VALUE 'S', "Customers
             LC_SELFD TYPE FLD30_F05A VALUE 'BELNR'.
  LOOP AT GT_BSID_CLEARING INTO GS_BSID_CLEARING. "Clearing Table
    LS_FTCLEAR-AGKOA = LC_AGKOA.
*    LS_FTCLEAR-AGKON = '200120'. "Customer
    LS_FTCLEAR-AGBUK = '1000'. "Company code
    LS_FTCLEAR-XNOPS = 'X'. "G/L Indicator
    LS_FTCLEAR-SELFD = LC_SELFD.
*    LS_FTCLEAR-AVSID = '2000000302'.
<span style="color:#FF0000">    LS_FTCLEAR-SELVON = '2000000303'.
    LS_FTCLEAR-SELBIS = '2000000303'.</span>

    APPEND LS_FTCLEAR TO GT_FTCLEAR.
  ENDLOOP.
ENDFORM." F_PREPARE_FTCLEAR
*&---------------------------------------------------------------------*
*&      Form  f_posting_interface_end
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F_POSTING_INTERFACE_END .
  CALL FUNCTION 'POSTING_INTERFACE_END'
    EXPORTING
      I_BDCIMMED              = 'X'
    EXCEPTIONS
      SESSION_NOT_PROCESSABLE = 1
      OTHERS                  = 2.
  IF SY-SUBRC <> 0.
    MESSAGE 'ERROR' TYPE 'S'.
  ENDIF.
ENDFORM.                    " F_POSTING_INTERFACE_END

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

*&---------------------------------------------------------------------*

*& Report ZBAPI_POST_CLEAR_TEST

*&---------------------------------------------------------------------*

REPORT ZBAPI_POST_CLEAR_TEST.

DATA:GT_BLNTAB TYPE STANDARD TABLE OF BLNTAB INITIAL SIZE 0,

GT_BSID_CLEARING TYPE STANDARD TABLE OF BSID INITIAL SIZE 0 ,

GT_FTCLEAR TYPE STANDARD TABLE OF FTCLEAR INITIAL SIZE 0,

GT_FTPOST TYPE STANDARD TABLE OF FTPOST INITIAL SIZE 0 ,

GT_FTTAX TYPE STANDARD TABLE OF FTTAX INITIAL SIZE 0 .

DATA:GS_FTPOST LIKE LINE OF GT_FTPOST,

GS_BSID_CLEARING LIKE LINE OF GT_BSID_CLEARING.

START-OF-SELECTION.

GS_BSID_CLEARING-BELNR = '2000000303'.

GS_BSID_CLEARING-GJAHR = '2013'.

GS_BSID_CLEARING-BUZEI = 1.

APPEND GS_BSID_CLEARING TO GT_BSID_CLEARING.

PERFORM: F_POSTING_INTERFACE_START.

PERFORM: F_POSTING_INTERFACE_CLEARING.

PERFORM: F_POSTING_INTERFACE_END.

*&---------------------------------------------------------------------*

*& Form f_posting_interface_start

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM F_POSTING_INTERFACE_START .

CONSTANTS: LC_FUNCTION LIKE RFIPI-FUNCT VALUE 'C',

" B= BDC, C= Call Trans

LC_MODE LIKE RFPDO-ALLGAZMD VALUE 'E', "ERRORS only

LC_UPDATE LIKE RFPDO-ALLGVBMD VALUE 'S' .

CALL FUNCTION 'POSTING_INTERFACE_START'

EXPORTING

I_FUNCTION = LC_FUNCTION

I_MODE = LC_MODE

I_UPDATE = LC_UPDATE

EXCEPTIONS

CLIENT_INCORRECT = 1

FUNCTION_INVALID = 2

GROUP_NAME_MISSING = 3

MODE_INVALID = 4

UPDATE_INVALID = 5

OTHERS = 6.

IF SY-SUBRC <> 0.

MESSAGE 'ERROR' TYPE 'S'.

ENDIF.

ENDFORM." F_POSTING_INTERFACE_START

*&---------------------------------------------------------------------*

*& Form f_posting_interface_clearing

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM F_POSTING_INTERFACE_CLEARING.

CONSTANTS: LC_AUGLV TYPE AUGLV VALUE 'EINGZAHL',

LC_TCODE TYPE SYTCODE VALUE 'FB05',

LC_SGFUNCT TYPE SGFUNCT_PI VALUE 'C'.

PERFORM: F_PREPARE_FTPOST.

PERFORM: F_PREPARE_FTCLEAR.

CALL FUNCTION 'POSTING_INTERFACE_CLEARING'

EXPORTING

I_AUGLV = LC_AUGLV

I_TCODE = LC_TCODE

I_SGFUNCT = LC_SGFUNCT

TABLES

T_BLNTAB = GT_BLNTAB

T_FTCLEAR = GT_FTCLEAR

T_FTPOST = GT_FTPOST

T_FTTAX = GT_FTTAX

EXCEPTIONS

CLEARING_PROCEDURE_INVALID = 1

CLEARING_PROCEDURE_MISSING = 2

TABLE_T041A_EMPTY = 3

TRANSACTION_CODE_INVALID = 4

AMOUNT_FORMAT_ERROR = 5

TOO_MANY_LINE_ITEMS = 6

COMPANY_CODE_INVALID = 7

SCREEN_NOT_FOUND = 8

NO_AUTHORIZATION = 9

OTHERS = 10.

IF SY-SUBRC <> 0.

CASE SY-SUBRC.

WHEN '1'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '2'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '3'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '4'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '5'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '6'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '7'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '8'.

MESSAGE 'ERROR' TYPE 'S'.

WHEN '9'.

MESSAGE 'ERROR' TYPE 'S'.

ENDCASE.

ELSE.

COMMIT WORK.

SET SCREEN 0.

ENDIF.

ENDFORM." F_POSTING_INTERFACE_CLEARING

*&---------------------------------------------------------------------*

*& Form f_prepare_ftpost

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM F_PREPARE_FTPOST .

CONSTANTS: LC_HEADER TYPE C VALUE 'K', "Header

LC_ITEM TYPE C VALUE 'P', "Item

LC_COUNT TYPE I VALUE '001'.

*fill_header(BKPF)

* Convert the date format from YYYYMMDD -> DD/MM/YYYY

* PERFORM: F_CONVERT_DATE USING PA_BLDAT

* CHANGING PA_BLDAT.

GS_FTPOST-STYPE = LC_HEADER.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'BKPF-BLDAT'.

GS_FTPOST-FVAL = SY-DATUM.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

* Convert the date format from YYYYMMDD -> DD/MM/YYYY

* PERFORM: F_CONVERT_DATE USING PA_BUDAT

* CHANGING PA_BUDAT.

GS_FTPOST-STYPE = LC_HEADER.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'BKPF-BUDAT'.

GS_FTPOST-FVAL = SY-DATUM.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

GS_FTPOST-STYPE = LC_HEADER.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'BKPF-BLART'.

GS_FTPOST-FVAL = 'SA'.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

GS_FTPOST-STYPE = LC_HEADER.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'BKPF-BUKRS'.

GS_FTPOST-FVAL = '1000'.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

GS_FTPOST-STYPE = LC_HEADER.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'BKPF-WAERS'. "Currency

GS_FTPOST-FVAL = 'USD'.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

* GS_FTPOST-STYPE = LC_HEADER.

* GS_FTPOST-COUNT = LC_COUNT.

* GS_FTPOST-FNAM = 'BKPF-XBLNR'.

* GS_FTPOST-FVAL = PA_XBLNR.

* APPEND GS_FTPOST TO GT_FTPOST.

* CLEAR GS_FTPOST.

* GS_FTPOST-STYPE = LC_HEADER.

* GS_FTPOST-COUNT = LC_COUNT.

* GS_FTPOST-FNAM = 'BKPF-BKTXT'. "Doc. Header Text

* GS_FTPOST-FVAL = PA_TEXT.

* APPEND GS_FTPOST TO GT_FTPOST.

* CLEAR GS_FTPOST.

*Commented temporarily

* gs_ftpost-stype = lc_header.

* gs_ftpost-count = lc_count.

* gs_ftpost-fnam = 'BKPF-KURSF'. "Exchange Rate

* gs_ftpost-fval = pa_erate.

* SHIFT gs_ftpost-fval LEFT DELETING LEADING space.

* APPEND gs_ftpost TO gt_ftpost.

* CLEAR gs_ftpost.

*Item Data

GS_FTPOST-STYPE = LC_ITEM.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'RF05A-NEWKO'.

GS_FTPOST-FVAL = 'MA03E'.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

GS_FTPOST-STYPE = LC_ITEM.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'RF05A-NEWBS'.

GS_FTPOST-FVAL = '31'.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

GS_FTPOST-STYPE = LC_ITEM.

GS_FTPOST-COUNT = LC_COUNT.

GS_FTPOST-FNAM = 'BSEG-WRBTR'.

GS_FTPOST-FVAL = '1000'.

SHIFT GS_FTPOST-FVAL LEFT DELETING LEADING SPACE.

APPEND GS_FTPOST TO GT_FTPOST.

CLEAR GS_FTPOST.

* Convert the date format from YYYYMMDD -> DD/MM/YYYY

* PERFORM: F_CONVERT_DATE USING PA_VALUT

* CHANGING PA_VALUT.

* GS_FTPOST-STYPE = LC_ITEM.

* GS_FTPOST-COUNT = LC_COUNT.

* GS_FTPOST-FNAM = 'BSEG-VALUT'.

* GS_FTPOST-FVAL = SY-DATUM.

* APPEND GS_FTPOST TO GT_FTPOST.

* CLEAR GS_FTPOST.

** Convert the date format from YYYYMMDD -> DD/MM/YYYY

* PERFORM: F_CONVERT_DATE USING PA_ZFBDT

* CHANGING PA_ZFBDT.

* GS_FTPOST-STYPE = LC_ITEM.

* GS_FTPOST-COUNT = LC_COUNT.

* GS_FTPOST-FNAM = 'BSEG-ZFBDT'.

* GS_FTPOST-FVAL = PA_ZFBDT.

* APPEND GS_FTPOST TO GT_FTPOST.

* CLEAR GS_FTPOST.

ENDFORM." F_PREPARE_FTPOST

*&---------------------------------------------------------------------*

*& Form f_prepare_ftclear

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM F_PREPARE_FTCLEAR .

DATA: LS_FTCLEAR TYPE FTCLEAR.

CONSTANTS: LC_AGKOA TYPE KOART VALUE 'S', "Customers

LC_SELFD TYPE FLD30_F05A VALUE 'BELNR'.

LOOP AT GT_BSID_CLEARING INTO GS_BSID_CLEARING. "Clearing Table

LS_FTCLEAR-AGKOA = LC_AGKOA.

* LS_FTCLEAR-AGKON = '200120'. "Customer

LS_FTCLEAR-AGBUK = '1000'. "Company code

LS_FTCLEAR-XNOPS = 'X'. "G/L Indicator

LS_FTCLEAR-SELFD = LC_SELFD.

* LS_FTCLEAR-AVSID = '2000000302'.

<span style="color:#FF0000"> LS_FTCLEAR-SELVON = '2000000303'.

LS_FTCLEAR-SELBIS = '2000000303'.</span>

APPEND LS_FTCLEAR TO GT_FTCLEAR.

ENDLOOP.

ENDFORM." F_PREPARE_FTCLEAR

*&---------------------------------------------------------------------*

*& Form f_posting_interface_end

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM F_POSTING_INTERFACE_END .

CALL FUNCTION 'POSTING_INTERFACE_END'

EXPORTING

I_BDCIMMED = 'X'

EXCEPTIONS

SESSION_NOT_PROCESSABLE = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE 'ERROR' TYPE 'S'.

ENDIF.

ENDFORM. " F_POSTING_INTERFACE_END

2017.11.20

4.5K100

文章

SAP批创建清账凭证的函数

POSTING_INTERFACE_CLEARINGPOSTING_INTERFACE_DOCUMENTPOSTING_INTERFACE_ENDPOSTING_INTERFACE…

ag
2017.08.16
3.2K020

2 / 2
上一页
1
2

清账

ABAP清账例子2

ABAP清账实现例子1

SAP批创建清账凭证的函数