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

ATEZ und Digicust

Browse Source
This commit is contained in:
d.breimaier
2023-09-08 17:11:55 +02:00
parent eaaa59fef6
commit 6ebe8812f8
4 changed files with 391 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -5,6 +5,7 @@ Imports System.Threading
Imports System.Web.Routing
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports Newtonsoft.Json.Linq
Public Class cATEZ_NCTS_DATA
@@ -34,7 +35,7 @@ Public Class cATEZ_NCTS_DATA
Public Property AvisoId As Integer
Public Property SendungsId As Integer
Public Property atezId As String
Public Property json As String
'Public Property json As String
Public Property dakosy_ref As String
Public Property selectedDocuments As String
Public Property fehlerbeschreibung As String
@@ -71,7 +72,7 @@ Public Class cATEZ_NCTS_DATA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atezId", atezId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellung", erstellung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dakosy_ref", dakosy_ref))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("selectedDocuments", selectedDocuments))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fehlerbeschreibung", fehlerbeschreibung))
@@ -213,13 +214,17 @@ Public Class cATEZ_NCTS_DATA
Return Nothing
End Function
Public Function delete() As Boolean
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim v = SQL.doSQL("delete FROM tblATEZ_NCTS WHERE id='" & Id & "'", "FMZOLL")
End Function
End Class
Public Class cATEZ_NCTS_TransitCustomsOffice
Public Property Id As Integer
Public Property AtezNCTS_Id As Integer
Public Property TransitCustomsOffice As String
@@ -240,6 +245,7 @@ Public Class cATEZ_NCTS_TransitCustomsOffice
Me.AtezNCTS_Id = AtezNCTS_Id
Me.TransitCustomsOffice = TransitCustomsOffice
SAVE()
End Sub
Sub New(Id)
@@ -247,10 +253,15 @@ Public Class cATEZ_NCTS_TransitCustomsOffice
LOAD()
End Sub
Sub New()
End Sub
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblATEZ_NCTS_TransitCustomsOffice WITH(updlock,serializable) WHERE Id=@Id) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblATEZ_NCTS_TransitCustomsOffice WITH(updlock,serializable) WHERE AtezNCTS_Id = @AtezNCTS_Id AND TransitCustomsOffice = @TransitCustomsOffice ) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
@@ -273,7 +284,7 @@ Public Class cATEZ_NCTS_TransitCustomsOffice
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblATEZ_NCTS_TransitCustomsOffice] SET " & str & " WHERE Id=@Id ")
Return (" UPDATE [tblATEZ_NCTS_TransitCustomsOffice] SET " & str & " WHERE AtezNCTS_Id = @AtezNCTS_Id AND TransitCustomsOffice = @TransitCustomsOffice ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -340,6 +351,14 @@ Public Class cATEZ_NCTS_TransitCustomsOffice
Next
End Sub
Public Shared Function delete(ATEZid As Integer) As Boolean
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim v = SQL.doSQL("delete FROM tblATEZ_NCTS_TransitCustomsOffice WHERE AtezNCTS_Id='" & ATEZid & "'", "FMZOLL")
End Function
End Class
Public Class cATEZ_NCTS_Routen
@@ -373,6 +392,10 @@ Public Class cATEZ_NCTS_Routen
LOAD()
End Sub
Sub New()
End Sub
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
@@ -466,6 +489,12 @@ Public Class cATEZ_NCTS_Routen
Next
End Sub
Public Shared Function delete(ATEZid As Integer) As Boolean
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim v = SQL.doSQL("delete FROM tblATEZ_NCTS_Routen WHERE AtezNCTS_Id='" & ATEZid & "'", "FMZOLL")
End Function
End Class
@@ -510,6 +539,8 @@ Public Class cATEZ_NCTS_IN
Dim sbRequestBody As New Chilkat.StringBuilder
json.EmitSb(sbRequestBody)
'DEBUG-Mode -> no request will be sent!
'rest.DebugMode = True
Dim sbResponseBody As New Chilkat.StringBuilder
Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody)
@@ -569,11 +600,15 @@ Public Class cATEZ_NCTS_IN
Dim sbRequestBody As New Chilkat.StringBuilder
jsonData.EmitSb(sbRequestBody)
'Debug.WriteLine(sbRequestBody)
Debug.WriteLine(sbRequestBody)
'DEBUG-Mode -> no request will be sent!
'rest.DebugMode = True
rest.PercentDoneOnSend = True
rest.IdleTimeoutMs = 30000
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST", "/api/integrations/verag", sbRequestBody, sbResponseBody)
@@ -615,6 +650,7 @@ Public Class cATEZ_NCTS_IN
Shared Function setJson(ncts As cATEZ_NCTS_DATA)
jsonData.Clear()
Dim success As Boolean
success = jsonData.UpdateString("VERAG_LRN", ncts.VERAG_LRN)
@@ -636,6 +672,8 @@ Public Class cATEZ_NCTS_IN
success = jsonData.UpdateString("Carrier.Adress.Street", ncts.Carrier_Adress_Street)
success = jsonData.UpdateString("Guarantee.GRN", ncts.Guarantee_GRN)
Dim Route_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen)
VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, ncts.Id)
@@ -656,8 +694,7 @@ Public Class cATEZ_NCTS_IN
i = i + 1
Next
ncts.json = jsonData.Emit()
Debug.WriteLine(jsonData.Emit())
Return success
@@ -681,7 +718,6 @@ Public Class cATEZ_NCTS_IN
i = i + 1
End If
Next
jsonData.Emit()
Return success