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

MS:02.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-03 09:54:39 +01:00
parent f26ba63935
commit 304df6b023
19 changed files with 182 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organiser/frmWiedervorlage.vb
View File

@@ -110,6 +110,7 @@
Private Sub TBPMO_FOLLOW_UP_EMAILBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_FOLLOW_UP_EMAILBindingSource.AddingNew
Try
Me.FOLLOW_UP_SEQUENCEComboBox.SelectedIndex = 0
DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn.DefaultValue = "0000000"
Catch ex As Exception
@@ -230,7 +231,10 @@
Exit Sub
End If
Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql)
Dim follup_Days = ClassDatabase.Execute_Scalar(sql)
If IsNothing(follup_Days) Then
follup_Days = "0000000"
End If
Dim follup_Old = follup_Days
CheckChange = True
If CheckBox1.Checked Then