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
