76 lines
3.4 KiB
VB.net
76 lines
3.4 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 DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND DOCTYPE_ID = " & CURRENT_DOKARTID)
|
|
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND DOCTYPE_ID = " & CURRENT_DOKARTID, 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
|