AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MSKW41

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-10-16 11:06:35 +02:00
parent 5a345bd658
commit 76796df71f
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -3172,7 +3172,7 @@ Public Class frmConstructor_Main
End If
TabWindream.Text = stg
End If
Dim sel = String.Format("SELECT * FROM TBPMO_RECORD WHERE RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}) AND FORM_ID = {1} AND GUID <> {2}", SELECTED_RECORD_ID, ENTITY_ID, SELECTED_RECORD_ID)
Dim sel = String.Format("SELECT * FROM TBPMO_RECORD WHERE RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}) AND FORM_ID = {1} AND GUID <> {2} AND DELETED = 0", SELECTED_RECORD_ID, ENTITY_ID, SELECTED_RECORD_ID)
Dim DT_VARIANT As DataTable = ClassDatabase.Return_Datatable(sel, True)
If DT_VARIANT.Rows.Count > 0 Then
TabPageVariant.PageVisible = True

5
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@ -113,7 +113,7 @@ Public Class frmRecOrgConfig_Basic
'End If
Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET WIKI_STRING = '{0}', CHANGED_WHO = '{1}', WD_UNICODE = {2} WHERE GUID = 1", Me.txtWiki.Text, USER_USERNAME, wduni)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
If ClassDatabase.Execute_non_Query(upd) = True Then
lblSaveresult.Visible = True
Else
lblSaveresult.Visible = False
@ -237,4 +237,7 @@ Public Class frmRecOrgConfig_Basic
End If
End Sub
Private Sub txtWiki_VisibleChanged(sender As Object, e As EventArgs) Handles txtWiki.VisibleChanged
End Sub
End Class

2
app/DD-Record-Organizer/frmWD_IndexFile.vb
View File

@ -45,6 +45,7 @@ Public Class frmWD_IndexFile
End If
sw.Done()
sw = New SW("CheckFileExists")
If clsWD_GET.WDFile_exists(CURRENT_NEWFILENAME.Substring(2), clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer) = True Then
sw.Done()
Dim msg = "Eine Datei mit identischem Namen existiert bereits! Wollen Sie die bestehende Datei ersetzen?"
@ -72,6 +73,7 @@ Public Class frmWD_IndexFile
sw.Done()
'#################################################################
If streamresult = True Then
sw = New SW("File Indexing")
CURRENT_FILEIN_WD = CURRENT_NEWFILENAME
Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND UPPER(INDEXNAME) NOT LIKE UPPER('%ONLY %') AND SQL_ACTIVE = 0 AND DOCTYPE_ID = " & vDokart_ID