diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index d65afe9..9acfe0d 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -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 diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 928c34e..4c9659c 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -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