NEU
This commit is contained in:
@@ -265,6 +265,21 @@ Public Class cZOLL_IMPORT
|
||||
ATLAS_SERVER_VERBINDUNG = "ATLAS"
|
||||
End If
|
||||
|
||||
If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId)
|
||||
|
||||
If EZA_Nr = "" And NCTS_Nr = "" Then
|
||||
If SENDUNG IsNot Nothing AndAlso If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
|
||||
Select Case SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
Case 5, 6, 24, 33, 34, 37, 40
|
||||
NCTS_Nr = SENDUNG.tblSnd_DakosyRef
|
||||
SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
||||
Case Else
|
||||
EZA_Nr = SENDUNG.tblSnd_DakosyRef
|
||||
SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
|
||||
End Select
|
||||
Zollsystem = 2
|
||||
End If
|
||||
End If
|
||||
'-------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' ATLAS / EZOLL
|
||||
@@ -295,57 +310,44 @@ Public Class cZOLL_IMPORT
|
||||
Case 2 'dakosy
|
||||
SPEDITIONSBUCH.Zollsystem = "D"
|
||||
If EZA_Nr <> "" Then
|
||||
|
||||
DAKOSY_Worker.cDakosyEZA.DakosyEZADatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, PosAnzahl)
|
||||
|
||||
|
||||
ElseIf NCTS_Nr <> "" Then
|
||||
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
||||
DAKOSY_Worker.cDakosyNCTSOut.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound)
|
||||
|
||||
End If
|
||||
Me.notFound = notFound
|
||||
Case 3 'telotec
|
||||
SPEDITIONSBUCH.Zollsystem = "T"
|
||||
If EZA_Nr <> "" Then
|
||||
|
||||
TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, "EZA", PosAnzahl)
|
||||
|
||||
|
||||
ElseIf NCTS_Nr <> "" Then
|
||||
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
||||
TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound, "NCTS", PosAnzahl)
|
||||
|
||||
End If
|
||||
Me.notFound = notFound
|
||||
Case Else 'Kein Zollsystem
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
|
||||
If avisoLinkId = 0 Or SendungId = 0 Then
|
||||
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(If(EZA_Nr <> "", EZA_Nr, NCTS_Nr))
|
||||
If DY IsNot Nothing Then
|
||||
If avisoLinkId = 0 Then avisoLinkId = If(DY.dy_AvisoId, 0)
|
||||
If SendungId = 0 Then SendungId = If(DY.dy_SendungsId, 0)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'-------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now.ToShortDateString
|
||||
|
||||
If SendungId > 0 Then SPEDITIONSBUCH.SendungID = SendungId
|
||||
|
||||
' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
|
||||
If SendungId = 0 And SPEDITIONSBUCH.SendungID > 0 Then SendungId = SPEDITIONSBUCH.SendungID 'Falls falsch übergeben
|
||||
If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId)
|
||||
If SendungId > 0 And SENDUNG Is Nothing Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId)
|
||||
' Dim dt As DataTable = SQLAVISO.loadDataTableBySQL("SELECT * FROM tblSendungen WHERE tblSnd_SendungID='" & SendungId & "' ")
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
@@ -397,7 +399,6 @@ Public Class cZOLL_IMPORT
|
||||
MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
|
||||
'If If(SENDUNG.tblSnd_bar, False) Then
|
||||
'SPEDITIONSBUCH.Bar = True
|
||||
' If (SENDUNG.tblSnd_barBeleg IsNot Nothing) And SPEDITIONSBUCH.ErfassungsNr = "" Then SPEDITIONSBUCH.ErfassungsNr = "VERA/" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "/" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "/" & SENDUNG.tblSnd_barBeleg
|
||||
@@ -415,14 +416,11 @@ Public Class cZOLL_IMPORT
|
||||
SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine
|
||||
SPEDITIONSBUCH.NCTS_Verzollungsadresse = SPEDITIONSBUCH.NCTS_Verzollungsadresse.Trim
|
||||
|
||||
|
||||
|
||||
End If
|
||||
If SPEDITIONSBUCH.Endempfänger Is Nothing OrElse SPEDITIONSBUCH.Endempfänger = "" Then
|
||||
SPEDITIONSBUCH.Endempfänger = SENDUNG.tblSnd_Endempfaenger
|
||||
End If
|
||||
|
||||
|
||||
If IsNull(SPEDITIONSBUCH.KdAuftragsNr) Then SPEDITIONSBUCH.KdAuftragsNr = If(SENDUNG.tblSnd_KdAuftragsNr, "")
|
||||
If IsNull(SPEDITIONSBUCH.KdAuftragsNrAvisierer) Then SPEDITIONSBUCH.KdAuftragsNrAvisierer = If(SENDUNG.tblSnd_KdAuftragsNrAvisierer, "")
|
||||
If IsNull(SPEDITIONSBUCH.KdAuftragsNrEmpfaenger) Then SPEDITIONSBUCH.KdAuftragsNrEmpfaenger = If(SENDUNG.tblSnd_KdAuftragsNrEmpfaenger, "")
|
||||
@@ -450,11 +448,12 @@ Public Class cZOLL_IMPORT
|
||||
' txtAuftraggeber.Text = Aviso.Auftraggeber
|
||||
' txtAuftraggeberKdNr.Text = Aviso.Auftraggeber_KdNr
|
||||
|
||||
SPEDITIONSBUCH.Avisierer = Aviso.Auftraggeber
|
||||
If getint(Aviso.Auftraggeber_KdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = Aviso.Auftraggeber_KdNr
|
||||
'NICHT MEHR:
|
||||
'SPEDITIONSBUCH.Avisierer = Aviso.Auftraggeber
|
||||
'If getint(Aviso.Auftraggeber_KdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = Aviso.Auftraggeber_KdNr
|
||||
|
||||
SPEDITIONSBUCH.Frachtführer = Aviso.Frächter
|
||||
If getint(Aviso.Frächter_KdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = Aviso.Frächter_KdNr
|
||||
'SPEDITIONSBUCH.Frachtführer = Aviso.Frächter
|
||||
'If getint(Aviso.Frächter_KdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = Aviso.Frächter_KdNr
|
||||
|
||||
|
||||
SPEDITIONSBUCH.LKW_Kennzeichen = Aviso.LKW_Nr
|
||||
@@ -474,6 +473,17 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
|
||||
'NEU:
|
||||
SPEDITIONSBUCH.Avisierer = SENDUNG.tblSnd_Avisierer
|
||||
If getint(SENDUNG.tblSnd_AvisiererKdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = SENDUNG.tblSnd_AvisiererKdNr
|
||||
|
||||
SPEDITIONSBUCH.Frachtführer = SENDUNG.tblSnd_Frachtfuehrer
|
||||
If getint(SENDUNG.tblSnd_FrachtfuehrerKdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = SENDUNG.tblSnd_FrachtfuehrerKdNr
|
||||
|
||||
|
||||
|
||||
|
||||
If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then
|
||||
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr
|
||||
@@ -525,7 +535,7 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
End If
|
||||
|
||||
If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then
|
||||
If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28 Or SENDUNG.tblSnd_Abfertigungsart_ID = 38) And NCTS_Nr <> "" Then
|
||||
'Überstellungs-T
|
||||
SPEDITIONSBUCH.Abfertigungsart = 5
|
||||
Else
|
||||
@@ -633,7 +643,9 @@ Public Class cZOLL_IMPORT
|
||||
If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then Return False
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("Validierungsfehler SpedBuch - Trotzdem eingearbeitet!", ex.Message, ex.StackTrace, "al@verag.ag", "")
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail(, ex.Message, ex.StackTrace, , "",)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Validierungsfehler SpedBuch - Trotzdem eingearbeitet!", "al@verag.ag", "al@verag.ag")
|
||||
|
||||
End Try
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user