From 25e7bff3d45e57350c6667c716283ada32683914 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 14 Apr 2026 09:49:55 +0200 Subject: [PATCH 1/3] AUTOMAILVERSAND, etc. --- SDL/Fakturierung/cAutomailversand.vb | 742 ++++++++++++++---- SDL/Fakturierung/cFakturierung.vb | 15 +- .../frmAbrechnungsMaske.Designer.vb | 38 +- SDL/Fakturierung/frmAbrechnungsMaske.vb | 100 ++- SDL/Fakturierung/frmFaktEmail.vb | 5 - SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 36 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 43 +- .../Classes/cRechnungsausgang.vb | 5 +- 8 files changed, 789 insertions(+), 195 deletions(-) diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index 9b3d3b15..5a6ae6a0 100644 --- a/SDL/Fakturierung/cAutomailversand.vb +++ b/SDL/Fakturierung/cAutomailversand.vb @@ -4,14 +4,16 @@ Imports VERAG_PROG_ALLGEMEIN Public Class cAutomailversand - Sub sendMailSammelrechnung(Sammelrechnungsdatum As Date, SammelrechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False) + Sub sendMailSammelrechnung(_Rechnungsdatum As Date, SammelrechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False) Try Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + 'BEI SAMMELRECHNUNG WIRD ZUERST INTERN DER STATUS AUF 2 GESETZT + Dim rechnungenMailversand = "SELECT RechnungsNr,RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0) as keineMWST, max(Rechnungsausgang.[RechnungsLandKz]) as RechnungsLandKz, MitgliedslandEU, sum(Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Steuer FROM Rechnungsausgang LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz - WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Sammelrechnungsdatum.ToShortDateString & "' + WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "' and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & " GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU ORDER BY RechnungsLandKz, RechnungsKundenNr" @@ -52,7 +54,7 @@ Public Class cAutomailversand End If - SR_DT = cFakturierung.GET_SR_SQLDT(FirmaID, SammelrechungArt, Sammelrechnungsdatum, row.Item("RechnungsKundenNr"),,,,, True) + SR_DT = cFakturierung.GET_SR_SQLDT(FirmaID, SammelrechungArt, _Rechnungsdatum, row.Item("RechnungsKundenNr"),,,,, True) Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(row.Item("RechnungsKundenNr")) Dim FISKAL = New cFiskal_Daten(row.Item("RechnungsKundenNr")) @@ -81,34 +83,8 @@ Public Class cAutomailversand Dim MailtoCC As String = "" Dim MailtoBCC As String = "" - If SammelrechungArt <> 6 Then - - Dim email_receipt As String = "" - - Dim allAtilla = IIf(FirmaID = 7, True, False) - If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then - For Each r In SR_DT.Rows - If "4801" <> r("FilialenNr") And "4802" <> r("FilialenNr") Then - allAtilla = False - Exit For - End If - Next - End If - - email_receipt = IIf(allAtilla, VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)"), "") - - MailTo = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an") - MailtoCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)")) - MailtoBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)")) - - Else - - If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then MailTo &= AD.E_Mail & ";" - If AD.E_Mail2 IsNot Nothing AndAlso AD.E_Mail2 <> "" Then MailTo &= AD.E_Mail2 & ";" - - - End If + setEmpfaengerMail_SR(SR_DT, AD, MailTo, MailtoCC, MailtoBCC, FirmaID, SammelrechungArt) 'im TESTSYSTEM bewusst die Empfänger leeren! @@ -148,7 +124,7 @@ Public Class cAutomailversand TextHTML &= cFakturierung.getSignature("DE", FirmaID, True, True,,,,, True) HTMLMail = "
" & TextHTML & "
" - If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC) Then + If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,,, FISKAL) Then End If @@ -166,17 +142,27 @@ Public Class cAutomailversand End Sub - Sub sendMailEinzelrechnungen(Rechnungsdatum As Date, FirmaID As Integer, Optional Sachbearbeiter As String = "", Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False) + Sub sendMailEinzelrechnungen(FirmaID As Integer, Rechnungsdatum As Date, Optional Sachbearbeiter As String = "", Optional RK_ID As List(Of Integer) = Nothing, Optional mailoeffnen As Boolean = True) Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - Dim rechnungenMailversand = "SELECT RechnungsNr,RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0) as keineMWST, max(Rechnungsausgang.[RechnungsLandKz]) as RechnungsLandKz, MitgliedslandEU, sum(Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Steuer FROM Rechnungsausgang + Dim SQL_RKID As String = "" + + If RK_ID IsNot Nothing Then + If RK_ID.Count > 0 Then + SQL_RKID = " AND RK_ID IN (" & String.Join(",", RK_ID) & ")" + End If + End If + + 'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft + + Dim rechnungenMailversand = "SELECT RK_ID,RechnungsKundenNr,Rechnungsausgang.VermittlerKundenNr,Rechnungsausgang.RechnungsLandKz,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.UnterNr, Rechnungsausgang.ErfassungsNr , Rechnungsausgang.SteuerpflichtigerGesamtbetrag AS Steuer FROM Rechnungsausgang LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz - WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "' - and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & " - GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU - ORDER BY RechnungsLandKz, RechnungsKundenNr" + WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) <= '" & Rechnungsdatum.ToShortDateString & "' + and isnull(Rechnungsausgang.Automailversand,0) = 1 AND Automailversand_sent IS NULL " & IIf(Sachbearbeiter <> "", " AND Sachbearbeiter = '" & Sachbearbeiter & "'", "") & SQL_RKID & " + + ORDER BY RechnungsLandKz, RechnungsKundenNr, Rechnungsausgang.Rechnungsdatum" Dim dt As DataTable = sql.loadDgvBySql(rechnungenMailversand, "FMZOLL") Try @@ -187,6 +173,17 @@ Public Class cAutomailversand Dim MailtoCC As String = "" Dim MailtoBCC As String = "" + Dim FISKAL As cFiskal_Daten = Nothing + + + Dim AD As New cAdressen(r.Item("RechnungsKundenNr")) + Dim ATTACHMENTS As New List(Of cFakt_MailATTach) + Dim RECHNUNG As New cRechnungsausgang(r.Item("RK_ID")) + Dim SPEDBUCH As New cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr) + FISKAL = New cFiskal_Daten(r.Item("RechnungsKundenNr")) + + + setEmpfaengerMail_ER(SPEDBUCH, AD, MailTo, MailtoCC, MailtoBCC, "") If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then MailTo = "" @@ -196,12 +193,54 @@ Public Class cAutomailversand MailtoBCC = setAccountToSend(FirmaID) End If + If Not (MailTo = "" AndAlso MailtoCC = "" AndAlso MailtoBCC = "") Then + + + Dim pathRG As String + If Not cFakturierung.doRechnungsDruck(RECHNUNG, Rechnungsdatum,, 4, pathRG,, True) Then + Continue For + End If + + 'EINZELBELEG ANFÜGEN + If pathRG <> "" Then ATTACHMENTS.Add(New cFakt_MailATTach(pathRG, If(RECHNUNG.BelegartenKz = "AR", "Rechnung.pdf", "Gutschrift.pdf"))) + + Dim Mailsubject As String = "" + Dim HTMLMail As String = "" + + Dim listPDFs As New List(Of String) + Dim showError As Boolean = False + setEmailText(r, FirmaID, RECHNUNG.RechnungsNr, Mailsubject, HTMLMail, RECHNUNG.Sammelrechnung, dt, RECHNUNG.BelegartenNr) + + loadAndSetAnhaenge(dt, ATTACHMENTS, listPDFs, RECHNUNG) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST" + + If mailoeffnen Then + Dim Mail = createMail(Mailsubject, HTMLMail, ATTACHMENTS, MailTo, MailtoCC, MailtoBCC, FirmaID) + If setLog(dt, r, FirmaID, RECHNUNG.Sammelrechnung, Rechnungsdatum,,,,,,, Mail, RECHNUNG) Then + Mail.Display() + End If + + Else + + Dim TextHTML = "" + TextHTML &= HTMLMail + TextHTML &= cFakturierung.getSignature("DE", FirmaID, True, True,,,,, True) + HTMLMail = "
" & TextHTML & "
" + + If setLog(dt, r, FirmaID, RECHNUNG.Sammelrechnung, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,, RECHNUNG, FISKAL, SPEDBUCH) Then + + End If + + End If + + End If + Next Catch ex As System.Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,,,,,) - + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,, "d.breimaier@verag.ag",,, setAccountToSend(FirmaID)) End Try End Sub @@ -212,14 +251,102 @@ Public Class cAutomailversand Dim Mailtext As String - If SammelrechungArt <> 6 Then + If SammelrechungArt <> 6 Then 'EINZELRECHNUNGEN - MDM oder ANDERE - Subject = "VERAG Sammel-Rechnung" - TextHTML &= getSammelRgTExt(getSelectionLandKz(dt), Firma_ID) + + Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(1, "", Firma_ID) + + Dim spracheRechnung As String = "EN" 'Defaultsprache + Dim belegtyp As String = If(BelegartenNr = 71, "credit note", "invoice") + + Select Case row.Item("RechnungsLandKz") + Case "TR" : spracheRechnung = "TR" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "Kredi", "Fatura") + Case "RO" : spracheRechnung = "RO" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "nota de credit", "factura") + Case "DE", "A", "AT", "D", "CH" : spracheRechnung = "DE" : belegtyp = If(BelegartenNr = 71, "Gutschrift", "Rechnung") + Case "SRB", "HR", "SLO", "BIH", "MNE", "MK", "MO" : spracheRechnung = "SRB" : belegtyp = If(BelegartenNr = 71, "credit note", "invoice") 'Belegarten auf Englisch! + End Select + + If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then + + Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung) + If r IsNot Nothing Then + Subject = r.txt_betreff + Subject = Subject.Replace("%Belegtyp%", belegtyp) + Subject = Subject.Replace("%BelegNr%", txtRgNr) + + TextHTML &= r.txt_text + + TextHTML = TextHTML.Replace("%Belegtyp%", belegtyp) + + If Firma_ID = 19 Then + + Dim KUNDE_ERW As New cKundenErweitert(row("RechnungsKundenNr")) + + If row.Item("FilialenNr") = 4817 AndAlso row.Item("ErfassungsNr") IsNot Nothing Then + Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(row.Item("FilialenNr"), row.Item("AbfertigungsNr"), row.Item("UnterNr")) + If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then + Dim USTV_ANTRAG As New cUSTVAntrag(row.Item("ErfassungsNr")) + + If row("VermittlerKundenNr") = 150000 Or row("VermittlerKundenNr") = 140000 Or row("VermittlerKundenNr").ToString.Substring(0, 2) = 18 Then + + replaceKZ("nichtRMC", TextHTML) + TextHTML = TextHTML.ToString.Replace("%RMC:", "") : TextHTML = TextHTML.ToString.Replace("RMC%", "") + + replaceKZ("KZ1", TextHTML) + replaceKZ("KZ4", TextHTML) + TextHTML = TextHTML.ToString.Replace("%", "") + + Else + + replaceKZ("RMC", TextHTML) + TextHTML = TextHTML.ToString.Replace("%nichtRMC:", "") : TextHTML = TextHTML.ToString.Replace("nichtRMC%", "") + + If USTV_ANTRAG.UStVAn_Sicherheit Then + replaceKZ("KZ1", TextHTML) + TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + + ElseIf KUNDE_ERW.kde_Erstattungsart = 4 Then + replaceKZ("KZ1", TextHTML) + TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + + ElseIf KUNDE_ERW.kde_Erstattungsart = 1 Then + replaceKZ("KZ4", TextHTML) + TextHTML = TextHTML.ToString.Replace("%KZ1:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + + Else + replaceKZ("KZ1", TextHTML) + replaceKZ("KZ4", TextHTML) + TextHTML = TextHTML.ToString.Replace("%", "") + End If + + End If + + If Mailtext <> "" Then TextHTML &= Mailtext & vbNewLine + + + End If + + Else + 'sonst alles weg! + replaceKZ("nichtRMC", TextHTML) + replaceKZ("RMC", TextHTML) + replaceKZ("KZ1", TextHTML) + replaceKZ("KZ4", TextHTML) + TextHTML = TextHTML.ToString.Replace("%", "") + + + End If + + End If + + End If + + End If - Else + + ElseIf SammelrechungArt = 6 Then 'MDM-SAMMELRECHNUNGEN Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -310,68 +437,92 @@ Public Class cAutomailversand End Function - Private Sub loadAndSetAnhaenge(SR_DT As DataTable, ATTACHMENTS As List(Of cFakt_MailATTach), listPDFs As List(Of String)) + Private Sub loadAndSetAnhaenge(SR_DT As DataTable, ATTACHMENTS As List(Of cFakt_MailATTach), listPDFs As List(Of String), Optional RECHNUNG As cRechnungsausgang = Nothing, Optional SPEDBUCH As cSpeditionsbuch = Nothing) - ATTACHMENTS.Clear() - 'Rechnungsanhänge anfügen Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Attachment", ".pdf",, False, "Zusammenfassung") + 'Rechnungsanhänge anfügen For Each l In listPDFs - ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) - Next - '----------------------------------------------------------------- - If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then - Dim myList As New List(Of String) + If RECHNUNG IsNot Nothing Then - For Each r As DataRow In SR_DT.Rows - Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID")) - If RG_ANH IsNot Nothing Then + '----------------------------------------------------------------- EINZELRECHNUNGEN------------------------------------------------ - Dim FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0) - - If FilialenNr = 4817 Then 'diese immer zusammenfassen! - - For Each ANH In RG_ANH - - Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId) - If Not (path.ToString.ToLower.Contains("sammelrechnung") OrElse path.ToString.Contains("Maut") OrElse path.ToString.Contains("POS") OrElse path.ToString.ToLower.Contains("invoice") OrElse path.ToString.ToLower.Contains("rechnung")) Then - If path <> "" Then myList.Add(path) - Else - ATTACHMENTS.Add(New cFakt_MailATTach(path, ANH.Bezeichnung)) - End If - - Next - If myList.Any() Then - If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then - Dim fileInfo As New FileInfo(zielPfadZusammenfassung) - ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, fileInfo.Name)) - End If - End If - Else - For Each ANH In RG_ANH - ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung)) - Next - End If - - - - End If + RECHNUNG.LOAD_ANHAENGE() + For Each ANH In RECHNUNG.ANHAENGE + ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung)) Next + + If SPEDBUCH IsNot Nothing Then + + If SPEDBUCH.DokumentId_Mitteilung IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Versandschein.pdf")) + + 'AT + If SPEDBUCH.DokumentId_Mitteilung IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Abgabenbescheid.pdf")) + If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf")) + + 'DE + If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf")) + If SPEDBUCH.DokumentId_VBD IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_VBD), "Abgabenbescheid.pdf")) + End If + + + Else + + '----------------------------------------------------------------- SAMMELRECHNUNGEN------------------------------------------------ + + If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then + 'ATTACHMENTS.Clear() + Dim myList As New List(Of String) + + For Each r As DataRow In SR_DT.Rows + Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID")) + If RG_ANH IsNot Nothing Then + + Dim FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0) + + If FilialenNr = 4817 Then 'diese immer zusammenfassen! + + For Each ANH In RG_ANH + + Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId) + If Not (path.ToString.ToLower.Contains("sammelrechnung") OrElse path.ToString.Contains("Maut") OrElse path.ToString.Contains("POS") OrElse path.ToString.ToLower.Contains("invoice") OrElse path.ToString.ToLower.Contains("rechnung")) Then + If path <> "" Then myList.Add(path) + Else + ATTACHMENTS.Add(New cFakt_MailATTach(path, ANH.Bezeichnung)) + End If + + Next + If myList.Any() Then + If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then + Dim fileInfo As New FileInfo(zielPfadZusammenfassung) + ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, fileInfo.Name)) + End If + End If + Else + For Each ANH In RG_ANH + ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung)) + Next + End If + + + + End If + Next + End If + + End If - '----------------------------------------------------------------- - - End Sub - Private Function setLog(SR_DT As DataTable, row As DataRow, FirmaID As Integer, Sammelrechnungsart As Integer, Rechnungsdatum As Date, Optional ATTACHMENTS As List(Of cFakt_MailATTach) = Nothing, Optional Mailsubject As String = "", Optional Mailhtml As String = "", Optional MailTo As String = "", Optional MailtoCC As String = "", Optional MailtoBCC As String = "", Optional Mail As Microsoft.Office.Interop.Outlook.MailItem = Nothing) As Boolean + Private Function setLog(SR_DT As DataTable, row As DataRow, FirmaID As Integer, Sammelrechnungsart As Integer, Rechnungsdatum As Date, Optional ATTACHMENTS As List(Of cFakt_MailATTach) = Nothing, Optional Mailsubject As String = "", Optional Mailhtml As String = "", Optional MailTo As String = "", Optional MailtoCC As String = "", Optional MailtoBCC As String = "", Optional Mail As Microsoft.Office.Interop.Outlook.MailItem = Nothing, Optional RECHNUNG As cRechnungsausgang = Nothing, Optional FISKAL As cFiskal_Daten = Nothing, Optional SPEDBUCH As cSpeditionsbuch = Nothing) As Boolean Dim accountToSend = setAccountToSend(FirmaID) @@ -406,17 +557,28 @@ Public Class cAutomailversand Dim AbfertigungsNr As Integer Dim FilialenNr As Integer + Dim UnterNr As Integer - If SR_DT.Rows.Count > 0 Then - For Each r As DataRow In SR_DT.Rows - AbfertigungsNr = IIf(Not IsDBNull(r.Item("AbfertigungsNr")) AndAlso IsNumeric(r.Item("AbfertigungsNr")), CInt(r.Item("AbfertigungsNr")), 0) - FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0) - Next + If SPEDBUCH IsNot Nothing Then + FilialenNr = SPEDBUCH.FilialenNr + AbfertigungsNr = SPEDBUCH.AbfertigungsNr + UnterNr = SPEDBUCH.UnterNr + Else + + + If SR_DT.Rows.Count > 0 Then + For Each r As DataRow In SR_DT.Rows + AbfertigungsNr = IIf(Not IsDBNull(r.Item("AbfertigungsNr")) AndAlso IsNumeric(r.Item("AbfertigungsNr")), CInt(r.Item("AbfertigungsNr")), 0) + FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0) + Next + + End If 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.SDL_OUT_SAMMELRECHNUNG, "SAMMELRECHNUNG_" & FirmaID,,, row.Item("RechnungsKundenNr"), , , FilialenNr, AbfertigungsNr) API.api_EMail = EMails @@ -429,6 +591,23 @@ Public Class cAutomailversand If Mail IsNot Nothing Then API.UPDTAE_OK() + + If RECHNUNG IsNot Nothing Then ' EINZELRECHNUNG + RECHNUNG.Automailversand_sent = Now() + RECHNUNG.SAVE() + + Else + ' 'Bei erfolg. SAMMELRECHNUNG SENT-STATUS setzen + sql.doSQL("update Rechnungsausgang set Automailversand_sent = getDate() where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "' + And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0 And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4 And Automailversand_sent is null", "FMZOLL") + + End If + + '---------------------TODO ! ---------------------------- + createMailFISKAL(SPEDBUCH, FISKAL, True, FirmaID, row.Item("RechnungsKundenNr"), row.Item("RechnungsLandKz")) + '---------------------TODO ! ---------------------------- + + mailcreated = True Else @@ -446,74 +625,47 @@ Public Class cAutomailversand If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then API.UPDTAE_OK() + + If RECHNUNG IsNot Nothing Then + RECHNUNG.Automailversand_sent = Now() + RECHNUNG.SAVE() + + Else + sql.doSQL("update Rechnungsausgang set Automailversand_sent = getDate() where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "' + And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0 And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4 And Automailversand_sent is null", "FMZOLL") + End If + + '---------------------TODO ! ---------------------------- + createMailFISKAL(SPEDBUCH, FISKAL, False, FirmaID, row.Item("RechnungsKundenNr"), row.Item("RechnungsLandKz")) + '---------------------TODO ! ---------------------------- + mailcreated = True Else API.UPDTAE_ERR() - sql.doSQL("update Rechnungsausgang set Status = 2 where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "' + + 'Bei FEHLER EINZELRECHNUNG VON STATUS 4 auf 2 zurücksetzen! + + If RECHNUNG IsNot Nothing Then + RECHNUNG.Automailversand_sent = Nothing + RECHNUNG.Status = 2 + RECHNUNG.SAVE() + Else + 'Bei FEHLER SAMMELRECHNUNG VON STATUS 4 auf 2 zurücksetzen! + sql.doSQL("update Rechnungsausgang set Status = 2, Automailversand_sent = NULL where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "' And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0 And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4", "FMZOLL") + End If Return mailcreated End If - - End If Return mailcreated End Function - Function getSammelRgTExt(RechnungsLandKz, FIRMA_ID) As String - - If RechnungsLandKz = "" Then - - getSammelRgTExt = "Sehr geehrte Damen und Herren,
" - getSammelRgTExt &= "Dear Ladies and Gentlemen,
" - getSammelRgTExt &= "Sayin Bayanlar ve Baylar,
" - getSammelRgTExt &= "
" - getSammelRgTExt &= "im Anhang senden wir Ihnen die o.g. Rechnung.
" - getSammelRgTExt &= "attached we send you the invoice mentioned above.
" - getSammelRgTExt &= "ekte baslikta yazan faturayi bulabilirsinz.
" - getSammelRgTExt &= "
" - getSammelRgTExt &= "


