diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index e1e7a24..4ff49d3 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -360,13 +360,24 @@ Module Mail Dim KdNr As String = "764755" - If dtParam.Rows.Count = 1 Then + 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"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", 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 + + + For Each r As DataRow In dtParam.Rows + + System.Console.WriteLine("OPTION erkannt: " & r.Item("ms_info")) + System.Console.WriteLine("Auswertung Details gestartet...") + If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", 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 + Next - 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"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", 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 @@ -2663,10 +2674,17 @@ Module Mail Public Function genEXCEL_ZF(KdNr As String, von As Date, bis As Date, Auswertungstyp As String) As String Try + + + Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) + Dim Path = "" + + If KdNr = "714869" Or KdNr = "718486" Or KdNr = "764755" Then 'ZUR SICHERHEIT, FALLS FALSCHE KDNR EINGEGEBEN WIRD!!! - Dim dt As DataTable = loadDgvBySqlFMZOLL("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer + + Dim dt As DataTable = loadDgvBySqlFMZOLL("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer ,cast([Abfertigungsdatum] as date)Abfertigungsdatum ,Absender ,Rechnungsbetrag Betrag @@ -2677,117 +2695,159 @@ Module Mail - Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" - If Not My.Computer.FileSystem.DirectoryExists(sPath) Then - My.Computer.FileSystem.CreateDirectory(sPath) - End If - - Dim Path = "" - Dim exclApp As Object 'as Application - Dim Datei As Object 'as WorkBook - Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet - exclApp = CreateObject("Excel.Application") - - Select Case Auswertungstyp - Case "monthly" + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If - With exclApp - .Visible = False - Try - Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx" - While System.IO.File.Exists(Path) - 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) + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + exclApp = CreateObject("Excel.Application") + + Select Case Auswertungstyp + Case "monthly" - Return "" - End Try + With exclApp + .Visible = False - Datei = .Workbooks.Open(Path) 'Anpassen - Blatt = Datei.Worksheets(1) 'Anpassen + Try + Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx" + While System.IO.File.Exists(Path) + 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) - Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString - Dim cnt = 3 - For Each r In dt.Rows - Blatt.Range("A" & cnt).Value = cnt - 2 - Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") - ' Blatt.Range("C" & cnt).Value = r("RechnungsNr") - Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") - Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") - Blatt.Range("E" & cnt).Value = r("Absender") - Blatt.Range("F" & cnt).Value = "" 'r("Betrag") - Blatt.Range("H" & cnt).Value = r("BelegNr") + Return "" + End Try - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen - Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung - 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 + Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString + + Dim cnt = 3 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 2 + Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") + ' Blatt.Range("C" & cnt).Value = r("RechnungsNr") + Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") + Blatt.Range("E" & cnt).Value = r("Absender") + Blatt.Range("F" & cnt).Value = "" 'r("Betrag") + Blatt.Range("H" & cnt).Value = r("BelegNr") + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" + + Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung + 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 - End If - cnt += 1 + cnt += 1 - Next + Next - Datei.Save() - .DisplayAlerts = False - .quit() - Try : Datei.close(True) : Catch : End Try - End With + Datei.Save() + .DisplayAlerts = False + .quit() + Try : Datei.close(True) : Catch : End Try + End With - Case "quarter" + Case "quarter" - With exclApp - .Visible = False + With exclApp + .Visible = False - Try - Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx" - While System.IO.File.Exists(Path) - Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" - End While - My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF_NEW, False) - Catch ex As System.Exception - ' MsgBox(ex.Message) - MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace) + Try + Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx" + While System.IO.File.Exists(Path) + Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF_NEW, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace) - Return "" - End Try + Return "" + End Try - Datei = .Workbooks.Open(Path) 'Anpassen - Blatt = Datei.Worksheets(1) 'Anpassen + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen - Dim cnt = 2 + Dim cnt = 2 - For Each r In dt.Rows + For Each r In dt.Rows - Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - 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 + 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 - If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then + If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then - Dim rowcounter As Integer = 0 + Dim rowcounter As Integer = 0 - For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows + For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows + + Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100 + + Blatt.Range("A" & cnt).Value = cnt - 1 + Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger + Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + Blatt.Range("F" & cnt).Value = r("BelegNr") + Blatt.Range("G" & cnt).Value = row.Item("PosNr") + Blatt.Range("H" & cnt).Value = row.Item("WarenNr") + Blatt.Range("I" & cnt).Value = "-" + Blatt.Range("J" & cnt).Value = row.Item("WarenBez") + Blatt.Range("K" & cnt).Value = "" + Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode + Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart + Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang + Blatt.Range("O" & cnt).Value = "" + Blatt.Range("P" & cnt).Value = row.Item("Netto") + Blatt.Range("Q" & cnt).Value = row.Item("PosWert") + Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "") + Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "") + Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "") + Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "") + Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender + Blatt.Range("W" & cnt).Value = row.Item("Herkunft") + Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms + Blatt.Range("Y" & cnt).Value = row.Item("Verfahren") + Blatt.Range("Z" & cnt).Value = row.Item("Preferenz") + Blatt.Range("AA" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N") + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + + cnt += 1 + rowcounter += 1 + Next + + + Else Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100 @@ -2797,100 +2857,58 @@ Module Mail Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") Blatt.Range("F" & cnt).Value = r("BelegNr") - Blatt.Range("G" & cnt).Value = row.Item("PosNr") - Blatt.Range("H" & cnt).Value = row.Item("WarenNr") + Blatt.Range("G" & cnt).Value = "" + Blatt.Range("H" & cnt).Value = "" Blatt.Range("I" & cnt).Value = "-" - Blatt.Range("J" & cnt).Value = row.Item("WarenBez") + Blatt.Range("J" & cnt).Value = "" Blatt.Range("K" & cnt).Value = "" Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang Blatt.Range("O" & cnt).Value = "" - Blatt.Range("P" & cnt).Value = row.Item("Netto") - Blatt.Range("Q" & cnt).Value = row.Item("PosWert") - Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "") - Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "") - Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "") + Blatt.Range("P" & cnt).Value = "" + Blatt.Range("Q" & cnt).Value = "" + Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST + Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL + Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %" Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "") Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender - Blatt.Range("W" & cnt).Value = row.Item("Herkunft") + Blatt.Range("W" & cnt).Value = "" Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms - Blatt.Range("Y" & cnt).Value = row.Item("Verfahren") - Blatt.Range("Z" & cnt).Value = row.Item("Preferenz") - Blatt.Range("AA" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N") + Blatt.Range("Y" & cnt).Value = "" + Blatt.Range("Z" & cnt).Value = "" + Blatt.Range("AA" & cnt).Value = "" + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN End If - cnt += 1 - rowcounter += 1 - Next - - - Else - - Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100 - - Blatt.Range("A" & cnt).Value = cnt - 1 - Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") - Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) - Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger - Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") - Blatt.Range("F" & cnt).Value = r("BelegNr") - Blatt.Range("G" & cnt).Value = "" - Blatt.Range("H" & cnt).Value = "" - Blatt.Range("I" & cnt).Value = "-" - Blatt.Range("J" & cnt).Value = "" - Blatt.Range("K" & cnt).Value = "" - Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode - Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart - Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang - Blatt.Range("O" & cnt).Value = "" - Blatt.Range("P" & cnt).Value = "" - Blatt.Range("Q" & cnt).Value = "" - Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST - Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL - Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %" - Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "") - Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender - Blatt.Range("W" & cnt).Value = "" - Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms - Blatt.Range("Y" & cnt).Value = "" - Blatt.Range("Z" & cnt).Value = "" - Blatt.Range("AA" & cnt).Value = "" - - - If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then - Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN End If - cnt += 1 + + + End If - - - End If - - Next + Next - Datei.Save() - .DisplayAlerts = False - .quit() - Try : Datei.close(True) : Catch : End Try + Datei.Save() + .DisplayAlerts = False + .quit() + Try : Datei.close(True) : Catch : End Try - End With + End With - End Select + End Select + 'Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString) + End If - - - 'Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString) Dim filepath = Path If filepath = "" Then Return "ERROR 01: Fehler beim Erzeugen des XLS." diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index 1057758..8d2312a 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -150,6 +150,20 @@ Public Class cGetMsgType Return False End Function + Shared Function isNCTS_SumABekanntgabeMassnahme(doc As XmlDocument, ByRef version As String) As Boolean + If doc.HasChildNodes Then + If doc.GetElementsByTagName("SumABekanntgabeMassnahme").Count > 0 Then + + If doc.GetElementsByTagName("Version").Count > 0 Then + version = doc.GetElementsByTagName("Version")(0).InnerText + End If + + Return True + End If + End If + Return False + End Function + Shared Function isAES_DEXPSD(doc As XmlDocument) As Boolean If doc.HasChildNodes Then diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 5312b1a..cb28f2b 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -1,4 +1,4 @@ -Imports com.sun.xml.internal.bind.v2.model.core +Imports com.sun.xml.internal.rngom Imports VERAG_PROG_ALLGEMEIN Public Class cWorker_Verwahrung @@ -8,12 +8,13 @@ Public Class cWorker_Verwahrung - Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean) As String + Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean) As String Try Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d) - Dim Vorpapiernummer = "" + Dim VorpapiernummerInput = "" Dim RegistriernummerATLAS = "" + Dim VeralteteWeitereRegistriernummer = "" Dim ankungsdatum As Object = Nothing Dim gestellungsdatum As Object = Nothing Dim posGestellung As New DataTable @@ -27,12 +28,16 @@ Public Class cWorker_Verwahrung End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then - Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer + VorpapiernummerInput = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then RegistriernummerATLAS = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS End If + If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then + VeralteteWeitereRegistriernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer + End If + If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum > "01.01.2000" Then gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum End If @@ -52,6 +57,7 @@ Public Class cWorker_Verwahrung posGestellung.Columns.Add("VerwahrerFirma", GetType(String)) posGestellung.Columns.Add("VerwahrerOrt", GetType(String)) posGestellung.Columns.Add("VerwahrerEORI", GetType(String)) + posGestellung.Columns.Add("SpezifischerOrdnungsbegriffDaten", GetType(String)) End If Dim ro As DataRow = posGestellung.NewRow @@ -63,6 +69,7 @@ Public Class cWorker_Verwahrung ro("VerwahrerFirma") = POS.Verwahrer.NameFirma ro("VerwahrerOrt") = POS.Verwahrer.Ortsteil ro("VerwahrerEORI") = POS.Verwahrer.TeilnehmerEORI + ro("SpezifischerOrdnungsbegriffDaten") = POS.SpezifischerOrdnungsbegriffDaten posGestellung.Rows.Add(ro) @@ -78,7 +85,7 @@ Public Class cWorker_Verwahrung End If - If readVW_SumAVerwahrungsinfo <> "" And Vorpapiernummer <> "" Then 'BEZUGSNR vorhanden + If readVW_SumAVerwahrungsinfo <> "" And VorpapiernummerInput <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo STATUS.dySt_artMitteilung = "VW_INFO" @@ -94,145 +101,14 @@ Public Class cWorker_Verwahrung 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! - If saveVerwahrung Then + If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail) - '---------------------------------------------------------------- - - - Try - - Dim BezugsNr = readVW_SumAVerwahrungsinfo - - If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - Dim filiale As String = "" - Dim abfertigungsnummer = "" - Dim Standort As String = "" - Dim warenort = "" - - If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then - filiale = IIf(BezugsNr.Length > 4, BezugsNr.Substring(0, 4), "") - abfertigungsnummer = IIf(BezugsNr.Length >= 14, BezugsNr.Substring(5, 8), "") - - ElseIf Vorpapiernummer <> "" Then - If Vorpapiernummer.Length > 18 Then - Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18) - End If - Dim dtSendungsInfo As New DataTable - dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO") - - If dtSendungsInfo.Rows.Count > 0 Then - filiale = dtSendungsInfo.Rows(0).Item("FilialenNr") - abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr") - End If - - - Select Case filiale - Case "4803", "4809" - Standort = "VERAG AG" - Case "4810", "5103", "5901" - Standort = "VERAG GmbH" - Case "5501" - Standort = "IMEX" - Case Else - GoTo Anzeige - End Select - - - Dim dy_SendungsId = VWI.Transaktion.IOReferenz - - If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then - - Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer) - - If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then - - Dim existingEntry As Integer = 0 - existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO",,,, "0")) - If existingEntry = 0 Then - existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & ") or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO",,, "0")) - End If - - If existingEntry > 0 Then - - Dim urspringsSicherheit As New cSicherheiten(existingEntry) - - - Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(urspringsSicherheit.gs_standort) - Dim saldo = GesSichRef.CalcSaldo() - - If SND.FilialenNr > 0 Then filiale = SND.FilialenNr - If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr - - 'Verwahrung ANSCHREIBUNG - - Dim gsId As Integer - - urspringsSicherheit.gs_systemuser = "DAKOSY-AUTO" - urspringsSicherheit.gs_posNr = CInt(posGestellung.Rows(0).Item("PosNr")) - urspringsSicherheit.gs_freitext = RegistriernummerATLAS - urspringsSicherheit.gs_MRNNr = RegistriernummerATLAS - - - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - gsId = urspringsSicherheit.SAVEOBJECT() - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - If posGestellung.Rows.Count > 1 Then - For i As Integer = 2 To posGestellung.Rows.Count - 1 - - Dim ANSCHREIBUNG_POS As New cSicherheiten() - With ANSCHREIBUNG_POS - - .gs_gsNr = gsId - .gs_ATBNr = urspringsSicherheit.gs_ATBNr - .gs_freitext = RegistriernummerATLAS - .gs_posNr = i - .gs_datum = gestellungsdatum - .gs_gsNr = urspringsSicherheit.gs_gsNr - .gs_warenwert = 0 - .gs_sicherheitsbetrag = 0 - .gs_standort = Standort - .gs_art = "OPEN" - .gs_erstellungsdatum = DateTime.Now - .gs_MRNNr = RegistriernummerATLAS - .gs_saldo = saldo - .gs_atr = "" - .gs_systemuser = urspringsSicherheit.gs_systemuser - .gs_zollsatz = GesSichRef.gsr_zollsatz - .gs_avisoId = SND.tblSnd_AvisoID - .gs_warenort = urspringsSicherheit.gs_warenort - - End With - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - ANSCHREIBUNG_POS.SAVE() - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Next - - End If - End If - - End If - End If - - End If - - - - - Catch ex As Exception - - - End Try - - - End If Anzeige: - FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr) + FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr) - End If + End If Catch ex As Exception @@ -241,24 +117,13 @@ Anzeige: End Try End Function - Public Shared Function AddNewGesamtSichNr() As Integer - Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit" - Dim dt As New DataTable - dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) - Dim LetzteGesSichNum As Integer = -1 - If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then - - LetzteGesSichNum = dt.Rows(0).Item(0) - Return LetzteGesSichNum + 1 - - End If - - Return 0 - End Function - Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String + + + + Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean) As String Try Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d) @@ -270,6 +135,7 @@ Anzeige: Dim zp As Object = Nothing Dim regNR = "" Dim division = "" + Dim veralteteregNR = "" readEZA_SumAErledigungsinformationVorpapier_005 = "" If EZA IsNot Nothing Then @@ -296,6 +162,10 @@ Anzeige: If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise End If + If EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then + veralteteregNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise + End If + End If If EZA.EinzelSumAErledigungsinformation.Position IsNot Nothing Then @@ -319,8 +189,6 @@ Anzeige: posErledigung.Rows.Add(ro) End If - - Next @@ -328,9 +196,6 @@ Anzeige: End If End If - ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. - - If readEZA_SumAErledigungsinformationVorpapier_005 <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) @@ -341,24 +206,7 @@ Anzeige: STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60 STATUS.dySt_ergZeitpunkt = zp - - ' STATUS.dySt_ergDetails = details - 'EINTRAG IN tblDakosy_Zollanmeldungen Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") - 'Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA - - ''???????? REGNR - 'If regNR <> "" Then - ' STATUS.dySt_ergCode = "REGNr" - ' STATUS.dySt_ergMitteilung = regNR - ' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) - 'Else - ' STATUS.dySt_ergCode = "ART" - ' If ART <> "" Then STATUS.dySt_ergMitteilung = ART - ' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) - 'End If - - 'FORM.SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id STATUS.SAVE() @@ -368,111 +216,7 @@ Anzeige: 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten If saveAbschreibung Then - - If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then - - If regNR <> "" Then - - Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_MRNNr] = '" & regNR & "' or [gs_ATBNr]= '" & regNR & "'", "AVISO") - - If dtGesamtsicherheit.Rows.Count > 0 Then - - For Each POS As DataRow In posErledigung.Rows - - Dim MRNNR As String = "" - Dim existingEntryID As Integer = 0 - - - If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then - - Dim POSNr As Integer = CInt(POS.Item("IDRegNrSumAPos")) - - If MRNNR <> POS.Item("IDRegNrSumA") Then - MRNNR = POS.Item("IDRegNrSumA") - - Dim firmaID = -1 - - 'Select Case dtGesamtsicherheit.Rows(0).Item("gs_standort") - - ' Case "VERAG GmbH" - ' firmaID = 23 - ' Case "Verag AG" - ' firmaId = 1 - ' Case "Unisped GmbH" - ' firmaId = 21 - ' Case "AMBAR GmbH" - ' firmaId = 24 - ' Case "Verag CS" - ' firmaId = 11 - ' Case "IMEX" - ' firmaId = 20 - - - 'End Select - - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - - Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(dtGesamtsicherheit.Rows(0).Item("gs_standort")) - Dim saldo As Double = GesSichRef.CalcSaldo() - - Try - - 'innerhalb der gs_gsnr muss mithilfe der gs_gsid die richtige PosNr ermittelt werden! - - Dim Warenwert As Double = 0 - - Dim dtSendungen = SQL.loadDgvBySql("SELECT") - - Dim SicherheitsPos As New cGesamtsicherheitsPositionen() - With SicherheitsPos - .gsp_gsId = dtGesamtsicherheit.Rows(0).Item("gs_gsId") - '.gsp_gspPosId = CInt(POSNr) - .gsp_gspPosId = dtGesamtsicherheit.Rows(0).Item("gs_posNr") - .gsp_warenwert = 0 - .gsp_sicherheitsbetrag = 0 - .gsp_freitext = "DASKOY-IMPORT" - .gsp_filialenNr = dtGesamtsicherheit.Rows(0).Item("gs_filialenNr") - .gsp_art = "CLOSE" - .gsp_gsNr = dtGesamtsicherheit.Rows(0).Item("gs_gsnr") - .gsp_abfertigungsNr = dtGesamtsicherheit.Rows(0).Item("gs_abfertigungsnr") - .gsp_datum = DateTime.Now - .gsp_erstellungsdatum = DateTime.Now - .gsp_ust = dtGesamtsicherheit.Rows(0).Item("gs_ust") - .gsp_ATCNr = POS.Item("IDRegNrSumA") - .gsp_avisoId = dtGesamtsicherheit.Rows(0).Item("gs_avisoID") - .gsp_systemuser = "DAKOSY-AUTO" - End With - - - SicherheitsPos.SAVE() - - GesSichRef.CalcSaldo() - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - End Try - - - - - - End If - - - End If - - Next - - - End If - - - End If - - - End If + saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail) Anzeige: @@ -544,13 +288,9 @@ Anzeige: If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id STATUS.SAVE() - - '---------------------------------------------------------------- - 'Verwahrung ABSCHREIBUNG - If saveAbschreibung Then Try @@ -563,11 +303,6 @@ Anzeige: End Try - - - - - End If @@ -582,4 +317,632 @@ Anzeige: End Function + Shared Function readNCTS_SumAMassnahmenbekanntgabe(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String + Try + + Dim NCTS As DAKOSY_Worker.SumABekanntgabeMassnahme_005.SumABekanntgabeMassnahmeSBTyp = DAKOSY_Worker.SumABekanntgabeMassnahme_005.SumABekanntgabeMassnahmeSBTyp.LoadFromFile(d) + + Dim zp As Object = Nothing + Dim regNR = "" + Dim division = "" + + Dim posMassnahmen As New DataTable + + readNCTS_SumAMassnahmenbekanntgabe = "" + If NCTS IsNot Nothing Then + + If NCTS.Transaktion IsNot Nothing Then + If NCTS.Transaktion.IODivision3 IsNot Nothing Then + division = NCTS.Transaktion.IODivision3 + ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then + division = NCTS.Transaktion.IODivision1 + End If + End If + + If NCTS.EinzelSumABekanntgabeMassnahme IsNot Nothing Then + If NCTS.EinzelSumABekanntgabeMassnahme.ObjektIdentifizierung IsNot Nothing Then + If NCTS.EinzelSumABekanntgabeMassnahme.ObjektIdentifizierung.ObjektName IsNot Nothing Then + readNCTS_SumAMassnahmenbekanntgabe = NCTS.EinzelSumABekanntgabeMassnahme.ObjektIdentifizierung.ObjektName + End If + zp = NCTS.EinzelSumABekanntgabeMassnahme.ObjektIdentifizierung.ZeitpunktNachrichteneingang + End If + If NCTS.EinzelSumABekanntgabeMassnahme.KopfDaten IsNot Nothing Then + + If NCTS.EinzelSumABekanntgabeMassnahme.KopfDaten.RegistriernummerATLAS IsNot Nothing Then + regNR = NCTS.EinzelSumABekanntgabeMassnahme.KopfDaten.RegistriernummerATLAS + End If + End If + + End If + + + If NCTS.EinzelSumABekanntgabeMassnahme.Position IsNot Nothing Then + + For Each POS In NCTS.EinzelSumABekanntgabeMassnahme.Position + If POS.MassnahmeCode IsNot Nothing AndAlso posMassnahmen IsNot Nothing Then + If Not posMassnahmen.Columns.Contains("MassnahmeText") Then + posMassnahmen.Columns.Add("MassnahmeCode", GetType(Integer)) + posMassnahmen.Columns.Add("MassnahmeText", GetType(String)) + posMassnahmen.Columns.Add("MassnahmeNichtzustellbarKz", GetType(String)) + posMassnahmen.Columns.Add("PackstueckArt", GetType(String)) + posMassnahmen.Columns.Add("PackstueckAnzahl", GetType(Integer)) + End If + + Dim ro As DataRow = posMassnahmen.NewRow + ro("MassnahmeText") = POS.MassnahmeText + ro("MassnahmeCode") = POS.MassnahmeCode + ro("MassnahmeNichtzustellbarKz") = POS.MassnahmeNichtzustellbarKz + ro("PackstueckAnzahl") = POS.PackstueckAnzahl + ro("PackstueckArt") = POS.PackstueckArt + posMassnahmen.Rows.Add(ro) + End If + + + + Next + + + End If + + + End If + + + If readNCTS_SumAMassnahmenbekanntgabe <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + + '-----------------------EMAIL-NOTIFYCATION---------------------------------------- + + If posMassnahmen.Rows.Count > 0 Then + + Dim Mailext = createInfoMail(regNR, posMassnahmen, "MASSNAHME-DAKOSY") + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext,,,,, "d.breimaier@verag.ag") + + End If + + + '---------------------------------------------------------------- + + FORM.addDGVEinarbeitung("VW: Bekanntgabe Massnahme", regNR) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_SumAMassnahmenbekanntgabe = "" + End Try + End Function + + + + Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, RegistriernummerATLAS As String, posGestellung As DataTable, VorpapiernummerInput As String, VeralteteWeitereRegistriernummer As String, sendInfoMail As Boolean) + + Dim BezugsNr = readVW_SumAVerwahrungsinfo + + If VeralteteWeitereRegistriernummer = "" Then Return False + + Dim filiale As String = "" + Dim abfertigungsnummer = "" + Dim Standort As String = "" + Dim Vorpapiernummer = "" + Dim laufnummer As Integer = -1 + + Dim parts() As String = VorpapiernummerInput.Split("-"c) + + If parts.Length = 2 Then + Vorpapiernummer = parts(0) + Integer.TryParse(parts(1), laufnummer) + End If + + + If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then + If BezugsNr.Length > 4 Then + filiale = BezugsNr.Substring(0, 4) + End If + If BezugsNr.Length >= 14 Then + abfertigungsnummer = BezugsNr.Substring(5, 8) + End If + End If + + If Vorpapiernummer <> "" Then + If Vorpapiernummer.Length > 18 Then + Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18) + End If + Dim dtSendungsInfo As New DataTable + dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO") + + If dtSendungsInfo.Rows.Count > 0 Then + filiale = dtSendungsInfo.Rows(0).Item("FilialenNr") + abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr") + End If + + + Select Case filiale + Case "4803", "4809" + Standort = "VERAG AG" + Case "4810", "5103", "5901" + Standort = "VERAG GmbH" + Case "5501" + Standort = "IMEX" + Case Else + Return False + End Select + + + Dim dy_SendungsId = VWI.Transaktion.IOReferenz + + If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then + + Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer) + + If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + + Dim existingEntries As DataTable + existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO") + If existingEntries.Rows.Count = 0 Then + existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO") + End If + + If existingEntries.Rows.Count > 0 Then + + Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable(). + Any(Function(r_entry) + Return Not r_entry.IsNull("gs_posNr") AndAlso r_entry.Field(Of Integer)("gs_posNr") = laufnummer AndAlso Not r_entry.IsNull("gs_VeralteteWeitereRegistriernummer") AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") <> "" AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") = VeralteteWeitereRegistriernummer + End Function) + + If zubehandelndeGS Then + Return True 'bereits behandelt -> + End If + + Dim urspringsSicherheit As cSicherheiten + + Try + Dim rows = existingEntries.Select("gs_freitext = 'DAKOSY DUMMY' AND gs_posNr = 0") + + If rows.Length > 0 Then + Dim row = rows(0) + urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr")) + Else + Return False 'kein Dummy-Eintrag + End If + + Dim newSicherheit As New cSicherheiten() + + If Not urspringsSicherheit.hasEntry Then + Return False + End If + + Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(urspringsSicherheit.gs_standort) + Dim saldo = GesSichRef.CalcSaldo() + + If SND.FilialenNr > 0 Then filiale = SND.FilialenNr + If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr + + 'Verwahrung ANSCHREIBUNG + + newSicherheit.gs_systemuser = "DAKOSY-AUTO" + newSicherheit.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY + newSicherheit.gs_gsNr = urspringsSicherheit.gs_gsNr + newSicherheit.gs_ATBNr = urspringsSicherheit.gs_ATBNr + + Dim FreitextInfo As String = "" + + If posGestellung.Rows.Count > 0 Then + FreitextInfo = posGestellung.Rows(0).Item("AnzPackst") & " " & posGestellung.Rows(0).Item("PackstArt") + Else + FreitextInfo = "DAKOSY-IMPORT" + End If + + + newSicherheit.gs_freitext = FreitextInfo + newSicherheit.gs_MRNNr = RegistriernummerATLAS + newSicherheit.gs_standort = urspringsSicherheit.gs_standort + newSicherheit.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang + newSicherheit.gs_erstellungsdatum = Now() + newSicherheit.gs_posNr = laufnummer + newSicherheit.gs_abfertigungsnr = abfertigungsnummer + newSicherheit.gs_filialenNr = filiale + newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ + newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz + newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert + newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag + newSicherheit.gs_art = "OPEN" + newSicherheit.gs_saldo = saldo + newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId + newSicherheit.gs_warenort = urspringsSicherheit.gs_warenort + newSicherheit.gs_posSubNr = 1 + + + Dim gsid = newSicherheit.SAVEOBJECT() + + If gsid > 0 Then + 'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition + urspringsSicherheit.gs_warenwert = 0 + urspringsSicherheit.gs_sicherheitsbetrag = 0 + urspringsSicherheit.SAVE() + End If + + Dim CLOSED_DUMMY = New cGesamtsicherheitsPositionen(gsid, laufnummer) + + + With CLOSED_DUMMY + .gsp_gsNr = urspringsSicherheit.gs_gsNr + .gsp_warenwert = 0 ' = 0 wichtig + .gsp_sicherheitsbetrag = 0 ' = 0 wichtig + .gsp_filialenNr = filiale + .gsp_art = "CLOSE" + .gsp_abfertigungsNr = abfertigungsnummer + .gsp_erstellungsdatum = DateTime.Now + .gsp_ust = "" + .gsp_freitext = "DAKOSY-IMP-DY" + .gsp_avisoId = urspringsSicherheit.gs_avisoId + .gsp_gsNr = urspringsSicherheit.gs_gsNr + .gsp_systemuser = "DAKOSY-AUTO" + End With + + CLOSED_DUMMY.SAVE() + + + 'pro gestellungsposition bekommen wir eine SumAVerwahrungsinfo -> daher sind die Positionen innerhalb dieser info irrelevant (vorerst). + + If posGestellung.Rows.Count > 1 Then + If True Then + For i As Integer = 2 To posGestellung.Rows.Count + Dim OPEN_DUMMY_SUBPOS As New cSicherheiten() + With OPEN_DUMMY_SUBPOS + .gs_systemuser = "DAKOSY-AUTO" + .gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY + .gs_gsNr = urspringsSicherheit.gs_gsNr + .gs_ATBNr = urspringsSicherheit.gs_ATBNr + .gs_freitext = posGestellung.Rows(i - 1).Item("AnzPackst") & " " & posGestellung.Rows(i - 1).Item("PackstArt") + .gs_MRNNr = RegistriernummerATLAS + .gs_standort = urspringsSicherheit.gs_standort + .gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang + .gs_erstellungsdatum = Now() + .gs_posNr = laufnummer + i - 1 + .gs_abfertigungsnr = abfertigungsnummer + .gs_filialenNr = filiale + .gs_LKWKZ = urspringsSicherheit.gs_LKWKZ + .gs_zollsatz = urspringsSicherheit.gs_zollsatz + .gs_warenwert = 0 + .gs_sicherheitsbetrag = 0 + .gs_art = "OPEN" + .gs_saldo = saldo + .gs_avisoId = urspringsSicherheit.gs_avisoId + .gs_warenort = urspringsSicherheit.gs_warenort + '.gs_posSubNr = i + + End With + + Dim gsid_SupPos = OPEN_DUMMY_SUBPOS.SAVEOBJECT() + + Dim CLOSED_DUMMY_SUBPOS = New cGesamtsicherheitsPositionen() + + With CLOSED_DUMMY_SUBPOS + .gsp_gspPosId = OPEN_DUMMY_SUBPOS.gs_posNr + .gsp_gsId = gsid_SupPos + .gsp_gsNr = urspringsSicherheit.gs_gsNr + .gsp_warenwert = 0 ' = 0 wichtig + .gsp_sicherheitsbetrag = 0 ' = 0 wichtig + .gsp_filialenNr = filiale + .gsp_art = "CLOSE" + .gsp_abfertigungsNr = abfertigungsnummer + .gsp_erstellungsdatum = DateTime.Now + .gsp_ust = "" + .gsp_freitext = "DAKOSY-IMP-DY" + .gsp_avisoId = urspringsSicherheit.gs_avisoId + .gsp_gsNr = urspringsSicherheit.gs_gsNr + .gsp_systemuser = "DAKOSY-AUTO" + End With + + CLOSED_DUMMY_SUBPOS.SAVE() + + Next + End If + End If + + If sendInfoMail Then + Dim InfoText As String = createInfoMail(RegistriernummerATLAS, posGestellung, "VW-EINGANG", newSicherheit) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") + End If + + + + 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Return True + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Return False + + Finally + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + End Try + + + End If + + End If + End If + + End If + + + + + End Function + + Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean) + + If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then + + If regNR <> "" AndAlso veralteteregNR <> "" Then + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + + + For Each POS As DataRow In posErledigung.Rows + + Dim MRNNR As String = "" + Dim existingEntryID As Integer = 0 + + + If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then + + Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos"))) + + If MRNNR <> POS.Item("IDRegNrSumA") Then + MRNNR = POS.Item("IDRegNrSumA") + + Dim firmaID = -1 + + Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO") + + If dtGesamtsicherheit.Rows.Count > 0 Then + + + + Try + + Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0) + + Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL") + + If rows.Length > 0 Then + Exit Sub 'bereits vorhanden + End If + + Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort")) + Dim saldo As Double = GesSichRef.CalcSaldo() + + + + Dim Warenwert As Double = 0 + Dim Sicherheitsbetrag As Double = 0 + + 'Berechnung Warenwert und Sicherheitsbetrag aus Sendung + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO") + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + If dtVorpapiere.Rows.Count > 0 Then + + Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')") + + Dim row = rowsVorp(0) + Warenwert = CDbl(row("tblSnd_Warenwert")) + Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100)) + End If + + + + 'Dim dtSendungen = SQL.loadDgvBySql("SELECT") + Dim anzahlPackstuecke As Integer = -1 + Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte"))) + Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz")) + If gs_row.Item("gs_freitext") <> "" Then + anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value) + End If + + If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden! + Dim dt As New DataTable + + If Not dt.Columns.Contains("anzahlPackstuecke") Then + dt.Columns.Add("MRN", GetType(String)) + dt.Columns.Add("LKW_ID", GetType(String)) + dt.Columns.Add("anzahlPackstuecke", GetType(Integer)) + dt.Columns.Add("StornierungKZ", GetType(String)) + dt.Columns.Add("AnzahlStückErledigt", GetType(Integer)) + End If + + Dim ro As DataRow = dt.NewRow + ro("MRN") = gs_row.Item("gs_MRNNr") + ro("LKW_ID") = gs_row.Item("gs_avisoId") + ro("anzahlPackstuecke") = anzahlPackstuecke + ro("AnzahlStückErledigt") = AnzahlStückErledigt + ro("StornierungKZ") = StornierungKz + dt.Rows.Add(ro) + + + Dim InfoText As String = createInfoMail(MRNNR, dt, "") + + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") + End If + + Dim SicherheitsPos As New cGesamtsicherheitsPositionen() + With SicherheitsPos + .gsp_gsId = gs_row("gs_gsId") + '.gsp_gspPosId = CInt(POSNr) + .gsp_gspPosId = gs_row.Item("gs_posNr") + .gsp_warenwert = Warenwert + .gsp_sicherheitsbetrag = Sicherheitsbetrag + .gsp_freitext = "DASKOY-IMPORT" + .gsp_filialenNr = gs_row("gs_filialenNr") + .gsp_art = "CLOSE" + .gsp_gsNr = gs_row("gs_gsnr") + .gsp_abfertigungsNr = gs_row("gs_abfertigungsnr") + .gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang + .gsp_erstellungsdatum = DateTime.Now + .gsp_ust = gs_row("gs_ust") + .gsp_ATCNr = veralteteregNR + .gsp_MRNNr = regNR + .gsp_avisoId = gs_row("gs_avisoID") + .gsp_systemuser = "DAKOSY-AUTO" + End With + + + SicherheitsPos.SAVE() + GesSichRef.CalcSaldo() + + If sendInfoMail Then + Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag") + End If + + + 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + Finally + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + End Try + + End If + + End If + + + End If + + Next + + + End If + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + End If + End Sub + + Public Shared Function AddNewGesamtSichNr() As Integer + Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) + Dim LetzteGesSichNum As Integer = -1 + If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + + LetzteGesSichNum = dt.Rows(0).Item(0) + Return LetzteGesSichNum + 1 + + End If + + Return 0 + End Function + + + Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String, Optional GS As cSicherheiten = Nothing, Optional GSPOS As cGesamtsicherheitsPositionen = Nothing) As String + + Dim TextHTMLtable As String + + Select Case typ + Case "MASSNAHME-DAKOSY" + TextHTMLtable &= "Bei " & regNR & " wurden eine Zoll-Maßnahme ausgelöst." & vbNewLine & vbNewLine & vbNewLine + + TextHTMLtable &= "" + TextHTMLtable &= "" + + For Each r As DataRow In dt.Rows + + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + Next + + TextHTMLtable &= "
CodeTextNichtzustellbarKzPackstueckAnzahlPackstueckArt
" & r.Item("MassnahmeCode") & "" & r.Item("MassnahmeText") & "" & r.Item("MassnahmeNichtzustellbarKz") & "" & r.Item("PackstueckAnzahl") & "" & r.Item("PackstueckArt") & "
" + + TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*" + Return TextHTMLtable + + + Case "VW-EINGANG" + + TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine + + TextHTMLtable &= "" + TextHTMLtable &= "" + + If GS IsNot Nothing Then + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + End If + + + TextHTMLtable &= "
PosNrVorpapierMRNLKWID
" & GS.gs_posNr & "" & GS.gs_ATBNr & "" & GS.gs_MRNNr & "" & GS.gs_avisoId & "
" + + TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*" + Return TextHTMLtable + + Case "VW-AUSGANG" + + TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine + + TextHTMLtable &= "" + TextHTMLtable &= "" + + If GSPOS IsNot Nothing Then + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + End If + + + TextHTMLtable &= "
PosNrMRNATCAVISOID
" & GSPOS.gsp_gspPosId & "" & GSPOS.gsp_MRNNr & "" & GSPOS.gsp_ATCNr & "" & GSPOS.gsp_avisoId & "
" + + TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*" + Return TextHTMLtable + + + Case Else + + TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine + + TextHTMLtable &= "" + TextHTMLtable &= "" + + For Each r As DataRow In dt.Rows + + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + Next + + TextHTMLtable &= "
MRN-NrLKW-IDPackstücke gesamtPackstücke erledigtStornierung KZ
" & r.Item("MRN") & "" & r.Item("LKW_ID") & "" & r.Item("anzahlPackstuecke") & "" & r.Item("AnzahlStückErledigt") & "" & r.Item("StornierungKZ") & "
" + + TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*" + Return TextHTMLtable + + End Select + + + End Function End Class diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb index 0889910..fc1807f 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb @@ -39,6 +39,7 @@ Partial Class frmDYNachrichtenVerarbeitung Me.btnOK = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() + Me.lblTest = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -63,6 +64,7 @@ Partial Class frmDYNachrichtenVerarbeitung ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.lblTest) Me.pnl.Controls.Add(Me.dgvEinarbeitung) Me.pnl.Controls.Add(Me.Label9) Me.pnl.Controls.Add(Me.Button2) @@ -211,6 +213,16 @@ Partial Class frmDYNachrichtenVerarbeitung Me.Label1.TabIndex = 8 Me.Label1.Text = "Einarbeitung:" ' + 'lblTest + ' + Me.lblTest.AutoSize = True + Me.lblTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTest.ForeColor = System.Drawing.Color.Red + Me.lblTest.Location = New System.Drawing.Point(260, 23) + Me.lblTest.Name = "lblTest" + Me.lblTest.Size = New System.Drawing.Size(0, 13) + Me.lblTest.TabIndex = 19 + ' 'frmDYNachrichtenVerarbeitung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -243,4 +255,5 @@ Partial Class frmDYNachrichtenVerarbeitung Friend WithEvents dgvEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lblTest As Label End Class diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 6530a84..5e0d318 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -18,6 +18,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim Dateiname = "" Public saveVerwahrung As Boolean = False + Public sendMail As Boolean = False Sub New() @@ -56,6 +57,9 @@ Public Class frmDYNachrichtenVerarbeitung Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load initPfade() + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then lblTest.Text = "TEST" + For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) ListBox3.Items.Add(frmStartOptions.cut_file(d)) Me.Refresh() @@ -404,7 +408,7 @@ Public Class frmDYNachrichtenVerarbeitung If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then Select Case VERSION Case False - Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung) <> "" Then found = True + Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail) <> "" Then found = True End Select End If @@ -412,7 +416,7 @@ Public Class frmDYNachrichtenVerarbeitung 'VW: SumAErledigungsinformationVorpapier If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then Select Case VERSION - Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung) <> "" Then found = True ' --> TEIL DER VERWAHRUNG + Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail) <> "" Then found = True ' --> TEIL DER VERWAHRUNG Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True End Select @@ -427,6 +431,14 @@ Public Class frmDYNachrichtenVerarbeitung End Select End If + 'VW: SumABekanntgabeMassnahme + If Not found And cGetMsgType.isNCTS_SumABekanntgabeMassnahme(doc, VERSION) Then + Select Case VERSION + Case False + Case Else : If cWorker_Verwahrung.readNCTS_SumAMassnahmenbekanntgabe(Me, d, saveVerwahrung) <> "" Then found = True + End Select + End If + '------------------------------------------ '------------------ EXPORT / Gestellung (AES) ------------------ diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index a05e799..ec4375a 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -25,6 +25,10 @@ Partial Class frmStartOptions Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.btnEZOLL_1month = New System.Windows.Forms.Button() + Me.btnEZOLL_7days = New System.Windows.Forms.Button() + Me.cbxEZOLLUNISPED = New System.Windows.Forms.CheckBox() + Me.cbxSendEZOLL_INFO = New System.Windows.Forms.CheckBox() Me.Button30 = New System.Windows.Forms.Button() Me.pbEmailscheck = New System.Windows.Forms.PictureBox() Me.btnKKEmailscheck = New System.Windows.Forms.Button() @@ -81,7 +85,6 @@ Partial Class frmStartOptions Me.Label13 = New System.Windows.Forms.Label() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.Button29 = New System.Windows.Forms.Button() Me.LinkLabel68 = New System.Windows.Forms.LinkLabel() Me.PictureBox26 = New System.Windows.Forms.PictureBox() Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox() @@ -377,10 +380,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.cbxSendEZOLL_INFO = New System.Windows.Forms.CheckBox() - Me.cbxEZOLLUNISPED = New System.Windows.Forms.CheckBox() - Me.btnEZOLL_7days = New System.Windows.Forms.Button() - Me.btnEZOLL_1month = New System.Windows.Forms.Button() + Me.cbxVW_Infomail = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() @@ -525,6 +525,52 @@ Partial Class frmStartOptions Me.pnl.Size = New System.Drawing.Size(1229, 946) Me.pnl.TabIndex = 0 ' + 'btnEZOLL_1month + ' + Me.btnEZOLL_1month.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnEZOLL_1month.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnEZOLL_1month.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEZOLL_1month.Location = New System.Drawing.Point(428, 178) + Me.btnEZOLL_1month.Name = "btnEZOLL_1month" + Me.btnEZOLL_1month.Size = New System.Drawing.Size(103, 24) + Me.btnEZOLL_1month.TabIndex = 147 + Me.btnEZOLL_1month.Text = "History (1 Monat)" + Me.btnEZOLL_1month.UseVisualStyleBackColor = True + ' + 'btnEZOLL_7days + ' + Me.btnEZOLL_7days.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnEZOLL_7days.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnEZOLL_7days.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEZOLL_7days.Location = New System.Drawing.Point(319, 178) + Me.btnEZOLL_7days.Name = "btnEZOLL_7days" + Me.btnEZOLL_7days.Size = New System.Drawing.Size(103, 24) + Me.btnEZOLL_7days.TabIndex = 146 + Me.btnEZOLL_7days.Text = "History (7 Tage)" + Me.btnEZOLL_7days.UseVisualStyleBackColor = True + ' + 'cbxEZOLLUNISPED + ' + Me.cbxEZOLLUNISPED.AutoSize = True + Me.cbxEZOLLUNISPED.Location = New System.Drawing.Point(319, 158) + Me.cbxEZOLLUNISPED.Name = "cbxEZOLLUNISPED" + Me.cbxEZOLLUNISPED.Size = New System.Drawing.Size(74, 17) + Me.cbxEZOLLUNISPED.TabIndex = 145 + Me.cbxEZOLLUNISPED.Text = "UNISPED" + Me.cbxEZOLLUNISPED.UseVisualStyleBackColor = True + ' + 'cbxSendEZOLL_INFO + ' + Me.cbxSendEZOLL_INFO.AutoSize = True + Me.cbxSendEZOLL_INFO.Checked = True + Me.cbxSendEZOLL_INFO.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxSendEZOLL_INFO.Location = New System.Drawing.Point(403, 158) + Me.cbxSendEZOLL_INFO.Name = "cbxSendEZOLL_INFO" + Me.cbxSendEZOLL_INFO.Size = New System.Drawing.Size(134, 17) + Me.cbxSendEZOLL_INFO.TabIndex = 144 + Me.cbxSendEZOLL_INFO.Text = "Sende Mail an Kunden" + Me.cbxSendEZOLL_INFO.UseVisualStyleBackColor = True + ' 'Button30 ' Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1197,7 +1243,7 @@ Partial Class frmStartOptions ' 'TabPage1 ' - Me.TabPage1.Controls.Add(Me.Button29) + Me.TabPage1.Controls.Add(Me.cbxVW_Infomail) Me.TabPage1.Controls.Add(Me.LinkLabel68) Me.TabPage1.Controls.Add(Me.PictureBox26) Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern) @@ -1257,13 +1303,6 @@ Partial Class frmStartOptions Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.UseVisualStyleBackColor = True ' - 'Button29 - ' - Me.Button29.Location = New System.Drawing.Point(0, 0) - Me.Button29.Name = "Button29" - Me.Button29.Size = New System.Drawing.Size(75, 23) - Me.Button29.TabIndex = 0 - ' 'LinkLabel68 ' Me.LinkLabel68.AutoSize = True @@ -1292,9 +1331,9 @@ Partial Class frmStartOptions Me.cbxGestellungspeichern.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxGestellungspeichern.Location = New System.Drawing.Point(14, 194) Me.cbxGestellungspeichern.Name = "cbxGestellungspeichern" - Me.cbxGestellungspeichern.Size = New System.Drawing.Size(137, 17) + Me.cbxGestellungspeichern.Size = New System.Drawing.Size(75, 17) Me.cbxGestellungspeichern.TabIndex = 139 - Me.cbxGestellungspeichern.Text = "Gestellungen speichern" + Me.cbxGestellungspeichern.Text = "SAVE VW" Me.cbxGestellungspeichern.UseVisualStyleBackColor = True ' 'MyTextBox4 @@ -5037,51 +5076,16 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'cbxSendEZOLL_INFO + 'cbxVW_Infomail ' - Me.cbxSendEZOLL_INFO.AutoSize = True - Me.cbxSendEZOLL_INFO.Checked = True - Me.cbxSendEZOLL_INFO.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxSendEZOLL_INFO.Location = New System.Drawing.Point(403, 158) - Me.cbxSendEZOLL_INFO.Name = "cbxSendEZOLL_INFO" - Me.cbxSendEZOLL_INFO.Size = New System.Drawing.Size(134, 17) - Me.cbxSendEZOLL_INFO.TabIndex = 144 - Me.cbxSendEZOLL_INFO.Text = "Sende Mail an Kunden" - Me.cbxSendEZOLL_INFO.UseVisualStyleBackColor = True - ' - 'cbxEZOLLUNISPED - ' - Me.cbxEZOLLUNISPED.AutoSize = True - Me.cbxEZOLLUNISPED.Location = New System.Drawing.Point(319, 158) - Me.cbxEZOLLUNISPED.Name = "cbxEZOLLUNISPED" - Me.cbxEZOLLUNISPED.Size = New System.Drawing.Size(74, 17) - Me.cbxEZOLLUNISPED.TabIndex = 145 - Me.cbxEZOLLUNISPED.Text = "UNISPED" - Me.cbxEZOLLUNISPED.UseVisualStyleBackColor = True - ' - 'btnEZOLL_7days - ' - Me.btnEZOLL_7days.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnEZOLL_7days.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnEZOLL_7days.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnEZOLL_7days.Location = New System.Drawing.Point(319, 178) - Me.btnEZOLL_7days.Name = "btnEZOLL_7days" - Me.btnEZOLL_7days.Size = New System.Drawing.Size(103, 24) - Me.btnEZOLL_7days.TabIndex = 146 - Me.btnEZOLL_7days.Text = "History (7 Tage)" - Me.btnEZOLL_7days.UseVisualStyleBackColor = True - ' - 'btnEZOLL_1month - ' - Me.btnEZOLL_1month.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnEZOLL_1month.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnEZOLL_1month.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnEZOLL_1month.Location = New System.Drawing.Point(428, 178) - Me.btnEZOLL_1month.Name = "btnEZOLL_1month" - Me.btnEZOLL_1month.Size = New System.Drawing.Size(103, 24) - Me.btnEZOLL_1month.TabIndex = 147 - Me.btnEZOLL_1month.Text = "History (1 Monat)" - Me.btnEZOLL_1month.UseVisualStyleBackColor = True + Me.cbxVW_Infomail.AutoSize = True + Me.cbxVW_Infomail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxVW_Infomail.Location = New System.Drawing.Point(100, 194) + Me.cbxVW_Infomail.Name = "cbxVW_Infomail" + Me.cbxVW_Infomail.Size = New System.Drawing.Size(62, 17) + Me.cbxVW_Infomail.TabIndex = 152 + Me.cbxVW_Infomail.Text = "Infomail" + Me.cbxVW_Infomail.UseVisualStyleBackColor = True ' 'frmStartOptions ' @@ -5507,7 +5511,6 @@ Partial Class frmStartOptions Friend WithEvents Label56 As Label Friend WithEvents Label58 As Label Friend WithEvents Label57 As Label - Friend WithEvents Button29 As Button Friend WithEvents lblIDS_plauscheck As LinkLabel Friend WithEvents Label59 As Label Friend WithEvents pbEmailscheck As PictureBox @@ -5523,4 +5526,5 @@ Partial Class frmStartOptions Friend WithEvents cbxEZOLLUNISPED As CheckBox Friend WithEvents btnEZOLL_1month As Button Friend WithEvents btnEZOLL_7days As Button + Friend WithEvents cbxVW_Infomail As CheckBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 047aec1..cf26a08 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -236,102 +236,6 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC @@ -692,6 +596,102 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 7800bbf..77b4211 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -103,6 +103,7 @@ Public Class frmStartOptions cbxUTAalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt") cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu") cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen") + cbxVW_Infomail.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen_Infomail") Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS @@ -2964,6 +2965,8 @@ Public Class frmStartOptions Me.Visible = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmDYNachrichtenVerarbeitung + f.saveVerwahrung = cbxGestellungspeichern.Checked + f.sendMail = cbxVW_Infomail.Checked f.ShowDialog() Me.Visible = True End Sub @@ -3021,6 +3024,7 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmDYNachrichtenVerarbeitung f.saveVerwahrung = cbxGestellungspeichern.Checked + f.sendMail = cbxVW_Infomail.Checked f.ShowDialog() Me.Visible = True End Sub @@ -7390,7 +7394,7 @@ repeatRequest: End Sub - Private Sub Button29_Click_1(sender As Object, e As EventArgs) Handles Button29.Click + Private Sub Button29_Click_1(sender As Object, e As EventArgs) ' doMailZollbeleg("", "STB", 725002)