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

491
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -97,14 +97,30 @@ Public Class cZollsysteme_Aktenbeschriftung
Case Else : PosNrAngeben = False
End Select
End If
' MsgBox("1")
getDataByBezugsnummer = False
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "UNISPED"
Case ""
Case Else
'MsgBox("2 " & Abfertigungsart)
Select Case Abfertigungsart
Case 38, 26 'AT
Select Case Zollsystem_Land
Case "AT"
'eZoll
getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True)
' MsgBox("1")
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
@@ -112,6 +128,7 @@ Public Class cZollsysteme_Aktenbeschriftung
isUeT1 = (getDataByBezugsnummer)
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
End If
End If
Case 1, 2, 3, 28, 39
'... and Systeme
Select Case Zollsystem_Land
@@ -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
Dim EZOLL_SQL As String = "EZOLL"
' 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" &
" FROM zsAnmRefs" &
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
" WHERE (VorgangID = 'EF') AND (AnmID = '" & AnmID & "')" &
" ORDER BY GeaendertAm DESC", "EZOLL")
If dEZOLL Is Nothing Then Return Nothing
If dEZOLL.Rows.Count = 0 Then Return Nothing
Console.WriteLine("3")
'TextBox2.ForeColor = Color.Green
Dim r As DataRow = dEZOLL.Rows(0)
Dim DR_zsAnmRefs As DataRow = dEZOLL.Rows(0)
' 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
' Handelsrechnung
' PräferenzAufRechnung
' Colli
' num_Colli As Integer = 0
' num_Gewicht As Double = 0
'-----------------------------------------------------------
'-----------------------------------------------------------
Handelsrechnung = ""
' Rechnungspreis
' Warenbezeichung
' AbgabenKonto
' Garantie
' Absender
' Empfaenger
' Anmelder
' Vertreter
' Sachbearbeiter
' 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"))
'Absender
' Tabelle zsAnmConorTra lesen.
Dim DTzsAnmConorTra As DataTable = SQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" &
" FROM zsAnmConorTra" &
" 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
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50)
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then Absender = Strings.Left(Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Ctry"), 50)
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then Absender = Strings.Left(Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Pst"), 50)
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Cty")) Then Absender = Strings.Left(Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Cty"), 50)
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then VerBestLandZst = DTzsAnmConorTra.Rows(0).Item("Ctry")
End If
' If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1")
'If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2")
'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
'ATCMRN = If(EZA.eza_ANR, "")
'' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
''Property Absender As String
''Property Empfaenger As String
''Property Anmelder As String
'Dim RG_List As New List(Of String)
'Dim ATR_List As New List(Of String)
'Dim PAR_List As New List(Of String) ' präfAufRg
'Dim Colli As Integer = 0
'Dim cnt As Integer = 0
'If EZA.eza_WARENPOS.Count > 0 Then
' 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
'Empfänger
' Tabelle zsAnmConeeTra lesen.
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" &
" FROM zsAnmConeeTra" &
" 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 DTzsAnmConeeTra.Rows().Count > 0 Then
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)
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then Empfaenger = Strings.Left(Empfaenger & ", " & DTzsAnmConeeTra.Rows(0).Item("Pst"), 50)
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then Empfaenger = Strings.Left(Empfaenger & ", " & DTzsAnmConeeTra.Rows(0).Item("Cty"), 50)
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then VerBestLandZst &= " --> " & DTzsAnmConeeTra.Rows(0).Item("Ctry")
End If
Console.WriteLine("4")
'' Tabelle zsAnmTransp lesen.
'Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt" &
' " FROM zsAnmTransp" &
' " 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 DTzsAnmTransp.Rows().Count > 0 Then
' If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25)
'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)
' 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
' 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
' 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
' 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, "")
' Tabelle zsAnmHea lesen.
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT TotPack, TotGross" &
" FROM zsAnmHea" &
" 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)
'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
If DTzsAnmHea.Rows().Count > 0 Then
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
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
'Handelsrechnung = listToString(RG_List)
'Praeferenznachweis = listToString(ATR_List)
'PräferenzAufRechnung = listToString(PAR_List)
'Dim AUFSCHUB_List As New List(Of String)
'For Each AB In EZA.eza_AUFSCHUB
' Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim
' addIfNotExists(AUFSCHUB_List, kto & " " & load_KdFromAKto(kto))
'Next
'If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then
' Vorpapier = EZA.eza_VorpapierArtCode
' If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr
'End If
'AbgabenKonto = listToString(AUFSCHUB_List)
Console.WriteLine("ABGABEN_EUST: " & ABGABEN_EUST & " / ABGABEN_ZOLL: " & ABGABEN_ZOLL)
Catch ex As Exception
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
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

