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

merge

Browse Source
This commit is contained in:
d.breimaier
2025-07-28 09:04:21 +02:00
parent 3294d1d65c 6d8a537ee7
commit 3c1532cda5
6 changed files with 650 additions and 726 deletions
Download Patch File Download Diff File Expand all files Collapse all files

719
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -97,20 +97,37 @@ 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
' getADFrom_EZOLL Select Case Zollsystem_Land
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! Case "AT"
If Not getDataByBezugsnummer Then 'Falls doch nicht 'eZoll
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True)
isUeT1 = (getDataByBezugsnummer) ' MsgBox("1")
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen... Case "DE"
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
Case Else
getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True)
' MsgBox("3 ")
End Select
If Not getDataByBezugsnummer Then
' getADFrom_EZOLL
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
If Not getDataByBezugsnummer Then 'Falls doch nicht
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben)
isUeT1 = (getDataByBezugsnummer)
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
End If
End If End If
Case 1, 2, 3, 28, 39 Case 1, 2, 3, 28, 39
'... and Systeme '... and Systeme
@@ -179,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)
@@ -363,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
@@ -1022,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

208
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
@@ -3774,7 +3778,7 @@ Public Class usrctlProcedures
' Pfad zur Excel-Datei anpassen ' Pfad zur Excel-Datei anpassen
Dim filePath As String = "D:\Andreas\TMP\elot\Garantiebeträge 042025-Atilla-Durmaz.xlsx" Dim filePath As String = "D:\Andreas\TMP\TELENM\05-062025 telo ATIL DUR.xlsx"
' Excel Anwendung starten ' Excel Anwendung starten
Dim excelApp As New Excel.Application Dim excelApp As New Excel.Application

