Title
采购订单Message输出打印
很多业务中需要在完成订单的时候来进行单据打印的输出操作，比如新建采购订单的时候，需要输出采购订单的PDF或者使用邮件功能来将采购订单发送给制定人员
SAP 有标准MESSAGE输出的配置功能-TCODE NACE
下面我们就根据采购订单保存时生成一个message smartforms 来说明一下
一 Nace配置
- 设置输出类型
从NEU复制一个到ZNEU目前我们是对于功能1打印输出来做定制化，所以需要选中ZNEU，双击处理程序(保存采购订单后调用的程序FORM)
⽬前我们是对于功能1打印输出来做定制化，所以需要选中ZNEU，双击处理程序(保存 采购订单后调⽤的程序FORM)
发现它是使⽤SAPFM06P使⽤ADOBE FORM来输出的，这⾥对于我们⼀般的ABAPer 来说，使⽤smartforms会⽐较熟练，所以我们创建⼀个:ZTAB_ZHU_PO_OUT_FORM 程序 来调⽤我⾃⼰定义的smartforms来输出打印 设置如下图
- 设置条件记录
- 选择我们创建的ZNEU输出类型
选择根据采购组织和供应商来确定Message 的输出
当我们第一进入时，可以选择左上角输出定价菜单→创建
添加一条条件记录如下图所示：其中VN是供应商功能类型，媒介1表示打印输出，调度时间4表示需要立即输出
同时我们可以点击通讯来对某个供应商设置打印属性设置：
如下图可以对采购组织1310 和供应商133000273的订单输出设置打印设备为LP01，且立即打印
- 设置过程
设置完毕后退出，点击过程来添加设置好的输出类型
可以选择原来的过程进行添加，也可以单独创建一个过程
在新添加的过程ZRMBEF中添加ZNEU 需求为101
- SPRO配置
接下来还要在SPRO→物料管理→采购→消息→输出控制→信息类型→定义采购订单的消息类型，添加ZNEU的输出类型
该配置是在采购订单创建和修改时自动在消息中追加一条Message 输出
如下图是订单在修改之后或者创建时自动添加的一条未处理Message输出
同时在SPRO→物料管理→采购→消息→输出控制→信息类型→信息确定方案 ，将过程RMBEF1修改为之前定义的过程ZRMBEF
当配置和程序都完毕时，我们去ME21N创建对应供应商的采购订单
当保存PO时，弹出框调用WINDOWS本地打印机输出为PDF
二 代码部分
重点关注以下几点内容：
- 在采购订单保存成功之后，后台程序仅仅会调用 ZTAB_ZHU_PO_OUT_FORM中的FORM enter_neu.
- 使用Function 'ME_READ_PO_FOR_PRINTING' 来获取当前PO的信息，都放在doc的返回参数中
- 程序中TNAPR存放着调用程序，SMARTFORMS的信息，所以smartforms为TNAPR-SFORM
- 在程序中发生错误或者打印成功后，使用Function 'NAST_PROTOCOL_UPDATE' 来更新NAST表，NAST表为记录所有OUTPUT Message 状态的表
1 *&---------------------------------------------------------------------*
2 *& Report ZTAB_ZHU_PO_OUT_FORM
3 *&---------------------------------------------------------------------*
4 *&
5 *&---------------------------------------------------------------------*
6 REPORT ztab_zhu_po_out_form.
7
8 INCLUDE rvadtabl.
9 DATA:
10 xscreen, "Output on printer or screen
11 nast_anzal LIKE nast-anzal, "Number of outputs (Orig. + Cop.)
12 nast_tdarmod LIKE nast-tdarmod. "Archiving only one time
13
14 * Type Pools
15 TYPE-POOLS: meein.
16
17 * DDIC-Tabellen
18 DATA:
19 addr1_sel LIKE addr1_sel,
20 addr1_val LIKE addr1_val.
21
22 DATA:
23 cdhdr TYPE cdhdr,
24 cdshw TYPE cdshw,
25 gs_dd04t TYPE dd04t,
26 ekes TYPE ekes,
27 eket TYPE eket,
28 ekko TYPE ekko,
29 ekpo TYPE ekpo,
30 gs_elbp TYPE elbp,
31 esuh TYPE esuh,
32 komg TYPE komg,
33 komk TYPE komk,
34 komp TYPE komp,
35 konp TYPE konp,
36 gs_lfa1 TYPE lfa1,
37 gs_lfm1 TYPE lfm1,
38 mdpa TYPE mdpa,
39 gs_t001 TYPE t001,
40 gs_t001n TYPE t001n,
41 t001w TYPE t001w,
42 gs_t005 TYPE t005,
43 gs_t100 TYPE t100,
44 t161m TYPE t161m,
45 t166c TYPE t166c,
46 gs_t166t TYPE t166t,
47 gs_t685b TYPE t685b,
48 gs_tinct TYPE tinct,
49 wyt3 TYPE wyt3.
50
51
52 * Interne Tabellen
53 DATA:
54 i_cdhdr LIKE cdhdr OCCURS 0 WITH HEADER LINE,
55 i_cdshw LIKE cdshw OCCURS 0 WITH HEADER LINE,
56 i_dd03l LIKE dd03l OCCURS 0 WITH HEADER LINE,
57 i_ekes LIKE ekes OCCURS 0 WITH HEADER LINE,
58 i_eket LIKE eket OCCURS 0 WITH HEADER LINE,
59 i_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE,
60 i_konp LIKE konp OCCURS 0 WITH HEADER LINE,
61 i_mdsb LIKE mdsb OCCURS 0 WITH HEADER LINE,
62 i_nast LIKE nast OCCURS 0 WITH HEADER LINE,
63 i_t001w LIKE t001w OCCURS 0 WITH HEADER LINE,
64 i_t161m LIKE t161m OCCURS 0 WITH HEADER LINE,
65 i_t166c LIKE t166c OCCURS 0 WITH HEADER LINE,
66 i_t166k LIKE t166k OCCURS 0 WITH HEADER LINE,
67 i_t166p LIKE t166p OCCURS 0 WITH HEADER LINE,
68 i_t166t LIKE t166t OCCURS 0 WITH HEADER LINE,
69 i_ttext LIKE ttext OCCURS 0 WITH HEADER LINE,
70 i_ttxit LIKE ttxit OCCURS 0 WITH HEADER LINE,
71 i_wyt3 LIKE wyt3 OCCURS 0 WITH HEADER LINE.
72
73 DATA: gs_cdshw TYPE cdshw.
74
75 DATA:
76 i2_cdred LIKE cdred OCCURS 0 WITH HEADER LINE,
77 i2_cdshw LIKE cdshw OCCURS 0 WITH HEADER LINE,
78 i2_eket LIKE eket OCCURS 0 WITH HEADER LINE,
79 i2_konp LIKE konp OCCURS 0 WITH HEADER LINE,
80 i2_mdpm LIKE mdpm OCCURS 0 WITH HEADER LINE,
81 i2_mdsb LIKE mdsb OCCURS 0 WITH HEADER LINE.
82
83 DATA:
84 tkomv LIKE komv OCCURS 0 WITH HEADER LINE,
85 tkomvd LIKE komvd OCCURS 0 WITH HEADER LINE,
86 tkomvd_2 LIKE komvd OCCURS 0 WITH HEADER LINE.
87
88 DATA:
89 ls_doc TYPE meein_purchase_doc_print.
90
91 * Smartforms Rückgabestrukturen
92 DATA:
93 * document_output_info TYPE ssfcrespd,
94 job_output_info TYPE ssfcrescl,
95 * job_output_options TYPE ssfcresop,
96 spoolids TYPE rspoid.
97
98 * Sonstige Variable
99 DATA:
100 c1,
101 gv_tdid TYPE tdid,
102 c10(10),
103 c20(20),
104 c80(80),
105 c100(100),
106 ix_from_memory TYPE char1,
107 xdruvo LIKE t166k-druvo,
108 xindex LIKE sy-index,
109 xobjcl LIKE cdhdr-objectclas,
110 xobjid LIKE cdhdr-objectid,
111 xretco LIKE sy-subrc,
112 xrolln LIKE dd04t-rollname,
113 xspool TYPE rspoid,
114 xsubrc LIKE sy-subrc,
115 xtdid TYPE stxh-tdid,
116 xtdnam TYPE stxh-tdname,
117 xxaend TYPE meein_xaend,
118 zaehl TYPE i.
119
120 DATA: ls_repid TYPE repid,
121 ls_bukrs TYPE bukrs,
122 lv_adrnr TYPE lfa1-adrnr.
123
124 TYPES: tt_mmpa TYPE TABLE OF mmpa.
125
126 FIELD-SYMBOLS: <xmmpa> TYPE tt_mmpa,
127 <ls_xmmpa> TYPE mmpa.
128
129 DATA ls_xekpa TYPE msgpa. "ekpa.
130
131 * Startroutine Nachricht NEU
132 FORM entry_neu USING return_code TYPE i
133 us_screen TYPE c.
134 CLEAR: xsubrc.
135
136 xretco = return_code.
137 xscreen = us_screen.
138
139 PERFORM processing USING us_screen
140 CHANGING xsubrc.
141
142 IF xsubrc NE 0.
143 return_code = 1.
144 ELSE.
145 return_code = 0.
146 ENDIF.
147 ENDFORM. "ENTRY_NEU
148
149 FORM processing USING proc_screen TYPE c
150 CHANGING cf_retcode TYPE i.
151 DATA:
152 lf_fm_name TYPE rs38l_fnam,
153 lf_formname TYPE tdsfname,
154 ls_addr_key LIKE addr_key,
155 ls_composer_param TYPE ssfcompop,
156 ls_control_param TYPE ssfctrlop,
157 ls_recipient TYPE swotobjid,
158 ls_sender TYPE swotobjid.
159
160 * Sonderroutine bei Ausgabe Mail mit Anlagen
161 * ( Aufruf aus ZAMMMP0001 )
162 CLEAR xspool.
163
164 * Löschen Flag "CX_FROM_MEMORY"
165 CLEAR: cf_retcode, ix_from_memory.
166
167 * Datenbeschaffung
168 CALL FUNCTION 'ME_READ_PO_FOR_PRINTING'
169 EXPORTING
170 ix_nast = nast
171 ix_screen = proc_screen
172 IMPORTING
173 ex_retco = cf_retcode
174 doc = ls_doc
175 * ex_nast = xnast
176 CHANGING
177 cx_druvo = xdruvo
178 cx_from_memory = ix_from_memory.
179 CHECK cf_retcode = 0.
180
181
182 * Übernahme Änderungen in int. Tabelle für Smartforms
183 PERFORM aenderungsbelege.
184
185 SELECT SINGLE * FROM lfa1 INTO gs_lfa1
186 WHERE lifnr = nast-parnr.
187
188 lf_formname = tnapr-sform.
189
190 * Aufbereitung Druckparameter
191 PERFORM set_print_param USING ls_addr_key
192 gs_lfa1-land1
193 CHANGING ls_control_param
194 ls_composer_param
195 ls_recipient
196 ls_sender
197 cf_retcode.
198
199 * Bestimmung Funktionsbaustein für Smartforms-Formular
200 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
201 EXPORTING
202 formname = lf_formname
203 IMPORTING
204 fm_name = lf_fm_name
205 EXCEPTIONS
206 no_form = 1
207 no_function_module = 2
208 OTHERS = 3.
209
210 IF sy-subrc NE 0.
211 cf_retcode = sy-subrc.
212 PERFORM protocol_update.
213 ENDIF.
214
215 CHECK cf_retcode = 0.
216
217 nast_tdarmod = nast-tdarmod.
218 nast_anzal =
219 ls_composer_param-tdnewid = 'X'.
220
221 ls_composer_param-tdcopies = nast-anzal.
222
223 * Aufruf Smartforms-FB
224 CALL FUNCTION lf_fm_name
225 EXPORTING
226 archive_index = toa_dara
227 archive_parameters = arc_params
228 control_parameters = ls_control_param
229 mail_recipient = ls_recipient
230 mail_sender = ls_sender
231 output_options = ls_composer_param
232 user_settings = space
233 ekko = ls_doc-xekko
234 nast = nast
235 IMPORTING
236 * document_output_info = document_output_info
237 job_output_info = job_output_info
238 * job_output_options = job_output_options
239 TABLES
240 t_ekpo = ls_doc-xekpo
241 EXCEPTIONS
242 formatting_error = 1
243 internal_error = 2
244 send_error = 3
245 user_canceled = 4
246 OTHERS = 5.
247
248 * Fehlerprotokoll
249 IF sy-subrc NE 0.
250 cf_retcode = sy-subrc.
251 PERFORM protocol_update.
252 PERFORM add_smfrm_prot.
253 ENDIF.
254
255 * Ermitteln Spool-Nummer
256 LOOP AT job_output_info-spoolids INTO spoolids.
257 CHECK spoolids NE space.
258
259 PERFORM protocol_update_spool USING '342' spoolids
260 space space space.
261 xspool = spoolids.
262 ENDLOOP.
263
264
265
266 IF NOT nast_tdarmod IS INITIAL.
267 nast-tdarmod = nast_tdarmod.
268 CLEAR nast_tdarmod.
269 ENDIF.
270
271 IF NOT xspool IS INITIAL.
272 sy-msgid = 'VN'.
273 sy-msgty = 'I'.
274 sy-msgno = '342'.
275 sy-msgv1 = xspool.
276 ENDIF.
277 ENDFORM.
278 *&---------------------------------------------------------------------*
279 *& Form aenderungsbelege
280 *&---------------------------------------------------------------------*
281 *& text
282 *&---------------------------------------------------------------------*
283 *& --> p1 text
284 *& <-- p2 text
285 *&---------------------------------------------------------------------*
286 FORM aenderungsbelege .
287 REFRESH i_cdshw.
288
289 LOOP AT ls_doc-xaend INTO xxaend.
290 * Keine Änderungen aus Bestellbestätigungen
291 CHECK xxaend-tabname NE 'EKES'.
292
293 * Keine Änderungen aus Einteilungen (ausser Liefertermin)
294 IF xxaend-tabname = 'EKET'.
295 CHECK xxaend-fname = 'EINDT'.
296 ENDIF.
297
298 * Datenübernahme in Änderungsstruktur
299 MOVE-CORRESPONDING xxaend TO i_cdshw.
300
301 * Aufbereitung überflüssiger Nachkommastellen
302 REPLACE ',000 ' WITH space INTO i_cdshw-f_old.
303 REPLACE ',000 ' WITH space INTO i_cdshw-f_new.
304
305 * Feldbezeichnung in Nachrichtensprache
306 SELECT * FROM dd03l
307 INTO TABLE i_dd03l
308 WHERE tabname = i_cdshw-tabname
309 AND fieldname = i_cdshw-fname
310 ORDER BY PRIMARY KEY. "BHS120614(+).
311
312 IF sy-subrc = 0.
313 READ TABLE i_dd03l INDEX 1.
314
315 PERFORM lesen_datenelement
316 USING i_dd03l-rollname 'M' i_cdshw-ftext.
317 ENDIF.
318
319 * Aufbau Tabelle mit Änderungsbelegen
320 APPEND i_cdshw.
321 ENDLOOP.
322
323 CHECK sy-subrc NE 0.
324
325 * Prüfen, ob bereits mindestens 1 verarbeitete Nachricht vorliegt
326 SELECT * FROM nast
327 INTO TABLE i_nast
328 WHERE kappl = nast-kappl
329 AND objky = nast-objky
330 AND kschl = nast-kschl
331 AND vstat = '1'
332 ORDER BY PRIMARY KEY. "BHS120614(+).
333 CHECK sy-subrc = 0.
334
335 * Letzte verarbeitete Nachricht wg. Timestamp für Änderungsbelege
336 DESCRIBE TABLE i_nast LINES xindex.
337
338 IF xindex > 1.
339 SELECT COUNT( * ) FROM nast
340 WHERE kappl = nast-kappl
341 AND objky = nast-objky
342 AND kschl = nast-kschl
343 AND vstat = '0'.
344
345 IF sy-subrc NE 0.
346 xindex = xindex - 1.
347 ENDIF.
348 ENDIF.
349
350 READ TABLE i_nast INDEX xindex.
351
352 * Lesen Änderungsbelege
353 PERFORM lesen_aenderungsbelege USING 'EINKBELEG' nast-objky.
354 ENDFORM.
355 *&---------------------------------------------------------------------*
356 *& Form lesen_aenderungsbelege
357 *&---------------------------------------------------------------------*
358 *& text
359 *&---------------------------------------------------------------------*
360 *& --> P_
361 *& --> NAST_OBJKY
362 *&---------------------------------------------------------------------*
363 FORM lesen_aenderungsbelege USING xxobjcl TYPE cdhdr-objectclas
364 xxobjid TYPE nast-objky.
365 CHECK nast-kschl = 'NEU '.
366
367 xobjcl = xxobjcl.
368 xobjid = xxobjid.
369
370 CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
371 EXPORTING
372 objectclass = xobjcl
373 objectid = xobjid
374 username = space
375 TABLES
376 i_cdhdr = i_cdhdr
377 EXCEPTIONS
378 no_position_found = 1
379 wrong_access_to_archive = 2
380 time_zone_conversion_error = 3
381 OTHERS = 4.
382 CHECK sy-subrc = 0.
383
384 LOOP AT i_cdhdr INTO cdhdr.
385 CHECK cdhdr-udate > i_nast-datvr
386 OR ( cdhdr-udate = i_nast-datvr AND
387 cdhdr-utime > i_nast-uhrvr ).
388
389 CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
390 EXPORTING
391 changenumber = cdhdr-changenr
392 TABLES
393 editpos = i2_cdshw
394 editpos_with_header = i2_cdred
395 EXCEPTIONS
396 no_position_found = 1
397 wrong_access_to_archive = 2
398 OTHERS = 3.
399 CHECK sy-subrc = 0.
400
401 * APPEND LINES OF i2_cdred TO i_cdred.
402 APPEND LINES OF i2_cdshw TO i_cdshw.
403 ENDLOOP.
404
405 * Prüfung änderungsrelevante Felder
406 SELECT * FROM t166c
407 INTO TABLE i_t166c.
408
409 CASE ls_doc-xekko-bstyp.
410 WHEN 'A'.
411 DELETE i_t166c WHERE xanfr NE 'X'.
412 WHEN 'F'.
413 DELETE i_t166c WHERE xbest NE 'X'.
414 WHEN 'K'.
415 DELETE i_t166c WHERE xkont NE 'X'.
416 WHEN 'L'.
417 DELETE i_t166c WHERE xlfpl NE 'X'.
418 ENDCASE.
419
420 * Keine Änderungen aus Einteilungen und Bestellbestätigungen
421 DELETE i_cdshw WHERE tabname = 'EKES'.
422
423 DELETE i_cdshw WHERE tabname = 'EKET'
424 AND fname NE 'EINDT'.
425
426 LOOP AT i_cdshw WHERE chngind = 'U'.
427 READ TABLE i_t166c WITH KEY tname = i_cdshw-tabname
428 fname = i_cdshw-fname.
429 IF sy-subrc NE 0.
430 DELETE i_cdshw.
431 CONTINUE.
432 ENDIF.
433
434 * Druckaufbereitung
435 * Aufbereitung überflüssiger Nachkommastellen
436 REPLACE ',000 ' WITH space INTO i_cdshw-f_old.
437 REPLACE ',000 ' WITH space INTO i_cdshw-f_new.
438
439 * Feldbezeichnung in Nachrichtensprache
440 SELECT * FROM dd03l
441 INTO TABLE i_dd03l
442 WHERE tabname = i_cdshw-tabname
443 AND fieldname = i_cdshw-fname
444 ORDER BY PRIMARY KEY. "BHS120614(+).
445
446 IF sy-subrc = 0.
447 READ TABLE i_dd03l INDEX 1.
448
449 PERFORM lesen_datenelement
450 USING i_dd03l-rollname 'M' i_cdshw-ftext.
451 ENDIF.
452
453 MODIFY i_cdshw.
454 ENDLOOP.
455 ENDFORM.
456 *&---------------------------------------------------------------------*
457 *& Form set_print_param
458 *&---------------------------------------------------------------------*
459 *& text
460 *&---------------------------------------------------------------------*
461 *& --> LS_ADDR_KEY
462 *& --> GS_LFA1_LAND1
463 *& <-- LS_CONTROL_PARAM
464 *& <-- LS_COMPOSER_PARAM
465 *& <-- LS_RECIPIENT
466 *& <-- LS_SENDER
467 *& <-- CF_RETCODE
468 *&---------------------------------------------------------------------*
469 FORM set_print_param USING is_addr_key LIKE addr_key
470 xxland1 LIKE lfa1-land1
471 CHANGING cs_control_param TYPE ssfctrlop
472 cs_composer_param TYPE ssfcompop
473 cs_recipient TYPE swotobjid
474 cs_sender TYPE swotobjid
475 cf_retcode TYPE sy-subrc.
476 DATA:
477 lf_device TYPE tddevice,
478 lf_repid TYPE sy-repid,
479 ls_itcpo TYPE itcpo.
480
481 lf_repid = sy-repid.
482
483 CALL FUNCTION 'WFMC_PREPARE_SMART_FORM'
484 EXPORTING
485 pi_nast = nast
486 pi_country = xxland1
487 pi_addr_key = is_addr_key
488 pi_repid = lf_repid
489 pi_screen = xscreen
490 IMPORTING
491 pe_returncode = cf_retcode
492 pe_itcpo = ls_itcpo
493 pe_device = lf_device
494 pe_recipient = cs_recipient
495 pe_sender = cs_sender.
496
497 IF cf_retcode = 0.
498 MOVE-CORRESPONDING ls_itcpo TO cs_composer_param.
499
500 CLEAR cs_composer_param-tddelete.
501 cs_composer_param-tdlifetime = 8.
502
503 cs_control_param-device = lf_device.
504 cs_control_param-no_dialog = ''.
505 cs_control_param-preview = xscreen.
506 cs_control_param-getotf = ls_itcpo-tdgetotf.
507 cs_control_param-langu = nast-spras.
508 ENDIF.
509
510 ENDFORM.
511 *&---------------------------------------------------------------------*
512 *& Form protocol_update
513 *&---------------------------------------------------------------------*
514 *& text
515 *&---------------------------------------------------------------------*
516 *& --> p1 text
517 *& <-- p2 text
518 *&---------------------------------------------------------------------*
519 FORM protocol_update .
520 IF xscreen NE space.
521 MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
522 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
523 EXIT.
524 ENDIF.
525
526 CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
527 EXPORTING
528 msg_arbgb = syst-msgid
529 msg_nr = syst-msgno
530 msg_ty = syst-msgty
531 msg_v1 = syst-msgv1
532 msg_v2 = syst-msgv2
533 msg_v3 = syst-msgv3
534 msg_v4 = syst-msgv4
535 EXCEPTIONS
536 OTHERS = 1.
537 ENDFORM.
538 *&---------------------------------------------------------------------*
539 *& Form add_smfrm_prot
540 *&---------------------------------------------------------------------*
541 *& text
542 *&---------------------------------------------------------------------*
543 *& --> p1 text
544 *& <-- p2 text
545 *&---------------------------------------------------------------------*
546 FORM add_smfrm_prot .
547 DATA:
548 l_s_log TYPE bal_s_log,
549 l_s_msg TYPE bal_s_msg,
550 lt_errortab TYPE tsferror,
551 p_loghandle TYPE balloghndl.
552
553 FIELD-SYMBOLS:
554 <fs_errortab> TYPE LINE OF tsferror.
555
556 * Fehlertabelle lesen
557 CALL FUNCTION 'SSF_READ_ERRORS'
558 IMPORTING
559 errortab = lt_errortab.
560
561 SORT lt_errortab.
562
563 * Hinzufügen Smartforms Protokoll zum Nachrichtenprotokoll
564 LOOP AT lt_errortab ASSIGNING <fs_errortab>.
565 CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
566 EXPORTING
567 msg_arbgb = <fs_errortab>-msgid
568 msg_nr = <fs_errortab>-msgno
569 msg_ty = <fs_errortab>-msgty
570 msg_v1 = <fs_errortab>-msgv1
571 msg_v2 = <fs_errortab>-msgv2
572 msg_v3 = <fs_errortab>-msgv3
573 msg_v4 = <fs_errortab>-msgv4
574 EXCEPTIONS
575 OTHERS = 1.
576 ENDLOOP.
577
578 * Application log
579 l_s_log-extnumber = sy-uname.
580
581 CALL FUNCTION 'BAL_LOG_CREATE'
582 EXPORTING
583 i_s_log = l_s_log
584 IMPORTING
585 e_log_handle = p_loghandle
586 EXCEPTIONS
587 OTHERS = 1.
588
589 LOOP AT lt_errortab ASSIGNING <fs_errortab>.
590 MOVE-CORRESPONDING <fs_errortab> TO l_s_msg.
591
592 CALL FUNCTION 'BAL_LOG_MSG_ADD'
593 EXPORTING
594 i_log_handle = p_loghandle
595 i_s_msg = l_s_msg
596 EXCEPTIONS
597 OTHERS = 1.
598 ENDLOOP.
599 ENDFORM.
600 *&---------------------------------------------------------------------*
601 *& Form protocol_update_spool
602 *&---------------------------------------------------------------------*
603 *& text
604 *&---------------------------------------------------------------------*
605 *& --> P_
606 *& --> SPOOLIDS
607 *& --> SPACE
608 *& --> SPACE
609 *& --> SPACE
610 *&---------------------------------------------------------------------*
611 FORM protocol_update_spool USING syst_msgno TYPE symsgno
612 p_ls_spoolid TYPE rspoid
613 p_space1 TYPE symsgv
614 p_space2 TYPE symsgv
615 p_space3 TYPE symsgv.
616 CHECK xscreen = space.
617
618 syst-msgid = 'VN'.
619 syst-msgno = syst_msgno.
620 syst-msgv1 = p_ls_spoolid.
621
622 CONDENSE syst-msgv1.
623
624 CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
625 EXPORTING
626 msg_arbgb = syst-msgid
627 msg_nr = syst-msgno
628 msg_ty = syst-msgty
629 msg_v1 = syst-msgv1
630 msg_v2 = p_space1
631 msg_v3 = p_space2
632 msg_v4 = p_space3
633 EXCEPTIONS
634 OTHERS = 1.
635 ENDFORM.
636 * Literale übernehmen aus Datenelemnten
637 FORM lesen_datenelement USING xxrolln TYPE rollname
638 xxtext TYPE char1
639 xxfeld TYPE any.
640 SELECT SINGLE * FROM dd04t INTO gs_dd04t
641 WHERE rollname = xxrolln
642 AND ddlanguage = nast-spras
643 AND as4local = 'A'
644 AND as4vers = '0000'.
645 CHECK sy-subrc = 0.
646
647 CASE xxtext.
648 WHEN 'M'. xxfeld = gs_dd04t-scrtext_m.
649 WHEN 'L'. xxfeld = gs_dd04t-scrtext_l.
650 WHEN 'S'. xxfeld = gs_dd04t-scrtext_s.
651 WHEN 'D'. xxfeld = gs_dd04t-ddtext.
652 WHEN 'R'. xxfeld = gs_dd04t-reptext.
653 ENDCASE.
654 ENDFORM. "LESEN_DATENELEMENT