Mit freundlichen Grüßen / Best regards / Saygilarimizla

VERAG Spedition AG

" & cFakturierung.getSignature(RechnungsLandKz, FIRMA_ID) - Return "
" & getSammelRgTExt & "
" - End If - - - - getSammelRgTExt = "
" & getSammelRgTExt & "
" - End Function - - Function getSelectionLandKz(dt As DataTable) As String - getSelectionLandKz = "" - If dt.Rows.Count > 0 Then - - If dt.Rows.Count > 0 Then - - For Each r As DataRow In dt.Rows - - If Not IsDBNull(r("RechnungsLandKz")) Then - - Dim landKz As String = r("RechnungsLandKz").ToString() - - If getSelectionLandKz = "" Then - getSelectionLandKz = landKz - ElseIf getSelectionLandKz <> landKz Then - Return "" - End If - - End If - - Next - - End If - End If - - - End Function - Private Function setAccountToSend(FIRMA_ID) As String Dim accountToSend = "" @@ -589,4 +741,306 @@ Public Class cAutomailversand End Function + + Public Shared Function automRechnungsversand_deaktivieren(Optional isEinzelrechnung As Boolean = False) + + Dim RE_Text = "" + + If isEinzelrechnung Then + RE_Text = "diese Rechnung" + Else + RE_Text = "alle markieren Rechnungen" + End If + + If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand deaktivieren?" & vbNewLine & "Die Rechnungen müssen dann manuell per Mail verschickt werden!", vbYesNoCancel) Then + Return True + Else + Return False + End If + End Function + + Public Shared Function automRechnungsversand_aktivieren(Optional isEinzelrechnung As Boolean = False) + + Dim RE_Text = "" + + If isEinzelrechnung Then + RE_Text = "diese Rechnung" + Else + RE_Text = "alle markieren Rechnungen" + End If + + If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then + Return True + Else + Return False + End If + End Function + + Public Shared Function automRechnungsversand_durchführen(Optional isEinzelrechnung As Boolean = False) + + Dim RE_Text = "" + + If isEinzelrechnung Then + RE_Text = "diese Rechnung" + Else + RE_Text = "alle markieren Rechnungen" + End If + + If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand JETZT durchführen?" & vbNewLine & "Ansonsten werden sie im Nachtlauf automatisch versendet!", vbYesNoCancel) Then + Return True + Else + Return False + End If + End Function + + Private Sub replaceKZ(KZ As String, ByRef TextHTML As String) + + If TextHTML = "" Then Exit Sub + + Dim index_start As Integer = TextHTML.ToString.IndexOf("%" & KZ & ":") + If index_start < 0 Then Exit Sub + Dim txtKZ = TextHTML.ToString.Substring(index_start) + Dim index_end As Integer = txtKZ.ToString.IndexOf("%", 1) + + If index_start <= 0 AndAlso index_end <= 0 Then + Exit Sub + End If + + Dim txtKZ_replace As String = TextHTML.ToString.Substring(index_start, index_end) + TextHTML = TextHTML.ToString.Replace(txtKZ_replace, "") + + + End Sub + + + Private Function createMailFISKAL(SPEDBUCH As cSpeditionsbuch, FISKAL As cFiskal_Daten, showMail As Boolean, FirmaID As Integer, kundenNr As Integer, RechnungsLandKz As String) As Boolean + + Dim MailSteuerberater As String = "" + Dim MailFA As String = "" + + Dim MailSteuerberater_do As Boolean = False + Dim MailFA_do As Boolean = False + + Dim Subject As String = "" + Dim TextHTML As String = "" + + Dim MailTo As String = "" + Dim MailCC As String = "" + + If FISKAL IsNot Nothing AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart IsNot Nothing AndAlso IsNumeric(SPEDBUCH.Abfertigungsart) AndAlso (SPEDBUCH.Abfertigungsart = 26 Or SPEDBUCH.Abfertigungsart = 28) AndAlso (SPEDBUCH.FilialenNr = 4805 Or SPEDBUCH.FilialenNr = 4811) Then 'Prüfung + MailSteuerberater_do = (If(FISKAL.fisk_schreibenSB_Mail, "") <> "") + MailSteuerberater = If(FISKAL.fisk_schreibenSB_Mail, "") + MailFA_do = (If(FISKAL.fisk_schreibenFA_Mail, "") <> "") + MailFA = If(FISKAL.fisk_schreibenFA_Mail, "") + End If + + + + If MailSteuerberater_do Or MailFA_do Then + + If MailSteuerberater <> "" Then + MailTo = MailSteuerberater + MailCC = MailFA + Else + MailTo = MailFA + End If + + Dim AD As New cAdressen(kundenNr) + Dim KD As New cKunde(kundenNr) + Dim Sprache As String = "EN" + Dim attachList As New List(Of String) + + Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff + + Select Case RechnungsLandKz + Case "A", "AT", "D", "DE", "CH" : Sprache = "DE" + End Select + + Select Case Sprache + Case "DE" + + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "
EORI-Nr.:" & If(KD.EORITIN, "") & "
UID-Nr.:" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "
Firma:" & If(AD.Name_1, "") & If(AD.Name_2, "") & "
" & If(AD.Straße, "") & "
" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "
" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Sehr geehrte Damen & Herren!" & "
" + TextHTML &= "
" + TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "
" + TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "
" + TextHTML &= "
" + TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "
" + TextHTML &= "

