SAP ZMI21 Write Print A3

最新推荐文章于 2024-07-21 12:29:21 发布

原创最新推荐文章于 2024-07-21 12:29:21 发布 · 304 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#SAP #Write

SAP 同时被 3 个专栏收录

433 篇文章

订阅专栏

MM模块

44 篇文章

订阅专栏

SAP 盘点

5 篇文章

订阅专栏

本文介绍了一个用于SAP MM模块中的物料盘点程序ZMM_MI21，该程序通过连接ISEG和MAKT表来获取指定条件下的物料信息，并以定制化的报告形式展示出来。报告中包含了工厂、盘点文档号、存储地点等关键字段。

1、 MI21格式打印时很浪费纸张，所以创建ZMI21

2、从表ISEG获取数据

*&---------------------------------------------------------------------*
*& Progarm      : ZMM_MI21                       Author : Jimmy Wong
*& Created      : 11 Apr 2013                    App    : MM
*& Title        : Material Copy by same SBU
*& Description : Material Copy by same SBU
*&---------------------------------------------------------------------*
*& Version       Author      Date        description
*&                Jimmy       11 Apr 2013 the first version
*& the last update time 2013.04.11 16:00
*&---------------------------------------------------------------------*

report zmm_mi21 line-size 132 line-count 60 no standard page heading.

tables: iseg.

data:begin of wa_itab ,
      iblnr like iseg-iblnr,
      gjahr like iseg-gjahr,
      zeili like iseg-zeili,
      matnr like iseg-matnr,
      werks like iseg-werks,
      lgort like iseg-lgort,
      charg like iseg-charg,
      menge like iseg-menge,
      meins like iseg-meins,
      maktx like makt-maktx,
      end of wa_itab.
data: itab like table of wa_itab with header line.
data:begin of it_iblnr occurs 0,
     iblnr like iseg-iblnr,
     werks like iseg-werks,
     lgort like iseg-lgort,
     end of it_iblnr.

selection-screen begin of block 1 with frame title text-001.
select-options : s_iblnr for iseg-iblnr .
select-options : s_gjahr for iseg-gjahr .
select-options : s_werks for iseg-werks default '8101'.
select-options : s_matnr for iseg-matnr .
select-options : s_lgort for iseg-lgort .
selection-screen end of block 1.

top-of-page.
perform report_title.

start-of-selection.
perform get_data.
if itab[] is initial.
    message i003(zmm).
    exit.
endif.
perform write_data.
*&---------------------------------------------------------------------*
*&      Form GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form get_data .
select a~iblnr a~gjahr a~zeili a~matnr a~werks a~lgort a~charg a~menge a~meins
         b~maktx
      into corresponding fields of table itab
      from iseg as a inner join makt as b on a~matnr = b~matnr
    where a~iblnr in s_iblnr
      and a~gjahr in s_gjahr
      and a~matnr in s_matnr
      and a~werks in s_werks
      and a~lgort in s_lgort.

loop at itab .
    move-corresponding itab to it_iblnr.
    collect it_iblnr.
endloop.
endform.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form REPORT_TITLE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form report_title .

data : position like sy-linsz,
time(8) type c.

if sy-pagno ne 1 .
    skip 2.
    write :/ ' ',
            at 10(30) 'Counted by _______________' ,
            at 48(80) 'Checked by ______________' ,
            at 81(100)'Input by _______________'.
    skip 2.
endif.

write at /1(sy-linsz) 'VTECH COMMUNICATIONS LTD. (CMS)' centered.
write : 1 'Prg:', sy-cprog(14) no-gap,
         '/' no-gap, sy-tcode(8).
position = sy-linsz - 16.
write: at position 'Page:', sy-pagno.
write : /1 'User-ID:', sy-uname.
write: at position 'Date:',sy-datum mm/dd/yyyy.
write at /1(sy-linsz) sy-title centered.
write at position 'Time:' .
write sy-timlo using edit mask '__:__:__'.
skip 1.
write: / ' ',
        at 1(7) 'Plant:',
        at 8(12) itab-werks,
        at 15(32) 'Phys. inv. doc.:',
        at 33(43) itab-iblnr,
        at 45(56) 'Sloc Stor.:',
        at 57(67) itab-lgort.
skip 1.

write :/ ' ',
         at 1(5) 'Item',
         at 6(25) 'Material' ,
         at 26(66) 'Material Desc' ,
         at 67(77) 'Batch' ,
         at 78(88) 'Unit' ,
         at 89(101)'Counted Qty'.

write :/ ' ',
         at 1(5) '====',
         at 6(25) '===================' ,
         at 26(66) '=======================================' ,
         at 67(77) '==========' ,
         at 78(88) '==========' ,
         at 89(101)'============'.

endform.                    " REPORT_TITLE
*&---------------------------------------------------------------------*
*&      Form WRITE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form write_data .
sort itab by iblnr gjahr zeili werks lgort.
sort it_iblnr by iblnr werks lgort.

loop at it_iblnr .
    new-page.
*    perform report_title.
    loop at itab where iblnr = it_iblnr-iblnr and werks = it_iblnr-werks and lgort = it_iblnr-lgort.
      write :/ ' ',
             at 1(5) itab-zeili no-zero,
             at 6(25) itab-matnr ,
             at 26(66) itab-maktx ,
             at 67(77) itab-charg ,"no-zero   ,
             at 78(88) itab-meins ,
             at 89(100)'___________'.
    endloop.

    at last.
      skip 2.
      write :/ ' ',
              at 10(30) 'Counted by _______________' ,
              at 48(80) 'Checked by ______________' ,
              at 81(100)'Input by _______________'.
      skip 2.
    endat.

endloop.
endform. " WRITE_DATA