00030 | | -F00095ReserveObject(N0000602.F00095ReserveObject)
| | "F4801" -> szNameObject [OBNM]
| | SL UserID -> szUserId [USER]
| | "1" -> cSuppressErrorMessage [EV01]
| | VA frm_szRecordResErrorMsg_DTAI [DTAI] <- szErrorMessageID [DTAI]
| | VA frm_szReserversName_ALPH [ALPH] <- szReserversNameAlpha [ALPH]
| | VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
| | VA frm_szUniqueIDRecReserve_PID [PID] -> szApplication [PID]
| | VA frm_szReserversAppId_PID [PID] <- szReserversApplication [PID]
| | <Blank> -> cWarningError [EV01]
00031 | | -If VA frm_szRecordResErrorMsg_DTAI [DTAI] is greater than <Blank>
00032 | | | -If FI szProgramId [PID] is not equal to "P31P001"
00033 | | | | -SetReservationError(B0000603.SetReservationError)
| | | | VA frm_szReserversName_ALPH [ALPH] -> szReserversNameAlpha [ALPH]
| | | | VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
| | | | VA frm_szReserversAppId_PID [PID] -> szApplication [PID]
| | | | "0" -> cWarningError [EV01]
00034 | | | | Disable Control(HC &OK/&Select)
00035 | | | End If
00036 | | -Else
00037 | | | -F00095RemoveReservation(N0000602.F00095RemoveReservation)
| | | SL UserID -> szUserId [USER]
| | | "F4801" -> szNameObject [OBNM]
| | | VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
| | | VA frm_szUniqueIDRecReserve_PID [PID] -> szApplication [PID]
00038 | | | VA frm_szGenericKey_GENKEY [GENKEY] = [FI DocumentOrderInvoiceE [DOCO]]
00039 | | | -F00095ReserveObject(N0000602.F00095ReserveObject)
| | | "F4801" -> szNameObject [OBNM]
| | | SL UserID -> szUserId [USER]
| | | "1" -> cSuppressErrorMessage [EV01]
| | | VA frm_szRecordResErrorMsg_DTAI [DTAI] <- szErrorMessageID [DTAI]
| | | VA frm_szReserversName_ALPH [ALPH] <- szReserversNameAlpha [ALPH]
| | | VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
| | | VA frm_szUniqueIDRecReserve_PID [PID] -> szApplication [PID]
| | | VA frm_szReserversAppId_PID [PID] <- szReserversApplication [PID]
| | | <Blank> -> cWarningError [EV01]
00040 | | | -If VA frm_szRecordResErrorMsg_DTAI [DTAI] is greater than <Blank>
00041 | | | | -If FI szProgramId [PID] is not equal to "P31P001"
00042 | | | | | -SetReservationError(B0000603.SetReservationError)
| | | | | VA frm_szReserversName_ALPH [ALPH] -> szReserversNameAlpha [ALPH]
| | | | | VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
| | | | | VA frm_szReserversAppId_PID [PID] -> szApplication [PID]
| | | | | "0" -> cWarningError [EV01]
00043 | | | | | Disable Control(HC &OK/&Select)
00044 | | | | End If
00045 | | | End If
00046 | | End If