WHS电子仓FIFO先进先出逻辑变更为SP

zhgc

WHS电子仓FIFO先进先出逻辑变更为SP

1. '于2019-05-04取消该函数，改为CHECK_FIFO_WHS_OUT_SP用SP来检查逻辑
   
2. Public Function CHECK_FIFO_WHS_OUT(in_trsn As String) As Boolean
   
3. 
   
4. Dim strsql As String
   
5. Dim strkp As String
   
6. Dim i, j As Integer
   
7. Dim rs As ADODB.Recordset
   
8. Dim rs1 As ADODB.Recordset
   
9. Dim in_trsn_bak As String
   
10. 
    
11. On Error GoTo check_Error
    
12. strtrsn = ""
    
13. 
    
14. '备份原始TR_SN﹐便于下面还原
    
15. in_trsn_bak = in_trsn
    
16. '根据TR_SN找到料号
    
17. strsql = "SELECT TR_SN,CUST_KP_NO FROM smt.r_tr_sn WHERE TR_SN='" & in_trsn & "' "
    
18. Set rs = Adocn.Execute(strsql)
    
19. '找到料号赋值
    
20. If Not rs.EOF Then
    
21.     strkp = rs.Fields("CUST_KP_NO")
    
22. Else
    
23.     CHECK_FIFO_WHS_OUT = False
    
24. End If
    
25. '根据料号﹐查找此料号所有在WHS的序号﹐并按日期从小到大排序
    
26. strsql = "SELECT SUBSTR (tr_sn, 2, 6) AS trno, cust_kp_no, tr_sn " & _
    
27.          "From smt.r_tr_sn " & _
    
28.          "WHERE cust_kp_no = '" & strkp & "' and location_flag='0' and work_flag=0 " & _
    
29.          "ORDER BY TO_NUMBER(trno)"
    
30. Set rs = Adocn.Execute(strsql)
    
31. '将此料号在WHS中最旧料盘日期与目前将要发出的料盘进行对比
    
32. If rs.EOF Then
    
33.     CHECK_FIFO_WHS_OUT = True
    
34. Else
    
35.     '判断是否分盘记录﹐有则按原始条码日期为主
    
36.     strsql = "select * from smt.r_tr_sn_adjust where sub_tr_sn='" & in_trsn & "'"
    
37.     Set rs1 = Adocn.Execute(strsql)
    
38.     If rs1.EOF = True Then
    
39.         '没有分盘记录
    
40.     Else
    
41.         '有分盘记录﹐则找出原序号
    
42.         in_trsn = rs1.Fields("tr_sn")
    
43.     End If
    
44.    
    
45.     If rs!trno <> Mid(Trim(in_trsn), 2, 6) And rs!trno < Mid(Trim(in_trsn), 2, 6) Then
    
46.        '发现库存中的料盘日期比目前先﹐则应该先发库存中的旧料﹔不符合FIFO
    
47.         CHECK_FIFO_WHS_OUT = False
    
48.         '找出旧的TR_SN
    
49.         Do While Not rs.EOF
    
50.             If rs!trno <> Mid(Trim(in_trsn), 2, 6) And rs!trno < Mid(Trim(in_trsn), 2, 6) Then
    
51.                strtrsn = strtrsn + "'" + rs!tr_sn + "',"
    
52.             End If
    
53.             rs.MoveNext
    
54.         Loop
    
55. '        strtrsn = Left(strtrsn, Len(strtrsn) - 2)
    
56.         strtrsn = Mid(strtrsn, 2, Len(strtrsn) - 3)
    
57.     Else
    
58.         CHECK_FIFO_WHS_OUT = True
    
59.     End If
    
60.     '还原序号﹐当有分盘记录时会变更﹐因此需要还原
    
61.     in_trsn = in_trsn_bak
    
62.    
    
63. End If
    
64.          
    
65. Exit Function
    
66. check_Error:
    
67. 
    
68.     MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CHECK_FIFO_WHS_OUT "
    
69. 
    
70. End Function

复制代码

zhgc

ＳＰ为：SMT.WHS_CHECK_FIFO

zhgc

工厂WHS的FIFO分两种： 1是按DC，2是按收料入库的时间，注意区分客户工厂采用的哪种模式！

z395809032

需确认用户的先进先出管控时间点类型
时间点类型分为
1.收料时间
2.入库时间
3.制造商D/C，L/C
4.IQC检验完成时间
依不同客户类型定义

syant

那如果是用PDA扫Check_out时呢？

控制SP： smt.APP_WHS_CHECKOUT