edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-05-31 22:25:35 +02:00
parent 4a358d43fd
commit 083e666fbc
214 changed files with 14292 additions and 4117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2855
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb
View File

File diff suppressed because it is too large Load Diff

12
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippment.vb
View File

@@ -151,7 +151,7 @@ Public Class cVERAG_in_shippment
Public Function SAVE(Optional saveAll = True) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVERAG_in_shippment_Anmeldung WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
@@ -176,7 +176,7 @@ Public Class cVERAG_in_shippment
' SICHERHEIT.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Anmeldung WHERE in_sh_id=@in_sh_id ", conn)
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment WHERE in_sh_id=@in_sh_id ", conn)
cmd.Parameters.AddWithValue("@in_sh_id", in_sh_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
@@ -213,7 +213,7 @@ Public Class cVERAG_in_shippment
' 'telanm_Status_KEWILL_Equivalent = status
' 'telanm_Status = status
' Return SQL.doSQLVarList(" UPDATE [tblVERAG_in_shippment_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -234,7 +234,7 @@ Public Class cVERAG_in_shippment
' 'telanm_Status = status
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Return SQL.doSQLVarList(" UPDATE [tblVERAG_in_shippment_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -282,7 +282,7 @@ Public Class cVERAG_in_shippment
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblVERAG_in_shippment_Anmeldung] SET " & str & " WHERE in_sh_id=@in_sh_id ")
Return (" UPDATE [tblTR_Shipment] SET " & str & " WHERE in_sh_id=@in_sh_id ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -304,7 +304,7 @@ Public Class cVERAG_in_shippment
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblVERAG_in_shippment_Anmeldung (" & str & ") VALUES(" & values & ") ")
Return (" INSERT INTO tblTR_Shipment (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try