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

MS_proxyRecordConnect und Positionen

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-11-01 15:50:08 +01:00
parent 8a9ce6726a
commit 020bd7a390
3 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/DD-Record-Organizer/ClassControlCommandsUI.vb
View File

@ -808,7 +808,13 @@ Public Class ClassControlCommandsUI
Case Else
Return Nothing
End Select
End Function
Public Class MyBaseClass
End Class
Public Class MyDerivedClass : Inherits MyBaseClass
End Class
Public Shared Function Check_and_Format_Value(ControlID As Integer, RecordID As Integer, Value As String)
Try
Dim expression As String
@ -822,8 +828,15 @@ Public Class ClassControlCommandsUI
FORMAT_TYPE = CONTROL_ROW(i)("FORMAT_TYPE")
CONTROL_TYPE = CONTROL_ROW(i)("CONTROL_TYPE_ID")
Next
If CONTROL_TYPE = 0 And FORMAT_TYPE Is Nothing Then
If IsDate(Value) Then
CONTROL_TYPE = 4
Select Case FORMAT_TYPE
End If
End If
Select Case FORMAT_TYPE
Case "Currency"
If Not Value = String.Empty Then
Value = Decimal.Parse(Value, Globalization.NumberStyles.Currency).ToString

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

@ -22,7 +22,10 @@ Public Class ClassRecordCommands
Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then
ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
End If
End If
Return GUID
End Using

8
app/RecordOrganizer_RightManager/ClassDatabase.vb
View File

@ -48,6 +48,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
SQLcommand.CommandTimeout = 600
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
@ -81,6 +82,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = sql
SQLcommand.CommandTimeout = 600
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
@ -105,6 +107,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
SQLcommand.CommandTimeout = 600
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
@ -133,6 +136,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
SQLcommand.CommandTimeout = 600
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
@ -164,6 +168,7 @@ Public Class ClassDatabase
SQLcommand.CommandTimeout = timeout
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 600
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
@ -186,6 +191,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 600
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
@ -210,6 +216,7 @@ Public Class ClassDatabase
SQLconnect.ConnectionString = ConnectionStringRM
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandTimeout = 600
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
result = SQLcommand.ExecuteScalar()
@ -240,6 +247,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
SQLcommand.CommandTimeout = 600
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()