edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-07-18 13:11:37 +02:00
parent bb3ea4424e
commit 6d8a537ee7
5 changed files with 565 additions and 668 deletions
Download Patch File Download Diff File Expand all files Collapse all files

701
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -97,25 +97,30 @@ Public Class cZollsysteme_Aktenbeschriftung
Case Else : PosNrAngeben = False Case Else : PosNrAngeben = False
End Select End Select
End If End If
' MsgBox("1")
getDataByBezugsnummer = False getDataByBezugsnummer = False
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "UNISPED" ' Case "UNISPED"
Case "" Case ""
Case Else Case Else
'MsgBox("2 " & Abfertigungsart)
Select Case Abfertigungsart Select Case Abfertigungsart
Case 38, 26 'AT Case 38, 26 'AT
Select Case Zollsystem_Land Select Case Zollsystem_Land
Case "AT" Case "AT"
'eZoll 'eZoll
getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True) getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True)
' MsgBox("1")
Case Else Case "DE"
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
Case Else
getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True)
' MsgBox("3 ")
End Select End Select
If getDataByBezugsnummer = "" Then If Not getDataByBezugsnummer Then
' getADFrom_EZOLL ' getADFrom_EZOLL
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
If Not getDataByBezugsnummer Then 'Falls doch nicht If Not getDataByBezugsnummer Then 'Falls doch nicht
@@ -191,175 +196,182 @@ Public Class cZollsysteme_Aktenbeschriftung
Function load_EZA_FromEZOLL(AnmID As String, Optional checkValidStatus As Boolean = False) As Boolean Function load_EZA_FromEZOLL(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean
Try Try
Dim EZOLL_SQL As String = "EZOLL"
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default ' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
Console.WriteLine("1")
Dim dEZOLLLRN As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
" FROM zsAnmRefs" &
" WHERE (VorgangID = 'EF') AND (LRN like '" & BezugsNr & "')" &
" ORDER BY GeaendertAm DESC", EZOLL_SQL)
If dEZOLLLRN Is Nothing Then Return False
If dEZOLLLRN.Rows.Count = 0 Then Return False
Dim AnmID = dEZOLLLRN.Rows(0)("AnmID")
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
" FROM zsAnmRefs" & " FROM zsAnmRefs" &
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" & " WHERE (VorgangID = 'EF') AND (AnmID = '" & AnmID & "')" &
" ORDER BY GeaendertAm DESC", "EZOLL") " ORDER BY GeaendertAm DESC", "EZOLL")
If dEZOLL Is Nothing Then Return Nothing If dEZOLL Is Nothing Then Return Nothing
If dEZOLL.Rows.Count = 0 Then Return Nothing If dEZOLL.Rows.Count = 0 Then Return Nothing
Console.WriteLine("3")
'TextBox2.ForeColor = Color.Green 'TextBox2.ForeColor = Color.Green
Dim r As DataRow = dEZOLL.Rows(0) Dim DR_zsAnmRefs As DataRow = dEZOLL.Rows(0)
' LRN = r.Item("LRN") ' LRN = r.Item("LRN")
ATCMRN = r.Item("CRN") If Not IsNull(DR_zsAnmRefs.Item("CRN")) Then ATCMRN = DR_zsAnmRefs.Item("CRN")
Console.WriteLine("3")
' Praeferenznachweis ' Praeferenznachweis
' Handelsrechnung ' Handelsrechnung
' PräferenzAufRechnung ' PräferenzAufRechnung
' Colli
' num_Colli As Integer = 0 '-----------------------------------------------------------
' num_Gewicht As Double = 0 '-----------------------------------------------------------
Handelsrechnung = ""
' Rechnungspreis 'Absender
' Warenbezeichung ' Tabelle zsAnmConorTra lesen.
Dim DTzsAnmConorTra As DataTable = SQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" &
' AbgabenKonto " FROM zsAnmConorTra" &
' Garantie " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
If DTzsAnmConorTra.Rows().Count > 0 Then
' Absender If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50)
' Empfaenger If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then Absender = Strings.Left(Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Ctry"), 50)
' Anmelder If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then Absender = Strings.Left(Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Pst"), 50)
' Vertreter If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Cty")) Then Absender = Strings.Left(Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Cty"), 50)
' Sachbearbeiter If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then VerBestLandZst = DTzsAnmConorTra.Rows(0).Item("Ctry")
' VerBestLandZst
' Vorpapier
' ABGABEN_EUST As Double = 0
' ABGABEN_ZOLL As Double = 0
' ANZ_POS As Integer = 0
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmHea.Rows().Count > 0 Then
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
' VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
'Gewicht = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
Me.Gewicht = CDbl(rDTzsAnmHea("TotGross")).ToString("N1") & " kg"
Me.num_Gewicht = CDbl(rDTzsAnmHea("TotGross")).ToString("N1")
'VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
End If End If
'Empfänger
' Tabelle zsAnmConeeTra lesen.
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" &
' If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") " FROM zsAnmConeeTra" &
'If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2") " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") If DTzsAnmConeeTra.Rows().Count > 0 Then
'ATCMRN = If(EZA.eza_ANR, "") If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then Empfaenger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50)
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then Empfaenger = Strings.Left(Empfaenger & ", " & DTzsAnmConeeTra.Rows(0).Item("Ctry"), 50)
'' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then Empfaenger = Strings.Left(Empfaenger & ", " & DTzsAnmConeeTra.Rows(0).Item("Pst"), 50)
''Property Absender As String If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then Empfaenger = Strings.Left(Empfaenger & ", " & DTzsAnmConeeTra.Rows(0).Item("Cty"), 50)
''Property Empfaenger As String If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then VerBestLandZst &= " --> " & DTzsAnmConeeTra.Rows(0).Item("Ctry")
''Property Anmelder As String End If
Console.WriteLine("4")
'Dim RG_List As New List(Of String) '' Tabelle zsAnmTransp lesen.
'Dim ATR_List As New List(Of String) 'Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt" &
'Dim PAR_List As New List(Of String) ' präfAufRg ' " FROM zsAnmTransp" &
'Dim Colli As Integer = 0 ' " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
'Dim cnt As Integer = 0 'If DTzsAnmTransp.Rows().Count > 0 Then
'If EZA.eza_WARENPOS.Count > 0 Then ' If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25)
' Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: "
' Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *")
' For Each POS In EZA.eza_WARENPOS
' For Each UL In POS.ezaWP_UNTERLAGEN
' If UL.ezaWpUl_Art IsNot Nothing Then
' Select Case UL.ezaWpUl_Art
' Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
' 'case "4EEQ" : addIfNotExists(ATR_List, "4EEQ: " & (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
' Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
' Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
' End Select
' End If
' Next
' If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl
' cnt += 1
' Next
'End If
'ANZ_POS = EZA.eza_WARENPOS.Count
'For Each A In EZA.eza_AUFSCHUB
' If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then
' ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag)
' Else
' ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag)
' End If
'Next
'num_Colli = Colli
'Me.Colli = Colli & " Pk."
'For Each AD In EZA.eza_ADRESSEN
' If AD.ezaAd_AdressTyp IsNot Nothing Then
' Dim Anschrift = ""
' If If(AD.ezaAd_TeilnehmerEORI, "") <> "" Then
' Anschrift = (SQL.getValueTxtBySql("SELECT Ordnungsbegriff FROM [Adressen] inner join Kunden on AdressenNr=KundenNr where EORITIN='" & AD.ezaAd_TeilnehmerEORI & "'", "FMZOLL")).Trim
' If Anschrift = "" Then Anschrift = AD.ezaAd_TeilnehmerEORI
' Else
' Anschrift = If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "").ToString.Trim
' End If
' Select Case AD.ezaAd_AdressTyp
' Case "CZ" : Absender = ""'Anschrift --> nicht benötigt
' Case "CN" : Empfaenger = Anschrift
' Case "DT" : Anmelder = Anschrift
' Case "CB" : Vertreter = "" ' Anschrift - -> nicht benötigt
' End Select
' End If
'Next
'Sachbearbeiter = If(EZA.eza_Bearbeiter, "")
'VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "")
'If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
'If If(EZA.eza_Bestimmungsland, "") = "DE" Then
' If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle
'Else
' If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle
'End If 'End If
' Dim Währungsschlüssel As String = "900" 'Standard EUR
' Tabelle zsAnmValData lesen.
Dim DTzsAnmValData As DataTable = SQL.loadDgvBySql("SELECT InvCurr, InvVal" &
" FROM zsAnmValData" &
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
If DTzsAnmValData.Rows().Count > 0 Then
'If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then
' If DTzsAnmValData.Rows(0).Item("InvCurr") = "EUR" Then
' Währungsschlüssel = "900"
' Else
' Währungsschlüssel = getWaehr(DTzsAnmValData.Rows(0).Item("InvCurr"))
' End If
'End If
' fNEF.cbxWaehrung._value = DTzsAnmValData.Rows(0).Item("InvCurr") ' = DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & DTzsAnmValData.Rows(0).Item("InvCurr") & "'")
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then Rechnungspreis = CDbl(DTzsAnmValData.Rows(0).Item("InvVal"))
End If
'Handelsrechnung = listToString(RG_List)
'Praeferenznachweis = listToString(ATR_List)
'PräferenzAufRechnung = listToString(PAR_List)
'Dim AUFSCHUB_List As New List(Of String) ' Tabelle zsAnmHea lesen.
'For Each AB In EZA.eza_AUFSCHUB Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT TotPack, TotGross" &
' Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim " FROM zsAnmHea" &
' addIfNotExists(AUFSCHUB_List, kto & " " & load_KdFromAKto(kto)) " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
'Next
'If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then
' Vorpapier = EZA.eza_VorpapierArtCode If DTzsAnmHea.Rows().Count > 0 Then
' If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr If Not IsNull(DTzsAnmHea.Rows(0).Item("TotPack")) Then Colli = DTzsAnmHea.Rows(0).Item("TotPack")
If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) Then
Me.Gewicht = CDbl(DTzsAnmHea.Rows(0).Item("TotGross")).ToString("N1") & " kg"
Me.num_Gewicht = CDbl(DTzsAnmHea.Rows(0).Item("TotGross")).ToString("N1")
End If
End If
'Dim pkAnz = SQL.DLookup("sum(cast(Nr as float))", "[zsAnmGdsItemPack]", "(LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL, "")
' Tabelle zsAnmGdsitem lesen.
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT GdsDes" &
" FROM zsAnmGdsitem" &
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")" &
" ORDER BY GdsItemID", EZOLL_SQL)
If DTzsAnmGdsitem.Rows().Count > 0 Then
If Not IsNull(DTzsAnmGdsitem.Rows(0).Item("GdsDes")) Then
If IsNull(Warenbezeichung) Then
Warenbezeichung = DTzsAnmGdsitem.Rows(0).Item("GdsDes")
Else
Warenbezeichung = Warenbezeichung & " " & DTzsAnmGdsitem.Rows(0).Item("GdsDes")
End If
End If
ANZ_POS = DTzsAnmGdsitem.Rows().Count
End If
' Tabelle zsAnmGdsItemDocCerts lesen.
Dim DTzsAnmGdsItemDocCerts As DataTable = SQL.loadDgvBySql("select isnull(DRef,'') as Referenznummer,isnull(IssD,'') as Datum
from zsAnmGdsItemDocCerts where VorgangID='EF' and DocCd IN ('N380','N325')
and AnmID='" & AnmID & "' group by DRef,IssD", EZOLL_SQL)
If DTzsAnmGdsItemDocCerts IsNot Nothing AndAlso DTzsAnmGdsItemDocCerts.Rows.Count > 0 Then
For Each row In DTzsAnmGdsItemDocCerts.Rows
Handelsrechnung &= row("Datum") & " " & row("Referenznummer") & vbNewLine
Next
End If
Handelsrechnung = Handelsrechnung.Trim
'' Qualitäts-CRN --> Tabelle zsAnmGdsItemDocCerts lesen.
'Dim DTzsAnmGdsQ As DataTable = SQL.loadDgvBySql("Select distinct(DRef) DRef FROM [zsAnmGdsItemDocCerts] WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & " AND DocCd IN ('N002' ,'7246') )", EZOLL_SQL)
'If DTzsAnmGdsQ IsNot Nothing AndAlso DTzsAnmGdsQ.Rows().Count > 0 Then
' If Not IsNull(DTzsAnmGdsQ.Rows(0).Item("DRef")) Then SPEDITIONSBUCH.QKN = DTzsAnmGdsQ.Rows(0).Item("DRef")
'End If 'End If
Dim ABGABEN_LIST = VERAG_PROG_ALLGEMEIN.cAbgaben.LOAD_LIST(ATCMRN)
If ABGABEN_LIST IsNot Nothing AndAlso ABGABEN_LIST.Count > 0 Then
For Each A In ABGABEN_LIST
Select Case A.Belegart
Case "2EU", "2IG", "5EU" ' "2PE",
ABGABEN_EUST += If(A.Betrag, 0)
Case "B00" 'EUST
ABGABEN_EUST += If(A.Betrag, 0)
Case "5EV" '"5EV"--> EV-KONTO!!
ABGABEN_EUST += If(A.Betrag, 0)
Case Else
ABGABEN_ZOLL += If(A.Betrag, 0)
End Select
Next
End If
'AbgabenKonto = listToString(AUFSCHUB_List) Console.WriteLine("ABGABEN_EUST: " & ABGABEN_EUST & " / ABGABEN_ZOLL: " & ABGABEN_ZOLL)
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -375,203 +387,16 @@ Public Class cZollsysteme_Aktenbeschriftung
'------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
Dim LRN = ""
Try
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
Dim Bestimmungszollstelle = ""
Dim Bürgschaft = ""
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
" FROM zsAnmRefs" &
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
" ORDER BY GeaendertAm DESC", "EZOLL")
If dEZOLL Is Nothing Then Return Nothing
If dEZOLL.Rows.Count = 0 Then Return Nothing
'TextBox2.ForeColor = Color.Green
Dim r As DataRow = dEZOLL.Rows(0)
LRN = r.Item("LRN")
If Not SQL.IsNull(r.Item("OperatorID")) Then
Select Case r.Item("OperatorID")
Case "1"
VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "SUB"
Case "2"
VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "SBG"
Case "3"
VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "NKD"
Case "4", "5"
VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB"
Case "6"
If LRN.StartsWith("4801") Or LRN.StartsWith("4802") Then
VERAG_NCTS.Company = "ATILLA"
Else
VERAG_NCTS.Company = "VERAG"
End If
VERAG_NCTS.Department = "SUB"
Case "8"
VERAG_NCTS.Company = "DURMAZ"
VERAG_NCTS.Department = "SBG"
Return Nothing
Case Else
VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB"
End Select
End If
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
Case "F"
VERAG_NCTS.ProcessData.Status = 50
Case "FB"
VERAG_NCTS.ProcessData.Status = 60
Case Else
VERAG_NCTS.ProcessData.Status = 0
End Select
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmHea.Rows().Count > 0 Then
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
End If
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
'BestimmungsstelleDienststelle
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmDestCo.Rows().Count > 0 Then
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
End If
' Kennzeichen
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmTransp.Rows().Count > 0 Then
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
End If
End If
'Versender
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmSender.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
End If
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
'Empfänger
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmConeeTra.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
End If
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
'Frächter
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmCarrier.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Carrier.Name = DTzsAnmCarrier.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
' Tabelle zsAnmGrteeGrteeRef lesen.
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
" FROM zsAnmGrteeGrteeRef" &
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
Next
End If
'POSITIONEN
Dim cntPos = 1
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
If DTzsAnmGdsitem.Rows().Count > 0 Then
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
V_POS.PosNr = cntPos
Dim pkGes = 0
Dim pkArt = ""
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
Next
End If
V_POS.Quantity = pkGes
V_POS.Packaging = pkArt
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
cntPos += 1
Next
End If
' UniqueId = AnmID
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing
End Try
Return True
End Function End Function
Function IsNull(o) As Boolean
Try
If o Is Nothing Then Return True
If o Is DBNull.Value Then Return True
If o.ToString.Trim = "" Then Return True
Catch : End Try
Return False
End Function
Function load_EZA_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean Function load_EZA_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean
@@ -1034,138 +859,138 @@ Public Class cZollsysteme_Aktenbeschriftung
End Function End Function
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
Dim LRN = "" Dim LRN = ""
Try Try
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default ' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
Dim Bestimmungszollstelle = "" Dim Bestimmungszollstelle = ""
Dim Bürgschaft = "" Dim Bürgschaft = ""
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
" FROM zsAnmRefs" & " FROM zsAnmRefs" &
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" & " WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
" ORDER BY GeaendertAm DESC", "EZOLL") " ORDER BY GeaendertAm DESC", "EZOLL")
If dEZOLL Is Nothing Then Return Nothing If dEZOLL Is Nothing Then Return Nothing
If dEZOLL.Rows.Count = 0 Then Return Nothing If dEZOLL.Rows.Count = 0 Then Return Nothing
'TextBox2.ForeColor = Color.Green 'TextBox2.ForeColor = Color.Green
Dim r As DataRow = dEZOLL.Rows(0) Dim r As DataRow = dEZOLL.Rows(0)
LRN = r.Item("LRN") LRN = r.Item("LRN")
If Not SQL.IsNull(r.Item("OperatorID")) Then If Not SQL.IsNull(r.Item("OperatorID")) Then
Select Case r.Item("OperatorID") Select Case r.Item("OperatorID")
Case "1" Case "1"
VERAG_NCTS.Company = "VERAG" VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "SUB" VERAG_NCTS.Department = "SUB"
Case "2" Case "2"
VERAG_NCTS.Company = "VERAG" VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "SBG" VERAG_NCTS.Department = "SBG"
Case "3" Case "3"
VERAG_NCTS.Company = "VERAG" VERAG_NCTS.Company = "VERAG"
VERAG_NCTS.Department = "NKD" VERAG_NCTS.Department = "NKD"
Case "4", "5" Case "4", "5"
VERAG_NCTS.Company = "ATILLA" VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB" VERAG_NCTS.Department = "SUB"
Case "6" Case "6"
If LRN.StartsWith("4801") Or LRN.StartsWith("4802") Then If LRN.StartsWith("4801") Or LRN.StartsWith("4802") Then
VERAG_NCTS.Company = "ATILLA" VERAG_NCTS.Company = "ATILLA"
Else Else
VERAG_NCTS.Company = "VERAG" VERAG_NCTS.Company = "VERAG"
End If End If
VERAG_NCTS.Department = "SUB" VERAG_NCTS.Department = "SUB"
Case "8" Case "8"
VERAG_NCTS.Company = "DURMAZ" VERAG_NCTS.Company = "DURMAZ"
VERAG_NCTS.Department = "SBG" VERAG_NCTS.Department = "SBG"
Return Nothing Return Nothing
Case Else
VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB"
End Select
End If
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
Case "F"
VERAG_NCTS.ProcessData.Status = 50
Case "FB"
VERAG_NCTS.ProcessData.Status = 60
Case Else Case Else
VERAG_NCTS.ProcessData.Status = 0 VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB"
End Select End Select
End If
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmHea.Rows().Count > 0 Then VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy") VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0") VERAG_NCTS.ProcessData.ReferenzNumber = LRN
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
Case "F"
VERAG_NCTS.ProcessData.Status = 50
Case "FB"
VERAG_NCTS.ProcessData.Status = 60
Case Else
VERAG_NCTS.ProcessData.Status = 0
End Select
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmHea.Rows().Count > 0 Then
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
End If
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
'BestimmungsstelleDienststelle
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmDestCo.Rows().Count > 0 Then
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
End If
' Kennzeichen
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmTransp.Rows().Count > 0 Then
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
End If End If
End If
'Versender
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) If DTzsAnmSender.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
'BestimmungsstelleDienststelle If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
If DTzsAnmDestCo.Rows().Count > 0 Then If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref") If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
End If End If
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
' Kennzeichen
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") 'Empfänger
If DTzsAnmTransp.Rows().Count > 0 Then Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then If DTzsAnmConeeTra.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt") VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
End If If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
End If If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
'Versender If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
If DTzsAnmSender.Rows().Count > 0 Then VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
End If
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If End If
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
'Empfänger 'Frächter
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmConeeTra.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
End If
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
'Frächter
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmCarrier.Rows().Count > 0 Then If DTzsAnmCarrier.Rows().Count > 0 Then
VERAG_NCTS.NCTS_Data.Carrier.Name = DTzsAnmCarrier.Rows(0).Item("Na") VERAG_NCTS.NCTS_Data.Carrier.Name = DTzsAnmCarrier.Rows(0).Item("Na")
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst") If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")

