AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2022-05-30 15:05:52 +02:00
parent 36e645ed84
commit fb7e2df49f
6 changed files with 321 additions and 289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -613,13 +613,17 @@ Public Class frmValidator
End Try
bbtniRefreshSearches.Visibility = BarItemVisibility.Always
RibbonPageCustAttmt.Visible = True
RibbonPageGroupCustom.Visible = True
Else
LOGGER.Debug("AdditionlSearhes result = false!")
bbtniRefreshSearches.Visibility = BarItemVisibility.Never
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Never
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Never
RibbonPageCustAttmt.Visible = False
If barbtnitmExport.Visibility = BarItemVisibility.Never Then
RibbonPageGroupCustom.Visible = False
Else
RibbonPageGroupCustom.Visible = True
End If
End If
@@ -2528,16 +2532,16 @@ Public Class frmValidator
End If
End If
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " Of " & Anzahl_ValDoks & " files"
'If WMDocPathWindows <> String.Empty Then
' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
Dim sql = $"UPDATE TBPM_PROFILE_FILES Set IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
DatabaseFallback.ExecuteNonQueryECM(Sql)
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " Of " & Anzahl_ValDoks & " files"
'If WMDocPathWindows <> String.Empty Then
' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
Dim sql = $"UPDATE TBPM_PROFILE_FILES Set IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
DatabaseFallback.ExecuteNonQueryECM(sql)
' ############ Infos eintragen #################
' txtDateipfad.Text = Document_Path
Dim omsg = $"Verbleibende Belege: {Amount_Docs2Validate}"
' txtDateipfad.Text = Document_Path
Dim omsg = $"Verbleibende Belege: {Amount_Docs2Validate}"
If USER_LANGUAGE <> "de-DE" Then
omsg = $"Remaining documents: {omsg}"
End If
@@ -3728,7 +3732,7 @@ Public Class frmValidator
End Try
Try
If RibbonPageCustTitle <> "" Then
RibbonPageCustAttmt.Text = RibbonPageCustTitle
RibbonPageGroupCustom.Text = RibbonPageCustTitle
End If
If Not IsNothing(WMDocPathWindows) Then
If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then