97
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -326,6 +326,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxUseUIDFinanzOnline = New System.Windows.Forms.CheckBox()
Me.LinkLabel53 = New System.Windows.Forms.LinkLabel() Me.LinkLabel53 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -377,6 +378,7 @@ Partial Class frmStartOptions
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.cbxUseUIDFinanzOnline)
Me.pnl.Controls.Add(Me.txtMRNPrefix) Me.pnl.Controls.Add(Me.txtMRNPrefix)
Me.pnl.Controls.Add(Me.ATCNRinRE) Me.pnl.Controls.Add(Me.ATCNRinRE)
Me.pnl.Controls.Add(Me.PictureBox24) Me.pnl.Controls.Add(Me.PictureBox24)
@@ -516,7 +518,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox23.BackgroundImage = CType(resources.GetObject("PictureBox23.BackgroundImage"), System.Drawing.Image) Me.PictureBox23.BackgroundImage = CType(resources.GetObject("PictureBox23.BackgroundImage"), System.Drawing.Image)
Me.PictureBox23.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox23.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox23.Location = New System.Drawing.Point(104, 210) Me.PictureBox23.Location = New System.Drawing.Point(104, 234)
Me.PictureBox23.Name = "PictureBox23" Me.PictureBox23.Name = "PictureBox23"
Me.PictureBox23.Size = New System.Drawing.Size(18, 18) Me.PictureBox23.Size = New System.Drawing.Size(18, 18)
Me.PictureBox23.TabIndex = 88 Me.PictureBox23.TabIndex = 88
@@ -526,7 +528,7 @@ Partial Class frmStartOptions
'Label27 'Label27
' '
Me.Label27.AutoSize = True Me.Label27.AutoSize = True
Me.Label27.Location = New System.Drawing.Point(181, 211) Me.Label27.Location = New System.Drawing.Point(181, 235)
Me.Label27.Name = "Label27" Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(71, 13) Me.Label27.Size = New System.Drawing.Size(71, 13)
Me.Label27.TabIndex = 87 Me.Label27.TabIndex = 87
@@ -547,7 +549,7 @@ Partial Class frmStartOptions
Me.MyTextBox3._Waehrung = False Me.MyTextBox3._Waehrung = False
Me.MyTextBox3._WaehrungZeichen = True Me.MyTextBox3._WaehrungZeichen = True
Me.MyTextBox3.ForeColor = System.Drawing.Color.Red Me.MyTextBox3.ForeColor = System.Drawing.Color.Red
Me.MyTextBox3.Location = New System.Drawing.Point(127, 208) Me.MyTextBox3.Location = New System.Drawing.Point(127, 232)
Me.MyTextBox3.MaxLineLength = -1 Me.MyTextBox3.MaxLineLength = -1
Me.MyTextBox3.MaxLines_Warning = "" Me.MyTextBox3.MaxLines_Warning = ""
Me.MyTextBox3.MaxLines_Warning_Label = Nothing Me.MyTextBox3.MaxLines_Warning_Label = Nothing
@@ -559,7 +561,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel51.AutoSize = True Me.LinkLabel51.AutoSize = True
Me.LinkLabel51.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel51.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel51.Location = New System.Drawing.Point(17, 211) Me.LinkLabel51.Location = New System.Drawing.Point(17, 235)
Me.LinkLabel51.Name = "LinkLabel51" Me.LinkLabel51.Name = "LinkLabel51"
Me.LinkLabel51.Size = New System.Drawing.Size(88, 13) Me.LinkLabel51.Size = New System.Drawing.Size(88, 13)
Me.LinkLabel51.TabIndex = 85 Me.LinkLabel51.TabIndex = 85
@@ -593,7 +595,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel48.AutoSize = True Me.LinkLabel48.AutoSize = True
Me.LinkLabel48.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel48.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel48.Location = New System.Drawing.Point(405, 135) Me.LinkLabel48.Location = New System.Drawing.Point(405, 159)
Me.LinkLabel48.Name = "LinkLabel48" Me.LinkLabel48.Name = "LinkLabel48"
Me.LinkLabel48.Size = New System.Drawing.Size(129, 13) Me.LinkLabel48.Size = New System.Drawing.Size(129, 13)
Me.LinkLabel48.TabIndex = 77 Me.LinkLabel48.TabIndex = 77
@@ -605,7 +607,7 @@ Partial Class frmStartOptions
Me.cbxVermerk.AutoSize = True Me.cbxVermerk.AutoSize = True
Me.cbxVermerk.Checked = True Me.cbxVermerk.Checked = True
Me.cbxVermerk.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxVermerk.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVermerk.Location = New System.Drawing.Point(151, 178) Me.cbxVermerk.Location = New System.Drawing.Point(151, 202)
Me.cbxVermerk.Name = "cbxVermerk" Me.cbxVermerk.Name = "cbxVermerk"
Me.cbxVermerk.Size = New System.Drawing.Size(100, 17) Me.cbxVermerk.Size = New System.Drawing.Size(100, 17)
Me.cbxVermerk.TabIndex = 76 Me.cbxVermerk.TabIndex = 76
@@ -618,7 +620,7 @@ Partial Class frmStartOptions
Me.cbxDatevTest.Checked = True Me.cbxDatevTest.Checked = True
Me.cbxDatevTest.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxDatevTest.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDatevTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxDatevTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDatevTest.Location = New System.Drawing.Point(15, 368) Me.cbxDatevTest.Location = New System.Drawing.Point(15, 392)
Me.cbxDatevTest.Name = "cbxDatevTest" Me.cbxDatevTest.Name = "cbxDatevTest"
Me.cbxDatevTest.Size = New System.Drawing.Size(79, 17) Me.cbxDatevTest.Size = New System.Drawing.Size(79, 17)
Me.cbxDatevTest.TabIndex = 75 Me.cbxDatevTest.TabIndex = 75
@@ -629,7 +631,7 @@ Partial Class frmStartOptions
' '
Me.cbxDatevOpen.AutoSize = True Me.cbxDatevOpen.AutoSize = True
Me.cbxDatevOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxDatevOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDatevOpen.Location = New System.Drawing.Point(170, 345) Me.cbxDatevOpen.Location = New System.Drawing.Point(170, 369)
Me.cbxDatevOpen.Name = "cbxDatevOpen" Me.cbxDatevOpen.Name = "cbxDatevOpen"
Me.cbxDatevOpen.Size = New System.Drawing.Size(56, 17) Me.cbxDatevOpen.Size = New System.Drawing.Size(56, 17)
Me.cbxDatevOpen.TabIndex = 74 Me.cbxDatevOpen.TabIndex = 74
@@ -641,7 +643,7 @@ Partial Class frmStartOptions
Me.cbxDatevBuchungen.AutoSize = True Me.cbxDatevBuchungen.AutoSize = True
Me.cbxDatevBuchungen.Checked = True Me.cbxDatevBuchungen.Checked = True
Me.cbxDatevBuchungen.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxDatevBuchungen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDatevBuchungen.Location = New System.Drawing.Point(84, 345) Me.cbxDatevBuchungen.Location = New System.Drawing.Point(84, 369)
Me.cbxDatevBuchungen.Name = "cbxDatevBuchungen" Me.cbxDatevBuchungen.Name = "cbxDatevBuchungen"
Me.cbxDatevBuchungen.Size = New System.Drawing.Size(81, 17) Me.cbxDatevBuchungen.Size = New System.Drawing.Size(81, 17)
Me.cbxDatevBuchungen.TabIndex = 73 Me.cbxDatevBuchungen.TabIndex = 73
@@ -653,7 +655,7 @@ Partial Class frmStartOptions
Me.cbxDatevDebitoren.AutoSize = True Me.cbxDatevDebitoren.AutoSize = True
Me.cbxDatevDebitoren.Checked = True Me.cbxDatevDebitoren.Checked = True
Me.cbxDatevDebitoren.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxDatevDebitoren.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDatevDebitoren.Location = New System.Drawing.Point(15, 345) Me.cbxDatevDebitoren.Location = New System.Drawing.Point(15, 369)
Me.cbxDatevDebitoren.Name = "cbxDatevDebitoren" Me.cbxDatevDebitoren.Name = "cbxDatevDebitoren"
Me.cbxDatevDebitoren.Size = New System.Drawing.Size(63, 17) Me.cbxDatevDebitoren.Size = New System.Drawing.Size(63, 17)
Me.cbxDatevDebitoren.TabIndex = 72 Me.cbxDatevDebitoren.TabIndex = 72
@@ -665,7 +667,7 @@ Partial Class frmStartOptions
Me.btnDatev.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDatev.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatev.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.btnDatev.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnDatev.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnDatev.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDatev.Location = New System.Drawing.Point(15, 318) Me.btnDatev.Location = New System.Drawing.Point(15, 342)
Me.btnDatev.Name = "btnDatev" Me.btnDatev.Name = "btnDatev"
Me.btnDatev.Size = New System.Drawing.Size(211, 24) Me.btnDatev.Size = New System.Drawing.Size(211, 24)
Me.btnDatev.TabIndex = 71 Me.btnDatev.TabIndex = 71
@@ -676,7 +678,7 @@ Partial Class frmStartOptions
' '
Me.lblDatev.AutoSize = True Me.lblDatev.AutoSize = True
Me.lblDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDatev.Location = New System.Drawing.Point(12, 302) Me.lblDatev.Location = New System.Drawing.Point(12, 326)
Me.lblDatev.Name = "lblDatev" Me.lblDatev.Name = "lblDatev"
Me.lblDatev.Size = New System.Drawing.Size(142, 13) Me.lblDatev.Size = New System.Drawing.Size(142, 13)
Me.lblDatev.TabIndex = 70 Me.lblDatev.TabIndex = 70
@@ -686,7 +688,7 @@ Partial Class frmStartOptions
' '
Me.Label21.AutoSize = True Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Label21.Location = New System.Drawing.Point(264, 298) Me.Label21.Location = New System.Drawing.Point(264, 322)
Me.Label21.Name = "Label21" Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(75, 13) Me.Label21.Size = New System.Drawing.Size(75, 13)
Me.Label21.TabIndex = 69 Me.Label21.TabIndex = 69
@@ -709,7 +711,7 @@ Partial Class frmStartOptions
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(268, 340) Me.Button14.Location = New System.Drawing.Point(268, 364)
Me.Button14.Name = "Button14" Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(143, 24) Me.Button14.Size = New System.Drawing.Size(143, 24)
Me.Button14.TabIndex = 67 Me.Button14.TabIndex = 67
@@ -720,7 +722,7 @@ Partial Class frmStartOptions
' '
Me.Label20.AutoSize = True Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(265, 324) Me.Label20.Location = New System.Drawing.Point(265, 348)
Me.Label20.Name = "Label20" Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(146, 13) Me.Label20.Size = New System.Drawing.Size(146, 13)
Me.Label20.TabIndex = 66 Me.Label20.TabIndex = 66
@@ -729,7 +731,7 @@ Partial Class frmStartOptions
'Label19 'Label19
' '
Me.Label19.AutoSize = True Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(205, 155) Me.Label19.Location = New System.Drawing.Point(205, 179)
Me.Label19.Name = "Label19" Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(67, 13) Me.Label19.Size = New System.Drawing.Size(67, 13)
Me.Label19.TabIndex = 65 Me.Label19.TabIndex = 65
@@ -738,7 +740,7 @@ Partial Class frmStartOptions
'Label18 'Label18
' '
Me.Label18.AutoSize = True Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(206, 135) Me.Label18.Location = New System.Drawing.Point(206, 159)
Me.Label18.Name = "Label18" Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(27, 13) Me.Label18.Size = New System.Drawing.Size(27, 13)
Me.Label18.TabIndex = 64 Me.Label18.TabIndex = 64
@@ -759,7 +761,7 @@ Partial Class frmStartOptions
Me.MyTextBox2._Waehrung = False Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Red Me.MyTextBox2.ForeColor = System.Drawing.Color.Red
Me.MyTextBox2.Location = New System.Drawing.Point(151, 152) Me.MyTextBox2.Location = New System.Drawing.Point(151, 176)
Me.MyTextBox2.MaxLineLength = -1 Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = "" Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing Me.MyTextBox2.MaxLines_Warning_Label = Nothing
@@ -771,7 +773,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel36.AutoSize = True Me.LinkLabel36.AutoSize = True
Me.LinkLabel36.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel36.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel36.Location = New System.Drawing.Point(15, 189) Me.LinkLabel36.Location = New System.Drawing.Point(15, 213)
Me.LinkLabel36.Name = "LinkLabel36" Me.LinkLabel36.Name = "LinkLabel36"
Me.LinkLabel36.Size = New System.Drawing.Size(117, 13) Me.LinkLabel36.Size = New System.Drawing.Size(117, 13)
Me.LinkLabel36.TabIndex = 62 Me.LinkLabel36.TabIndex = 62
@@ -854,7 +856,7 @@ Partial Class frmStartOptions
' '
Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image) Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image)
Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.piceZollAnh.Location = New System.Drawing.Point(500, 190) Me.piceZollAnh.Location = New System.Drawing.Point(500, 214)
Me.piceZollAnh.Name = "piceZollAnh" Me.piceZollAnh.Name = "piceZollAnh"
Me.piceZollAnh.Size = New System.Drawing.Size(18, 18) Me.piceZollAnh.Size = New System.Drawing.Size(18, 18)
Me.piceZollAnh.TabIndex = 56 Me.piceZollAnh.TabIndex = 56
@@ -876,7 +878,7 @@ Partial Class frmStartOptions
Me.txtEZOLLAnhDat._Waehrung = False Me.txtEZOLLAnhDat._Waehrung = False
Me.txtEZOLLAnhDat._WaehrungZeichen = True Me.txtEZOLLAnhDat._WaehrungZeichen = True
Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black
Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 214)
Me.txtEZOLLAnhDat.MaxLength = 10 Me.txtEZOLLAnhDat.MaxLength = 10
Me.txtEZOLLAnhDat.MaxLineLength = -1 Me.txtEZOLLAnhDat.MaxLineLength = -1
Me.txtEZOLLAnhDat.MaxLines_Warning = "" Me.txtEZOLLAnhDat.MaxLines_Warning = ""
@@ -889,7 +891,7 @@ Partial Class frmStartOptions
' '
Me.lblEZOLLDat.AutoSize = True Me.lblEZOLLDat.AutoSize = True
Me.lblEZOLLDat.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.lblEZOLLDat.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 193) Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 217)
Me.lblEZOLLDat.Name = "lblEZOLLDat" Me.lblEZOLLDat.Name = "lblEZOLLDat"
Me.lblEZOLLDat.Size = New System.Drawing.Size(105, 13) Me.lblEZOLLDat.Size = New System.Drawing.Size(105, 13)
Me.lblEZOLLDat.TabIndex = 54 Me.lblEZOLLDat.TabIndex = 54
@@ -969,7 +971,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel33.AutoSize = True Me.LinkLabel33.AutoSize = True
Me.LinkLabel33.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel33.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel33.Location = New System.Drawing.Point(15, 170) Me.LinkLabel33.Location = New System.Drawing.Point(15, 194)
Me.LinkLabel33.Name = "LinkLabel33" Me.LinkLabel33.Name = "LinkLabel33"
Me.LinkLabel33.Size = New System.Drawing.Size(107, 13) Me.LinkLabel33.Size = New System.Drawing.Size(107, 13)
Me.LinkLabel33.TabIndex = 47 Me.LinkLabel33.TabIndex = 47
@@ -992,7 +994,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel32.AutoSize = True Me.LinkLabel32.AutoSize = True
Me.LinkLabel32.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel32.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel32.Location = New System.Drawing.Point(15, 152) Me.LinkLabel32.Location = New System.Drawing.Point(15, 176)
Me.LinkLabel32.Name = "LinkLabel32" Me.LinkLabel32.Name = "LinkLabel32"
Me.LinkLabel32.Size = New System.Drawing.Size(95, 13) Me.LinkLabel32.Size = New System.Drawing.Size(95, 13)
Me.LinkLabel32.TabIndex = 45 Me.LinkLabel32.TabIndex = 45
@@ -1004,7 +1006,7 @@ Partial Class frmStartOptions
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(391, 253) Me.Button4.Location = New System.Drawing.Point(391, 277)
Me.Button4.Name = "Button4" Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(136, 24) Me.Button4.Size = New System.Drawing.Size(136, 24)
Me.Button4.TabIndex = 44 Me.Button4.TabIndex = 44
@@ -1017,7 +1019,7 @@ Partial Class frmStartOptions
Me.CheckBox5.Checked = True Me.CheckBox5.Checked = True
Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox5.Location = New System.Drawing.Point(449, 280) Me.CheckBox5.Location = New System.Drawing.Point(449, 304)
Me.CheckBox5.Name = "CheckBox5" Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17) Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
Me.CheckBox5.TabIndex = 43 Me.CheckBox5.TabIndex = 43
@@ -1029,7 +1031,7 @@ Partial Class frmStartOptions
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(268, 253) Me.Button3.Location = New System.Drawing.Point(268, 277)
Me.Button3.Name = "Button3" Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(124, 24) Me.Button3.Size = New System.Drawing.Size(124, 24)
Me.Button3.TabIndex = 40 Me.Button3.TabIndex = 40
@@ -1042,7 +1044,7 @@ Partial Class frmStartOptions
Me.cboBMDUnispedFirma._allowFreiText = False Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = "" Me.cboBMDUnispedFirma._value = ""
Me.cboBMDUnispedFirma.FormattingEnabled = True Me.cboBMDUnispedFirma.FormattingEnabled = True
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300)
Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21)
Me.cboBMDUnispedFirma.TabIndex = 42 Me.cboBMDUnispedFirma.TabIndex = 42
@@ -1051,7 +1053,7 @@ Partial Class frmStartOptions
' '
Me.CheckBox4.AutoSize = True Me.CheckBox4.AutoSize = True
Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox4.Location = New System.Drawing.Point(394, 280) Me.CheckBox4.Location = New System.Drawing.Point(394, 304)
Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(56, 17) Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
Me.CheckBox4.TabIndex = 41 Me.CheckBox4.TabIndex = 41
@@ -1062,7 +1064,7 @@ Partial Class frmStartOptions
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(265, 237) Me.Label13.Location = New System.Drawing.Point(265, 261)
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(163, 13) Me.Label13.Size = New System.Drawing.Size(163, 13)
Me.Label13.TabIndex = 39 Me.Label13.TabIndex = 39
@@ -1071,7 +1073,7 @@ Partial Class frmStartOptions
'CheckBox3 'CheckBox3
' '
Me.CheckBox3.AutoSize = True Me.CheckBox3.AutoSize = True
Me.CheckBox3.Location = New System.Drawing.Point(302, 173) Me.CheckBox3.Location = New System.Drawing.Point(302, 197)
Me.CheckBox3.Name = "CheckBox3" Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(103, 17) Me.CheckBox3.Size = New System.Drawing.Size(103, 17)
Me.CheckBox3.TabIndex = 38 Me.CheckBox3.TabIndex = 38
@@ -4033,7 +4035,7 @@ Partial Class frmStartOptions
'CheckBox2 'CheckBox2
' '
Me.CheckBox2.AutoSize = True Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(302, 151) Me.CheckBox2.Location = New System.Drawing.Point(302, 175)
Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(98, 17) Me.CheckBox2.Size = New System.Drawing.Size(98, 17)
Me.CheckBox2.TabIndex = 13 Me.CheckBox2.TabIndex = 13
@@ -4044,7 +4046,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel25.AutoSize = True Me.LinkLabel25.AutoSize = True
Me.LinkLabel25.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel25.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel25.Location = New System.Drawing.Point(299, 135) Me.LinkLabel25.Location = New System.Drawing.Point(299, 159)
Me.LinkLabel25.Name = "LinkLabel25" Me.LinkLabel25.Name = "LinkLabel25"
Me.LinkLabel25.Size = New System.Drawing.Size(99, 13) Me.LinkLabel25.Size = New System.Drawing.Size(99, 13)
Me.LinkLabel25.TabIndex = 12 Me.LinkLabel25.TabIndex = 12
@@ -4055,7 +4057,7 @@ Partial Class frmStartOptions
' '
Me.CheckBox1.AutoSize = True Me.CheckBox1.AutoSize = True
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox1.Location = New System.Drawing.Point(173, 280) Me.CheckBox1.Location = New System.Drawing.Point(173, 304)
Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(56, 17) Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
Me.CheckBox1.TabIndex = 18 Me.CheckBox1.TabIndex = 18
@@ -4067,7 +4069,7 @@ Partial Class frmStartOptions
Me.cbxBu.AutoSize = True Me.cbxBu.AutoSize = True
Me.cbxBu.Checked = True Me.cbxBu.Checked = True
Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBu.Location = New System.Drawing.Point(87, 280) Me.cbxBu.Location = New System.Drawing.Point(87, 304)
Me.cbxBu.Name = "cbxBu" Me.cbxBu.Name = "cbxBu"
Me.cbxBu.Size = New System.Drawing.Size(81, 17) Me.cbxBu.Size = New System.Drawing.Size(81, 17)
Me.cbxBu.TabIndex = 17 Me.cbxBu.TabIndex = 17
@@ -4079,7 +4081,7 @@ Partial Class frmStartOptions
Me.cbxKd.AutoSize = True Me.cbxKd.AutoSize = True
Me.cbxKd.Checked = True Me.cbxKd.Checked = True
Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxKd.Location = New System.Drawing.Point(18, 280) Me.cbxKd.Location = New System.Drawing.Point(18, 304)
Me.cbxKd.Name = "cbxKd" Me.cbxKd.Name = "cbxKd"
Me.cbxKd.Size = New System.Drawing.Size(63, 17) Me.cbxKd.Size = New System.Drawing.Size(63, 17)
Me.cbxKd.TabIndex = 16 Me.cbxKd.TabIndex = 16
@@ -4091,7 +4093,7 @@ Partial Class frmStartOptions
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(18, 253) Me.Button9.Location = New System.Drawing.Point(18, 277)
Me.Button9.Name = "Button9" Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(211, 24) Me.Button9.Size = New System.Drawing.Size(211, 24)
Me.Button9.TabIndex = 15 Me.Button9.TabIndex = 15
@@ -4102,7 +4104,7 @@ Partial Class frmStartOptions
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(15, 237) Me.Label3.Location = New System.Drawing.Point(15, 261)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(138, 13) Me.Label3.Size = New System.Drawing.Size(138, 13)
Me.Label3.TabIndex = 14 Me.Label3.TabIndex = 14
@@ -4123,7 +4125,7 @@ Partial Class frmStartOptions
Me.MyTextBox1._Waehrung = False Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) Me.MyTextBox1.Location = New System.Drawing.Point(151, 156)
Me.MyTextBox1.MaxLineLength = -1 Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = "" Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing Me.MyTextBox1.MaxLines_Warning_Label = Nothing
@@ -4136,7 +4138,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
Me.PictureBox12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox12.Location = New System.Drawing.Point(127, 130) Me.PictureBox12.Location = New System.Drawing.Point(127, 154)
Me.PictureBox12.Name = "PictureBox12" Me.PictureBox12.Name = "PictureBox12"
Me.PictureBox12.Size = New System.Drawing.Size(18, 18) Me.PictureBox12.Size = New System.Drawing.Size(18, 18)
Me.PictureBox12.TabIndex = 37 Me.PictureBox12.TabIndex = 37
@@ -4147,7 +4149,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel20.AutoSize = True Me.LinkLabel20.AutoSize = True
Me.LinkLabel20.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel20.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel20.Location = New System.Drawing.Point(15, 135) Me.LinkLabel20.Location = New System.Drawing.Point(15, 159)
Me.LinkLabel20.Name = "LinkLabel20" Me.LinkLabel20.Name = "LinkLabel20"
Me.LinkLabel20.Size = New System.Drawing.Size(106, 13) Me.LinkLabel20.Size = New System.Drawing.Size(106, 13)
Me.LinkLabel20.TabIndex = 10 Me.LinkLabel20.TabIndex = 10
@@ -4315,7 +4317,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED._Waehrung = False Me.txtGJ_UNISPED._Waehrung = False
Me.txtGJ_UNISPED._WaehrungZeichen = True Me.txtGJ_UNISPED._WaehrungZeichen = True
Me.txtGJ_UNISPED.ForeColor = System.Drawing.Color.Black Me.txtGJ_UNISPED.ForeColor = System.Drawing.Color.Black
Me.txtGJ_UNISPED.Location = New System.Drawing.Point(339, 295) Me.txtGJ_UNISPED.Location = New System.Drawing.Point(339, 319)
Me.txtGJ_UNISPED.MaxLength = 4 Me.txtGJ_UNISPED.MaxLength = 4
Me.txtGJ_UNISPED.MaxLineLength = -1 Me.txtGJ_UNISPED.MaxLineLength = -1
Me.txtGJ_UNISPED.MaxLines_Warning = "" Me.txtGJ_UNISPED.MaxLines_Warning = ""
@@ -4343,6 +4345,16 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'cbxUseUIDFinanzOnline
'
Me.cbxUseUIDFinanzOnline.AutoSize = True
Me.cbxUseUIDFinanzOnline.Location = New System.Drawing.Point(18, 142)
Me.cbxUseUIDFinanzOnline.Name = "cbxUseUIDFinanzOnline"
Me.cbxUseUIDFinanzOnline.Size = New System.Drawing.Size(131, 17)
Me.cbxUseUIDFinanzOnline.TabIndex = 139
Me.cbxUseUIDFinanzOnline.Text = "UID über Finanzonline"
Me.cbxUseUIDFinanzOnline.UseVisualStyleBackColor = True
'
'LinkLabel53 'LinkLabel53
' '
Me.LinkLabel53.AutoSize = True Me.LinkLabel53.AutoSize = True
@@ -4728,5 +4740,6 @@ Partial Class frmStartOptions
Friend WithEvents cboTCAPI_Files As Button Friend WithEvents cboTCAPI_Files As Button
Friend WithEvents cboTCAPI_Call As Button Friend WithEvents cboTCAPI_Call As Button
Friend WithEvents cboTCAPI_Firma As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboTCAPI_Firma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxUseUIDFinanzOnline As CheckBox
Friend WithEvents LinkLabel53 As LinkLabel Friend WithEvents LinkLabel53 As LinkLabel
End Class End Class