66
MailSender/MAILSender.vb
View File

@@ -58,7 +58,7 @@ Module Mail
' PARAM = "NCTSLIST_TOBB" ' PARAM = "NCTSLIST_TOBB"
' PARAM = "NCTSLIST_TOBB" ' PARAM = "NCTSLIST_TOBB"
'------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------
'PARAM = "" ' PARAM = "ZF"
If PARAM = "" Then If PARAM = "" Then
System.Console.WriteLine("OPTION nicht erkannt!") System.Console.WriteLine("OPTION nicht erkannt!")
@@ -295,6 +295,37 @@ Module Mail
End If End If
'--------ZF THYRNAU------------
KdNr = "718486"
'NIX...
'--------ZF STEYR------------
KdNr = "764755"
If dtParam.Rows.Count = 1 Then
System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Else
System.Console.WriteLine("OPTION erkannt: ZF _ Erstellt eine monaltiche Auswertung der Abfertigungen für ZF.")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_ZF("teresa.elster@zf.com;manfred.lindbichler@zf.com;walter.gnadlinger@zf.com", KdNr, von, bis) Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
End If
Case "QS_AUFTEILUNG" Case "QS_AUFTEILUNG"
System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.") System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.")
System.Console.WriteLine("Auswertung gestartet...") System.Console.WriteLine("Auswertung gestartet...")
@@ -831,7 +862,12 @@ Module Mail
System.Console.WriteLine("Sende E-Mail...") System.Console.WriteLine("Sende E-Mail...")
If Subject = "" Then If Subject = "" Then
Subject = "Auswertungen Zollanmeldungen ZF Friedrichshafen AG " Select Case KdNr
Case "764755" : Subject = "Auswertungen Zollanmeldungen ZF STEYR "
Case Else : Subject = "Auswertungen Zollanmeldungen ZF Friedrichshafen AG "
End Select
Else Else
Subject = replaceBodyVariable(Subject, von, bis) Subject = replaceBodyVariable(Subject, von, bis)
End If End If
@@ -2159,13 +2195,17 @@ Module Mail
Try Try
Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
Dim sqlstr As String = ""
sqlstr &= "SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer,cast([Abfertigungsdatum] as date)Abfertigungsdatum,Absender,Rechnungsbetrag Betrag ,BelegNr,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung, Speditionsbuch.Zollsystem_Land"
sqlstr &= " FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart"
sqlstr &= " where EmpfängerKundenNr IN (" & KdNr & ") and Abfertigungsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Speditionsbuch.Abfertigungsart IN (1,29)"
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr) Dim dt As DataTable = loadDgvBySqlFMZOLL("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
,cast([Abfertigungsdatum] as date)Abfertigungsdatum
,Absender
,Rechnungsbetrag Betrag
,BelegNr
,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land
FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
where EmpfängerKundenNr IN (" & KdNr & ") and Abfertigungsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)")
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\"
@@ -2183,14 +2223,14 @@ Module Mail
.Visible = False .Visible = False
Try Try
Path = sPath & "ZF_" & von.ToShortDateString & "-" & bis.ToShortDateString & "" & " .xlsx" Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx"
While System.IO.File.Exists(Path) While System.IO.File.Exists(Path)
Path = sPath & "ZF_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While End While
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False) My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False)
Catch ex As System.Exception Catch ex As System.Exception
' MsgBox(ex.Message) ' MsgBox(ex.Message)
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace)
Return "" Return ""
@@ -2215,11 +2255,15 @@ Module Mail
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, r("Zollsystem_Land")) Then Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
End If
End If End If
cnt += 1 cnt += 1

