diff --git a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb index ea76271..2536006 100644 --- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb +++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb @@ -97,20 +97,37 @@ 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 - ' 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... + 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 + 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 Case 1, 2, 3, 28, 39 '... 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 + 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 - '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 + '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 + ' 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) - '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 + ' 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) - '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 + + 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 - '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 @@ -1022,138 +859,138 @@ Public Class cZollsysteme_Aktenbeschriftung 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 - Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts - Dim LRN = "" - Try + 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 + ' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default - Dim Bestimmungszollstelle = "" - Dim Bürgschaft = "" + Dim Bestimmungszollstelle = "" + 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" & " 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 + 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) + 'TextBox2.ForeColor = Color.Green + Dim r As DataRow = dEZOLL.Rows(0) - LRN = r.Item("LRN") + 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" + 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" + 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 + End If + VERAG_NCTS.Department = "SUB" + Case "8" + VERAG_NCTS.Company = "DURMAZ" + VERAG_NCTS.Department = "SBG" + Return Nothing Case Else - VERAG_NCTS.ProcessData.Status = 0 + VERAG_NCTS.Company = "ATILLA" + VERAG_NCTS.Department = "SUB" + 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 - 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")) + + 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 - - 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") + '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 - ' 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, "") + + '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 - '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") + '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") diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index eb79683..5647629 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -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 diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index f5ffdb1..711e0a2 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -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 - 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 cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE") End Sub diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 367e70b..8697a1c 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -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 diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index b8c8fe2..afb3d87 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 879c6e5..c387c52 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -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) @@ -1139,156 +1140,175 @@ Public Class frmStartOptions Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg" - betreff = betreff.Replace("%LKW%", AVISO.LKW_Nr) - betreff = betreff.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr) - betreff = betreff.Replace("%Standort%", "") - betreff = betreff.Replace("%Uhrzeit%", "") - betreff = betreff.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, "")) + betreff = betreff.Replace("%LKW%", AVISO.LKW_Nr) + betreff = betreff.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr) + betreff = betreff.Replace("%Standort%", "") + betreff = betreff.Replace("%Uhrzeit%", "") + 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_CC As String = "" - Dim EMails_BCC As String = "" + Dim EMails As String = "" + Dim EMails_CC 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 - Select Case art - Case "AVM", "ABD" 'Export - Mail_Art = 4 ' Freigabe Export + Dim Mail_Art = -1 + Select Case art + Case "AVM", "ABD" 'Export + Mail_Art = 4 ' Freigabe Export - 'If EMails_BCC = "" Then - ' EMails_BCC = "al@verag.ag" - 'Else - ' EMails_BCC &= ";al@verag.ag" - 'End If - Case Else - Mail_Art = 2 - End Select - Select Case SND.tblSnd_Abfertigungsart_ID - Case 6, 7, 33, 34, 37, 40, 43 - Mail_Art = 4 ' Freigabe Export - End Select + 'If EMails_BCC = "" Then + ' EMails_BCC = "al@verag.ag" + 'Else + ' EMails_BCC &= ";al@verag.ag" + 'End If + Case Else + Mail_Art = 2 + End Select + Select Case SND.tblSnd_Abfertigungsart_ID + Case 6, 7, 33, 34, 37, 40, 43 + Mail_Art = 4 ' Freigabe Export + 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) - ' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC) - body = body.Replace("%Platzhalter%", "") + ' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC) + body = body.Replace("%Platzhalter%", "") - body = body.Replace("%LKW%", AVISO.LKW_Nr) - body = body.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr) - body = body.Replace("%Standort%", getStandortTXT(AVISO)) - 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("%LKW%", AVISO.LKW_Nr) + body = body.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr) + body = body.Replace("%Standort%", getStandortTXT(AVISO)) + body = body.Replace("%Uhrzeit%", Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr") + 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" - 'EMails_CC = "" - 'EMails_BCC = "" - '!!!!!!!!!!!!!!!!!!!!!!!!!! + ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + 'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - 'If EMails_BCC = "" Then - ' EMails_BCC = "al@verag.ag" - 'Else - ' EMails_BCC &= ";al@verag.ag" - ''End If - ''!!!!!!!!!!!!!!!!!!!!!!!!!! - 'If KundenNr = 706113 Then - ' EMails = "al@verag.ag" - ' EMails_CC = "" - ' EMails_BCC = "" - 'End If - ''!!!!!!!!!!!!!!!!!!!!!!!!!! + '!!!!!!!!!!!!!!!!!!!!!!!!!! + 'EMails = "luxbauer@gmail.com" + 'EMails_CC = "" + 'EMails_BCC = "" + '!!!!!!!!!!!!!!!!!!!!!!!!!! + + 'If EMails_BCC = "" Then + ' EMails_BCC = "al@verag.ag" + 'Else + ' EMails_BCC &= ";al@verag.ag" + ''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_EMailCC = EMails_CC - API.api_EMailBCC = EMails_BCC - API.api_EMailSubject = betreff - API.api_EMailText = body - API.api_EMailAttCnt = pfadList.Count + API.api_EMail = EMails + API.api_EMailCC = EMails_CC + API.api_EMailBCC = EMails_BCC + API.api_EMailSubject = betreff + API.api_EMailText = body + 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 - Case "STB" - Select Case artKunde - Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide.. - Case Else + Select Case art + Case "STB" + Select Case artKunde + Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide.. + Case Else - If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then + If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then - 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 - API.UPDTAE_OK() - insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) - Else - API.UPDTAE_ERR() + 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 + 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 + 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 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 - 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 Catch ex As Exception @@ -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