66
MailSender/MAILSender.vb
View File

@@ -58,7 +58,7 @@ Module Mail
' PARAM = "NCTSLIST_TOBB"
' PARAM = "NCTSLIST_TOBB"
'------------------------------------------------------------------------------------
'PARAM = ""
' PARAM = "ZF"
If PARAM = "" Then
System.Console.WriteLine("OPTION nicht erkannt!")
@@ -295,6 +295,37 @@ Module Mail
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"
System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.")
System.Console.WriteLine("Auswertung gestartet...")
@@ -831,7 +862,12 @@ Module Mail
System.Console.WriteLine("Sende E-Mail...")
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
Subject = replaceBodyVariable(Subject, von, bis)
End If
@@ -2159,13 +2195,17 @@ Module Mail
Try
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\"
@@ -2183,14 +2223,14 @@ Module Mail
.Visible = False
Try
Path = sPath & "ZF_" & von.ToShortDateString & "-" & bis.ToShortDateString & "" & " .xlsx"
Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx"
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
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False)
Catch ex As System.Exception
' MsgBox(ex.Message)
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace)
Return ""
@@ -2215,11 +2255,15 @@ Module Mail
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
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("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
End If
End If
cnt += 1

5
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
cboTeam.Items.Clear()
If cboFirma.Text <> "" Then
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
cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE")
End Sub

208
UID/usrctlProcedures.vb
View File

@@ -3517,159 +3517,163 @@ Public Class usrctlProcedures
DYIMPORT.ZollRechtlicherStatus = isleernothing((currentRow(34)))
DYIMPORT.Bewilligungsnummer = isleernothing((currentRow(35)))
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.AbgabeAntidumping = IIf(isleernothing((currentRow(75))) <> "", CDbl(isleernothing(currentRow(75))), 0)
DYIMPORT.AbgabeAntidumpingSatz = IIf(isleernothing((currentRow(76))) <> "", CDbl(isleernothing(currentRow(76))), 0)
DYIMPORT.Status_Steuerbescheid = isleernothing((currentRow(77)))
DYIMPORT.Eustwert = IIf(isleernothing((currentRow(73))) <> "", CDbl(isleernothing(currentRow(73))), 0)
DYIMPORT.AbgabeEust = IIf(isleernothing((currentRow(74))) <> "", CDbl(isleernothing(currentRow(74))), 0)
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.Warentarifnummer = isleernothing((currentRow(79)))
DYIMPORT.Warenzusatz1 = isleernothing((currentRow(80)))
DYIMPORT.Warenzusatz2 = isleernothing((currentRow(81)))
DYIMPORT.ArtikelCode = isleernothing((currentRow(79)))
DYIMPORT.Warentarifnummer = isleernothing((currentRow(80)))
DYIMPORT.Warenzusatz1 = isleernothing((currentRow(81)))
DYIMPORT.Warenzusatz2 = isleernothing((currentRow(82)))
DYIMPORT.Warenbezeichnung = isleernothing((currentRow(82)))
DYIMPORT.Verfahren2 = isleernothing((currentRow(83)))
DYIMPORT.EU_Code = isleernothing((currentRow(84)))
DYIMPORT.Artikelpreis = IIf(isleernothing((currentRow(85))) <> "", CDbl(isleernothing(currentRow(85))), 0)
DYIMPORT.Statistischerwert = IIf(isleernothing((currentRow(86))) <> "", CDbl(isleernothing(currentRow(86))), 0)
DYIMPORT.Eust_manuell = IIf(isleernothing((currentRow(87))) <> "", CDbl(isleernothing(currentRow(87))), 0)
DYIMPORT.Warenbezeichnung = isleernothing((currentRow(83)))
DYIMPORT.Verfahren2 = isleernothing((currentRow(84)))
DYIMPORT.EU_Code = isleernothing((currentRow(85)))
DYIMPORT.Artikelpreis = 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(88))) <> "", CDbl(isleernothing(currentRow(88))), 0)
DYIMPORT.Ursprung = isleernothing((currentRow(88)))
DYIMPORT.Präferenzursprungsland = isleernothing((currentRow(89)))
DYIMPORT.Beguenstigung = isleernothing((currentRow(90)))
DYIMPORT.Ursprung = isleernothing((currentRow(89)))
DYIMPORT.Präferenzursprungsland = 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.Positionszusatz = isleernothing((currentRow(95)))
DYIMPORT.Eigenmasseeinheit = 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ückbezeichnung = isleernothing((currentRow(100)))
DYIMPORT.Packstückart = 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.Positionsunterlagenbereich = isleernothing((currentRow(108)))
DYIMPORT.Positionsunterlagenart = isleernothing((currentRow(109)))
DYIMPORT.Positionsunterlagennummer = isleernothing((currentRow(110)))
DYIMPORT.Positionsunterlagendatum = isleernothing((currentRow(111)))
DYIMPORT.Positionsunterlagenzeile = isleernothing((currentRow(108)))
DYIMPORT.Positionsunterlagenbereich = isleernothing((currentRow(109)))
DYIMPORT.Positionsunterlagenart = isleernothing((currentRow(110)))
DYIMPORT.Positionsunterlagennummer = 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.Abflughafen_Code = isleernothing((currentRow(126)))
DYIMPORT.Abflughafen_Text = isleernothing((currentRow(127)))
DYIMPORT.Vorpapierart = isleernothing((currentRow(128)))
DYIMPORT.Vorpapiere_Regnummer = isleernothing((currentRow(129)))
DYIMPORT.BEAnteil_SumA = isleernothing((currentRow(130)))
DYIMPORT.DV1Provisionwährung = isleernothing((currentRow(127)))
DYIMPORT.Abflughafen_Code = isleernothing((currentRow(128)))
DYIMPORT.Abflughafen_Text = isleernothing((currentRow(129)))
DYIMPORT.Vorpapierart = isleernothing((currentRow(130)))
DYIMPORT.Vorpapiere_Regnummer = isleernothing((currentRow(131)))
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_Erwerber = isleernothing((currentRow(134)))
DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(135)))
DYIMPORT.Shipmentnummer = isleernothing((currentRow(136)))
DYIMPORT.Importstatus = isleernothing((currentRow(137)))
DYIMPORT.UST_ID_Einführer = isleernothing((currentRow(135)))
DYIMPORT.UST_ID_Erwerber = isleernothing((currentRow(136)))
DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(137)))
DYIMPORT.Shipmentnummer = isleernothing((currentRow(138)))
DYIMPORT.Importstatus = isleernothing((currentRow(139)))
If DYIMPORT.SAVE() Then
TextBox10.Text &= DYIMPORT.Id & vbNewLine
Else
@@ -3774,7 +3778,7 @@ Public Class usrctlProcedures
' 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
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.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxUseUIDFinanzOnline = New System.Windows.Forms.CheckBox()
Me.LinkLabel53 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -377,6 +378,7 @@ Partial Class frmStartOptions
'
Me.pnl.BackColor = System.Drawing.Color.White
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.ATCNRinRE)
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.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.Size = New System.Drawing.Size(18, 18)
Me.PictureBox23.TabIndex = 88
@@ -526,7 +528,7 @@ Partial Class frmStartOptions
'Label27
'
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.Size = New System.Drawing.Size(71, 13)
Me.Label27.TabIndex = 87
@@ -547,7 +549,7 @@ Partial Class frmStartOptions
Me.MyTextBox3._Waehrung = False
Me.MyTextBox3._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.MyTextBox3.MaxLines_Warning_Label = Nothing
@@ -559,7 +561,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(17, 211)
Me.LinkLabel51.Location = New System.Drawing.Point(17, 235)
Me.LinkLabel51.Name = "LinkLabel51"
Me.LinkLabel51.Size = New System.Drawing.Size(88, 13)
Me.LinkLabel51.TabIndex = 85
@@ -593,7 +595,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(405, 135)
Me.LinkLabel48.Location = New System.Drawing.Point(405, 159)
Me.LinkLabel48.Name = "LinkLabel48"
Me.LinkLabel48.Size = New System.Drawing.Size(129, 13)
Me.LinkLabel48.TabIndex = 77
@@ -605,7 +607,7 @@ Partial Class frmStartOptions
Me.cbxVermerk.AutoSize = True
Me.cbxVermerk.Checked = True
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.Size = New System.Drawing.Size(100, 17)
Me.cbxVermerk.TabIndex = 76
@@ -618,7 +620,7 @@ Partial Class frmStartOptions
Me.cbxDatevTest.Checked = True
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.Location = New System.Drawing.Point(15, 368)
Me.cbxDatevTest.Location = New System.Drawing.Point(15, 392)
Me.cbxDatevTest.Name = "cbxDatevTest"
Me.cbxDatevTest.Size = New System.Drawing.Size(79, 17)
Me.cbxDatevTest.TabIndex = 75
@@ -629,7 +631,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(170, 345)
Me.cbxDatevOpen.Location = New System.Drawing.Point(170, 369)
Me.cbxDatevOpen.Name = "cbxDatevOpen"
Me.cbxDatevOpen.Size = New System.Drawing.Size(56, 17)
Me.cbxDatevOpen.TabIndex = 74
@@ -641,7 +643,7 @@ Partial Class frmStartOptions
Me.cbxDatevBuchungen.AutoSize = True
Me.cbxDatevBuchungen.Checked = True
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.Size = New System.Drawing.Size(81, 17)
Me.cbxDatevBuchungen.TabIndex = 73
@@ -653,7 +655,7 @@ Partial Class frmStartOptions
Me.cbxDatevDebitoren.AutoSize = True
Me.cbxDatevDebitoren.Checked = True
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.Size = New System.Drawing.Size(63, 17)
Me.cbxDatevDebitoren.TabIndex = 72
@@ -665,7 +667,7 @@ Partial Class frmStartOptions
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.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.Size = New System.Drawing.Size(211, 24)
Me.btnDatev.TabIndex = 71
@@ -676,7 +678,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(12, 302)
Me.lblDatev.Location = New System.Drawing.Point(12, 326)
Me.lblDatev.Name = "lblDatev"
Me.lblDatev.Size = New System.Drawing.Size(142, 13)
Me.lblDatev.TabIndex = 70
@@ -686,7 +688,7 @@ Partial Class frmStartOptions
'
Me.Label21.AutoSize = True
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.Size = New System.Drawing.Size(75, 13)
Me.Label21.TabIndex = 69
@@ -709,7 +711,7 @@ Partial Class frmStartOptions
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.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.Size = New System.Drawing.Size(143, 24)
Me.Button14.TabIndex = 67
@@ -720,7 +722,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(265, 324)
Me.Label20.Location = New System.Drawing.Point(265, 348)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(146, 13)
Me.Label20.TabIndex = 66
@@ -729,7 +731,7 @@ Partial Class frmStartOptions
'Label19
'
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.Size = New System.Drawing.Size(67, 13)
Me.Label19.TabIndex = 65
@@ -738,7 +740,7 @@ Partial Class frmStartOptions
'Label18
'
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.Size = New System.Drawing.Size(27, 13)
Me.Label18.TabIndex = 64
@@ -759,7 +761,7 @@ Partial Class frmStartOptions
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
@@ -771,7 +773,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(15, 189)
Me.LinkLabel36.Location = New System.Drawing.Point(15, 213)
Me.LinkLabel36.Name = "LinkLabel36"
Me.LinkLabel36.Size = New System.Drawing.Size(117, 13)
Me.LinkLabel36.TabIndex = 62
@@ -854,7 +856,7 @@ Partial Class frmStartOptions
'
Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image)
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.Size = New System.Drawing.Size(18, 18)
Me.piceZollAnh.TabIndex = 56
@@ -876,7 +878,7 @@ Partial Class frmStartOptions
Me.txtEZOLLAnhDat._Waehrung = False
Me.txtEZOLLAnhDat._WaehrungZeichen = True
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.MaxLineLength = -1
Me.txtEZOLLAnhDat.MaxLines_Warning = ""
@@ -889,7 +891,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(300, 193)
Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 217)
Me.lblEZOLLDat.Name = "lblEZOLLDat"
Me.lblEZOLLDat.Size = New System.Drawing.Size(105, 13)
Me.lblEZOLLDat.TabIndex = 54
@@ -969,7 +971,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(15, 170)
Me.LinkLabel33.Location = New System.Drawing.Point(15, 194)
Me.LinkLabel33.Name = "LinkLabel33"
Me.LinkLabel33.Size = New System.Drawing.Size(107, 13)
Me.LinkLabel33.TabIndex = 47
@@ -992,7 +994,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(15, 152)
Me.LinkLabel32.Location = New System.Drawing.Point(15, 176)
Me.LinkLabel32.Name = "LinkLabel32"
Me.LinkLabel32.Size = New System.Drawing.Size(95, 13)
Me.LinkLabel32.TabIndex = 45
@@ -1004,7 +1006,7 @@ Partial Class frmStartOptions
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.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.Size = New System.Drawing.Size(136, 24)
Me.Button4.TabIndex = 44
@@ -1017,7 +1019,7 @@ Partial Class frmStartOptions
Me.CheckBox5.Checked = True
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.Location = New System.Drawing.Point(449, 280)
Me.CheckBox5.Location = New System.Drawing.Point(449, 304)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
Me.CheckBox5.TabIndex = 43
@@ -1029,7 +1031,7 @@ Partial Class frmStartOptions
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.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.Size = New System.Drawing.Size(124, 24)
Me.Button3.TabIndex = 40
@@ -1042,7 +1044,7 @@ Partial Class frmStartOptions
Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = ""
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.Size = New System.Drawing.Size(124, 21)
Me.cboBMDUnispedFirma.TabIndex = 42
@@ -1051,7 +1053,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(394, 280)
Me.CheckBox4.Location = New System.Drawing.Point(394, 304)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
Me.CheckBox4.TabIndex = 41
@@ -1062,7 +1064,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(265, 237)
Me.Label13.Location = New System.Drawing.Point(265, 261)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(163, 13)
Me.Label13.TabIndex = 39
@@ -1071,7 +1073,7 @@ Partial Class frmStartOptions
'CheckBox3
'
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.Size = New System.Drawing.Size(103, 17)
Me.CheckBox3.TabIndex = 38
@@ -4033,7 +4035,7 @@ Partial Class frmStartOptions
'CheckBox2
'
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.Size = New System.Drawing.Size(98, 17)
Me.CheckBox2.TabIndex = 13
@@ -4044,7 +4046,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(299, 135)
Me.LinkLabel25.Location = New System.Drawing.Point(299, 159)
Me.LinkLabel25.Name = "LinkLabel25"
Me.LinkLabel25.Size = New System.Drawing.Size(99, 13)
Me.LinkLabel25.TabIndex = 12
@@ -4055,7 +4057,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(173, 280)
Me.CheckBox1.Location = New System.Drawing.Point(173, 304)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
Me.CheckBox1.TabIndex = 18
@@ -4067,7 +4069,7 @@ Partial Class frmStartOptions
Me.cbxBu.AutoSize = True
Me.cbxBu.Checked = True
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.Size = New System.Drawing.Size(81, 17)
Me.cbxBu.TabIndex = 17
@@ -4079,7 +4081,7 @@ Partial Class frmStartOptions
Me.cbxKd.AutoSize = True
Me.cbxKd.Checked = True
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.Size = New System.Drawing.Size(63, 17)
Me.cbxKd.TabIndex = 16
@@ -4091,7 +4093,7 @@ Partial Class frmStartOptions
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.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.Size = New System.Drawing.Size(211, 24)
Me.Button9.TabIndex = 15
@@ -4102,7 +4104,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(15, 237)
Me.Label3.Location = New System.Drawing.Point(15, 261)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(138, 13)
Me.Label3.TabIndex = 14
@@ -4123,7 +4125,7 @@ Partial Class frmStartOptions
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
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.MaxLines_Warning = ""
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.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.Size = New System.Drawing.Size(18, 18)
Me.PictureBox12.TabIndex = 37
@@ -4147,7 +4149,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(15, 135)
Me.LinkLabel20.Location = New System.Drawing.Point(15, 159)
Me.LinkLabel20.Name = "LinkLabel20"
Me.LinkLabel20.Size = New System.Drawing.Size(106, 13)
Me.LinkLabel20.TabIndex = 10
@@ -4315,7 +4317,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED._Waehrung = False
Me.txtGJ_UNISPED._WaehrungZeichen = True
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.MaxLineLength = -1
Me.txtGJ_UNISPED.MaxLines_Warning = ""
@@ -4343,6 +4345,16 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
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
'
Me.LinkLabel53.AutoSize = True
@@ -4728,5 +4740,6 @@ Partial Class frmStartOptions
Friend WithEvents cboTCAPI_Files As Button
Friend WithEvents cboTCAPI_Call As Button
Friend WithEvents cboTCAPI_Firma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxUseUIDFinanzOnline As CheckBox
Friend WithEvents LinkLabel53 As LinkLabel
End Class

45
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -318,7 +318,8 @@ Public Class frmStartOptions
Dim f As New frmInfo(PARAM)
f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
getUID_Pruefung(MyTextBox1.Text)
Dim finanzonline = True
getUID_Pruefung(MyTextBox1.Text, finanzonline)
closeMe()
Case "WOELFL_USTVAntraege"
Dim f As New frmInfo(PARAM)
@@ -1175,6 +1176,24 @@ Public Class frmStartOptions
'---------------------------------------------------------
' 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)
' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
@@ -1190,6 +1209,7 @@ Public Class frmStartOptions
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -2582,6 +2602,7 @@ Public Class frmStartOptions
ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("*00*", "")
betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
@@ -3079,11 +3100,11 @@ Public Class frmStartOptions
End Function
Function getUID_Pruefung(maxAnz As Integer) 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, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True)
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, finanzOnline)
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, finanzOnline)
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")
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
Return True
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
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
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
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
If PDF <> "" Then
@@ -3684,7 +3705,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
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)
'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
showPic(bool, PictureBox12)
@@ -4168,12 +4189,12 @@ Public Class frmStartOptions
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
' 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)
End Sub
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
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)
End Sub
@@ -4324,7 +4345,7 @@ Public Class frmStartOptions
Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
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)
End Sub