7
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -983,7 +983,12 @@ Public Class frmMitarbDetails
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
cboTeam.Items.Clear() cboTeam.Items.Clear()
If cboFirma.Text <> "" Then If cboFirma.Text <> "" Then
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True) If cboFirma.Text = "ALLE" Then
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirmaHaupt.Text & "'", False, "ADMIN", True)
Else
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
End If
End If End If
cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE") cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE")
End Sub End Sub

206
UID/usrctlProcedures.vb
View File

@@ -3517,159 +3517,163 @@ Public Class usrctlProcedures
DYIMPORT.ZollRechtlicherStatus = isleernothing((currentRow(34))) DYIMPORT.ZollRechtlicherStatus = isleernothing((currentRow(34)))
DYIMPORT.Bewilligungsnummer = isleernothing((currentRow(35))) DYIMPORT.Bewilligungsnummer = isleernothing((currentRow(35)))
DYIMPORT.Gesamtgewicht = IIf(isleernothing((currentRow(36))) <> "", CDbl(isleernothing(currentRow(36))), 0) DYIMPORT.Gesamtgewicht = IIf(isleernothing((currentRow(36))) <> "", CDbl(isleernothing(currentRow(36))), 0)
DYIMPORT.Liefercode = isleernothing((currentRow(37)))
DYIMPORT.Lieferort = isleernothing((currentRow(38)))
DYIMPORT.Lieferkey = isleernothing((currentRow(39)))
DYIMPORT.Geschäftsart = isleernothing((currentRow(40)))
DYIMPORT.Rechnungsbetrag = IIf(isleernothing((currentRow(41))) <> "", CDbl(isleernothing(currentRow(41))), 0)
DYIMPORT.Rechnungswährung = isleernothing((currentRow(42)))
DYIMPORT.Rechnungskurs = IIf(isleernothing((currentRow(43))) <> "", CDbl(isleernothing(currentRow(43))), 0)
DYIMPORT.Zollstelle = isleernothing((currentRow(44)))
DYIMPORT.Aufschubart = isleernothing((currentRow(45)))
DYIMPORT.HZAZoll = isleernothing((currentRow(46)))
DYIMPORT.KontoZoll = isleernothing((currentRow(47)))
DYIMPORT.TextZoll = isleernothing((currentRow(48)))
DYIMPORT.EORIZoll = isleernothing((currentRow(49)))
DYIMPORT.KennzeichenEigenZoll = isleernothing((currentRow(50)))
DYIMPORT.ArtEust = isleernothing((currentRow(51)))
DYIMPORT.HZAEust = isleernothing((currentRow(52)))
DYIMPORT.KontoEusT = isleernothing((currentRow(53)))
DYIMPORT.TextEust = isleernothing((currentRow(54)))
DYIMPORT.EORIEust = isleernothing((currentRow(55)))
DYIMPORT.KennzeichenEigenEust = isleernothing((currentRow(56)))
DYIMPORT.Container = isleernothing((currentRow(57)))
DYIMPORT.Unterlagenzeile = isleernothing((currentRow(58)))
DYIMPORT.Unterlagenbereich = isleernothing((currentRow(59)))
DYIMPORT.Unterlagenart = isleernothing((currentRow(60)))
DYIMPORT.Unterlagennummer = isleernothing((currentRow(61)))
DYIMPORT.Unterlagendatum = isleernothing((currentRow(62)))
DYIMPORT.PositionNo = isleernothing((currentRow(63)))
DYIMPORT.Positionen = isleernothing((currentRow(64)))
DYIMPORT.Vorausstl_Zollabgabe = IIf(isleernothing((currentRow(65))) <> "", CDbl(isleernothing(currentRow(65))), 0)
DYIMPORT.Vorausstl_Zollsatzabgabe = IIf(isleernothing((currentRow(66))) <> "", CDbl(isleernothing(currentRow(66))), 0) 'DYIMPORT.vorsteuerabzug = isleernothing((currentRow(37)))
DYIMPORT.Liefercode = isleernothing((currentRow(38)))
DYIMPORT.Lieferort = isleernothing((currentRow(39)))
DYIMPORT.Lieferkey = isleernothing((currentRow(40)))
DYIMPORT.Geschäftsart = isleernothing((currentRow(41)))
DYIMPORT.Rechnungsbetrag = IIf(isleernothing((currentRow(42))) <> "", CDbl(isleernothing(currentRow(42))), 0)
DYIMPORT.Rechnungswährung = isleernothing((currentRow(43)))
DYIMPORT.Rechnungskurs = IIf(isleernothing((currentRow(44))) <> "", CDbl(isleernothing(currentRow(44))), 0)
DYIMPORT.Zollstelle = isleernothing((currentRow(45)))
DYIMPORT.Aufschubart = isleernothing((currentRow(46)))
DYIMPORT.HZAZoll = isleernothing((currentRow(47)))
DYIMPORT.KontoZoll = isleernothing((currentRow(48)))
DYIMPORT.TextZoll = isleernothing((currentRow(49)))
DYIMPORT.EORIZoll = isleernothing((currentRow(50)))
DYIMPORT.KennzeichenEigenZoll = isleernothing((currentRow(51)))
DYIMPORT.ArtEust = isleernothing((currentRow(52)))
DYIMPORT.HZAEust = isleernothing((currentRow(53)))
DYIMPORT.KontoEusT = isleernothing((currentRow(54)))
DYIMPORT.TextEust = isleernothing((currentRow(55)))
DYIMPORT.EORIEust = isleernothing((currentRow(56)))
DYIMPORT.KennzeichenEigenEust = isleernothing((currentRow(57)))
DYIMPORT.Container = isleernothing((currentRow(58)))
DYIMPORT.Unterlagenzeile = isleernothing((currentRow(59)))
DYIMPORT.Unterlagenbereich = isleernothing((currentRow(60)))
DYIMPORT.Unterlagenart = isleernothing((currentRow(61)))
DYIMPORT.Unterlagennummer = isleernothing((currentRow(62)))
DYIMPORT.Unterlagendatum = isleernothing((currentRow(63)))
DYIMPORT.PositionNo = isleernothing((currentRow(64)))
DYIMPORT.Positionen = isleernothing((currentRow(65)))
DYIMPORT.Vorausstl_Eustabgabe = IIf(isleernothing((currentRow(67))) <> "", CDbl(isleernothing(currentRow(67))), 0) DYIMPORT.Vorausstl_Zollabgabe = IIf(isleernothing((currentRow(66))) <> "", CDbl(isleernothing(currentRow(66))), 0)
DYIMPORT.Vorausstl_Eustsatzabgabe = IIf(isleernothing((currentRow(68))) <> "", CDbl(isleernothing(currentRow(68))), 0) DYIMPORT.Vorausstl_Zollsatzabgabe = IIf(isleernothing((currentRow(67))) <> "", CDbl(isleernothing(currentRow(67))), 0)
DYIMPORT.Zollwert = IIf(isleernothing((currentRow(69))) <> "", CDbl(isleernothing(currentRow(69))), 0) DYIMPORT.Vorausstl_Eustabgabe = IIf(isleernothing((currentRow(68))) <> "", CDbl(isleernothing(currentRow(68))), 0)
DYIMPORT.AbgabeZoll = IIf(isleernothing((currentRow(70))) <> "", CDbl(isleernothing(currentRow(70))), 0) DYIMPORT.Vorausstl_Eustsatzabgabe = IIf(isleernothing((currentRow(69))) <> "", CDbl(isleernothing(currentRow(69))), 0)
DYIMPORT.AbgabeZollsatz = IIf(isleernothing((currentRow(71))) <> "", CDbl(isleernothing(currentRow(71))), 0) DYIMPORT.Zollwert = IIf(isleernothing((currentRow(70))) <> "", CDbl(isleernothing(currentRow(70))), 0)
DYIMPORT.Eustwert = IIf(isleernothing((currentRow(72))) <> "", CDbl(isleernothing(currentRow(72))), 0) DYIMPORT.AbgabeZoll = IIf(isleernothing((currentRow(71))) <> "", CDbl(isleernothing(currentRow(71))), 0)
DYIMPORT.AbgabeEust = IIf(isleernothing((currentRow(73))) <> "", CDbl(isleernothing(currentRow(73))), 0) DYIMPORT.AbgabeZollsatz = IIf(isleernothing((currentRow(72))) <> "", CDbl(isleernothing(currentRow(72))), 0)
DYIMPORT.AbgabeEustsatz = IIf(isleernothing((currentRow(74))) <> "", CDbl(isleernothing(currentRow(74))), 0) DYIMPORT.Eustwert = IIf(isleernothing((currentRow(73))) <> "", CDbl(isleernothing(currentRow(73))), 0)
DYIMPORT.AbgabeAntidumping = IIf(isleernothing((currentRow(75))) <> "", CDbl(isleernothing(currentRow(75))), 0)
DYIMPORT.AbgabeAntidumpingSatz = IIf(isleernothing((currentRow(76))) <> "", CDbl(isleernothing(currentRow(76))), 0) DYIMPORT.AbgabeEust = IIf(isleernothing((currentRow(74))) <> "", CDbl(isleernothing(currentRow(74))), 0)
DYIMPORT.Status_Steuerbescheid = isleernothing((currentRow(77)))
DYIMPORT.AbgabeEustsatz = IIf(isleernothing((currentRow(75))) <> "", CDbl(isleernothing(currentRow(75))), 0)
DYIMPORT.AbgabeAntidumping = IIf(isleernothing((currentRow(76))) <> "", CDbl(isleernothing(currentRow(76))), 0)
DYIMPORT.AbgabeAntidumpingSatz = IIf(isleernothing((currentRow(77))) <> "", CDbl(isleernothing(currentRow(77))), 0)
DYIMPORT.Status_Steuerbescheid = isleernothing((currentRow(78)))
DYIMPORT.ArtikelCode = isleernothing((currentRow(78))) DYIMPORT.ArtikelCode = isleernothing((currentRow(79)))
DYIMPORT.Warentarifnummer = isleernothing((currentRow(79))) DYIMPORT.Warentarifnummer = isleernothing((currentRow(80)))
DYIMPORT.Warenzusatz1 = isleernothing((currentRow(80))) DYIMPORT.Warenzusatz1 = isleernothing((currentRow(81)))
DYIMPORT.Warenzusatz2 = isleernothing((currentRow(81))) DYIMPORT.Warenzusatz2 = isleernothing((currentRow(82)))
DYIMPORT.Warenbezeichnung = isleernothing((currentRow(82))) DYIMPORT.Warenbezeichnung = isleernothing((currentRow(83)))
DYIMPORT.Verfahren2 = isleernothing((currentRow(83))) DYIMPORT.Verfahren2 = isleernothing((currentRow(84)))
DYIMPORT.EU_Code = isleernothing((currentRow(84))) DYIMPORT.EU_Code = isleernothing((currentRow(85)))
DYIMPORT.Artikelpreis = IIf(isleernothing((currentRow(85))) <> "", CDbl(isleernothing(currentRow(85))), 0) DYIMPORT.Artikelpreis = IIf(isleernothing((currentRow(86))) <> "", CDbl(isleernothing(currentRow(86))), 0)
DYIMPORT.Statistischerwert = IIf(isleernothing((currentRow(86))) <> "", CDbl(isleernothing(currentRow(86))), 0) DYIMPORT.Statistischerwert = IIf(isleernothing((currentRow(87))) <> "", CDbl(isleernothing(currentRow(87))), 0)
DYIMPORT.Eust_manuell = IIf(isleernothing((currentRow(87))) <> "", CDbl(isleernothing(currentRow(87))), 0) DYIMPORT.Eust_manuell = IIf(isleernothing((currentRow(88))) <> "", CDbl(isleernothing(currentRow(88))), 0)
DYIMPORT.Ursprung = isleernothing((currentRow(88))) DYIMPORT.Ursprung = isleernothing((currentRow(89)))
DYIMPORT.Präferenzursprungsland = isleernothing((currentRow(89))) DYIMPORT.Präferenzursprungsland = isleernothing((currentRow(90)))
DYIMPORT.Beguenstigung = isleernothing((currentRow(90))) DYIMPORT.Beguenstigung = isleernothing((currentRow(91)))
DYIMPORT.Rohmasse = IIf(isleernothing((currentRow(91))) <> "", CDbl(isleernothing(currentRow(91))), 0) DYIMPORT.Rohmasse = IIf(isleernothing((currentRow(92))) <> "", CDbl(isleernothing(currentRow(92))), 0)
DYIMPORT.Rohmasseeinheit = isleernothing((currentRow(92))) DYIMPORT.Rohmasseeinheit = isleernothing((currentRow(93)))
DYIMPORT.Eigenmasse = IIf(isleernothing((currentRow(93))) <> "", CDbl(isleernothing(currentRow(93))), 0) DYIMPORT.Eigenmasse = IIf(isleernothing((currentRow(94))) <> "", CDbl(isleernothing(currentRow(94))), 0)
DYIMPORT.Eigenmasseeinheit = isleernothing((currentRow(94))) DYIMPORT.Eigenmasseeinheit = isleernothing((currentRow(95)))
DYIMPORT.Positionszusatz = isleernothing((currentRow(95))) DYIMPORT.Positionszusatz = isleernothing((currentRow(96)))
DYIMPORT.Aussenhandelstatistische_Menge = IIf(isleernothing((currentRow(96))) <> "", CDbl(isleernothing(currentRow(96))), 0) DYIMPORT.Aussenhandelstatistische_Menge = IIf(isleernothing((currentRow(97))) <> "", CDbl(isleernothing(currentRow(97))), 0)
DYIMPORT.Maßeinheit = isleernothing((currentRow(97))) DYIMPORT.Maßeinheit = isleernothing((currentRow(98)))
DYIMPORT.AnzahlPackstücke = IIf(isleernothing((currentRow(98))) <> "", CDbl(isleernothing(currentRow(98))), 0) DYIMPORT.AnzahlPackstücke = IIf(isleernothing((currentRow(99))) <> "", CDbl(isleernothing(currentRow(99))), 0)
DYIMPORT.Packstückart = isleernothing((currentRow(99))) DYIMPORT.Packstückart = isleernothing((currentRow(100)))
DYIMPORT.Packstückbezeichnung = isleernothing((currentRow(100))) DYIMPORT.Packstückbezeichnung = isleernothing((currentRow(101)))
'DYIMPORT.Zusätzliche_angaben = isleernothing((currentRow(101))) 'DYIMPORT.Zusätzliche_angaben = isleernothing((currentRow(102)))
DYIMPORT.SonderAbgabeZoll = IIf(isleernothing((currentRow(102))) <> "", CDbl(isleernothing(currentRow(102))), 0) DYIMPORT.SonderAbgabeZoll = IIf(isleernothing((currentRow(103))) <> "", CDbl(isleernothing(currentRow(103))), 0)
DYIMPORT.SonderAbgabeEust = IIf(isleernothing((currentRow(103))) <> "", CDbl(isleernothing(currentRow(103))), 0) DYIMPORT.SonderAbgabeEust = IIf(isleernothing((currentRow(104))) <> "", CDbl(isleernothing(currentRow(104))), 0)
DYIMPORT.AbgabeZusatzzölle = IIf(isleernothing((currentRow(104))) <> "", CDbl(isleernothing(currentRow(104))), 0) DYIMPORT.AbgabeZusatzzölle = IIf(isleernothing((currentRow(105))) <> "", CDbl(isleernothing(currentRow(105))), 0)
DYIMPORT.SonderAbgabeAntidumping = IIf(isleernothing((currentRow(105))) <> "", CDbl(isleernothing(currentRow(105))), 0) DYIMPORT.SonderAbgabeAntidumping = IIf(isleernothing((currentRow(106))) <> "", CDbl(isleernothing(currentRow(106))), 0)
DYIMPORT.Verbrauchssteuern = IIf(isleernothing((currentRow(106))) <> "", CDbl(isleernothing(currentRow(106))), 0) DYIMPORT.Verbrauchssteuern = IIf(isleernothing((currentRow(107))) <> "", CDbl(isleernothing(currentRow(107))), 0)
DYIMPORT.Positionsunterlagenzeile = isleernothing((currentRow(107))) DYIMPORT.Positionsunterlagenzeile = isleernothing((currentRow(108)))
DYIMPORT.Positionsunterlagenbereich = isleernothing((currentRow(108))) DYIMPORT.Positionsunterlagenbereich = isleernothing((currentRow(109)))
DYIMPORT.Positionsunterlagenart = isleernothing((currentRow(109))) DYIMPORT.Positionsunterlagenart = isleernothing((currentRow(110)))
DYIMPORT.Positionsunterlagennummer = isleernothing((currentRow(110))) DYIMPORT.Positionsunterlagennummer = isleernothing((currentRow(111)))
DYIMPORT.Positionsunterlagendatum = isleernothing((currentRow(111))) DYIMPORT.Positionsunterlagendatum = isleernothing((currentRow(112)))
'DYIMPORT.Nettokurs= isleernothing((currentRow(113)))
DYIMPORT.DV1Rechnungsbetrag = IIf(isleernothing((currentRow(112))) <> "", CDbl(isleernothing(currentRow(112))), 0) DYIMPORT.DV1Rechnungsbetrag = IIf(isleernothing((currentRow(114))) <> "", CDbl(isleernothing(currentRow(114))), 0)
DYIMPORT.DV1Währung = isleernothing((currentRow(113))) DYIMPORT.DV1Währung = isleernothing((currentRow(115)))
DYIMPORT.DV1UmgerechnerterRechnungsbetrag = IIf(isleernothing((currentRow(114))) <> "", CDbl(isleernothing(currentRow(114))), 0) DYIMPORT.DV1UmgerechnerterRechnungsbetrag = IIf(isleernothing((currentRow(116))) <> "", CDbl(isleernothing(currentRow(116))), 0)
DYIMPORT.DV1UmgerechneteWährung = isleernothing((currentRow(115))) DYIMPORT.DV1UmgerechneteWährung = isleernothing((currentRow(117)))
DYIMPORT.DV1Versicherung = IIf(isleernothing((currentRow(116))) <> "", CDbl(isleernothing(currentRow(116))), 0) DYIMPORT.DV1Versicherung = IIf(isleernothing((currentRow(118))) <> "", CDbl(isleernothing(currentRow(118))), 0)
DYIMPORT.DV1Versicherungswährung = isleernothing((currentRow(117))) DYIMPORT.DV1Versicherungswährung = isleernothing((currentRow(119)))
DYIMPORT.DV1Luftfrachtkosten = IIf(isleernothing((currentRow(118))) <> "", CDbl(isleernothing(currentRow(118))), 0) DYIMPORT.DV1Luftfrachtkosten = IIf(isleernothing((currentRow(120))) <> "", CDbl(isleernothing(currentRow(120))), 0)
DYIMPORT.DV1Luftfrachtwährung = isleernothing((currentRow(119))) DYIMPORT.DV1Luftfrachtwährung = isleernothing((currentRow(121)))
DYIMPORT.DV1Frachtkosten = IIf(isleernothing((currentRow(120))) <> "", CDbl(isleernothing(currentRow(120))), 0) DYIMPORT.DV1Frachtkosten = IIf(isleernothing((currentRow(122))) <> "", CDbl(isleernothing(currentRow(122))), 0)
DYIMPORT.DV1Frachtwährung = isleernothing((currentRow(121))) DYIMPORT.DV1Frachtwährung = isleernothing((currentRow(123)))
DYIMPORT.DV1Materialien = IIf(isleernothing((currentRow(122))) <> "", CDbl(isleernothing(currentRow(122))), 0) DYIMPORT.DV1Materialien = IIf(isleernothing((currentRow(124))) <> "", CDbl(isleernothing(currentRow(124))), 0)
DYIMPORT.DV1Materialwährung = isleernothing((currentRow(123))) DYIMPORT.DV1Materialwährung = isleernothing((currentRow(125)))
DYIMPORT.DV1Provisionen = IIf(isleernothing((currentRow(124))) <> "", CDbl(isleernothing(currentRow(124))), 0) DYIMPORT.DV1Provisionen = IIf(isleernothing((currentRow(126))) <> "", CDbl(isleernothing(currentRow(126))), 0)
DYIMPORT.DV1Provisionwährung = isleernothing((currentRow(125))) DYIMPORT.DV1Provisionwährung = isleernothing((currentRow(127)))
DYIMPORT.Abflughafen_Code = isleernothing((currentRow(126))) DYIMPORT.Abflughafen_Code = isleernothing((currentRow(128)))
DYIMPORT.Abflughafen_Text = isleernothing((currentRow(127))) DYIMPORT.Abflughafen_Text = isleernothing((currentRow(129)))
DYIMPORT.Vorpapierart = isleernothing((currentRow(128))) DYIMPORT.Vorpapierart = isleernothing((currentRow(130)))
DYIMPORT.Vorpapiere_Regnummer = isleernothing((currentRow(129))) DYIMPORT.Vorpapiere_Regnummer = isleernothing((currentRow(131)))
DYIMPORT.BEAnteil_SumA = isleernothing((currentRow(130))) DYIMPORT.BEAnteil_SumA = isleernothing((currentRow(132)))
DYIMPORT.BEAnteil_ZL = IIf(isleernothing((currentRow(131))) <> "", CDbl(isleernothing(currentRow(131))), 0) DYIMPORT.BEAnteil_ZL = IIf(isleernothing((currentRow(133))) <> "", CDbl(isleernothing(currentRow(133))), 0)
DYIMPORT.BEAnteil_AV = IIf(isleernothing((currentRow(132))) <> "", CDbl(isleernothing(currentRow(132))), 0) DYIMPORT.BEAnteil_AV = IIf(isleernothing((currentRow(134))) <> "", CDbl(isleernothing(currentRow(134))), 0)
DYIMPORT.UST_ID_Einführer = isleernothing((currentRow(133))) DYIMPORT.UST_ID_Einführer = isleernothing((currentRow(135)))
DYIMPORT.UST_ID_Erwerber = isleernothing((currentRow(134))) DYIMPORT.UST_ID_Erwerber = isleernothing((currentRow(136)))
DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(135))) DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(137)))
DYIMPORT.Shipmentnummer = isleernothing((currentRow(136))) DYIMPORT.Shipmentnummer = isleernothing((currentRow(138)))
DYIMPORT.Importstatus = isleernothing((currentRow(137))) DYIMPORT.Importstatus = isleernothing((currentRow(139)))
If DYIMPORT.SAVE() Then If DYIMPORT.SAVE() Then
TextBox10.Text &= DYIMPORT.Id & vbNewLine TextBox10.Text &= DYIMPORT.Id & vbNewLine
Else Else

