NCTS ATEZ
This commit is contained in:
@@ -2451,6 +2451,10 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: StatusmeldungNCTSDE", STATUS.dySt_BezugsNr)
|
||||
@@ -3131,6 +3135,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -3197,6 +3204,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung 003", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -3263,6 +3273,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung 003", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -3332,6 +3345,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Ereignismitteilung001", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -3631,6 +3647,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -3745,6 +3764,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -3908,6 +3930,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -4087,6 +4112,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -4126,6 +4154,64 @@ Public Class cWorker_NCTS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Shared Sub checkATEZIRU_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
|
||||
If DY_TMP Is Nothing Then Exit Sub
|
||||
'Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
|
||||
If (DY_TMP.dy_BezugsNr.Contains("IRU0")) Then
|
||||
' Dim fio As New IO.FileInfo(filePath)
|
||||
' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
|
||||
|
||||
Try
|
||||
|
||||
If Not System.IO.File.Exists(filePath) Then
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim F As New System.IO.FileInfo(filePath)
|
||||
|
||||
'Dim DY_server = "91.93.197.91"
|
||||
'Dim DY_name = "Verag"
|
||||
'Dim DY_pwd = "5P1PYOr1"
|
||||
''Dim DY_name = "Verag-test"
|
||||
''Dim DY_pwd = "A1ZDTK99"
|
||||
'Dim DY_port = "22"
|
||||
'Dim DY_PFAD_IN = ""
|
||||
'Dim DY_PFAD_IN_KD = ""
|
||||
|
||||
|
||||
Dim DY_server = "sftp-01.singlewindow.io"
|
||||
Dim DY_name = "IRU-TEST"
|
||||
Dim DY_pwd = "T1AF58OP"
|
||||
'Dim DY_name = "Verag-test"
|
||||
'Dim DY_pwd = "A1ZDTK99"
|
||||
Dim DY_port = "22"
|
||||
Dim DY_PFAD_IN = "/TIR/DE/OUT"
|
||||
Dim DY_PFAD_IN_KD = ""
|
||||
|
||||
'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
|
||||
|
||||
Dim ConnectionInfo As New Renci.SshNet.ConnectionInfo(DY_server, DY_port, DY_name, New Renci.SshNet.PasswordAuthenticationMethod(DY_name, DY_pwd))
|
||||
Using client = New Renci.SshNet.SftpClient(ConnectionInfo)
|
||||
client.Connect()
|
||||
If DY_PFAD_IN <> "" Then client.ChangeDirectory(DY_PFAD_IN)
|
||||
Using uplfileStream = System.IO.File.OpenRead(filePath)
|
||||
client.UploadFile(uplfileStream, "." & F.Name, True)
|
||||
client.RenameFile("." & F.Name, F.Name)
|
||||
End Using
|
||||
client.Disconnect()
|
||||
End Using
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Shared Sub checkATEZ_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String)
|
||||
If dy_BezugsNr = "" Then Exit Sub
|
||||
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)
|
||||
@@ -4154,13 +4240,23 @@ Public Class cWorker_NCTS
|
||||
End If
|
||||
Dim F As New System.IO.FileInfo(filePath)
|
||||
|
||||
Dim DY_server = "91.93.197.91"
|
||||
Dim DY_name = "Verag"
|
||||
Dim DY_pwd = "5P1PYOr1"
|
||||
'Dim DY_server = "91.93.197.91"
|
||||
'Dim DY_name = "Verag"
|
||||
'Dim DY_pwd = "5P1PYOr1"
|
||||
''Dim DY_name = "Verag-test"
|
||||
''Dim DY_pwd = "A1ZDTK99"
|
||||
'Dim DY_port = "22"
|
||||
'Dim DY_PFAD_IN = ""
|
||||
'Dim DY_PFAD_IN_KD = ""
|
||||
|
||||
|
||||
Dim DY_server = "sftp-01.singlewindow.io"
|
||||
Dim DY_name = "IRU-TEST"
|
||||
Dim DY_pwd = "T1AF58OP"
|
||||
'Dim DY_name = "Verag-test"
|
||||
'Dim DY_pwd = "A1ZDTK99"
|
||||
Dim DY_port = "22"
|
||||
Dim DY_PFAD_IN = ""
|
||||
Dim DY_PFAD_IN = "/TIR/DE/OUT"
|
||||
Dim DY_PFAD_IN_KD = ""
|
||||
|
||||
'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
|
||||
@@ -4266,6 +4362,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -4336,6 +4435,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
@@ -4405,6 +4507,9 @@ Public Class cWorker_NCTS
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
|
||||
@@ -14,7 +14,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
|
||||
Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\"
|
||||
Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\"
|
||||
Dim BOX_VERSION = "8.8"
|
||||
Dim BOX_VERSION = "10"
|
||||
|
||||
Dim Dateiname = ""
|
||||
|
||||
@@ -1142,7 +1142,9 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
|
||||
'==================================
|
||||
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
|
||||
'==================================
|
||||
|
||||
Case "EZA", ""
|
||||
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
|
||||
@@ -1277,7 +1279,9 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
|
||||
'==================================
|
||||
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
|
||||
'==================================
|
||||
|
||||
Case "EZA", ""
|
||||
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
|
||||
@@ -10808,5 +10812,16 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Return atez
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function isAtezIRU(bezugsNr As String) As Boolean
|
||||
Dim atez As Boolean = False
|
||||
|
||||
If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(bezugsNr.Length, 4) = "IRU0" Then
|
||||
atez = True
|
||||
End If
|
||||
|
||||
Return atez
|
||||
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user