工作生活与爱好
工作中的记录； 生活中的记忆； 业余爱好的记载。2007-05-15
SAP MM 移动类型-入门篇
ERP的基础是物流 那么 怎样在系统中控制物流?
最 基础的需求是控制进/出/消耗 包括1/从哪里进来(采购订单/生产订单/其他库位) 到哪里去(销售订单/生产订单/成本中心/内部订单/其他库位/其他工厂) 2/这种移动的原因 (可以对移动进行控制,例如在用户报损 可以细分各部门责任) 3/这种移动的数量和金额 对库房帐和财务帐带来的影响 以及这种影响能否自动实现(MM-FI的接口)
sap系统中用于标志物料移动(收货/发货/转储/转储记帐)的三位的数字/字母
通常分几大类:收货 发货 转储 库房调整
常用的有:
收货类
101 采购订单收货 103 采购订单收货至冻结状态 122 无采购订单退货 161 按退货采购订单退货 131 从生产订单
收货
501 无采购订单收货 511 免费收货
发货类
201 成本中心消耗 261 内部订单消耗
541 委外加工发货
551 库房报损
转储类
301 工厂间转储(一步) 311 存储地点间转储 309 编码转换 321-325 库存类为冻结/质检状态的记帐修改 移动
调整类
盘赢盘亏 一般控制比较严
4系列移动类型没用过 哪位讲讲?
通常我们说的移动类型是IM(库存管理)移动类型
---
*0403更新
移动类型在某电子行业重复制造模式企业的应用
以部门为线 串一下
1/库房收货处 唯一任务是收货 按采购订单号码 清点货物数量 整理通知IQC准备质检
101 按采购订单收货 MB01 没上WM会收到PO指定的存储地点 有WM会收到收货区(是对应WM移动类型决定)
使用QM模块 并在主数据中设定必须做IQC的物料 收货后自动转为质检库存类 直到作出使用决定后再移动
501 无采购订单收货
511 免费收货 MIGO/MB1C
2/库房材料库 主要任务是WM转储/库存调拨/按生产订单投料/非生产消耗/盘库
WM转库就不讲了
库存调拨 有工厂间调拨 301 存储地点间调拨 311 事务码都是MB1A
还分一步和两步方法 例如用 303+305 效果与301类似 但两个工厂都需要做动作 用内部订单控制
月底结算 双方对帐
对特殊库存状态(special storage category)物料库存调拨需要用特殊移动类型 质检料的转库 323 冻结料的转库 325
对库存状态变化 质检->自由库存 321 MB1B
编码转换 309 MB1B
由于生产方式是重复制造 采用反冲方法 将原材料转入supply area 通过生产线软件取数据 自动confirm生产订单 然后反冲 先根据order消耗 然后发货到生产线收货区
对材料 261消耗到订单 对应前端MB1C 对半成品/成品 101收货 对应前端MB31
报损 551 MB1C 这里的移动原因一般是强制输入的 以便月底报表 区分各部门数据(供应商原因/研发原因/各生产线原因)
借料 系统里面没有 拷一个出来就是 自然是借到成本中心来控制
月底盘库 701/702 Or 711/712 这个用户看不到 对盘库差异清算自动产生
3/库房发货处
这里的移动类型也看不见 对这里人员是根据delivery note和shipping noification发货
601 销售出库
633 寄售出库(总部->分公司)
541 委外加工发货
内表行数统计方法
以下是统计内表行数常用的三种方法，如下：
1．LOOP AT it_itab.
g_lines2 = g_lines2 + 1.
ENDLOOP.
该方法是通过循环内部表自己累加行数。
2．DESCRIBE TABLE it_itab LINES g_lines1 . 该语句通过获得内部表的属性，将内部表行数赋值给 g_lines1 ， g_lines1 为I型变量。
3． g_lines3 = lines( it_itab ). 使用函数来计算内部表行数。
以上三种方法中，第一种方法不推荐使用，推荐使用后两种方法。
相关代码如下:
REPORT zmauricetest.
TABLES vbak.
DATA: g_lines1 TYPE i,
g_lines2 TYPE i VALUE 0,
g_lines3 TYPE i,
g_date TYPE d VALUE '19970121',
g_tabix LIKE sy-tabix.
DATA it_tab LIKE vbak OCCURS 0 WITH HEADER LINE.
SELECT * FROM vbak INTO TABLE it_tab.
LOOP AT it_tab.
g_tabix = sy-tabix.
IF it_tab-audat <> g_date.
DELETE it_tab INDEX g_tabix.
CONTINUE.
ENDIF.
g_lines2 = g_lines2 + 1.
WRITE:/ it_tab-vbeln,it_tab-audat.
ENDLOOP.
DESCRIBE TABLE it_tab LINES g_lines1.
g_lines3 = LINES( it_tab ).
WRITE :/ g_lines1,g_lines2,g_lines3.
取IP地址的方法
*& Report Z_IP *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
DATA HOSTADR LIKE UINFO-HOSTADR.
DATA HOSTADDR(8).
DATA TERM LIKE UINFO-TERM.
DATA XHCOUNT TYPE I.
DATA: IPTXT(15),ITIMES TYPE I,ITIMES1 TYPE I,HX(2).
DATA: RESULT TYPE I,RESULTTXT(3).
CALL FUNCTION 'TH_USER_INFO'
IMPORTING HOSTADDR = HOSTADR "like UINFO-HOSTADR (hex)
HOSTADDR = HOSTADR.
DO 4 TIMES.
HX = HOSTADDR+ITIMES1(2).
ITIMES = 0.
RESULT = 0.
DO 2 TIMES.
CASE HX+ITIMES(1).
WHEN 'A'.
IF ITIMES = 0.
RESULT = RESULT + 10 * 16.
ELSE.
RESULT = RESULT + 10.
ENDIF.
WHEN 'B'.
IF ITIMES = 0.
RESULT = RESULT + 11 * 16.
ELSE.
RESULT = RESULT + 11.
ENDIF.
WHEN 'C'.
IF ITIMES = 0.
RESULT = RESULT + 12 * 16.
ELSE.
RESULT = RESULT + 12.
ENDIF.
WHEN 'D'.
IF ITIMES = 0.
RESULT = RESULT + 13 * 16.
ELSE.
RESULT = RESULT + 13.
ENDIF.
WHEN 'E'.
IF ITIMES = 0.
RESULT = RESULT + 14 * 16.
ELSE.
RESULT = RESULT + 14.
ENDIF.
WHEN 'F'.
IF ITIMES = 0.
RESULT = RESULT + 15 * 16.
ELSE.
RESULT = RESULT + 15.
ENDIF.
WHEN OTHERS.
IF ITIMES = 0.
RESULT = RESULT + HX+ITIMES(1) * 16.
ELSE.
RESULT = RESULT + HX+ITIMES(1).
ENDIF.
ENDCASE.
ITIMES = ITIMES + 1.
ENDDO.
RESULTTXT = RESULT.
IF IPTXT <> ''.
CONCATENATE IPTXT '.' RESULTTXT INTO IPTXT.
ELSE.
IPTXT = RESULTTXT.
ENDIF.
ITIMES1 = ITIMES1 + 2.
ENDDO.
Archives
1990年1月15日 2007年1月14日 2007年1月15日 2007年1月16日 2007年1月17日 2007年1月18日 2007年1月19日 2007年1月20日 2007年1月22日 2007年1月23日 2007年1月24日 2007年1月25日 2007年1月26日 2007年1月27日 2007年1月29日 2007年1月30日 2007年1月31日 2007年2月1日 2007年2月2日 2007年2月3日 2007年3月13日 2007年5月15日 2007年5月16日 2007年6月2日