253
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1140,156 +1140,175 @@ Public Class frmStartOptions
Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg" Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg"
betreff = betreff.Replace("%LKW%", AVISO.LKW_Nr) betreff = betreff.Replace("%LKW%", AVISO.LKW_Nr)
betreff = betreff.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr) betreff = betreff.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr)
betreff = betreff.Replace("%Standort%", "") betreff = betreff.Replace("%Standort%", "")
betreff = betreff.Replace("%Uhrzeit%", "") betreff = betreff.Replace("%Uhrzeit%", "")
betreff = betreff.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, "")) betreff = betreff.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, ""))
Dim body = cStandort.eMail_Zollbeleg_Text Dim body = cStandort.eMail_Zollbeleg_Text
Dim EMails As String = "" Dim EMails As String = ""
Dim EMails_CC As String = "" Dim EMails_CC As String = ""
Dim EMails_BCC As String = "" Dim EMails_BCC As String = ""
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
Dim Mail_Art = -1 Dim Mail_Art = -1
Select Case art Select Case art
Case "AVM", "ABD" 'Export Case "AVM", "ABD" 'Export
Mail_Art = 4 ' Freigabe Export Mail_Art = 4 ' Freigabe Export
'If EMails_BCC = "" Then 'If EMails_BCC = "" Then
' EMails_BCC = "al@verag.ag" ' EMails_BCC = "al@verag.ag"
'Else 'Else
' EMails_BCC &= ";al@verag.ag" ' EMails_BCC &= ";al@verag.ag"
'End If 'End If
Case Else Case Else
Mail_Art = 2 Mail_Art = 2
End Select End Select
Select Case SND.tblSnd_Abfertigungsart_ID Select Case SND.tblSnd_Abfertigungsart_ID
Case 6, 7, 33, 34, 37, 40, 43 Case 6, 7, 33, 34, 37, 40, 43
Mail_Art = 4 ' Freigabe Export Mail_Art = 4 ' Freigabe Export
End Select End Select
'---------------------------------------------------------
' Wenn Mail_Art = Freigabe Beleg und art = STB und EmailFreigabeBeleg_Sendungsunterlagen, dann werden die Sendungsunterlagen an die Kunden geschickt
'---------------------------------------------------------
If Mail_Art = 2 And art = "STB" And KD_ERW.EmailFreigabe_Art = "BLG" And KD_ERW.EmailFreigabeBeleg_Sendungsunterlagen Then
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
' Case "EXPORT_DOCS"
Case "RECHNUNG", "CMR", "ATR", "EUR1", "COO", "PACKLISTE"
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If PathTmpANH <> "" Then pfadList.Add(PathTmpANH)
End Select
Next
End If
'---------------------------------------------------------
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, Mail_Art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, Mail_Art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC) ' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
body = body.Replace("%Platzhalter%", "") body = body.Replace("%Platzhalter%", "")
body = body.Replace("%LKW%", AVISO.LKW_Nr) body = body.Replace("%LKW%", AVISO.LKW_Nr)
body = body.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr) body = body.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr)
body = body.Replace("%Standort%", getStandortTXT(AVISO)) body = body.Replace("%Standort%", getStandortTXT(AVISO))
body = body.Replace("%Uhrzeit%", Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr") body = body.Replace("%Uhrzeit%", Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr")
body = body.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, "")) body = body.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, ""))
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!! ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'EMails = "luxbauer@gmail.com" 'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
'EMails_CC = "" ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'EMails_BCC = ""
'!!!!!!!!!!!!!!!!!!!!!!!!!!
'If EMails_BCC = "" Then '!!!!!!!!!!!!!!!!!!!!!!!!!!
' EMails_BCC = "al@verag.ag" 'EMails = "luxbauer@gmail.com"
'Else 'EMails_CC = ""
' EMails_BCC &= ";al@verag.ag" 'EMails_BCC = ""
''End If '!!!!!!!!!!!!!!!!!!!!!!!!!!
''!!!!!!!!!!!!!!!!!!!!!!!!!!
'If KundenNr = 706113 Then 'If EMails_BCC = "" Then
' EMails = "al@verag.ag" ' EMails_BCC = "al@verag.ag"
' EMails_CC = "" 'Else
' EMails_BCC = "" ' EMails_BCC &= ";al@verag.ag"
'End If ''End If
''!!!!!!!!!!!!!!!!!!!!!!!!!! ''!!!!!!!!!!!!!!!!!!!!!!!!!!
'If KundenNr = 706113 Then
' EMails = "al@verag.ag"
' EMails_CC = ""
' EMails_BCC = ""
'End If
''!!!!!!!!!!!!!!!!!!!!!!!!!!
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr) Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr)
API.api_EMail = EMails API.api_EMail = EMails
API.api_EMailCC = EMails_CC API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = betreff API.api_EMailSubject = betreff
API.api_EMailText = body API.api_EMailText = body
API.api_EMailAttCnt = pfadList.Count API.api_EMailAttCnt = pfadList.Count
betreff = betreff.Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ") betreff = betreff.Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
Select Case art Select Case art
Case "STB" Case "STB"
Select Case artKunde Select Case artKunde
Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide.. Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide..
Case Else Case Else
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr) betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK() API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else Else
API.UPDTAE_ERR() API.UPDTAE_ERR()
End If
End If End If
End Select
Case "VBD"
If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If End If
End If
Case "ZNV"
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "ABD"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "AVM"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
End Select
End Select End If
Case "VBD"
If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "ZNV"
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "ABD"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "AVM"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
End Select
End If End If
End If
End If End If
End If End If
Catch ex As Exception Catch ex As Exception