Ezoll-Import, etc.
This commit is contained in:
@@ -329,119 +329,120 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
|
||||
Public Shared Function EZOLLImport(LRN, art, Optional ByRef SPEDBUCH_TMP = Nothing) As Boolean
|
||||
Try
|
||||
|
||||
Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag
|
||||
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
' Dim cZOLL_IMPORT As New cZOLL_IMPORT
|
||||
Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag
|
||||
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
|
||||
If True Then
|
||||
'Filiale erkennen:
|
||||
Dim filialeBez = ""
|
||||
Dim filiale = getFiliale(LRN, filialeBez)
|
||||
Select Case filiale
|
||||
Case "5501" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
|
||||
Case "4801", "4802" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" ' Return False 'Keine Atoerfassung --> ab 11.02.2025 schon!
|
||||
Case "5801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
|
||||
Case "5601" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
|
||||
End Select
|
||||
Dim abfertigungsnummer = getAbfertigungsnummer(LRN)
|
||||
|
||||
If True Then
|
||||
'Filiale erkennen:
|
||||
Dim filialeBez = ""
|
||||
Dim filiale = getFiliale(LRN, filialeBez)
|
||||
Select Case filiale
|
||||
Case "5501" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
|
||||
Case "4801", "4802" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" ' Return False 'Keine Atoerfassung --> ab 11.02.2025 schon!
|
||||
Case "5801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
|
||||
Case "5601" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
|
||||
End Select
|
||||
Dim abfertigungsnummer = getAbfertigungsnummer(LRN)
|
||||
If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then
|
||||
SPEDBUCH_TMP = SPEDBUCH
|
||||
If filiale <> "" And abfertigungsnummer <> "" Then
|
||||
|
||||
If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then
|
||||
SPEDBUCH_TMP = SPEDBUCH
|
||||
If filiale <> "" And abfertigungsnummer <> "" Then
|
||||
If countSpedbuchEntrys(filiale, LRN, art) = 0 Then 'gibts einen SPED mit BezugsNr ->
|
||||
|
||||
If countSpedbuchEntrys(filiale, LRN, art) = 0 Then 'gibts einen SPED mit BezugsNr ->
|
||||
If countSpedbuchEntrys(filiale, abfertigungsnummer, "") = 0 Then 'gibts einen SPED mit Filiale-AbfertiungsNr
|
||||
|
||||
If countSpedbuchEntrys(filiale, abfertigungsnummer, "") = 0 Then 'gibts einen SPED mit Filiale-AbfertiungsNr
|
||||
SPEDBUCH.FilialenNr = filiale
|
||||
SPEDBUCH.AbfertigungsNr = abfertigungsnummer
|
||||
SPEDBUCH.NewUNTER_NR()
|
||||
|
||||
SPEDBUCH.FilialenNr = filiale
|
||||
SPEDBUCH.AbfertigungsNr = abfertigungsnummer
|
||||
SPEDBUCH.NewUNTER_NR()
|
||||
SPEDBUCH.Abfertigungsanzahl = 1
|
||||
SPEDBUCH.Fakturiert = 0
|
||||
' SPEDBUCH.AtlasBezNrEZA = LRN
|
||||
SPEDBUCH.Zollsystem = "E"
|
||||
SPEDBUCH.Sachbearbeiter = "AUTO"
|
||||
|
||||
SPEDBUCH.Abfertigungsanzahl = 1
|
||||
SPEDBUCH.Fakturiert = 0
|
||||
' SPEDBUCH.AtlasBezNrEZA = LRN
|
||||
SPEDBUCH.Zollsystem = "E"
|
||||
SPEDBUCH.Sachbearbeiter = "AUTO"
|
||||
|
||||
Dim ZOLL_IMPORT As New cZOLL_IMPORT
|
||||
Dim notfound = False
|
||||
Dim posAnzahl = 0
|
||||
|
||||
Select Case art
|
||||
Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN
|
||||
Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN
|
||||
Case Else : SPEDBUCH.AtlasBezNrEZA = LRN
|
||||
End Select
|
||||
|
||||
SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True,, SPEDBUCH.AtlasBezNrAES)
|
||||
|
||||
SPEDBUCH_TMP = SPEDBUCH
|
||||
If notfound Then Return False
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
|
||||
|
||||
' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
|
||||
|
||||
If SPEDBUCH.SAVE Then
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True)
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
ElseIf art <> "" Then
|
||||
|
||||
Dim SPEDITIONSBUCH_UPDATE As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(filiale, abfertigungsnummer, 0)
|
||||
|
||||
If SPEDITIONSBUCH_UPDATE.hasEntry Then
|
||||
|
||||
If SPEDITIONSBUCH_UPDATE.Zollsystem = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.Zollsystem = "E"
|
||||
End If
|
||||
Dim ZOLL_IMPORT As New cZOLL_IMPORT
|
||||
Dim notfound = False
|
||||
Dim posAnzahl = 0
|
||||
|
||||
Select Case art
|
||||
Case "NCTS"
|
||||
If SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = LRN
|
||||
|
||||
SPEDITIONSBUCH_UPDATE.SAVE()
|
||||
End If
|
||||
|
||||
Case "AES"
|
||||
If SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = LRN
|
||||
SPEDITIONSBUCH_UPDATE.SAVE()
|
||||
End If
|
||||
|
||||
Case "EZA"
|
||||
If SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = LRN
|
||||
SPEDITIONSBUCH_UPDATE.SAVE()
|
||||
End If
|
||||
|
||||
Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN
|
||||
Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN
|
||||
Case Else : SPEDBUCH.AtlasBezNrEZA = LRN
|
||||
End Select
|
||||
|
||||
SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True,, SPEDBUCH.AtlasBezNrAES)
|
||||
|
||||
SPEDBUCH_TMP = SPEDBUCH
|
||||
|
||||
If notfound Then
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", SPEDBUCH.AtlasBezNrEZA, Now.ToString("yyyy.MM.dd HH:mm"), "d.breimaier@verag.ag", "", "", "")
|
||||
Return False
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
|
||||
|
||||
If SPEDBUCH.SAVE Then
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True)
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
ElseIf art <> "" Then
|
||||
|
||||
Dim SPEDITIONSBUCH_UPDATE As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(filiale, abfertigungsnummer, 0)
|
||||
|
||||
If SPEDITIONSBUCH_UPDATE.hasEntry Then
|
||||
|
||||
If SPEDITIONSBUCH_UPDATE.Zollsystem = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.Zollsystem = "E"
|
||||
End If
|
||||
|
||||
Select Case art
|
||||
Case "NCTS"
|
||||
If SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = LRN
|
||||
SPEDITIONSBUCH_UPDATE.SAVE()
|
||||
End If
|
||||
|
||||
Case "AES"
|
||||
If SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = LRN
|
||||
SPEDITIONSBUCH_UPDATE.SAVE()
|
||||
End If
|
||||
|
||||
Case "EZA"
|
||||
If SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = "" Then
|
||||
SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = LRN
|
||||
SPEDITIONSBUCH_UPDATE.SAVE()
|
||||
End If
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
' MsgBox(SQL.getValueTxtBySql("select count(*) FROM [VERAG].[dbo].[Speditionsbuch] where AbfertigungsNr = 18035380", "FMZOLL"))
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
|
||||
Return False 'Ohne Sendungsverweis kein eintrag...
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
|
||||
Return False 'Ohne Sendungsverweis kein eintrag...
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
|
||||
Return False
|
||||
Return False
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, ERROR_OP.MAIL)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function tryFindAviso(LRN, ByRef AvisoID, ByRef SendungID) As Boolean
|
||||
|
||||
Reference in New Issue
Block a user