0038 If GC BatchType is equal to "G"
0039 VA evt_cPostVersionFound_EV01 = "1"
0040 CALL( UBE:R09801 , Ver: ZJDE0001 )
GC Batch Type <> RI BatchType
GC Batch Number -> RI BatchNumber
0041 End If
0042 If GC BatchType is equal to "D"
0043 VA evt_cPostVersionFound_EV01 = "1"
0044 CALL( UBE:R09801 , Ver: ZJDE0010 )
GC Batch Type <> RI BatchType
GC Batch Number -> RI BatchNumber
0045 End If
0046 If GC BatchType is equal to "V"
0047 VA evt_cPostVersionFound_EV01 = "1"
0048 CALL( UBE:R09801 , Ver: ZJDE0002 )
GC Batch Type <> RI BatchType
GC Batch Number -> RI BatchNumber
0049 End If
0050 If GC BatchType is equal to "K"
0051 VA evt_cPostVersionFound_EV01 = "1"
0052 CALL( UBE:R09801 , Ver: ZJDE0003 )
GC Batch Type <> RI BatchType
GC Batch Number -> RI BatchNumber
0053 End If
0054 If GC BatchType is equal to "M"
0055 VA evt_cPostVersionFound_EV01 = "1"
0056 CALL( UBE:R09801 , Ver: ZJDE0004 )
GC Batch Type <> RI BatchType
GC Batch Number -> RI BatchNumber
0057 End If
0058 If GC BatchType is equal to "W"
0059 VA evt_cPostVersionFound_EV01 = "1"
0060 CALL( UBE:R09801 , Ver: ZJDE0005 )
GC Batch Type <> RI BatchType
GC Batch Number -> RI BatchNumber
0061 End If
0062 If GC BatchType is equal to "IB"
0063 VA evt_cPostVersionFound_EV01 = "1"
0064 CALL( UBE:R09801 , Ver: ZJDE0006 )
GC Batch Type <> RI BatchType
GC Batch Number -> RI BatchNumber
0065 End If