" + TextHTML &= "Freundliche Grüße" + TextHTML &= "

" + + Case "EN" + + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "
EORI-Nr.:" & If(KD.EORITIN, "") & "
VAT-ID.:" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "
Company:" & If(AD.Name_1, "") & If(AD.Name_2, "") & "
" & If(AD.Straße, "") & "
" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "
" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Dear Sir or Madam!" & "
" + TextHTML &= "
" + TextHTML &= "We would like to inform you, that we made the customs clearance and subsequent intra-community supply of goods for the company above-mentioned (Code 4200).
" + TextHTML &= "The documents are attached." & "
" + TextHTML &= "
" + TextHTML &= "This intra-community acquisition has to be reported to the tax office." & "
" + TextHTML &= "

" + TextHTML &= "Yours faithfully," + TextHTML &= "

" + + End Select + + + + If showMail Then + + Dim outl As New Outlook.Application + Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem + Mail_StbFA = outl.CreateItem(0) + Mail_StbFA.Subject = Subject + + If FirmaID = 24 Then Mail_StbFA.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR",, True) + + + TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID,,,, "") + TextHTML &= "" + + Mail_StbFA.HTMLBody = TextHTML + + + Mail_StbFA.To = MailTo + Mail_StbFA.CC = MailCC + + ''----------------------------------------------------------------- + ''Steuerbescheid anfügen + ''----------------------------------------------------------------- + 'getAnhaenge(False) + + ''Anhang an Mail anfügen + ''----------------------------------------------------------------- + 'addAttachments(Mail_StbFA, RechnungsNr, cbxMergePDF.Checked) + ''----------------------------------------------------------------- + + + Mail_StbFA.Display() + + Else + Dim accountToSend = setAccountToSend(FirmaID) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) + + ''----------------------------------------------------------------- + ''Steuerbescheid anfügen + ''----------------------------------------------------------------- + 'getAnhaenge(False) + + ''Anhang an Mail anfügen + ''----------------------------------------------------------------- + 'addAttachments(Mail_StbFA, RechnungsNr, cbxMergePDF.Checked) + ''----------------------------------------------------------------- + + + End If + + + + + + End If + + + + + + + + + + End Function + + Private Function setEmpfaengerMail_ER(SPEDBUCH As cSpeditionsbuch, AD As cAdressen, EMAILTMP As String, EMAILTMPCC As String, EMAILTMPBCC As String, email_receipt As String) + + + If SPEDBUCH IsNot Nothing Then + Dim IMPEXP = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(IMEX,'')", "Aviso", "AvisoId='" & SPEDBUCH.AvisoID & "'", "AVISO") + Select Case IMPEXP + Case "IMPORT" + If VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an IMPORT") <> "" Then + EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an IMPORT"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an") + + EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an IMPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + + EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an IMPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + + End If + Case "EXPORT" + If VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an EXPORT") <> "" Then + EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an EXPORT"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an") + + EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an EXPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + + EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an EXPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + + End If + End Select + End If + + + 'wenn leere Mailadressen, dann Standardadresse holen + If EMAILTMP = "" And EMAILTMPCC = "" And EMAILTMPBCC = "" Then + EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an") + + EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + + EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + + + End If + + End Function + + Private Function setEmpfaengerMail_SR(SR_DT As DataTable, AD As cAdressen, EMAILTMP As String, EMAILTMPCC As String, EMAILTMPBCC As String, FirmaID As Integer, SammelrechungArt As String) + + If SammelrechungArt <> 6 Then + + + Dim email_receipt As String = "" + + Dim allAtilla = IIf(FirmaID = 7, True, False) + If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then + For Each r In SR_DT.Rows + If "4801" <> r("FilialenNr") And "4802" <> r("FilialenNr") Then + allAtilla = False + Exit For + End If + Next + End If + + email_receipt = IIf(allAtilla, VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)"), "") + + EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an") + EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)")) + + Else + + If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then EMAILTMP &= AD.E_Mail & ";" + If AD.E_Mail2 IsNot Nothing AndAlso AD.E_Mail2 <> "" Then EMAILTMP &= AD.E_Mail2 & ";" + + + End If + + End Function + + End Class diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index a36a2496..4e5fa6cc 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -794,6 +794,8 @@ Public Class cFakturierung rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim rpt.txtBank3.Visible = True + rpt.txtBank2.Visible = False 'soll beim AMBAR ausgeblendet werden (Laut I.Ordu am 27.03.2026) + 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim @@ -1013,6 +1015,8 @@ Public Class cFakturierung rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim rpt.txtBank3.Visible = True + rpt.txtBank2.Visible = False 'soll beim AMBAR ausgeblendet werden (Laut I.Ordu am 27.03.2026) + 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim @@ -1122,6 +1126,9 @@ Public Class cFakturierung rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") + + rpt.txtBank2.Visible = False 'soll beim AMBAR ausgeblendet werden (Laut I.Ordu am 27.03.2026) + Case 20 '"IMEX" If RechnungsLandKz = "TR" Then ' rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" @@ -4851,7 +4858,7 @@ Public Class cFakturierung Dim ROW As DataRow = IIf(dt.Rows.Count > 0, dt.Rows(0), Nothing) - Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status")) + Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"), ROW("Firma_ID")) Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID")) Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) @@ -5749,7 +5756,7 @@ Public Class cFakturierung Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(firmaID) Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) - Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status")) + Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"), firmaID) If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False @@ -6211,10 +6218,12 @@ Public Class cFakturierung Return "" End Function - Shared Function checkIfMDMSammelrechnung(Rechnungsdruck As Integer, Status As Integer) + Shared Function checkIfMDMSammelrechnung(Rechnungsdruck As Integer, Status As Integer, Firma_ID As Integer) 'If (Rechnungsdruck = 7 OrElse Rechnungsdruck = 4 AndAlso (Status = 2 Or Status = 4)) Then Return True + If Firma_ID <> 19 Then Return False + If (Rechnungsdruck = 7 OrElse Rechnungsdruck = 8 OrElse Rechnungsdruck = 4 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 3 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 2 AndAlso (Status = 2 Or Status = 4)) Then Return True Return False diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb index 39e431b4..4283c005 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb @@ -88,6 +88,7 @@ Partial Class frmAbrechnungsMaske Me.btnVonJahr = New System.Windows.Forms.Button() Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.btn_doMailAutoversand = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() @@ -200,6 +201,7 @@ Partial Class frmAbrechnungsMaske 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.White + Me.Panel2.Controls.Add(Me.btn_doMailAutoversand) Me.Panel2.Controls.Add(Me.Button11) Me.Panel2.Controls.Add(Me.cbxOriginalDrucken) Me.Panel2.Controls.Add(Me.cboSort) @@ -231,7 +233,7 @@ Partial Class frmAbrechnungsMaske Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button11.Location = New System.Drawing.Point(220, 21) + Me.Button11.Location = New System.Drawing.Point(214, 21) Me.Button11.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button11.Name = "Button11" Me.Button11.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) @@ -269,9 +271,9 @@ Partial Class frmAbrechnungsMaske Me.cboPrinter._value = "" Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboPrinter.FormattingEnabled = True - Me.cboPrinter.Location = New System.Drawing.Point(142, 52) + Me.cboPrinter.Location = New System.Drawing.Point(133, 52) Me.cboPrinter.Name = "cboPrinter" - Me.cboPrinter.Size = New System.Drawing.Size(157, 21) + Me.cboPrinter.Size = New System.Drawing.Size(200, 21) Me.cboPrinter.TabIndex = 25 ' 'Button9 @@ -280,7 +282,7 @@ Partial Class frmAbrechnungsMaske Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(142, 21) + Me.Button9.Location = New System.Drawing.Point(136, 21) Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button9.Name = "Button9" Me.Button9.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) @@ -295,7 +297,7 @@ Partial Class frmAbrechnungsMaske Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(181, 21) + Me.Button8.Location = New System.Drawing.Point(175, 21) Me.Button8.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button8.Name = "Button8" Me.Button8.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) @@ -310,7 +312,7 @@ Partial Class frmAbrechnungsMaske Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(259, 21) + Me.Button7.Location = New System.Drawing.Point(253, 21) Me.Button7.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button7.Name = "Button7" Me.Button7.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) @@ -347,7 +349,7 @@ Partial Class frmAbrechnungsMaske Me.btnWiederholeRgDruck.BackgroundImage = Global.SDL.My.Resources.Resources.print_rg Me.btnWiederholeRgDruck.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnWiederholeRgDruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWiederholeRgDruck.Location = New System.Drawing.Point(388, 9) + Me.btnWiederholeRgDruck.Location = New System.Drawing.Point(406, 9) Me.btnWiederholeRgDruck.Name = "btnWiederholeRgDruck" Me.btnWiederholeRgDruck.Size = New System.Drawing.Size(53, 36) Me.btnWiederholeRgDruck.TabIndex = 11 @@ -356,7 +358,7 @@ Partial Class frmAbrechnungsMaske 'Label4 ' Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label4.Location = New System.Drawing.Point(381, 46) + Me.Label4.Location = New System.Drawing.Point(399, 46) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(67, 26) Me.Label4.TabIndex = 12 @@ -391,7 +393,7 @@ Partial Class frmAbrechnungsMaske Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.moneybag1 Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(329, 9) + Me.Button3.Location = New System.Drawing.Point(347, 9) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(53, 36) Me.Button3.TabIndex = 9 @@ -400,7 +402,7 @@ Partial Class frmAbrechnungsMaske 'Label3 ' Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label3.Location = New System.Drawing.Point(326, 46) + Me.Label3.Location = New System.Drawing.Point(344, 46) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(56, 26) Me.Label3.TabIndex = 10 @@ -974,6 +976,21 @@ Partial Class frmAbrechnungsMaske Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' + 'btn_doMailAutoversand + ' + Me.btn_doMailAutoversand.BackgroundImage = Global.SDL.My.Resources.Resources.zauberstab + Me.btn_doMailAutoversand.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn_doMailAutoversand.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_doMailAutoversand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btn_doMailAutoversand.Location = New System.Drawing.Point(293, 21) + Me.btn_doMailAutoversand.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.btn_doMailAutoversand.Name = "btn_doMailAutoversand" + Me.btn_doMailAutoversand.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.btn_doMailAutoversand.Size = New System.Drawing.Size(40, 25) + Me.btn_doMailAutoversand.TabIndex = 29 + Me.btn_doMailAutoversand.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btn_doMailAutoversand.UseVisualStyleBackColor = True + ' 'frmAbrechnungsMaske ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1067,4 +1084,5 @@ Partial Class frmAbrechnungsMaske Friend WithEvents PictureBox5 As PictureBox Friend WithEvents lblKunde As Label Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents btn_doMailAutoversand As Button End Class diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 8447081c..60dd8c41 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -1,5 +1,8 @@ Imports System.IO +Imports com.sun.tools.javac.comp Imports Microsoft.Office.Interop +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class frmAbrechnungsMaske Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -38,6 +41,7 @@ Public Class frmAbrechnungsMaske cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FAX", "1")) cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-MAIL", "2")) cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL+KOPIE", "5")) + cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AUTO-MAIL", "6")) cboRechnungsdruck.changeItem("") cboSort.Items.Clear() @@ -181,7 +185,11 @@ Public Class frmAbrechnungsMaske Dim dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview = getDGV() Dim reNrSQL As String = "" - If cbx.Checked Then reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, " + If cbx.Checked Then + reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr,cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, " + Else + reNrSQL = " cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, " + End If With dgv @@ -221,25 +229,37 @@ Public Class frmAbrechnungsMaske .Columns("BelegartenKz").Visible = False .Columns("PosNr").HeaderText = "Pos-Nr." - If cbx.Checked Then .Columns("ReNr").HeaderText = "ReNr." - - .Columns("UnterNr").Width = 35 - .Columns("Art").Width = 30 - .Columns("Betrag").Width = 100 - .Columns("Rechnungsempfänger").MinimumWidth = 150 - .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - - If Not cbxGutschriftenAnVerag.Checked Then - .Columns("Rechnungsdruck").Width = 60 - .Columns("Rechnungsdruck").HeaderText = "Rg.Art" - .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + If .Columns.Contains("ReNr") Then + .Columns("ReNr").HeaderText = "ReNr." End If + If .Columns.Contains("AUTO_sent") Then + .Columns("AUTO_sent").HeaderText = "gesen." + .Columns("AUTO_sent").Width = 40 + If cboRechnungsdruck._value <> "6" Then + .Columns("AUTO_sent").Visible = False + Else + .Columns("AUTO_sent").Visible = True + End If + End If - .Columns("Betrag").DefaultCellStyle.Format = "C2" - End If + .Columns("UnterNr").Width = 35 + .Columns("Art").Width = 30 + .Columns("Betrag").Width = 100 + .Columns("Rechnungsempfänger").MinimumWidth = 150 + .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then + If Not cbxGutschriftenAnVerag.Checked Then + .Columns("Rechnungsdruck").Width = 60 + .Columns("Rechnungsdruck").HeaderText = "Rg.Art" + .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + End If + + + .Columns("Betrag").DefaultCellStyle.Format = "C2" + End If + + If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then For Each r In .Rows @@ -269,15 +289,19 @@ Public Class frmAbrechnungsMaske Function getRGWhere(filterSR As String, Optional filialenNr As Integer = -1) Dim sqlstr = "" Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + + Dim enableAUTOMAIL As Boolean = True + Dim enableAUTOMAIL_BTN As Boolean = False + srchSB = cboSachbearbeiter._value If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = 24 Then Return sqlstr Select Case filterSR Case "ER" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (0) " - Case "SR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (0,6) " - Case "MSR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (6) " - Case Else : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (6) " + Case "SR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (0,6) " : enableAUTOMAIL = False + Case "MSR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (6) " : enableAUTOMAIL = False + Case Else : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (6) " : enableAUTOMAIL = False End Select @@ -287,6 +311,7 @@ Public Class frmAbrechnungsMaske If cbx.Checked Then + enableAUTOMAIL = False 'sqlstr &= " AND Status = 0 " sqlstr &= " AND DruckDatumZeit BETWEEN '" & txtAbfertDat._value & " 00:00:00' AND '" & txtAbfertDatBis._value & " 23:59:59'" sqlstr &= IIf(filterSR = "MSR", " And (Status = 4)", "") @@ -303,14 +328,22 @@ Public Class frmAbrechnungsMaske End If If cboRechnungsdruck._value <> "" Then - sqlstr &= " And Rechnungsdruck='" & cboRechnungsdruck._value & "' " + Select Case cboRechnungsdruck._value + Case 6 : sqlstr &= " And isnull(Automailversand,0)=1 " : enableAUTOMAIL_BTN = True + Case 2, 5 : sqlstr &= " And Rechnungsdruck='" & cboRechnungsdruck._value & "' " + Case Else + sqlstr &= " And Rechnungsdruck='" & cboRechnungsdruck._value & "' " : enableAUTOMAIL = False + End Select + Else + enableAUTOMAIL = False End If If srchSB <> "" Then sqlstr &= " And Rechnungsausgang.Sachbearbeiter='" & srchSB & "' " If cboFirma._value <> "" Then sqlstr &= " AND Rechnungsausgang.Firma_ID=" & cboFirma._value & " " If KdSearchBox1.KdNr_value > 0 Then sqlstr &= " AND Rechnungsausgang.RechnungsKundenNr=" & KdSearchBox1.KdNr_value & " " - + UsrCntlFaktAbrechnung1.cbxAUTOMailversand.Enabled = enableAUTOMAIL + btn_doMailAutoversand.Visible = enableAUTOMAIL_BTN AndAlso enableAUTOMAIL ' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)" Return sqlstr @@ -930,4 +963,29 @@ Public Class frmAbrechnungsMaske Process.Start(webAddress) End Sub + Private Sub btn_doMailAutoversand_Click(sender As Object, e As EventArgs) Handles btn_doMailAutoversand.Click + + + If dgvRechnungen.SelectedRows.Count > 0 Then + + If Not cAutomailversand.automRechnungsversand_durchführen Then Exit Sub + + Dim ListOfRK_ID As New List(Of Integer) + + For Each row As DataGridViewRow In dgvRechnungen.SelectedRows + + If Not IsDBNull(row.Cells("RK_ID").Value) AndAlso IsNumeric(row.Cells("RK_ID").Value) Then + ListOfRK_ID.Add(CInt(row.Cells("RK_ID").Value)) + End If + + Next + + Dim fun As New cAutomailversand + fun.sendMailEinzelrechnungen(cboFirma._value, Today(), cboSachbearbeiter._value, ListOfRK_ID) + initDGV() + + End If + + + End Sub End Class \ No newline at end of file diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 11875af0..97089548 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -723,11 +723,6 @@ Public Class frmFaktEmail Exit Sub End If - 'If Not RECHNUNG.checkRechnungsNrIsSet() Then - ' MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") - ' Exit Sub - 'End If - RechnungsNr = RECHNUNG.RechnungsNr If cbxRgKopieDrucken.Checked Then diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 39617ca5..e4ea1ba7 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -665,7 +665,7 @@ Public Class frmFaktSammelRgDrucken Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click If MyDatagridview1.SelectedRows.Count > 0 Then - If vbYes = MsgBox("Möchten Sie alle markieren Rechnungen den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then + If cAutomailversand.automRechnungsversand_aktivieren() Then Dim noRENRExisting As Boolean = False @@ -727,7 +727,8 @@ Public Class frmFaktSammelRgDrucken Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click If MyDatagridview1.SelectedRows.Count > 0 Then - If vbYes = MsgBox("Möchten Sie für alle markieren Rechnungen den automatischen Emailversand deaktiveren?" & vbNewLine & "Die Rechnungen müssen dann manuell per Mail verschickt werden!", vbYesNoCancel) Then + + If cAutomailversand.automRechnungsversand_deaktivieren() Then 'setMailversand(false, Firma, Sammelrechung, 2) setMailversand_ALL(False, Firma, Sammelrechung, 2) @@ -735,6 +736,7 @@ Public Class frmFaktSammelRgDrucken End If End If + End Sub Private Function setMailversand(Mailversand As Boolean, FirmaID As Integer, Sammelrechnung As Integer, Status As Integer) As Boolean @@ -895,6 +897,30 @@ Public Class frmFaktSammelRgDrucken End If + End Sub + + Private Sub mnuItem_Clicked(sender As Object, e As EventArgs) + + + ContextMenuStrip1.Hide() + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + + If item IsNot Nothing Then + + If item.Name <> "" AndAlso IsNumeric(item.Name) Then + + Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name) + f.Show(Me) + + + End If + + Else + MsgBox("Funktion nicht implementiert!") + End If + + + End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click @@ -909,10 +935,10 @@ Public Class frmFaktSammelRgDrucken If MyDatagridview1.SelectedRows.Count > 0 Then - If Not vbYes = MsgBox("Möchten Sie für alle markieren Rechnungen den automatischen Emailversand JETZT durchführen?" & vbNewLine & "Ansonsten werden sie im Nachtlauf automatisch versendet!", vbYesNoCancel) Then Exit Sub + If Not cAutomailversand.automRechnungsversand_durchführen Then Exit Sub - Dim fun As New cAutomailversand For Each r In MyDatagridview1.SelectedRows + Dim fun As New cAutomailversand fun.sendMailSammelrechnung(CDate(txtRechnungsdatum.Text), Sammelrechung, Firma, r.Cells("RechnungsKundenNr").Value, cbxMailoeffnen.Checked) Next @@ -923,9 +949,7 @@ Public Class frmFaktSammelRgDrucken End Sub - Private Sub mnuItem_Clicked(sender As Object, e As EventArgs) - End Sub Private Sub btnNurAbf_Click(sender As Object, e As EventArgs) Handles btnNurImport.Click, btnNurExport.Click diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 1b3119dd..ba6c7c42 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1,7 +1,4 @@ -Imports System.Data.SqlClient -Imports System.IO -Imports System.Web.UI.WebControls.Expressions -Imports com.sun.xml.internal.rngom +Imports System.Web.UI.WebControls.Expressions Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlFaktAbrechnung @@ -348,6 +345,7 @@ Public Class usrCntlFaktAbrechnung Button2.Enabled = (RECHNUNG.Status = 0) btnOK.Enabled = (RECHNUNG.Status = 0) + If RECHNUNG.Status <> 0 Then cbxAUTOMailversand.Enabled = False 'RECHNUNG.OffertenNr = OfferteNrTmp ' RECHNUNG.OffertenNr = OfferteNrTmp @@ -3513,6 +3511,43 @@ Public Class usrCntlFaktAbrechnung If Not checkUIDNR() Then Exit Sub + If RECHNUNG.Sammelrechnung = 0 Then 'nur bei ER + If cbxAUTOMailversand.Checked AndAlso Not RECHNUNG.Automailversand Then + If cAutomailversand.automRechnungsversand_aktivieren(RECHNUNG.Sammelrechnung = 0) Then + + If RECHNUNG.RechnungsDatum Is Nothing Then + + 'LAUT AUSSAGE VON VERR. IMMER HEUTIGES DATUM! + RECHNUNG.RechnungsDatum = Today() + 'If Not cFakturierung.getRgDatInput("", RECHNUNG.[RechnungsDatum]) Then 'Now.ToShortDateString + ' cbxAUTOMailversand.Checked = False + ' Exit Sub + 'End If + End If + + RECHNUNG.Automailversand = True + + Else + cbxAUTOMailversand.Checked = False + End If + + ElseIf Not cbxAUTOMailversand.Checked AndAlso RECHNUNG.Automailversand Then + If cAutomailversand.automRechnungsversand_deaktivieren(RECHNUNG.Sammelrechnung = 0) Then + + If Not RECHNUNG.RechnungsDatum Is Nothing Then + RECHNUNG.RechnungsDatum = Nothing + End If + + + RECHNUNG.Automailversand = False + Else + cbxAUTOMailversand.Checked = True + End If + + End If + End If + + saveMe() End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index 059eaa1e..82e4b4e6 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -119,10 +119,10 @@ Public Class cRechnungsausgang Property TextZZ As Object = Nothing Property ForceSteuerschlüssel As Object = Nothing Property Automailversand As Boolean = False - Property Rechnungsart As String = "RG" ' RG=Rechnung; RU=Rechnung Unvollständig; RK=RechnungKopf -> bei unvollständiger Rechnung ein Kopf benötigt (zB Staffelabrechnung) - Property Vorlageprovision_Mindestbetrag As Object = Nothing + Property Automailversand_sent As Object = Nothing + Property dsId As Object = Nothing @@ -371,6 +371,7 @@ Public Class cRechnungsausgang list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsart", Rechnungsart)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision_Mindestbetrag", Vorlageprovision_Mindestbetrag)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dsId", dsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Automailversand_sent", Automailversand_sent)) Return list End Function From 438e1c2a1ae9345e02181015ad0f7af034b568ff Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Apr 2026 10:11:21 +0200 Subject: [PATCH 2/3] Verwahrung, Mitarbeiter, Fakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 24 +++++++------- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 6 ++++ SDL/kassenbuch/frmBelegNeu.Designer.vb | 33 ++++++++++--------- VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb | 21 ++++++++++-- .../Creditsafe/cCreditSafeAPI.vb | 8 ++--- 5 files changed, 58 insertions(+), 34 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 4e5fa6cc..1fda4478 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1978,9 +1978,9 @@ Public Class cFakturierung End If End If If Rechnung.ANHAENGE.Count > 0 AndAlso Not (Rechnung.Firma_ID = 1 Or Rechnung.Firma_ID = 20) Then - If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(Rechnung) - End If + 'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + ' printRGAnhaenge(Rechnung) + 'End If End If Return ret @@ -2038,9 +2038,9 @@ Public Class cFakturierung End If If Rechnung.ANHAENGE.Count > 0 Then 'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! - If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(Rechnung) - End If + 'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + ' printRGAnhaenge(Rechnung) + 'End If End If End If @@ -2924,9 +2924,9 @@ Public Class cFakturierung End If End If If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(RECHNUNG) - End If + 'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + ' printRGAnhaenge(RECHNUNG) + 'End If End If Return ret @@ -2977,9 +2977,9 @@ Public Class cFakturierung End If If RECHNUNG.ANHAENGE.Count > 0 Then 'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(RECHNUNG) - End If + 'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + ' printRGAnhaenge(RECHNUNG) + 'End If End If End If diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index e4ea1ba7..50467d63 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -235,6 +235,12 @@ Public Class frmFaktSammelRgDrucken .Columns("LKW").Width = 80 End If + If Sammelrechung = 7 Then + .Columns("AvisoId").Visible = True + Else + .Columns("AvisoId").Visible = False + End If + If .Columns.Contains("RechnungsLandKz") AndAlso Sammelrechung = 6 Then .Columns("RechnungsLandKz").Visible = True End If diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 18d4db94..0e6fdd83 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb @@ -71,7 +71,6 @@ Partial Class frmBelegNeu Me.btnAusgabebeleg = New System.Windows.Forms.Button() Me.lblErrPos = New System.Windows.Forms.Label() Me.pnlData = New System.Windows.Forms.Panel() - Me.Button4 = New System.Windows.Forms.Button() Me.cboBuchungsoforterzeugen = New System.Windows.Forms.CheckBox() Me.lblErr_Fahrer = New System.Windows.Forms.Label() Me.lblErr_Pass = New System.Windows.Forms.Label() @@ -102,6 +101,7 @@ Partial Class frmBelegNeu Me.Label1 = New System.Windows.Forms.Label() Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.pnlOPt = New System.Windows.Forms.Panel() + Me.Button4 = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxBelegOffnen = New System.Windows.Forms.CheckBox() @@ -693,24 +693,10 @@ Partial Class frmBelegNeu Me.pnlData.Size = New System.Drawing.Size(624, 208) Me.pnlData.TabIndex = 5 ' - 'Button4 - ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.ForeColor = System.Drawing.Color.Black - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(120, 38) - Me.Button4.Name = "Button4" - Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) - Me.Button4.Size = New System.Drawing.Size(51, 21) - Me.Button4.TabIndex = 49 - Me.Button4.Text = "TEST" - Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.UseVisualStyleBackColor = True - Me.Button4.Visible = False - ' 'cboBuchungsoforterzeugen ' Me.cboBuchungsoforterzeugen.AutoSize = True + Me.cboBuchungsoforterzeugen.Enabled = False Me.cboBuchungsoforterzeugen.Location = New System.Drawing.Point(9, 185) Me.cboBuchungsoforterzeugen.Name = "cboBuchungsoforterzeugen" Me.cboBuchungsoforterzeugen.Size = New System.Drawing.Size(145, 17) @@ -1259,6 +1245,21 @@ Partial Class frmBelegNeu Me.pnlOPt.Size = New System.Drawing.Size(624, 96) Me.pnlOPt.TabIndex = 6 ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.Black + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(120, 38) + Me.Button4.Name = "Button4" + Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) + Me.Button4.Size = New System.Drawing.Size(51, 21) + Me.Button4.TabIndex = 49 + Me.Button4.Text = "TEST" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True + Me.Button4.Visible = False + ' 'LinkLabel1 ' Me.LinkLabel1.AutoSize = True diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 64c9f979..9301f2ec 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -103,8 +103,7 @@ Public Class cMitarbeiter Property mit_SchalterID As Object = Nothing Property mit_Funktion As Object = Nothing Property mit_terminalTimasId As Object = Nothing 'externe ID von TIMAS - - + Property mit_EMailbenachrichtigungen As Object = Nothing Dim SQL As New SQL @@ -224,6 +223,7 @@ Public Class cMitarbeiter list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_terminalTimasId", mit_terminalTimasId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EMailbenachrichtigungen", mit_EMailbenachrichtigungen)) @@ -436,6 +436,7 @@ Public Class cMitarbeiter If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID") If Not dr.Item("mit_Funktion") Is DBNull.Value Then Me.mit_Funktion = dr.Item("mit_Funktion") If Not dr.Item("mit_terminalTimasId") Is DBNull.Value Then Me.mit_terminalTimasId = dr.Item("mit_terminalTimasId") + If Not dr.Item("mit_EMailbenachrichtigungen") Is DBNull.Value Then Me.mit_EMailbenachrichtigungen = dr.Item("mit_EMailbenachrichtigungen") Catch ex As Exception @@ -488,4 +489,20 @@ Public Class cMitarbeiter Return Value End Function + + Public Shared Function GetEMailRecipientForEmailNotification(NotificationObject As String, Optional Firma_ID As Integer = -1) As String + Dim dt As New DataTable + Dim mailString As String = "" + dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select distinct(m.mit_email) FROM ADMIN.dbo.tblMitarbeiter m CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s + Join ADMIN.dbo.tblEMailbenachrichtigungen e On TRY_CAST(s.value AS INT) = e.mb_id + WHERE e.mb_object = '" & NotificationObject & "' and isnull(m.mit_email,'') <> '' " & IIf(Firma_ID > 0, " AND e.mb_firmaID = " & Firma_ID & "", ""), "ADMIN") + + For Each r As DataRow In dt.Rows + If r.Item("mit_email") <> "" Then mailString &= r.Item("mit_email") & ";" + Next + + Return mailString + + End Function + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index 6381a086..42ae5653 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb @@ -647,10 +647,10 @@ Public Class cCreditSafeAPI Dim empfanegerMail As String = "" Select Case firma - Case "VERAG" : empfanegerMail = "as@verag.ag" - Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at" - 'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com" - 'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at" + Case "VERAG" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 1) + Case "IMEX" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20) + Case "AMBAR" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24) + Case "UNISPED" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21) End Select If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag" From 88151925fa45e27ebfbca8fd2ad3be0a7cda9783 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Apr 2026 16:27:02 +0200 Subject: [PATCH 3/3] Version, Mialbenachrichtungen, etc. --- .../frmFaktSammelRgDrucken.Designer.vb | 18 +- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 8 +- .../AuditFlow/frmAuditFlow.Designer.vb | 542 +++++----- .../AuditFlow/frmAuditFlow.vb | 2 + ...interneEmailbenachrichtigungen.Designer.vb | 296 ++++++ .../frminterneEmailbenachrichtigungen.resx | 983 ++++++++++++++++++ .../frminterneEmailbenachrichtigungen.vb | 127 +++ .../VERAG_PROG_ALLGEMEIN.vbproj | 9 + 8 files changed, 1707 insertions(+), 278 deletions(-) create mode 100644 VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.Designer.vb create mode 100644 VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.resx create mode 100644 VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.vb diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb index 2a71cda1..2f8d7479 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb @@ -73,6 +73,7 @@ Partial Class frmFaktSammelRgDrucken Me.btnKeine = New System.Windows.Forms.Button() Me.lblAbfertigungsarten = New System.Windows.Forms.Label() Me.btnNurExport = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.pnlAUTOMailversand.SuspendLayout() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -656,7 +657,7 @@ Partial Class frmFaktSammelRgDrucken Me.MyListBox1.Location = New System.Drawing.Point(836, 93) Me.MyListBox1.Name = "MyListBox1" Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.MyListBox1.Size = New System.Drawing.Size(225, 342) + Me.MyListBox1.Size = New System.Drawing.Size(225, 316) Me.MyListBox1.TabIndex = 44 ' 'btnKeine @@ -675,9 +676,9 @@ Partial Class frmFaktSammelRgDrucken Me.lblAbfertigungsarten.AutoSize = True Me.lblAbfertigungsarten.Location = New System.Drawing.Point(833, 77) Me.lblAbfertigungsarten.Name = "lblAbfertigungsarten" - Me.lblAbfertigungsarten.Size = New System.Drawing.Size(93, 13) + Me.lblAbfertigungsarten.Size = New System.Drawing.Size(97, 13) Me.lblAbfertigungsarten.TabIndex = 43 - Me.lblAbfertigungsarten.Text = "Abfertigungsarten:" + Me.lblAbfertigungsarten.Text = "*Abfertigungsarten:" ' 'btnNurExport ' @@ -690,12 +691,22 @@ Partial Class frmFaktSammelRgDrucken Me.btnNurExport.Text = "Export" Me.btnNurExport.UseVisualStyleBackColor = True ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(833, 412) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(234, 13) + Me.Label6.TabIndex = 49 + Me.Label6.Text = "*wenn nichts ausgewählt, keine Einschränkung!" + ' 'frmFaktSammelRgDrucken ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(1069, 472) + Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.btnNurExport) Me.Controls.Add(Me.btnNurImport) Me.Controls.Add(Me.MyListBox1) @@ -793,4 +804,5 @@ Partial Class frmFaktSammelRgDrucken Friend WithEvents btnKeine As Button Friend WithEvents lblAbfertigungsarten As Label Friend WithEvents btnNurExport As Button + Friend WithEvents Label6 As Label End Class diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 50467d63..069ae75f 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -147,7 +147,7 @@ Public Class frmFaktSammelRgDrucken sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, - MAX(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1], + MAX(Rechnungsausgang.[RechnungsName 1]) AS Firma, 0 AS AvisoId, MAX(Rechnungsausgang.[RechnungsLandKz]) AS [RechnungsLandKz], COUNT(*) AS Anzahl, @@ -183,7 +183,7 @@ Public Class frmFaktSammelRgDrucken SELECT min(Rechnungsausgang.RechnungsNr) as RENR, Rechnungsausgang.RechnungsKundenNr, - MAX(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1], + MAX(Rechnungsausgang.[RechnungsName 1]) AS Firma, " & If(Sammelrechung = 7, "AvisoId", "0") & " AS AvisoId, MAX(Rechnungsausgang.[RechnungsLandKz]) AS [RechnungsLandKz], COUNT(*) AS Anzahl, @@ -219,7 +219,7 @@ Public Class frmFaktSammelRgDrucken .LOAD() .Columns("RechnungsKundenNr").Width = 120 .Columns("RechnungsKundenNr").HeaderText = "KundenNr" - .Columns("RechnungsName 1").HeaderText = "Firma" + .Columns("Firma").Width = 200 .Columns("Summe").HeaderText = "Summe" .Columns("Summe").DefaultCellStyle.Format = "#,##0.00 €" .Columns("Summe").Width = 80 @@ -230,7 +230,7 @@ Public Class frmFaktSammelRgDrucken .Columns("Rechnungsdruck").HeaderText = "Rg.Art" .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns(2).Visible = False + '.Columns(2).Visible = False If .Columns.Contains("LKW") And .Columns.Count = 8 Then .Columns("LKW").Width = 80 End If diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.Designer.vb b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.Designer.vb index 9a4d1966..b2b1b57f 100644 --- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.Designer.vb @@ -33,22 +33,17 @@ Partial Class frmAuditFlow Me.pnlTop = New System.Windows.Forms.Panel() Me.Label4 = New System.Windows.Forms.Label() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.dgvPruefungsobjekte = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnloptions = New System.Windows.Forms.Panel() Me.lblAbDat = New System.Windows.Forms.Label() - Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button1 = New System.Windows.Forms.Button() Me.Label9 = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button2 = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() + Me.Button8 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() - Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() - Me.cboStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboNL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() @@ -56,14 +51,10 @@ Partial Class frmAuditFlow Me.Button11 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgvPruefungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnl = New System.Windows.Forms.Panel() Me.btnSuche = New System.Windows.Forms.Button() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.Label8 = New System.Windows.Forms.Label() - Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button7 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() @@ -77,20 +68,29 @@ Partial Class frmAuditFlow Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.Label13 = New System.Windows.Forms.Label() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() - Me.Button4 = New System.Windows.Forms.Button() - Me.Button8 = New System.Windows.Forms.Button() + Me.dgvPruefungsobjekte = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboNL = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvPruefungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cntxtOptionen.SuspendLayout() Me.pnlTop.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() - CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnloptions.SuspendLayout() Me.Panel2.SuspendLayout() Me.Panel3.SuspendLayout() - CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl.SuspendLayout() + CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'AbgeholtToolStripMenuItem @@ -163,29 +163,6 @@ Partial Class frmAuditFlow Me.SplitContainer1.SplitterDistance = 960 Me.SplitContainer1.TabIndex = 38 ' - 'dgvPruefungsobjekte - ' - Me.dgvPruefungsobjekte.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvPruefungsobjekte.AllowUserToAddRows = False - Me.dgvPruefungsobjekte.AllowUserToDeleteRows = False - Me.dgvPruefungsobjekte.AllowUserToOrderColumns = True - Me.dgvPruefungsobjekte.AllowUserToResizeRows = False - Me.dgvPruefungsobjekte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvPruefungsobjekte.DefaultCellStyle = DataGridViewCellStyle1 - Me.dgvPruefungsobjekte.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvPruefungsobjekte.Location = New System.Drawing.Point(0, 106) - Me.dgvPruefungsobjekte.Name = "dgvPruefungsobjekte" - Me.dgvPruefungsobjekte.RowHeadersVisible = False - Me.dgvPruefungsobjekte.Size = New System.Drawing.Size(960, 450) - Me.dgvPruefungsobjekte.TabIndex = 7 - ' 'pnloptions ' Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke @@ -210,30 +187,6 @@ Partial Class frmAuditFlow Me.lblAbDat.TabIndex = 142 Me.lblAbDat.Text = "ab Datum:" ' - 'txtWartungFaelligkeitAbDat - ' - Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" - Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True - Me.txtWartungFaelligkeitAbDat._Prozent = False - Me.txtWartungFaelligkeitAbDat._ShortDateNew = True - Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False - Me.txtWartungFaelligkeitAbDat._value = "" - Me.txtWartungFaelligkeitAbDat._Waehrung = False - Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True - Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red - Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(675, 52) - Me.txtWartungFaelligkeitAbDat.MaxLength = 10 - Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing - Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" - Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) - Me.txtWartungFaelligkeitAbDat.TabIndex = 143 - ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -260,33 +213,6 @@ Partial Class frmAuditFlow Me.Label9.TabIndex = 7 Me.Label9.Text = "Max:" ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyTextBox2.ForeColor = System.Drawing.Color.Black - Me.MyTextBox2.Location = New System.Drawing.Point(897, 52) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(48, 20) - Me.MyTextBox2.TabIndex = 8 - Me.MyTextBox2.Text = "1000" - Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -324,6 +250,34 @@ Partial Class frmAuditFlow Me.Panel2.Size = New System.Drawing.Size(960, 106) Me.Panel2.TabIndex = 8 ' + 'Button8 + ' + Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(780, 58) + Me.Button8.Margin = New System.Windows.Forms.Padding(0) + Me.Button8.Name = "Button8" + Me.Button8.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.Button8.Size = New System.Drawing.Size(164, 27) + Me.Button8.TabIndex = 33 + Me.Button8.Text = "Kategorien verwalten" + Me.Button8.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(780, 30) + Me.Button4.Margin = New System.Windows.Forms.Padding(0) + Me.Button4.Name = "Button4" + Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.Button4.Size = New System.Drawing.Size(164, 27) + Me.Button4.TabIndex = 32 + Me.Button4.Text = "Standorte verwalten" + Me.Button4.UseVisualStyleBackColor = True + ' 'Button3 ' Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -339,20 +293,6 @@ Partial Class frmAuditFlow Me.Button3.UseVisualStyleBackColor = True Me.Button3.Visible = False ' - 'cboKategorie - ' - Me.cboKategorie._allowedValuesFreiText = Nothing - Me.cboKategorie._allowFreiText = False - Me.cboKategorie._value = "" - Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboKategorie.FormattingEnabled = True - Me.cboKategorie.Location = New System.Drawing.Point(358, 7) - Me.cboKategorie.Name = "cboKategorie" - Me.cboKategorie.Size = New System.Drawing.Size(143, 24) - Me.cboKategorie.TabIndex = 30 - ' 'Label1 ' Me.Label1.AutoSize = True @@ -373,48 +313,6 @@ Partial Class frmAuditFlow Me.Label7.TabIndex = 28 Me.Label7.Text = "Standort:" ' - 'cboStandort - ' - Me.cboStandort._allowedValuesFreiText = Nothing - Me.cboStandort._allowFreiText = False - Me.cboStandort._value = "" - Me.cboStandort.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboStandort.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboStandort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboStandort.FormattingEnabled = True - Me.cboStandort.Location = New System.Drawing.Point(110, 64) - Me.cboStandort.Name = "cboStandort" - Me.cboStandort.Size = New System.Drawing.Size(143, 24) - Me.cboStandort.TabIndex = 27 - ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(110, 7) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(143, 24) - Me.cboFirma.TabIndex = 26 - ' - 'cboNL - ' - Me.cboNL._allowedValuesFreiText = Nothing - Me.cboNL._allowFreiText = False - Me.cboNL._value = "" - Me.cboNL.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboNL.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboNL.FormattingEnabled = True - Me.cboNL.Location = New System.Drawing.Point(110, 33) - Me.cboNL.Name = "cboNL" - Me.cboNL.Size = New System.Drawing.Size(143, 24) - Me.cboNL.TabIndex = 25 - ' 'Label5 ' Me.Label5.AutoSize = True @@ -503,56 +401,6 @@ Partial Class frmAuditFlow Me.Label3.TabIndex = 5 Me.Label3.Text = "Max:" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(477, 52) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(48, 20) - Me.MyTextBox1.TabIndex = 6 - Me.MyTextBox1.Text = "1000" - Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'dgvPruefungen - ' - Me.dgvPruefungen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvPruefungen.AllowUserToAddRows = False - Me.dgvPruefungen.AllowUserToDeleteRows = False - Me.dgvPruefungen.AllowUserToOrderColumns = True - Me.dgvPruefungen.AllowUserToResizeRows = False - Me.dgvPruefungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvPruefungen.DefaultCellStyle = DataGridViewCellStyle2 - Me.dgvPruefungen.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvPruefungen.Location = New System.Drawing.Point(0, 106) - Me.dgvPruefungen.Name = "dgvPruefungen" - Me.dgvPruefungen.RowHeadersVisible = False - Me.dgvPruefungen.Size = New System.Drawing.Size(622, 530) - Me.dgvPruefungen.TabIndex = 5 - ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke @@ -617,56 +465,6 @@ Partial Class frmAuditFlow Me.Label8.TabIndex = 34 Me.Label8.Text = "Fälligkeits-Datum:" ' - 'txtAbfertDat - ' - Me.txtAbfertDat._DateTimeOnly = False - Me.txtAbfertDat._numbersOnly = False - Me.txtAbfertDat._numbersOnlyKommastellen = "" - Me.txtAbfertDat._numbersOnlyTrennzeichen = True - Me.txtAbfertDat._Prozent = False - Me.txtAbfertDat._ShortDateNew = True - Me.txtAbfertDat._ShortDateOnly = False - Me.txtAbfertDat._TimeOnly = False - Me.txtAbfertDat._TimeOnly_Seconds = False - Me.txtAbfertDat._value = "" - Me.txtAbfertDat._Waehrung = False - Me.txtAbfertDat._WaehrungZeichen = True - Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black - Me.txtAbfertDat.Location = New System.Drawing.Point(37, 33) - Me.txtAbfertDat.MaxLength = 10 - Me.txtAbfertDat.MaxLineLength = -1 - Me.txtAbfertDat.MaxLines_Warning = "" - Me.txtAbfertDat.MaxLines_Warning_Label = Nothing - Me.txtAbfertDat.Name = "txtAbfertDat" - Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20) - Me.txtAbfertDat.TabIndex = 9 - ' - 'txtAbfertDatBis - ' - Me.txtAbfertDatBis._DateTimeOnly = False - Me.txtAbfertDatBis._numbersOnly = False - Me.txtAbfertDatBis._numbersOnlyKommastellen = "" - Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True - Me.txtAbfertDatBis._Prozent = False - Me.txtAbfertDatBis._ShortDateNew = True - Me.txtAbfertDatBis._ShortDateOnly = False - Me.txtAbfertDatBis._TimeOnly = False - Me.txtAbfertDatBis._TimeOnly_Seconds = False - Me.txtAbfertDatBis._value = "" - Me.txtAbfertDatBis._Waehrung = False - Me.txtAbfertDatBis._WaehrungZeichen = True - Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black - Me.txtAbfertDatBis.Location = New System.Drawing.Point(37, 62) - Me.txtAbfertDatBis.MaxLength = 10 - Me.txtAbfertDatBis.MaxLineLength = -1 - Me.txtAbfertDatBis.MaxLines_Warning = "" - Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing - Me.txtAbfertDatBis.Name = "txtAbfertDatBis" - Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20) - Me.txtAbfertDatBis.TabIndex = 23 - ' 'Button7 ' Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -839,33 +637,235 @@ Partial Class frmAuditFlow Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20) Me.DateTimePicker1.TabIndex = 10 ' - 'Button4 + 'dgvPruefungsobjekte ' - Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(780, 30) - Me.Button4.Margin = New System.Windows.Forms.Padding(0) - Me.Button4.Name = "Button4" - Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) - Me.Button4.Size = New System.Drawing.Size(164, 27) - Me.Button4.TabIndex = 32 - Me.Button4.Text = "Standorte verwalten" - Me.Button4.UseVisualStyleBackColor = True + Me.dgvPruefungsobjekte.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvPruefungsobjekte.AllowUserToAddRows = False + Me.dgvPruefungsobjekte.AllowUserToDeleteRows = False + Me.dgvPruefungsobjekte.AllowUserToOrderColumns = True + Me.dgvPruefungsobjekte.AllowUserToResizeRows = False + Me.dgvPruefungsobjekte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvPruefungsobjekte.DefaultCellStyle = DataGridViewCellStyle1 + Me.dgvPruefungsobjekte.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvPruefungsobjekte.Location = New System.Drawing.Point(0, 106) + Me.dgvPruefungsobjekte.Name = "dgvPruefungsobjekte" + Me.dgvPruefungsobjekte.RowHeadersVisible = False + Me.dgvPruefungsobjekte.Size = New System.Drawing.Size(960, 450) + Me.dgvPruefungsobjekte.TabIndex = 7 ' - 'Button8 + 'txtWartungFaelligkeitAbDat ' - Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(780, 58) - Me.Button8.Margin = New System.Windows.Forms.Padding(0) - Me.Button8.Name = "Button8" - Me.Button8.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) - Me.Button8.Size = New System.Drawing.Size(164, 27) - Me.Button8.TabIndex = 33 - Me.Button8.Text = "Kategorien verwalten" - Me.Button8.UseVisualStyleBackColor = True + Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" + Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True + Me.txtWartungFaelligkeitAbDat._Prozent = False + Me.txtWartungFaelligkeitAbDat._ShortDateNew = True + Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False + Me.txtWartungFaelligkeitAbDat._value = "" + Me.txtWartungFaelligkeitAbDat._Waehrung = False + Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True + Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red + Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(675, 52) + Me.txtWartungFaelligkeitAbDat.MaxLength = 10 + Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing + Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" + Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) + Me.txtWartungFaelligkeitAbDat.TabIndex = 143 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(897, 52) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(48, 20) + Me.MyTextBox2.TabIndex = 8 + Me.MyTextBox2.Text = "1000" + Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cboKategorie + ' + Me.cboKategorie._allowedValuesFreiText = Nothing + Me.cboKategorie._allowFreiText = False + Me.cboKategorie._value = "" + Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboKategorie.FormattingEnabled = True + Me.cboKategorie.Location = New System.Drawing.Point(358, 7) + Me.cboKategorie.Name = "cboKategorie" + Me.cboKategorie.Size = New System.Drawing.Size(143, 24) + Me.cboKategorie.TabIndex = 30 + ' + 'cboStandort + ' + Me.cboStandort._allowedValuesFreiText = Nothing + Me.cboStandort._allowFreiText = False + Me.cboStandort._value = "" + Me.cboStandort.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboStandort.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboStandort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboStandort.FormattingEnabled = True + Me.cboStandort.Location = New System.Drawing.Point(110, 64) + Me.cboStandort.Name = "cboStandort" + Me.cboStandort.Size = New System.Drawing.Size(143, 24) + Me.cboStandort.TabIndex = 27 + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(110, 7) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(143, 24) + Me.cboFirma.TabIndex = 26 + ' + 'cboNL + ' + Me.cboNL._allowedValuesFreiText = Nothing + Me.cboNL._allowFreiText = False + Me.cboNL._value = "" + Me.cboNL.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboNL.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboNL.FormattingEnabled = True + Me.cboNL.Location = New System.Drawing.Point(110, 33) + Me.cboNL.Name = "cboNL" + Me.cboNL.Size = New System.Drawing.Size(143, 24) + Me.cboNL.TabIndex = 25 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(477, 52) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(48, 20) + Me.MyTextBox1.TabIndex = 6 + Me.MyTextBox1.Text = "1000" + Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'dgvPruefungen + ' + Me.dgvPruefungen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvPruefungen.AllowUserToAddRows = False + Me.dgvPruefungen.AllowUserToDeleteRows = False + Me.dgvPruefungen.AllowUserToOrderColumns = True + Me.dgvPruefungen.AllowUserToResizeRows = False + Me.dgvPruefungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvPruefungen.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvPruefungen.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvPruefungen.Location = New System.Drawing.Point(0, 106) + Me.dgvPruefungen.Name = "dgvPruefungen" + Me.dgvPruefungen.RowHeadersVisible = False + Me.dgvPruefungen.Size = New System.Drawing.Size(622, 530) + Me.dgvPruefungen.TabIndex = 5 + ' + 'txtAbfertDat + ' + Me.txtAbfertDat._DateTimeOnly = False + Me.txtAbfertDat._numbersOnly = False + Me.txtAbfertDat._numbersOnlyKommastellen = "" + Me.txtAbfertDat._numbersOnlyTrennzeichen = True + Me.txtAbfertDat._Prozent = False + Me.txtAbfertDat._ShortDateNew = True + Me.txtAbfertDat._ShortDateOnly = False + Me.txtAbfertDat._TimeOnly = False + Me.txtAbfertDat._TimeOnly_Seconds = False + Me.txtAbfertDat._value = "" + Me.txtAbfertDat._Waehrung = False + Me.txtAbfertDat._WaehrungZeichen = True + Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDat.Location = New System.Drawing.Point(37, 33) + Me.txtAbfertDat.MaxLength = 10 + Me.txtAbfertDat.MaxLineLength = -1 + Me.txtAbfertDat.MaxLines_Warning = "" + Me.txtAbfertDat.MaxLines_Warning_Label = Nothing + Me.txtAbfertDat.Name = "txtAbfertDat" + Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDat.TabIndex = 9 + ' + 'txtAbfertDatBis + ' + Me.txtAbfertDatBis._DateTimeOnly = False + Me.txtAbfertDatBis._numbersOnly = False + Me.txtAbfertDatBis._numbersOnlyKommastellen = "" + Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True + Me.txtAbfertDatBis._Prozent = False + Me.txtAbfertDatBis._ShortDateNew = True + Me.txtAbfertDatBis._ShortDateOnly = False + Me.txtAbfertDatBis._TimeOnly = False + Me.txtAbfertDatBis._TimeOnly_Seconds = False + Me.txtAbfertDatBis._value = "" + Me.txtAbfertDatBis._Waehrung = False + Me.txtAbfertDatBis._WaehrungZeichen = True + Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDatBis.Location = New System.Drawing.Point(37, 62) + Me.txtAbfertDatBis.MaxLength = 10 + Me.txtAbfertDatBis.MaxLineLength = -1 + Me.txtAbfertDatBis.MaxLines_Warning = "" + Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing + Me.txtAbfertDatBis.Name = "txtAbfertDatBis" + Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDatBis.TabIndex = 23 ' 'frmAuditFlow ' @@ -887,16 +887,16 @@ Partial Class frmAuditFlow Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) - CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).EndInit() Me.pnloptions.ResumeLayout(False) Me.pnloptions.PerformLayout() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() - CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.vb b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.vb index b7cba4c9..f5694b1c 100644 --- a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.vb +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.vb @@ -493,4 +493,6 @@ Public Class frmAuditFlow Dim frm As New frmManageTables("tblAuditFlow_Kategorien", "ADMIN") frm.ShowDialog(Me) End Sub + + End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.Designer.vb b/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.Designer.vb new file mode 100644 index 00000000..6574ea68 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.Designer.vb @@ -0,0 +1,296 @@ + +Partial Class frminterneEmailBenachrichtigungen + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frminterneEmailBenachrichtigungen)) + Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip() + Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.dgvBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.pnloptions = New System.Windows.Forms.Panel() + Me.Label9 = New System.Windows.Forms.Label() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() + Me.cntxtOptionen.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnloptions.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.pnlTop.SuspendLayout() + Me.SuspendLayout() + ' + 'AbgeholtToolStripMenuItem + ' + Me.AbgeholtToolStripMenuItem.Name = "AbgeholtToolStripMenuItem" + Me.AbgeholtToolStripMenuItem.Size = New System.Drawing.Size(123, 22) + Me.AbgeholtToolStripMenuItem.Text = "Abgeholt" + ' + 'cntxtOptionen + ' + Me.cntxtOptionen.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtOptionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbgeholtToolStripMenuItem, Me.StornoToolStripMenuItem}) + Me.cntxtOptionen.Name = "cntxtOptionen" + Me.cntxtOptionen.Size = New System.Drawing.Size(124, 48) + Me.cntxtOptionen.Text = "Optionen" + ' + 'StornoToolStripMenuItem + ' + Me.StornoToolStripMenuItem.Name = "StornoToolStripMenuItem" + Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22) + Me.StornoToolStripMenuItem.Text = "Storno" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.dgvBenachrichtigungen) + Me.Panel1.Controls.Add(Me.pnloptions) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1237, 779) + Me.Panel1.TabIndex = 4 + ' + 'dgvBenachrichtigungen + ' + Me.dgvBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvBenachrichtigungen.AllowUserToAddRows = False + Me.dgvBenachrichtigungen.AllowUserToDeleteRows = False + Me.dgvBenachrichtigungen.AllowUserToOrderColumns = True + Me.dgvBenachrichtigungen.AllowUserToResizeRows = False + Me.dgvBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle1 + Me.dgvBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvBenachrichtigungen.Location = New System.Drawing.Point(0, 115) + Me.dgvBenachrichtigungen.Name = "dgvBenachrichtigungen" + Me.dgvBenachrichtigungen.RowHeadersVisible = False + Me.dgvBenachrichtigungen.Size = New System.Drawing.Size(1237, 604) + Me.dgvBenachrichtigungen.TabIndex = 10 + ' + 'pnloptions + ' + Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnloptions.Controls.Add(Me.Label9) + Me.pnloptions.Controls.Add(Me.MyTextBox2) + Me.pnloptions.Controls.Add(Me.Button2) + Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnloptions.Location = New System.Drawing.Point(0, 719) + Me.pnloptions.Name = "pnloptions" + Me.pnloptions.Size = New System.Drawing.Size(1237, 60) + Me.pnloptions.TabIndex = 12 + ' + 'Label9 + ' + Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(1145, 16) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(30, 13) + Me.Label9.TabIndex = 7 + Me.Label9.Text = "Max:" + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(1177, 13) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(48, 20) + Me.MyTextBox2.TabIndex = 8 + Me.MyTextBox2.Text = "1000" + Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.plus + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(9, 6) + Me.Button2.Margin = New System.Windows.Forms.Padding(0) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.Button2.Size = New System.Drawing.Size(84, 45) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "Neu" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.cboKategorie) + Me.Panel2.Controls.Add(Me.cboFirma) + Me.Panel2.Controls.Add(Me.Label5) + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1237, 115) + Me.Panel2.TabIndex = 11 + ' + 'cboKategorie + ' + Me.cboKategorie._allowedValuesFreiText = Nothing + Me.cboKategorie._allowFreiText = False + Me.cboKategorie._value = "" + Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboKategorie.DropDownWidth = 250 + Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboKategorie.FormattingEnabled = True + Me.cboKategorie.Location = New System.Drawing.Point(95, 76) + Me.cboKategorie.Name = "cboKategorie" + Me.cboKategorie.Size = New System.Drawing.Size(143, 24) + Me.cboKategorie.TabIndex = 30 + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboFirma.DropDownWidth = 250 + Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(95, 49) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(143, 24) + Me.cboFirma.TabIndex = 26 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(7, 54) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(49, 13) + Me.Label5.TabIndex = 22 + Me.Label5.Text = "FIRMA:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(7, 81) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 29 + Me.Label1.Text = "KATEGORIE:" + ' + 'pnlTop + ' + Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlTop.Controls.Add(Me.Label4) + Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlTop.Location = New System.Drawing.Point(0, 0) + Me.pnlTop.Name = "pnlTop" + Me.pnlTop.Size = New System.Drawing.Size(1237, 41) + Me.pnlTop.TabIndex = 6 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(12, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(358, 26) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "interne E-Mail Benachrichtungen" + ' + 'frminterneEmailBenachrichtigungen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(1237, 779) + Me.Controls.Add(Me.pnlTop) + Me.Controls.Add(Me.Panel1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frminterneEmailBenachrichtigungen" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "interne E-Mail Benachrichtigungen" + Me.cntxtOptionen.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnloptions.ResumeLayout(False) + Me.pnloptions.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents AbgeholtToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents cntxtOptionen As Windows.Forms.ContextMenuStrip + Friend WithEvents StornoToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlTop As Windows.Forms.Panel + Friend WithEvents Label4 As Windows.Forms.Label + Friend WithEvents Panel1 As Windows.Forms.Panel + Friend WithEvents dgvBenachrichtigungen As MyDatagridview + Friend WithEvents pnloptions As Windows.Forms.Panel + Friend WithEvents Label9 As Windows.Forms.Label + Friend WithEvents MyTextBox2 As MyTextBox + Friend WithEvents Button2 As Windows.Forms.Button + Friend WithEvents Panel2 As Windows.Forms.Panel + Friend WithEvents cboKategorie As MyComboBox + Friend WithEvents Label1 As Windows.Forms.Label + Friend WithEvents cboFirma As MyComboBox + Friend WithEvents Label5 As Windows.Forms.Label +End Class diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.resx b/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.resx new file mode 100644 index 00000000..9d74101a --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.resx @@ -0,0 +1,983 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////d3fOrq+Krq+Krq+Krq+Krq+Krq+Lp6ff///////// + ///////////////////////////p6ferq+Krq+Krq+Krq+Krq+Krq+Krq+L///////////+rq+Krq+Kr + q+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Ld3fP///////////////////////////// + //////////+rq+Krq+Krq+Krq+Krq+K4uOb////////////////////d3fOrq+Krq+Krq+Krq+Lp6ff/ + ///////////////p6ferq+Krq+Krq+Krq+Krq+Krq+K4uOb///////////////////+rq+Krq+Krq+Kr + q+Krq+Krq+Krq+L///////////////////+rq+Krq+Krq+Krq+Krq+K4uOb///////////////////// + ///////////p6ferq+Krq+Krq+Krq+Krq+LFxer////////////////////////////////d3fMpKcID + A70DA70DA70DA70DA72Ojtn////////////////////////////////////FxeoDA70DA70DA70DA70D + A70DA71ERMf///////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA71+ftTR0e////////////////////////////8pKcIDA70DA70DA70DA70pKcL///////////// + //////+rq+IDA70DA70DA70DA72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf/ + //////////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70D + A70DA71ERMf///////////////////////////////+rq+IDA70DA70DA70DA70DA71ZWcv///////// + //////////////////////////+rq+IDA70DA70DA70DA70DA70DA73p6ff///////////////////// + //////////+rq+IDA70DA70DA70DA70DA70DA71+ftT///////////9ZWcsDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////////////////////9sbNAD + A70DA70DA70DA70DA73p6ff///////////////+OjtkDA70DA70DA70DA70DA73p6ff///////////// + //8pKcIDA70DA70DA70DA70DA70DA7309Pv///////////////9sbNADA70DA70DA70DA70DA70DA73p + 6ff///////////////9ZWcsDA70DA70DA70DA70DA7309Pv///////////////////////////8pKcID + A70DA70DA70DA70DA70DA73////////////////////////////////////09PspKcIDA70DA70DA70D + A70DA72rq+L///////////////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///// + //////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A71ZWcv09Pv///////////////+dnd0DA70DA70DA70DA70DA73Fxer///////////////9ZWcsDA70D + A70DA70DA70DA72Ojtn///////////////9ZWcsDA70DA70DA70DA70DA70DA73d3fP///////////// + //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA73R0e// + //////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA73d3fP///////////////////// + //////////////+rq+IDA70DA70DA70DA70DA70pKcL09Pv///////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA73Fxer///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////+rq+IDA70DA70DA70DA70D + A72rq+L///////////////8pKcIDA70DA70DA70DA70DA70DA73p6ff///////////+OjtkDA70DA70D + A70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////// + //+rq+IDA70DA70DA70DA70DA72rq+L///////////////////////9ZWcsDA70DA70DA70DA70DA70D + A70DA73Fxer////////////////////////////////////09PspKcIDA70DA70DA70DA70DA71+ftSr + q+Krq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70DA73d3fP////////////R0e8DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/ + ///////////d3fMDA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA70DA70D + A72Ojtn///////////+rq+IDA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70D + A70DA70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA72dnd3///////////////// + ///R0e8DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////////// + //+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73////////////////09PsDA70DA70DA70DA70DA70DA72dnd3////////////09Purq+JZWcsD + A70DA70DA70DA70DA70DA70DA70DA73p6ff////////09PsDA70DA70DA70DA70DA71ZWcv///////// + ///FxeoDA70DA70DA70DA70DA70DA70DA70DA73p6ff////////R0e8DA70DA70DA70DA70DA70DA71s + bND////////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70D + A70DA70DA71ZWcv///////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA71+ftT///// + ///////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////8pKcIDA70DA70DA70DA70D + A71sbND///////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA72Ojtn///////////9E + RMcDA70DA70DA70DA70DA73///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA72Ojtn///// + ///09PsDA70DA70DA70DA70DA70DA70pKcL///////////////////9ERMcDA70DA70DA70DA70DA70D + A73///////////////////8pKcIDA70DA70DA70DA70pKcL////////////////09PsDA70DA70DA70D + A70DA70DA70DA70DA70DA71ERMf///////////////////////////////////////////+rq+IDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////// + //////////9+ftQDA70DA70DA70DA70DA70pKcL///////////////////////////+OjtkDA70DA70D + A70DA70DA70DA70DA7309Pv///////9+ftQDA70DA70DA70DA70DA73d3fP///////+OjtkDA70DA70D + A70DA70DA70DA70DA70DA70DA73p6ff///////8pKcIDA70DA70DA70DA70DA70DA7309Pv///////// + //////9+ftQDA70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA73d + 3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////// + ///////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA73p6ff///// + ///////////////////p6fcDA70DA70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70D + A70DA724uOb///////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////9+ftQDA70D + A70DA70DA70DA70DA73Fxer///////////////+dnd0DA70DA70DA70DA70DA70DA724uOb///////// + //////+dnd0DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA73R0e////////////////////////////////////////////+rq+IDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer///////////////////+4uOYD + A70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70DA70DA70D + A72dnd3////////FxeoDA70DA70DA70DA70DA72dnd3///////8pKcIDA70DA70DA70DA70DA70DA70D + A70DA70DA70DA73R0e////+dnd0DA70DA70DA70DA70DA70DA72rq+L///////////////+4uOYDA70D + A70DA70DA70DA70DA72dnd3///////////////+4uOYDA70DA70DA70DA70DA72rq+L///////+4uOYD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////////////////// + ///////////09PspKcIDA70DA70DA70DA70DA73R0e////////////9ZWcsDA70DA70DA70DA70DA70D + A73p6ff////////////////////d3fMDA70DA70DA70DA70DA70DA72rq+L///////////////////// + //////+rq+IDA70DA70DA70DA70DA70DA71sbND////////d3fMDA70DA70DA70DA70DA71+ftT////d + 3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND///+4uOYDA70DA70DA70DA70DA70D + A72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT////////////////d3fMDA70D + A70DA70DA70DA71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/ + //////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA71sbND///// + //////8DA70DA70DA70DA70DA70DA70pKcL///////////////////////////8DA70DA70DA70DA70D + A70DA72Ojtn////////////////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf///////// + //8pKcIDA70DA70DA70DA70pKcL////FxeoDA70DA70DA70DA70DA70pKcKOjtkDA70DA70DA70DA70D + A73R0e/d3fMDA70DA70DA70DA70DA70DA71ZWcv///////////////////8DA70DA70DA70DA70DA70D + A70pKcL////////////////09PsDA70DA70DA70DA70DA71ZWcv////d3fMDA70DA70DA70DA70DA70D + A71ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////////////////////////0 + 9PspKcIDA70DA70DA70DA70DA73p6ff////p6fcDA70DA70DA70DA70DA70DA71sbND///////////// + //////////////9ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////p6fcDA70D + A70DA70DA70DA70DA71ERMf///////////9ZWcsDA70DA70DA70DA70DA7309Purq+IDA70DA70DA70D + A70DA71ZWcvp6fcDA70DA70DA70DA70DA71sbND///8DA70DA70DA70DA70DA70DA70DA73///////// + //////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70D + A73///+OjtkDA70DA70DA70DA70DA70DA724uOZZWcsDA70DA70DA70DA70pKcL///////////////// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA72Ojtn////FxeoDA70DA70D + A70DA70DA70DA72dnd3///////////////////////////9+ftQDA70DA70DA70DA70DA70DA73///// + ///////////////////////p6fcDA70DA70DA70DA70DA70DA71ERMf///////////+OjtkDA70DA70D + A70DA70DA73R0e9+ftQDA70DA70DA70DA70DA72Ojtn///+dnd0DA70DA70DA70DA70DA73R0e9ZWcsD + A70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA70DA73R0e////// + //////////9+ftQDA70DA70DA70DA70DA73R0e8DA70DA70DA70DA70DA70DA70pKcL09Pt+ftQDA70D + A70DA70DA70DA73p6ff////////////////////////////////////////////////09PspKcIDA70D + A70DA70DA70DA73p6ferq+IDA70DA70DA70DA70DA70DA72rq+L///////////////////////////+r + q+IDA70DA70DA70DA70DA70DA73d3fP////////////////////////d3fMDA70DA70DA70DA70DA70D + A71ZWcv///////////+rq+IDA70DA70DA70DA70DA72rq+JZWcsDA70DA70DA70DA70DA72rq+L////0 + 9PspKcIDA70DA70DA70DA71sbNB+ftQDA70DA70DA70DA70DA70DA73Fxer///////////////+rq+ID + A70DA70DA70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA71ZWcsDA70DA70D + A70DA70DA70DA72dnd3///+rq+IDA70DA70DA70DA70DA73Fxer///////////////////////////// + //////////////////////+rq+IDA70DA70DA70DA70DA72rq+Kdnd0DA70DA70DA70DA70DA70DA73R + 0e/////////////////////////////FxeoDA70DA70DA70DA70DA70DA73Fxer///////////////// + //////+rq+IDA70DA70DA70DA70DA70DA71+ftT////////////R0e8DA70DA70DA70DA70DA72OjtkD + A70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70DA70DA71sbNADA70DA70DA70DA70D + A70DA72dnd3////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3////////////////FxeoD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p6ff////FxeoDA70DA70DA70DA70DA72r + q+L////////////////////////////////////////////////////09PspKcIDA70DA70DA70DA70p + KcJZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////p6fcDA70DA70DA70D + A70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA72rq+L///////// + ///09PsDA70DA70DA70DA70DA70pKcIDA70DA70DA70DA70DA70DA73d3fP////////09PspKcIDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT////////////////p6fcDA70DA70DA70DA70D + A70DA71ZWcv////////////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/ + ///////d3fMDA70DA70DA70DA70DA71+ftT///////////////////////////////////////////// + //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////// + //////////////////8pKcIDA70DA70DA70DA70DA71+ftT////////////////p6fdZWcsDA70DA70D + A70DA70DA70DA70DA73p6ff///////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73///////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf///// + //////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA71ZWcv///////////// + ///////////////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA71+ftT///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70pKcKr + q+Krq+Krq+JsbNADA70DA70DA70DA70DA70DA70DA70DA71sbND///////////////////9+ftQDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA71ERMf////////////////09PspKcIDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70DA70DA73p6ff/ + //////////////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf///////////////9ZWcsD + A70DA70DA70DA70DA73///////////////////////////////////////////////////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////// + //+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p + 6ff///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////// + //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP///////////////+d + nd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA70DA70DA70D + A70DA72rq+L///////////////+OjtkDA70DA70DA70DA70DA73d3fP///////////////////////// + ///////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/ + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+4uOYDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////+rq+IDA70DA70DA70DA70D + A724uOb///////////////////////////////////////////////////////////+rq+IDA70DA70D + A70DA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////R0e8DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////// + ///////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70DA70D + A70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////// + ///////////FxeoDA70DA70DA70DA70DA72dnd3///////////////////////////////////////// + ///////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////// + ///////////////////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70p + KcLFxer///////////////////////////////////8DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A73R0e/////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/ + ///////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70DA70D + A70DA70DA70DA70DA73R0e/////////////////////09PsDA70DA70DA70DA70DA71+ftT///////// + //////////////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA71ZWcv///////////////////////////////////////////8pKcIDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70pKcKrq+Krq+L///////////////////////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////////////////+rq+IDA70DA70D + A70DA70DA70DA70DA70DA70DA70DA73///////////////////8pKcIDA70DA70DA70DA70DA70DA73/ + //////////////////8pKcIDA70DA70DA70DA70DA70DA71ZWcv///////////////////////////8p + KcIDA70DA70DA70DA71ERMf///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.vb b/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.vb new file mode 100644 index 00000000..4a4eefc5 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.vb @@ -0,0 +1,127 @@ +Imports System.Windows.Forms + +Public Class frminterneEmailBenachrichtigungen + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load + + + cboKategorie.Items.Clear() + cboKategorie.fillWithSQL("SELECT distinct([mb_object]) FROM [tblEMailbenachrichtigungen] order by mb_object", False, "ADMIN", True) + + cboFirma.Items.Clear() + cboFirma.fillWithSQL("SELECT distinct(Firma_Bez) FROM [tblFirma] order by Firma_Bez", False, "FMZOLL", True) + cboFirma.changeItem(cAllgemein.FIRMA) + + loadDGVPuefungsobjekte() + + End Sub + + + Private Sub cboKategorie_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKategorie.SelectedIndexChanged + loadDGVPuefungsobjekte() + End Sub + + Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged + + loadDGVPuefungsobjekte() + + End Sub + + + Sub loadDGVPuefungsobjekte() + Try + + Me.Cursor = Cursors.WaitCursor + + Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "") + Dim sqlstr As String = "" + + + sqlstr &= " SELECT e.mb_id,e.mb_aktiv,e.mb_object,STRING_AGG(m.mit_email, ', ') AS Emails,STRING_AGG(m.mit_nname, ', ') as Mitarbeiter,COUNT(DISTINCT m.mit_email) AS Anzahl,e.mb_firmaID,ISNULL(f.Firma_Bez,'ALLE') AS Firma_Bez + FROM [tblEMailbenachrichtigungen] e + + LEFT JOIN [VERAG].[dbo].[tblFirma] f ON e.mb_firmaID = f.Firma_ID + LEFT JOIN ADMIN.dbo.tblMitarbeiter m + CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s + ON TRY_CAST(s.value AS INT) = e.mb_id + + WHERE 1 = 1 " + + With dgvBenachrichtigungen + + .SET_SQL(sqlstr & getWherePruefungsobjekte() & " GROUP BY e.mb_id,e.mb_aktiv,e.mb_object,e.mb_firmaID,f.Firma_Bez ORDER BY mb_object,f.Firma_Bez ", "ADMIN", getListBenachrichtigungen) + .LOAD() + showDGVPruefungsobjekte() + End With + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "") + End Try + Me.Cursor = Cursors.Default + End Sub + Sub showDGVPruefungsobjekte() + + With dgvBenachrichtigungen + + If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub + .RowHeadersVisible = False + .ReadOnly = True + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .MultiSelect = False + + .Columns("mb_id").Visible = False + .Columns("mb_firmaID").Visible = False + + .Columns("mb_object").Width = 200 + .Columns("mb_object").HeaderText = "Benachrichtigung" + + + .Columns("Mitarbeiter").MinimumWidth = 100 + .Columns("Mitarbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns("Emails").MinimumWidth = 100 + .Columns("Emails").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns("Anzahl").Width = 50 + .Columns("Anzahl").HeaderText = "# Empf." + + .Columns("Firma_Bez").Width = 150 + .Columns("Firma_Bez").HeaderText = "Firma" + + .Columns("mb_aktiv").Width = 40 + .Columns("mb_aktiv").HeaderText = "Aktiv" + + + End With + End Sub + Function getWherePruefungsobjekte() As String + Dim sqlstr = "" + + If cboFirma._value <> "" Then sqlstr &= " AND Firma_Bez LIKE @Firma_Bez " + If cboKategorie._value <> "" Then sqlstr &= " AND mb_object LIKE @mb_object " + + Return sqlstr + End Function + + Function getListBenachrichtigungen() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", cboFirma._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mb_object", cboKategorie._value)) + + + Return list + + End Function + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + + End Sub + + + +End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 5fc0036e..a967f473 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -184,6 +184,12 @@ + + frminterneEmailbenachrichtigungen.vb + + + Form + frmAuditFlow.vb @@ -802,6 +808,9 @@ + + frminterneEmailbenachrichtigungen.vb + frmAuditFlow.vb