edv/ADMIN
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-01-08 13:18:12 +01:00
parent de1d935624
commit a6964d7082
28 changed files with 3853 additions and 1086 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -36,6 +36,7 @@ Public Class frmDYNachrichtenVerarbeitung
End Sub
Sub initPfade()
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
Me.VERARBEITUNGS_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
'"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
Me.ZIEL_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
@@ -49,7 +50,7 @@ Public Class frmDYNachrichtenVerarbeitung
Me.BOX_VERSION = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
End Sub
Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
initPfade()
@@ -99,7 +100,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim DY_port = ""
Dim DY_PFAD_out = ""
DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out)
DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out, "")
Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
@@ -107,8 +108,7 @@ Public Class frmDYNachrichtenVerarbeitung
client.Connect()
For Each f In client.ListDirectory(DY_PFAD_out)
' MsgBox(f.Name)
If Not f.Name.StartsWith(".") Then
If Not f.Name.StartsWith(".") And Not f.IsDirectory Then
'Temp. DownloadPfad
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
@@ -2794,7 +2794,10 @@ Public Class frmDYNachrichtenVerarbeitung
If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then
AUFSCHUB.ezaAfb_AufschubnehmerEORI = TMP.DutyDefermentApplicant.Identification.ReferenceNumber
End If
AUFSCHUB.ezaAfb_AufschuBIN = TMP.AuthorisationNumber
AUFSCHUB.ezaAfb_HZA = TMP.AccountPrefix
AUFSCHUB.ezaAfb_KontoNr = TMP.AccountNumber
AUFSCHUB.ezaAfb_Aufschubart = TMP.Type
AUFSCHUB.ezaAfb_ArtAufschubantrag = TMP.ApplicationType
@@ -3603,27 +3606,35 @@ Public Class frmDYNachrichtenVerarbeitung
' ###################################################
If If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@imex") Then
EZA.eza_firma = "IMEX"
EZA.eza_niederlassung = "IMEX"
'GLOBAL--> EORI
ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@ambar") Then
EZA.eza_firma = "AMBAR"
EZA.eza_niederlassung = "AMBAR"
'GLOBAL--> EORI
ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("atilla@verag.ag") Or If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@atilla") Then
EZA.eza_firma = "ATILLA"
EZA.eza_niederlassung = "SUB"
'GLOBAL--> EORI
ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@durmaz") Then
EZA.eza_firma = "DURMAZ"
EZA.eza_niederlassung = "SBG"
'GLOBAL--> EORI
ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@verag") Then
EZA.eza_firma = "VERAG"
' EZA.eza_niederlassung = "IMEX"
'GLOBAL--> EORI
End If
'If If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@imex") Then
' EZA.eza_firma = "IMEX"
' EZA.eza_niederlassung = "IMEX"
' 'GLOBAL--> EORI
'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@ambar") Then
' EZA.eza_firma = "AMBAR"
' EZA.eza_niederlassung = "AMBAR"
' 'GLOBAL--> EORI
'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("atilla@verag.ag") Or If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@atilla") Then
' EZA.eza_firma = "ATILLA"
' EZA.eza_niederlassung = "SUB"
' 'GLOBAL--> EORI
'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@durmaz") Then
' EZA.eza_firma = "DURMAZ"
' EZA.eza_niederlassung = "SBG"
' 'GLOBAL--> EORI
'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@verag") Then
' EZA.eza_firma = "VERAG"
' ' EZA.eza_niederlassung = "IMEX"
' 'GLOBAL--> EORI
'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@unisped") Then
' EZA.eza_firma = "UNISPED"
' EZA.eza_niederlassung = "ATSP"
'End If
tryGetFirmaNiederlassung(EZA.eza_firma, EZA.eza_niederlassung, (EZA.eza_AnmeldenderBearbeiterEMail, "").ToString, bezugsNr)
End If
@@ -3645,6 +3656,63 @@ Public Class frmDYNachrichtenVerarbeitung
End Function
Public Shared Sub tryGetFirmaNiederlassung(ByRef firma As String, ByRef niederlassung As String, Mail As String, BezugsNr As String)
If Mail.Contains("@imex") Then
firma = "IMEX"
niederlassung = "IMEX"
ElseIf Mail.Contains("@ambar") Then
firma = "AMBAR"
niederlassung = "AMBAR"
ElseIf Mail.Contains("atilla@verag.ag") Or Mail.Contains("@atilla") Then
firma = "ATILLA"
niederlassung = "SUB"
ElseIf Mail.Contains("@durmaz") Then
firma = "DURMAZ"
niederlassung = "SBG"
ElseIf Mail.Contains("@verag") Then
firma = "VERAG"
ElseIf Mail.Contains("@unisped") Then
firma = "UNISPED"
niederlassung = "ATSP"
End If
If firma = "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED
Case "UNISPED"
firma = "UNISPED"
niederlassung = "ATSP"
End Select
End If
If firma = "" Then
If BezugsNr <> "" And BezugsNr.Length > 4 Then
Select Case BezugsNr.Substring(0, 4)
Case "5501"
firma = "IMEX"
'niederlassung = "IMEX"
Case "5701"
firma = "AMBAR"
niederlassung = "AMBAR"
Case "4801"
firma = "ATILLA"
niederlassung = "SUB"
'Case "4801"
' firma = "DURMAZ"
' niederlassung = "SBG"
Case "4803", "5003", "5103", "5303", "4805", "4811"
firma = "VERAG"
Case "4801"
firma = "UNISPED"
niederlassung = "ATSP"
End Select
End If
End If
End Sub
Function getEZAAresseFromLine(AdressTMP, typ) As DAKOSY_Worker.cDakosy_EZA_Adressen
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = typ