MS clswindream entfernt Umstieg auf Modulwindream
This commit is contained in:
@@ -1,5 +1,5 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports DD_LIB_Standards
|
||||
'Imports DD_LIB_Standards'
|
||||
|
||||
Public Class ClassRecordCommands
|
||||
Public Shared Function CreateRecordProcedure(formId As Integer)
|
||||
@@ -21,12 +21,12 @@ Public Class ClassRecordCommands
|
||||
connection.Close()
|
||||
|
||||
Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
|
||||
If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
|
||||
If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then
|
||||
ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
|
||||
End If
|
||||
'If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
|
||||
' If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then
|
||||
' ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
|
||||
' End If
|
||||
|
||||
End If
|
||||
'End If
|
||||
Return GUID
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user