1 *&---------------------------------------------------------------------* 2 *& Report ZR_FI_01 3 *& 4 *&---------------------------------------------------------------------* 5 *&----------狼 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT zr_fi_ma. 10 11 12 TABLES: bseg,t001,bkpf ,skat. 13 14 *定义ALV相关变量 15 16 TYPE-POOLS : slis. 17 DATA: afield TYPE slis_fieldcat_alv. 18 DATA: i_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE. 19 DATA: fieldcat TYPE slis_t_fieldcat_alv. 20 DATA: gs_layout TYPE slis_layout_alv. 21 DATA: g_repid TYPE sy-repid. 22 DATA: i_layout TYPE slis_layout_alv. 23 DATA gridlsl TYPE lvc_s_glay. 24 DATA itab1 LIKE zstr_pz OCCURS 0 WITH HEADER LINE. 25 *DATA itab2 LIKE zstr_pz OCCURS 0 WITH HEADER LINE. 26 DATA itab LIKE zstr_pz OCCURS 0 WITH HEADER LINE. 27 DATA: c1(2) TYPE c VALUE '年',c2(2) TYPE c VALUE '月',c3(2) TYPE c VALUE '日', 28 c4(4) TYPE c ,c5(2) TYPE c ,c6(2) TYPE c ,c7(20) TYPE c . 29 *DATA LEN TYPE I. 30 *定义内表字段 31 32 DATA:BEGIN OF itab_skat OCCURS 0, 33 txt50 LIKE skat-txt50, 34 saknr LIKE skat-saknr, 35 END OF itab_skat. 36 37 DATA:BEGIN OF itab_bkpf OCCURS 0, 38 bktxt LIKE bkpf-bktxt, "凭证抬头文本 39 usnam LIKE bkpf-usnam, "用户名 40 budat LIKE bkpf-budat, "过账日期 41 belnr LIKE bkpf-belnr, "会计凭证 42 gjahr LIKE bkpf-gjahr, "会计年度 43 bukrs LIKE bkpf-bukrs, "代码公司 44 monat LIKE bkpf-monat, "会计期间 45 blart LIKE bkpf-blart, "凭证类型 46 bldat LIKE bkpf-bldat, "凭证日期 47 numpg LIKE bkpf-numpg, "页数 48 STBLG LIKE BKPF-STBLG, "冲销凭证号 49 WAERS LIKE BKPF-WAERS, "货币 50 KURSF LIKE BKPF-KURSF, "汇率 51 BSTAT LIKE BKPF-BSTAT, "凭证状态 52 END OF itab_bkpf. 53 54 55 DATA:BEGIN OF itab_t001 OCCURS 0, 56 butxt LIKE t001-butxt, "公司代码 57 bukrs LIKE t001-bukrs, "代码公司 58 END OF itab_t001. 59 60 DATA: BEGIN OF wa_alv OCCURS 0, 61 flag(1) , 62 augdt01 LIKE zstr_pz-augdt01, 63 bukrs LIKE bseg-bukrs,"代码公司 64 belnr LIKE bseg-belnr,"会计凭证 65 gjahr LIKE bseg-gjahr,"会计年度 66 butxt LIKE t001-butxt,"公司代码 67 augdt LIKE bseg-augdt,"清帐日期 68 hkont LIKE bseg-hkont,"总分类帐帐目 69 bktxt LIKE bkpf-bktxt,"凭证抬头文本 70 buzei LIKE bseg-buzei,"会计凭证中的行项目数 71 txt50 LIKE skat-txt50,"总账科目成文本 72 wrbtr LIKE bseg-wrbtr,"凭证货币金额 73 shkzg LIKE bseg-shkzg,"借方/贷方标识 74 wrbtr01 LIKE bseg-wrbtr,"凭证货币金额 75 shkzg01 LIKE bseg-shkzg,"借方/贷方标识 76 usnam LIKE bkpf-usnam, "用户名 77 budat LIKE bkpf-budat, "过账日期 78 blart LIKE bkpf-blart, "凭证类型 79 bldat LIKE bkpf-bldat, "凭证日期 80 numpg LIKE bkpf-numpg, "页数 81 stblg LIKE bkpf-stblg, "冲销凭证号 82 waers LIKE bkpf-waers, "货币 83 kursf LIKE bkpf-kursf, "汇率 84 bstat LIKE bkpf-bstat. "凭证状态 85 DATA END OF wa_alv. 86 87 DATA wa_alv01 LIKE TABLE OF wa_alv WITH HEADER LINE. 88 89 DATA:BEGIN OF sum_itab OCCURS 0, 90 belnr TYPE bseg-belnr, 91 count01 TYPE bseg-wrbtr, 92 count02 TYPE bseg-wrbtr. 93 DATA END OF sum_itab. 94 *选择屏幕 95 SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text. 96 97 SELECT-OPTIONS: p_bukrs FOR bkpf-bukrs no INTERVALS OBLIGATORY DEFAULT 1000, 98 p_belnr FOR bkpf-belnr , 99 p_gjahr FOR bkpf-gjahr no INTERVALS OBLIGATORY DEFAULT SY-DATUM, 100 p_monat FOR bkpf-monat, 101 p_usnam FOR bkpf-usnam NO INTERVALS. 102 103 SELECTION-SCREEN END OF BLOCK blk. 104 105 INITIALIZATION. 106 g_repid = sy-repid. 107 text = '凭证信息'. 108 109 START-OF-SELECTION. 110 PERFORM getdata. 111 PERFORM layout_build. 112 PERFORM sub_init_fieldcat. 113 PERFORM sub_init_layout. 114 PERFORM sub_listado. 115 116 END-OF-SELECTION. 117 118 *&--------------------------------------------------------------------* 119 *& Form getdata 120 *&--------------------------------------------------------------------* 121 * 获取数据 从数据库表中选择相应字段 122 *---------------------------------------------------------------------* 123 *&---------------------------------------------------------------------* 124 125 FORM getdata ."从数据库里取数到ALV 126 127 ****************************************从BKPF中取数据 128 SELECT bktxt usnam budat belnr gjahr bukrs monat blart bldat numpg stblg waers kursf bstat 129 INTO CORRESPONDING FIELDS OF TABLE itab_bkpf 130 FROM bkpf 131 WHERE usnam in p_usnam AND belnr IN p_belnr AND bukrs in p_bukrs AND monat IN p_monat AND gjahr in p_gjahr. 132 IF SY-SUBRC <> 0. 133 MESSAGE '所找数据不存在，请纠正' TYPE 'I'. 134 stop. 135 RETURN."跳出 136 ENDIF. 137 **********************************从BSEG中取数据 138 IF itab_bkpf[] IS NOT INITIAL. 139 SELECT bukrs belnr gjahr augdt hkont wrbtr shkzg buzei 140 INTO CORRESPONDING FIELDS OF TABLE wa_alv 141 * UP TO 100 ROWSC 142 FROM bseg 143 FOR ALL ENTRIES IN itab_bkpf 144 WHERE belnr = itab_bkpf-belnr ."AND gjahr IN p_gjahr and belnr = itab_bkpf-belnr. 145 146 ENDIF. 147 148 ***********************把指在BKPF里有的凭证编号取出来 149 LOOP AT ITAB_BKPF. 150 SELECT SINGLE bukrs belnr gjahr augdt hkont wrbtr shkzg buzei 151 INTO CORRESPONDING FIELDS OF wa_alv 152 FROM bseg 153 WHERE belnr = itab_bkpf-belnr. 154 IF SY-SUBRC <> 0. 155 MOVE-CORRESPONDING itab_bkpf to wa_alv01. 156 APPEND WA_ALV01. 157 ENDIF. 158 ENDLOOP. 159 *************************************从T001中取数据 160 SELECT * 161 INTO CORRESPONDING FIELDS OF TABLE itab_t001 162 FROM t001 "把数直接放到工作区间里面去，不会放在表头！ 163 WHERE bukrs in p_bukrs. 164 165 ************从SKAT里取数 166 IF wa_alv[] IS NOT INITIAL. 167 SELECT txt50 saknr 168 INTO CORRESPONDING FIELDS OF TABLE itab_skat 169 FROM skat 170 FOR ALL ENTRIES IN wa_alv 171 WHERE saknr = wa_alv-hkont." AND SPRAS = '1' AND KTOPL = 'INT'. 172 ENDIF. 173 174 *********************整理alv上要显示的数据 175 LOOP AT wa_alv. 176 *********** 把借和贷分开 177 CASE wa_alv-shkzg. 178 WHEN 'S'. 179 wa_alv-wrbtr = wa_alv-wrbtr. 180 WHEN 'H'. 181 wa_alv-wrbtr01 = wa_alv-wrbtr. 182 CLEAR wa_alv-wrbtr. 183 WHEN OTHERS. 184 ENDCASE. 185 ************************把BUTXT整理到ALV内表里面 186 READ TABLE itab_t001 WITH KEY bukrs = wa_alv-bukrs. 187 IF sy-subrc EQ 0. 188 MOVE itab_t001-butxt TO wa_alv-butxt. 189 ENDIF. 190 **********************把BKTXT USNAM BUDAT NUMPG整理到ALV内表去 191 READ TABLE itab_bkpf WITH KEY bukrs = wa_alv-bukrs gjahr = wa_alv-gjahr belnr = wa_alv-belnr . 192 IF sy-subrc EQ 0. 193 MOVE itab_bkpf-bktxt TO wa_alv-bktxt. 194 MOVE itab_bkpf-usnam TO wa_alv-usnam. 195 MOVE itab_bkpf-budat TO wa_alv-budat. 196 MOVE itab_bkpf-numpg TO wa_alv-numpg. 197 198 MOVE itab_bkpf-blart TO wa_alv-blart. 199 MOVE itab_bkpf-bldat TO wa_alv-bldat. 200 MOVE itab_bkpf-stblg TO wa_alv-stblg. 201 MOVE itab_bkpf-waers TO wa_alv-waers. 202 203 MOVE itab_bkpf-kursf TO wa_alv-kursf. 204 MOVE itab_bkpf-bstat TO wa_alv-bstat. 205 MOVE itab_bkpf-numpg TO wa_alv-numpg. 206 ENDIF. 207 ************************************* 把TXT50整理到内表去， 208 READ TABLE itab_skat WITH KEY saknr = wa_alv-hkont. 209 IF sy-subrc EQ 0. 210 MOVE itab_skat-txt50 TO wa_alv-txt50. 211 ENDIF. 212 213 MODIFY wa_alv. 214 ENDLOOP. 215 216 **********************把数据转移到要显示的ALV屏幕上的内表WA_ALV01上 217 LOOP AT wa_alv. 218 MOVE-CORRESPONDING wa_alv TO wa_alv01. 219 APPEND wa_alv01. 220 ENDLOOP. 221 222 *******************根据物料编号排序，把相同的物料编号删除 223 SORT wa_alv01 BY belnr. 224 DELETE ADJACENT DUPLICATES FROM wa_alv01 COMPARING belnr. 225 DELETE WA_ALV01 WHERE BELNR = ''. 226 ENDFORM. " GETDATA 227 *&---------------------------------------------------------------------* 228 *& Form SUB_INIT_FIELDCAT 229 *&---------------------------------------------------------------------* 230 * text 231 *----------------------------------------------------------------------* 232 * --> p1 text 233 * <-- p2 text 234 *----------------------------------------------------------------------* 235 FORM layout_build . 236 i_layout-box_fieldname = 'FLAG'. 237 i_layout-colwidth_optimize = 'X'. "优化列宽选项是否设置 238 i_layout-zebra = 'X'. 239 i_layout-detail_initial_lines = 'X'. 240 i_layout-no_vline = 'X'." layout_build 241 242 ENDFORM. " LAYOUT_BUILD 243 244 *&---------------------------------------------------------------------* 245 *& Form SUB_INIT_FIELDCAT 246 *&---------------------------------------------------------------------* 247 * text 248 *----------------------------------------------------------------------* 249 FORM sub_init_fieldcat . 250 251 i_fieldcat-fieldname = 'BUKRS'. "公司代码 252 i_fieldcat-tabname = 'ITEM'. 253 i_fieldcat-reptext_ddic = '公司代码'. 254 i_fieldcat-outputlen = 10. 255 i_fieldcat-key = 'X'. 256 i_fieldcat-just = 'C'. 257 APPEND i_fieldcat. 258 CLEAR i_fieldcat. 259 260 i_fieldcat-fieldname = 'BUTXT'. "公司代码 261 i_fieldcat-tabname = 'ITEM'. 262 i_fieldcat-reptext_ddic = '核算单位'. 263 i_fieldcat-outputlen = 10. 264 i_fieldcat-key = 'X'. 265 * i_fieldcat-no_out ='X'. 266 i_fieldcat-just = 'C'. 267 APPEND i_fieldcat. 268 CLEAR i_fieldcat. 269 270 i_fieldcat-fieldname = 'BELNR'. "会计凭证 271 i_fieldcat-tabname = 'ITEM'. 272 i_fieldcat-reptext_ddic = '凭证编号'. 273 i_fieldcat-outputlen = 12. 274 i_fieldcat-key = 'X'. 275 i_fieldcat-just = 'C'. 276 APPEND i_fieldcat. 277 CLEAR i_fieldcat. 278 279 i_fieldcat-fieldname = 'GJAHR'. 280 i_fieldcat-tabname = 'ITEM'. 281 i_fieldcat-reptext_ddic = '会计年度'. 282 i_fieldcat-outputlen = 4. 283 i_fieldcat-key = 'X'. 284 i_fieldcat-just = 'C'. 285 APPEND i_fieldcat. 286 CLEAR i_fieldcat. 287 288 i_fieldcat-fieldname = 'BLART'. "会计凭证 289 i_fieldcat-tabname = 'ITEM'. 290 i_fieldcat-reptext_ddic = '凭证类型'. 291 i_fieldcat-outputlen = 2. 292 i_fieldcat-just = 'C'. 293 APPEND i_fieldcat. 294 CLEAR i_fieldcat. 295 296 i_fieldcat-fieldname = 'BLDAT'. "会计凭证 297 i_fieldcat-tabname = 'ITEM'. 298 i_fieldcat-reptext_ddic = '凭证日期'. 299 i_fieldcat-outputlen = 8. 300 i_fieldcat-just = 'C'. 301 APPEND i_fieldcat. 302 CLEAR i_fieldcat. 303 304 i_fieldcat-fieldname = 'BUDAT'. "清单日期 305 i_fieldcat-tabname = 'ITEM'. 306 i_fieldcat-reptext_ddic = '过账日期'. 307 i_fieldcat-outputlen = 10. 308 i_fieldcat-just = 'C'. 309 APPEND i_fieldcat. 310 CLEAR i_fieldcat. 311 312 i_fieldcat-fieldname = 'USNAM'. "用户名 313 i_fieldcat-tabname = 'ITEM'. 314 i_fieldcat-reptext_ddic = ' 制 单'. 315 i_fieldcat-outputlen = 18. 316 i_fieldcat-just = 'C'. 317 APPEND i_fieldcat. 318 CLEAR i_fieldcat. 319 320 i_fieldcat-fieldname = 'STBLG'. 321 i_fieldcat-tabname = 'ITEM'. 322 i_fieldcat-reptext_ddic = '冲销凭证号'. 323 i_fieldcat-outputlen = 10. 324 i_fieldcat-just = 'C'. 325 APPEND i_fieldcat. 326 CLEAR i_fieldcat. 327 328 i_fieldcat-fieldname = 'BKTXT'. 329 i_fieldcat-tabname = 'ITEM'. 330 i_fieldcat-reptext_ddic = '凭证抬头文本'. 331 i_fieldcat-outputlen = 10. 332 i_fieldcat-just = 'C'. 333 APPEND i_fieldcat. 334 CLEAR i_fieldcat. 335 336 i_fieldcat-fieldname = 'WAERS'. 337 i_fieldcat-tabname = 'ITEM'. 338 i_fieldcat-reptext_ddic = '货币'. 339 i_fieldcat-outputlen = 14. 340 i_fieldcat-just = 'C'. 341 APPEND i_fieldcat. 342 CLEAR i_fieldcat. 343 344 i_fieldcat-fieldname = 'KURSF'. "用户名 345 i_fieldcat-tabname = 'ITEM'. 346 i_fieldcat-reptext_ddic = ' 汇率'. 347 i_fieldcat-outputlen = 9. 348 i_fieldcat-just = 'C'. 349 APPEND i_fieldcat. 350 CLEAR i_fieldcat. 351 352 i_fieldcat-fieldname = 'BSTAT'. 353 i_fieldcat-tabname = 'ITEM'. 354 i_fieldcat-reptext_ddic = '凭证状态'. 355 i_fieldcat-outputlen = 2. 356 i_fieldcat-just = 'C'. 357 APPEND i_fieldcat. 358 CLEAR i_fieldcat. 359 360 i_fieldcat-fieldname = 'NUMPG'. 361 i_fieldcat-tabname = 'ITEM'. 362 i_fieldcat-reptext_ddic = '页数'. 363 i_fieldcat-outputlen = 3. 364 i_fieldcat-just = 'C'. 365 APPEND i_fieldcat. 366 CLEAR i_fieldcat. 367 368 ENDFORM. " SUB_INIT_FIELDCAT 369 *&---------------------------------------------------------------------* 370 *& Form SUB_INIT_LAYOUT 371 *&---------------------------------------------------------------------* 372 * text 373 *----------------------------------------------------------------------* 374 * --> p1 text 375 * <-- p2 text 376 *----------------------------------------------------------------------* 377 FORM sub_init_layout . 378 DATA:num TYPE i VALUE 0. 379 * DATA: l_output(50). 380 * i_layout-zebra = 'X'. 381 * l_output = '会计凭证'. 382 * i_layout-window_titlebar = l_output. 383 * i_layout-colwidth_optimize = 'X'. 384 * sort wa_alv by NUMPG. 385 * 386 *read table wa_alv with key NUMPG = '' BINARY SEARCH. 387 388 LOOP AT wa_alv WHERE NUMPG <> ''. 389 num = 1. 390 ENDLOOP. 391 IF num = 0. 392 LOOP AT i_fieldcat. 393 i_fieldcat-no_out = ''. 394 IF i_fieldcat-fieldname = 'NUMPG' . 395 i_fieldcat-no_out = 'X'. 396 ENDIF. 397 MODIFY i_fieldcat . 398 ENDLOOP. 399 400 ENDIF. 401 * CALL METHOD go_grid->set_frontend_fieldcatalog 402 * EXPORTING 403 * it_fieldcatalog = gt_fieldcat. 404 * CALL METHOD go_grid->refresh_table_display . 405 406 ENDFORM. " SUB_INIT_LAYOUT 407 *&---------------------------------------------------------------------* 408 *& Form SUB_LISTADO 409 *&---------------------------------------------------------------------* 410 * text 411 *----------------------------------------------------------------------* 412 * --> p1 text 413 * <-- p2 text 414 *----------------------------------------------------------------------* 415 FORM sub_listado . 416 g_repid = sy-repid. 417 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 418 EXPORTING 419 i_callback_user_command = 'USER_COMMAND' 420 i_callback_pf_status_set = 'USER_STATUS' 421 i_callback_program = g_repid 422 is_layout = i_layout 423 it_fieldcat = i_fieldcat[] 424 * it_events = i_events[] 425 TABLES 426 t_outtab = wa_alv01 427 EXCEPTIONS 428 program_error = 1 429 OTHERS = 2. 430 ENDFORM. " SUB_LISTADO 431 432 *&---------------------------------------------------------------------* 433 *& Form user_command 434 *&---------------------------------------------------------------------* 435 * text 436 *----------------------------------------------------------------------* 437 * -->R_UCOMM text 438 * -->RS_SELFIELD text 439 *----------------------------------------------------------------------* 440 FORM user_command USING r_ucomm LIKE sy-ucomm 441 rs_selfield TYPE slis_selfield. 442 443 DATA: ok_code TYPE sy-ucomm. 444 ok_code = sy-ucomm. 445 CLEAR sy-ucomm. 446 447 CASE ok_code. 448 WHEN 'BACK'. 449 LEAVE TO SCREEN 0. 450 WHEN 'EXIT'. 451 EXIT. 452 WHEN 'COPY'. 453 * LEAVE TO SCREEN 0. 454 PERFORM dayin. 455 WHEN 'SAVE'. 456 LEAVE TO SCREEN 0. 457 WHEN OTHERS. 458 EXIT. 459 ENDCASE. 460 461 462 ENDFORM. " USER_COMMAND 463 *&---------------------------------------------------------------------* 464 *& Form USER_STATUS 465 *&---------------------------------------------------------------------* 466 * text 467 *----------------------------------------------------------------------* 468 * --> p1 text 469 * <-- p2 text 470 *----------------------------------------------------------------------* 471 FORM user_status USING extab TYPE slis_t_extab. 472 SET PF-STATUS 'FIPZ_STU01'. 473 SET TITLEBAR 'FIPZ_TIT'. 474 ENDFORM. "user_status 475 *&---------------------------------------------------------------------* 476 *& Form DAYIN 477 *&---------------------------------------------------------------------* 478 * text 479 *----------------------------------------------------------------------* 480 * --> p1 text 481 * <-- p2 text 482 *----------------------------------------------------------------------* 483 FORM dayin . 484 485 PERFORM get_data. 486 DATA fm_name TYPE rs38l_fnam. 487 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' 488 EXPORTING 489 formname = 'ZFI_PZ002'"写自己设计的smartforms名字.自动返回对应的function module函数代码 490 IMPORTING 491 fm_name = fm_name "这里系统返回的是函数代码(/1BCDWB/SF00000003) 492 EXCEPTIONS 493 no_form = 1 494 no_function_module = 2 495 OTHERS = 3. 496 IF sy-subrc <> 0. 497 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 498 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 499 ENDIF. 500 501 CALL FUNCTION fm_name "调用SMARTFORM，很显然这里是以FUNCTION MOUDULE的方式和SMARTFORM交互. 502 EXPORTING 503 user_settings = 'X' 504 TABLES "填写SF调用的表和程序的表对应 505 itab1 = itab1 "前一个是sf 后面是程序的. 506 itab = itab "把ITAB内表的内容传递到SMARTFORM中去 507 EXCEPTIONS 508 formatting_error = 1 509 internal_error = 2 510 send_error = 3 511 user_canceled = 4 512 OTHERS = 5. 513 514 ENDFORM. " DAYIN 515 *&---------------------------------------------------------------------* 516 *& Form GET_DATA 517 *&---------------------------------------------------------------------* 518 * text 519 *----------------------------------------------------------------------* 520 * --> p1 text 521 * <-- p2 text 522 *----------------------------------------------------------------------* 523 FORM get_data . 524 CLEAR: itab[],itab. 525 CLEAR:itab1[],itab1. 526 * 定义了上面的这两行，就可以实现多次打印！ 527 528 LOOP AT wa_alv01 WHERE flag = 'X'. 529 530 *******************************检验是否能打印 531 IF wa_alv01-butxt is INITIAL. 532 DATA:ME01(10) TYPE C, 533 ME02(25) TYPE C. 534 ME01 = wa_alv01-BELNR. 535 CONCATENATE '凭证' ME01 '没有行项目,无法打印' INTO ME02. 536 MESSAGE ME02 TYPE 'I'. 537 ENDIF. 538 539 *************************把需要的数据传到与SF相连额桥梁表 540 LOOP AT wa_alv WHERE belnr = wa_alv01-belnr. 541 542 ******************* 时间格式转换 543 PERFORM time_data. 544 545 MOVE-CORRESPONDING wa_alv TO itab1. 546 APPEND itab1. 547 SORT itab1 BY bktxt belnr wrbtr wrbtr01 . 548 549 ENDLOOP. 550 551 ENDLOOP. 552 553 DELETE ADJACENT DUPLICATES FROM itab1 COMPARING ALL FIELDS."删除重复行。 554 555 LOOP AT itab1. 556 MOVE itab1-butxt TO itab-butxt. 557 * MOVE ITAB-AUGDT+0(4) TO ITAB1-YYYY. 558 * MOVE ITAB-AUGDT+4(2) TO ITAB1-MM. 559 * MOVE ITAB-AUGDT+6(2) TO ITAB1-DD. 560 MOVE itab1-belnr TO itab-belnr. 561 MOVE itab1-usnam TO itab-usnam. 562 APPEND itab. 563 DELETE ADJACENT DUPLICATES FROM itab COMPARING ALL FIELDS."* = COLLECT ITAB1. 564 MOVE itab1-belnr TO sum_itab-belnr. 565 sum_itab-count01 = itab1-wrbtr. 566 sum_itab-count02 = itab1-wrbtr01 . 567 COLLECT sum_itab. 568 CLEAR sum_itab. 569 570 ENDLOOP. 571 572 LOOP AT itab. 573 READ TABLE sum_itab WITH KEY belnr = itab-belnr. 574 IF sy-subrc = 0 . 575 itab-count01 = sum_itab-count01 . 576 itab-count02 = sum_itab-count02. 577 578 ENDIF. 579 LOOP AT itab1 WHERE belnr = itab1-belnr AND butxt = itab1-butxt AND usnam = itab1-usnam . 580 IF itab1-augdt01 <> ''. 581 MOVE itab1-augdt01 TO itab-augdt01. 582 ENDIF. 583 ENDLOOP. 584 MODIFY itab[] FROM itab. 585 ENDLOOP. 586 SORT itab1 BY wrbtr01. 587 588 589 590 591 ENDFORM. " GET_DATA 592 *&---------------------------------------------------------------------* 593 *& Form TIME_DATA 594 *&---------------------------------------------------------------------* 595 * text改为需求的日期 596 *----------------------------------------------------------------------* 597 * --> p1 text 598 * <-- p2 text 599 *----------------------------------------------------------------------* 600 FORM time_data . 601 IF wa_alv-budat NE 0. 602 MOVE wa_alv-budat+0(4) TO c4. 603 MOVE wa_alv-budat+4(2) TO c5. 604 MOVE wa_alv-budat+6(2) TO c6. 605 CONCATENATE c4 c1 c5 c2 c6 c3 INTO wa_alv-augdt01. 606 MODIFY wa_alv[] FROM wa_alv. 607 ENDIF. 608 ENDFORM. " TIME_DATA