shu/EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update nach Anpassung BedR

Browse Source
This commit is contained in:
Stefan Hutter
2022-12-26 16:08:36 +01:00
parent 7b68dffd3f
commit ac2cda6ae8
18 changed files with 505 additions and 500 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
EDOKA/Dokumentmanagement/frmDokumentbearbeitung.vb
View File

@@ -3888,27 +3888,32 @@ Public Class frmDokumentbearbeitung
End If
End If
Next
If Me.BedingteRetournierung = True Then
xdata = Me.Dataset1BR.Tables(0)
For i = 0 To xdata.Rows.Count - 1
If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then
Else
If xdata.Rows(i).Item("zwingend") = True Then
If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then
MyMsg.show_standardmessage(206, MsgBoxStyle.Critical)
' Me.TabControl2.TabPages(4).Select()
' Me.TabControl2.TabPages(4).BringToFront()
' Me.TabControl2.TabPages(4).Focus()
Me.TabControl2.SelectedIndex = 4
Me.TabControl1.SelectedIndex = 0
Me.DokWertListBR.Focus()
xdata.Dispose()
Exit Sub
' Erneuerung DMS
Try
If Me.BedingteRetournierung = True Then
xdata = Me.Dataset1BR.Tables(0)
For i = 0 To xdata.Rows.Count - 1
If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then
Else
If xdata.Rows(i).Item("zwingend") = True Then
If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then
MyMsg.show_standardmessage(206, MsgBoxStyle.Critical)
' Me.TabControl2.TabPages(4).Select()
' Me.TabControl2.TabPages(4).BringToFront()
' Me.TabControl2.TabPages(4).Focus()
Me.TabControl2.SelectedIndex = 4
Me.TabControl1.SelectedIndex = 0
Me.DokWertListBR.Focus()
xdata.Dispose()
Exit Sub
End If
End If
End If
End If
Next
End If
Next
End If
Catch
End Try
If Me.mcbteam.SelectedValue = 0 Then
MyMsg.show_standardmessage(207, MsgBoxStyle.Critical)
Me.mcbteam.Focus()
@@ -4608,14 +4613,15 @@ Public Class frmDokumentbearbeitung
w.Ersetzte_Dokumente_Reaktivieren = Globals.Ersetzte_Dokumente_Reaktivieren
End If
If Me.BedingteRetournierung = True Then
If Globals.DokumentColdIndex_ChangedBR Then
w.dokumentidaltbr = Globals.Dokumentidaltbr
w.save_dokumentcoldindexbr = Globals.general_dsbr.Tables(Globals.general_dsbr.Tables.Count - 1).Copy
w.Dokumentcoldindex_changedbr = Globals.DokumentColdIndex_ChangedBR
w.dokumentid_changedbr = Globals.dokumentid_changedbr
w.dokumentcoldindex_statusbr = Globals.Dokumentcoldindex_statusbr
w.Ersetzte_Dokumente_Reaktivierenbr = Globals.ersetzte_dokumente_reaktivierenbr
End If
'Erneuerung DMS
'If Globals.DokumentColdIndex_ChangedBR Then
' w.dokumentidaltbr = Globals.Dokumentidaltbr
' w.save_dokumentcoldindexbr = Globals.general_dsbr.Tables(Globals.general_dsbr.Tables.Count - 1).Copy
' w.Dokumentcoldindex_changedbr = Globals.DokumentColdIndex_ChangedBR
' w.dokumentid_changedbr = Globals.dokumentid_changedbr
' w.dokumentcoldindex_statusbr = Globals.Dokumentcoldindex_statusbr
' w.Ersetzte_Dokumente_Reaktivierenbr = Globals.ersetzte_dokumente_reaktivierenbr
'End If
End If
@@ -6101,6 +6107,8 @@ Public Class frmDokumentbearbeitung
Me.Load_Create_Dokument_Bedingte_Retournierung()
Else
'Erneuerung DMS
Exit Sub
docbr.cpMainConnectionProvider = conn
docbr.sDokumentid = New SqlString(CType(doc.sBedRDokumentid.Value, String))
docbr.SelectOne()
@@ -6120,13 +6128,15 @@ Public Class frmDokumentbearbeitung
Private Sub Load_Defaults_Bedingte_Retournierung()
Exit Sub
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
DokTypBR.cpMainConnectionProvider = conn
DokTypBR.iDokumenttypnr = New SqlInt32(CType(Doktyp.iDoktypbedingteretournierung.Value, Int32))
DokTypBR.SelectOne()
If Doktyp.bFunktionen_zuweisen.Value = True Then
Dokumentfunktionen_AktivierenBR()
' Erneuerung DMS
'Dokumentfunktionen_AktivierenBR()
Else
w.Save_DokumentFunktionenbr = Generic_Select(106)
End If
@@ -6270,6 +6280,8 @@ Public Class frmDokumentbearbeitung
End Sub
Private Sub Insert_Update_Bedingte_Retournierung(ByVal Insertdata As Boolean)
'Ernerung DMS
Exit Sub
docbr.cpMainConnectionProvider = conn
docbr.sDokumentid = New SqlString(CType(doc.sDokumentid.Value, String))
conn.OpenConnection()