Attribute VB_Name = "Common"
' JAPI TvvO
'   (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
'
'         2003.8.11 Created by NEC Soft
'
' ʃW[
'
'   FJAPIgpŕKvƂȂ鋤ʊ֐`
'
'   ֐F
'       ConvertTime  Ctime_tlVBDate^ɕϊ
'       ErrorMsg     JAPĨG[R[hɑΉ郁bZ[W\
'       SetEvtParam  vbCrLfStr$(0)ɒuAŌStr$(0)+Str$(0)t
'

'ʕϐ
Public JobInfo As JMSSJOBINFOEX   'Wu
Public lJobNo As Long           'Wuԍ

'lϊ
'
'   FCtime_t^VB̌`ɕϊ
'
'   Ftime_tValue  Ctime_tl
'
'   ߒlF"yyyy/mm/dd hh:nn:ss"`̓
'
Public Function ConvertTime(time_tValue As Long) As Variant
    'Ctime_t^"1970/1/1 00:00:00"̕blŁA
    '{ł͕WԂ9ԂĂ̂"1970/1/1 09:00:00"
    'ɕbZĂ
    ConvertTime = Format(DateAdd("s", time_tValue, "1970/01/01 09:00:00"), "yyyy/mm/dd hh:nn:ss")
End Function

'G[bZ[W\
'
'   FJAPĨG[lɑΉ郁bZ[W\
'
'   FlError    G[R[h
'
Public Sub ErrorMsg(lError As Long)
    Select Case lError
        Case JMSS_PARAM_ERROR
            msg = "p[^G[ł"
        Case JMSS_NOT_ENOUGH_MEMORY
            msg = "sł"
        Case JMSS_NO_CONNECT
            msg = "JMSST[oɐڑł܂"
        Case JMSS_NOGET_SERVERNAME
            msg = "ftHgJMSST[o擾ł܂"
        Case JMSS_SECURITY_NO_USE
            msg = "JMSSp܂"
        Case JMSS_SECURITY_NO_THROW
            msg = "܂"
        Case JMSS_SECURITY_NO_STOP
            msg = "I܂"
        Case JMSS_QUEUE_NOTFOUND
            msg = "L[܂"
        Case JMSS_QUEUE_FULL
            msg = "L[ςł"
        Case JMSS_QUEUE_CLOSED
            msg = "L[Ă܂"
        Case JMSS_NO_JOB
            msg = "w肵Wuԍ̃Wu݂͑܂B܂͖sł"
        Case JMSS_NOWATCH
            msg = "ĎĂ܂"
        Case JMSS_TIMEOUT
            msg = "^CAEg܂"
        Case JMSS_NOT_ENOUGH_BUF
            msg = "obt@sł"
        Case JMSS_CANCEL
            msg = "LZ܂"
        Case JMSS_NO_TERMINATE
            msg = "Ił܂"
        Case JMSS_WSEML_JOB
            msg = "WS-EML̃Wuł"
        Case JMSS_NO_SEND_EVENT
            msg = "CxgMł܂"
        Case JMSS_SECURITY_ERROR
            msg = "ZLeB擾G[ł"
        Case JMSS_NO_PAUSE
            msg = "ꎞ~ł܂"
        Case JMSS_NO_RESTART
            msg = "ĊJł܂"
        Case JMSS_NOT_JOBNET
            msg = "Wulbgł͂܂"
        Case JMSS_ERROR_NOGET_ENVIRONMENT
            msg = "WS-EMLpϐ擾ł܂"
        Case JMSS_NO_CHILDJOB
            msg = "hWu͂܂"
        Case JMSS_PARENTJOB_TERMINATE
            msg = "eWuIł"
        Case JMSS_POWEROFF_TERMINATE
            msg = "dؒfɂ鋭Ił"
        Case JMSS_NOGET_PRODUCT_ID
            msg = "iR[h擾ł܂"
        Case JMSS_NOT_REPORT_EVENT
            msg = "A[gʕł܂"
        Case JMSS_NOT_INSTALLED
            msg = "JMSSɃCXg[Ă܂"
        Case JMSS_NO_HOLD
            msg = "ۗɂł܂"
        Case JMSS_NO_RELEASE
            msg = "ۗł܂"
        Case JMSS_NO_DELETE
            msg = "o^폜ł܂"
        Case JMSS_NO_STOP
            msg = "~ł܂"
        Case JMSS_NO_CONTINUE
            msg = "pł܂"
        Case JMSS_SECURITY_NO_CONTROL
            msg = "ZLeBݒ茠܂"
        Case JMSS_BADPATH
            msg = "pXł"
        Case JMSS_NO_JOBNO
            msg = "w肵Wuԍ̃Wu݂͑܂B܂͖sł"
        Case 999
            msg = "WuIĂ܂"
        Case Else
            msg = "sȃG[ł(" + Error(lError) + ")"
    End Select
    
    MsgBox msg, vbOKOnly, "JAPIbZ[W"
End Sub

'ϊ
'
'   FvbCrLfStr$(0)ɒuAŌStr$(0)+Str$(0)t
'
'   FParam  ϊ镶
'
'   ߒlFϊ̕
'
Public Function SetEvtParam(Param As String) As String
    SetEvtParam = vbNullString
    Num = InStr(Param, vbCrLf)
    Do While Num <> 0
        If (Len(Mid(Param, 1, Num - 1)) > 0) Then
            SetEvtParam = SetEvtParam + Mid(Param, 1, Num - 1) + Chr$(0)
         Param = Mid(Param, Num + 2)
         Num = InStr(Param, vbCrLf)
        Else
            Exit Do
        End If
    Loop
    SetEvtParam = SetEvtParam + Chr$(0)
End Function


