SAP ABAP APO计划订单生产日期调整

今天做了个程序,调整SAP APO计划订单生产日期,居然成功了,放博客记录一下。

1、APO的订单表:/SAPAPO/ORDKEY,这里面放了LC里面生产订单的ID。

2、拿到订单ID后,通过函数获取订单的工艺,整车有冲焊涂总4大工艺,会有4个工艺的日期,调整工艺日期,就是调整整车的生产日期。

3、把指定的日期,函数放入参数中。

4、调用函数更新LC中订单的工艺日期。

前提条件:

APO的OM订单管理函数,都需要开一个SESSION号,需要这个号才能执行,我从标准程序中找到了这个号的创建函数。

CALL FUNCTION '/SAPAPO/RRP_SIMSESSION_CREATE'
    EXPORTING
      iv_simid      gv_simid
    
IMPORTING
      ev_simsession gv_simsession
    
EXCEPTIONS
      error_message 1.

取得工艺函数:

CALL FUNCTION '/SAPAPO/OM_ACT_GET_BY_ORDER'
    EXPORTING
      is_gen_params     gs_gen_params
      iv_simsession     
gv_simsession
      it_order          
lt_order
      iv_start_time     
'19970101010101'
      iv_end_time       '20991231235959'
    IMPORTING
      et_cap_reqs       gt_cap_reqs
    
EXCEPTIONS
      lc_connect_failed 1
      lc_com_error      2
      lc_appl_error     3
      OTHERS            4.

调整工艺时间函数,从乃天的程序中拷贝到的。

*   取得策略参数
    PERFORM frm_get_schedulepara CHANGING ls_get_changed_options
                                          ls_sched_control
                                          lt_sched_params
.

    CALL FUNCTION '/SAPAPO/OM_ACT_SCHEDULE'
      EXPORTING
        is_gen_params          gs_gen_params
        iv_simsession          
gv_simsession
        it_activities          
lt_act
        is_controlparameters   
ls_sched_control
        it_sched_params        
lt_sched_params
        is_get_changed_options 
ls_get_changed_options
      
IMPORTING
        et_rc                  lt_rc
        et_changed_orders      
lt_changed_orders
        et_changed_cap_reqs    
lt_changed_cap_reqs
        et_sched_failures      
lt_sched_failures
        et_sched_log           
lt_sched_log
        et_overflows           
lt_overflows
      
EXCEPTIONS
        lc_connect_failed      1
        lc_com_error           2
        lc_appl_error          3
        OTHERS                 4.

APO函数修改完成,还要提交到LC:

FORM frm_save_activities .
  IF  0.
    PERFORM activities_save_changes IN PROGRAM /sapapo/saplseq_visual_01 IF FOUND
                                    
USING gc_true.
  ELSE.
    CALL FUNCTION '/SAPAPO/SEQM_RRP_COMMIT'
      EXCEPTIONS
        commit_error 1
        OTHERS       2.
    IF sy-subrc 0.

    ELSE.

    ENDIF.

    CALL FUNCTION 'RPM_FCODE_SAVE'
      EXPORTING
        iv_simid    gv_simid
        iv_popup    
space
        iv_show_msg 
space
      
EXCEPTIONS
        fatal_error 1
        other_error 2
        OTHERS      3.
    IF sy-subrc <> 0.
    ENDIF.
  ENDIF.
ENDFORM.

SAP ABAP中,获取生产订单状态通常可以通过以下几种方式实现: 1. **使用标准事务代码**: - **COOIS**:生产订单信息系统,可以查询和显示生产订单的状态。 2. **使用ABAP程序**: 通过编写ABAP程序,可以直接从数据库表中获取生产订单的状态。常用的表包括: - **AFKO**:生产订单的总体数据。 - **AFPO**:生产订单的项目数据。 - **JEST**:状态管理。 以下是一个简单的ABAP程序示例,用于获取生产订单的状态: ```abap REPORT z_get_prod_order_status. PARAMETERS: p_aufnr TYPE aufk-aufnr OBLIGATORY. DATA: ls_afko TYPE afko, ls_afpo TYPE afpo, ls_jest TYPE jest, lv_stat TYPE jest-stat. SELECT SINGLE * FROM afko INTO ls_afko WHERE aufnr = p_aufnr. IF sy-subrc = 0. SELECT SINGLE * FROM afpo INTO ls_afpo WHERE aufnr = p_aufnr. IF sy-subrc = 0. SELECT SINGLE * FROM jest INTO ls_jest WHERE objnr = ls_afpo-objnr AND stat = 'I0002'. IF sy-subrc = 0. lv_stat = ls_jest-stat. WRITE: / '生产订单状态:', lv_stat. ELSE. WRITE: / '未找到生产订单状态'. ENDIF. ELSE. WRITE: / '未找到生产订单项目数据'. ENDIF. ELSE. WRITE: / '未找到生产订单总体数据'. ENDIF. ``` 3. **使用函数模块**: SAP提供了许多函数模块来获取生产订单的状态,例如: - **STATUS_READ**:读取对象的状态。 - **BAPI_PRODORD_GETSTATUS**:获取生产订单的状态。 以下是一个使用函数模块的示例: ```abap REPORT z_get_prod_order_status_func. PARAMETERS: p_aufnr TYPE aufk-aufnr OBLIGATORY. DATA: lt_status TYPE TABLE OF bapi_proddord_status, ls_status TYPE bapi_proddord_status, lv_return TYPE bapiret2. CALL FUNCTION 'BAPI_PRODORD_GETSTATUS' EXPORTING productionorder = p_aufnr TABLES status = lt_status return = lv_return. IF lv_return-type = 'E'. WRITE: / '错误:', lv_return-message. ELSE. LOOP AT lt_status INTO ls_status. WRITE: / '生产订单状态:', ls_status-status. ENDLOOP. ENDIF. ``` 通过以上几种方法,您可以在SAP ABAP中获取生产订单的状态。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

刘欣的博客

你将成为第一个打赏博主的人!

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值