77 lines
3.5 KiB
VB.net
77 lines
3.5 KiB
VB.net
Public Class ClassFileResult
|
|
Public Shared DocID As Integer
|
|
Public Shared InWork As Boolean = False
|
|
Public Shared Function Set_InWork(state As Integer, comment As String)
|
|
Try
|
|
Dim upd As String
|
|
InWork = False
|
|
If comment = "" Then
|
|
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0} WHERE DocID = {1}", state, DocID)
|
|
Else
|
|
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, Environment.UserName, comment, DocID)
|
|
End If
|
|
If ClassDatabase.Execute_non_Query(upd) = True Then
|
|
InWork = True
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Unexpected Error in Set_InWork: " & ex.Message, True)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Public Shared Function Set_Displayname(Displayname As String)
|
|
Try
|
|
Dim upd As String
|
|
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}' WHERE DocID = {1}", Displayname, DocID)
|
|
Return ClassDatabase.Execute_non_Query(upd)
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Unexpected Error in Set_Displayname: " & ex.Message, True)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Public Shared Function GET_DATATABLE_INDICES_PMO()
|
|
Try
|
|
Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_FORM_ID, CURRENT_DOKARTID)
|
|
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
|
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, True)
|
|
CURRENT_TBPMO_INDEX_MAN = DT
|
|
Return True
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message, True)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Public Shared Function SET_DOCID_INDICES()
|
|
Try
|
|
Dim DT As DataTable = CURRENT_TBPMO_INDEX_MAN
|
|
If DT.Rows.Count > 0 Then
|
|
For Each row As DataRow In DT.Rows
|
|
Dim insert As String = String.Format("INSERT INTO TBPMO_DOC_INDICES (DocID,INDEX_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", DocID, row.Item("GUID"), row.Item("MAN_VALUE"), Environment.UserName)
|
|
ClassDatabase.Execute_non_Query(insert)
|
|
Next
|
|
End If
|
|
Return True
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Unexpected Error in SET_DOCID_INDICES: " & ex.Message, True)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Public Shared Function Delete_ResultFile(RESULT_DOC_ID)
|
|
Try
|
|
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0}", RESULT_DOC_ID)
|
|
If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Unexpected Error in Delete ResultFile: " & ex.Message, True)
|
|
MsgBox("Unexpected Error in Delete ResultFile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
End Class
|