給PO分配自定义的表格(SmartForm)和输出程序 4

*eject
*----------------------------------------------------------------------*
* Umlagerungsbestellung,  Hinweis 670912                               *
*----------------------------------------------------------------------*
form. entry_neu_sto using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print,
        f_sto.                                              "670912


  clear ent_retco.
  if nast-aende eq space.
    l_druvo = '1'.
  else.
    l_druvo = '2'.
  endif.

  f_sto = 'X'.                                              "670912

  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
      ix_sto         = f_sto                                "670912
    importing
      ex_retco       = ent_retco.
endform.                    "entry_neu_sto

*eject
*----------------------------------------------------------------------*
* Mahnung
*----------------------------------------------------------------------*
form. entry_mahn using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.

  clear ent_retco.
  l_druvo = '3'.
  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
    importing
      ex_retco       = ent_retco.
endform.                    "entry_mahn

*eject
*----------------------------------------------------------------------*
* Auftragsbestätigungsmahnung
*----------------------------------------------------------------------*
form. entry_aufb using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.

  clear ent_retco.
  l_druvo = '7'.
  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
    importing
      ex_retco       = ent_retco.
endform.                    "entry_aufb
*eject
*----------------------------------------------------------------------*
* Lieferabrufdruck für Formular MEDRUCK mit Fortschrittszahlen
*----------------------------------------------------------------------*
form. entry_lphe using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_xfz,
        l_doc   type meein_purchase_doc_print.

  clear ent_retco.
  l_druvo = '9'.
  l_xfz = 'X'.
  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_xfz         = l_xfz
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
    importing
      ex_retco       = ent_retco.
endform.                    "entry_lphe
*eject
*----------------------------------------------------------------------*
* Lieferabrufdruck für Formular MEDRUCK ohne Fortschrittszahlen
*----------------------------------------------------------------------*
form. entry_lphe_cd using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.

  clear ent_retco.
  l_druvo = '9'.
  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
    importing
      ex_retco       = ent_retco.
endform.                    "entry_lphe_cd
*eject
*----------------------------------------------------------------------*
* Feinabrufdruck für Formular MEDRUCK mit Fortschrittszahlen
*----------------------------------------------------------------------*
form. entry_lpje using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_xfz,
        l_doc   type meein_purchase_doc_print.

  clear ent_retco.
  l_druvo = 'A'.
  l_xfz = 'X'.
  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_xfz         = l_xfz
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
    importing
      ex_retco       = ent_retco.
endform.                    "entry_lpje
*eject
*----------------------------------------------------------------------*
* Feinabrufdruck für Formular MEDRUCK ohne Fortschrittszahlen
*----------------------------------------------------------------------*
form. entry_lpje_cd using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.

  clear ent_retco.
  l_druvo = 'A'.
  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
    importing
      ex_retco       = ent_retco.
endform.                    "entry_lpje_cd
*eject
*----------------------------------------------------------------------*
*   INCLUDE FM06PE02                                                   *
*----------------------------------------------------------------------*
form. entry_neu_matrix using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.

  clear ent_retco.
  if nast-aende eq space.
    l_druvo = '1'.
  else.
    l_druvo = '2'.
  endif.

  call function 'ME_READ_PO_FOR_PRINTING'
    exporting
      ix_nast        = nast
      ix_screen      = ent_screen
    importing
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    changing
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
    exporting
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_mflag       = 'X'
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = tnapr-fonam                          "HW 214570
    importing
      ex_retco       = ent_retco.
endform.                    "entry_neu_matrix

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/13547743/viewspace-630969/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/13547743/viewspace-630969/

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值