279
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -318,7 +318,8 @@ Public Class frmStartOptions
Dim f As New frmInfo(PARAM) Dim f As New frmInfo(PARAM)
f.Show() f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
getUID_Pruefung(MyTextBox1.Text) Dim finanzonline = True
getUID_Pruefung(MyTextBox1.Text, finanzonline)
closeMe() closeMe()
Case "WOELFL_USTVAntraege" Case "WOELFL_USTVAntraege"
Dim f As New frmInfo(PARAM) Dim f As New frmInfo(PARAM)
@@ -1139,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
@@ -2582,6 +2602,7 @@ Public Class frmStartOptions
ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
betreff = betreff.replace("WG: ", "") betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "") betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("*00*", "")
betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "") betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
If betreff.ToString.Contains(",") Then If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",") Dim sp = betreff.ToString.Split(",")
@@ -3079,11 +3100,11 @@ Public Class frmStartOptions
End Function End Function
Function getUID_Pruefung(maxAnz As Integer) As Boolean Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True) As Boolean
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True) getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True) getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True) getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True) getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True, finanzOnline)
'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag") 'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
End Function End Function
@@ -3222,12 +3243,12 @@ Public Class frmStartOptions
Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean
Return True Return True
End Function End Function
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False) As Boolean Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False, Optional finanzOnline As Boolean = True) As Boolean
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), Nothing) Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), Nothing)
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False) Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False, finanzOnline)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
If PDF <> "" Then If PDF <> "" Then
@@ -3684,7 +3705,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked) Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked) 'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked)
'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) 'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
showPic(bool, PictureBox12) showPic(bool, PictureBox12)
@@ -4168,12 +4189,12 @@ Public Class frmStartOptions
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text) ' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked) Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12) showPic(bool, PictureBox12)
End Sub End Sub
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked) Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12) showPic(bool, PictureBox12)
End Sub End Sub
@@ -4324,7 +4345,7 @@ Public Class frmStartOptions
Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked) Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12) showPic(bool, PictureBox12)
End Sub End Sub