From 03364cf5f8543a315754963f6f65f94a7296f02d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 5 Nov 2025 11:50:48 +0100 Subject: [PATCH 01/18] MDM-Abrechnung, Leihgeld, UID-Pruefungen ,etc. --- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 9 ---- SDL/mdm/frmMDMDatenverarbetiung.vb | 4 +- VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 43 +++++++++---------- .../frmMitarbeitersuche.vb | 7 +-- 4 files changed, 23 insertions(+), 40 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 454a8112..9545bf5a 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -810,17 +810,8 @@ Public Class frmNacherfassungLeihgeld txtAuftrProvision.Enabled = sender.checked End Sub - Private Sub cboPrintAktendeckel_CheckedChanged(sender As Object, e As EventArgs) Handles cboPrintAktendeckel.CheckedChanged - - End Sub - - Private Sub kdFrachtführer_TextChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles kdFrachtführer.PropertyChanged - - End Sub - Private Function getSachkonto(pos As EABelegPositionen) - ' Dim SQL = New VERAG_PROG_ALLGEMEIN.SQL ' Dim RE As New cRechnungsausgang(pos.RK_ID) diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index dc051b0b..4eff12fb 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1501,8 +1501,8 @@ Public Class frmMDMDatenverarbetiung Dim top = "" Dim sqlWhere = "" Select Case art - Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "") - Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "") + Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" + Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" Case Else MsgBox("falscher Typ!") : Return False diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index e588e371..d7b87c1f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -154,26 +154,7 @@ Public Class cUIDPruefung Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1500) As DataTable Dim dt As DataTable = Nothing - 'If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1) - - 'Dim where = "" - 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - ' Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)" - ' Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)" - ' Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)" - ' Case "UNISPED" : where = " AND Filialen.firma='UNISPED' " - ' Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)" - 'End Select - 'Dim Top = "" - 'If MaxEintraege > 0 Then - ' Top = " TOP " & MaxEintraege - 'End If - - 'dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " & - ' " From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " & - ' " where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> ''and isnull(Adressen.UstIdNr,'') <> '') " & - ' " And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL") - + dt = get_zupruefendeKunden(MaxEintraege, datum) If dt IsNot Nothing Then @@ -195,6 +176,14 @@ Public Class cUIDPruefung e.ColumnName = "Error-Text" dt.Columns.Add(e) + Dim f As New DataColumn + f.ColumnName = "Re-Login" + dt.Columns.Add(f) + + Dim g As New DataColumn + g.ColumnName = "Verzoegerung" + dt.Columns.Add(g) + '------------------------------------------------ 'ENTWEDER ÃœBER EU-KOMISSION ODER FINANZONLINE:::: @@ -233,6 +222,7 @@ Public Class cUIDPruefung VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" FO.initValues() Dim counter = 0 + Dim errorCounter As Integer = 0 If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then For Each r As DataRow In dt.Rows @@ -262,6 +252,10 @@ Public Class cUIDPruefung r("Error-Code") = errorCode.ToString() r("Error-Text") = FO.GetCodeText(errorCode) & errormsg + If r("Error-Code") = "1511" Then + errorCounter += 1 'Fehler Mitgliedsstaat nicht erreichbar!!! + End If + ' Bei ERROR soll er ebenfalls einzeln durchgehen! Besprochen mit A.Stockenhuber 'For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'") ' row("Ergebnis") = r("Ergebnis") @@ -273,10 +267,14 @@ Public Class cUIDPruefung End If - If counter Mod 100 = 0 Then + r("Re-Login") = "0" + + If counter Mod 100 = 0 OrElse errorCounter > 10 Then + If errorCounter > 10 Then errorCounter = 0 FO.Call_Web_Service_MethodUID_Logout_NEU2020() Thread.Sleep(2000) FO.Call_Web_Service_MethodUID_Login_NEU2020() + r("Re-Login") = "1" End If If veroegerungMs > 0 Then @@ -309,7 +307,6 @@ Public Class cUIDPruefung Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA End If - Select Case Firma Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)" Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)" @@ -326,7 +323,7 @@ Public Class cUIDPruefung dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " & " From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " & - " where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> ''and isnull(Adressen.UstIdNr,'') <> '') " & + " where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " & " And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL") Return dt diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index 469d738e..67131b18 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -1,11 +1,6 @@ -Imports System.ComponentModel -Imports System.Diagnostics.Eventing.Reader -Imports System.Drawing -Imports System.Net +Imports System.Drawing Imports System.Threading Imports System.Windows.Forms -Imports Therefore.API -Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI Public Class frmMitarbeitersuche Dim mit_id As Integer = -1 From 4c4c353d3a1dab072907ac69d6de011b9f3bfb1c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 5 Nov 2025 11:53:54 +0100 Subject: [PATCH 02/18] RKSV, Leihgeldkasse --- SDL/Classes/cRKSV.vb | 8 ++--- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 38 ---------------------- 2 files changed, 4 insertions(+), 42 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 65e857bf..fddb9da6 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2372,11 +2372,11 @@ Public Class cRKSV ' Buchung im EABeleg eintragen. '################ - If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then - Dim stapelbuchung As Boolean = True - 'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List) + 'If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then + ' Dim stapelbuchung As Boolean = True + ' 'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List) - End If + 'End If BELEG.gebucht = True BELEG.SAVE() diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 9545bf5a..ecbedca5 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -428,15 +428,6 @@ Public Class frmNacherfassungLeihgeld End If - 'If cbxOP_sofort_buchen.Checked Then - - ' If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then - ' MsgBox("Fehler beim Erzeugen der Buchung in der FIBU") - ' End If - - 'End If - - Me.Close() Me.DialogResult = Windows.Forms.DialogResult.OK Me.Cursor = Cursors.Default @@ -810,33 +801,4 @@ Public Class frmNacherfassungLeihgeld txtAuftrProvision.Enabled = sender.checked End Sub - Private Function getSachkonto(pos As EABelegPositionen) - - ' Dim SQL = New VERAG_PROG_ALLGEMEIN.SQL - ' Dim RE As New cRechnungsausgang(pos.RK_ID) - - ' If RE.RechnungsLandKz Is Nothing OrElse RE.RechnungsLandKz Is DBNull.Value OrElse RE.RechnungsLandKz.trim = "" _ - ' OrElse RE.RechnungsLandKz = "A" _ - ' OrElse RE.RechnungsLandKz = "AT" Then - ' If CBool(pos.Steuerpflichtig) Then - ' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "") - - ' Else - ' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "") - ' End If - ' Else - ' If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & RE.RechnungsLandKz & "'", "FMZOLL", False) Then - ' If pos.LeistungsNr Then - ' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "") - ' Else - ' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "") - ' End If - ' Else - ' getSachkonto = If(SQL.DLookup("[Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "") - ' End If - ' End If - ' If getSachkonto = "" Then getSachkonto = "4000" 'DEFAULT! - - End Function - End Class \ No newline at end of file From 9b8a96647ff962c5b2d953143c7977e7f237b39b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 5 Nov 2025 16:24:19 +0100 Subject: [PATCH 03/18] SammelRechnung, cDatenserver fix, etc. --- SDL/Fakturierung/cFakturierung.vb | 3 +- .../frmFaktSammelRgDrucken.Designer.vb | 392 ++++++++++-------- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 82 +++- SDL/My Project/AssemblyInfo.vb | 4 +- .../DATENSERVER/cDATENSERVER.vb | 8 +- 5 files changed, 285 insertions(+), 204 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 87b3523b..45fbd627 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -4101,7 +4101,7 @@ Public Class cFakturierung Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional AUTOMailversand As String = "") As DataTable If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") " Dim whereAbfArt = "" - If Abfertigungsart <> "" Then whereAbfArt = " AND (SELECT TOP 1 Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & Abfertigungsart & "' " + If Abfertigungsart <> "" Then whereAbfArt = " AND (SELECT TOP 1 Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr) IN (" & Abfertigungsart & ") " Dim whereAutoMailversand = "" If AUTOMailversand <> "" Then whereAutoMailversand = " AND isnull(Rechnungsausgang.Automailversand,0) = 1 " @@ -4120,7 +4120,6 @@ Public Class cFakturierung Return dt End Function - Public Shared Function CHECK_SR_SQLDT(dt As DataTable) As Boolean For Each r In dt.Rows If r("Rechnungsart") <> "RU" Then 'Sofern es sich nicht um eine unvollständige RG handelt, muss der Steuerpflichtige Gesamtbetrag <> 0 sein. diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb index c13a2666..e168f871 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmFaktSammelRgDrucken 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 @@ -20,7 +20,7 @@ Partial Class frmFaktSammelRgDrucken '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() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFaktSammelRgDrucken)) @@ -32,15 +32,10 @@ Partial Class frmFaktSammelRgDrucken Me.RadioButton2 = New System.Windows.Forms.RadioButton() Me.RadioButton1 = New System.Windows.Forms.RadioButton() Me.RadioButton = New System.Windows.Forms.RadioButton() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lbl = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZeitraumBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.btn = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() @@ -48,18 +43,16 @@ Partial Class frmFaktSammelRgDrucken Me.cbxSammelbericht = New System.Windows.Forms.CheckBox() Me.lkl = New System.Windows.Forms.LinkLabel() Me.cbxZusammenfassen = New System.Windows.Forms.CheckBox() - Me.cboSB = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblSB = New System.Windows.Forms.Label() Me.cbxEVOLOG = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.cbxTransFerry = New System.Windows.Forms.CheckBox() Me.Label5 = New System.Windows.Forms.Label() - Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button2 = New System.Windows.Forms.Button() Me.cbxMWST = New System.Windows.Forms.CheckBox() + Me.cbxAUTOMail = New System.Windows.Forms.CheckBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.pnlAUTOMailversand = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() @@ -68,11 +61,21 @@ Partial Class frmFaktSammelRgDrucken Me.Label7 = New System.Windows.Forms.Label() Me.Button4 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() - Me.cbxAUTOMail = New System.Windows.Forms.CheckBox() - Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSB = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtZeitraumBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnNurImport = New System.Windows.Forms.Button() + Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.btnKeine = New System.Windows.Forms.Button() + Me.lblAbfertigungsarten = New System.Windows.Forms.Label() + Me.btnNurExport = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAUTOMailversand.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -176,19 +179,6 @@ Partial Class frmFaktSammelRgDrucken Me.RadioButton.Text = "1 täglich" Me.RadioButton.UseVisualStyleBackColor = True ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(252, 17) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(183, 21) - Me.cboFirma.TabIndex = 2 - ' 'lbl ' Me.lbl.AutoSize = True @@ -225,87 +215,6 @@ Partial Class frmFaktSammelRgDrucken Me.Label3.TabIndex = 10 Me.Label3.Text = "Kunden:" ' - 'cboPrinter - ' - Me.cboPrinter._allowedValuesFreiText = Nothing - Me.cboPrinter._allowFreiText = False - Me.cboPrinter._value = "" - Me.cboPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboPrinter.FormattingEnabled = True - Me.cboPrinter.Location = New System.Drawing.Point(12, 443) - Me.cboPrinter.Name = "cboPrinter" - Me.cboPrinter.Size = New System.Drawing.Size(118, 21) - Me.cboPrinter.TabIndex = 17 - ' - 'txtRechnungsdatum - ' - Me.txtRechnungsdatum._DateTimeOnly = False - Me.txtRechnungsdatum._numbersOnly = False - Me.txtRechnungsdatum._numbersOnlyKommastellen = "" - Me.txtRechnungsdatum._numbersOnlyTrennzeichen = True - Me.txtRechnungsdatum._Prozent = False - Me.txtRechnungsdatum._ShortDateNew = True - Me.txtRechnungsdatum._ShortDateOnly = False - Me.txtRechnungsdatum._TimeOnly = False - Me.txtRechnungsdatum._TimeOnly_Seconds = False - Me.txtRechnungsdatum._value = "" - Me.txtRechnungsdatum._Waehrung = False - Me.txtRechnungsdatum._WaehrungZeichen = True - Me.txtRechnungsdatum.ForeColor = System.Drawing.Color.Black - Me.txtRechnungsdatum.Location = New System.Drawing.Point(252, 42) - Me.txtRechnungsdatum.MaxLength = 10 - Me.txtRechnungsdatum.MaxLineLength = -1 - Me.txtRechnungsdatum.MaxLines_Warning = "" - Me.txtRechnungsdatum.MaxLines_Warning_Label = Nothing - Me.txtRechnungsdatum.Name = "txtRechnungsdatum" - Me.txtRechnungsdatum.Size = New System.Drawing.Size(100, 20) - Me.txtRechnungsdatum.TabIndex = 4 - ' - 'txtZeitraumBis - ' - Me.txtZeitraumBis._DateTimeOnly = False - Me.txtZeitraumBis._numbersOnly = False - Me.txtZeitraumBis._numbersOnlyKommastellen = "" - Me.txtZeitraumBis._numbersOnlyTrennzeichen = True - Me.txtZeitraumBis._Prozent = False - Me.txtZeitraumBis._ShortDateNew = True - Me.txtZeitraumBis._ShortDateOnly = False - Me.txtZeitraumBis._TimeOnly = False - Me.txtZeitraumBis._TimeOnly_Seconds = False - Me.txtZeitraumBis._value = "" - Me.txtZeitraumBis._Waehrung = False - Me.txtZeitraumBis._WaehrungZeichen = True - Me.txtZeitraumBis.ForeColor = System.Drawing.Color.Black - Me.txtZeitraumBis.Location = New System.Drawing.Point(252, 64) - Me.txtZeitraumBis.MaxLength = 10 - Me.txtZeitraumBis.MaxLineLength = -1 - Me.txtZeitraumBis.MaxLines_Warning = "" - Me.txtZeitraumBis.MaxLines_Warning_Label = Nothing - Me.txtZeitraumBis.Name = "txtZeitraumBis" - Me.txtZeitraumBis.Size = New System.Drawing.Size(100, 20) - Me.txtZeitraumBis.TabIndex = 8 - ' - 'MyDatagridview1 - ' - Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 - Me.MyDatagridview1.AllowUserToAddRows = False - Me.MyDatagridview1.AllowUserToDeleteRows = False - Me.MyDatagridview1.AllowUserToResizeColumns = False - Me.MyDatagridview1.AllowUserToResizeRows = False - Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White - Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview1.Location = New System.Drawing.Point(252, 91) - Me.MyDatagridview1.Name = "MyDatagridview1" - Me.MyDatagridview1.ReadOnly = True - Me.MyDatagridview1.RowHeadersVisible = False - Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.MyDatagridview1.Size = New System.Drawing.Size(547, 373) - Me.MyDatagridview1.TabIndex = 18 - ' 'btn ' Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -376,10 +285,9 @@ Partial Class frmFaktSammelRgDrucken ' 'lkl ' - Me.lkl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lkl.AutoSize = True Me.lkl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lkl.Location = New System.Drawing.Point(704, 72) + Me.lkl.Location = New System.Drawing.Point(706, 72) Me.lkl.Name = "lkl" Me.lkl.Size = New System.Drawing.Size(95, 13) Me.lkl.TabIndex = 9 @@ -397,20 +305,6 @@ Partial Class frmFaktSammelRgDrucken Me.cbxZusammenfassen.Text = "zusammenfassen" Me.cbxZusammenfassen.UseVisualStyleBackColor = True ' - 'cboSB - ' - Me.cboSB._allowedValuesFreiText = Nothing - Me.cboSB._allowFreiText = False - Me.cboSB._value = "" - Me.cboSB.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboSB.FormattingEnabled = True - Me.cboSB.Location = New System.Drawing.Point(532, 19) - Me.cboSB.Name = "cboSB" - Me.cboSB.Size = New System.Drawing.Size(267, 21) - Me.cboSB.TabIndex = 6 - Me.cboSB.Visible = False - ' 'lblSB ' Me.lblSB.AutoSize = True @@ -475,40 +369,6 @@ Partial Class frmFaktSammelRgDrucken Me.Label5.TabIndex = 23 Me.Label5.Text = "Fakt.Gruppe:" ' - 'cboFaktGrp - ' - Me.cboFaktGrp._allowedValuesFreiText = Nothing - Me.cboFaktGrp._allowFreiText = False - Me.cboFaktGrp._value = "" - Me.cboFaktGrp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboFaktGrp.FormattingEnabled = True - Me.cboFaktGrp.Location = New System.Drawing.Point(532, 42) - Me.cboFaktGrp.Name = "cboFaktGrp" - Me.cboFaktGrp.Size = New System.Drawing.Size(166, 21) - Me.cboFaktGrp.TabIndex = 24 - ' - 'Label6 - ' - Me.Label6.Location = New System.Drawing.Point(444, 68) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(82, 17) - Me.Label6.TabIndex = 25 - Me.Label6.Text = "Abfertigungsart:" - ' - 'cboAbfertigungsart - ' - Me.cboAbfertigungsart._allowedValuesFreiText = Nothing - Me.cboAbfertigungsart._allowFreiText = False - Me.cboAbfertigungsart._value = "" - Me.cboAbfertigungsart.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboAbfertigungsart.FormattingEnabled = True - Me.cboAbfertigungsart.Location = New System.Drawing.Point(532, 64) - Me.cboAbfertigungsart.Name = "cboAbfertigungsart" - Me.cboAbfertigungsart.Size = New System.Drawing.Size(166, 21) - Me.cboAbfertigungsart.TabIndex = 26 - ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -527,11 +387,10 @@ Partial Class frmFaktSammelRgDrucken ' 'cbxMWST ' - Me.cbxMWST.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbxMWST.AutoSize = True Me.cbxMWST.Checked = True Me.cbxMWST.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxMWST.Location = New System.Drawing.Point(707, 46) + Me.cbxMWST.Location = New System.Drawing.Point(712, 46) Me.cbxMWST.Name = "cbxMWST" Me.cbxMWST.Size = New System.Drawing.Size(94, 17) Me.cbxMWST.TabIndex = 28 @@ -539,6 +398,22 @@ Partial Class frmFaktSammelRgDrucken Me.cbxMWST.ThreeState = True Me.cbxMWST.UseVisualStyleBackColor = True ' + 'cbxAUTOMail + ' + Me.cbxAUTOMail.AutoSize = True + Me.cbxAUTOMail.Location = New System.Drawing.Point(555, 44) + Me.cbxAUTOMail.Name = "cbxAUTOMail" + Me.cbxAUTOMail.Size = New System.Drawing.Size(116, 17) + Me.cbxAUTOMail.TabIndex = 30 + Me.cbxAUTOMail.Text = "AUTO Mailversand" + Me.cbxAUTOMail.UseVisualStyleBackColor = True + Me.cbxAUTOMail.Visible = False + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) + ' 'pnlAUTOMailversand ' Me.pnlAUTOMailversand.BackColor = System.Drawing.Color.AliceBlue @@ -647,35 +522,189 @@ Partial Class frmFaktSammelRgDrucken Me.Button3.Text = "aktivieren" Me.Button3.UseVisualStyleBackColor = True ' - 'cbxAUTOMail + 'cboFaktGrp ' - Me.cbxAUTOMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cbxAUTOMail.AutoSize = True - Me.cbxAUTOMail.Location = New System.Drawing.Point(550, 44) - Me.cbxAUTOMail.Name = "cbxAUTOMail" - Me.cbxAUTOMail.Size = New System.Drawing.Size(116, 17) - Me.cbxAUTOMail.TabIndex = 30 - Me.cbxAUTOMail.Text = "AUTO Mailversand" - Me.cbxAUTOMail.UseVisualStyleBackColor = True - Me.cbxAUTOMail.Visible = False + Me.cboFaktGrp._allowedValuesFreiText = Nothing + Me.cboFaktGrp._allowFreiText = False + Me.cboFaktGrp._value = "" + Me.cboFaktGrp.FormattingEnabled = True + Me.cboFaktGrp.Location = New System.Drawing.Point(532, 42) + Me.cboFaktGrp.Name = "cboFaktGrp" + Me.cboFaktGrp.Size = New System.Drawing.Size(171, 21) + Me.cboFaktGrp.TabIndex = 24 ' - 'ContextMenuStrip1 + 'cboSB ' - Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26) + Me.cboSB._allowedValuesFreiText = Nothing + Me.cboSB._allowFreiText = False + Me.cboSB._value = "" + Me.cboSB.FormattingEnabled = True + Me.cboSB.Location = New System.Drawing.Point(532, 19) + Me.cboSB.Name = "cboSB" + Me.cboSB.Size = New System.Drawing.Size(272, 21) + Me.cboSB.TabIndex = 6 + Me.cboSB.Visible = False + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.AllowUserToAddRows = False + Me.MyDatagridview1.AllowUserToDeleteRows = False + Me.MyDatagridview1.AllowUserToResizeColumns = False + Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Location = New System.Drawing.Point(252, 91) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.ReadOnly = True + Me.MyDatagridview1.RowHeadersVisible = False + Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.MyDatagridview1.Size = New System.Drawing.Size(574, 373) + Me.MyDatagridview1.TabIndex = 18 + ' + 'txtZeitraumBis + ' + Me.txtZeitraumBis._DateTimeOnly = False + Me.txtZeitraumBis._numbersOnly = False + Me.txtZeitraumBis._numbersOnlyKommastellen = "" + Me.txtZeitraumBis._numbersOnlyTrennzeichen = True + Me.txtZeitraumBis._Prozent = False + Me.txtZeitraumBis._ShortDateNew = True + Me.txtZeitraumBis._ShortDateOnly = False + Me.txtZeitraumBis._TimeOnly = False + Me.txtZeitraumBis._TimeOnly_Seconds = False + Me.txtZeitraumBis._value = "" + Me.txtZeitraumBis._Waehrung = False + Me.txtZeitraumBis._WaehrungZeichen = True + Me.txtZeitraumBis.ForeColor = System.Drawing.Color.Black + Me.txtZeitraumBis.Location = New System.Drawing.Point(252, 64) + Me.txtZeitraumBis.MaxLength = 10 + Me.txtZeitraumBis.MaxLineLength = -1 + Me.txtZeitraumBis.MaxLines_Warning = "" + Me.txtZeitraumBis.MaxLines_Warning_Label = Nothing + Me.txtZeitraumBis.Name = "txtZeitraumBis" + Me.txtZeitraumBis.Size = New System.Drawing.Size(100, 20) + Me.txtZeitraumBis.TabIndex = 8 + ' + 'txtRechnungsdatum + ' + Me.txtRechnungsdatum._DateTimeOnly = False + Me.txtRechnungsdatum._numbersOnly = False + Me.txtRechnungsdatum._numbersOnlyKommastellen = "" + Me.txtRechnungsdatum._numbersOnlyTrennzeichen = True + Me.txtRechnungsdatum._Prozent = False + Me.txtRechnungsdatum._ShortDateNew = True + Me.txtRechnungsdatum._ShortDateOnly = False + Me.txtRechnungsdatum._TimeOnly = False + Me.txtRechnungsdatum._TimeOnly_Seconds = False + Me.txtRechnungsdatum._value = "" + Me.txtRechnungsdatum._Waehrung = False + Me.txtRechnungsdatum._WaehrungZeichen = True + Me.txtRechnungsdatum.ForeColor = System.Drawing.Color.Black + Me.txtRechnungsdatum.Location = New System.Drawing.Point(252, 42) + Me.txtRechnungsdatum.MaxLength = 10 + Me.txtRechnungsdatum.MaxLineLength = -1 + Me.txtRechnungsdatum.MaxLines_Warning = "" + Me.txtRechnungsdatum.MaxLines_Warning_Label = Nothing + Me.txtRechnungsdatum.Name = "txtRechnungsdatum" + Me.txtRechnungsdatum.Size = New System.Drawing.Size(100, 20) + Me.txtRechnungsdatum.TabIndex = 4 + ' + 'cboPrinter + ' + Me.cboPrinter._allowedValuesFreiText = Nothing + Me.cboPrinter._allowFreiText = False + Me.cboPrinter._value = "" + Me.cboPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboPrinter.FormattingEnabled = True + Me.cboPrinter.Location = New System.Drawing.Point(12, 443) + Me.cboPrinter.Name = "cboPrinter" + Me.cboPrinter.Size = New System.Drawing.Size(118, 21) + Me.cboPrinter.TabIndex = 17 + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(252, 17) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(183, 21) + Me.cboFirma.TabIndex = 2 + ' + 'btnNurImport + ' + Me.btnNurImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNurImport.Location = New System.Drawing.Point(836, 437) + Me.btnNurImport.Margin = New System.Windows.Forms.Padding(0) + Me.btnNurImport.Name = "btnNurImport" + Me.btnNurImport.Size = New System.Drawing.Size(75, 26) + Me.btnNurImport.TabIndex = 47 + Me.btnNurImport.Text = "Import" + Me.btnNurImport.UseVisualStyleBackColor = True + ' + 'MyListBox1 + ' + Me.MyListBox1._value = "" + Me.MyListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyListBox1.FormattingEnabled = True + 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.TabIndex = 44 + ' + 'btnKeine + ' + Me.btnKeine.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKeine.Location = New System.Drawing.Point(985, 437) + Me.btnKeine.Margin = New System.Windows.Forms.Padding(0) + Me.btnKeine.Name = "btnKeine" + Me.btnKeine.Size = New System.Drawing.Size(75, 26) + Me.btnKeine.TabIndex = 45 + Me.btnKeine.Text = "Keine" + Me.btnKeine.UseVisualStyleBackColor = True + ' + 'lblAbfertigungsarten + ' + 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.TabIndex = 43 + Me.lblAbfertigungsarten.Text = "Abfertigungsarten:" + ' + 'btnNurExport + ' + Me.btnNurExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNurExport.Location = New System.Drawing.Point(911, 437) + Me.btnNurExport.Margin = New System.Windows.Forms.Padding(0) + Me.btnNurExport.Name = "btnNurExport" + Me.btnNurExport.Size = New System.Drawing.Size(75, 26) + Me.btnNurExport.TabIndex = 48 + Me.btnNurExport.Text = "Export" + Me.btnNurExport.UseVisualStyleBackColor = True ' '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(811, 472) + Me.ClientSize = New System.Drawing.Size(1069, 472) + Me.Controls.Add(Me.btnNurExport) + Me.Controls.Add(Me.btnNurImport) + Me.Controls.Add(Me.MyListBox1) + Me.Controls.Add(Me.btnKeine) + Me.Controls.Add(Me.lblAbfertigungsarten) Me.Controls.Add(Me.cbxAUTOMail) Me.Controls.Add(Me.pnlAUTOMailversand) Me.Controls.Add(Me.cbxMWST) Me.Controls.Add(Me.Button2) - Me.Controls.Add(Me.Label6) - Me.Controls.Add(Me.cboAbfertigungsart) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.cboFaktGrp) Me.Controls.Add(Me.Button1) @@ -707,9 +736,9 @@ Partial Class frmFaktSammelRgDrucken Me.Text = "Sammelrechnungen drucken" Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlAUTOMailversand.ResumeLayout(False) Me.pnlAUTOMailversand.PerformLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -746,8 +775,6 @@ Partial Class frmFaktSammelRgDrucken Friend WithEvents cbxTransFerry As CheckBox Friend WithEvents Label5 As Label Friend WithEvents cboFaktGrp As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents Label6 As Label - Friend WithEvents cboAbfertigungsart As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Button2 As Button Friend WithEvents RadioButton5 As RadioButton Friend WithEvents cbxMWST As CheckBox @@ -761,4 +788,9 @@ Partial Class frmFaktSammelRgDrucken Friend WithEvents Button7 As Button Friend WithEvents cbxMailoeffnen As CheckBox Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents btnNurImport As Button + Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox + Friend WithEvents btnKeine As Button + Friend WithEvents lblAbfertigungsarten As Label + Friend WithEvents btnNurExport As Button End Class diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 6ab76c76..eff14f35 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -1,4 +1,6 @@ Imports com.sun.tools.javadoc +Imports GrapeCity.ActiveReports.ReportsCore.Tools +Imports GrapeCity.Viewer.Common.Model Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -28,7 +30,7 @@ Public Class frmFaktSammelRgDrucken End Sub Private Sub RadioButton_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton.CheckedChanged, RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged, RadioButton6.CheckedChanged, RadioButton5.CheckedChanged - lblSB.Visible = False : cboSB.Visible = False : btn.Enabled = True : Button9.Enabled = True : Button8.Enabled = True : cbxMWST.Visible = False : pnlAUTOMailversand.Visible = False : cbxAUTOMail.Visible = False + lblSB.Visible = False : cboSB.Visible = False : btn.Enabled = True : Button9.Enabled = True : Button8.Enabled = True : cbxMWST.Visible = False : pnlAUTOMailversand.Visible = False : cbxAUTOMail.Visible = False : MyListBox1.Enabled = True : btnNurExport.Enabled = True : btnNurImport.Enabled = True : btnKeine.Enabled = True cboSB.changeItem("") If DirectCast(sender, RadioButton).Checked Then Sammelrechung = sender.tag @@ -54,6 +56,8 @@ Public Class frmFaktSammelRgDrucken Case 6 : txtZeitraumBis.Text = Now.AddDays(-1).ToShortDateString : lblSB.Visible = True : cboSB.Visible = True cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) : btn.Enabled = False : Button9.Enabled = False : Button2.Enabled = False cbxMWST.Visible = True : pnlAUTOMailversand.Visible = True : cbxAUTOMail.Visible = True : Label5.Visible = False : cboFaktGrp.Visible = False + MyListBox1.Enabled = False : btnNurExport.Enabled = False : btnNurImport.Enabled = False : btnKeine.Enabled = False + Case 7 : txtZeitraumBis.Text = Now.ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) End Select @@ -67,7 +71,11 @@ Public Class frmFaktSammelRgDrucken With MyDatagridview1 Dim whereAbfArt = "" Dim whereMWST = "" - If cboAbfertigungsart._value <> "" AndAlso Sammelrechung <> 6 Then whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & cboAbfertigungsart._value & "' " + Dim abfertigungsarten = getValues() + + If Sammelrechung <> 6 AndAlso abfertigungsarten <> "" Then + whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr) IN (" & abfertigungsarten & ") " + End If If cbxMWST.CheckState.Indeterminate Then whereMWST = "" Else @@ -160,11 +168,21 @@ Public Class frmFaktSammelRgDrucken End With End Sub + Function getValues() As String + Dim s As String = "" + For Each i In MyListBox1.SelectedItems + s += DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ", " + Next + If s.EndsWith(", ") Then + s = s.Substring(0, s.Length - 2) + End If + Return s + End Function + Private Sub frmFaktSammelRgDrucken_Load(sender As Object, e As EventArgs) Handles Me.Load txtZeitraumBis.Text = Now.ToShortDateString txtRechnungsdatum.Text = Now.ToShortDateString - - cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL", True) + MyListBox1.fillWithSQL(" SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", , "FMZOLL") Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then @@ -177,7 +195,7 @@ Public Class frmFaktSammelRgDrucken If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso (CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Or VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username = "DANIEL") Then FirmaTmp = "VERAG360" RadioButton5.Enabled = True - cboAbfertigungsart.changeItem("10") + MyListBox1.SetSelected(10, True) Else RadioButton5.Enabled = False @@ -355,8 +373,8 @@ Public Class frmFaktSammelRgDrucken End If - - Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, RG_DRUCK, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value, MDMKopiedrucken) + Dim abfertigungsarten = getValues() + Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, RG_DRUCK, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value, abfertigungsarten, MDMKopiedrucken) f.ShowDialog(Me) MyDatagridview1.GetOrder() initDGV() @@ -391,7 +409,10 @@ Public Class frmFaktSammelRgDrucken Dim listPDFs As New List(Of String) Dim SonstAnlagen As New List(Of String) Dim RechnungsNrisSet As Boolean = False - RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value) + + Dim abfertigungsarten = getValues() + + RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value, abfertigungsarten) '-------------- für PDF-Sammel-Rechnung -------------- @@ -531,7 +552,7 @@ Public Class frmFaktSammelRgDrucken initDGV() End Sub - Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged + Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) initDGV() End Sub @@ -694,20 +715,49 @@ Public Class frmFaktSammelRgDrucken Private Sub mnuItem_Clicked(sender As Object, e As EventArgs) - ContextMenuStrip1.Hide() - Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) - If item IsNot Nothing Then + End Sub - If item.Name <> "" AndAlso IsNumeric(item.Name) Then + Private Sub btnNurAbf_Click(sender As Object, e As EventArgs) Handles btnNurImport.Click, btnNurExport.Click - Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name) - f.Show(Me) + Dim where As String = "" + Select Case sender.Name + Case "btnNurImport" : where = "Typ = 'I'" + Case Else : where = "Typ = 'E'" + End Select - End If + Dim dt = (New SQL).loadDgvBySql("SELECT Abfertigungsart FROM [Abfertigungsarten] where 1 = 1 AND " & where, "FMZOLL") + MyListBox1.ClearSelected() + If dt IsNot Nothing Then + For Each r In dt.Rows + For i = 0 To MyListBox1.Items.Count - 1 + If DirectCast(MyListBox1.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value = r("Abfertigungsart") Then + MyListBox1.SetSelected(i, True) + End If + Next + Next + + initDGV() End If + + End Sub + + Private Sub btnAlle_Click(sender As Object, e As EventArgs) + For i = 0 To MyListBox1.Items.Count - 1 + MyListBox1.SetSelected(i, True) + Next + initDGV() + + End Sub + + Private Sub btnKeine_Click(sender As Object, e As EventArgs) Handles btnKeine.Click + For i = 0 To MyListBox1.Items.Count - 1 + MyListBox1.SetSelected(i, False) + Next + initDGV() + End Sub End Class \ No newline at end of file diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index dc854ac9..b02baa94 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 32f9942f..8bee86c9 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1401,10 +1401,10 @@ Public Class cFormularManager If size.Width <= 0 OrElse size.Height <= 0 Then Continue For ' --- Druckeinstellungen --- doc.PrintSettings.PrinterName = printerName - doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.ActualSize, False) - doc.PrintSettings.Landscape = True - doc.PrintSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 827, 1169) - doc.Print() + doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + doc.PageSettings.Orientation = Spire.Pdf.PdfPageOrientation.Landscape + doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.FitSize, True) + doc.Print() End Using From 6eb8e559a4879b6cfebff4868cf9099340e28df5 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 5 Nov 2025 17:02:42 +0100 Subject: [PATCH 04/18] cUID, Webservice --- VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 4 ++++ .../Finanzonline/cFinanzOnlineWebService.vb | 11 +++++++++++ 2 files changed, 15 insertions(+) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index d7b87c1f..e0f321eb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -254,6 +254,9 @@ Public Class cUIDPruefung If r("Error-Code") = "1511" Then errorCounter += 1 'Fehler Mitgliedsstaat nicht erreichbar!!! + ElseIf r("Error-Code") = "-99" AndAlso r("Error-Text") <> "" AndAlso r("Error-Text").ToString.Contains("Wegen Wartungsarbeiten") Then + Exit For + End If ' Bei ERROR soll er ebenfalls einzeln durchgehen! Besprochen mit A.Stockenhuber @@ -278,6 +281,7 @@ Public Class cUIDPruefung End If If veroegerungMs > 0 Then + r("Verzoegerung") = veroegerungMs Thread.Sleep(veroegerungMs) 'Bei Verögeung soll zwischen jeder Abfrage eine Pause gemacht werden! (Wegen Sperre bei zu vielen Abfragen) End If diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb index c22a47b7..fc846b99 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb @@ -136,6 +136,16 @@ Public Class cFinanzOnlineWebService Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "Fehler im externen Webservice " & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & " Daten: TID: " & tid & vbNewLine & " BENID: " & benid & vbNewLine & " SessionID: " & SESSION_ID & vbNewLine & " UID: " & uid & vbNewLine & " COUNTRY-CODE/VAT: " & countryCode & vatNumber & vbNewLine & " Stufe: " & StufeAbf & vbNewLine & " MSG: " & msg & vbNewLine & " Name: " & name & vbNewLine & " Adr1: " & adrz1 & vbNewLine & " Adr2: " & adrz2 & vbNewLine & " Adr3: " & adrz3 & vbNewLine & " Adr4: " & adrz4 & vbNewLine & " Adr5: " & adrz5 & vbNewLine & " Adr6: " & adrz6, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + If ex.Message.Contains("Wegen Wartungsarbeiten") AndAlso ex.Message.Contains("Verf??gung") Then + Dim startIndex As Integer = ex.Message.IndexOf("Wegen Wartungsarbeiten") + Dim endIndex As Integer = ex.Message.IndexOf("Verf??gung", startIndex) + Dim messageError As String = ex.Message.Substring(startIndex, endIndex - startIndex + "Verf??gung".Length) + If messageError <> "" Then errorMsg = messageError + errorCode = -99 + + End If + Exit Function End Try @@ -382,6 +392,7 @@ Public Class cFinanzOnlineWebService Case 4 : Return "Die UID-Nummer des Erwerbers ist falsch." Case 5 : Return "Die UID-Nummer des Antragstellers ist ungültig." Case 10 : Return "Der angegebene Mitgliedstaat verbietet diese Abfrage." + Case -99 : Return "" & rc Case 101 : Return "UID beginnt nicht mit ATU." Case 103 : Return "Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden, da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört. From 655614a6eee2762f9550583421060ebedf4fc7b8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 6 Nov 2025 14:12:55 +0100 Subject: [PATCH 05/18] ustv, etc. --- SDL/Fakturierung/cFakturierung.vb | 34 +- .../rptRechnungDruck_MDM.Designer.vb | 58 +-- ...agenDruck_Zinsennachberechnung.Designer.vb | 96 ++-- ...ngMDM_AnlagenDruck_Zinsennachberechnung.vb | 2 +- SDL/USTV/usrCntlUSTV.Designer.vb | 72 +-- SDL/USTV/usrCntlUSTV.vb | 45 +- SDL/buchhaltung/usrCntlBH.vb | 2 +- SDL/kunden/frmKundenblatt.Designer.vb | 484 ++++++++++-------- SDL/kunden/frmKundenblatt.vb | 135 +++-- 9 files changed, 511 insertions(+), 417 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 45fbd627..b17958dc 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2327,34 +2327,26 @@ Public Class cFakturierung rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left Select Case RECHNUNG.RechnungSprache - ' Case "EN" - ' rpt.lblLeistungUeberschrift.Text = "Inv. No." - ' rpt.lblAnzahlUeberschrift.Text = "OD days" - ' rpt.lblSteuerpflichtigUeberschrift.Text = "Payment Amount" - ' rpt.lblSteuerfreiUeberschrift.Text = "Default Interest" - ' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Interest p.a." + Case "EN" - ' Case "TR" + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("NACHBERECHNUNG VON VERZUGSZINSEN", "CHARGING OF DEFAULT INTEREST") + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("Zahlungen von", "Payments from") - ' rpt.lblLeistungUeberschrift.Text = "Belge" - ' rpt.lblAnzahlUeberschrift.Text = "Günler" - ' rpt.lblSteuerpflichtigUeberschrift.Text = "Ödeme tutarı" - ' rpt.lblSteuerfreiUeberschrift.Text = "Geç ödeme faizi" - ' ' rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a." + Case "TR" - ' Case "RO" + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("NACHBERECHNUNG VON VERZUGSZINSEN", "TEMERRÃœT FAÄ°ZÄ°NÄ°N YENÄ°DEN HESAPLANMASI") + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("Zahlungen von", "tarihleri ​​arasında yapılan ödemeler") - ' rpt.lblLeistungUeberschrift.Text = "Nr. fact." - ' rpt.lblAnzahlUeberschrift.Text = "Nr. zile" - ' rpt.lblSteuerpflichtigUeberschrift.Text = "Suma de plata" - ' rpt.lblSteuerfreiUeberschrift.Text = "Penalitati" - ' 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a." + Case "RO" + + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("NACHBERECHNUNG VON VERZUGSZINSEN", "CALCUL MAJORARI PENTRU INTARZIERE LA PLATA") + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace("Zahlungen von", "Perioda") Case Else rpt.lblLeistungUeberschrift.Text = "RENR" rpt.lblAnzahlUeberschrift.Text = "VZ Tage" - rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" + rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen" 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a." End Select @@ -2363,13 +2355,11 @@ Public Class cFakturierung rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right - - rpt.lbl_onlyZR_ZinsenUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left + rpt.lbl_onlyZR_ZinsenUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True rpt.lbl_onlyZR_ZinsenUeberschrift.Visible = True rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True - rpt.txtLeistung.Visible = False Else diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb index 325cdf32..bfd93eb6 100644 --- a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb @@ -126,11 +126,11 @@ Partial Public Class rptRechnungDruck_MDM Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() - Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit() @@ -230,7 +230,7 @@ Partial Public Class rptRechnungDruck_MDM ' Me.Detail.CanShrink = True Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport}) - Me.Detail.Height = 0.3901193! + Me.Detail.Height = 0.213036! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" ' @@ -250,13 +250,13 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lblAnzahl.Height = 0.1574803! Me.lblAnzahl.HyperLink = Nothing - Me.lblAnzahl.Left = 3.380315! + Me.lblAnzahl.Left = 3.883465! Me.lblAnzahl.Name = "lblAnzahl" Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.lblAnzahl.Text = "999" Me.lblAnzahl.Top = 0! - Me.lblAnzahl.Width = 0.5492127! + Me.lblAnzahl.Width = 0.4472442! ' 'lblSteuerfrei ' @@ -273,12 +273,12 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lblSteuerpflichtig.Height = 0.1574803! Me.lblSteuerpflichtig.HyperLink = Nothing - Me.lblSteuerpflichtig.Left = 3.957481! + Me.lblSteuerpflichtig.Left = 4.330709! Me.lblSteuerpflichtig.Name = "lblSteuerpflichtig" Me.lblSteuerpflichtig.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblSteuerpflichtig.Text = "999.999,99" Me.lblSteuerpflichtig.Top = 0! - Me.lblSteuerpflichtig.Width = 1.554331! + Me.lblSteuerpflichtig.Width = 1.181103! ' 'txtLeistung ' @@ -289,7 +289,7 @@ Partial Public Class rptRechnungDruck_MDM "ar-set: 1" Me.txtLeistung.Text = "Verzollung inkl. 5 Tarifnummern" Me.txtLeistung.Top = 0! - Me.txtLeistung.Width = 2.974803! + Me.txtLeistung.Width = 3.477953! ' 'Line10 ' @@ -1231,7 +1231,7 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lblLeistungUeberschrift.Height = 0.1511808! Me.lblLeistungUeberschrift.HyperLink = Nothing - Me.lblLeistungUeberschrift.Left = 0.01417323! + Me.lblLeistungUeberschrift.Left = 0.003937008! Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & @@ -1267,21 +1267,21 @@ Partial Public Class rptRechnungDruck_MDM ' Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808! Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing - Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492528! + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.629921! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift" Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & "-set: 1" Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlung" - Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.079378! + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.079528! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421! ' 'lbl_onlyZR_FaelligUeberschrift ' - Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808! + Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511809! Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing - Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001584! + Me.lbl_onlyZR_FaelligUeberschrift.Left = 1.907874! Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift" Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & @@ -1289,11 +1289,11 @@ Partial Public Class rptRechnungDruck_MDM Me.lbl_onlyZR_FaelligUeberschrift.Text = "Fällig" Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.079378! Me.lbl_onlyZR_FaelligUeberschrift.Visible = False - Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945! + Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.7220475! ' 'lbl_onlyZR_ReDatUeberschrift ' - Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807! + Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511811! Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9362291! Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift" @@ -1303,31 +1303,31 @@ Partial Public Class rptRechnungDruck_MDM Me.lbl_onlyZR_ReDatUeberschrift.Text = "Datum" Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.080166! Me.lbl_onlyZR_ReDatUeberschrift.Visible = False - Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354! + Me.lbl_onlyZR_ReDatUeberschrift.Width = 0.984252! ' 'lblSteuerpflichtigUeberschrift ' - Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! + Me.lblSteuerpflichtigUeberschrift.Height = 0.1511811! Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing - Me.lblSteuerpflichtigUeberschrift.Left = 3.957482! + Me.lblSteuerpflichtigUeberschrift.Left = 4.330709! Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift" Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig" Me.lblSteuerpflichtigUeberschrift.Top = 1.079528! - Me.lblSteuerpflichtigUeberschrift.Width = 1.554331! + Me.lblSteuerpflichtigUeberschrift.Width = 1.181102! ' 'lblAnzahlUeberschrift ' - Me.lblAnzahlUeberschrift.Height = 0.1511807! + Me.lblAnzahlUeberschrift.Height = 0.1511811! Me.lblAnzahlUeberschrift.HyperLink = Nothing - Me.lblAnzahlUeberschrift.Left = 3.45867! + Me.lblAnzahlUeberschrift.Left = 3.596063! Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.lblAnzahlUeberschrift.Text = "Anzahl" Me.lblAnzahlUeberschrift.Top = 1.079528! - Me.lblAnzahlUeberschrift.Width = 0.4988112! + Me.lblAnzahlUeberschrift.Width = 0.7346457! ' 'Line4 ' @@ -1336,7 +1336,7 @@ Partial Public Class rptRechnungDruck_MDM Me.Line4.LineWeight = 1.0! Me.Line4.Name = "Line4" Me.Line4.Top = 1.230709! - Me.Line4.Width = 7.475194! + Me.Line4.Width = 7.475193! Me.Line4.X1 = 0.005118821! Me.Line4.X2 = 7.480312! Me.Line4.Y1 = 1.230709! @@ -1472,7 +1472,7 @@ Partial Public Class rptRechnungDruck_MDM ' 'Line13 ' - Me.Line13.Height = 0.2043307! + Me.Line13.Height = 0.20433! Me.Line13.Left = 7.476378! Me.Line13.LineWeight = 1.0! Me.Line13.Name = "Line13" @@ -1498,7 +1498,7 @@ Partial Public Class rptRechnungDruck_MDM ' 'Line18 ' - Me.Line18.Height = 0.2043306! + Me.Line18.Height = 0.204331! Me.Line18.Left = 0.005118111! Me.Line18.LineWeight = 1.0! Me.Line18.Name = "Line18" @@ -1509,11 +1509,6 @@ Partial Public Class rptRechnungDruck_MDM Me.Line18.Y1 = 1.080315! Me.Line18.Y2 = 1.284646! ' - 'GroupFooter4 - ' - Me.GroupFooter4.Height = 0! - Me.GroupFooter4.Name = "GroupFooter4" - ' 'lblAbsenderUeberschrift ' Me.lblAbsenderUeberschrift.Height = 0.1574803! @@ -1560,6 +1555,11 @@ Partial Public Class rptRechnungDruck_MDM Me.txtEmpfaenger.Top = 0! Me.txtEmpfaenger.Width = 2.659449! ' + 'GroupFooter4 + ' + Me.GroupFooter4.Height = 0! + Me.GroupFooter4.Name = "GroupFooter4" + ' 'rptRechnungDruck_MDM ' Me.MasterReport = False diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb index 17eb644a..0b25f531 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb @@ -19,6 +19,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptRechnungMDM_AnlagenDruck_Zinsennachberechnung)) Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.txt_Anmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox() @@ -39,7 +40,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() - Me.txt_Anmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit() @@ -56,7 +57,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -72,34 +72,47 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" ' + 'txt_Anmerkung + ' + Me.txt_Anmerkung.Height = 0.1338583! + Me.txt_Anmerkung.Left = 1.893307! + Me.txt_Anmerkung.Name = "txt_Anmerkung" + Me.txt_Anmerkung.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txt_Anmerkung.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & + "ar-set: 0" + Me.txt_Anmerkung.Text = "-" + Me.txt_Anmerkung.Top = 0! + Me.txt_Anmerkung.Visible = False + Me.txt_Anmerkung.Width = 3.620866! + ' 'txtREnr ' Me.txtREnr.Height = 0.1338583! - Me.txtREnr.Left = 0.005119062! + Me.txtREnr.Left = 0.003937008! Me.txtREnr.Name = "txtREnr" Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & - "ar-set: 0" + Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" & + "-set: 0" Me.txtREnr.Text = "-" Me.txtREnr.Top = 0! - Me.txtREnr.Width = 0.8244095! + Me.txtREnr.Width = 0.9220473! ' 'txtReDat ' Me.txtReDat.Height = 0.1338583! - Me.txtReDat.Left = 0.9232284! + Me.txtReDat.Left = 0.9259843! Me.txtReDat.Name = "txtReDat" Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & "ar-set: 0" Me.txtReDat.Text = "-" Me.txtReDat.Top = 0! - Me.txtReDat.Width = 0.8657481! + Me.txtReDat.Width = 0.984252! ' 'txtZE ' Me.txtZE.Height = 0.1338583! - Me.txtZE.Left = 2.405118! + Me.txtZE.Left = 2.632284! Me.txtZE.Name = "txtZE" Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & @@ -111,26 +124,26 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung 'txtReBetrag ' Me.txtReBetrag.Height = 0.1338583! - Me.txtReBetrag.Left = 3.948426! + Me.txtReBetrag.Left = 4.333071! Me.txtReBetrag.Name = "txtReBetrag" Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" & "r-set: 0" Me.txtReBetrag.Text = "-" Me.txtReBetrag.Top = 0! - Me.txtReBetrag.Width = 0.9708654! + Me.txtReBetrag.Width = 0.8267719! ' 'txtTage ' Me.txtTage.Height = 0.1338583! - Me.txtTage.Left = 3.37126! + Me.txtTage.Left = 3.598425! Me.txtTage.Name = "txtTage" Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" & "r-set: 0" Me.txtTage.Text = "-" Me.txtTage.Top = 0! - Me.txtTage.Width = 0.5771654! + Me.txtTage.Width = 0.6618112! ' 'txtZinsen ' @@ -147,7 +160,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung 'txtVZ ' Me.txtVZ.Height = 0.1338583! - Me.txtVZ.Left = 5.502756! + Me.txtVZ.Left = 5.514174! Me.txtVZ.Name = "txtVZ" Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & @@ -159,14 +172,14 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung 'txtFaellig ' Me.txtFaellig.Height = 0.1338583! - Me.txtFaellig.Left = 1.788977! + Me.txtFaellig.Left = 1.910236! Me.txtFaellig.Name = "txtFaellig" Me.txtFaellig.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtFaellig.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & "ar-set: 0" Me.txtFaellig.Text = "-" Me.txtFaellig.Top = 0! - Me.txtFaellig.Width = 0.6161416! + Me.txtFaellig.Width = 0.7220473! ' 'PageFooter ' @@ -185,46 +198,46 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' Me.lblReNr.Height = 0.1433071! Me.lblReNr.HyperLink = Nothing - Me.lblReNr.Left = 0.005118132! + Me.lblReNr.Left = 0.003937008! Me.lblReNr.Name = "lblReNr" Me.lblReNr.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblReNr.Text = "RechnungsNr" Me.lblReNr.Top = 0! Me.lblReNr.Visible = False - Me.lblReNr.Width = 0.8244095! + Me.lblReNr.Width = 0.9220473! ' 'lblReDat ' Me.lblReDat.Height = 0.1433071! Me.lblReDat.HyperLink = Nothing - Me.lblReDat.Left = 0.8295276! + Me.lblReDat.Left = 0.9259843! Me.lblReDat.Name = "lblReDat" Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblReDat.Text = "Rechnungsdatum" Me.lblReDat.Top = 0! Me.lblReDat.Visible = False - Me.lblReDat.Width = 1.084646! + Me.lblReDat.Width = 0.984252! ' 'lblReBetrag ' Me.lblReBetrag.Height = 0.1433071! Me.lblReBetrag.HyperLink = Nothing - Me.lblReBetrag.Left = 3.948426! + Me.lblReBetrag.Left = 4.333071! Me.lblReBetrag.Name = "lblReBetrag" Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblReBetrag.Text = "Zahlungsbetrag" Me.lblReBetrag.Top = 0! Me.lblReBetrag.Visible = False - Me.lblReBetrag.Width = 1.554331! + Me.lblReBetrag.Width = 1.181102! ' 'lblZahlungsdat ' Me.lblZahlungsdat.Height = 0.1433071! Me.lblZahlungsdat.HyperLink = Nothing - Me.lblZahlungsdat.Left = 2.405118! + Me.lblZahlungsdat.Left = 2.632284! Me.lblZahlungsdat.Name = "lblZahlungsdat" Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" @@ -237,14 +250,14 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' Me.lblTage.Height = 0.1433071! Me.lblTage.HyperLink = Nothing - Me.lblTage.Left = 3.37126! + Me.lblTage.Left = 3.598425! Me.lblTage.Name = "lblTage" Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblTage.Text = "Tage" Me.lblTage.Top = 0! Me.lblTage.Visible = False - Me.lblTage.Width = 0.5771654! + Me.lblTage.Width = 0.7346457! ' 'lblZinsen ' @@ -276,14 +289,14 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' Me.Label1.Height = 0.1433071! Me.Label1.HyperLink = Nothing - Me.Label1.Left = 1.914173! + Me.Label1.Left = 1.910236! Me.Label1.Name = "Label1" Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.Label1.Text = "Fällig" Me.Label1.Top = 0! Me.Label1.Visible = False - Me.Label1.Width = 0.4909448! + Me.Label1.Width = 0.7220473! ' 'GroupFooter4 ' @@ -293,31 +306,18 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' 'Line18 ' - Me.Line18.Height = 0.00004923344! - Me.Line18.Left = 0.03444719! + Me.Line18.Height = 0! + Me.Line18.Left = 0.0976378! Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) Me.Line18.LineWeight = 1.0! Me.Line18.Name = "Line18" Me.Line18.Top = 0.0937008! - Me.Line18.Width = 7.323034! - Me.Line18.X1 = 0.03444719! - Me.Line18.X2 = 7.357481! - Me.Line18.Y1 = 0.09375003! + Me.Line18.Width = 6.968504! + Me.Line18.X1 = 0.0976378! + Me.Line18.X2 = 7.066142! + Me.Line18.Y1 = 0.0937008! Me.Line18.Y2 = 0.0937008! ' - 'txt_Anmerkung - ' - Me.txt_Anmerkung.Height = 0.1338583! - Me.txt_Anmerkung.Left = 1.788977! - Me.txt_Anmerkung.Name = "txt_Anmerkung" - Me.txt_Anmerkung.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txt_Anmerkung.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & - "ar-set: 0" - Me.txt_Anmerkung.Text = "-" - Me.txt_Anmerkung.Top = 0.02083332! - Me.txt_Anmerkung.Visible = False - Me.txt_Anmerkung.Width = 3.713779! - ' 'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' Me.MasterReport = False @@ -327,7 +327,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.PageSettings.Margins.Top = 0.3937008! Me.PageSettings.PaperHeight = 11.0! Me.PageSettings.PaperWidth = 8.5! - Me.PrintWidth = 7.452378! + Me.PrintWidth = 7.103184! Me.Sections.Add(Me.PageHeader) Me.Sections.Add(Me.GroupHeader4) Me.Sections.Add(Me.Detail) @@ -339,6 +339,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & "lic", "Heading2", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtZE, System.ComponentModel.ISupportInitialize).EndInit() @@ -355,7 +356,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index 7217261a..34e041ee 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -60,7 +60,7 @@ End If If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2") - If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %" + If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & "%" End If End Sub diff --git a/SDL/USTV/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb index 8db4f257..a1bf802b 100644 --- a/SDL/USTV/usrCntlUSTV.Designer.vb +++ b/SDL/USTV/usrCntlUSTV.Designer.vb @@ -292,25 +292,27 @@ Partial Class usrCntlUSTV Me.txtRisiko._Waehrung = True Me.txtRisiko._WaehrungZeichen = True Me.txtRisiko.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtRisiko.BackColor = System.Drawing.Color.IndianRed + Me.txtRisiko.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtRisiko.ForeColor = System.Drawing.Color.Black - Me.txtRisiko.Location = New System.Drawing.Point(1161, 28) + Me.txtRisiko.Location = New System.Drawing.Point(1015, 29) Me.txtRisiko.MaxLineLength = -1 Me.txtRisiko.MaxLines_Warning = "" Me.txtRisiko.MaxLines_Warning_Label = Nothing Me.txtRisiko.Name = "txtRisiko" Me.txtRisiko.ReadOnly = True - Me.txtRisiko.Size = New System.Drawing.Size(107, 20) + Me.txtRisiko.Size = New System.Drawing.Size(96, 20) Me.txtRisiko.TabIndex = 56 ' 'Label10 ' Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(1116, 31) + Me.Label10.Location = New System.Drawing.Point(957, 32) Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(45, 13) + Me.Label10.Size = New System.Drawing.Size(36, 13) Me.Label10.TabIndex = 55 - Me.Label10.Text = "= Risiko" + Me.Label10.Text = "Risiko" ' 'txtOPSaldo ' @@ -327,21 +329,23 @@ Partial Class usrCntlUSTV Me.txtOPSaldo._Waehrung = True Me.txtOPSaldo._WaehrungZeichen = True Me.txtOPSaldo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtOPSaldo.BackColor = System.Drawing.Color.IndianRed + Me.txtOPSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtOPSaldo.ForeColor = System.Drawing.Color.Black - Me.txtOPSaldo.Location = New System.Drawing.Point(999, 0) + Me.txtOPSaldo.Location = New System.Drawing.Point(1015, 6) Me.txtOPSaldo.MaxLineLength = -1 Me.txtOPSaldo.MaxLines_Warning = "" Me.txtOPSaldo.MaxLines_Warning_Label = Nothing Me.txtOPSaldo.Name = "txtOPSaldo" Me.txtOPSaldo.ReadOnly = True - Me.txtOPSaldo.Size = New System.Drawing.Size(91, 20) + Me.txtOPSaldo.Size = New System.Drawing.Size(96, 20) Me.txtOPSaldo.TabIndex = 54 ' 'Label11 ' Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(941, 6) + Me.Label11.Location = New System.Drawing.Point(957, 12) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(52, 13) Me.Label11.TabIndex = 53 @@ -373,13 +377,13 @@ Partial Class usrCntlUSTV Me.txtSumDiff._WaehrungZeichen = True Me.txtSumDiff.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtSumDiff.ForeColor = System.Drawing.Color.Black - Me.txtSumDiff.Location = New System.Drawing.Point(999, 19) + Me.txtSumDiff.Location = New System.Drawing.Point(1396, 49) Me.txtSumDiff.MaxLineLength = -1 Me.txtSumDiff.MaxLines_Warning = "" Me.txtSumDiff.MaxLines_Warning_Label = Nothing Me.txtSumDiff.Name = "txtSumDiff" Me.txtSumDiff.ReadOnly = True - Me.txtSumDiff.Size = New System.Drawing.Size(91, 20) + Me.txtSumDiff.Size = New System.Drawing.Size(92, 20) Me.txtSumDiff.TabIndex = 32 ' 'btnKundendatenaktualisieren @@ -412,13 +416,13 @@ Partial Class usrCntlUSTV Me.txtSumErst._WaehrungZeichen = True Me.txtSumErst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtSumErst.ForeColor = System.Drawing.Color.Black - Me.txtSumErst.Location = New System.Drawing.Point(1381, 25) + Me.txtSumErst.Location = New System.Drawing.Point(1396, 25) Me.txtSumErst.MaxLineLength = -1 Me.txtSumErst.MaxLines_Warning = "" Me.txtSumErst.MaxLines_Warning_Label = Nothing Me.txtSumErst.Name = "txtSumErst" Me.txtSumErst.ReadOnly = True - Me.txtSumErst.Size = New System.Drawing.Size(107, 20) + Me.txtSumErst.Size = New System.Drawing.Size(92, 20) Me.txtSumErst.TabIndex = 31 ' 'txtSumUst @@ -437,13 +441,13 @@ Partial Class usrCntlUSTV Me.txtSumUst._WaehrungZeichen = True Me.txtSumUst.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtSumUst.ForeColor = System.Drawing.Color.Black - Me.txtSumUst.Location = New System.Drawing.Point(1381, 5) + Me.txtSumUst.Location = New System.Drawing.Point(1396, 5) Me.txtSumUst.MaxLineLength = -1 Me.txtSumUst.MaxLines_Warning = "" Me.txtSumUst.MaxLines_Warning_Label = Nothing Me.txtSumUst.Name = "txtSumUst" Me.txtSumUst.ReadOnly = True - Me.txtSumUst.Size = New System.Drawing.Size(107, 20) + Me.txtSumUst.Size = New System.Drawing.Size(92, 20) Me.txtSumUst.TabIndex = 30 ' 'txtVZBetrag @@ -462,40 +466,40 @@ Partial Class usrCntlUSTV Me.txtVZBetrag._WaehrungZeichen = True Me.txtVZBetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtVZBetrag.ForeColor = System.Drawing.Color.Black - Me.txtVZBetrag.Location = New System.Drawing.Point(1161, 5) + Me.txtVZBetrag.Location = New System.Drawing.Point(1204, 5) Me.txtVZBetrag.MaxLineLength = -1 Me.txtVZBetrag.MaxLines_Warning = "" Me.txtVZBetrag.MaxLines_Warning_Label = Nothing Me.txtVZBetrag.Name = "txtVZBetrag" Me.txtVZBetrag.ReadOnly = True - Me.txtVZBetrag.Size = New System.Drawing.Size(107, 20) + Me.txtVZBetrag.Size = New System.Drawing.Size(92, 20) Me.txtVZBetrag.TabIndex = 51 ' 'Label5 ' Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(914, 27) + Me.Label5.Location = New System.Drawing.Point(1302, 51) Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(85, 13) + Me.Label5.Size = New System.Drawing.Size(79, 13) Me.Label5.TabIndex = 29 - Me.Label5.Text = "- Differenzbetrag" + Me.Label5.Text = "Differenzbetrag" ' 'Label8 ' Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(1100, 8) + Me.Label8.Location = New System.Drawing.Point(1117, 13) Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(64, 13) + Me.Label8.Size = New System.Drawing.Size(55, 13) Me.Label8.TabIndex = 50 - Me.Label8.Text = "+ VZ-Betrag" + Me.Label8.Text = "VZ-Betrag" ' 'Label4 ' Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(1276, 28) + Me.Label4.Location = New System.Drawing.Point(1302, 27) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(90, 13) Me.Label4.TabIndex = 28 @@ -516,21 +520,23 @@ Partial Class usrCntlUSTV Me.txt3470Betrag._Waehrung = True Me.txt3470Betrag._WaehrungZeichen = True Me.txt3470Betrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txt3470Betrag.BackColor = System.Drawing.Color.LightGreen + Me.txt3470Betrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txt3470Betrag.ForeColor = System.Drawing.Color.Black - Me.txt3470Betrag.Location = New System.Drawing.Point(999, 40) + Me.txt3470Betrag.Location = New System.Drawing.Point(848, 8) Me.txt3470Betrag.MaxLineLength = -1 Me.txt3470Betrag.MaxLines_Warning = "" Me.txt3470Betrag.MaxLines_Warning_Label = Nothing Me.txt3470Betrag.Name = "txt3470Betrag" Me.txt3470Betrag.ReadOnly = True - Me.txt3470Betrag.Size = New System.Drawing.Size(91, 20) + Me.txt3470Betrag.Size = New System.Drawing.Size(103, 20) Me.txt3470Betrag.TabIndex = 49 ' 'Label3 ' Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(1276, 7) + Me.Label3.Location = New System.Drawing.Point(1302, 6) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(59, 13) Me.Label3.TabIndex = 27 @@ -540,11 +546,11 @@ Partial Class usrCntlUSTV ' Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(956, 43) + Me.Label7.Location = New System.Drawing.Point(811, 12) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(37, 13) + Me.Label7.Size = New System.Drawing.Size(31, 13) Me.Label7.TabIndex = 48 - Me.Label7.Text = "- 3470" + Me.Label7.Text = "3470" ' 'txtVorschaubetrGes ' @@ -562,7 +568,7 @@ Partial Class usrCntlUSTV Me.txtVorschaubetrGes._WaehrungZeichen = True Me.txtVorschaubetrGes.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtVorschaubetrGes.ForeColor = System.Drawing.Color.Black - Me.txtVorschaubetrGes.Location = New System.Drawing.Point(999, 60) + Me.txtVorschaubetrGes.Location = New System.Drawing.Point(1205, 28) Me.txtVorschaubetrGes.MaxLineLength = -1 Me.txtVorschaubetrGes.MaxLines_Warning = "" Me.txtVorschaubetrGes.MaxLines_Warning_Label = Nothing @@ -575,11 +581,11 @@ Partial Class usrCntlUSTV ' Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(872, 63) + Me.Label6.Location = New System.Drawing.Point(1117, 35) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(127, 13) + Me.Label6.Size = New System.Drawing.Size(82, 13) Me.Label6.TabIndex = 33 - Me.Label6.Text = "- Vorschaubetrag-Gesamt" + Me.Label6.Text = "Vorschaubetrag" ' 'cbxDifferenzbetrag ' diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 167470f7..4c38d7a4 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1,7 +1,4 @@ Imports System.ComponentModel -Imports com.sun.org.apache.bcel.internal.generic -Imports com.sun.xml.internal.rngom -Imports DocumentFormat.OpenXml.Drawing Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -47,10 +44,17 @@ Public Class usrCntlUSTV End If End If - .SET_SQL("SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_VZBetrag],[UStVAn_VZDatum],[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,UStVAn_VZoffen ,[UStVAn_Sachbearbeiter] + Dim sql_query As String = "SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_VZBetrag],[UStVAn_VZDatum],[UStVAn_3470],STUFF(( + SELECT ', ' + CAST(e.GutschriftsNr AS VARCHAR(50)) + From tblUStVErstattung e + Where e.UStVAn_ID = [tblUStVAntrag].[UStVAn_ID] + FOR XML PATH(''), TYPE + ).value('.', 'NVARCHAR(MAX)'), 1, 2, '') AS 'GutschriftsNr' ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,UStVAn_VZoffen ,[UStVAn_Sachbearbeiter] FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr where 1=1 " & getWhere(, ID, AntragsLand) & " - order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL") + order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc" + + .SET_SQL(sql_query, "FMZOLL") .LOAD() loaded = True @@ -62,41 +66,38 @@ Public Class usrCntlUSTV btnKundendatenaktualisieren.Enabled = KdSearchBox1.KdNr > 0 'AndAlso .RowCount > 0 - - If .Columns.Count > 0 Then Dim DataGridViewCellStyleDate = New DataGridViewCellStyle() DataGridViewCellStyleDate.Format = "MM/yyyy" - - ' .Columns("UStVAn_ID").Visible = False - .Columns("UStVAn_ID").Width = 70 + .Columns("UStVAn_ID").Width = 60 .Columns("UStVAn_ID").HeaderText = "ID" '.Columns("UStVAn_ID").Frozen = True .Columns("UStVAn_AntragArt").HeaderText = "Art" - .Columns("UStVAn_AntragArt").MinimumWidth = 50 + .Columns("UStVAn_AntragArt").Width = 50 '.Columns("UStVAn_AntragArt").Frozen = True .Columns("UStVAn_KuNr").HeaderText = "KundenNr" - .Columns("UStVAn_Name").MinimumWidth = 70 + .Columns("UStVAn_KuNr").Width = 70 '.Columns("UStVAn_KuNr").Frozen = True .Columns("UStVAn_Name").HeaderText = "Firma" - .Columns("UStVAn_Name").Width = 200 + .Columns("UStVAn_Name").MinimumWidth = 150 + .Columns("UStVAn_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill '.Columns("UStVAn_Name").Frozen = True ' .Columns("UStVAn_Name").MinimumWidth = 150 ' .Columns("UStVAn_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("UStVAn_LandKz").HeaderText = "Land" - .Columns("UStVAn_LandKz").Width = 60 + .Columns("UStVAn_LandKz").Width = 50 '.Columns("UStVAn_LandKz").Frozen = True .Columns("Land_Antrag").HeaderText = "Antrag Land" - .Columns("Land_Antrag").Width = 60 + .Columns("Land_Antrag").Width = 50 '.Columns("Land_Antrag").Frozen = True .Columns("UStVAn_ReDatVon").HeaderText = "Von" @@ -108,7 +109,7 @@ Public Class usrCntlUSTV .Columns("UStVAn_ReDatBis").Width = 75 .Columns("UStVAn_BezugsNr").HeaderText = "BezugsNr" - .Columns("UStVAn_BezugsNr").Width = 70 + .Columns("UStVAn_BezugsNr").Width = 60 .Columns("UStVAn_AntragEingereichtAm").HeaderText = "Eingereicht Datum" .Columns("UStVAn_AntragEingereichtAm").Width = 80 @@ -123,7 +124,7 @@ Public Class usrCntlUSTV .Columns("UStVAn_3470").HeaderText = "3470" - .Columns("UStVAn_3470").Width = 100 + .Columns("UStVAn_3470").Width = 80 .Columns("UStVAn_3470").DefaultCellStyle.Format = "N2" .Columns("UStVAn_3470").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight @@ -161,14 +162,16 @@ Public Class usrCntlUSTV .Columns("UStVAn_DifferenzbetragEUR").DefaultCellStyle.Format = "N2" .Columns("UStVAn_DifferenzbetragEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns("UStVAn_VZoffen").HeaderText = "VZ nicht abgerechnet" .Columns("UStVAn_VZoffen").Width = 80 .Columns("UStVAn_VZoffen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("GutschriftsNr").HeaderText = "GutschriftsNr" + .Columns("GutschriftsNr").Width = 180 + .Columns("GutschriftsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("UStVAn_Sachbearbeiter").HeaderText = "Sachbearbeiter" - .Columns("UStVAn_Sachbearbeiter").MinimumWidth = 150 - .Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("UStVAn_Sachbearbeiter").MinimumWidth = 60 End If Dim GesamtUSteuer As Double = 0 @@ -594,7 +597,7 @@ Public Class usrCntlUSTV - Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn3470.Click + Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index d09ede23..09ed86b6 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -1305,7 +1305,7 @@ Public Class usrCntlBH Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString - Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!! + Dim vermerk As String = "Zahlungen von " & startDate & " - " & EndDate 'max 50 Zeichen!!! Dim Fußtext As String = "" 'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & " diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index f415d6c1..8d9f1879 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -38,9 +38,6 @@ Partial Class frmKundenblatt Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -48,14 +45,20 @@ Partial Class frmKundenblatt Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt)) Me.pnlInfo = New System.Windows.Forms.Panel() Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() + Me.txtEmailRE2 = New System.Windows.Forms.TextBox() Me.txtEmailRE = New System.Windows.Forms.TextBox() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.PictureBox8 = New System.Windows.Forms.PictureBox() @@ -153,10 +156,8 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -188,7 +189,6 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() @@ -199,7 +199,6 @@ Partial Class frmKundenblatt Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.tbFIBU = New System.Windows.Forms.TabPage() Me.txtZinsbelastungNew = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btn_FIBU_speichern = New System.Windows.Forms.Button() @@ -249,7 +248,13 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.txtEmailRE2 = New System.Windows.Forms.TextBox() + Me.txtAnsprechp = New System.Windows.Forms.TextBox() + Me.dgvLeistungen = New System.Windows.Forms.DataGridView() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -309,6 +314,7 @@ Partial Class frmKundenblatt Me.ContextMenuStrip3.SuspendLayout() Me.mne.SuspendLayout() Me.pnl.SuspendLayout() + CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnlInfo @@ -317,7 +323,7 @@ Partial Class frmKundenblatt Me.pnlInfo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) Me.pnlInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlInfo.Controls.Add(Me.txtInfotext) - Me.pnlInfo.Location = New System.Drawing.Point(332, 6) + Me.pnlInfo.Location = New System.Drawing.Point(350, 6) Me.pnlInfo.Name = "pnlInfo" Me.pnlInfo.Size = New System.Drawing.Size(602, 35) Me.pnlInfo.TabIndex = 1 @@ -339,7 +345,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 962) + Me.tbFirmendaten.Size = New System.Drawing.Size(1681, 996) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -349,19 +355,9 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1638, 956) + Me.Panel4.Size = New System.Drawing.Size(1675, 990) Me.Panel4.TabIndex = 0 ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 956) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -379,17 +375,19 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1652, 991) + Me.tbcntrMain.Size = New System.Drawing.Size(1689, 1025) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein ' Me.tbAllgemein.BackColor = System.Drawing.Color.White + Me.tbAllgemein.Controls.Add(Me.txtAnsprechp) Me.tbAllgemein.Controls.Add(Me.txtEmailRE2) Me.tbAllgemein.Controls.Add(Me.txtEmailRE) Me.tbAllgemein.Controls.Add(Me.TextBox1) Me.tbAllgemein.Controls.Add(Me.PictureBox8) Me.tbAllgemein.Controls.Add(Me.FlatButton6) + Me.tbAllgemein.Controls.Add(Me.picLogo) Me.tbAllgemein.Controls.Add(Me.lblBonitaet) Me.tbAllgemein.Controls.Add(Me.Label39) Me.tbAllgemein.Controls.Add(Me.btnBonitaetBearbeiten) @@ -399,7 +397,6 @@ Partial Class frmKundenblatt Me.tbAllgemein.Controls.Add(Me.cboFirmaFMZOLL) Me.tbAllgemein.Controls.Add(Me.Label17) Me.tbAllgemein.Controls.Add(Me.dgvOfferte) - Me.tbAllgemein.Controls.Add(Me.picLogo) Me.tbAllgemein.Controls.Add(Me.Button4) Me.tbAllgemein.Controls.Add(Me.lblEmail2) Me.tbAllgemein.Controls.Add(Me.lblEmail) @@ -424,10 +421,23 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1644, 962) + Me.tbAllgemein.Size = New System.Drawing.Size(1681, 996) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' + 'txtEmailRE2 + ' + Me.txtEmailRE2.BackColor = System.Drawing.Color.White + Me.txtEmailRE2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmailRE2.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtEmailRE2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmailRE2.Location = New System.Drawing.Point(40, 410) + Me.txtEmailRE2.Name = "txtEmailRE2" + Me.txtEmailRE2.ReadOnly = True + Me.txtEmailRE2.Size = New System.Drawing.Size(384, 19) + Me.txtEmailRE2.TabIndex = 195 + Me.txtEmailRE2.Text = "email-Rechnung" + ' 'txtEmailRE ' Me.txtEmailRE.BackColor = System.Drawing.Color.White @@ -542,7 +552,7 @@ Partial Class frmKundenblatt Me.TabControl1.Location = New System.Drawing.Point(8, 474) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(718, 482) + Me.TabControl1.Size = New System.Drawing.Size(718, 516) Me.TabControl1.TabIndex = 186 ' 'TabPage1 @@ -554,7 +564,7 @@ Partial Class frmKundenblatt Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(710, 456) + Me.TabPage1.Size = New System.Drawing.Size(710, 490) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Offene Posten" Me.TabPage1.UseVisualStyleBackColor = True @@ -613,7 +623,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 424) + Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 458) Me.dgvOffenePosten.TabIndex = 175 ' 'Label10 @@ -646,7 +656,7 @@ Partial Class frmKundenblatt Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(710, 456) + Me.TabPage2.Size = New System.Drawing.Size(710, 473) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Umsatzbericht" Me.TabPage2.UseVisualStyleBackColor = True @@ -691,7 +701,7 @@ Partial Class frmKundenblatt Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUmsaetze.RowHeadersVisible = False Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 451) + Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 468) Me.dgvUmsaetze.TabIndex = 182 ' 'Label13 @@ -739,7 +749,7 @@ Partial Class frmKundenblatt Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(710, 456) + Me.TabPage3.Size = New System.Drawing.Size(710, 473) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Umsatz nach LeistungsNr" Me.TabPage3.UseVisualStyleBackColor = True @@ -795,7 +805,7 @@ Partial Class frmKundenblatt Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 450) + Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 467) Me.dgvUmsatzNachLeistngsNr.TabIndex = 183 ' 'lblAdressenzusatz @@ -803,7 +813,7 @@ Partial Class frmKundenblatt Me.lblAdressenzusatz.BackColor = System.Drawing.Color.White Me.lblAdressenzusatz.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblAdressenzusatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAdressenzusatz.Location = New System.Drawing.Point(3, 144) + Me.lblAdressenzusatz.Location = New System.Drawing.Point(3, 126) Me.lblAdressenzusatz.Name = "lblAdressenzusatz" Me.lblAdressenzusatz.ReadOnly = True Me.lblAdressenzusatz.Size = New System.Drawing.Size(419, 19) @@ -835,11 +845,12 @@ Partial Class frmKundenblatt 'Label17 ' Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(430, 20) + Me.Label17.Location = New System.Drawing.Point(660, 21) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(66, 13) Me.Label17.TabIndex = 1 Me.Label17.Text = "Offertenliste:" + Me.Label17.Visible = False ' 'dgvOfferte ' @@ -861,7 +872,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle14 - Me.dgvOfferte.Location = New System.Drawing.Point(433, 37) + Me.dgvOfferte.Location = New System.Drawing.Point(684, 37) Me.dgvOfferte.Name = "dgvOfferte" Me.dgvOfferte.ReadOnly = True DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft @@ -872,8 +883,9 @@ Partial Class frmKundenblatt DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvOfferte.Size = New System.Drawing.Size(293, 320) + Me.dgvOfferte.Size = New System.Drawing.Size(42, 320) Me.dgvOfferte.TabIndex = 12 + Me.dgvOfferte.Visible = False ' 'picLogo ' @@ -882,9 +894,9 @@ Partial Class frmKundenblatt Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default Me.picLogo.ImageLocation = "" - Me.picLogo.Location = New System.Drawing.Point(788, 839) + Me.picLogo.Location = New System.Drawing.Point(430, 6) Me.picLogo.Name = "picLogo" - Me.picLogo.Size = New System.Drawing.Size(287, 114) + Me.picLogo.Size = New System.Drawing.Size(145, 58) Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.picLogo.TabIndex = 173 Me.picLogo.TabStop = False @@ -896,7 +908,7 @@ Partial Class frmKundenblatt Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.Location = New System.Drawing.Point(1058, 792) + Me.Button4.Location = New System.Drawing.Point(1095, 470) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(136, 32) Me.Button4.TabIndex = 21 @@ -971,7 +983,7 @@ Partial Class frmKundenblatt Me.lblUid.BackColor = System.Drawing.Color.White Me.lblUid.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblUid.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblUid.Location = New System.Drawing.Point(5, 216) + Me.lblUid.Location = New System.Drawing.Point(5, 191) Me.lblUid.Name = "lblUid" Me.lblUid.ReadOnly = True Me.lblUid.Size = New System.Drawing.Size(419, 19) @@ -983,7 +995,7 @@ Partial Class frmKundenblatt Me.lblPostfach.BackColor = System.Drawing.Color.White Me.lblPostfach.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblPostfach.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblPostfach.Location = New System.Drawing.Point(5, 191) + Me.lblPostfach.Location = New System.Drawing.Point(3, 170) Me.lblPostfach.Name = "lblPostfach" Me.lblPostfach.ReadOnly = True Me.lblPostfach.Size = New System.Drawing.Size(419, 19) @@ -995,7 +1007,7 @@ Partial Class frmKundenblatt Me.lblLandPlzOrt.BackColor = System.Drawing.Color.White Me.lblLandPlzOrt.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblLandPlzOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblLandPlzOrt.Location = New System.Drawing.Point(5, 166) + Me.lblLandPlzOrt.Location = New System.Drawing.Point(3, 149) Me.lblLandPlzOrt.Name = "lblLandPlzOrt" Me.lblLandPlzOrt.ReadOnly = True Me.lblLandPlzOrt.Size = New System.Drawing.Size(419, 19) @@ -1007,7 +1019,7 @@ Partial Class frmKundenblatt Me.lblStrasse.BackColor = System.Drawing.Color.White Me.lblStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblStrasse.Location = New System.Drawing.Point(3, 122) + Me.lblStrasse.Location = New System.Drawing.Point(3, 104) Me.lblStrasse.Name = "lblStrasse" Me.lblStrasse.ReadOnly = True Me.lblStrasse.Size = New System.Drawing.Size(419, 19) @@ -1019,7 +1031,7 @@ Partial Class frmKundenblatt Me.lblFirmenname2.BackColor = System.Drawing.Color.White Me.lblFirmenname2.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblFirmenname2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirmenname2.Location = New System.Drawing.Point(3, 97) + Me.lblFirmenname2.Location = New System.Drawing.Point(3, 83) Me.lblFirmenname2.Name = "lblFirmenname2" Me.lblFirmenname2.ReadOnly = True Me.lblFirmenname2.Size = New System.Drawing.Size(419, 19) @@ -1031,7 +1043,7 @@ Partial Class frmKundenblatt Me.lblFirmenname1.BackColor = System.Drawing.Color.White Me.lblFirmenname1.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblFirmenname1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirmenname1.Location = New System.Drawing.Point(3, 79) + Me.lblFirmenname1.Location = New System.Drawing.Point(3, 62) Me.lblFirmenname1.Name = "lblFirmenname1" Me.lblFirmenname1.ReadOnly = True Me.lblFirmenname1.Size = New System.Drawing.Size(419, 19) @@ -1057,10 +1069,11 @@ Partial Class frmKundenblatt Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen) Me.GroupBox5.Controls.Add(Me.lblStat_Lkws) + Me.GroupBox5.Controls.Add(Me.dgvLeistungen) Me.GroupBox5.Controls.Add(Me.PictureBox5) - Me.GroupBox5.Location = New System.Drawing.Point(738, 832) + Me.GroupBox5.Location = New System.Drawing.Point(738, 501) Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(456, 121) + Me.GroupBox5.Size = New System.Drawing.Size(493, 489) Me.GroupBox5.TabIndex = 22 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Statistik" @@ -1071,7 +1084,7 @@ Partial Class frmKundenblatt Me.lblStat_SdlLeistungen_Maut.AutoSize = True Me.lblStat_SdlLeistungen_Maut.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_SdlLeistungen_Maut.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblStat_SdlLeistungen_Maut.Location = New System.Drawing.Point(12, 90) + Me.lblStat_SdlLeistungen_Maut.Location = New System.Drawing.Point(15, 48) Me.lblStat_SdlLeistungen_Maut.Name = "lblStat_SdlLeistungen_Maut" Me.lblStat_SdlLeistungen_Maut.Size = New System.Drawing.Size(27, 16) Me.lblStat_SdlLeistungen_Maut.TabIndex = 3 @@ -1082,7 +1095,7 @@ Partial Class frmKundenblatt Me.lblStat_SdlLeistungen_Diesel.AutoSize = True Me.lblStat_SdlLeistungen_Diesel.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_SdlLeistungen_Diesel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblStat_SdlLeistungen_Diesel.Location = New System.Drawing.Point(12, 70) + Me.lblStat_SdlLeistungen_Diesel.Location = New System.Drawing.Point(15, 32) Me.lblStat_SdlLeistungen_Diesel.Name = "lblStat_SdlLeistungen_Diesel" Me.lblStat_SdlLeistungen_Diesel.Size = New System.Drawing.Size(27, 16) Me.lblStat_SdlLeistungen_Diesel.TabIndex = 2 @@ -1093,7 +1106,7 @@ Partial Class frmKundenblatt Me.lblStat_SdlLeistungen.AutoSize = True Me.lblStat_SdlLeistungen.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_SdlLeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblStat_SdlLeistungen.Location = New System.Drawing.Point(12, 50) + Me.lblStat_SdlLeistungen.Location = New System.Drawing.Point(15, 64) Me.lblStat_SdlLeistungen.Name = "lblStat_SdlLeistungen" Me.lblStat_SdlLeistungen.Size = New System.Drawing.Size(27, 16) Me.lblStat_SdlLeistungen.TabIndex = 1 @@ -1104,7 +1117,7 @@ Partial Class frmKundenblatt Me.lblStat_Lkws.AutoSize = True Me.lblStat_Lkws.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_Lkws.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblStat_Lkws.Location = New System.Drawing.Point(12, 30) + Me.lblStat_Lkws.Location = New System.Drawing.Point(15, 16) Me.lblStat_Lkws.Name = "lblStat_Lkws" Me.lblStat_Lkws.Size = New System.Drawing.Size(30, 16) Me.lblStat_Lkws.TabIndex = 0 @@ -1114,7 +1127,7 @@ Partial Class frmKundenblatt ' Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.statistik - Me.PictureBox5.Location = New System.Drawing.Point(409, 7) + Me.PictureBox5.Location = New System.Drawing.Point(449, 9) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(38, 39) Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -1137,28 +1150,28 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.ForeColor = System.Drawing.Color.Black - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle20.ForeColor = System.Drawing.Color.Black + DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle20 Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36) Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvSperrliste.Size = New System.Drawing.Size(462, 629) + Me.dgvSperrliste.Size = New System.Drawing.Size(499, 413) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -1198,11 +1211,11 @@ Partial Class frmKundenblatt Me.lblKurzname.BackColor = System.Drawing.Color.White Me.lblKurzname.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblKurzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKurzname.Location = New System.Drawing.Point(3, 18) + Me.lblKurzname.Location = New System.Drawing.Point(3, 6) Me.lblKurzname.Multiline = True Me.lblKurzname.Name = "lblKurzname" Me.lblKurzname.ReadOnly = True - Me.lblKurzname.Size = New System.Drawing.Size(421, 55) + Me.lblKurzname.Size = New System.Drawing.Size(421, 58) Me.lblKurzname.TabIndex = 0 Me.lblKurzname.Text = "VERAG Spedition AG" ' @@ -1212,7 +1225,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1644, 962) + Me.tbZoll.Size = New System.Drawing.Size(1681, 996) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -1224,7 +1237,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 956) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1675, 990) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -1232,7 +1245,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 930) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1667, 964) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -1243,7 +1256,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1644, 962) + Me.tbMdm.Size = New System.Drawing.Size(1681, 996) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -1262,7 +1275,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 956) + Me.tbcntrMDM.Size = New System.Drawing.Size(1675, 990) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -1274,7 +1287,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1630, 930) + Me.tbSDL.Size = New System.Drawing.Size(1667, 964) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -1283,40 +1296,40 @@ Partial Class frmKundenblatt ' Me.dgvSDLLeistungenFull.AllowUserToAddRows = False Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False - DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22 Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle23 Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50) Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull" Me.dgvSDLLeistungenFull.ReadOnly = True - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle24 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 734) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1661, 768) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1330,7 +1343,7 @@ Partial Class frmKundenblatt Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top Me.Panel6.Location = New System.Drawing.Point(3, 3) Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(1624, 47) + Me.Panel6.Size = New System.Drawing.Size(1661, 47) Me.Panel6.TabIndex = 178 ' 'Label28 @@ -1422,9 +1435,9 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 784) + Me.Panel5.Location = New System.Drawing.Point(3, 818) Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(1624, 143) + Me.Panel5.Size = New System.Drawing.Size(1661, 143) Me.Panel5.TabIndex = 177 ' 'btnBestelldateiErzeugen @@ -1816,21 +1829,11 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 947) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) - Me.usrcntlKarten.TabIndex = 0 - ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1838,7 +1841,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(178, 39) + Me.tbLKW.Size = New System.Drawing.Size(1630, 947) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1850,22 +1853,9 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) + Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 941) Me.pnlLKWRight.TabIndex = 2 ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) - Me.UsrCntlLKW1.TabIndex = 0 - ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1874,48 +1864,48 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 941) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW ' Me.dgvLKW.AllowUserToAddRows = False Me.dgvLKW.AllowUserToDeleteRows = False - DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25 Me.dgvLKW.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle23 + DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle26.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle26.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle26.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle26.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle26 Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle24 + DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle27 Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvLKW.Location = New System.Drawing.Point(0, 62) Me.dgvLKW.Name = "dgvLKW" Me.dgvLKW.ReadOnly = True - DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25 + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle28 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 0) + Me.dgvLKW.Size = New System.Drawing.Size(306, 767) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1927,7 +1917,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 829) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -2068,7 +2058,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) + Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 947) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -2080,7 +2070,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(172, 33) + Me.Panel3.Size = New System.Drawing.Size(1624, 941) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -2098,7 +2088,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(178, 39) + Me.tbDokumente.Size = New System.Drawing.Size(1630, 947) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -2298,7 +2288,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 947) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -2307,7 +2297,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 947) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -2318,27 +2308,17 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1644, 962) + Me.tbOfferte.Size = New System.Drawing.Size(1681, 996) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 962) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1644, 962) + Me.tbUSTV.Size = New System.Drawing.Size(1681, 996) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -2352,7 +2332,7 @@ Partial Class frmKundenblatt Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 962) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1681, 996) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -2365,7 +2345,7 @@ Partial Class frmKundenblatt Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 936) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1673, 970) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -2466,19 +2446,11 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 953) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) - Me.UsrCntlUSTV.TabIndex = 0 - ' 'tbFIBU ' Me.tbFIBU.Controls.Add(Me.txtZinsbelastungNew) @@ -2496,7 +2468,7 @@ Partial Class frmKundenblatt Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel) Me.tbFIBU.Location = New System.Drawing.Point(4, 25) Me.tbFIBU.Name = "tbFIBU" - Me.tbFIBU.Size = New System.Drawing.Size(1644, 962) + Me.tbFIBU.Size = New System.Drawing.Size(1681, 996) Me.tbFIBU.TabIndex = 13 Me.tbFIBU.Text = "FIBU" Me.tbFIBU.UseVisualStyleBackColor = True @@ -2655,7 +2627,7 @@ Partial Class frmKundenblatt Me.tbRechnungen.Controls.Add(Me.MyPanel1) Me.tbRechnungen.Location = New System.Drawing.Point(4, 25) Me.tbRechnungen.Name = "tbRechnungen" - Me.tbRechnungen.Size = New System.Drawing.Size(1644, 962) + Me.tbRechnungen.Size = New System.Drawing.Size(1681, 996) Me.tbRechnungen.TabIndex = 14 Me.tbRechnungen.Text = "Rechnungen" Me.tbRechnungen.UseVisualStyleBackColor = True @@ -2674,7 +2646,7 @@ Partial Class frmKundenblatt Me.dgvRg.ReadOnly = True Me.dgvRg.RowHeadersVisible = False Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRg.Size = New System.Drawing.Size(1644, 902) + Me.dgvRg.Size = New System.Drawing.Size(1681, 936) Me.dgvRg.TabIndex = 3 ' 'MyPanel1 @@ -2687,7 +2659,7 @@ Partial Class frmKundenblatt Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Top Me.MyPanel1.Location = New System.Drawing.Point(0, 0) Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(1644, 60) + Me.MyPanel1.Size = New System.Drawing.Size(1681, 60) Me.MyPanel1.TabIndex = 2 ' 'btnRgPdf @@ -2696,7 +2668,7 @@ Partial Class frmKundenblatt Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1 Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnRgPdf.Location = New System.Drawing.Point(1531, 0) + Me.btnRgPdf.Location = New System.Drawing.Point(1568, 0) Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.btnRgPdf.Name = "btnRgPdf" Me.btnRgPdf.Size = New System.Drawing.Size(105, 57) @@ -2848,7 +2820,7 @@ Partial Class frmKundenblatt Me.mne.Location = New System.Drawing.Point(0, 31) Me.mne.Name = "mne" Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) - Me.mne.Size = New System.Drawing.Size(1652, 81) + Me.mne.Size = New System.Drawing.Size(1689, 81) Me.mne.TabIndex = 3 Me.mne.Text = "mnue" ' @@ -2901,7 +2873,7 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -2989,7 +2961,7 @@ Partial Class frmKundenblatt Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1652, 112) + Me.pnl.Size = New System.Drawing.Size(1689, 112) Me.pnl.TabIndex = 0 ' 'lblINAKTIV @@ -3034,7 +3006,7 @@ Partial Class frmKundenblatt Me.KdSearchBox1.Name = "KdSearchBox1" Me.KdSearchBox1.nurAktive = False Me.KdSearchBox1.searchActive = True - Me.KdSearchBox1.Size = New System.Drawing.Size(1652, 34) + Me.KdSearchBox1.Size = New System.Drawing.Size(1689, 34) Me.KdSearchBox1.TabIndex = 0 Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing @@ -3063,18 +3035,105 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'txtEmailRE2 + 'txtAnsprechp ' - Me.txtEmailRE2.BackColor = System.Drawing.Color.White - Me.txtEmailRE2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmailRE2.Cursor = System.Windows.Forms.Cursors.Hand - Me.txtEmailRE2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtEmailRE2.Location = New System.Drawing.Point(40, 410) - Me.txtEmailRE2.Name = "txtEmailRE2" - Me.txtEmailRE2.ReadOnly = True - Me.txtEmailRE2.Size = New System.Drawing.Size(384, 19) - Me.txtEmailRE2.TabIndex = 195 - Me.txtEmailRE2.Text = "email-Rechnung" + Me.txtAnsprechp.BackColor = System.Drawing.Color.White + Me.txtAnsprechp.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAnsprechp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnsprechp.Location = New System.Drawing.Point(5, 212) + Me.txtAnsprechp.Name = "txtAnsprechp" + Me.txtAnsprechp.ReadOnly = True + Me.txtAnsprechp.Size = New System.Drawing.Size(431, 19) + Me.txtAnsprechp.TabIndex = 196 + Me.txtAnsprechp.Text = "Kontakt" + ' + 'dgvLeistungen + ' + Me.dgvLeistungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvLeistungen.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLeistungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16 + Me.dgvLeistungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle17.ForeColor = System.Drawing.Color.Black + DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvLeistungen.DefaultCellStyle = DataGridViewCellStyle17 + Me.dgvLeistungen.Location = New System.Drawing.Point(6, 92) + Me.dgvLeistungen.Name = "dgvLeistungen" + Me.dgvLeistungen.ReadOnly = True + DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLeistungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle18 + Me.dgvLeistungen.Size = New System.Drawing.Size(481, 391) + Me.dgvLeistungen.TabIndex = 197 + ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1675, 990) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 941) + Me.usrcntlKarten.TabIndex = 0 + ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 941) + Me.UsrCntlLKW1.TabIndex = 0 + ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1681, 996) + Me.UsrCntlOfferte1.TabIndex = 0 + ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 947) + Me.UsrCntlUSTV.TabIndex = 0 ' 'frmKundenblatt ' @@ -3082,7 +3141,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1649, 1120) + Me.ClientSize = New System.Drawing.Size(1689, 1137) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) @@ -3172,6 +3231,7 @@ Partial Class frmKundenblatt Me.mne.PerformLayout() Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -3377,4 +3437,6 @@ Partial Class frmKundenblatt Friend WithEvents TextBox1 As TextBox Friend WithEvents PictureBox8 As PictureBox Friend WithEvents txtEmailRE2 As TextBox + Friend WithEvents txtAnsprechp As TextBox + Friend WithEvents dgvLeistungen As DataGridView End Class diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index e69b6dfb..6c1a5ffd 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -18,7 +18,8 @@ Public Class frmKundenblatt ' Dim KUNDE As cKunde = Nothing Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing - Dim KUNDE_K As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing + Dim KUNDE_K_RE As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing + Dim KUNDE_K_GF As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing ' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing @@ -344,6 +345,7 @@ Public Class frmKundenblatt initDGVOffenePosten() initDGVUmsatz() initDGVUmsatzNachLeistungsNr() + initStat() ' initDgvSDLLeistungen() 'showDgvSDLLeistungen() @@ -639,27 +641,47 @@ Public Class frmKundenblatt End Sub Sub initStat() - lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" + lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" 'OK + lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen" + With dgvLeistungen + .DataSource = SQL.loadDgvBySql(" SELECT Count(SDL.SDLNr) as Anzahl , SDLBez as Leistung FROM SDL, Speditionsdienstleistungen + WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 + AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr group by SDLBez order by Count(SDL.SDLNr) desc ") + .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .RowTemplate.Height = 20 + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .AllowUserToOrderColumns = False + .AllowUserToResizeColumns = False + .AllowUserToResizeRows = False + .RowTemplate.ReadOnly = True + .RowHeadersVisible = False + + + End With + + Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)" Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL") lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten" - If dt_Diesel.Rows.Count > 0 Then - lblStat_SdlLeistungen_Diesel.Text &= " ( " - For Each r In dt_Diesel.Rows - Dim Lieferant As String = "" - Select Case r.Item("SDLNr") - Case "100" : Lieferant = r.Item("Anzahl") & "x IDS " - Case "101" : Lieferant = r.Item("Anzahl") & "x RMC " - End Select + 'If dt_Diesel.Rows.Count > 0 Then + ' lblStat_SdlLeistungen_Diesel.Text &= " ( " + ' For Each r In dt_Diesel.Rows + ' Dim Lieferant As String = "" + ' Select Case r.Item("SDLNr") + ' Case "100" : Lieferant = r.Item("Anzahl") & "x IDS " + ' Case "101" : Lieferant = r.Item("Anzahl") & "x RMC " + ' End Select - lblStat_SdlLeistungen_Diesel.Text &= Lieferant - Next - lblStat_SdlLeistungen_Diesel.Text &= ")" - End If + ' lblStat_SdlLeistungen_Diesel.Text &= Lieferant + ' Next + ' lblStat_SdlLeistungen_Diesel.Text &= ")" + 'End If @@ -668,35 +690,35 @@ Public Class frmKundenblatt lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten" - If dt_Maut.Rows.Count > 0 Then - lblStat_SdlLeistungen_Maut.Text &= " ( " - For Each r As DataRow In dt_Maut.Rows - Dim Lieferant As String = "" - Select Case r.Item("SDLNr") - Case "200" : Lieferant = r.Item("Anzahl") & "x AT " - Case "201" : Lieferant = r.Item("Anzahl") & "x DE " - Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS " - Case "203" : Lieferant = r.Item("Anzahl") & "x CZ " - Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay " - Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox " - Case "208" : Lieferant = r.Item("Anzahl") & "x MSE " - Case "209" : Lieferant = r.Item("Anzahl") & "x PL " - Case "210" : Lieferant = r.Item("Anzahl") & "x SI " - Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP " - Case "212" : Lieferant = r.Item("Anzahl") & "x UTA " - Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO " - Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM " - Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT " - Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ " - Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP " - Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM " + 'If dt_Maut.Rows.Count > 0 Then + ' lblStat_SdlLeistungen_Maut.Text &= " ( " + ' For Each r As DataRow In dt_Maut.Rows + ' Dim Lieferant As String = "" + ' Select Case r.Item("SDLNr") + ' Case "200" : Lieferant = r.Item("Anzahl") & "x AT " + ' Case "201" : Lieferant = r.Item("Anzahl") & "x DE " + ' Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS " + ' Case "203" : Lieferant = r.Item("Anzahl") & "x CZ " + ' Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay " + ' Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox " + ' Case "208" : Lieferant = r.Item("Anzahl") & "x MSE " + ' Case "209" : Lieferant = r.Item("Anzahl") & "x PL " + ' Case "210" : Lieferant = r.Item("Anzahl") & "x SI " + ' Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP " + ' Case "212" : Lieferant = r.Item("Anzahl") & "x UTA " + ' Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO " + ' Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM " + ' Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT " + ' Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ " + ' Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP " + ' Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM " - End Select + ' End Select - lblStat_SdlLeistungen_Maut.Text &= Lieferant - Next - lblStat_SdlLeistungen_Maut.Text &= ")" - End If + ' lblStat_SdlLeistungen_Maut.Text &= Lieferant + ' Next + ' lblStat_SdlLeistungen_Maut.Text &= ")" + 'End If End Sub @@ -738,7 +760,8 @@ Public Class frmKundenblatt KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) - KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr) + KUNDE_K_RE = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr) 'Rechnungen an! + KUNDE_K_GF = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(13, kdNr) 'Rechnungen an! 'Me.dataAdapterFirma = Nothing ' Me.dataFirma.Clear() 'SDL! @@ -752,16 +775,16 @@ Public Class frmKundenblatt 'Me.dataFirma.AcceptChanges() ' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture - lblKurzname.Text = checkNullStr(ADRESSE.Ordnungsbegriff) lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1) lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2) - lblStrasse.Text = checkNullStr(ADRESSE.Straße) lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort) - lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach) + txtAnsprechp.Text = "" + txtAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "") + txtAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "") lblTel.Text = checkNullStr(ADRESSE.Telefon) @@ -772,9 +795,21 @@ Public Class frmKundenblatt txtEmailRE.Text = "-" txtEmailRE2.Text = "" - If KUNDE_K.hasEntry Then 'Rechnung an - txtEmailRE.Text = KUNDE_K.kkd_Email - txtEmailRE2.Text &= KUNDE_K.kkd_EmailCC + If KUNDE_K_RE.hasEntry Then 'Rechnung an + txtEmailRE.Text = KUNDE_K_RE.kkd_Email + txtEmailRE2.Text &= KUNDE_K_RE.kkd_EmailCC + End If + + + If KUNDE_K_GF.hasEntry Then + If txtAnsprechp.Text <> "" Then txtAnsprechp.Text &= " " + + txtAnsprechp.Text &= "(GF:" + txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "") + txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "") + txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "") + txtAnsprechp.Text &= ")" + End If @@ -1062,7 +1097,7 @@ Public Class frmKundenblatt ' .DataSource = SQL.loadDgvBySql("SELECT Speditionsdienstleistungen.SDLNr,Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez,KundenSDL.Sperrdatum FROM Speditionsdienstleistungen,KundenSDL,Sperrnummernverzeichnis WHERE KundenSDL.KundenNr=" & kdNr & " AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr AND Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre /*AND KundenSDL.Sperrdatum IS NOT NULL*/ ORDER BY SperrNr") .DataSource = SQL.loadDgvBySql(" SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez, [Sperrdatum] " & " FROM KundenSDL INNER JOIN Speditionsdienstleistungen ON Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr INNER JOIN Sperrnummernverzeichnis ON Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre " & - " WHERE KundenSDL.KundenNr='" & kdNr & "' /*AND [SDLTypNr] <=2 */ ORDER BY Sperre,Speditionsdienstleistungen.SDLBez") + " WHERE KundenSDL.KundenNr='" & kdNr & "' AND KundenSDL.SDLNr in (select distinct(SDL.SDLNr) from SDL where SDL.SDLNr=KundenSDL.SDLNr AND SDL.KundenNr = KundenSDL.KundenNr) and SDLTypNr IN (1,2) ORDER BY Sperre,Speditionsdienstleistungen.SDLBez") .RowTemplate.Height = 20 .AllowUserToAddRows = False .AllowUserToDeleteRows = False @@ -1317,12 +1352,10 @@ Public Class frmKundenblatt If GroupBox5.Visible Then 'Stat angezeigt GroupBox5.Visible = False sender.text = "Statistik anzeigen" - picLogo.Visible = True Else GroupBox5.Visible = True initStat() sender.text = "Statistik ausblenden" - picLogo.Visible = False End If End Sub From cf130e205630481a1b5f8fd5e42168bf9a4b5953 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 6 Nov 2025 17:03:43 +0100 Subject: [PATCH 06/18] cFakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 3 ++- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/kunden/usrCntlCBAM.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb | 2 ++ VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 2 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 7 +++++++ 6 files changed, 15 insertions(+), 5 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index b17958dc..8aa66863 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -352,7 +352,8 @@ Public Class cFakturierung Select Case RECHNUNG.RechnungSprache Case "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days as of document date" Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii" - Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum" + Case "TR" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii" + Case Else : strZahlbar = "ödeme tarihi: " & ZZTage & " gün fatura tarihinden itibaren" 'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice." 'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum." End Select diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index b02baa94..87955333 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 808c8a90..3b8dc3df 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -680,7 +680,7 @@ Public Class usrCntlCBAM ,isnull(max(Empfänger_CN_EORI),'') as 'importer identification number' ,'' as 'exporter identification number' , max(Warentarifnummer) as 'commodity code' - ,max([VersendungsLand]) as 'origin country code' + ,max(Ursprungsland_ISO2) as 'origin country code' ,Left(max(Verfahren2),2) as 'requested procedure' ,'' as 'previous procedure' ,(max(Eigenmasse) / 1000) as 'net mass' diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb b/VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb index 426ea8de..e50e7377 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb @@ -145,6 +145,7 @@ Public Class cDY_Zollanmeldungen_Import Property Importstatus As Object = Nothing Property Importdate As Object = Nothing Property Importfile As Object = Nothing + Property Ursprungsland_ISO2 As Object = Nothing Public hasEntry = False @@ -301,6 +302,7 @@ Public Class cDY_Zollanmeldungen_Import list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importstatus", Importstatus)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importdate", Importdate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importfile", Importfile)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprungsland_ISO2", Ursprungsland_ISO2)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index e0f321eb..30de0832 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -219,7 +219,7 @@ Public Class cUIDPruefung Case "FINANZONLINE" Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" + 'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" WARUM? FO.initValues() Dim counter = 0 Dim errorCounter As Integer = 0 diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 534816d6..4c66932b 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -639,6 +639,13 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( Return SQL.getValueTxtBySql(sqlstr, "FMZOLL") End Function + Shared Function getISO2LandFromLandbezeichnung(LandBez As String) + If LandBez Is Nothing Then Return Nothing + Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.Land='" & LandBez & "' " + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql(sqlstr, "FMZOLL") + End Function + Shared Function getISO2LandFromISO1Land(Iso1Land As String) Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.LandKz='" & Iso1Land & "' " From a0dd0b0213074471331875f5173958c3097cb7c0 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 7 Nov 2025 09:58:39 +0100 Subject: [PATCH 07/18] UID-Pruefung, BH, etc. --- SDL/buchhaltung/usrCntlBH.Designer.vb | 907 ++++++++++--------- SDL/buchhaltung/usrCntlBH.vb | 12 +- VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 2 +- 3 files changed, 473 insertions(+), 448 deletions(-) diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 6eb3df5d..2cbae264 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -25,6 +25,7 @@ Partial Class usrCntlBH Me.Label6 = New System.Windows.Forms.Label() Me.pnl = New System.Windows.Forms.Panel() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.btn_fehlendeUID = New System.Windows.Forms.Button() Me.lblUID_zupruefen = New System.Windows.Forms.Label() Me.Label53 = New System.Windows.Forms.Label() Me.GroupBox12 = New System.Windows.Forms.GroupBox() @@ -36,29 +37,6 @@ Partial Class usrCntlBH Me.Label54 = New System.Windows.Forms.Label() Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button14 = New System.Windows.Forms.Button() - Me.GroupBox11 = New System.Windows.Forms.GroupBox() - Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnWikiStatusmails = New System.Windows.Forms.Button() - Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label52 = New System.Windows.Forms.Label() - Me.btnZNBverrechnen = New System.Windows.Forms.Button() - Me.Label51 = New System.Windows.Forms.Label() - Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label49 = New System.Windows.Forms.Label() - Me.btnZinsbelastung = New System.Windows.Forms.Button() - Me.Button13 = New System.Windows.Forms.Button() - Me.txtZinssatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label() - Me.Label45 = New System.Windows.Forms.Label() - Me.Label48 = New System.Windows.Forms.Label() - Me.txtKdNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label46 = New System.Windows.Forms.Label() - Me.txtKdNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTolInTagen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label47 = New System.Windows.Forms.Label() - Me.Label44 = New System.Windows.Forms.Label() - Me.txtZRvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label42 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.Label43 = New System.Windows.Forms.Label() @@ -161,11 +139,34 @@ Partial Class usrCntlBH Me.Label30 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() - Me.btn_fehlendeUID = New System.Windows.Forms.Button() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.Label57 = New System.Windows.Forms.Label() + Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnWikiStatusmails = New System.Windows.Forms.Button() + Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label52 = New System.Windows.Forms.Label() + Me.btnZNBverrechnen = New System.Windows.Forms.Button() + Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label49 = New System.Windows.Forms.Label() + Me.btnZinsbelastung = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.txtZinssatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label48 = New System.Windows.Forms.Label() + Me.txtKdNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label46 = New System.Windows.Forms.Label() + Me.txtKdNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTolInTagen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label47 = New System.Windows.Forms.Label() + Me.Label44 = New System.Windows.Forms.Label() + Me.txtZRvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label51 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox12.SuspendLayout() - Me.GroupBox11.SuspendLayout() Me.GroupBox10.SuspendLayout() Me.GroupBox8.SuspendLayout() Me.GroupBox7.SuspendLayout() @@ -181,6 +182,8 @@ Partial Class usrCntlBH Me.TabPage5.SuspendLayout() Me.GroupBox9.SuspendLayout() Me.GroupBox6.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox11.SuspendLayout() Me.SuspendLayout() ' 'Label6 @@ -210,7 +213,6 @@ Partial Class usrCntlBH Me.TabPage1.Controls.Add(Me.lblUID_zupruefen) Me.TabPage1.Controls.Add(Me.Label53) Me.TabPage1.Controls.Add(Me.GroupBox12) - Me.TabPage1.Controls.Add(Me.GroupBox11) Me.TabPage1.Controls.Add(Me.Label42) Me.TabPage1.Controls.Add(Me.GroupBox10) Me.TabPage1.Controls.Add(Me.Label34) @@ -229,11 +231,24 @@ Partial Class usrCntlBH Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(956, 968) + Me.TabPage1.Size = New System.Drawing.Size(956, 879) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Allgemein" Me.TabPage1.UseVisualStyleBackColor = True ' + 'btn_fehlendeUID + ' + Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102) + Me.btn_fehlendeUID.Name = "btn_fehlendeUID" + Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20) + Me.btn_fehlendeUID.TabIndex = 35 + Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btn_fehlendeUID.UseVisualStyleBackColor = True + ' 'lblUID_zupruefen ' Me.lblUID_zupruefen.AutoSize = True @@ -382,380 +397,6 @@ Partial Class usrCntlBH Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button14.UseVisualStyleBackColor = True ' - 'GroupBox11 - ' - Me.GroupBox11.Controls.Add(Me.btnDel_) - Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails) - Me.GroupBox11.Controls.Add(Me.txtAbBetragAbrechnen) - Me.GroupBox11.Controls.Add(Me.Label52) - Me.GroupBox11.Controls.Add(Me.btnZNBverrechnen) - Me.GroupBox11.Controls.Add(Me.Label51) - Me.GroupBox11.Controls.Add(Me.txtnichtabrechneteKunden) - Me.GroupBox11.Controls.Add(Me.Label49) - Me.GroupBox11.Controls.Add(Me.btnZinsbelastung) - Me.GroupBox11.Controls.Add(Me.Button13) - Me.GroupBox11.Controls.Add(Me.txtZinssatz) - Me.GroupBox11.Controls.Add(Me.lblnichtabgerechneteZNB) - Me.GroupBox11.Controls.Add(Me.Label45) - Me.GroupBox11.Controls.Add(Me.Label48) - Me.GroupBox11.Controls.Add(Me.txtKdNrvon) - Me.GroupBox11.Controls.Add(Me.Label46) - Me.GroupBox11.Controls.Add(Me.txtKdNrbis) - Me.GroupBox11.Controls.Add(Me.txtTolInTagen) - Me.GroupBox11.Controls.Add(Me.Label47) - Me.GroupBox11.Controls.Add(Me.Label44) - Me.GroupBox11.Controls.Add(Me.txtZRvon) - Me.GroupBox11.Controls.Add(Me.txtZRbis) - Me.GroupBox11.Location = New System.Drawing.Point(5, 874) - Me.GroupBox11.Name = "GroupBox11" - Me.GroupBox11.Size = New System.Drawing.Size(847, 69) - Me.GroupBox11.TabIndex = 35 - Me.GroupBox11.TabStop = False - ' - 'btnDel_ - ' - Me.btnDel_.allowBorder = False - Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del - Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnDel_.FlatAppearance.BorderSize = 0 - Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDel_.ForeColor = System.Drawing.Color.Black - Me.btnDel_.Location = New System.Drawing.Point(814, 42) - Me.btnDel_.Name = "btnDel_" - Me.btnDel_.Size = New System.Drawing.Size(20, 20) - Me.btnDel_.TabIndex = 74 - Me.btnDel_.UseVisualStyleBackColor = True - Me.btnDel_.Visible = False - ' - 'btnWikiStatusmails - ' - Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0 - Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10) - Me.btnWikiStatusmails.Name = "btnWikiStatusmails" - Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20) - Me.btnWikiStatusmails.TabIndex = 73 - Me.btnWikiStatusmails.UseVisualStyleBackColor = True - ' - 'txtAbBetragAbrechnen - ' - Me.txtAbBetragAbrechnen._DateTimeOnly = False - Me.txtAbBetragAbrechnen._numbersOnly = True - Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = "" - Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True - Me.txtAbBetragAbrechnen._Prozent = False - Me.txtAbBetragAbrechnen._ShortDateNew = False - Me.txtAbBetragAbrechnen._ShortDateOnly = False - Me.txtAbBetragAbrechnen._TimeOnly = False - Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False - Me.txtAbBetragAbrechnen._value = "0" - Me.txtAbBetragAbrechnen._Waehrung = False - Me.txtAbBetragAbrechnen._WaehrungZeichen = False - Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black - Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43) - Me.txtAbBetragAbrechnen.MaxLineLength = -1 - Me.txtAbBetragAbrechnen.MaxLines_Warning = "" - Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing - Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen" - Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20) - Me.txtAbBetragAbrechnen.TabIndex = 42 - Me.txtAbBetragAbrechnen.Text = "20" - Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label52 - ' - Me.Label52.AutoSize = True - Me.Label52.Location = New System.Drawing.Point(521, 46) - Me.Label52.Name = "Label52" - Me.Label52.Size = New System.Drawing.Size(138, 13) - Me.Label52.TabIndex = 41 - Me.Label52.Text = "*wenn nicht im Kd hinterlegt" - ' - 'btnZNBverrechnen - ' - Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.btnZNBverrechnen.Enabled = False - Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnZNBverrechnen.Location = New System.Drawing.Point(710, 39) - Me.btnZNBverrechnen.Name = "btnZNBverrechnen" - Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26) - Me.btnZNBverrechnen.TabIndex = 40 - Me.btnZNBverrechnen.Text = "verrechnen" - Me.btnZNBverrechnen.UseVisualStyleBackColor = True - ' - 'Label51 - ' - Me.Label51.AutoSize = True - Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label51.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label51.Location = New System.Drawing.Point(2, -4) - Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(160, 17) - Me.Label51.TabIndex = 36 - Me.Label51.Text = "Zinsnachberechnung" - ' - 'txtnichtabrechneteKunden - ' - Me.txtnichtabrechneteKunden._DateTimeOnly = False - Me.txtnichtabrechneteKunden._numbersOnly = False - Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = "" - Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True - Me.txtnichtabrechneteKunden._Prozent = False - Me.txtnichtabrechneteKunden._ShortDateNew = False - Me.txtnichtabrechneteKunden._ShortDateOnly = False - Me.txtnichtabrechneteKunden._TimeOnly = False - Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False - Me.txtnichtabrechneteKunden._value = "0" - Me.txtnichtabrechneteKunden._Waehrung = False - Me.txtnichtabrechneteKunden._WaehrungZeichen = True - Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black - Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(665, 16) - Me.txtnichtabrechneteKunden.MaxLineLength = -1 - Me.txtnichtabrechneteKunden.MaxLines_Warning = "" - Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing - Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden" - Me.txtnichtabrechneteKunden.ReadOnly = True - Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20) - Me.txtnichtabrechneteKunden.TabIndex = 39 - Me.txtnichtabrechneteKunden.Text = "0" - Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label49 - ' - Me.Label49.AutoSize = True - Me.Label49.Location = New System.Drawing.Point(123, 45) - Me.Label49.Name = "Label49" - Me.Label49.Size = New System.Drawing.Size(53, 13) - Me.Label49.TabIndex = 33 - Me.Label49.Text = "Zinssatz*:" - ' - 'btnZinsbelastung - ' - Me.btnZinsbelastung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.btnZinsbelastung.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnZinsbelastung.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnZinsbelastung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnZinsbelastung.Location = New System.Drawing.Point(5, 19) - Me.btnZinsbelastung.Name = "btnZinsbelastung" - Me.btnZinsbelastung.Size = New System.Drawing.Size(98, 44) - Me.btnZinsbelastung.TabIndex = 8 - Me.btnZinsbelastung.Text = "Zinsbelastung erstellen" - Me.btnZinsbelastung.UseVisualStyleBackColor = True - ' - 'Button13 - ' - Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button13.Location = New System.Drawing.Point(710, 10) - Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(98, 26) - Me.Button13.TabIndex = 38 - Me.Button13.Text = "Ãœbersicht" - Me.Button13.UseVisualStyleBackColor = True - ' - 'txtZinssatz - ' - Me.txtZinssatz._DateTimeOnly = False - Me.txtZinssatz._numbersOnly = False - Me.txtZinssatz._numbersOnlyKommastellen = "" - Me.txtZinssatz._numbersOnlyTrennzeichen = True - Me.txtZinssatz._Prozent = False - Me.txtZinssatz._ShortDateNew = False - Me.txtZinssatz._ShortDateOnly = False - Me.txtZinssatz._TimeOnly = False - Me.txtZinssatz._TimeOnly_Seconds = False - Me.txtZinssatz._value = "9.5" - Me.txtZinssatz._Waehrung = False - Me.txtZinssatz._WaehrungZeichen = True - Me.txtZinssatz.ForeColor = System.Drawing.Color.Black - Me.txtZinssatz.Location = New System.Drawing.Point(194, 40) - Me.txtZinssatz.MaxLineLength = -1 - Me.txtZinssatz.MaxLines_Warning = "" - Me.txtZinssatz.MaxLines_Warning_Label = Nothing - Me.txtZinssatz.Name = "txtZinssatz" - Me.txtZinssatz.Size = New System.Drawing.Size(34, 20) - Me.txtZinssatz.TabIndex = 31 - Me.txtZinssatz.Text = "9.5" - ' - 'lblnichtabgerechneteZNB - ' - Me.lblnichtabgerechneteZNB.AutoSize = True - Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(521, 19) - Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB" - Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13) - Me.lblnichtabgerechneteZNB.TabIndex = 37 - Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:" - ' - 'Label45 - ' - Me.Label45.AutoSize = True - Me.Label45.Location = New System.Drawing.Point(252, 19) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(82, 13) - Me.Label45.TabIndex = 29 - Me.Label45.Text = "Kunden-Nr von:" - ' - 'Label48 - ' - Me.Label48.AutoSize = True - Me.Label48.Location = New System.Drawing.Point(123, 21) - Me.Label48.Name = "Label48" - Me.Label48.Size = New System.Drawing.Size(67, 13) - Me.Label48.TabIndex = 29 - Me.Label48.Text = "Tol inTagen:" - ' - 'txtKdNrvon - ' - Me.txtKdNrvon._DateTimeOnly = False - Me.txtKdNrvon._numbersOnly = False - Me.txtKdNrvon._numbersOnlyKommastellen = "" - Me.txtKdNrvon._numbersOnlyTrennzeichen = True - Me.txtKdNrvon._Prozent = False - Me.txtKdNrvon._ShortDateNew = False - Me.txtKdNrvon._ShortDateOnly = False - Me.txtKdNrvon._TimeOnly = False - Me.txtKdNrvon._TimeOnly_Seconds = False - Me.txtKdNrvon._value = Nothing - Me.txtKdNrvon._Waehrung = False - Me.txtKdNrvon._WaehrungZeichen = True - Me.txtKdNrvon.ForeColor = System.Drawing.Color.Black - Me.txtKdNrvon.Location = New System.Drawing.Point(337, 16) - Me.txtKdNrvon.MaxLineLength = -1 - Me.txtKdNrvon.MaxLines_Warning = "" - Me.txtKdNrvon.MaxLines_Warning_Label = Nothing - Me.txtKdNrvon.Name = "txtKdNrvon" - Me.txtKdNrvon.Size = New System.Drawing.Size(70, 20) - Me.txtKdNrvon.TabIndex = 32 - ' - 'Label46 - ' - Me.Label46.AutoSize = True - Me.Label46.Location = New System.Drawing.Point(418, 43) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(23, 13) - Me.Label46.TabIndex = 22 - Me.Label46.Text = "bis:" - ' - 'txtKdNrbis - ' - Me.txtKdNrbis._DateTimeOnly = False - Me.txtKdNrbis._numbersOnly = False - Me.txtKdNrbis._numbersOnlyKommastellen = "" - Me.txtKdNrbis._numbersOnlyTrennzeichen = True - Me.txtKdNrbis._Prozent = False - Me.txtKdNrbis._ShortDateNew = False - Me.txtKdNrbis._ShortDateOnly = False - Me.txtKdNrbis._TimeOnly = False - Me.txtKdNrbis._TimeOnly_Seconds = False - Me.txtKdNrbis._value = Nothing - Me.txtKdNrbis._Waehrung = False - Me.txtKdNrbis._WaehrungZeichen = True - Me.txtKdNrbis.ForeColor = System.Drawing.Color.Black - Me.txtKdNrbis.Location = New System.Drawing.Point(445, 16) - Me.txtKdNrbis.MaxLineLength = -1 - Me.txtKdNrbis.MaxLines_Warning = "" - Me.txtKdNrbis.MaxLines_Warning_Label = Nothing - Me.txtKdNrbis.Name = "txtKdNrbis" - Me.txtKdNrbis.Size = New System.Drawing.Size(70, 20) - Me.txtKdNrbis.TabIndex = 33 - ' - 'txtTolInTagen - ' - Me.txtTolInTagen._DateTimeOnly = False - Me.txtTolInTagen._numbersOnly = False - Me.txtTolInTagen._numbersOnlyKommastellen = "" - Me.txtTolInTagen._numbersOnlyTrennzeichen = True - Me.txtTolInTagen._Prozent = False - Me.txtTolInTagen._ShortDateNew = False - Me.txtTolInTagen._ShortDateOnly = False - Me.txtTolInTagen._TimeOnly = False - Me.txtTolInTagen._TimeOnly_Seconds = False - Me.txtTolInTagen._value = "0" - Me.txtTolInTagen._Waehrung = False - Me.txtTolInTagen._WaehrungZeichen = True - Me.txtTolInTagen.ForeColor = System.Drawing.Color.Black - Me.txtTolInTagen.Location = New System.Drawing.Point(194, 16) - Me.txtTolInTagen.MaxLineLength = -1 - Me.txtTolInTagen.MaxLines_Warning = "" - Me.txtTolInTagen.MaxLines_Warning_Label = Nothing - Me.txtTolInTagen.Name = "txtTolInTagen" - Me.txtTolInTagen.Size = New System.Drawing.Size(34, 20) - Me.txtTolInTagen.TabIndex = 30 - Me.txtTolInTagen.Text = "0" - ' - 'Label47 - ' - Me.Label47.AutoSize = True - Me.Label47.Location = New System.Drawing.Point(252, 43) - Me.Label47.Name = "Label47" - Me.Label47.Size = New System.Drawing.Size(82, 13) - Me.Label47.TabIndex = 23 - Me.Label47.Text = "Zahlungen von:" - ' - 'Label44 - ' - Me.Label44.AutoSize = True - Me.Label44.Location = New System.Drawing.Point(416, 19) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(23, 13) - Me.Label44.TabIndex = 31 - Me.Label44.Text = "bis:" - ' - 'txtZRvon - ' - Me.txtZRvon._DateTimeOnly = False - Me.txtZRvon._numbersOnly = False - Me.txtZRvon._numbersOnlyKommastellen = "" - Me.txtZRvon._numbersOnlyTrennzeichen = True - Me.txtZRvon._Prozent = False - Me.txtZRvon._ShortDateNew = True - Me.txtZRvon._ShortDateOnly = False - Me.txtZRvon._TimeOnly = False - Me.txtZRvon._TimeOnly_Seconds = False - Me.txtZRvon._value = "" - Me.txtZRvon._Waehrung = False - Me.txtZRvon._WaehrungZeichen = True - Me.txtZRvon.ForeColor = System.Drawing.Color.Black - Me.txtZRvon.Location = New System.Drawing.Point(337, 40) - Me.txtZRvon.MaxLength = 10 - Me.txtZRvon.MaxLineLength = -1 - Me.txtZRvon.MaxLines_Warning = "" - Me.txtZRvon.MaxLines_Warning_Label = Nothing - Me.txtZRvon.Name = "txtZRvon" - Me.txtZRvon.Size = New System.Drawing.Size(70, 20) - Me.txtZRvon.TabIndex = 34 - ' - 'txtZRbis - ' - Me.txtZRbis._DateTimeOnly = False - Me.txtZRbis._numbersOnly = False - Me.txtZRbis._numbersOnlyKommastellen = "" - Me.txtZRbis._numbersOnlyTrennzeichen = True - Me.txtZRbis._Prozent = False - Me.txtZRbis._ShortDateNew = True - Me.txtZRbis._ShortDateOnly = False - Me.txtZRbis._TimeOnly = False - Me.txtZRbis._TimeOnly_Seconds = False - Me.txtZRbis._value = "" - Me.txtZRbis._Waehrung = False - Me.txtZRbis._WaehrungZeichen = True - Me.txtZRbis.ForeColor = System.Drawing.Color.Black - Me.txtZRbis.Location = New System.Drawing.Point(445, 40) - Me.txtZRbis.MaxLength = 10 - Me.txtZRbis.MaxLineLength = -1 - Me.txtZRbis.MaxLines_Warning = "" - Me.txtZRbis.MaxLines_Warning_Label = Nothing - Me.txtZRbis.Name = "txtZRbis" - Me.txtZRbis.Size = New System.Drawing.Size(70, 20) - Me.txtZRbis.TabIndex = 35 - ' 'Label42 ' Me.Label42.AutoSize = True @@ -1833,11 +1474,12 @@ Partial Class usrCntlBH ' Me.tbcntr.Controls.Add(Me.TabPage1) Me.tbcntr.Controls.Add(Me.TabPage5) + Me.tbcntr.Controls.Add(Me.TabPage2) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill Me.tbcntr.Location = New System.Drawing.Point(0, 52) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(964, 994) + Me.tbcntr.Size = New System.Drawing.Size(964, 905) Me.tbcntr.TabIndex = 25 ' 'TabPage5 @@ -1848,7 +1490,7 @@ Partial Class usrCntlBH Me.TabPage5.Controls.Add(Me.GroupBox6) Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" - Me.TabPage5.Size = New System.Drawing.Size(956, 968) + Me.TabPage5.Size = New System.Drawing.Size(956, 879) Me.TabPage5.TabIndex = 1 Me.TabPage5.Text = "IMEX" Me.TabPage5.UseVisualStyleBackColor = True @@ -2054,18 +1696,399 @@ Partial Class usrCntlBH Me.Button7.Text = "Importieren" Me.Button7.UseVisualStyleBackColor = True ' - 'btn_fehlendeUID + 'TabPage2 ' - Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102) - Me.btn_fehlendeUID.Name = "btn_fehlendeUID" - Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20) - Me.btn_fehlendeUID.TabIndex = 35 - Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btn_fehlendeUID.UseVisualStyleBackColor = True + Me.TabPage2.Controls.Add(Me.GroupBox11) + Me.TabPage2.Controls.Add(Me.Label51) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Size = New System.Drawing.Size(956, 879) + Me.TabPage2.TabIndex = 2 + Me.TabPage2.Text = "MDM" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox11 + ' + Me.GroupBox11.Controls.Add(Me.Label57) + Me.GroupBox11.Controls.Add(Me.btnDel_) + Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails) + Me.GroupBox11.Controls.Add(Me.txtAbBetragAbrechnen) + Me.GroupBox11.Controls.Add(Me.Label52) + Me.GroupBox11.Controls.Add(Me.btnZNBverrechnen) + Me.GroupBox11.Controls.Add(Me.txtnichtabrechneteKunden) + Me.GroupBox11.Controls.Add(Me.Label49) + Me.GroupBox11.Controls.Add(Me.btnZinsbelastung) + Me.GroupBox11.Controls.Add(Me.Button13) + Me.GroupBox11.Controls.Add(Me.txtZinssatz) + Me.GroupBox11.Controls.Add(Me.lblnichtabgerechneteZNB) + Me.GroupBox11.Controls.Add(Me.Label45) + Me.GroupBox11.Controls.Add(Me.Label48) + Me.GroupBox11.Controls.Add(Me.txtKdNrvon) + Me.GroupBox11.Controls.Add(Me.Label46) + Me.GroupBox11.Controls.Add(Me.txtKdNrbis) + Me.GroupBox11.Controls.Add(Me.txtTolInTagen) + Me.GroupBox11.Controls.Add(Me.Label47) + Me.GroupBox11.Controls.Add(Me.Label44) + Me.GroupBox11.Controls.Add(Me.txtZRvon) + Me.GroupBox11.Controls.Add(Me.txtZRbis) + Me.GroupBox11.Location = New System.Drawing.Point(14, 30) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(847, 88) + Me.GroupBox11.TabIndex = 36 + Me.GroupBox11.TabStop = False + ' + 'Label57 + ' + Me.Label57.AutoSize = True + Me.Label57.Location = New System.Drawing.Point(553, 47) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(109, 13) + Me.Label57.TabIndex = 75 + Me.Label57.Text = "Rechnung ab Betrag:" + ' + 'btnDel_ + ' + Me.btnDel_.allowBorder = False + Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel_.FlatAppearance.BorderSize = 0 + Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel_.ForeColor = System.Drawing.Color.Black + Me.btnDel_.Location = New System.Drawing.Point(814, 42) + Me.btnDel_.Name = "btnDel_" + Me.btnDel_.Size = New System.Drawing.Size(20, 20) + Me.btnDel_.TabIndex = 74 + Me.btnDel_.UseVisualStyleBackColor = True + Me.btnDel_.Visible = False + ' + 'btnWikiStatusmails + ' + Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0 + Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10) + Me.btnWikiStatusmails.Name = "btnWikiStatusmails" + Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20) + Me.btnWikiStatusmails.TabIndex = 73 + Me.btnWikiStatusmails.UseVisualStyleBackColor = True + ' + 'txtAbBetragAbrechnen + ' + Me.txtAbBetragAbrechnen._DateTimeOnly = False + Me.txtAbBetragAbrechnen._numbersOnly = True + Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = "" + Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True + Me.txtAbBetragAbrechnen._Prozent = False + Me.txtAbBetragAbrechnen._ShortDateNew = False + Me.txtAbBetragAbrechnen._ShortDateOnly = False + Me.txtAbBetragAbrechnen._TimeOnly = False + Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False + Me.txtAbBetragAbrechnen._value = "0" + Me.txtAbBetragAbrechnen._Waehrung = False + Me.txtAbBetragAbrechnen._WaehrungZeichen = False + Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black + Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43) + Me.txtAbBetragAbrechnen.MaxLineLength = -1 + Me.txtAbBetragAbrechnen.MaxLines_Warning = "" + Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing + Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen" + Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20) + Me.txtAbBetragAbrechnen.TabIndex = 42 + Me.txtAbBetragAbrechnen.Text = "20" + Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Location = New System.Drawing.Point(123, 63) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(138, 13) + Me.Label52.TabIndex = 41 + Me.Label52.Text = "*wenn nicht im Kd hinterlegt" + ' + 'btnZNBverrechnen + ' + Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnZNBverrechnen.Enabled = False + Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnZNBverrechnen.Location = New System.Drawing.Point(710, 39) + Me.btnZNBverrechnen.Name = "btnZNBverrechnen" + Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26) + Me.btnZNBverrechnen.TabIndex = 40 + Me.btnZNBverrechnen.Text = "verrechnen" + Me.btnZNBverrechnen.UseVisualStyleBackColor = True + ' + 'txtnichtabrechneteKunden + ' + Me.txtnichtabrechneteKunden._DateTimeOnly = False + Me.txtnichtabrechneteKunden._numbersOnly = False + Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = "" + Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True + Me.txtnichtabrechneteKunden._Prozent = False + Me.txtnichtabrechneteKunden._ShortDateNew = False + Me.txtnichtabrechneteKunden._ShortDateOnly = False + Me.txtnichtabrechneteKunden._TimeOnly = False + Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False + Me.txtnichtabrechneteKunden._value = "0" + Me.txtnichtabrechneteKunden._Waehrung = False + Me.txtnichtabrechneteKunden._WaehrungZeichen = True + Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black + Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(665, 16) + Me.txtnichtabrechneteKunden.MaxLineLength = -1 + Me.txtnichtabrechneteKunden.MaxLines_Warning = "" + Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing + Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden" + Me.txtnichtabrechneteKunden.ReadOnly = True + Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20) + Me.txtnichtabrechneteKunden.TabIndex = 39 + Me.txtnichtabrechneteKunden.Text = "0" + Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label49 + ' + Me.Label49.AutoSize = True + Me.Label49.Location = New System.Drawing.Point(123, 45) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(53, 13) + Me.Label49.TabIndex = 33 + Me.Label49.Text = "Zinssatz*:" + ' + 'btnZinsbelastung + ' + Me.btnZinsbelastung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnZinsbelastung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZinsbelastung.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnZinsbelastung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnZinsbelastung.Location = New System.Drawing.Point(6, 18) + Me.btnZinsbelastung.Name = "btnZinsbelastung" + Me.btnZinsbelastung.Size = New System.Drawing.Size(98, 44) + Me.btnZinsbelastung.TabIndex = 8 + Me.btnZinsbelastung.Text = "Zinsbelastung erstellen" + Me.btnZinsbelastung.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button13.Location = New System.Drawing.Point(710, 10) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(98, 26) + Me.Button13.TabIndex = 38 + Me.Button13.Text = "Ãœbersicht" + Me.Button13.UseVisualStyleBackColor = True + ' + 'txtZinssatz + ' + Me.txtZinssatz._DateTimeOnly = False + Me.txtZinssatz._numbersOnly = False + Me.txtZinssatz._numbersOnlyKommastellen = "" + Me.txtZinssatz._numbersOnlyTrennzeichen = True + Me.txtZinssatz._Prozent = False + Me.txtZinssatz._ShortDateNew = False + Me.txtZinssatz._ShortDateOnly = False + Me.txtZinssatz._TimeOnly = False + Me.txtZinssatz._TimeOnly_Seconds = False + Me.txtZinssatz._value = "9.5" + Me.txtZinssatz._Waehrung = False + Me.txtZinssatz._WaehrungZeichen = True + Me.txtZinssatz.ForeColor = System.Drawing.Color.Black + Me.txtZinssatz.Location = New System.Drawing.Point(194, 40) + Me.txtZinssatz.MaxLineLength = -1 + Me.txtZinssatz.MaxLines_Warning = "" + Me.txtZinssatz.MaxLines_Warning_Label = Nothing + Me.txtZinssatz.Name = "txtZinssatz" + Me.txtZinssatz.Size = New System.Drawing.Size(34, 20) + Me.txtZinssatz.TabIndex = 31 + Me.txtZinssatz.Text = "9.5" + ' + 'lblnichtabgerechneteZNB + ' + Me.lblnichtabgerechneteZNB.AutoSize = True + Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(521, 19) + Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB" + Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13) + Me.lblnichtabgerechneteZNB.TabIndex = 37 + Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:" + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(252, 19) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(82, 13) + Me.Label45.TabIndex = 29 + Me.Label45.Text = "Kunden-Nr von:" + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(123, 21) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(67, 13) + Me.Label48.TabIndex = 29 + Me.Label48.Text = "Tol inTagen:" + ' + 'txtKdNrvon + ' + Me.txtKdNrvon._DateTimeOnly = False + Me.txtKdNrvon._numbersOnly = False + Me.txtKdNrvon._numbersOnlyKommastellen = "" + Me.txtKdNrvon._numbersOnlyTrennzeichen = True + Me.txtKdNrvon._Prozent = False + Me.txtKdNrvon._ShortDateNew = False + Me.txtKdNrvon._ShortDateOnly = False + Me.txtKdNrvon._TimeOnly = False + Me.txtKdNrvon._TimeOnly_Seconds = False + Me.txtKdNrvon._value = Nothing + Me.txtKdNrvon._Waehrung = False + Me.txtKdNrvon._WaehrungZeichen = True + Me.txtKdNrvon.ForeColor = System.Drawing.Color.Black + Me.txtKdNrvon.Location = New System.Drawing.Point(337, 16) + Me.txtKdNrvon.MaxLineLength = -1 + Me.txtKdNrvon.MaxLines_Warning = "" + Me.txtKdNrvon.MaxLines_Warning_Label = Nothing + Me.txtKdNrvon.Name = "txtKdNrvon" + Me.txtKdNrvon.Size = New System.Drawing.Size(70, 20) + Me.txtKdNrvon.TabIndex = 32 + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(418, 43) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(23, 13) + Me.Label46.TabIndex = 22 + Me.Label46.Text = "bis:" + ' + 'txtKdNrbis + ' + Me.txtKdNrbis._DateTimeOnly = False + Me.txtKdNrbis._numbersOnly = False + Me.txtKdNrbis._numbersOnlyKommastellen = "" + Me.txtKdNrbis._numbersOnlyTrennzeichen = True + Me.txtKdNrbis._Prozent = False + Me.txtKdNrbis._ShortDateNew = False + Me.txtKdNrbis._ShortDateOnly = False + Me.txtKdNrbis._TimeOnly = False + Me.txtKdNrbis._TimeOnly_Seconds = False + Me.txtKdNrbis._value = Nothing + Me.txtKdNrbis._Waehrung = False + Me.txtKdNrbis._WaehrungZeichen = True + Me.txtKdNrbis.ForeColor = System.Drawing.Color.Black + Me.txtKdNrbis.Location = New System.Drawing.Point(445, 16) + Me.txtKdNrbis.MaxLineLength = -1 + Me.txtKdNrbis.MaxLines_Warning = "" + Me.txtKdNrbis.MaxLines_Warning_Label = Nothing + Me.txtKdNrbis.Name = "txtKdNrbis" + Me.txtKdNrbis.Size = New System.Drawing.Size(70, 20) + Me.txtKdNrbis.TabIndex = 33 + ' + 'txtTolInTagen + ' + Me.txtTolInTagen._DateTimeOnly = False + Me.txtTolInTagen._numbersOnly = False + Me.txtTolInTagen._numbersOnlyKommastellen = "" + Me.txtTolInTagen._numbersOnlyTrennzeichen = True + Me.txtTolInTagen._Prozent = False + Me.txtTolInTagen._ShortDateNew = False + Me.txtTolInTagen._ShortDateOnly = False + Me.txtTolInTagen._TimeOnly = False + Me.txtTolInTagen._TimeOnly_Seconds = False + Me.txtTolInTagen._value = "0" + Me.txtTolInTagen._Waehrung = False + Me.txtTolInTagen._WaehrungZeichen = True + Me.txtTolInTagen.ForeColor = System.Drawing.Color.Black + Me.txtTolInTagen.Location = New System.Drawing.Point(194, 16) + Me.txtTolInTagen.MaxLineLength = -1 + Me.txtTolInTagen.MaxLines_Warning = "" + Me.txtTolInTagen.MaxLines_Warning_Label = Nothing + Me.txtTolInTagen.Name = "txtTolInTagen" + Me.txtTolInTagen.Size = New System.Drawing.Size(34, 20) + Me.txtTolInTagen.TabIndex = 30 + Me.txtTolInTagen.Text = "0" + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Location = New System.Drawing.Point(252, 43) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(82, 13) + Me.Label47.TabIndex = 23 + Me.Label47.Text = "Zahlungen von:" + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(416, 19) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(23, 13) + Me.Label44.TabIndex = 31 + Me.Label44.Text = "bis:" + ' + 'txtZRvon + ' + Me.txtZRvon._DateTimeOnly = False + Me.txtZRvon._numbersOnly = False + Me.txtZRvon._numbersOnlyKommastellen = "" + Me.txtZRvon._numbersOnlyTrennzeichen = True + Me.txtZRvon._Prozent = False + Me.txtZRvon._ShortDateNew = True + Me.txtZRvon._ShortDateOnly = False + Me.txtZRvon._TimeOnly = False + Me.txtZRvon._TimeOnly_Seconds = False + Me.txtZRvon._value = "" + Me.txtZRvon._Waehrung = False + Me.txtZRvon._WaehrungZeichen = True + Me.txtZRvon.ForeColor = System.Drawing.Color.Black + Me.txtZRvon.Location = New System.Drawing.Point(337, 40) + Me.txtZRvon.MaxLength = 10 + Me.txtZRvon.MaxLineLength = -1 + Me.txtZRvon.MaxLines_Warning = "" + Me.txtZRvon.MaxLines_Warning_Label = Nothing + Me.txtZRvon.Name = "txtZRvon" + Me.txtZRvon.Size = New System.Drawing.Size(70, 20) + Me.txtZRvon.TabIndex = 34 + ' + 'txtZRbis + ' + Me.txtZRbis._DateTimeOnly = False + Me.txtZRbis._numbersOnly = False + Me.txtZRbis._numbersOnlyKommastellen = "" + Me.txtZRbis._numbersOnlyTrennzeichen = True + Me.txtZRbis._Prozent = False + Me.txtZRbis._ShortDateNew = True + Me.txtZRbis._ShortDateOnly = False + Me.txtZRbis._TimeOnly = False + Me.txtZRbis._TimeOnly_Seconds = False + Me.txtZRbis._value = "" + Me.txtZRbis._Waehrung = False + Me.txtZRbis._WaehrungZeichen = True + Me.txtZRbis.ForeColor = System.Drawing.Color.Black + Me.txtZRbis.Location = New System.Drawing.Point(445, 40) + Me.txtZRbis.MaxLength = 10 + Me.txtZRbis.MaxLineLength = -1 + Me.txtZRbis.MaxLines_Warning = "" + Me.txtZRbis.MaxLines_Warning_Label = Nothing + Me.txtZRbis.Name = "txtZRbis" + Me.txtZRbis.Size = New System.Drawing.Size(70, 20) + Me.txtZRbis.TabIndex = 35 + ' + 'Label51 + ' + Me.Label51.AutoSize = True + Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label51.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label51.Location = New System.Drawing.Point(11, 10) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(160, 17) + Me.Label51.TabIndex = 36 + Me.Label51.Text = "Zinsnachberechnung" ' 'usrCntlBH ' @@ -2075,15 +2098,13 @@ Partial Class usrCntlBH Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlBH" - Me.Size = New System.Drawing.Size(964, 1046) + Me.Size = New System.Drawing.Size(964, 957) Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() Me.GroupBox12.ResumeLayout(False) Me.GroupBox12.PerformLayout() - Me.GroupBox11.ResumeLayout(False) - Me.GroupBox11.PerformLayout() Me.GroupBox10.ResumeLayout(False) Me.GroupBox10.PerformLayout() Me.GroupBox8.ResumeLayout(False) @@ -2112,6 +2133,10 @@ Partial Class usrCntlBH Me.GroupBox9.PerformLayout() Me.GroupBox6.ResumeLayout(False) Me.GroupBox6.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() Me.ResumeLayout(False) End Sub @@ -2209,20 +2234,6 @@ Partial Class usrCntlBH Friend WithEvents GroupBox10 As GroupBox Friend WithEvents Label43 As Label Friend WithEvents Button12 As Button - Friend WithEvents btnZinsbelastung As Button - Friend WithEvents Label46 As Label - Friend WithEvents Label44 As Label - Friend WithEvents txtZRbis As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtZRvon As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label47 As Label - Friend WithEvents txtKdNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtKdNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label45 As Label - Friend WithEvents Label49 As Label - Friend WithEvents txtZinssatz As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label48 As Label - Friend WithEvents txtTolInTagen As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents GroupBox11 As GroupBox Friend WithEvents Label37 As Label Friend WithEvents GroupBox9 As GroupBox Friend WithEvents Label41 As Label @@ -2233,13 +2244,7 @@ Partial Class usrCntlBH Friend WithEvents Label39 As Label Friend WithEvents Label38 As Label Friend WithEvents Button9 As Button - Friend WithEvents Button13 As Button - Friend WithEvents lblnichtabgerechneteZNB As Label - Friend WithEvents Label51 As Label Friend WithEvents Label50 As Label - Friend WithEvents txtnichtabrechneteKunden As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnZNBverrechnen As Button - Friend WithEvents Label52 As Label Friend WithEvents Label53 As Label Friend WithEvents GroupBox12 As GroupBox Friend WithEvents txtUID_Jahr As VERAG_PROG_ALLGEMEIN.MyTextBox @@ -2251,8 +2256,30 @@ Partial Class usrCntlBH Friend WithEvents Button14 As Button Friend WithEvents cbx_nur_ungueltige As CheckBox Friend WithEvents lblUID_zupruefen As Label - Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnWikiStatusmails As Button - Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btn_fehlendeUID As Button + Friend WithEvents TabPage2 As TabPage + Friend WithEvents GroupBox11 As GroupBox + Friend WithEvents Label57 As Label + Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnWikiStatusmails As Button + Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label52 As Label + Friend WithEvents btnZNBverrechnen As Button + Friend WithEvents txtnichtabrechneteKunden As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label49 As Label + Friend WithEvents btnZinsbelastung As Button + Friend WithEvents Button13 As Button + Friend WithEvents txtZinssatz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblnichtabgerechneteZNB As Label + Friend WithEvents Label45 As Label + Friend WithEvents Label48 As Label + Friend WithEvents txtKdNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label46 As Label + Friend WithEvents txtKdNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtTolInTagen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label47 As Label + Friend WithEvents Label44 As Label + Friend WithEvents txtZRvon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtZRbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label51 As Label End Class diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 09ed86b6..de9adef0 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -31,7 +31,7 @@ Public Class usrCntlBH Private Sub usrCntlBH_Load(sender As Object, e As EventArgs) Handles Me.Load 'MyComboBox1.fillWithSQL(" SELECT tblUStVAntrag.UStVAn_LandKz,tblUStVAntrag.UStVAn_LandKz FROM tblUStVAntrag GROUP BY tblUStVAntrag.UStVAn_LandKz HAVING (((tblUStVAntrag.UStVAn_LandKz) Is Not Null)) ", False, "FMZOLL", True) - cboAbfVerbFirma.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) + cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) cbxFirmaUID.Items.Add(New MyListItem("AMBAR", "AMBAR")) @@ -84,8 +84,6 @@ Public Class usrCntlBH Next End Select - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "MDM" Then CheckBox1.Checked = True : cbxSDLLeistungenSperre.Checked = True 'VERALTET - 'txtOPRisikoBetragVon._value = "" txtOPUmsatzVon.Text = "01.01." & (Now.Year - 1) txtOPUmsatzBis.Text = "31.12." & (Now.Year - 1) txtBagatellgrenzeBei._value = 800 @@ -797,7 +795,7 @@ Public Class usrCntlBH f.ShowDialog(Me) End Sub - Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnZinsbelastung.Click + Private Sub btnZinsbelastung_Click(sender As Object, e As EventArgs) Handles btnZinsbelastung.Click If txtKdNrvon.Text = "" OrElse Not IsNumeric(txtKdNrvon.Text) Then txtKdNrvon.Focus() @@ -1341,15 +1339,13 @@ Public Class usrCntlBH Try - - If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then Dim SQL_UID As String = "SELECT [uid_KundenNr] as KdNr , Adressen.[Name 1],[uid_UstIdKz] as UstIdKz,[uid_UstIdNr] as UstIdnr, case when [uid_valid] = 1 then 'GUELTIG' else 'UNGUELTIG' end as Ergebnis, cast([uid_Datum] as date) as Pruefdatum,Convert(varchar(8), [uid_Datum], 108) As Pruefzeit, [tblUIDPruefung].[firma] as Firma, cast(Adressen.UstIdGeprüft as date) as [letzte Prüfung], uid_pruefungstool as Quelle, uid_Sachbearbeiter as Sachbearbeiter, Filialen.FilialenNr FROM [VERAG].[dbo].[tblUIDPruefung] inner join Adressen on Adressen.AdressenNr = [uid_KundenNr] inner Join kunden On KundenNr=AdressenNr inner join Filialen On Filialen.FilialenNr=Kunden.FilialenNr - where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And [tblUIDPruefung].[firma] = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "") & " ORDER BY Filialen.FilialenNr " + where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And Filialen.Firma = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "") & " ORDER BY Filialen.FilialenNr " Me.Cursor = Cursors.WaitCursor Dim dt_UID As DataTable = SQL.loadDgvBySql(SQL_UID, "FMZOLL") @@ -1435,4 +1431,6 @@ Public Class usrCntlBH Try : Process.Start(sender.tag) : Catch : End Try End If End Sub + + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index 30de0832..b53a7623 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -219,7 +219,7 @@ Public Class cUIDPruefung Case "FINANZONLINE" Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService - 'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" WARUM? + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" FO.initValues() Dim counter = 0 Dim errorCounter As Integer = 0 From 275044e2f82c64794fe5542e189e08f4aaa3512b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 7 Nov 2025 10:07:00 +0100 Subject: [PATCH 08/18] BH, Fakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 4 ++-- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 26 +++++++++++++++-------- SDL/buchhaltung/usrCntlBH.vb | 5 ----- 3 files changed, 19 insertions(+), 16 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 8aa66863..9e2036ff 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -352,8 +352,8 @@ Public Class cFakturierung Select Case RECHNUNG.RechnungSprache Case "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days as of document date" Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii" - Case "TR" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii" - Case Else : strZahlbar = "ödeme tarihi: " & ZZTage & " gün fatura tarihinden itibaren" + Case "TR" : strZahlbar = "ödeme tarihi: " & ZZTage & " gün fatura tarihinden itibaren" + Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum" 'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice." 'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum." End Select diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 0370b656..19ccb54a 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -4430,18 +4430,26 @@ Nächste_Textzeile_lesen: End Sub Private Sub cboRechnungSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungSprache.SelectedIndexChanged - txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) - txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH) - If RECHNUNG IsNot Nothing Then - If RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.Anlage_1 <> "" AndAlso RECHNUNG.Anlage_2 <> "" AndAlso RECHNUNG.Anlage_3 <> "" Then - Select Case cboRechnungSprache._value - Case "DE" : cboAnlage1.Text = "Rechnung" : cboAnlage2.Text = "Lief.-Rechn." : cboAnlage3.Text = "POS-Liste" - Case "EN" : cboAnlage1.Text = "Invoice" : cboAnlage2.Text = "Supplier Invoice(s)" : cboAnlage3.Text = "Item List" - Case "RO" : cboAnlage1.Text = "Factura" : cboAnlage2.Text = "Factura furnizor" : cboAnlage3.Text = "Lista articole" - End Select + If cboRechnungSprache._value <> "" Then + If RECHNUNG IsNot Nothing Then + RECHNUNG.RechnungSprache = cboRechnungSprache._value + + txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) + txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH) + + + If RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.Anlage_1 <> "" AndAlso RECHNUNG.Anlage_2 <> "" AndAlso RECHNUNG.Anlage_3 <> "" Then + Select Case RECHNUNG.RechnungSprache + Case "DE" : cboAnlage1.Text = "Rechnung" : cboAnlage2.Text = "Lief.-Rechn." : cboAnlage3.Text = "POS-Liste" + Case "EN" : cboAnlage1.Text = "Invoice" : cboAnlage2.Text = "Supplier Invoice(s)" : cboAnlage3.Text = "Item List" + Case "RO" : cboAnlage1.Text = "Factura" : cboAnlage2.Text = "Factura furnizor" : cboAnlage3.Text = "Lista articole" + End Select + + End If End If + End If diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index de9adef0..e373715d 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -1,10 +1,5 @@ Imports System.Globalization Imports System.Text -Imports System.Windows.Media.Animation -Imports com.sun.crypto.provider -Imports com.sun.xml.internal.rngom -Imports GrapeCity.ActiveReports.ReportsCore.Tools -Imports jdk.nashorn.internal.objects.annotations Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlBH From f314969a27909f89ace304f91be76f7efc69c450 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 7 Nov 2025 11:50:48 +0100 Subject: [PATCH 09/18] =?UTF-8?q?UID-Pr=C3=BCfung=20Kompatiblit=C3=A4tspr?= =?UTF-8?q?=C3=BCfungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/My Project/AssemblyInfo.vb | 4 +- VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 133 ++++++++++--------- 2 files changed, 71 insertions(+), 66 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 87955333..b37f53f5 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index b53a7623..f8718d1c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -152,9 +152,9 @@ Public Class cUIDPruefung End Function - Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1500) As DataTable + Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000) As DataTable Dim dt As DataTable = Nothing - + dt = get_zupruefendeKunden(MaxEintraege, datum) If dt IsNot Nothing Then @@ -193,25 +193,29 @@ Public Class cUIDPruefung Case "EUROPE" For Each r As DataRow In dt.Rows - Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr, ART) - If UID_TMP IsNot Nothing Then - If UID_TMP.uid_valid Then - r("Ergebnis") = "OK" - For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'") - row("Ergebnis") = r("Ergebnis") - Next + If Not IsDBNull(r("istEUVAT")) AndAlso r("istEUVAT") = "Ja" Then ' Alle 27 Mitgliedstaaten der Europäischen Union + Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr, ART) + If UID_TMP IsNot Nothing Then + If UID_TMP.uid_valid Then + r("Ergebnis") = "OK" + + For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'") + row("Ergebnis") = r("Ergebnis") + Next + + Else + r("Ergebnis") = "UNGÃœLTIG" + End If Else - r("Ergebnis") = "UNGÃœLTIG" + r("Ergebnis") = "ERROR" + End If - Else - r("Ergebnis") = "ERROR" - End If - - If veroegerungMs > 0 Then - Thread.Sleep(veroegerungMs) 'Bei Verögeung soll zwischen jeder Abfrage eine Pause gemacht werden! (Wegen Sperre bei zu vielen Abfragen) + If veroegerungMs > 0 Then + Thread.Sleep(veroegerungMs) 'Bei Verögeung soll zwischen jeder Abfrage eine Pause gemacht werden! (Wegen Sperre bei zu vielen Abfragen) + End If End If Next @@ -227,62 +231,57 @@ Public Class cUIDPruefung For Each r As DataRow In dt.Rows - If IsDBNull(r("Ergebnis")) Then + If Not IsDBNull(r("istEUVAT")) AndAlso r("istEUVAT") = "Ja" Then ' Alle 27 Mitgliedstaaten der Europäischen Union - counter += 1 - Dim errorCode = -99 - Dim errormsg = "" - Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode, errormsg) - If UID_TMP IsNot Nothing Then - If UID_TMP.uid_valid Then - r("Ergebnis") = "OK" + If IsDBNull(r("Ergebnis")) Then - For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'") - row("Ergebnis") = r("Ergebnis") - Next - ' Bei ungültig soll er einzeln durchgehen! Besprochen mit A.Stockenhuber + counter += 1 + Dim errorCode = -99 + Dim errormsg = "" + Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode, errormsg) + If UID_TMP IsNot Nothing Then + If UID_TMP.uid_valid Then + r("Ergebnis") = "OK" + + For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'") + row("Ergebnis") = r("Ergebnis") + Next + ' Bei ungültig soll er einzeln durchgehen! Besprochen mit A.Stockenhuber + Else + r("Ergebnis") = "UNGÃœLTIG" + End If Else - r("Ergebnis") = "UNGÃœLTIG" - ' For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'") - ' row("Ergebnis") = r("Ergebnis") - ' Next - End If - Else - r("Ergebnis") = "ERROR" - r("Error-Code") = errorCode.ToString() - r("Error-Text") = FO.GetCodeText(errorCode) & errormsg + r("Ergebnis") = "ERROR" + r("Error-Code") = errorCode.ToString() + r("Error-Text") = FO.GetCodeText(errorCode) & errormsg + + If r("Error-Code") = "1511" Then + errorCounter += 1 'Fehler Mitgliedsstaat nicht erreichbar!!! + ElseIf r("Error-Code") = "-99" AndAlso r("Error-Text") <> "" AndAlso r("Error-Text").ToString.Contains("Wegen Wartungsarbeiten") Then + Exit For 'Wartungsarbeiten -> sofort abbrechen! + + End If - If r("Error-Code") = "1511" Then - errorCounter += 1 'Fehler Mitgliedsstaat nicht erreichbar!!! - ElseIf r("Error-Code") = "-99" AndAlso r("Error-Text") <> "" AndAlso r("Error-Text").ToString.Contains("Wegen Wartungsarbeiten") Then - Exit For End If - ' Bei ERROR soll er ebenfalls einzeln durchgehen! Besprochen mit A.Stockenhuber - 'For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'") - ' row("Ergebnis") = r("Ergebnis") - ' row("Error-Code") = r("Error-Code") - ' row("Error-Text") = r("Error-Text") - 'Next - End If - End If + r("Re-Login") = "0" - r("Re-Login") = "0" + If counter Mod 100 = 0 OrElse errorCounter > 10 Then + If errorCounter > 10 Then errorCounter = 0 + FO.Call_Web_Service_MethodUID_Logout_NEU2020() + Thread.Sleep(2000) + FO.Call_Web_Service_MethodUID_Login_NEU2020() + r("Re-Login") = "1" + End If - If counter Mod 100 = 0 OrElse errorCounter > 10 Then - If errorCounter > 10 Then errorCounter = 0 - FO.Call_Web_Service_MethodUID_Logout_NEU2020() - Thread.Sleep(2000) - FO.Call_Web_Service_MethodUID_Login_NEU2020() - r("Re-Login") = "1" - End If + If veroegerungMs > 0 Then + r("Verzoegerung") = veroegerungMs + Thread.Sleep(veroegerungMs) 'Bei Verögeung soll zwischen jeder Abfrage eine Pause gemacht werden! (Wegen Sperre bei zu vielen Abfragen) + End If - If veroegerungMs > 0 Then - r("Verzoegerung") = veroegerungMs - Thread.Sleep(veroegerungMs) 'Bei Verögeung soll zwischen jeder Abfrage eine Pause gemacht werden! (Wegen Sperre bei zu vielen Abfragen) End If Next @@ -312,9 +311,9 @@ Public Class cUIDPruefung End If Select Case Firma - Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)" - Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)" - Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)" + Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701) " + Case "IMEX" : where = " And Filialen.FilialenNr IN (5501) " + Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801) " Case "UNISPED" : where = " AND Filialen.firma='UNISPED' " Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)" End Select @@ -325,7 +324,13 @@ Public Class cUIDPruefung Top = " TOP " & MaxEintraege End If - dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " & + dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr ,CASE + WHEN UPPER(Adressen.UstIdKz) IN ( + 'AT','BE','BG','CY','CZ','DE','DK','EE','EL','ES','FI','FR','HR', + 'HU','IE','IT','LT','LU','LV','MT','NL','PL','PT','RO','SE','SI','SK' + ) THEN 'Ja' + ELSE 'Nein' + END AS istEUVAT " & " From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " & " where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " & " And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL") From 286cf31be2ef6af248b21c8291fa628978524f24 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 7 Nov 2025 15:10:07 +0100 Subject: [PATCH 10/18] cDatenserver, StartOpt, Mitarbeiter, etc. --- SDL/frmMain.Designer.vb | 37 +++++++++++--- SDL/frmMain.resx | 51 +++++++++---------- SDL/frmMain.vb | 8 +++ VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 2 +- .../DATENSERVER/cDATENSERVER.vb | 6 +-- 5 files changed, 68 insertions(+), 36 deletions(-) diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index 166876d7..323c8484 100644 --- a/SDL/frmMain.Designer.vb +++ b/SDL/frmMain.Designer.vb @@ -114,6 +114,9 @@ Partial Class frmMain Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) + Me.WikiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.WikiToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.MItarbeiterverzeichnisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlLeft.SuspendLayout() Me.MenuStripSDL.SuspendLayout() Me.Panel1.SuspendLayout() @@ -319,14 +322,14 @@ Partial Class frmMain ' Me.FakturierungToolStripMenuItem.Enabled = False Me.FakturierungToolStripMenuItem.Name = "FakturierungToolStripMenuItem" - Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(163, 22) Me.FakturierungToolStripMenuItem.Text = "Fakturierung" Me.FakturierungToolStripMenuItem.Visible = False ' 'RechnungsdatenToolStripMenuItem ' Me.RechnungsdatenToolStripMenuItem.Name = "RechnungsdatenToolStripMenuItem" - Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(163, 22) Me.RechnungsdatenToolStripMenuItem.Text = "Rechnungsdaten" Me.RechnungsdatenToolStripMenuItem.Visible = False ' @@ -734,7 +737,7 @@ Partial Class frmMain ' Me.MenuStrip1.BackColor = System.Drawing.Color.White Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuFormular, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFunktionen, Me.mnuFragezeichen}) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuFormular, Me.mnuFragezeichen, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFunktionen}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(984, 24) @@ -848,7 +851,7 @@ Partial Class frmMain ' 'mnuFragezeichen ' - Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BenutzerhandbuchToolStripMenuItem, Me.mnuInfo}) + Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BenutzerhandbuchToolStripMenuItem, Me.mnuInfo, Me.WikiToolStripMenuItem}) Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown Me.mnuFragezeichen.Name = "mnuFragezeichen" @@ -858,13 +861,13 @@ Partial Class frmMain 'BenutzerhandbuchToolStripMenuItem ' Me.BenutzerhandbuchToolStripMenuItem.Name = "BenutzerhandbuchToolStripMenuItem" - Me.BenutzerhandbuchToolStripMenuItem.Size = New System.Drawing.Size(174, 22) + Me.BenutzerhandbuchToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.BenutzerhandbuchToolStripMenuItem.Text = "Benutzerhandbuch" ' 'mnuInfo ' Me.mnuInfo.Name = "mnuInfo" - Me.mnuInfo.Size = New System.Drawing.Size(174, 22) + Me.mnuInfo.Size = New System.Drawing.Size(180, 22) Me.mnuInfo.Text = "Info" ' 'lblMs @@ -1049,6 +1052,25 @@ Partial Class frmMain Me.Timer_REFRESH.Enabled = True Me.Timer_REFRESH.Interval = 5000 ' + 'WikiToolStripMenuItem + ' + Me.WikiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WikiToolStripMenuItem1, Me.MItarbeiterverzeichnisToolStripMenuItem}) + Me.WikiToolStripMenuItem.Name = "WikiToolStripMenuItem" + Me.WikiToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.WikiToolStripMenuItem.Text = "VERAG-WIKI" + ' + 'WikiToolStripMenuItem1 + ' + Me.WikiToolStripMenuItem1.Name = "WikiToolStripMenuItem1" + Me.WikiToolStripMenuItem1.Size = New System.Drawing.Size(190, 22) + Me.WikiToolStripMenuItem1.Text = "Wiki" + ' + 'MItarbeiterverzeichnisToolStripMenuItem + ' + Me.MItarbeiterverzeichnisToolStripMenuItem.Name = "MItarbeiterverzeichnisToolStripMenuItem" + Me.MItarbeiterverzeichnisToolStripMenuItem.Size = New System.Drawing.Size(190, 22) + Me.MItarbeiterverzeichnisToolStripMenuItem.Text = "MItarbeiterverzeichnis" + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -1174,4 +1196,7 @@ Partial Class frmMain Friend WithEvents mnuFormular As ToolStripMenuItem Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem Friend WithEvents MailvorlagenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents WikiToolStripMenuItem As ToolStripMenuItem + Friend WithEvents WikiToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents MItarbeiterverzeichnisToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/frmMain.resx b/SDL/frmMain.resx index f9ebb507..17d66a17 100644 --- a/SDL/frmMain.resx +++ b/SDL/frmMain.resx @@ -127,32 +127,31 @@ iVBORw0KGgoAAAANSUhEUgAAACMAAAAjCAYAAAAe2bNZAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAXLSURBVFhHzVhncFVFFI69jr33rjOOOjpjL2P54Ywj - AQkKhCIqCIoIKk3AQURaEMShSBsERFCaiKaQ8FJfCkle3oOENBNIQl4qqaS3437nupe99+0LGJzRH1+S - 8+3es3tP+XZvAojofwMt6Q/dPT10rLqVfo4vo1HLDtKjExPo2uFRdM2wKP79yMcJNGKph36K9VJxVQt1 - dfeIx/S+dNCS/lBZ307rI0to6GI3XTk0kgL6hfrg8sH76K1FGbQ2ooTKatvEY3pfOmhJOxpbOmnmj3n8 - 9ljwsUlO+vD7LJqzLZ82R5fSbwcq+DfsCWsO0xOfJfK8K4ZE0ozNuVTT2CHc6H2r0JIqwl1VdP+4WHY+ - aV02xWbWCFo/V0V8Vg1N+SGHn7trTAztSakQtH6uhJaUmL01n85/I5z6zU0jz5EGQenn9YaDRxtpcEgG - ndM/jKaKzdnHVWhJYPKGHHbwpdhQR5dvIXYKrvZEBxfz9E25nMaw9CoCb5+Lwg/ZVcj+kF77uISWRETw - 4EbHMWH6jq+JKKbhSzx0n0jfuQPCOBUAoohuSsmrE9N8n9sS4+01Qj4EagKOERH7GOAubODClBvQ4caR - +6lESID9WWDx7kKeE5pWJUzrmMWobmin29+LpldmpQjT4OqaOjj80I4q0dqJObV0mWhf+wZUXDwogiJE - 4VfUtdEmRyk5s2tNf0D/r9N5w+W21jf/ANCacIZFYe9MLKfnpiWZi/ySUEZtHd103d8t7g+InLfGEEfY - FwwMp9HLD1Frezf7Pd7YzjxqDbYE/0CBQqCgI2NXZvIEPHh1sHVRCBnGbnnHYeHtuOltB89Dzan8uFWZ - hGLGGPQIyl1U2ULtncYmeTMIl3wwNb+eB060drE+qM5Whhbx2D3vW3k77hwdw/Og1iqP4s33NvEYpALc - 6vBis754M9udZSzhUE55niBaz0w5maKrgiMps6iRfk+tpIuCIkxeh/NEhyGlf5Y1c21I/uzAMPo1+aT4 - PTs1iV7/Ks3sWibRpihKhA42gLw+9FG86ejlmUZRvzo71eR6wwvTk3k+BFNy2CReHDwwce1hrqegBS7m - mJSLQl9gA3hIOgEe+CCO8z1tY66F94cxKw6xL5zkksNmdjjLzTUW7ixgXqaVyetHGKGEKMEGkNNL37Sm - A22KMTV9OmADSDO6UeXPCgyl7/YeNdfYlWSMo/tgMymvA9AT2BIboqzdcNu70ZQhRA8FBy1Rx1RgvL65 - k+4daxywKlCXaHv4j3RXMwepgM2L6iIj8dKMFIuzF4WNdA1b4rbwEoMWuqi5rcs86XWQ6+zWRebhCb41 - I2GvHRyIOAwhASovkVfaxPcXtYuApyYn8hGDqwWUGb4XicMTY3cI1YfNCwZ/4+b6QHXDVoG3UJ1CpcE3 - iDSgINUxHJrgMb5M1IY6tjXON+q4H8HHgHnpPMbktngvDZzv4nzChiLizXG6yiJGKtHWOCgxZ7/nOBek - uiBs6BDGC8ub6bU5qWaEkAr4S86t4yMFc9D+8Llun6HsvBkcBegUPLR0zxG+bMsF0HbjV2eZDrCZ+TsK - 6AZbGiRwhCB6rgJDySGiiPjdipqj3lb8UcR/44ixKDAKEiKHu618AG+J+yvGARTbkBB90foDoq2KHGpG - Te2D4+O4fqTq8yQJRAWTcI2Qd1ZctE+lK6cC0g+ZgD/Ih4wSRA+chGUz6AJoSeBco6D8tW9fgbaH35Hf - eriW8OkDW8KyGQA3sFvFFQGHmM7hmeJpEWW8sHosSFgMidM9f/oK9UBW4UNIzNqSp3V0psBXh7xg2eFD - qJi3vYAusR2WfcWFQeH0hXhB+xoqtKQKiJj8XO0r8A8CSIPdtx1a0g58ay8QQofi0y3mD49/6iRE91/7 - 1lYBp7iDfLI+m29yN49y8L0WAolzCRfx5wWPAoXYya+M04WW7A24vO89UMnqDN1AtJ4UaYQwQnE/F58f - SIm8s/wTaMn/BhTwFyTS58zDvQ4BAAAAAElFTkSuQmCC + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAWnSURBVFhHzVhncFRVFMZex9571xlHHZ2xl7H8cMaR + EAkaCEUQkCgiKARiwEFEWhDEEZQ2QDAGJQQxms6mN5JsEkhIMyGF1A2ppG3acb6z3pf73n3ZDZnM6I9v + Nu/ce88975TvnJdxRDTu/wJF4AwDg4N0urGbfk2spZlbjtOTC5PoxmkxdMPUGP594tMkmr45l36Jr6FK + Wxf1DwySUYczKAJnaGi10+7oKpqyMYeunRJN48aHKbjaM4re25BNOyOrqLa5Z+yNae/qo+U/F/Pb48Kn + FiXTxz/l06oDJbQ/tpr+OFbPv3hesOMkPbM4hfddMzma/PYXUVN774iMUgRGRFht9LB3PCtftKuA4vOa + RqQ4Mb+JfPYW8rn75sbRkfR6l+cUgYyVQSV08TsRNH51JuWeanOpzAzHy9vJ0z+bLpgQTkv3FjrVoQgE + luwpZAVfBZVQb7+aiH39g9R8tpeT2TegiMMYnmUjyI17kfj+IWWsD+E1rgsoAgAewcF9ltOmB3dEVtK0 + Tbn0kHc8XegeriUvvIhqSi9uMT0XGFfj1EOKADkBxfCIcQ3IKWvjxDRWkYxbZxylqsZu0/MbD5fxnrBM + m7Kue2hss9Pds2PpjRXp2saWjl52P7jD1mqnlMJmusozSjFAxuWTIinSaqP6lh4KsFRTckGz7uIJ32Sx + wXWG0tcZg9KEMlyK50MpdfTSslTtkt+Saqmnd4Bu+rfEhwM8V9PkIEc8XzIxgub8cIK67QOs90y7neXI + NcUYJCgICjwyb1seb8DB6730l4LIsHbHLItigIzb3rfwPuScLPf+MY+QzFgDH4G5Kxq6yN7nMJKNgbvE + wYySVl44293P/CAr2xZWwWsPfKiXG3HvnDjeB7aW5UjekpoOXgNVQLY9olLLLzbmYHItUziYU/QTeOsF + n6EQXecVTXkV7fRnRgNd5hGpGCDjIvdwDunftZ2cG0J+vls4/Z42RH4vLk2lt7/O1KqWhShTJCVcJzYi + ro99kqgpen25I6nfXJmhXG6GV3zTeD8IUzYSLy7uWLjzJOeTxzrrkDHiUvCL2IhDsvJHPkrgeC/bV6Rc + bIa5W0+wLnRy2Zjg5DrtjvWHSlkuwsrCm6c7XAlSEhsR0yvf1YcDZYo1OXxmgAEIM6pRlp/nFkbfh5Zr + d4SkOtZRfZoxYhwAn4iNwJ4YfTXc9UEsZZe1ccKBS4xGCGC9tbOPHpznaLAykJcoe+iPzmlkGajCqWcE + XvNL1yl71S+dwzV1U45yETBpvZU6e/q1Tm8Gcc9hM888vkDNGQFj7qAhohmCAoyXAMXVHTy/yFUEPLck + hVsMRgswM3RvCHG0hntmxw4Z4/VtDucHsttoDN5CVgqWhryts48TUl5D04Qc61tCy3VrQQmq1zEfQYf7 + mqwhYw4k1tDEtVaOJ57BiHhzdFeRxAglyhqNEnuO5p7hhJQvxDN4COtldZ301qoMzUMIBfSlFbVwS8Ee + lD907opyMDsbg1aASsGhzUdO8bAtLkDZzd+erymAMWuDS+kWQxgE0ELgPWupg8lBovD4/RKbI9+2/lXB + f6PF6BgYCQmSw2wrvyXmV+FSJNtkf/OkHQ7wtkxyyBk5tI/OT+D8EayviyG8gk0YI8TMikHbFa+4AsIP + moA+0IfwEkhPvl9nDKoAXOK22pFQw5XvaIGyh94Z3+VyLuHTZ1hjAExgd86yEJqYUdlY4HmfVH5huS0M + awww0v4zWsgN2aUxwIrAYkXJWABfHWLAMkIRyFhzsJSuMDTL0eJSjwj6MrDY1IgRGQOAxMTn6miBfxCA + Goy6jVAEZsC39rrgUk4+40XO8PTnyQTvjtm3tgwoxQzy2e4CnuRun2nhuRYEib6EQfxl3zROUJCd+MoY + KRSBK2B4Dz3WwOwM3oC3nl2cwsQIxv0ioIhDImaWc4Ei+C/xDyTS58xsrLJ/AAAAAElFTkSuQmCC diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index e1d29c79..3469541e 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -1169,7 +1169,15 @@ Public Class frmMain End If End Sub + Private Sub WikiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WikiToolStripMenuItem.Click, MItarbeiterverzeichnisToolStripMenuItem.Click + Select Case sender.Name + Case "WikiToolStripMenuItem" : Process.Start("https://wiki.verag.ag/") + Case "MitarbeiterverzeichnisToolStripMenuItem" : Process.Start("https://wiki.verag.ag/de/mitarbeiter/verzeichnis") + + End Select + + End Sub End Class Public Class MyRenderer diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index f8718d1c..001b607d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -272,7 +272,7 @@ Public Class cUIDPruefung If counter Mod 100 = 0 OrElse errorCounter > 10 Then If errorCounter > 10 Then errorCounter = 0 FO.Call_Web_Service_MethodUID_Logout_NEU2020() - Thread.Sleep(2000) + Thread.Sleep(5000) FO.Call_Web_Service_MethodUID_Login_NEU2020() r("Re-Login") = "1" End If diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 8bee86c9..18029d51 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1398,9 +1398,9 @@ Public Class cFormularManager If doc.Pages.Count = 0 Then Continue For Dim size = doc.Pages(0).Size - If size.Width <= 0 OrElse size.Height <= 0 Then Continue For - ' --- Druckeinstellungen --- - doc.PrintSettings.PrinterName = printerName + If size.Width <= 10 OrElse size.Height <= 10 Then Continue For 'zu kleine Seiten überspringen + ' --- Druckeinstellungen --- + doc.PrintSettings.PrinterName = printerName doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 doc.PageSettings.Orientation = Spire.Pdf.PdfPageOrientation.Landscape doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.FitSize, True) From 357af8ab51fb13e5cf34b0b5b863dac378805424 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 7 Nov 2025 15:22:29 +0100 Subject: [PATCH 11/18] cUID --- VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index 001b607d..30cfc734 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -155,7 +155,7 @@ Public Class cUIDPruefung Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000) As DataTable Dim dt As DataTable = Nothing - dt = get_zupruefendeKunden(MaxEintraege, datum) + dt = get_zupruefendeKunden(MaxEintraege, datum,, True) If dt IsNot Nothing Then If dt.Rows.Count = 0 Then Return Nothing @@ -299,7 +299,7 @@ Public Class cUIDPruefung Return dt End Function - Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "") As DataTable + Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False) As DataTable Dim dt As DataTable = Nothing If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1) @@ -324,6 +324,15 @@ Public Class cUIDPruefung Top = " TOP " & MaxEintraege End If + If Validierungspruefung Then + where &= " AND UPPER(Adressen.UstIdKz) IN ( + 'AT','BE','BG','CY','CZ','DE','DK','EE','EL','ES','FI','FR','HR', + 'HU','IE','IT','LT','LU','LV','MT','NL','PL','PT','RO','SE','SI','SK' + )" + End If + + + dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr ,CASE WHEN UPPER(Adressen.UstIdKz) IN ( 'AT','BE','BG','CY','CZ','DE','DK','EE','EL','ES','FI','FR','HR', From 1afe147ea838bf9ad821f5f22f20a6e08b7c2775 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 10 Nov 2025 15:03:12 +0100 Subject: [PATCH 12/18] Chat fix, CBAM, USTV, etc. --- .../Berufungen/frmBerufung.Designer.vb | 945 +++++++++++++++ .../Berufungen/frmBerufung.resx | 1012 +++++++++++++++++ .../Berufungen/frmBerufung.vb | 486 ++++++++ .../frmBerufungenSearch.Designer.vb | 971 ++++++++++++++++ .../Berufungen/frmBerufungenSearch.resx | 980 ++++++++++++++++ .../Berufungen/frmBerufungenSearch.vb | 441 +++++++ SDL/USTV/usrCntlUSTV.vb | 19 +- SDL/kunden/usrCntlCBAM.vb | 403 +++++-- .../Messenger/frmMessenger.vb | 2 +- 9 files changed, 5133 insertions(+), 126 deletions(-) create mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb create mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx create mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb create mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb create mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx create mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb new file mode 100644 index 00000000..d6bd9e64 --- /dev/null +++ b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb @@ -0,0 +1,945 @@ + +Partial Class frmBerufung + 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBerufung)) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label() + Me.lblErr_DocNr = New System.Windows.Forms.Label() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.txtLocation = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.sbAvisoSuche = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.lblLKWId = New System.Windows.Forms.Label() + Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtFiliale = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtDocDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnUpload = New System.Windows.Forms.Button() + Me.btnScan = New System.Windows.Forms.Button() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.lblErr_ErhaltenDatum = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.cbxKurierPaketdienst = New System.Windows.Forms.CheckBox() + Me.txtErhaltenReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.cbxKurierMotorrad = New System.Windows.Forms.CheckBox() + Me.txtErhaltenDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtErhaltenUhrzeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnSave = New System.Windows.Forms.Button() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtInfo = New System.Windows.Forms.RichTextBox() + Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel3.SuspendLayout() + Me.Panel4.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.lblErr_Aufbewarungsort) + Me.Panel1.Controls.Add(Me.lblErr_DocNr) + Me.Panel1.Controls.Add(Me.Button5) + Me.Panel1.Controls.Add(Me.Button4) + Me.Panel1.Controls.Add(Me.Button3) + Me.Panel1.Controls.Add(Me.txtKennzeichen) + Me.Panel1.Controls.Add(Me.Label14) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.txtLocation) + Me.Panel1.Controls.Add(Me.Label12) + Me.Panel1.Controls.Add(Me.Label11) + Me.Panel1.Controls.Add(Me.txtAbsender) + Me.Panel1.Controls.Add(Me.txtEmpfaenger) + Me.Panel1.Controls.Add(Me.Label13) + Me.Panel1.Controls.Add(Me.sbAvisoSuche) + Me.Panel1.Controls.Add(Me.lblLKWId) + Me.Panel1.Controls.Add(Me.txtAbfNr) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.txtFiliale) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.txtDocDatum) + Me.Panel1.Controls.Add(Me.btnUpload) + Me.Panel1.Controls.Add(Me.btnScan) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.txtDocNumber) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Controls.Add(Me.Panel3) + Me.Panel1.Controls.Add(Me.Panel4) + Me.Panel1.Controls.Add(Me.FlatButton4) + Me.Panel1.Controls.Add(Me.FlatButton1) + Me.Panel1.Controls.Add(Me.txtInfo) + Me.Panel1.Controls.Add(Me.lblErr_Ausstellungsdatum) + 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(658, 588) + Me.Panel1.TabIndex = 0 + ' + 'lblErr_Aufbewarungsort + ' + Me.lblErr_Aufbewarungsort.AutoSize = True + Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red + Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327) + Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort" + Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13) + Me.lblErr_Aufbewarungsort.TabIndex = 108 + Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!" + Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_Aufbewarungsort.Visible = False + ' + 'lblErr_DocNr + ' + Me.lblErr_DocNr.AutoSize = True + Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red + Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53) + Me.lblErr_DocNr.Name = "lblErr_DocNr" + Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13) + Me.lblErr_DocNr.TabIndex = 107 + Me.lblErr_DocNr.Text = "Pflichtfeld!" + Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_DocNr.Visible = False + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(609, 341) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(39, 26) + Me.Button5.TabIndex = 105 + Me.Button5.Text = "FO" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(510, 341) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(101, 26) + Me.Button4.TabIndex = 104 + Me.Button4.Text = "VERRECHNUNG" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(444, 341) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(67, 26) + Me.Button3.TabIndex = 103 + Me.Button3.Text = "VERIMEX" + Me.Button3.UseVisualStyleBackColor = True + ' + 'txtKennzeichen + ' + Me.txtKennzeichen._DateTimeOnly = False + Me.txtKennzeichen._numbersOnly = False + Me.txtKennzeichen._numbersOnlyKommastellen = "" + Me.txtKennzeichen._numbersOnlyTrennzeichen = True + Me.txtKennzeichen._Prozent = False + Me.txtKennzeichen._ShortDateNew = False + Me.txtKennzeichen._ShortDateOnly = False + Me.txtKennzeichen._TimeOnly = False + Me.txtKennzeichen._TimeOnly_Seconds = False + Me.txtKennzeichen._value = "" + Me.txtKennzeichen._Waehrung = False + Me.txtKennzeichen._WaehrungZeichen = False + Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black + Me.txtKennzeichen.Location = New System.Drawing.Point(473, 279) + Me.txtKennzeichen.MaxLineLength = -1 + Me.txtKennzeichen.MaxLines_Warning = "" + Me.txtKennzeichen.MaxLines_Warning_Label = Nothing + Me.txtKennzeichen.Name = "txtKennzeichen" + Me.txtKennzeichen.Size = New System.Drawing.Size(175, 26) + Me.txtKennzeichen.TabIndex = 7 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label14.Location = New System.Drawing.Point(469, 256) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(47, 20) + Me.Label14.TabIndex = 102 + Me.Label14.Text = "LKW:" + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button2.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(473, 211) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(175, 31) + Me.Button2.TabIndex = 100 + Me.Button2.Text = "Aus Zwischenablage" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'txtLocation + ' + Me.txtLocation._DateTimeOnly = False + Me.txtLocation._numbersOnly = False + Me.txtLocation._numbersOnlyKommastellen = "" + Me.txtLocation._numbersOnlyTrennzeichen = True + Me.txtLocation._Prozent = False + Me.txtLocation._ShortDateNew = False + Me.txtLocation._ShortDateOnly = False + Me.txtLocation._TimeOnly = False + Me.txtLocation._TimeOnly_Seconds = False + Me.txtLocation._value = "" + Me.txtLocation._Waehrung = False + Me.txtLocation._WaehrungZeichen = False + Me.txtLocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtLocation.ForeColor = System.Drawing.Color.Black + Me.txtLocation.Location = New System.Drawing.Point(157, 341) + Me.txtLocation.MaxLineLength = -1 + Me.txtLocation.MaxLines_Warning = "" + Me.txtLocation.MaxLines_Warning_Label = Nothing + Me.txtLocation.Name = "txtLocation" + Me.txtLocation.Size = New System.Drawing.Size(288, 26) + Me.txtLocation.TabIndex = 8 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label12.Location = New System.Drawing.Point(9, 366) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(41, 20) + Me.Label12.TabIndex = 66 + Me.Label12.Text = "Info:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label11.Location = New System.Drawing.Point(9, 344) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(143, 20) + Me.Label11.TabIndex = 66 + Me.Label11.Text = "Aufbewarungs-Ort:" + ' + 'txtAbsender + ' + Me.txtAbsender._AlleFirmenCLUSTER = False + Me.txtAbsender._AllowSetValue = True + Me.txtAbsender._autoSizeGross = True + Me.txtAbsender._display_Name1 = False + Me.txtAbsender._displayAVISO_Email = False + Me.txtAbsender._displayFullName = False + Me.txtAbsender._displayWoelflKd = False + Me.txtAbsender._hideIfListEmpty = True + Me.txtAbsender._loadKdData = True + Me.txtAbsender._searchName1 = True + Me.txtAbsender._UseFIRMA = "" + Me.txtAbsender._ValueKdAndName = True + Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAbsender.dgvpos = "LEFT" + Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtAbsender.KdName = "" + Me.txtAbsender.KdNr = "-1" + Me.txtAbsender.kdNrField = Nothing + Me.txtAbsender.KdNrNullInt = Nothing + Me.txtAbsender.Location = New System.Drawing.Point(157, 151) + Me.txtAbsender.MaxLength = 50 + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.nurAktive = False + Me.txtAbsender.searchActive = True + Me.txtAbsender.Size = New System.Drawing.Size(263, 26) + Me.txtAbsender.TabIndex = 3 + Me.txtAbsender.TIMER_SEARCH = True + Me.txtAbsender.usrcntl = Nothing + ' + 'txtEmpfaenger + ' + Me.txtEmpfaenger._AlleFirmenCLUSTER = False + Me.txtEmpfaenger._AllowSetValue = True + Me.txtEmpfaenger._autoSizeGross = True + Me.txtEmpfaenger._display_Name1 = False + Me.txtEmpfaenger._displayAVISO_Email = False + Me.txtEmpfaenger._displayFullName = False + Me.txtEmpfaenger._displayWoelflKd = False + Me.txtEmpfaenger._hideIfListEmpty = True + Me.txtEmpfaenger._loadKdData = True + Me.txtEmpfaenger._searchName1 = True + Me.txtEmpfaenger._UseFIRMA = "" + Me.txtEmpfaenger._ValueKdAndName = True + Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtEmpfaenger.dgvpos = "LEFT" + Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtEmpfaenger.KdName = "" + Me.txtEmpfaenger.KdNr = "-1" + Me.txtEmpfaenger.kdNrField = Nothing + Me.txtEmpfaenger.KdNrNullInt = Nothing + Me.txtEmpfaenger.Location = New System.Drawing.Point(157, 176) + Me.txtEmpfaenger.Name = "txtEmpfaenger" + Me.txtEmpfaenger.nurAktive = False + Me.txtEmpfaenger.searchActive = True + Me.txtEmpfaenger.Size = New System.Drawing.Size(263, 26) + Me.txtEmpfaenger.TabIndex = 4 + Me.txtEmpfaenger.TIMER_SEARCH = True + Me.txtEmpfaenger.usrcntl = Nothing + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label13.Location = New System.Drawing.Point(9, 179) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(92, 20) + Me.Label13.TabIndex = 33 + Me.Label13.Text = "Empfänger:" + ' + 'sbAvisoSuche + ' + Me.sbAvisoSuche._allowFreitext = False + Me.sbAvisoSuche._AllowSetValue = False + Me.sbAvisoSuche._allowSpaceAsSplitter = False + Me.sbAvisoSuche._autoSizeGross = False + Me.sbAvisoSuche._hideIfListEmpty = True + Me.sbAvisoSuche._value = Nothing + Me.sbAvisoSuche.conn_art = "FMZOLL" + Me.sbAvisoSuche.dgvpos = "LEFT" + Me.sbAvisoSuche.DISPLAY_PARAM = Nothing + Me.sbAvisoSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.sbAvisoSuche.INVISIBLE_COLUMNS = Nothing + Me.sbAvisoSuche.key_visible = False + Me.sbAvisoSuche.KEYPARAM = Nothing + Me.sbAvisoSuche.Location = New System.Drawing.Point(157, 255) + Me.sbAvisoSuche.Name = "sbAvisoSuche" + Me.sbAvisoSuche.searchActive = True + Me.sbAvisoSuche.Size = New System.Drawing.Size(288, 26) + Me.sbAvisoSuche.SQL_ORDER_BY = Nothing + Me.sbAvisoSuche.SQL_SELECT = Nothing + Me.sbAvisoSuche.SQL_WHERE = Nothing + Me.sbAvisoSuche.SQL_WhereParamList = Nothing + Me.sbAvisoSuche.TabIndex = 5 + Me.sbAvisoSuche.usrcntl = Nothing + ' + 'lblLKWId + ' + Me.lblLKWId.AutoSize = True + Me.lblLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblLKWId.Location = New System.Drawing.Point(603, 263) + Me.lblLKWId.Name = "lblLKWId" + Me.lblLKWId.Size = New System.Drawing.Size(45, 13) + Me.lblLKWId.TabIndex = 30 + Me.lblLKWId.Text = "LKW-ID" + Me.lblLKWId.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblLKWId.Visible = False + ' + 'txtAbfNr + ' + Me.txtAbfNr._DateTimeOnly = False + Me.txtAbfNr._numbersOnly = True + Me.txtAbfNr._numbersOnlyKommastellen = "" + Me.txtAbfNr._numbersOnlyTrennzeichen = True + Me.txtAbfNr._Prozent = False + Me.txtAbfNr._ShortDateNew = False + Me.txtAbfNr._ShortDateOnly = False + Me.txtAbfNr._TimeOnly = False + Me.txtAbfNr._TimeOnly_Seconds = False + Me.txtAbfNr._value = "" + Me.txtAbfNr._Waehrung = False + Me.txtAbfNr._WaehrungZeichen = True + Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtAbfNr.ForeColor = System.Drawing.Color.Black + Me.txtAbfNr.Location = New System.Drawing.Point(238, 280) + Me.txtAbfNr.MaxLength = 8 + Me.txtAbfNr.MaxLineLength = -1 + Me.txtAbfNr.MaxLines_Warning = "" + Me.txtAbfNr.MaxLines_Warning_Label = Nothing + Me.txtAbfNr.Name = "txtAbfNr" + Me.txtAbfNr.Size = New System.Drawing.Size(207, 26) + Me.txtAbfNr.TabIndex = 7 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label5.Location = New System.Drawing.Point(9, 283) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(131, 20) + Me.Label5.TabIndex = 15 + Me.Label5.Text = "FilialenNr/Abf.Nr.:" + ' + 'txtFiliale + ' + Me.txtFiliale._DateTimeOnly = False + Me.txtFiliale._numbersOnly = True + Me.txtFiliale._numbersOnlyKommastellen = "" + Me.txtFiliale._numbersOnlyTrennzeichen = True + Me.txtFiliale._Prozent = False + Me.txtFiliale._ShortDateNew = False + Me.txtFiliale._ShortDateOnly = False + Me.txtFiliale._TimeOnly = False + Me.txtFiliale._TimeOnly_Seconds = False + Me.txtFiliale._value = "" + Me.txtFiliale._Waehrung = False + Me.txtFiliale._WaehrungZeichen = True + Me.txtFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtFiliale.ForeColor = System.Drawing.Color.Black + Me.txtFiliale.Location = New System.Drawing.Point(157, 280) + Me.txtFiliale.MaxLength = 4 + Me.txtFiliale.MaxLineLength = -1 + Me.txtFiliale.MaxLines_Warning = "" + Me.txtFiliale.MaxLines_Warning_Label = Nothing + Me.txtFiliale.Name = "txtFiliale" + Me.txtFiliale.Size = New System.Drawing.Size(82, 26) + Me.txtFiliale.TabIndex = 6 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label4.Location = New System.Drawing.Point(9, 258) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(114, 20) + Me.Label4.TabIndex = 13 + Me.Label4.Text = "AVISO-Suche:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label3.Location = New System.Drawing.Point(9, 154) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(82, 20) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "Absender:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label2.Location = New System.Drawing.Point(9, 102) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(61, 20) + Me.Label2.TabIndex = 9 + Me.Label2.Text = "Datum:" + ' + 'txtDocDatum + ' + Me.txtDocDatum._DateTimeOnly = False + Me.txtDocDatum._numbersOnly = False + Me.txtDocDatum._numbersOnlyKommastellen = "" + Me.txtDocDatum._numbersOnlyTrennzeichen = False + Me.txtDocDatum._Prozent = False + Me.txtDocDatum._ShortDateNew = True + Me.txtDocDatum._ShortDateOnly = False + Me.txtDocDatum._TimeOnly = False + Me.txtDocDatum._TimeOnly_Seconds = False + Me.txtDocDatum._value = "" + Me.txtDocDatum._Waehrung = False + Me.txtDocDatum._WaehrungZeichen = False + Me.txtDocDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtDocDatum.ForeColor = System.Drawing.Color.Black + Me.txtDocDatum.Location = New System.Drawing.Point(157, 99) + Me.txtDocDatum.MaxLength = 10 + Me.txtDocDatum.MaxLineLength = -1 + Me.txtDocDatum.MaxLines_Warning = "" + Me.txtDocDatum.MaxLines_Warning_Label = Nothing + Me.txtDocDatum.Name = "txtDocDatum" + Me.txtDocDatum.Size = New System.Drawing.Size(288, 26) + Me.txtDocDatum.TabIndex = 2 + ' + 'btnUpload + ' + Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpload.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.btnUpload.Image = Global.SDL.My.Resources.Resources.pdf_s + Me.btnUpload.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnUpload.Location = New System.Drawing.Point(473, 181) + Me.btnUpload.Name = "btnUpload" + Me.btnUpload.Size = New System.Drawing.Size(175, 31) + Me.btnUpload.TabIndex = 11 + Me.btnUpload.Text = "Upload..." + Me.btnUpload.UseVisualStyleBackColor = True + ' + 'btnScan + ' + Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.btnScan.Image = Global.SDL.My.Resources.Resources.scanner1 + Me.btnScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnScan.Location = New System.Drawing.Point(473, 151) + Me.btnScan.Name = "btnScan" + Me.btnScan.Size = New System.Drawing.Size(175, 31) + Me.btnScan.TabIndex = 10 + Me.btnScan.Text = "Scan..." + Me.btnScan.UseVisualStyleBackColor = True + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf_gray + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox1.Location = New System.Drawing.Point(473, 67) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(175, 76) + Me.PictureBox1.TabIndex = 5 + Me.PictureBox1.TabStop = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label1.Location = New System.Drawing.Point(9, 70) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(112, 20) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "Dokument-Nr.:" + ' + 'txtDocNumber + ' + Me.txtDocNumber._DateTimeOnly = False + Me.txtDocNumber._numbersOnly = False + Me.txtDocNumber._numbersOnlyKommastellen = "" + Me.txtDocNumber._numbersOnlyTrennzeichen = True + Me.txtDocNumber._Prozent = False + Me.txtDocNumber._ShortDateNew = False + Me.txtDocNumber._ShortDateOnly = False + Me.txtDocNumber._TimeOnly = False + Me.txtDocNumber._TimeOnly_Seconds = False + Me.txtDocNumber._value = "" + Me.txtDocNumber._Waehrung = False + Me.txtDocNumber._WaehrungZeichen = True + Me.txtDocNumber.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtDocNumber.ForeColor = System.Drawing.Color.Black + Me.txtDocNumber.Location = New System.Drawing.Point(157, 67) + Me.txtDocNumber.MaxLineLength = -1 + Me.txtDocNumber.MaxLines_Warning = "" + Me.txtDocNumber.MaxLines_Warning_Label = Nothing + Me.txtDocNumber.Name = "txtDocNumber" + Me.txtDocNumber.Size = New System.Drawing.Size(288, 26) + Me.txtDocNumber.TabIndex = 1 + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.PictureBox6) + Me.Panel2.Controls.Add(Me.Label10) + 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(658, 44) + Me.Panel2.TabIndex = 1 + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox6.Location = New System.Drawing.Point(640, 0) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(18, 19) + Me.PictureBox6.TabIndex = 134 + Me.PictureBox6.TabStop = False + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label10.ForeColor = System.Drawing.Color.White + Me.Label10.Location = New System.Drawing.Point(13, 14) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(634, 17) + Me.Label10.TabIndex = 5 + Me.Label10.Text = "Bitte erfassen Sie die Daten vollständig, damit das ATR bei der Abfertigung gefun" & + "den werden kann." + ' + 'Panel3 + ' + Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Panel3.BackColor = System.Drawing.Color.FloralWhite + Me.Panel3.Controls.Add(Me.lblErr_ErhaltenDatum) + Me.Panel3.Controls.Add(Me.Label9) + Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst) + Me.Panel3.Controls.Add(Me.txtErhaltenReferenz) + Me.Panel3.Controls.Add(Me.Label6) + Me.Panel3.Controls.Add(Me.cbxKurierMotorrad) + Me.Panel3.Controls.Add(Me.txtErhaltenDatum) + Me.Panel3.Controls.Add(Me.Label8) + Me.Panel3.Controls.Add(Me.Label7) + Me.Panel3.Controls.Add(Me.txtErhaltenUhrzeit) + Me.Panel3.Location = New System.Drawing.Point(0, 470) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(462, 118) + Me.Panel3.TabIndex = 98 + ' + 'lblErr_ErhaltenDatum + ' + Me.lblErr_ErhaltenDatum.AutoSize = True + Me.lblErr_ErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_ErhaltenDatum.ForeColor = System.Drawing.Color.Red + Me.lblErr_ErhaltenDatum.Location = New System.Drawing.Point(245, 26) + Me.lblErr_ErhaltenDatum.Name = "lblErr_ErhaltenDatum" + Me.lblErr_ErhaltenDatum.Size = New System.Drawing.Size(56, 13) + Me.lblErr_ErhaltenDatum.TabIndex = 109 + Me.lblErr_ErhaltenDatum.Text = "Pflichtfeld!" + Me.lblErr_ErhaltenDatum.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_ErhaltenDatum.Visible = False + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label9.Location = New System.Drawing.Point(9, 67) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(104, 20) + Me.Label9.TabIndex = 27 + Me.Label9.Text = "Referenz-Nr.:" + ' + 'cbxKurierPaketdienst + ' + Me.cbxKurierPaketdienst.AutoSize = True + Me.cbxKurierPaketdienst.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cbxKurierPaketdienst.Location = New System.Drawing.Point(300, 91) + Me.cbxKurierPaketdienst.Name = "cbxKurierPaketdienst" + Me.cbxKurierPaketdienst.Size = New System.Drawing.Size(155, 21) + Me.cbxKurierPaketdienst.TabIndex = 5 + Me.cbxKurierPaketdienst.Text = "Paketdienst (DHL,..)" + Me.cbxKurierPaketdienst.UseVisualStyleBackColor = True + ' + 'txtErhaltenReferenz + ' + Me.txtErhaltenReferenz._DateTimeOnly = False + Me.txtErhaltenReferenz._numbersOnly = False + Me.txtErhaltenReferenz._numbersOnlyKommastellen = "" + Me.txtErhaltenReferenz._numbersOnlyTrennzeichen = True + Me.txtErhaltenReferenz._Prozent = False + Me.txtErhaltenReferenz._ShortDateNew = False + Me.txtErhaltenReferenz._ShortDateOnly = False + Me.txtErhaltenReferenz._TimeOnly = False + Me.txtErhaltenReferenz._TimeOnly_Seconds = False + Me.txtErhaltenReferenz._value = "" + Me.txtErhaltenReferenz._Waehrung = False + Me.txtErhaltenReferenz._WaehrungZeichen = True + Me.txtErhaltenReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtErhaltenReferenz.ForeColor = System.Drawing.Color.Black + Me.txtErhaltenReferenz.Location = New System.Drawing.Point(156, 64) + Me.txtErhaltenReferenz.MaxLineLength = -1 + Me.txtErhaltenReferenz.MaxLines_Warning = "" + Me.txtErhaltenReferenz.MaxLines_Warning_Label = Nothing + Me.txtErhaltenReferenz.Name = "txtErhaltenReferenz" + Me.txtErhaltenReferenz.Size = New System.Drawing.Size(288, 26) + Me.txtErhaltenReferenz.TabIndex = 3 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Underline) + Me.Label6.Location = New System.Drawing.Point(9, 13) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(149, 20) + Me.Label6.TabIndex = 18 + Me.Label6.Text = "Dokument erhalten:" + ' + 'cbxKurierMotorrad + ' + Me.cbxKurierMotorrad.AutoSize = True + Me.cbxKurierMotorrad.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cbxKurierMotorrad.Location = New System.Drawing.Point(156, 91) + Me.cbxKurierMotorrad.Name = "cbxKurierMotorrad" + Me.cbxKurierMotorrad.Size = New System.Drawing.Size(127, 21) + Me.cbxKurierMotorrad.TabIndex = 4 + Me.cbxKurierMotorrad.Text = "Motorrad-Kurier" + Me.cbxKurierMotorrad.UseVisualStyleBackColor = True + ' + 'txtErhaltenDatum + ' + Me.txtErhaltenDatum._DateTimeOnly = False + Me.txtErhaltenDatum._numbersOnly = False + Me.txtErhaltenDatum._numbersOnlyKommastellen = "" + Me.txtErhaltenDatum._numbersOnlyTrennzeichen = True + Me.txtErhaltenDatum._Prozent = False + Me.txtErhaltenDatum._ShortDateNew = True + Me.txtErhaltenDatum._ShortDateOnly = False + Me.txtErhaltenDatum._TimeOnly = False + Me.txtErhaltenDatum._TimeOnly_Seconds = False + Me.txtErhaltenDatum._value = "" + Me.txtErhaltenDatum._Waehrung = False + Me.txtErhaltenDatum._WaehrungZeichen = True + Me.txtErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtErhaltenDatum.ForeColor = System.Drawing.Color.Black + Me.txtErhaltenDatum.Location = New System.Drawing.Point(156, 39) + Me.txtErhaltenDatum.MaxLength = 10 + Me.txtErhaltenDatum.MaxLineLength = -1 + Me.txtErhaltenDatum.MaxLines_Warning = "" + Me.txtErhaltenDatum.MaxLines_Warning_Label = Nothing + Me.txtErhaltenDatum.Name = "txtErhaltenDatum" + Me.txtErhaltenDatum.Size = New System.Drawing.Size(145, 26) + Me.txtErhaltenDatum.TabIndex = 1 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label8.Location = New System.Drawing.Point(9, 92) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(34, 20) + Me.Label8.TabIndex = 22 + Me.Label8.Text = "Art:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label7.Location = New System.Drawing.Point(9, 42) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(116, 20) + Me.Label7.TabIndex = 19 + Me.Label7.Text = "Datum/Uhrzeit:" + ' + 'txtErhaltenUhrzeit + ' + Me.txtErhaltenUhrzeit._DateTimeOnly = False + Me.txtErhaltenUhrzeit._numbersOnly = False + Me.txtErhaltenUhrzeit._numbersOnlyKommastellen = "" + Me.txtErhaltenUhrzeit._numbersOnlyTrennzeichen = True + Me.txtErhaltenUhrzeit._Prozent = False + Me.txtErhaltenUhrzeit._ShortDateNew = False + Me.txtErhaltenUhrzeit._ShortDateOnly = False + Me.txtErhaltenUhrzeit._TimeOnly = True + Me.txtErhaltenUhrzeit._TimeOnly_Seconds = False + Me.txtErhaltenUhrzeit._value = "" + Me.txtErhaltenUhrzeit._Waehrung = False + Me.txtErhaltenUhrzeit._WaehrungZeichen = True + Me.txtErhaltenUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtErhaltenUhrzeit.ForeColor = System.Drawing.Color.Black + Me.txtErhaltenUhrzeit.Location = New System.Drawing.Point(300, 39) + Me.txtErhaltenUhrzeit.MaxLength = 8 + Me.txtErhaltenUhrzeit.MaxLineLength = -1 + Me.txtErhaltenUhrzeit.MaxLines_Warning = "" + Me.txtErhaltenUhrzeit.MaxLines_Warning_Label = Nothing + Me.txtErhaltenUhrzeit.Name = "txtErhaltenUhrzeit" + Me.txtErhaltenUhrzeit.Size = New System.Drawing.Size(144, 26) + Me.txtErhaltenUhrzeit.TabIndex = 2 + ' + 'Panel4 + ' + Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel4.Controls.Add(Me.Button1) + Me.Panel4.Controls.Add(Me.btnSave) + Me.Panel4.Location = New System.Drawing.Point(461, 470) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(197, 118) + Me.Panel4.TabIndex = 99 + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button1.Image = Global.SDL.My.Resources.Resources.del_small + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(12, 83) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(175, 30) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "Abbrechen " + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = False + ' + 'btnSave + ' + Me.btnSave.BackColor = System.Drawing.Color.White + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.btnSave.Image = Global.SDL.My.Resources.Resources.save + Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSave.Location = New System.Drawing.Point(12, 7) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(175, 72) + Me.btnSave.TabIndex = 2 + Me.btnSave.Text = "Speichern " + Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSave.UseVisualStyleBackColor = False + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image) + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Location = New System.Drawing.Point(419, 150) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(26, 26) + Me.FlatButton4.TabIndex = 98 + Me.FlatButton4.TabStop = False + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image) + Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Location = New System.Drawing.Point(419, 175) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(26, 26) + Me.FlatButton1.TabIndex = 99 + Me.FlatButton1.TabStop = False + Me.FlatButton1.UseVisualStyleBackColor = True + ' + 'txtInfo + ' + Me.txtInfo.Location = New System.Drawing.Point(157, 366) + Me.txtInfo.Name = "txtInfo" + Me.txtInfo.Size = New System.Drawing.Size(491, 84) + Me.txtInfo.TabIndex = 9 + Me.txtInfo.Text = "" + ' + 'lblErr_Ausstellungsdatum + ' + Me.lblErr_Ausstellungsdatum.AutoSize = True + Me.lblErr_Ausstellungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_Ausstellungsdatum.ForeColor = System.Drawing.Color.Red + Me.lblErr_Ausstellungsdatum.Location = New System.Drawing.Point(389, 126) + Me.lblErr_Ausstellungsdatum.Name = "lblErr_Ausstellungsdatum" + Me.lblErr_Ausstellungsdatum.Size = New System.Drawing.Size(56, 13) + Me.lblErr_Ausstellungsdatum.TabIndex = 106 + Me.lblErr_Ausstellungsdatum.Text = "Pflichtfeld!" + Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_Ausstellungsdatum.Visible = False + ' + 'frmATR + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(658, 588) + Me.Controls.Add(Me.Panel1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmATR" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "ATR/EUR1" + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.Panel4.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Panel1 As Panel + Friend WithEvents PictureBox1 As PictureBox + Friend WithEvents Label1 As Label + Friend WithEvents txtDocNumber As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnSave As Button + Friend WithEvents Panel2 As Panel + Friend WithEvents btnScan As Button + Friend WithEvents Label2 As Label + Friend WithEvents txtDocDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnUpload As Button + Friend WithEvents Label8 As Label + Friend WithEvents txtErhaltenUhrzeit As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents Label6 As Label + Friend WithEvents txtErhaltenDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As Label + Friend WithEvents txtFiliale As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Panel3 As Panel + Friend WithEvents cbxKurierPaketdienst As CheckBox + Friend WithEvents cbxKurierMotorrad As CheckBox + Friend WithEvents Label9 As Label + Friend WithEvents txtErhaltenReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Panel4 As Panel + Friend WithEvents Label10 As Label + Friend WithEvents lblLKWId As Label + Friend WithEvents sbAvisoSuche As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label13 As Label + Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents txtEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents Button1 As Button + Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents txtLocation As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label12 As Label + Friend WithEvents Label11 As Label + Friend WithEvents txtInfo As RichTextBox + Friend WithEvents Button2 As Button + Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label14 As Label + Friend WithEvents Button5 As Button + Friend WithEvents Button4 As Button + Friend WithEvents Button3 As Button + Friend WithEvents lblErr_Aufbewarungsort As Label + Friend WithEvents lblErr_DocNr As Label + Friend WithEvents lblErr_Ausstellungsdatum As Label + Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents lblErr_ErhaltenDatum As Label +End Class diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx new file mode 100644 index 00000000..001510a1 --- /dev/null +++ b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx @@ -0,0 +1,1012 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z + + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z + + + + + 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///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////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/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb new file mode 100644 index 00000000..6103fddd --- /dev/null +++ b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb @@ -0,0 +1,486 @@ +Imports DocumentFormat.OpenXml.Drawing.Charts +Imports System.IO +Imports System.Windows.Controls.Primitives +Imports VERAG_PROG_ALLGEMEIN + + + + + +'DATENSERVER!!!!!!!!!!!!!!!!!! + +Public Class frmBerufung + + Dim ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR = Nothing + Dim loadedDSID As Integer = -1 + Dim DSID As Integer = -1 + + Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Sub New(atr_id) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(atr_id) + loadedDSID = ATR.atr_dsId + End Sub + + Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint + + End Sub + + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + 'If ATR IsNot Nothing Then + ' If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löchen?", vbYesNoCancel) Then + ' If ATR.delete Then + ' Me.Close() + ' End If + ' End If + 'End If + Me.Close() + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + + If doValidation() Then + If ATR Is Nothing Then + ATR = New cOrigianlATR() + ATR.atr_erfassungsdatum = Now + ATR.atr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + ATR.atr_mitId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + + End If + + getValues() + + 'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben: + + + If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then + 'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr) + If SND IsNot Nothing Then + ATR.atr_SendungsId = SND.tblSnd_SendungID + ATR.atr_AvisoId = SND.tblSnd_AvisoID + End If + End If + + If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And ((loadedDSID <> DSID Or loadedDSID <= 0) Or (loadedDSID > 0 And ATR.atr_anhID <= 0)) Then + If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then + If ATR.atr_dsId < 0 Then + MsgBox("Kein PDF-Anhang!") + Else + Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID) + ANH.anh_SendungsId = ATR.atr_SendungsId + ANH.anh_AvisoId = ATR.atr_AvisoId + ANH.anh_docId = DSID + ANH.anh_Name = "ATR_ARCHIV" + ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID)) + ANH.anh_Art = "ATR" + ANH.SAVE() 'Eintrag wird überschreiben + ATR.atr_anhID = ANH.anh_id + insertVermerkATR(ATR) + + End If + End If + End If + + If ATR.SAVE Then + Me.Close() + Exit Sub + End If + + End If + Me.DialogResult = DialogResult.None + End Sub + + Shared Sub insertVermerkATR(ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR) + + Dim VermerkeCodeID = 110 + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.DeleteSNDVermerkCode(ATR.atr_SendungsId, VermerkeCodeID) 'Alte löschen! + Dim vermerkId = VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(ATR.atr_SendungsId, ATR.atr_AvisoId, "ATR-Archiv", VermerkeCodeID) + If vermerkId > 0 Then VERAG_PROG_ALLGEMEIN.cVermerkeDAL.toggleHervorheben(vermerkId) 'Hervorheben! + + End Sub + + Function doValidation() As Boolean + lblErr_Ausstellungsdatum.Visible = False + lblErr_DocNr.Visible = False + lblErr_Aufbewarungsort.Visible = False + lblErr_ErhaltenDatum.Visible = False + + If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False + If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False + If txtErhaltenDatum._value = "" Then lblErr_ErhaltenDatum.Visible = True : Return False + If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False + + Return True + End Function + + + + + Sub loadValues() + + If ATR.atr_empfaengerkdnr > -1 Then + txtEmpfaenger.KdNr = ATR.atr_empfaengerkdnr + Else + txtEmpfaenger.KdNr_value = -1 + txtEmpfaenger.Text = ATR.atr_empfaenger + End If + + If ATR.atr_absenderkdnr > -1 Then + txtAbsender.KdNr = ATR.atr_absenderkdnr + Else + txtAbsender.KdNr_value = -1 + txtAbsender.Text = ATR.atr_absender + End If + + txtLocation.Text = If(ATR.atr_location, "") + txtInfo.Text = If(ATR.atr_info, "") + + DSID = ATR.atr_dsId + togglePDFPic() + txtDocNumber.Text = If(ATR.atr_documentNr, "") + txtDocDatum._value = If(ATR.atr_austellungsdatum, "") + txtKennzeichen.Text = If(ATR.atr_LKW, "") + txtFiliale._value = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "") + txtAbfNr._value = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "") + + sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId) + + If ATR.atr_erhalenDatum IsNot Nothing Then + txtErhaltenDatum._value = CDate(ATR.atr_erhalenDatum).ToShortDateString + txtErhaltenUhrzeit._value = CDate(ATR.atr_erhalenDatum).ToShortTimeString + End If + + txtErhaltenReferenz.Text = If(ATR.atr_DHL_ReferenzNr, "") + Select Case If(ATR.atr_erhalten_Art, "") + Case "PAKETDIENST" : cbxKurierPaketdienst.Checked = True + Case "MOTORRAD" : cbxKurierMotorrad.Checked = True + End Select + End Sub + Sub getValues() + + ATR.atr_documentNr = txtDocNumber.Text + ATR.atr_austellungsdatum = txtDocDatum._value + 'ATR.atr_erfassungsdatum = Now + ATR.atr_absender = If(txtAbsender.KdNr > 0, txtAbsender.KdName, txtAbsender.Text) + ATR.atr_absenderkdnr = txtAbsender.KdNr + ATR.atr_empfaenger = If(txtEmpfaenger.KdNr > 0, txtEmpfaenger.KdName, txtEmpfaenger.Text) + ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr + ATR.atr_location = txtLocation.Text + ATR.atr_info = txtInfo.Text + ATR.atr_dsId = DSID + If txtFiliale._value <> "" Then ATR.atr_FilialenNr = txtFiliale._value + If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value + ATR.atr_LKW = txtKennzeichen.Text + + ATR.atr_SendungsId = If(sbAvisoSuche._value <> "", sbAvisoSuche._value, -1) + If sbAvisoSuche._value <> "" Then + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1) + End If + + + + If txtErhaltenDatum._value <> "" Then + If txtErhaltenUhrzeit._value <> "" Then + ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value & " " & txtErhaltenUhrzeit._value) + Else + ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value) + End If + End If + ATR.atr_DHL_ReferenzNr = txtErhaltenReferenz.Text + + If cbxKurierPaketdienst.Checked Then ATR.atr_erhalten_Art = "PAKETDIENST" + If cbxKurierMotorrad.Checked Then ATR.atr_erhalten_Art = "MOTORRAD" + + + End Sub + Private Sub frmATR_Load(sender As Object, e As EventArgs) Handles Me.Load + txtAbsender.initKdBox(Me) + + txtEmpfaenger.initKdBox(Me) + + 'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + ' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300) + sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /*AND (Datum >= '" & Now.AddDays(-40).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300) + + + If ATR IsNot Nothing Then + loadValues() + Else + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + txtLocation.Text = "VERIMEX" + End If + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "VRR" Then + txtLocation.Text = "VERRECHNUNG" + End If + + End If + + + AddHandler txtAbsender.PropertyChanged, Sub() + FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) + ' ATR.atr_absender = txtAbsender.Text + ' ATR.atr_absenderKdNr = txtAbsender.KdNr + + End Sub + + + AddHandler txtEmpfaenger.PropertyChanged, Sub() + FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) + 'ATR.atr_empfaenger = txtEmpfaenger.Text + 'ATR.atr_empfaengerKdNr = txtEmpfaenger.KdNr + + End Sub + + + togglePDFPic() + End Sub + + Sub togglePDFPic() + If DSID > 0 Then + PictureBox1.BackgroundImage = My.Resources.pdf + Else + PictureBox1.BackgroundImage = My.Resources.pdf_gray + End If + End Sub + Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click + If txtAbsender.KdNr > 0 Then + Me.Cursor = Cursors.WaitCursor + + Dim zoll As New SDL.frmKundenUebersichtZOLL(txtAbsender.KdNr) + If zoll IsNot Nothing Then zoll.Show() + + Me.Cursor = Cursors.Default + End If + End Sub + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + If txtEmpfaenger.KdNr > 0 Then + Me.Cursor = Cursors.WaitCursor + + Dim zoll As New SDL.frmKundenUebersichtZOLL(txtEmpfaenger.KdNr) + If zoll IsNot Nothing Then zoll.Show() + + Me.Cursor = Cursors.Default + End If + End Sub + + Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED + txtFiliale.Text = "" + txtAbfNr.Text = "" + If sbAvisoSuche._value <> "" Then + + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value) + If SND IsNot Nothing Then + Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID) + txtFiliale._value = SND.FilialenNr + txtAbfNr._value = SND.AbfertigungsNr + lblLKWId.Text = SND.tblSnd_AvisoID + If AVISO IsNot Nothing Then + txtKennzeichen.Text = AVISO.LKW_Nr + End If + ' lblKennzeichen.Visible = True + lblLKWId.Visible = True + End If + End If + End Sub + + Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click + quickScan() + togglePDFPic() + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + If DSID > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID) + If path <> "" Then Process.Start(path) + 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH(DSID) + + End If + End Sub + + Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click + addData_AnhangFD() + togglePDFPic() + End Sub + + Public Sub addData_AnhangFD() + Dim fd As New OpenFileDialog + fd.Multiselect = False + + If fd.ShowDialog = vbOK Then + ' For Each F_listItem In fd.FileNames + + Dim fi As New FileInfo(fd.FileName) + Dim filename = fi.Name + If filename = "" Then + MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & fd.FileName) + Else + + ' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge") + ' MsgBox(TMP_Path) + ' File.Copy(F_listItem, TMP_Path) + Dim anhId = -1 + Dim destPath = "" + + Dim Typ = "" + If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then + If saveToDS(filename, fd.FileName, "ATR", Typ, DSID, anhId, destPath) Then + + End If + + End If + End If + 'Next + ' If flpnlAviso.Controls.Count > 0 Then DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me() + End If + End Sub + + Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean + Select Case extension.ToString.Replace(".", "").ToUpper + Case "PDF" : Typ = "PDF" + Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" + Case "DOC", "DOCX" : Typ = "WORD" + Case "TXT" : Typ = "TEXT" + Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" + Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False + Case Else : Typ = "SONSTIGES" + End Select + Return True + End Function + + Public Shared Function saveToDS(ByRef fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean + fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName) + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ORIGINAL_ATR_ARCHIV", Now.Year, Now.ToString("ddMMyy"), "", Now.ToString("ddMMyyHHmmss") & fileName, -1, False) + If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + + da_id = DS.da_id + destPath = DS.GET_TOP1_PATH + Dim fi As New FileInfo(sourcePath) + Return True + End Function + + Public Function quickScan(Optional SendungsId = Nothing) As Boolean + Try + 'If KdNr < 0 Then Exit Sub + Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan") + frmScan.DefaultFileName = "ScanATR" & Now.ToString("ddMMyyyy_HHmmss") ' Me._TEXT_PDF + + If frmScan.ShowDialog() = DialogResult.OK Then + If frmScan.ReturnValue IsNot Nothing Then + Dim Filename = frmScan.fileName + Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge") + File.WriteAllBytes(TMP_Path, frmScan.ReturnValue) + + Dim anhId = -1 + Dim destPath = "" + If saveToDS(Filename, TMP_Path, "ATR", "PDF", DSID, anhId, destPath, SendungsId) Then + Return True + End If + 'addUsrcnlToPnl(TMP_Path) + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan") + End Try + Return False + End Function + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Dim data As IDataObject = Clipboard.GetDataObject + If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then + For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop) + ' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s)) + ' File.Copy(s, newFile) + ' MsgBox(s) + If System.IO.File.Exists(s) Then + + Dim fi As New FileInfo(s) + Dim filename = fi.Name + If filename = "" Then + MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s) + Else + + Dim anhId = -1 + Dim destPath = "" + + Dim Typ = "" + If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then + If saveToDS(filename, s, "ATR", Typ, DSID, anhId, destPath) Then + MsgBox("Dokument wurde hochgeladen.") + End If + End If + End If + End If + Next + + End If + togglePDFPic() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + txtLocation.Text = "VERIMEX" + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + txtLocation.Text = "VERRECHNUNG" + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + txtLocation.Text = "FRONT-OFFICE" + End Sub + + Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop, PictureBox1.DragDrop + + Try + Dim added = False + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + + If files.Count > 1 Then + MsgBox("Nur eine Datei möglich!") + ElseIf files.Count > 0 Then + If files(0) <> "" Then + Dim fio As New System.IO.FileInfo(files(0)) + If saveToDS(fio.Name, files(0), "ATR", "", DSID) Then + MsgBox("Dokument wurde hochgeladen.") + End If + End If + End If + + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e) + If FilePath <> "" Then + Dim fio As New System.IO.FileInfo(FilePath) + If saveToDS(fio.Name, FilePath, "ATR", "", DSID) Then + MsgBox("Dokument wurde hochgeladen.") + End If + End If + End If + + + + togglePDFPic() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click + Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv" + Process.Start(webAddress) + End Sub + +End Class \ No newline at end of file diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb new file mode 100644 index 00000000..023c50d4 --- /dev/null +++ b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb @@ -0,0 +1,971 @@ + +Partial Class frmBerufungenSearch + 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() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBerufungenSearch)) + Me.pnl = New System.Windows.Forms.Panel() + Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = 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() + Me.btnSuche = New System.Windows.Forms.Button() + Me.Label23 = New System.Windows.Forms.Label() + Me.btnJahr = New System.Windows.Forms.Button() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnBisJahr = New System.Windows.Forms.Button() + Me.btnVonJahr = New System.Windows.Forms.Button() + Me.btnMonat = New System.Windows.Forms.Button() + Me.btnBisMonat = New System.Windows.Forms.Button() + Me.btnVonMonat = New System.Windows.Forms.Button() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label13 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Button2 = New System.Windows.Forms.Button() + Me.pnloptions = New System.Windows.Forms.Panel() + Me.btnSendungKoppeln = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.btnExcel = New System.Windows.Forms.Button() + Me.FlatButton7 = New System.Windows.Forms.Button() + Me.lblErgebnis = New System.Windows.Forms.Label() + Me.Label37 = New System.Windows.Forms.Label() + Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.pnl.SuspendLayout() + Me.pnlTop.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnloptions.SuspendLayout() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.cboDatum) + Me.pnl.Controls.Add(Me.txtSuche) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.txtSB) + Me.pnl.Controls.Add(Me.txtDocumetNummer) + Me.pnl.Controls.Add(Me.Label8) + Me.pnl.Controls.Add(Me.txtAbsender) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.txtReferenz) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.txtFEmpfänger) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.txtLKWKennzeichen) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.txtAbfertDat) + Me.pnl.Controls.Add(Me.txtAbfertDatBis) + Me.pnl.Controls.Add(Me.cboFiliale) + Me.pnl.Controls.Add(Me.txtAbfertigungsnummer) + Me.pnl.Controls.Add(Me.Button7) + Me.pnl.Controls.Add(Me.Button6) + Me.pnl.Controls.Add(Me.Button5) + Me.pnl.Controls.Add(Me.btnSuche) + Me.pnl.Controls.Add(Me.Label23) + Me.pnl.Controls.Add(Me.btnJahr) + Me.pnl.Controls.Add(Me.pnlTop) + Me.pnl.Controls.Add(Me.btnBisJahr) + Me.pnl.Controls.Add(Me.btnVonJahr) + Me.pnl.Controls.Add(Me.btnMonat) + Me.pnl.Controls.Add(Me.btnBisMonat) + Me.pnl.Controls.Add(Me.btnVonMonat) + Me.pnl.Controls.Add(Me.DateTimePicker2) + Me.pnl.Controls.Add(Me.Label13) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.DateTimePicker1) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(1419, 171) + Me.pnl.TabIndex = 0 + ' + 'cboDatum + ' + Me.cboDatum._allowedValuesFreiText = Nothing + Me.cboDatum._allowFreiText = False + Me.cboDatum._value = "" + Me.cboDatum.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDatum.DropDownWidth = 250 + Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup + Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDatum.FormattingEnabled = True + Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"}) + Me.cboDatum.Location = New System.Drawing.Point(15, 52) + Me.cboDatum.Name = "cboDatum" + Me.cboDatum.Size = New System.Drawing.Size(141, 22) + Me.cboDatum.TabIndex = 78 + ' + 'txtSuche + ' + Me.txtSuche._DateTimeOnly = False + Me.txtSuche._numbersOnly = False + Me.txtSuche._numbersOnlyKommastellen = "" + Me.txtSuche._numbersOnlyTrennzeichen = False + Me.txtSuche._Prozent = False + Me.txtSuche._ShortDateNew = False + Me.txtSuche._ShortDateOnly = False + Me.txtSuche._TimeOnly = False + Me.txtSuche._TimeOnly_Seconds = False + Me.txtSuche._value = "" + Me.txtSuche._Waehrung = False + Me.txtSuche._WaehrungZeichen = False + Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSuche.ForeColor = System.Drawing.Color.Black + Me.txtSuche.Location = New System.Drawing.Point(338, 75) + Me.txtSuche.MaxLineLength = -1 + Me.txtSuche.MaxLines_Warning = "" + Me.txtSuche.MaxLines_Warning_Label = Nothing + Me.txtSuche.Name = "txtSuche" + Me.txtSuche.Size = New System.Drawing.Size(258, 20) + Me.txtSuche.TabIndex = 77 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(337, 59) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(47, 13) + Me.Label9.TabIndex = 76 + Me.Label9.Text = "Suche:" + ' + 'txtSB + ' + Me.txtSB._DateTimeOnly = False + Me.txtSB._numbersOnly = False + Me.txtSB._numbersOnlyKommastellen = "" + Me.txtSB._numbersOnlyTrennzeichen = False + Me.txtSB._Prozent = False + Me.txtSB._ShortDateNew = False + Me.txtSB._ShortDateOnly = False + Me.txtSB._TimeOnly = False + Me.txtSB._TimeOnly_Seconds = False + Me.txtSB._value = "" + Me.txtSB._Waehrung = False + Me.txtSB._WaehrungZeichen = False + Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSB.ForeColor = System.Drawing.Color.Black + Me.txtSB.Location = New System.Drawing.Point(920, 131) + Me.txtSB.MaxLineLength = -1 + Me.txtSB.MaxLines_Warning = "" + Me.txtSB.MaxLines_Warning_Label = Nothing + Me.txtSB.Multiline = True + Me.txtSB.Name = "txtSB" + Me.txtSB.Size = New System.Drawing.Size(240, 22) + Me.txtSB.TabIndex = 75 + ' + 'txtDocumetNummer + ' + Me.txtDocumetNummer._DateTimeOnly = False + Me.txtDocumetNummer._numbersOnly = False + Me.txtDocumetNummer._numbersOnlyKommastellen = "" + Me.txtDocumetNummer._numbersOnlyTrennzeichen = False + Me.txtDocumetNummer._Prozent = False + Me.txtDocumetNummer._ShortDateNew = False + Me.txtDocumetNummer._ShortDateOnly = False + Me.txtDocumetNummer._TimeOnly = False + Me.txtDocumetNummer._TimeOnly_Seconds = False + Me.txtDocumetNummer._value = "" + Me.txtDocumetNummer._Waehrung = False + Me.txtDocumetNummer._WaehrungZeichen = False + Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black + Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75) + Me.txtDocumetNummer.MaxLineLength = -1 + Me.txtDocumetNummer.MaxLines_Warning = "" + Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing + Me.txtDocumetNummer.Name = "txtDocumetNummer" + Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20) + Me.txtDocumetNummer.TabIndex = 74 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(609, 59) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(113, 13) + Me.Label8.TabIndex = 73 + Me.Label8.Text = "Dokument-Nummer" + ' + 'txtAbsender + ' + Me.txtAbsender._DateTimeOnly = False + Me.txtAbsender._numbersOnly = False + Me.txtAbsender._numbersOnlyKommastellen = "" + Me.txtAbsender._numbersOnlyTrennzeichen = True + Me.txtAbsender._Prozent = False + Me.txtAbsender._ShortDateNew = False + Me.txtAbsender._ShortDateOnly = False + Me.txtAbsender._TimeOnly = False + Me.txtAbsender._TimeOnly_Seconds = False + Me.txtAbsender._value = Nothing + Me.txtAbsender._Waehrung = False + Me.txtAbsender._WaehrungZeichen = True + Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbsender.ForeColor = System.Drawing.Color.Black + Me.txtAbsender.Location = New System.Drawing.Point(666, 133) + Me.txtAbsender.MaxLineLength = -1 + Me.txtAbsender.MaxLines_Warning = "" + Me.txtAbsender.MaxLines_Warning_Label = Nothing + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Size = New System.Drawing.Size(228, 20) + Me.txtAbsender.TabIndex = 72 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(607, 136) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(52, 13) + Me.Label7.TabIndex = 71 + Me.Label7.Text = "Absender" + ' + 'txtReferenz + ' + Me.txtReferenz._DateTimeOnly = False + Me.txtReferenz._numbersOnly = False + Me.txtReferenz._numbersOnlyKommastellen = "" + Me.txtReferenz._numbersOnlyTrennzeichen = True + Me.txtReferenz._Prozent = False + Me.txtReferenz._ShortDateNew = False + Me.txtReferenz._ShortDateOnly = False + Me.txtReferenz._TimeOnly = False + Me.txtReferenz._TimeOnly_Seconds = False + Me.txtReferenz._value = Nothing + Me.txtReferenz._Waehrung = False + Me.txtReferenz._WaehrungZeichen = True + Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtReferenz.ForeColor = System.Drawing.Color.Black + Me.txtReferenz.Location = New System.Drawing.Point(394, 133) + Me.txtReferenz.MaxLineLength = -1 + Me.txtReferenz.MaxLines_Warning = "" + Me.txtReferenz.MaxLines_Warning_Label = Nothing + Me.txtReferenz.Name = "txtReferenz" + Me.txtReferenz.Size = New System.Drawing.Size(202, 20) + Me.txtReferenz.TabIndex = 70 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(335, 136) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(53, 13) + Me.Label5.TabIndex = 69 + Me.Label5.Text = "Referenz:" + ' + 'txtFEmpfänger + ' + Me.txtFEmpfänger._DateTimeOnly = False + Me.txtFEmpfänger._numbersOnly = False + Me.txtFEmpfänger._numbersOnlyKommastellen = "" + Me.txtFEmpfänger._numbersOnlyTrennzeichen = True + Me.txtFEmpfänger._Prozent = False + Me.txtFEmpfänger._ShortDateNew = False + Me.txtFEmpfänger._ShortDateOnly = False + Me.txtFEmpfänger._TimeOnly = False + Me.txtFEmpfänger._TimeOnly_Seconds = False + Me.txtFEmpfänger._value = Nothing + Me.txtFEmpfänger._Waehrung = False + Me.txtFEmpfänger._WaehrungZeichen = True + Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black + Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109) + Me.txtFEmpfänger.MaxLineLength = -1 + Me.txtFEmpfänger.MaxLines_Warning = "" + Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing + Me.txtFEmpfänger.Name = "txtFEmpfänger" + Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20) + Me.txtFEmpfänger.TabIndex = 68 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(607, 113) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(61, 13) + Me.Label6.TabIndex = 67 + Me.Label6.Text = "Empfänger:" + ' + 'txtLKWKennzeichen + ' + Me.txtLKWKennzeichen._DateTimeOnly = False + Me.txtLKWKennzeichen._numbersOnly = False + Me.txtLKWKennzeichen._numbersOnlyKommastellen = "" + Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True + Me.txtLKWKennzeichen._Prozent = False + Me.txtLKWKennzeichen._ShortDateNew = False + Me.txtLKWKennzeichen._ShortDateOnly = False + Me.txtLKWKennzeichen._TimeOnly = False + Me.txtLKWKennzeichen._TimeOnly_Seconds = False + Me.txtLKWKennzeichen._value = Nothing + Me.txtLKWKennzeichen._Waehrung = False + Me.txtLKWKennzeichen._WaehrungZeichen = True + Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black + Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110) + Me.txtLKWKennzeichen.MaxLineLength = -1 + Me.txtLKWKennzeichen.MaxLines_Warning = "" + Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing + Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen" + Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20) + Me.txtLKWKennzeichen.TabIndex = 66 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(335, 113) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(34, 13) + Me.Label3.TabIndex = 65 + Me.Label3.Text = "LKW:" + ' + '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(41, 77) + 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 = 33 + ' + '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(41, 106) + 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 = 36 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 250 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(920, 75) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 22) + Me.cboFiliale.TabIndex = 53 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._TimeOnly_Seconds = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75) + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Multiline = True + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22) + Me.txtAbfertigungsnummer.TabIndex = 55 + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(281, 51) + Me.Button7.Margin = New System.Windows.Forms.Padding(0) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(34, 23) + Me.Button7.TabIndex = 45 + Me.Button7.Text = ">>" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button6.ForeColor = System.Drawing.Color.Black + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(162, 51) + Me.Button6.Margin = New System.Windows.Forms.Padding(0) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(34, 23) + Me.Button6.TabIndex = 41 + Me.Button6.Text = "<<" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(195, 51) + Me.Button5.Margin = New System.Windows.Forms.Padding(0) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(87, 23) + Me.Button5.TabIndex = 43 + Me.Button5.Text = "Heute" + Me.Button5.UseVisualStyleBackColor = True + ' + 'btnSuche + ' + Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search + Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSuche.Location = New System.Drawing.Point(1230, 72) + Me.btnSuche.Name = "btnSuche" + Me.btnSuche.Size = New System.Drawing.Size(162, 52) + Me.btnSuche.TabIndex = 61 + Me.btnSuche.Text = "Suche starten" + Me.btnSuche.UseVisualStyleBackColor = True + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(12, 109) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(23, 13) + Me.Label23.TabIndex = 38 + Me.Label23.Text = "bis:" + ' + 'btnJahr + ' + Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnJahr.ForeColor = System.Drawing.Color.Black + Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnJahr.Location = New System.Drawing.Point(195, 103) + Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnJahr.Name = "btnJahr" + Me.btnJahr.Size = New System.Drawing.Size(87, 23) + Me.btnJahr.TabIndex = 51 + Me.btnJahr.Text = "2016" + Me.btnJahr.UseVisualStyleBackColor = True + ' + '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.PictureBox6) + 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(1417, 48) + Me.pnlTop.TabIndex = 34 + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox6.Location = New System.Drawing.Point(1374, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(32, 30) + Me.PictureBox6.TabIndex = 135 + Me.PictureBox6.TabStop = False + ' + '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(10, 13) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(134, 26) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Berufungen" + ' + 'btnBisJahr + ' + Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisJahr.ForeColor = System.Drawing.Color.Black + Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.Location = New System.Drawing.Point(281, 103) + Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisJahr.Name = "btnBisJahr" + Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) + Me.btnBisJahr.TabIndex = 52 + Me.btnBisJahr.Text = ">>" + Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.UseVisualStyleBackColor = True + ' + 'btnVonJahr + ' + Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonJahr.ForeColor = System.Drawing.Color.Black + Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.Location = New System.Drawing.Point(162, 103) + Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonJahr.Name = "btnVonJahr" + Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) + Me.btnVonJahr.TabIndex = 50 + Me.btnVonJahr.Text = "<<" + Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.UseVisualStyleBackColor = True + ' + 'btnMonat + ' + Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnMonat.ForeColor = System.Drawing.Color.Black + Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMonat.Location = New System.Drawing.Point(195, 77) + Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnMonat.Name = "btnMonat" + Me.btnMonat.Size = New System.Drawing.Size(87, 23) + Me.btnMonat.TabIndex = 48 + Me.btnMonat.Text = "September" + Me.btnMonat.UseVisualStyleBackColor = True + ' + 'btnBisMonat + ' + Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisMonat.ForeColor = System.Drawing.Color.Black + Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.Location = New System.Drawing.Point(281, 77) + Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisMonat.Name = "btnBisMonat" + Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) + Me.btnBisMonat.TabIndex = 49 + Me.btnBisMonat.Text = ">>" + Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.UseVisualStyleBackColor = True + ' + 'btnVonMonat + ' + Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonMonat.ForeColor = System.Drawing.Color.Black + Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.Location = New System.Drawing.Point(162, 77) + Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonMonat.Name = "btnVonMonat" + Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) + Me.btnVonMonat.TabIndex = 47 + Me.btnVonMonat.Text = "<<" + Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.UseVisualStyleBackColor = True + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(41, 106) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(115, 20) + Me.DateTimePicker2.TabIndex = 37 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(12, 81) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(28, 13) + Me.Label13.TabIndex = 46 + Me.Label13.Text = "von:" + ' + '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(917, 59) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(40, 13) + Me.Label1.TabIndex = 39 + Me.Label1.Text = "Filiale" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(998, 59) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(121, 13) + Me.Label2.TabIndex = 40 + Me.Label2.Text = "Abfertigungsnummer" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(917, 115) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(97, 13) + Me.Label12.TabIndex = 44 + Me.Label12.Text = "Sachbearbeiter:" + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(41, 77) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20) + Me.DateTimePicker1.TabIndex = 35 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.MyDatagridview1) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 171) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1419, 390) + Me.Panel1.TabIndex = 1 + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.AllowUserToAddRows = False + Me.MyDatagridview1.AllowUserToDeleteRows = False + Me.MyDatagridview1.AllowUserToOrderColumns = True + Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.ReadOnly = True + Me.MyDatagridview1.RowHeadersVisible = False + Me.MyDatagridview1.RowHeadersWidth = 51 + Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390) + Me.MyDatagridview1.TabIndex = 0 + ' + '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.SDL.My.Resources.Resources.plus + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(148, 333) + 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, 35) + Me.Button2.TabIndex = 71 + Me.Button2.Text = "Neu" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + 'pnloptions + ' + Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnloptions.Controls.Add(Me.btnSendungKoppeln) + Me.pnloptions.Controls.Add(Me.Button1) + Me.pnloptions.Controls.Add(Me.btnDel) + Me.pnloptions.Controls.Add(Me.btnExcel) + Me.pnloptions.Controls.Add(Me.FlatButton7) + Me.pnloptions.Controls.Add(Me.lblErgebnis) + Me.pnloptions.Controls.Add(Me.Label37) + Me.pnloptions.Controls.Add(Me.txtMaxSrch) + Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnloptions.Location = New System.Drawing.Point(0, 561) + Me.pnloptions.Name = "pnloptions" + Me.pnloptions.Size = New System.Drawing.Size(1419, 59) + Me.pnloptions.TabIndex = 2 + ' + 'btnSendungKoppeln + ' + Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1 + Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6) + Me.btnSendungKoppeln.Name = "btnSendungKoppeln" + Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47) + Me.btnSendungKoppeln.TabIndex = 75 + Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen" + Me.btnSendungKoppeln.UseVisualStyleBackColor = True + Me.btnSendungKoppeln.Visible = False + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button1.Image = Global.SDL.My.Resources.Resources.plus + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(16, 7) + Me.Button1.Name = "Button1" + Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) + Me.Button1.Size = New System.Drawing.Size(109, 47) + Me.Button1.TabIndex = 74 + Me.Button1.Text = "NEU" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small + Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDel.Location = New System.Drawing.Point(131, 7) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(137, 47) + Me.btnDel.TabIndex = 73 + Me.btnDel.Text = "Eintrag löschen" + Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnDel.UseVisualStyleBackColor = True + ' + 'btnExcel + ' + Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnExcel.Location = New System.Drawing.Point(1328, 22) + Me.btnExcel.Name = "btnExcel" + Me.btnExcel.Size = New System.Drawing.Size(41, 34) + Me.btnExcel.TabIndex = 67 + Me.btnExcel.UseVisualStyleBackColor = True + ' + 'FlatButton7 + ' + Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh + Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FlatButton7.ForeColor = System.Drawing.Color.Black + Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton7.Location = New System.Drawing.Point(1375, 22) + Me.FlatButton7.Name = "FlatButton7" + Me.FlatButton7.Size = New System.Drawing.Size(41, 34) + Me.FlatButton7.TabIndex = 68 + Me.FlatButton7.UseVisualStyleBackColor = True + ' + 'lblErgebnis + ' + Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblErgebnis.Location = New System.Drawing.Point(1201, 5) + Me.lblErgebnis.Name = "lblErgebnis" + Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) + Me.lblErgebnis.TabIndex = 66 + Me.lblErgebnis.Text = "Ergebnisse: 0" + Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label37 + ' + Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(1242, 33) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(30, 13) + Me.Label37.TabIndex = 69 + Me.Label37.Text = "Max:" + ' + 'txtMaxSrch + ' + Me.txtMaxSrch._DateTimeOnly = False + Me.txtMaxSrch._numbersOnly = True + Me.txtMaxSrch._numbersOnlyKommastellen = "" + Me.txtMaxSrch._numbersOnlyTrennzeichen = True + Me.txtMaxSrch._Prozent = False + Me.txtMaxSrch._ShortDateNew = False + Me.txtMaxSrch._ShortDateOnly = False + Me.txtMaxSrch._TimeOnly = False + Me.txtMaxSrch._TimeOnly_Seconds = False + Me.txtMaxSrch._value = "" + Me.txtMaxSrch._Waehrung = False + Me.txtMaxSrch._WaehrungZeichen = True + Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black + Me.txtMaxSrch.Location = New System.Drawing.Point(1274, 30) + Me.txtMaxSrch.MaxLineLength = -1 + Me.txtMaxSrch.MaxLines_Warning = "" + Me.txtMaxSrch.MaxLines_Warning_Label = Nothing + Me.txtMaxSrch.Name = "txtMaxSrch" + Me.txtMaxSrch.Size = New System.Drawing.Size(48, 20) + Me.txtMaxSrch.TabIndex = 70 + Me.txtMaxSrch.Text = "1000" + Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'frmBerufungenSearch + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1419, 620) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnl) + Me.Controls.Add(Me.pnloptions) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmBerufungenSearch" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Berufungen" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnloptions.ResumeLayout(False) + Me.pnloptions.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents btnSuche As System.Windows.Forms.Button + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents btnJahr As System.Windows.Forms.Button + Friend WithEvents pnlTop As System.Windows.Forms.Panel + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnBisJahr As System.Windows.Forms.Button + Friend WithEvents btnVonJahr As System.Windows.Forms.Button + Friend WithEvents btnMonat As System.Windows.Forms.Button + Friend WithEvents btnBisMonat As System.Windows.Forms.Button + Friend WithEvents btnVonMonat As System.Windows.Forms.Button + Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents pnloptions As System.Windows.Forms.Panel + Friend WithEvents btnExcel As System.Windows.Forms.Button + Friend WithEvents FlatButton7 As System.Windows.Forms.Button + Friend WithEvents lblErgebnis As System.Windows.Forms.Label + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtLKWKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents txtFEmpfänger As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents btnDel As Button + Friend WithEvents txtReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As Label + Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents Button1 As Button + Friend WithEvents txtDocumetNummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As Label + Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnSendungKoppeln As Button + Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox +End Class diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + 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///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////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/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb new file mode 100644 index 00000000..26f4fdce --- /dev/null +++ b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb @@ -0,0 +1,441 @@ +Imports javax.smartcardio + +Public Class frmBerufungenSearch + + + + Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + Dim srcTAG As Date = CDate(Now.ToShortDateString) + + Dim JAHR As Date = CDate("01.01." & Now.Year) + + Public SendungKoppeln As Boolean = False + Public SendungsId As Integer = -1 + + Private Sub frmVorauskasse_Load(sender As Object, e As EventArgs) Handles Me.Load + + Me.Top = 0 + Me.Height = My.Computer.Screen.WorkingArea.Height + + txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString + txtAbfertDatBis.Text = Now.ToShortDateString + + + cboDatum.Items.Clear() + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat")) + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat")) + cboDatum.changeItem("ADat") + + + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + Dim QSwhere = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" : QSwhere = "" + Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') " + Case "AMBAR" : QSwhere = " AND mit_firma IN ('AMBAR','BEIDE') " + Case Else + QSwhere = " AND mit_firma <> 'IMEX' " + End Select + If SendungKoppeln Then btnSendungKoppeln.Visible = True + + ' cboSachbearbeiterQS.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & QSwhere & " ORDER BY Name ", False, "FMZOLL", True) + + Dim where = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + where = " AND FilialenNr IN (5501) " + Case "ATILLA" + where = " AND FilialenNr IN (4801) " + Case "AMBAR" + where = " AND FilialenNr IN (5701) " + Case Else + where = " AND FilialenNr NOT IN (5501) " + End Select + + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True) + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" + ' 'cboFiliale._allowedValuesFreiText = {"5501"} + ' cboFiliale.changeItem("5501") + ' Case "ATILLA" + ' cboFiliale._allowedValuesFreiText = {"4801"} + ' cboFiliale.changeItem("4801") + ' 'cboFiliale.Enabled = False + ' Case "AMBAR" + ' cboFiliale._allowedValuesFreiText = {"5701"} + ' cboFiliale.changeItem("5701") + ' 'cboFiliale.Enabled = False + 'End Select + + + btnMonat.PerformClick() + btnSuche.PerformClick() + + + End Sub + + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtAbfertDat._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtAbfertDatBis._value = CDate(sender.value).ToShortDateString + End Sub + + Sub initBtns(MonatJahr) + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + Select Case MonatJahr + Case "Monat" + DateTimePicker1.Value = MONAT + DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) + Case "Jahr" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + 'End If + Case "Tag" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = srcTAG + DateTimePicker2.Value = srcTAG + If srcTAG = Now.ToShortDateString Then + Button5.Text = "Heute" + ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then + Button5.Text = "Gestern" + ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then + Button5.Text = "Vorgestern" + Else + Button5.Text = srcTAG.ToString("dd.MM") + End If + + 'End If + Case "" + DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) + DateTimePicker2.Value = Now + End Select + btnSuche.PerformClick() + End Sub + + Dim biningInit = False + + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click + Me.Cursor = Cursors.WaitCursor + + Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + Dim sqlstr As String = "" + + + ' bindPOST = New cEasyBinding("FMZOLL") + sqlstr &= " SELECT " & TopMax & " atr_id,atr_documentNr, atr_austellungsdatum, atr_FilialenNr, atr_AbfertigungsNr, atr_LKW,atr_EmpfaengerKdNr, atr_Empfaenger, atr_AbsenderKdNr,atr_Absender, atr_Sachbearbeiter,atr_DHL_ReferenzNr FROM [tblOriginalATR] WHERE 1=1 " + + With MyDatagridview1 + .SET_SQL(sqlstr & getWhere() & " ORDER BY atr_austellungsdatum desc", "FMZOLL", getList) + .LOAD() + + lblErgebnis.Text = "Ergebnisse: " & .Rows.Count + + ' setDGVOptions() + End With + showDGV() + + Me.Cursor = Cursors.Default + + End Sub + + + Function getWhere() As String + Dim sqlstr = "" + + + If cboDatum._value = "ADat" Then + + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) " + Else + sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) " + End If + End If + ElseIf cboDatum._value = "EDat" Then + + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @DatumBis) " + Else + sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @Datum ) " + End If + End If + End If + + + If txtSuche._value <> "" Then + sqlstr &= " AND ( " + sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_absender LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_empfaenger LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_LKW LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_location LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_info LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' " + sqlstr &= " ) " + End If + + If txtAbfertigungsnummer.Text <> "" Then + ' If txtAbfertigungsnummerBis.Text <> "" Then + 'sqlstr &= " AND ([vk_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) " + 'Else + 'sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr " + 'End If + sqlstr &= " AND atr_AbfertigungsNr LIKE @AbfertigungsNr " + End If + ' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr " + If cboFiliale._value <> "" Then sqlstr &= " AND [atr_FilialenNr] LIKE @FilialenNr " + + If txtSB._value <> "" Then sqlstr &= " AND [atr_mitId] = @PersonalnummerQS " + If txtLKWKennzeichen.Text <> "" Then sqlstr &= " AND [atr_LKW] LIKE @LKW " + If txtFEmpfänger.Text <> "" Then sqlstr &= " AND [atr_empfaenger] LIKE @Empfaenger " + If txtAbsender.Text <> "" Then sqlstr &= " AND [atr_absender] LIKE @Absender " + If txtDocumetNummer.Text <> "" Then sqlstr &= " AND [atr_documentNr] LIKE @DocumentNummer " + + If txtReferenz.Text <> "" Then sqlstr &= " AND [atr_DHL_ReferenzNr] LIKE @Referenz " + + Return sqlstr + End Function + Function getList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", txtAbfertDat.Text & " 00:00:00")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumBis", txtAbfertDatBis.Text & " 23:59:59")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNummer", txtDocumetNummer.Text.Replace("*", "%"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", txtSB._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKWKennzeichen.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", txtAbsender.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfaenger", txtFEmpfänger.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz", txtReferenz.Text.Replace("*", "%"))) + + Return list + + End Function + + Sub showDGV() + + With MyDatagridview1 + + If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub + .RowHeadersVisible = False + ' .ReadOnly = True + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .MultiSelect = False + + + .Columns("atr_id").Visible = False + ' .Columns("post_art").Visible = False + ' .Columns("post_KdAuftrNrAvisierer").Visible = False + ' .Columns("atr_EmpfaengerKdNr").Visible = False + ' .Columns("atr_AbsenderKdNr").Visible = False + + .Columns("atr_FilialenNr").Width = 45 + .Columns("atr_FilialenNr").HeaderText = "Filiale" + .Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("atr_AbfertigungsNr").Width = 80 + .Columns("atr_AbfertigungsNr").HeaderText = "Abf-Nr" + .Columns("atr_AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("atr_documentNr").Width = 120 + .Columns("atr_documentNr").HeaderText = "ATR-Nr" + .Columns("atr_documentNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("atr_austellungsdatum").Width = 100 + .Columns("atr_austellungsdatum").HeaderText = "Datum" + .Columns("atr_austellungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + .Columns("atr_LKW").Width = 120 + .Columns("atr_LKW").HeaderText = "LKW Kennz." + + + + .Columns("atr_EmpfaengerKdNr").HeaderText = "KdNr" + .Columns("atr_EmpfaengerKdNr").Width = 50 + .Columns("atr_Empfaenger").HeaderText = "Empfänger" + .Columns("atr_Empfaenger").Width = 150 + + .Columns("atr_AbsenderKdNr").HeaderText = "KdNr" + .Columns("atr_AbsenderKdNr").Width = 50 + .Columns("atr_Absender").HeaderText = "in Auftrag" + .Columns("atr_Absender").Width = 150 + + .Columns("atr_Sachbearbeiter").MinimumWidth = 100 + .Columns("atr_Sachbearbeiter").HeaderText = "Sachb." + + .Columns("atr_DHL_ReferenzNr").HeaderText = "Referenz Paketdienst" + .Columns("atr_DHL_ReferenzNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + + End With + End Sub + + + Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click + btnSuche.PerformClick() + ' MyDatagridview1.RELOAD() + ' setDGVOptions() + End Sub + + 'Sub setDGVOptions() + ' Try + ' With MyDatagridview1 + ' For Each r As DataGridViewRow In .Rows + ' If r.Cells("vk_storno").Value IsNot DBNull.Value AndAlso r.Cells("vk_storno").Value Then + ' r.DefaultCellStyle.ForeColor = Color.Red + ' ElseIf r.Cells("vk_GeldEingetroffen").Value IsNot DBNull.Value AndAlso r.Cells("vk_GeldEingetroffen").Value Then + ' r.DefaultCellStyle.ForeColor = Color.DarkGreen + ' End If + ' Next + ' End With + ' Catch ex As Exception + ' MsgBox(ex.Message) + ' End Try + 'End Sub + Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click + Me.Cursor = Cursors.WaitCursor + cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False) + Me.Cursor = Cursors.Default + End Sub + + + + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + srcTAG = srcTAG.AddDays(-1) + initBtns("Tag") + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + srcTAG = srcTAG.AddDays(1) + initBtns("Tag") + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + initBtns("Tag") + End Sub + + Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click + initBtns("Monat") + End Sub + + + + Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click + initBtns("Jahr") + End Sub + + Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click + MONAT = MONAT.AddMonths(1) + initBtns("Monat") + End Sub + + Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click + MONAT = MONAT.AddMonths(-1) + initBtns("Monat") + End Sub + + Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click + JAHR = JAHR.AddYears(-1) + initBtns("Jahr") + End Sub ' + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + + If MyDatagridview1.SelectedRows.Count > 0 Then + Dim ATR As New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value) + If vbYes <> MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then Exit Sub + ATR.DELETE() + btnSuche.PerformClick() + + 'MyDatagridview1.RELOAD() + ' setDGVOptions() + End If + + End Sub + + + Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles MyDatagridview1.DoubleClick + If MyDatagridview1.SelectedRows.Count = 0 And MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub + + Dim atr_id = MyDatagridview1.SelectedRows(0).Cells("atr_id").Value + Dim f As New frmATR(atr_id) + f.ShowDialog(Me) + btnSuche.PerformClick() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim f As New frmATR + f.ShowDialog(Me) + btnSuche.PerformClick() + End Sub + + Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged + + End Sub + + Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown + If e.KeyCode = Keys.Return Then + btnSuche.PerformClick() + End If + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSendungKoppeln.Click + If MyDatagridview1.SelectedRows.Count > 0 Then + Dim ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value) + If ATR IsNot Nothing Then + + If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then + If ATR.atr_dsId < 0 Then MsgBox("Kein PDF-Anhang!") : Exit Sub + Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID) + ANH.anh_SendungsId = SendungsId + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + ANH.anh_AvisoId = SND.tblSnd_AvisoID + ANH.anh_docId = ATR.atr_dsId + ANH.anh_Name = "ATR_ARCHIV" + ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ATR.atr_dsId)) + ANH.anh_Art = "ATR" + If ANH.SAVE() Then 'Eintrag wird überschreiben + ATR.atr_anhID = ANH.anh_id + ATR.atr_SendungsId = SendungsId + ATR.atr_AvisoId = SND.tblSnd_AvisoID + ATR.atr_FilialenNr = SND.FilialenNr + ATR.atr_AbfertigungsNr = SND.AbfertigungsNr + If ATR.SAVE() Then + frmATR.insertVermerkATR(ATR) + Me.Close() + End If + End If + End If + End If + End If + + End Sub + + Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click + Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv" + Process.Start(webAddress) + End Sub +End Class + diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 4c38d7a4..fd4a5da4 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1656,11 +1656,11 @@ Public Class usrCntlUSTV - Dim sqlQery = "SELECT dbo.tblUStVAntrag.UStVAn_ID, dbo.tblUStVAntrag.UStVAn_KuNr, dbo.tblUStVAntrag.UStVAn_ReDatVon, - dbo.tblUStVAntrag.UStVAn_ReDatBis, - dbo.tblUStVAntrag.UStVAn_Ausstellungsdatum, - (SELECT LandKz from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = dbo.tblUStVAntrag.UStVAn_LandNr) as AntragsLand, - dbo.tblUStVAntrag.UStVAn_VZDatum, dbo.tblUStVAntrag.UStVAn_VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ, dbo.Adressen.Ordnungsbegriff, dbo.Adressen.LandKz, ISNULL + Dim sqlQery = "SELECT dbo.tblUStVAntrag.UStVAn_KuNr as KDNR, dbo.Adressen.Ordnungsbegriff as Name, dbo.Adressen.LandKz,dbo.tblUStVAntrag.UStVAn_ID as ID, + (SELECT LandKz from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = dbo.tblUStVAntrag.UStVAn_LandNr) as Antrag_LKZ, + dbo.tblUStVAntrag.UStVAn_ReDatVon as ReDatVon, dbo.tblUStVAntrag.UStVAn_ReDatBis as ReDatBis, + dbo.tblUStVAntrag.UStVAn_Ausstellungsdatum as Ausstellungsdatum , dbo.tblUStVAntrag.UStVAn_VZDatum as VZDat, dbo.tblUStVAntrag.UStVAn_VZBetrag as VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ as RZBetragVZ, + ISNULL ((SELECT SUM(UStVEr_USteuerbetragEUR) AS Expr1 FROM dbo.tblUStVErstattung WHERE (UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID)), 0) AS Erstattungsbetrag, CASE WHEN ([UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL @@ -1669,7 +1669,7 @@ Public Class usrCntlUSTV WHERE dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0)) > 0 THEN [UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL ((SELECT SUM(dbo.tblUStVErstattung.UStVEr_USteuerbetragEUR) FROM dbo.tblUStVErstattung - WHERE dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0) ELSE 0 END AS UStVAn_VZBetragAktuell + WHERE dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0) ELSE 0 END AS VZBetragAktuell FROM dbo.tblUStVAntrag INNER JOIN dbo.Adressen ON dbo.tblUStVAntrag.UStVAn_KuNr = dbo.Adressen.AdressenNr WHERE (dbo.tblUStVAntrag.UStVAn_VZBetrag IS NOT NULL)" & sqlKunde & whereStr @@ -1682,13 +1682,6 @@ Public Class usrCntlUSTV MsgBox("keine Daten!") Exit Sub Else - For Each col In dtVorauszahlung.Columns - - Dim colName = col.ColumnName.Replace("UStVAn_", "") - - If Not col.ColumnName.Contains(colName) Then col.ColumnName = col.ColumnName.Replace("UStVAn_", "") - - Next End If diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 3b8dc3df..4c3dece4 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -424,7 +424,7 @@ Public Class usrCntlCBAM Dim SQL_DAKOSY = "" Dim SQL_GP = "" - getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, SQL_GP) '--> Aufbau SQL String + getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, SQL_GP) '--> Aufbau SQL String Dim dt = SQL.loadDgvBySql(SQL_DAKOSY, "AVISO", 600) @@ -673,7 +673,7 @@ Public Class usrCntlCBAM End Sub - Sub getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, ByRef SQL_DAKOSY, ByRef SQL_GP) + Sub getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, ByRef SQL_DAKOSY, ByRef SQL_GP) SQL_GP = "SELECT [Registriernummer_MRN] as 'declaration no' ,max(Ãœberlassungsdatum) as 'declaration date' @@ -782,6 +782,219 @@ Public Class usrCntlCBAM SQL_DAKOSY &= SQLSTR + End Sub + + Sub getDY_Detail_SQL_DHF(EORI, ByRef SQL_DHF, ByRef SQL_GP) + + + 'Conee = Importeur + 'Conor = Exportuer + + SQL_GP = "SELECT CRN as 'declaration no' + ,cast(DecDT as date) as 'declaration date' + ,isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer identification number' + ,isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter identification number' + , zsAnmGdsitem.ComCd as 'commodity code' + ,Orig as 'origin country code' + ,Left(isnull(ProcCd, '00'),2) as 'requested procedure' + ,'' as 'previous procedure' + ,(Net / 1000) as 'net mass' + ,'TONNES' as 'type of measurement unit' + ,'' as 'invoice numbers' + ,'' as 'invoice date' + ,'' as 'member state auth' + ,'' as 'discharge bill waiver' + ,'' as 'authorisation' + ,'' as 'start time' + ,'' as 'end time' + ,'' as 'deadline' + ,'' as 'reporting declarant EORI number' + ,'' as 'type of representation' + ,isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer title' + ,'' as 'importer email' + ,'' as 'importer phone' + ,isnull((SELECT Ctry FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer country code or member state' + ,'' as 'importer subdivision' + ,isnull((SELECT Cty FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer city' + ,isnull((SELECT Strt FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer street' + ,'' as 'importer street additional' + ,'' as 'importer address number' + ,isnull((SELECT Pst FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer post code' + ,'' as 'importer po box' + ,'' as 'importer coordinate longitude (x)' + ,'' as 'importer coordinate latitude (y)' + ,isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter title' + ,isnull((SELECT Ctry FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter country code or member state' + ,isnull((SELECT Strt FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter street' + ,'' as 'exporter street additional'" + + SQL_DHF = "select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis + , Orig Ursprungsland + + , isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender + , isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender + , isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger + , isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger" + + Dim SQLSTR = " from zsAnmRefs + inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID + inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID + inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID + where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ComCd,4) between 7301 and 7311 + OR left(ComCd,4) between 7205 and 7229 + OR left(ComCd,4) between 7603 and 7614 + OR ComCd like '25070080%' + OR ComCd like '283421%' + OR ComCd like '260112%' + OR ComCd like '720211%' + OR ComCd like '720219%' + OR ComCd like '720241%' + OR ComCd like '720249%' + OR ComCd like '720260%' + OR ComCd like '280410%' + ) + and ComCd not like '310560%' + and crn is not null + and zsAnmDHFRefs.ErledigungsTypID like 'F%'" + + If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then + SQLSTR &= " + and DecRep IN(3) + " + Else + SQLSTR &= " + and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "' + " + End If + + SQL_GP &= SQLSTR + SQL_GP &= " order by 'importer identification number'" + + SQL_DHF &= SQLSTR + SQL_DHF &= " order by Absender" + + + End Sub + + + Sub getDY_Detail_SQL_TT(EORI, ByRef SQL_TT, ByRef SQL_GP) + + 'Conee = Importeur + 'Conor = Exportuer + + SQL_GP = "SELECT telanm_CRN as 'declaration no' + ,cast(dec_CreateDate as Date) 'declaration date' + ,isnull(ConeeTra_TIN,'') as 'importer identification number' + ,isnull(ConorTra_TIN,'') as 'exporter identification number' + , Item_ComCd as 'commodity code' + , isnull(Item_orig,'') as 'origin country code' + ,Left(Item_ProcCd,2) as 'requested procedure' + ,'' as 'previous procedure' + ,(isnull(Item_net,0) / 1000) as 'net mass' + ,'TONNES' as 'type of measurement unit' + ,'' as 'invoice numbers' + ,'' as 'invoice date' + ,'' as 'member state auth' + ,'' as 'discharge bill waiver' + ,'' as 'authorisation' + ,'' as 'start time' + ,'' as 'end time' + ,'' as 'deadline' + ,isnull(Declarant_TIN,'') as 'reporting declarant EORI number' + ,isnull(Declarant_Na,'') as 'type of representation' + ,isnull(ConeeTra_Na,'') as 'importer title' + ,'' as 'importer email' + ,'' as 'importer phone' + ,isnull(ConeeTra_Ctry,'') as 'importer country code or member state' + ,'' as 'importer subdivision' + ,isnull(ConeeTra_Cty,'') as 'importer city' + ,isnull(ConeeTra_Strt,'') as 'importer street' + ,'' as 'importer street additional' + ,'' as 'importer address number' + ,isnull(ConeeTra_Pst,'') as 'importer post code' + ,'' as 'importer po box' + ,'' as 'importer coordinate longitude (x)' + ,'' as 'importer coordinate latitude (y)' + ,isnull(ConorTra_Na,'') as 'exporter title' + ,isnull(ConorTra_Ctry,'') as 'exporter country code or member state' + ,isnull(ConorTra_Strt,'') as 'exporter street' + ,'' as 'exporter street additional'" + + SQL_TT = "SELECT + telanm_CRN Registriernummer + ,Pos_ID PositionsNummer + ,dec_CreateDate Anmeldedatum + ,telanm_BezugsNr BezugsNr + ,Declarant_DecRep VertretungsVerhaeltnis + ,Item_ComCd Tarifnummer + ,dec_TotNet Eigenmasse + ,Locs_Disp VersendungsLand + , Locs_Dest Bestimmungsland + ,Item_ItVal Rechnungspreis + ,ValData_InvCurr Rechnungswaehrung + ,ConeeTra_TIN as Empfänger + ,ConeeTra_Na as Empfänger_ + ,ConorTra_TIN as Absender + ,ConorTra_Na as Absender_ " + + Dim SQLSTR = "FROM [VERAG].[dbo].[tblTelotec_Anmeldung] + inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id + + where 1=1 + + and + ( + left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(Item_ComCd,4) between 7301 and 7311 + OR left(Item_ComCd,4) between 7205 and 7229 + OR left(Item_ComCd,4) between 7603 and 7614 + OR Item_ComCd like '25070080%' + OR Item_ComCd like '283421%' + OR Item_ComCd like '260112%' + OR Item_ComCd like '720211%' + OR Item_ComCd like '720219%' + OR Item_ComCd like '720241%' + OR Item_ComCd like '720249%' + OR Item_ComCd like '720260%' + OR Item_ComCd like '280410%' + ) + and Item_ComCd not like '310560%' + + and telnam_aktuellsteNachricht=1 + + and telanm_ART ='EUA' + and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "'" + + + + + + If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then + SQLSTR &= " + and Declarant_DecRep IN(1,3,5,7) + " + Else + SQLSTR &= " + and ConeeTra_TIN='" & EORI & "' /*and Declarant_DecRep NOT IN(1,3,5,7)*/ + " + End If + + + + + + SQL_GP &= SQLSTR + SQL_GP &= " order by ConorTra_TIN,telanm_CRN " + SQL_TT &= SQLSTR + SQL_TT &= " order by Absender,telanm_CRN " + + End Sub 'Private Sub btnCBAM_DS_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click @@ -1105,7 +1318,7 @@ Public Class usrCntlCBAM If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '??? Dim SQL_DAKOSY = "" - getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, "") '--> Aufbau SQL String + getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, "") '--> Aufbau SQL String Dim dt = SQL.loadDgvBySql(SQL_DAKOSY, "AVISO", 600) @@ -1319,6 +1532,12 @@ Public Class usrCntlCBAM End Sub Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click, btnCBAM_DS_DHF_UNISPED.Click + + btnCBAM_DS_DHF_UNISPED_GP.Enabled = False + btnCBAM_DS_DHF_VERAG_GP.Enabled = False + btnCBAM_DS_DHF_UNISPED_GP.Tag = "" + btnCBAM_DS_DHF_VERAG_GP.Tag = "" + Dim EZOLL_SQL = "EZOLL" If sender Is btnCBAM_DS_DHF_VERAG Then btnCBAM_DS_DHF_VERAG_Detail.Enabled = False @@ -1340,56 +1559,17 @@ Public Class usrCntlCBAM If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub Me.Cursor = Cursors.WaitCursor - Dim SQLSTR = " - select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis - , Orig Ursprungsland - - , isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender - , isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender - , isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger - , isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger - from zsAnmRefs - inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID - inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID - inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID - inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID - inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID - where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( - left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) - OR left(ComCd,4) between 7301 and 7311 - OR left(ComCd,4) between 7205 and 7229 - OR left(ComCd,4) between 7603 and 7614 - OR ComCd like '25070080%' - OR ComCd like '283421%' - OR ComCd like '260112%' - OR ComCd like '720211%' - OR ComCd like '720219%' - OR ComCd like '720241%' - OR ComCd like '720249%' - OR ComCd like '720260%' - OR ComCd like '280410%' - ) - and ComCd not like '310560%' - and crn is not null - and zsAnmDHFRefs.ErledigungsTypID like 'F%' - " - If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then - SQLSTR &= " - and DecRep IN(3) - " - Else - SQLSTR &= " - and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "' - " - End If + Dim SQL_DHF = "" + Dim SQL_GP = "" + getDY_Detail_SQL_DHF(EORI, SQL_DHF, SQL_GP) '--> Aufbau SQL String + + Dim dt = SQL.loadDgvBySql(SQL_DHF, EZOLL_SQL, 600) + + Dim dtGP = SQL.loadDgvBySql(SQL_GP, EZOLL_SQL, 600) - SQLSTR &= " order by Absender" - Dim dt = SQL.loadDgvBySql(SQLSTR, EZOLL_SQL, 600) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value) If sender Is btnCBAM_DS_DHF_VERAG Then @@ -1407,6 +1587,52 @@ Public Class usrCntlCBAM End If + If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then + + 'If ReDaten.Rows.Count > 0 Then + ' dtGP.Columns("invoice date").ReadOnly = False + ' dtGP.Columns("invoice numbers").ReadOnly = False + ' dtGP.Columns("invoice date").MaxLength = -1 + ' dtGP.Columns("invoice numbers").MaxLength = -1 + 'End If + + 'For Each r As DataRow In dtGP.Rows + ' Dim MDN_NR As String = r("declaration no") + + ' ' Look for matching row in dt2 + ' Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'") + + + + ' If found.Length > 0 Then + + ' Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum") + ' If rechnugnsdatum <> "" Then rechnugnsdatum.Replace("00:00:00", "") + + ' r("invoice date") = rechnugnsdatum + ' r("invoice numbers") = found(0)("Positionsunterlagennummer") + ' Else + ' r("invoice date") = "-" + ' r("invoice numbers") = "-" + ' End If + + 'Next + If sender Is btnCBAM_DS_DHF_VERAG Then + btnCBAM_DS_DHF_VERAG_GP.Tag = "" + btnCBAM_DS_DHF_VERAG_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "") + btnCBAM_DS_DHF_VERAG_GP.Enabled = True + End If + + If sender Is btnCBAM_DS_DHF_UNISPED Then + btnCBAM_DS_DHF_UNISPED_GP.Tag = "" + btnCBAM_DS_DHF_UNISPED_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "") + btnCBAM_DS_DHF_UNISPED_GP.Enabled = True + End If + + + End If + + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -1544,7 +1770,8 @@ Public Class usrCntlCBAM Private Sub btnCBAM_DS_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC.Click btnCBAM_DS_TELOTEC_Detail.Enabled = False btnCBAM_DS_TELOTEC_Copy.Enabled = False - btnCBAM_DS_TELOTEC_Detail.Tag = "" + btnCBAM_DS_TELOTEC_GP.Enabled = False + Try Dim EORI = txtEori.Text @@ -1554,72 +1781,15 @@ Public Class usrCntlCBAM If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub Me.Cursor = Cursors.WaitCursor - Dim SQLSTR = " - SELECT - telanm_CRN Registriernummer - ,Pos_ID PositionsNummer - ,dec_CreateDate Anmeldedatum - ,telanm_BezugsNr BezugsNr - ,Declarant_DecRep VertretungsVerhaeltnis - ,Item_ComCd Tarifnummer - ,dec_TotNet Eigenmasse - ,Locs_Disp VersendungsLand - , Locs_Dest Bestimmungsland - ,Item_ItVal Rechnungspreis - ,ValData_InvCurr Rechnungswaehrung - ,ConeeTra_TIN as Empfänger - ,ConeeTra_Na as Empfänger_ - ,ConorTra_TIN as Absender - ,ConorTra_Na as Absender_ - - FROM [VERAG].[dbo].[tblTelotec_Anmeldung] - inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id - where 1=1 - - and - ( - left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) - OR left(Item_ComCd,4) between 7301 and 7311 - OR left(Item_ComCd,4) between 7205 and 7229 - OR left(Item_ComCd,4) between 7603 and 7614 - OR Item_ComCd like '25070080%' - OR Item_ComCd like '283421%' - OR Item_ComCd like '260112%' - OR Item_ComCd like '720211%' - OR Item_ComCd like '720219%' - OR Item_ComCd like '720241%' - OR Item_ComCd like '720249%' - OR Item_ComCd like '720260%' - OR Item_ComCd like '280410%' - ) - and Item_ComCd not like '310560%' + Dim SQL_TT = "" + Dim SQL_GP = "" + getDY_Detail_SQL_TT(EORI, SQL_TT, SQL_GP) '--> Aufbau SQL String - and telnam_aktuellsteNachricht=1 + Dim dt = SQL.loadDgvBySql(SQL_TT, "FMZOLL", 600) - and telanm_ART ='EUA' - and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "' - - - - - " + Dim dtGP = SQL.loadDgvBySql(SQL_GP, "FMZOLL", 600) - - If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then - SQLSTR &= " - and Declarant_DecRep IN(1,3,5,7) - " - Else - SQLSTR &= " - and ConeeTra_TIN='" & EORI & "' /*and Declarant_DecRep NOT IN(1,3,5,7)*/ - " - End If - - SQLSTR &= " order by Absender,telanm_CRN " - - - Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value,, False) btnCBAM_DS_TELOTEC_Detail.Tag = path @@ -1630,6 +1800,15 @@ Public Class usrCntlCBAM End If + If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Me.Cursor = Cursors.WaitCursor + btnCBAM_DS_TELOTEC_GP.Tag = "" + btnCBAM_DS_TELOTEC_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "") + btnCBAM_DS_TELOTEC_GP.Enabled = True + Me.Cursor = Cursors.Default + End If + + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index 421a5c83..57ee26a2 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -63,7 +63,7 @@ Public Class frmMessenger 'End Try End Sub - Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick, dgvChats.CellClick + Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellClick '.CellContentClick If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1) intiDGVChats(dgv_ChatID, False) ' Splate ungelesen sol sich ändern From 38e5fd2545dc2e55e36645cd36b04f508b73bfb7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 10 Nov 2025 16:10:24 +0100 Subject: [PATCH 13/18] version --- .../Berufungen/frmBerufung.Designer.vb | 945 --------------- .../Berufungen/frmBerufung.resx | 1012 ----------------- .../Berufungen/frmBerufung.vb | 486 -------- .../frmBerufungenSearch.Designer.vb | 971 ---------------- .../Berufungen/frmBerufungenSearch.resx | 980 ---------------- .../Berufungen/frmBerufungenSearch.vb | 441 ------- SDL/My Project/AssemblyInfo.vb | 4 +- 7 files changed, 2 insertions(+), 4837 deletions(-) delete mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb delete mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx delete mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb delete mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb delete mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx delete mode 100644 SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb deleted file mode 100644 index d6bd9e64..00000000 --- a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.Designer.vb +++ /dev/null @@ -1,945 +0,0 @@ - -Partial Class frmBerufung - 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBerufung)) - Me.Panel1 = New System.Windows.Forms.Panel() - Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label() - Me.lblErr_DocNr = New System.Windows.Forms.Label() - Me.Button5 = New System.Windows.Forms.Button() - Me.Button4 = New System.Windows.Forms.Button() - Me.Button3 = New System.Windows.Forms.Button() - Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.Button2 = New System.Windows.Forms.Button() - Me.txtLocation = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label12 = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.Label13 = New System.Windows.Forms.Label() - Me.sbAvisoSuche = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.lblLKWId = New System.Windows.Forms.Label() - Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label5 = New System.Windows.Forms.Label() - Me.txtFiliale = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.txtDocDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnUpload = New System.Windows.Forms.Button() - Me.btnScan = New System.Windows.Forms.Button() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.Panel3 = New System.Windows.Forms.Panel() - Me.lblErr_ErhaltenDatum = New System.Windows.Forms.Label() - Me.Label9 = New System.Windows.Forms.Label() - Me.cbxKurierPaketdienst = New System.Windows.Forms.CheckBox() - Me.txtErhaltenReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.cbxKurierMotorrad = New System.Windows.Forms.CheckBox() - Me.txtErhaltenDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.txtErhaltenUhrzeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Panel4 = New System.Windows.Forms.Panel() - Me.Button1 = New System.Windows.Forms.Button() - Me.btnSave = New System.Windows.Forms.Button() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtInfo = New System.Windows.Forms.RichTextBox() - Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label() - Me.Panel1.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.Panel2.SuspendLayout() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() - Me.Panel3.SuspendLayout() - Me.Panel4.SuspendLayout() - Me.SuspendLayout() - ' - 'Panel1 - ' - Me.Panel1.BackColor = System.Drawing.Color.White - Me.Panel1.Controls.Add(Me.lblErr_Aufbewarungsort) - Me.Panel1.Controls.Add(Me.lblErr_DocNr) - Me.Panel1.Controls.Add(Me.Button5) - Me.Panel1.Controls.Add(Me.Button4) - Me.Panel1.Controls.Add(Me.Button3) - Me.Panel1.Controls.Add(Me.txtKennzeichen) - Me.Panel1.Controls.Add(Me.Label14) - Me.Panel1.Controls.Add(Me.Button2) - Me.Panel1.Controls.Add(Me.txtLocation) - Me.Panel1.Controls.Add(Me.Label12) - Me.Panel1.Controls.Add(Me.Label11) - Me.Panel1.Controls.Add(Me.txtAbsender) - Me.Panel1.Controls.Add(Me.txtEmpfaenger) - Me.Panel1.Controls.Add(Me.Label13) - Me.Panel1.Controls.Add(Me.sbAvisoSuche) - Me.Panel1.Controls.Add(Me.lblLKWId) - Me.Panel1.Controls.Add(Me.txtAbfNr) - Me.Panel1.Controls.Add(Me.Label5) - Me.Panel1.Controls.Add(Me.txtFiliale) - Me.Panel1.Controls.Add(Me.Label4) - Me.Panel1.Controls.Add(Me.Label3) - Me.Panel1.Controls.Add(Me.Label2) - Me.Panel1.Controls.Add(Me.txtDocDatum) - Me.Panel1.Controls.Add(Me.btnUpload) - Me.Panel1.Controls.Add(Me.btnScan) - Me.Panel1.Controls.Add(Me.PictureBox1) - Me.Panel1.Controls.Add(Me.Label1) - Me.Panel1.Controls.Add(Me.txtDocNumber) - Me.Panel1.Controls.Add(Me.Panel2) - Me.Panel1.Controls.Add(Me.Panel3) - Me.Panel1.Controls.Add(Me.Panel4) - Me.Panel1.Controls.Add(Me.FlatButton4) - Me.Panel1.Controls.Add(Me.FlatButton1) - Me.Panel1.Controls.Add(Me.txtInfo) - Me.Panel1.Controls.Add(Me.lblErr_Ausstellungsdatum) - 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(658, 588) - Me.Panel1.TabIndex = 0 - ' - 'lblErr_Aufbewarungsort - ' - Me.lblErr_Aufbewarungsort.AutoSize = True - Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) - Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red - Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327) - Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort" - Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13) - Me.lblErr_Aufbewarungsort.TabIndex = 108 - Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!" - Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.lblErr_Aufbewarungsort.Visible = False - ' - 'lblErr_DocNr - ' - Me.lblErr_DocNr.AutoSize = True - Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) - Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red - Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53) - Me.lblErr_DocNr.Name = "lblErr_DocNr" - Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13) - Me.lblErr_DocNr.TabIndex = 107 - Me.lblErr_DocNr.Text = "Pflichtfeld!" - Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.lblErr_DocNr.Visible = False - ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(609, 341) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(39, 26) - Me.Button5.TabIndex = 105 - Me.Button5.Text = "FO" - Me.Button5.UseVisualStyleBackColor = True - ' - 'Button4 - ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(510, 341) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(101, 26) - Me.Button4.TabIndex = 104 - Me.Button4.Text = "VERRECHNUNG" - Me.Button4.UseVisualStyleBackColor = True - ' - 'Button3 - ' - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(444, 341) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(67, 26) - Me.Button3.TabIndex = 103 - Me.Button3.Text = "VERIMEX" - Me.Button3.UseVisualStyleBackColor = True - ' - 'txtKennzeichen - ' - Me.txtKennzeichen._DateTimeOnly = False - Me.txtKennzeichen._numbersOnly = False - Me.txtKennzeichen._numbersOnlyKommastellen = "" - Me.txtKennzeichen._numbersOnlyTrennzeichen = True - Me.txtKennzeichen._Prozent = False - Me.txtKennzeichen._ShortDateNew = False - Me.txtKennzeichen._ShortDateOnly = False - Me.txtKennzeichen._TimeOnly = False - Me.txtKennzeichen._TimeOnly_Seconds = False - Me.txtKennzeichen._value = "" - Me.txtKennzeichen._Waehrung = False - Me.txtKennzeichen._WaehrungZeichen = False - Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black - Me.txtKennzeichen.Location = New System.Drawing.Point(473, 279) - Me.txtKennzeichen.MaxLineLength = -1 - Me.txtKennzeichen.MaxLines_Warning = "" - Me.txtKennzeichen.MaxLines_Warning_Label = Nothing - Me.txtKennzeichen.Name = "txtKennzeichen" - Me.txtKennzeichen.Size = New System.Drawing.Size(175, 26) - Me.txtKennzeichen.TabIndex = 7 - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label14.Location = New System.Drawing.Point(469, 256) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(47, 20) - Me.Label14.TabIndex = 102 - Me.Label14.Text = "LKW:" - ' - 'Button2 - ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Button2.Image = Global.SDL.My.Resources.Resources.android_note12 - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(473, 211) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(175, 31) - Me.Button2.TabIndex = 100 - Me.Button2.Text = "Aus Zwischenablage" - Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.UseVisualStyleBackColor = True - ' - 'txtLocation - ' - Me.txtLocation._DateTimeOnly = False - Me.txtLocation._numbersOnly = False - Me.txtLocation._numbersOnlyKommastellen = "" - Me.txtLocation._numbersOnlyTrennzeichen = True - Me.txtLocation._Prozent = False - Me.txtLocation._ShortDateNew = False - Me.txtLocation._ShortDateOnly = False - Me.txtLocation._TimeOnly = False - Me.txtLocation._TimeOnly_Seconds = False - Me.txtLocation._value = "" - Me.txtLocation._Waehrung = False - Me.txtLocation._WaehrungZeichen = False - Me.txtLocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtLocation.ForeColor = System.Drawing.Color.Black - Me.txtLocation.Location = New System.Drawing.Point(157, 341) - Me.txtLocation.MaxLineLength = -1 - Me.txtLocation.MaxLines_Warning = "" - Me.txtLocation.MaxLines_Warning_Label = Nothing - Me.txtLocation.Name = "txtLocation" - Me.txtLocation.Size = New System.Drawing.Size(288, 26) - Me.txtLocation.TabIndex = 8 - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label12.Location = New System.Drawing.Point(9, 366) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(41, 20) - Me.Label12.TabIndex = 66 - Me.Label12.Text = "Info:" - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label11.Location = New System.Drawing.Point(9, 344) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(143, 20) - Me.Label11.TabIndex = 66 - Me.Label11.Text = "Aufbewarungs-Ort:" - ' - 'txtAbsender - ' - Me.txtAbsender._AlleFirmenCLUSTER = False - Me.txtAbsender._AllowSetValue = True - Me.txtAbsender._autoSizeGross = True - Me.txtAbsender._display_Name1 = False - Me.txtAbsender._displayAVISO_Email = False - Me.txtAbsender._displayFullName = False - Me.txtAbsender._displayWoelflKd = False - Me.txtAbsender._hideIfListEmpty = True - Me.txtAbsender._loadKdData = True - Me.txtAbsender._searchName1 = True - Me.txtAbsender._UseFIRMA = "" - Me.txtAbsender._ValueKdAndName = True - Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtAbsender.dgvpos = "LEFT" - Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtAbsender.KdName = "" - Me.txtAbsender.KdNr = "-1" - Me.txtAbsender.kdNrField = Nothing - Me.txtAbsender.KdNrNullInt = Nothing - Me.txtAbsender.Location = New System.Drawing.Point(157, 151) - Me.txtAbsender.MaxLength = 50 - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.nurAktive = False - Me.txtAbsender.searchActive = True - Me.txtAbsender.Size = New System.Drawing.Size(263, 26) - Me.txtAbsender.TabIndex = 3 - Me.txtAbsender.TIMER_SEARCH = True - Me.txtAbsender.usrcntl = Nothing - ' - 'txtEmpfaenger - ' - Me.txtEmpfaenger._AlleFirmenCLUSTER = False - Me.txtEmpfaenger._AllowSetValue = True - Me.txtEmpfaenger._autoSizeGross = True - Me.txtEmpfaenger._display_Name1 = False - Me.txtEmpfaenger._displayAVISO_Email = False - Me.txtEmpfaenger._displayFullName = False - Me.txtEmpfaenger._displayWoelflKd = False - Me.txtEmpfaenger._hideIfListEmpty = True - Me.txtEmpfaenger._loadKdData = True - Me.txtEmpfaenger._searchName1 = True - Me.txtEmpfaenger._UseFIRMA = "" - Me.txtEmpfaenger._ValueKdAndName = True - Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.txtEmpfaenger.dgvpos = "LEFT" - Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtEmpfaenger.KdName = "" - Me.txtEmpfaenger.KdNr = "-1" - Me.txtEmpfaenger.kdNrField = Nothing - Me.txtEmpfaenger.KdNrNullInt = Nothing - Me.txtEmpfaenger.Location = New System.Drawing.Point(157, 176) - Me.txtEmpfaenger.Name = "txtEmpfaenger" - Me.txtEmpfaenger.nurAktive = False - Me.txtEmpfaenger.searchActive = True - Me.txtEmpfaenger.Size = New System.Drawing.Size(263, 26) - Me.txtEmpfaenger.TabIndex = 4 - Me.txtEmpfaenger.TIMER_SEARCH = True - Me.txtEmpfaenger.usrcntl = Nothing - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label13.Location = New System.Drawing.Point(9, 179) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(92, 20) - Me.Label13.TabIndex = 33 - Me.Label13.Text = "Empfänger:" - ' - 'sbAvisoSuche - ' - Me.sbAvisoSuche._allowFreitext = False - Me.sbAvisoSuche._AllowSetValue = False - Me.sbAvisoSuche._allowSpaceAsSplitter = False - Me.sbAvisoSuche._autoSizeGross = False - Me.sbAvisoSuche._hideIfListEmpty = True - Me.sbAvisoSuche._value = Nothing - Me.sbAvisoSuche.conn_art = "FMZOLL" - Me.sbAvisoSuche.dgvpos = "LEFT" - Me.sbAvisoSuche.DISPLAY_PARAM = Nothing - Me.sbAvisoSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.sbAvisoSuche.INVISIBLE_COLUMNS = Nothing - Me.sbAvisoSuche.key_visible = False - Me.sbAvisoSuche.KEYPARAM = Nothing - Me.sbAvisoSuche.Location = New System.Drawing.Point(157, 255) - Me.sbAvisoSuche.Name = "sbAvisoSuche" - Me.sbAvisoSuche.searchActive = True - Me.sbAvisoSuche.Size = New System.Drawing.Size(288, 26) - Me.sbAvisoSuche.SQL_ORDER_BY = Nothing - Me.sbAvisoSuche.SQL_SELECT = Nothing - Me.sbAvisoSuche.SQL_WHERE = Nothing - Me.sbAvisoSuche.SQL_WhereParamList = Nothing - Me.sbAvisoSuche.TabIndex = 5 - Me.sbAvisoSuche.usrcntl = Nothing - ' - 'lblLKWId - ' - Me.lblLKWId.AutoSize = True - Me.lblLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) - Me.lblLKWId.Location = New System.Drawing.Point(603, 263) - Me.lblLKWId.Name = "lblLKWId" - Me.lblLKWId.Size = New System.Drawing.Size(45, 13) - Me.lblLKWId.TabIndex = 30 - Me.lblLKWId.Text = "LKW-ID" - Me.lblLKWId.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.lblLKWId.Visible = False - ' - 'txtAbfNr - ' - Me.txtAbfNr._DateTimeOnly = False - Me.txtAbfNr._numbersOnly = True - Me.txtAbfNr._numbersOnlyKommastellen = "" - Me.txtAbfNr._numbersOnlyTrennzeichen = True - Me.txtAbfNr._Prozent = False - Me.txtAbfNr._ShortDateNew = False - Me.txtAbfNr._ShortDateOnly = False - Me.txtAbfNr._TimeOnly = False - Me.txtAbfNr._TimeOnly_Seconds = False - Me.txtAbfNr._value = "" - Me.txtAbfNr._Waehrung = False - Me.txtAbfNr._WaehrungZeichen = True - Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtAbfNr.ForeColor = System.Drawing.Color.Black - Me.txtAbfNr.Location = New System.Drawing.Point(238, 280) - Me.txtAbfNr.MaxLength = 8 - Me.txtAbfNr.MaxLineLength = -1 - Me.txtAbfNr.MaxLines_Warning = "" - Me.txtAbfNr.MaxLines_Warning_Label = Nothing - Me.txtAbfNr.Name = "txtAbfNr" - Me.txtAbfNr.Size = New System.Drawing.Size(207, 26) - Me.txtAbfNr.TabIndex = 7 - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label5.Location = New System.Drawing.Point(9, 283) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(131, 20) - Me.Label5.TabIndex = 15 - Me.Label5.Text = "FilialenNr/Abf.Nr.:" - ' - 'txtFiliale - ' - Me.txtFiliale._DateTimeOnly = False - Me.txtFiliale._numbersOnly = True - Me.txtFiliale._numbersOnlyKommastellen = "" - Me.txtFiliale._numbersOnlyTrennzeichen = True - Me.txtFiliale._Prozent = False - Me.txtFiliale._ShortDateNew = False - Me.txtFiliale._ShortDateOnly = False - Me.txtFiliale._TimeOnly = False - Me.txtFiliale._TimeOnly_Seconds = False - Me.txtFiliale._value = "" - Me.txtFiliale._Waehrung = False - Me.txtFiliale._WaehrungZeichen = True - Me.txtFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtFiliale.ForeColor = System.Drawing.Color.Black - Me.txtFiliale.Location = New System.Drawing.Point(157, 280) - Me.txtFiliale.MaxLength = 4 - Me.txtFiliale.MaxLineLength = -1 - Me.txtFiliale.MaxLines_Warning = "" - Me.txtFiliale.MaxLines_Warning_Label = Nothing - Me.txtFiliale.Name = "txtFiliale" - Me.txtFiliale.Size = New System.Drawing.Size(82, 26) - Me.txtFiliale.TabIndex = 6 - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label4.Location = New System.Drawing.Point(9, 258) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(114, 20) - Me.Label4.TabIndex = 13 - Me.Label4.Text = "AVISO-Suche:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label3.Location = New System.Drawing.Point(9, 154) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(82, 20) - Me.Label3.TabIndex = 11 - Me.Label3.Text = "Absender:" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label2.Location = New System.Drawing.Point(9, 102) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(61, 20) - Me.Label2.TabIndex = 9 - Me.Label2.Text = "Datum:" - ' - 'txtDocDatum - ' - Me.txtDocDatum._DateTimeOnly = False - Me.txtDocDatum._numbersOnly = False - Me.txtDocDatum._numbersOnlyKommastellen = "" - Me.txtDocDatum._numbersOnlyTrennzeichen = False - Me.txtDocDatum._Prozent = False - Me.txtDocDatum._ShortDateNew = True - Me.txtDocDatum._ShortDateOnly = False - Me.txtDocDatum._TimeOnly = False - Me.txtDocDatum._TimeOnly_Seconds = False - Me.txtDocDatum._value = "" - Me.txtDocDatum._Waehrung = False - Me.txtDocDatum._WaehrungZeichen = False - Me.txtDocDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtDocDatum.ForeColor = System.Drawing.Color.Black - Me.txtDocDatum.Location = New System.Drawing.Point(157, 99) - Me.txtDocDatum.MaxLength = 10 - Me.txtDocDatum.MaxLineLength = -1 - Me.txtDocDatum.MaxLines_Warning = "" - Me.txtDocDatum.MaxLines_Warning_Label = Nothing - Me.txtDocDatum.Name = "txtDocDatum" - Me.txtDocDatum.Size = New System.Drawing.Size(288, 26) - Me.txtDocDatum.TabIndex = 2 - ' - 'btnUpload - ' - Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpload.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.btnUpload.Image = Global.SDL.My.Resources.Resources.pdf_s - Me.btnUpload.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnUpload.Location = New System.Drawing.Point(473, 181) - Me.btnUpload.Name = "btnUpload" - Me.btnUpload.Size = New System.Drawing.Size(175, 31) - Me.btnUpload.TabIndex = 11 - Me.btnUpload.Text = "Upload..." - Me.btnUpload.UseVisualStyleBackColor = True - ' - 'btnScan - ' - Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.btnScan.Image = Global.SDL.My.Resources.Resources.scanner1 - Me.btnScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnScan.Location = New System.Drawing.Point(473, 151) - Me.btnScan.Name = "btnScan" - Me.btnScan.Size = New System.Drawing.Size(175, 31) - Me.btnScan.TabIndex = 10 - Me.btnScan.Text = "Scan..." - Me.btnScan.UseVisualStyleBackColor = True - ' - 'PictureBox1 - ' - Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf_gray - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox1.Location = New System.Drawing.Point(473, 67) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(175, 76) - Me.PictureBox1.TabIndex = 5 - Me.PictureBox1.TabStop = False - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label1.Location = New System.Drawing.Point(9, 70) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(112, 20) - Me.Label1.TabIndex = 4 - Me.Label1.Text = "Dokument-Nr.:" - ' - 'txtDocNumber - ' - Me.txtDocNumber._DateTimeOnly = False - Me.txtDocNumber._numbersOnly = False - Me.txtDocNumber._numbersOnlyKommastellen = "" - Me.txtDocNumber._numbersOnlyTrennzeichen = True - Me.txtDocNumber._Prozent = False - Me.txtDocNumber._ShortDateNew = False - Me.txtDocNumber._ShortDateOnly = False - Me.txtDocNumber._TimeOnly = False - Me.txtDocNumber._TimeOnly_Seconds = False - Me.txtDocNumber._value = "" - Me.txtDocNumber._Waehrung = False - Me.txtDocNumber._WaehrungZeichen = True - Me.txtDocNumber.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtDocNumber.ForeColor = System.Drawing.Color.Black - Me.txtDocNumber.Location = New System.Drawing.Point(157, 67) - Me.txtDocNumber.MaxLineLength = -1 - Me.txtDocNumber.MaxLines_Warning = "" - Me.txtDocNumber.MaxLines_Warning_Label = Nothing - Me.txtDocNumber.Name = "txtDocNumber" - Me.txtDocNumber.Size = New System.Drawing.Size(288, 26) - Me.txtDocNumber.TabIndex = 1 - ' - 'Panel2 - ' - Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Panel2.Controls.Add(Me.PictureBox6) - Me.Panel2.Controls.Add(Me.Label10) - 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(658, 44) - Me.Panel2.TabIndex = 1 - ' - 'PictureBox6 - ' - Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox6.Location = New System.Drawing.Point(640, 0) - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.Size = New System.Drawing.Size(18, 19) - Me.PictureBox6.TabIndex = 134 - Me.PictureBox6.TabStop = False - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Label10.ForeColor = System.Drawing.Color.White - Me.Label10.Location = New System.Drawing.Point(13, 14) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(634, 17) - Me.Label10.TabIndex = 5 - Me.Label10.Text = "Bitte erfassen Sie die Daten vollständig, damit das ATR bei der Abfertigung gefun" & - "den werden kann." - ' - 'Panel3 - ' - Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Panel3.BackColor = System.Drawing.Color.FloralWhite - Me.Panel3.Controls.Add(Me.lblErr_ErhaltenDatum) - Me.Panel3.Controls.Add(Me.Label9) - Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst) - Me.Panel3.Controls.Add(Me.txtErhaltenReferenz) - Me.Panel3.Controls.Add(Me.Label6) - Me.Panel3.Controls.Add(Me.cbxKurierMotorrad) - Me.Panel3.Controls.Add(Me.txtErhaltenDatum) - Me.Panel3.Controls.Add(Me.Label8) - Me.Panel3.Controls.Add(Me.Label7) - Me.Panel3.Controls.Add(Me.txtErhaltenUhrzeit) - Me.Panel3.Location = New System.Drawing.Point(0, 470) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(462, 118) - Me.Panel3.TabIndex = 98 - ' - 'lblErr_ErhaltenDatum - ' - Me.lblErr_ErhaltenDatum.AutoSize = True - Me.lblErr_ErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) - Me.lblErr_ErhaltenDatum.ForeColor = System.Drawing.Color.Red - Me.lblErr_ErhaltenDatum.Location = New System.Drawing.Point(245, 26) - Me.lblErr_ErhaltenDatum.Name = "lblErr_ErhaltenDatum" - Me.lblErr_ErhaltenDatum.Size = New System.Drawing.Size(56, 13) - Me.lblErr_ErhaltenDatum.TabIndex = 109 - Me.lblErr_ErhaltenDatum.Text = "Pflichtfeld!" - Me.lblErr_ErhaltenDatum.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.lblErr_ErhaltenDatum.Visible = False - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label9.Location = New System.Drawing.Point(9, 67) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(104, 20) - Me.Label9.TabIndex = 27 - Me.Label9.Text = "Referenz-Nr.:" - ' - 'cbxKurierPaketdienst - ' - Me.cbxKurierPaketdienst.AutoSize = True - Me.cbxKurierPaketdienst.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.cbxKurierPaketdienst.Location = New System.Drawing.Point(300, 91) - Me.cbxKurierPaketdienst.Name = "cbxKurierPaketdienst" - Me.cbxKurierPaketdienst.Size = New System.Drawing.Size(155, 21) - Me.cbxKurierPaketdienst.TabIndex = 5 - Me.cbxKurierPaketdienst.Text = "Paketdienst (DHL,..)" - Me.cbxKurierPaketdienst.UseVisualStyleBackColor = True - ' - 'txtErhaltenReferenz - ' - Me.txtErhaltenReferenz._DateTimeOnly = False - Me.txtErhaltenReferenz._numbersOnly = False - Me.txtErhaltenReferenz._numbersOnlyKommastellen = "" - Me.txtErhaltenReferenz._numbersOnlyTrennzeichen = True - Me.txtErhaltenReferenz._Prozent = False - Me.txtErhaltenReferenz._ShortDateNew = False - Me.txtErhaltenReferenz._ShortDateOnly = False - Me.txtErhaltenReferenz._TimeOnly = False - Me.txtErhaltenReferenz._TimeOnly_Seconds = False - Me.txtErhaltenReferenz._value = "" - Me.txtErhaltenReferenz._Waehrung = False - Me.txtErhaltenReferenz._WaehrungZeichen = True - Me.txtErhaltenReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtErhaltenReferenz.ForeColor = System.Drawing.Color.Black - Me.txtErhaltenReferenz.Location = New System.Drawing.Point(156, 64) - Me.txtErhaltenReferenz.MaxLineLength = -1 - Me.txtErhaltenReferenz.MaxLines_Warning = "" - Me.txtErhaltenReferenz.MaxLines_Warning_Label = Nothing - Me.txtErhaltenReferenz.Name = "txtErhaltenReferenz" - Me.txtErhaltenReferenz.Size = New System.Drawing.Size(288, 26) - Me.txtErhaltenReferenz.TabIndex = 3 - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Underline) - Me.Label6.Location = New System.Drawing.Point(9, 13) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(149, 20) - Me.Label6.TabIndex = 18 - Me.Label6.Text = "Dokument erhalten:" - ' - 'cbxKurierMotorrad - ' - Me.cbxKurierMotorrad.AutoSize = True - Me.cbxKurierMotorrad.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.cbxKurierMotorrad.Location = New System.Drawing.Point(156, 91) - Me.cbxKurierMotorrad.Name = "cbxKurierMotorrad" - Me.cbxKurierMotorrad.Size = New System.Drawing.Size(127, 21) - Me.cbxKurierMotorrad.TabIndex = 4 - Me.cbxKurierMotorrad.Text = "Motorrad-Kurier" - Me.cbxKurierMotorrad.UseVisualStyleBackColor = True - ' - 'txtErhaltenDatum - ' - Me.txtErhaltenDatum._DateTimeOnly = False - Me.txtErhaltenDatum._numbersOnly = False - Me.txtErhaltenDatum._numbersOnlyKommastellen = "" - Me.txtErhaltenDatum._numbersOnlyTrennzeichen = True - Me.txtErhaltenDatum._Prozent = False - Me.txtErhaltenDatum._ShortDateNew = True - Me.txtErhaltenDatum._ShortDateOnly = False - Me.txtErhaltenDatum._TimeOnly = False - Me.txtErhaltenDatum._TimeOnly_Seconds = False - Me.txtErhaltenDatum._value = "" - Me.txtErhaltenDatum._Waehrung = False - Me.txtErhaltenDatum._WaehrungZeichen = True - Me.txtErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtErhaltenDatum.ForeColor = System.Drawing.Color.Black - Me.txtErhaltenDatum.Location = New System.Drawing.Point(156, 39) - Me.txtErhaltenDatum.MaxLength = 10 - Me.txtErhaltenDatum.MaxLineLength = -1 - Me.txtErhaltenDatum.MaxLines_Warning = "" - Me.txtErhaltenDatum.MaxLines_Warning_Label = Nothing - Me.txtErhaltenDatum.Name = "txtErhaltenDatum" - Me.txtErhaltenDatum.Size = New System.Drawing.Size(145, 26) - Me.txtErhaltenDatum.TabIndex = 1 - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label8.Location = New System.Drawing.Point(9, 92) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(34, 20) - Me.Label8.TabIndex = 22 - Me.Label8.Text = "Art:" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label7.Location = New System.Drawing.Point(9, 42) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(116, 20) - Me.Label7.TabIndex = 19 - Me.Label7.Text = "Datum/Uhrzeit:" - ' - 'txtErhaltenUhrzeit - ' - Me.txtErhaltenUhrzeit._DateTimeOnly = False - Me.txtErhaltenUhrzeit._numbersOnly = False - Me.txtErhaltenUhrzeit._numbersOnlyKommastellen = "" - Me.txtErhaltenUhrzeit._numbersOnlyTrennzeichen = True - Me.txtErhaltenUhrzeit._Prozent = False - Me.txtErhaltenUhrzeit._ShortDateNew = False - Me.txtErhaltenUhrzeit._ShortDateOnly = False - Me.txtErhaltenUhrzeit._TimeOnly = True - Me.txtErhaltenUhrzeit._TimeOnly_Seconds = False - Me.txtErhaltenUhrzeit._value = "" - Me.txtErhaltenUhrzeit._Waehrung = False - Me.txtErhaltenUhrzeit._WaehrungZeichen = True - Me.txtErhaltenUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.txtErhaltenUhrzeit.ForeColor = System.Drawing.Color.Black - Me.txtErhaltenUhrzeit.Location = New System.Drawing.Point(300, 39) - Me.txtErhaltenUhrzeit.MaxLength = 8 - Me.txtErhaltenUhrzeit.MaxLineLength = -1 - Me.txtErhaltenUhrzeit.MaxLines_Warning = "" - Me.txtErhaltenUhrzeit.MaxLines_Warning_Label = Nothing - Me.txtErhaltenUhrzeit.Name = "txtErhaltenUhrzeit" - Me.txtErhaltenUhrzeit.Size = New System.Drawing.Size(144, 26) - Me.txtErhaltenUhrzeit.TabIndex = 2 - ' - 'Panel4 - ' - Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel4.Controls.Add(Me.Button1) - Me.Panel4.Controls.Add(Me.btnSave) - Me.Panel4.Location = New System.Drawing.Point(461, 470) - Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(197, 118) - Me.Panel4.TabIndex = 99 - ' - 'Button1 - ' - Me.Button1.BackColor = System.Drawing.Color.White - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Button1.Image = Global.SDL.My.Resources.Resources.del_small - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(12, 83) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(175, 30) - Me.Button1.TabIndex = 3 - Me.Button1.Text = "Abbrechen " - Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button1.UseVisualStyleBackColor = False - ' - 'btnSave - ' - Me.btnSave.BackColor = System.Drawing.Color.White - Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.btnSave.Image = Global.SDL.My.Resources.Resources.save - Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSave.Location = New System.Drawing.Point(12, 7) - Me.btnSave.Name = "btnSave" - Me.btnSave.Size = New System.Drawing.Size(175, 72) - Me.btnSave.TabIndex = 2 - Me.btnSave.Text = "Speichern " - Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSave.UseVisualStyleBackColor = False - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image) - Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Location = New System.Drawing.Point(419, 150) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(26, 26) - Me.FlatButton4.TabIndex = 98 - Me.FlatButton4.TabStop = False - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image) - Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Location = New System.Drawing.Point(419, 175) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(26, 26) - Me.FlatButton1.TabIndex = 99 - Me.FlatButton1.TabStop = False - Me.FlatButton1.UseVisualStyleBackColor = True - ' - 'txtInfo - ' - Me.txtInfo.Location = New System.Drawing.Point(157, 366) - Me.txtInfo.Name = "txtInfo" - Me.txtInfo.Size = New System.Drawing.Size(491, 84) - Me.txtInfo.TabIndex = 9 - Me.txtInfo.Text = "" - ' - 'lblErr_Ausstellungsdatum - ' - Me.lblErr_Ausstellungsdatum.AutoSize = True - Me.lblErr_Ausstellungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) - Me.lblErr_Ausstellungsdatum.ForeColor = System.Drawing.Color.Red - Me.lblErr_Ausstellungsdatum.Location = New System.Drawing.Point(389, 126) - Me.lblErr_Ausstellungsdatum.Name = "lblErr_Ausstellungsdatum" - Me.lblErr_Ausstellungsdatum.Size = New System.Drawing.Size(56, 13) - Me.lblErr_Ausstellungsdatum.TabIndex = 106 - Me.lblErr_Ausstellungsdatum.Text = "Pflichtfeld!" - Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.lblErr_Ausstellungsdatum.Visible = False - ' - 'frmATR - ' - Me.AllowDrop = True - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(658, 588) - Me.Controls.Add(Me.Panel1) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.Name = "frmATR" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent - Me.Text = "ATR/EUR1" - Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - Me.Panel2.ResumeLayout(False) - Me.Panel2.PerformLayout() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() - Me.Panel3.ResumeLayout(False) - Me.Panel3.PerformLayout() - Me.Panel4.ResumeLayout(False) - Me.ResumeLayout(False) - - End Sub - - Friend WithEvents Panel1 As Panel - Friend WithEvents PictureBox1 As PictureBox - Friend WithEvents Label1 As Label - Friend WithEvents txtDocNumber As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnSave As Button - Friend WithEvents Panel2 As Panel - Friend WithEvents btnScan As Button - Friend WithEvents Label2 As Label - Friend WithEvents txtDocDatum As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnUpload As Button - Friend WithEvents Label8 As Label - Friend WithEvents txtErhaltenUhrzeit As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label7 As Label - Friend WithEvents Label6 As Label - Friend WithEvents txtErhaltenDatum As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label5 As Label - Friend WithEvents txtFiliale As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label4 As Label - Friend WithEvents Label3 As Label - Friend WithEvents Panel3 As Panel - Friend WithEvents cbxKurierPaketdienst As CheckBox - Friend WithEvents cbxKurierMotorrad As CheckBox - Friend WithEvents Label9 As Label - Friend WithEvents txtErhaltenReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Panel4 As Panel - Friend WithEvents Label10 As Label - Friend WithEvents lblLKWId As Label - Friend WithEvents sbAvisoSuche As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents Label13 As Label - Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox - Friend WithEvents txtEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox - Friend WithEvents Button1 As Button - Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents txtLocation As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label12 As Label - Friend WithEvents Label11 As Label - Friend WithEvents txtInfo As RichTextBox - Friend WithEvents Button2 As Button - Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label14 As Label - Friend WithEvents Button5 As Button - Friend WithEvents Button4 As Button - Friend WithEvents Button3 As Button - Friend WithEvents lblErr_Aufbewarungsort As Label - Friend WithEvents lblErr_DocNr As Label - Friend WithEvents lblErr_Ausstellungsdatum As Label - Friend WithEvents PictureBox6 As PictureBox - Friend WithEvents lblErr_ErhaltenDatum As Label -End Class diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx deleted file mode 100644 index 001510a1..00000000 --- a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.resx +++ /dev/null @@ -1,1012 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 - - - - - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA - AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA - AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM - w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 - VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl - CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv - 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ - ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 - KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z - - - - - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA - AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA - AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM - w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 - VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl - CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv - 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ - ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 - KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z - - - - - 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///////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B - s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// - ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// - ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ - ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// - ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// - //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// - ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// - ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// - ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA - XUL///////////////////////////////////////////////////////////////////////////// - ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// - //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// - //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// - //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// - ///////////////////////////////////////////////////////////////////////////d1tFm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// - //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ - //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd - 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// - ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// - ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// - ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// - //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// - //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// - //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 - SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDUy8X///////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// - ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u - 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY - fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// - //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////////////Uy8XB - s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// - //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// - //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// - //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// - ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t - mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ - ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// - ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// - ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// - //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// - ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM - bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M - blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// - //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// - //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// - //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// - //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL - v7j///////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////+Mblhm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// - ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// - ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// - ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// - ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// - ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// - //////////////////////////////////////////////////////////////////////////////// - //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// - //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// - //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// - //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ - ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDm4N3///////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////////39fRmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm - MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// - ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// - ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// - ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// - ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 - p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// - ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// - ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM - blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ - //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwD39fT///////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////////////////L - v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// - //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// - //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB - s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// - ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// - ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// - ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// - ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwB0SSb///////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ - //////////////////////////////////////////////////////////////////////////////+A - XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////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/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb deleted file mode 100644 index 6103fddd..00000000 --- a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufung.vb +++ /dev/null @@ -1,486 +0,0 @@ -Imports DocumentFormat.OpenXml.Drawing.Charts -Imports System.IO -Imports System.Windows.Controls.Primitives -Imports VERAG_PROG_ALLGEMEIN - - - - - -'DATENSERVER!!!!!!!!!!!!!!!!!! - -Public Class frmBerufung - - Dim ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR = Nothing - Dim loadedDSID As Integer = -1 - Dim DSID As Integer = -1 - - Sub New() - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - End Sub - Sub New(atr_id) - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(atr_id) - loadedDSID = ATR.atr_dsId - End Sub - - Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint - - End Sub - - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - 'If ATR IsNot Nothing Then - ' If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löchen?", vbYesNoCancel) Then - ' If ATR.delete Then - ' Me.Close() - ' End If - ' End If - 'End If - Me.Close() - End Sub - - Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click - - If doValidation() Then - If ATR Is Nothing Then - ATR = New cOrigianlATR() - ATR.atr_erfassungsdatum = Now - ATR.atr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - ATR.atr_mitId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID - - End If - - getValues() - - 'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben: - - - If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then - 'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr) - If SND IsNot Nothing Then - ATR.atr_SendungsId = SND.tblSnd_SendungID - ATR.atr_AvisoId = SND.tblSnd_AvisoID - End If - End If - - If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And ((loadedDSID <> DSID Or loadedDSID <= 0) Or (loadedDSID > 0 And ATR.atr_anhID <= 0)) Then - If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then - If ATR.atr_dsId < 0 Then - MsgBox("Kein PDF-Anhang!") - Else - Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID) - ANH.anh_SendungsId = ATR.atr_SendungsId - ANH.anh_AvisoId = ATR.atr_AvisoId - ANH.anh_docId = DSID - ANH.anh_Name = "ATR_ARCHIV" - ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID)) - ANH.anh_Art = "ATR" - ANH.SAVE() 'Eintrag wird überschreiben - ATR.atr_anhID = ANH.anh_id - insertVermerkATR(ATR) - - End If - End If - End If - - If ATR.SAVE Then - Me.Close() - Exit Sub - End If - - End If - Me.DialogResult = DialogResult.None - End Sub - - Shared Sub insertVermerkATR(ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR) - - Dim VermerkeCodeID = 110 - VERAG_PROG_ALLGEMEIN.cVermerkeDAL.DeleteSNDVermerkCode(ATR.atr_SendungsId, VermerkeCodeID) 'Alte löschen! - Dim vermerkId = VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(ATR.atr_SendungsId, ATR.atr_AvisoId, "ATR-Archiv", VermerkeCodeID) - If vermerkId > 0 Then VERAG_PROG_ALLGEMEIN.cVermerkeDAL.toggleHervorheben(vermerkId) 'Hervorheben! - - End Sub - - Function doValidation() As Boolean - lblErr_Ausstellungsdatum.Visible = False - lblErr_DocNr.Visible = False - lblErr_Aufbewarungsort.Visible = False - lblErr_ErhaltenDatum.Visible = False - - If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False - If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False - If txtErhaltenDatum._value = "" Then lblErr_ErhaltenDatum.Visible = True : Return False - If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False - - Return True - End Function - - - - - Sub loadValues() - - If ATR.atr_empfaengerkdnr > -1 Then - txtEmpfaenger.KdNr = ATR.atr_empfaengerkdnr - Else - txtEmpfaenger.KdNr_value = -1 - txtEmpfaenger.Text = ATR.atr_empfaenger - End If - - If ATR.atr_absenderkdnr > -1 Then - txtAbsender.KdNr = ATR.atr_absenderkdnr - Else - txtAbsender.KdNr_value = -1 - txtAbsender.Text = ATR.atr_absender - End If - - txtLocation.Text = If(ATR.atr_location, "") - txtInfo.Text = If(ATR.atr_info, "") - - DSID = ATR.atr_dsId - togglePDFPic() - txtDocNumber.Text = If(ATR.atr_documentNr, "") - txtDocDatum._value = If(ATR.atr_austellungsdatum, "") - txtKennzeichen.Text = If(ATR.atr_LKW, "") - txtFiliale._value = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "") - txtAbfNr._value = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "") - - sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId) - - If ATR.atr_erhalenDatum IsNot Nothing Then - txtErhaltenDatum._value = CDate(ATR.atr_erhalenDatum).ToShortDateString - txtErhaltenUhrzeit._value = CDate(ATR.atr_erhalenDatum).ToShortTimeString - End If - - txtErhaltenReferenz.Text = If(ATR.atr_DHL_ReferenzNr, "") - Select Case If(ATR.atr_erhalten_Art, "") - Case "PAKETDIENST" : cbxKurierPaketdienst.Checked = True - Case "MOTORRAD" : cbxKurierMotorrad.Checked = True - End Select - End Sub - Sub getValues() - - ATR.atr_documentNr = txtDocNumber.Text - ATR.atr_austellungsdatum = txtDocDatum._value - 'ATR.atr_erfassungsdatum = Now - ATR.atr_absender = If(txtAbsender.KdNr > 0, txtAbsender.KdName, txtAbsender.Text) - ATR.atr_absenderkdnr = txtAbsender.KdNr - ATR.atr_empfaenger = If(txtEmpfaenger.KdNr > 0, txtEmpfaenger.KdName, txtEmpfaenger.Text) - ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr - ATR.atr_location = txtLocation.Text - ATR.atr_info = txtInfo.Text - ATR.atr_dsId = DSID - If txtFiliale._value <> "" Then ATR.atr_FilialenNr = txtFiliale._value - If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value - ATR.atr_LKW = txtKennzeichen.Text - - ATR.atr_SendungsId = If(sbAvisoSuche._value <> "", sbAvisoSuche._value, -1) - If sbAvisoSuche._value <> "" Then - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1) - End If - - - - If txtErhaltenDatum._value <> "" Then - If txtErhaltenUhrzeit._value <> "" Then - ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value & " " & txtErhaltenUhrzeit._value) - Else - ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value) - End If - End If - ATR.atr_DHL_ReferenzNr = txtErhaltenReferenz.Text - - If cbxKurierPaketdienst.Checked Then ATR.atr_erhalten_Art = "PAKETDIENST" - If cbxKurierMotorrad.Checked Then ATR.atr_erhalten_Art = "MOTORRAD" - - - End Sub - Private Sub frmATR_Load(sender As Object, e As EventArgs) Handles Me.Load - txtAbsender.initKdBox(Me) - - txtEmpfaenger.initKdBox(Me) - - 'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) - ' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300) - sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /*AND (Datum >= '" & Now.AddDays(-40).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300) - - - If ATR IsNot Nothing Then - loadValues() - Else - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then - txtLocation.Text = "VERIMEX" - End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "VRR" Then - txtLocation.Text = "VERRECHNUNG" - End If - - End If - - - AddHandler txtAbsender.PropertyChanged, Sub() - FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) - ' ATR.atr_absender = txtAbsender.Text - ' ATR.atr_absenderKdNr = txtAbsender.KdNr - - End Sub - - - AddHandler txtEmpfaenger.PropertyChanged, Sub() - FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) - 'ATR.atr_empfaenger = txtEmpfaenger.Text - 'ATR.atr_empfaengerKdNr = txtEmpfaenger.KdNr - - End Sub - - - togglePDFPic() - End Sub - - Sub togglePDFPic() - If DSID > 0 Then - PictureBox1.BackgroundImage = My.Resources.pdf - Else - PictureBox1.BackgroundImage = My.Resources.pdf_gray - End If - End Sub - Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click - If txtAbsender.KdNr > 0 Then - Me.Cursor = Cursors.WaitCursor - - Dim zoll As New SDL.frmKundenUebersichtZOLL(txtAbsender.KdNr) - If zoll IsNot Nothing Then zoll.Show() - - Me.Cursor = Cursors.Default - End If - End Sub - Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click - If txtEmpfaenger.KdNr > 0 Then - Me.Cursor = Cursors.WaitCursor - - Dim zoll As New SDL.frmKundenUebersichtZOLL(txtEmpfaenger.KdNr) - If zoll IsNot Nothing Then zoll.Show() - - Me.Cursor = Cursors.Default - End If - End Sub - - Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED - txtFiliale.Text = "" - txtAbfNr.Text = "" - If sbAvisoSuche._value <> "" Then - - Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value) - If SND IsNot Nothing Then - Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID) - txtFiliale._value = SND.FilialenNr - txtAbfNr._value = SND.AbfertigungsNr - lblLKWId.Text = SND.tblSnd_AvisoID - If AVISO IsNot Nothing Then - txtKennzeichen.Text = AVISO.LKW_Nr - End If - ' lblKennzeichen.Visible = True - lblLKWId.Visible = True - End If - End If - End Sub - - Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click - quickScan() - togglePDFPic() - End Sub - - Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click - If DSID > 0 Then - Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID) - If path <> "" Then Process.Start(path) - 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH(DSID) - - End If - End Sub - - Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click - addData_AnhangFD() - togglePDFPic() - End Sub - - Public Sub addData_AnhangFD() - Dim fd As New OpenFileDialog - fd.Multiselect = False - - If fd.ShowDialog = vbOK Then - ' For Each F_listItem In fd.FileNames - - Dim fi As New FileInfo(fd.FileName) - Dim filename = fi.Name - If filename = "" Then - MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & fd.FileName) - Else - - ' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge") - ' MsgBox(TMP_Path) - ' File.Copy(F_listItem, TMP_Path) - Dim anhId = -1 - Dim destPath = "" - - Dim Typ = "" - If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then - If saveToDS(filename, fd.FileName, "ATR", Typ, DSID, anhId, destPath) Then - - End If - - End If - End If - 'Next - ' If flpnlAviso.Controls.Count > 0 Then DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me() - End If - End Sub - - Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean - Select Case extension.ToString.Replace(".", "").ToUpper - Case "PDF" : Typ = "PDF" - Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" - Case "DOC", "DOCX" : Typ = "WORD" - Case "TXT" : Typ = "TEXT" - Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" - Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False - Case Else : Typ = "SONSTIGES" - End Select - Return True - End Function - - Public Shared Function saveToDS(ByRef fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean - fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName) - - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ORIGINAL_ATR_ARCHIV", Now.Year, Now.ToString("ddMMyy"), "", Now.ToString("ddMMyyHHmmss") & fileName, -1, False) - If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False - If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False - - da_id = DS.da_id - destPath = DS.GET_TOP1_PATH - Dim fi As New FileInfo(sourcePath) - Return True - End Function - - Public Function quickScan(Optional SendungsId = Nothing) As Boolean - Try - 'If KdNr < 0 Then Exit Sub - Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan") - frmScan.DefaultFileName = "ScanATR" & Now.ToString("ddMMyyyy_HHmmss") ' Me._TEXT_PDF - - If frmScan.ShowDialog() = DialogResult.OK Then - If frmScan.ReturnValue IsNot Nothing Then - Dim Filename = frmScan.fileName - Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge") - File.WriteAllBytes(TMP_Path, frmScan.ReturnValue) - - Dim anhId = -1 - Dim destPath = "" - If saveToDS(Filename, TMP_Path, "ATR", "PDF", DSID, anhId, destPath, SendungsId) Then - Return True - End If - 'addUsrcnlToPnl(TMP_Path) - End If - End If - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan") - End Try - Return False - End Function - - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - Dim data As IDataObject = Clipboard.GetDataObject - If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then - For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop) - ' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s)) - ' File.Copy(s, newFile) - ' MsgBox(s) - If System.IO.File.Exists(s) Then - - Dim fi As New FileInfo(s) - Dim filename = fi.Name - If filename = "" Then - MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s) - Else - - Dim anhId = -1 - Dim destPath = "" - - Dim Typ = "" - If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then - If saveToDS(filename, s, "ATR", Typ, DSID, anhId, destPath) Then - MsgBox("Dokument wurde hochgeladen.") - End If - End If - End If - End If - Next - - End If - togglePDFPic() - End Sub - - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click - txtLocation.Text = "VERIMEX" - End Sub - - Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click - txtLocation.Text = "VERRECHNUNG" - End Sub - - Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click - txtLocation.Text = "FRONT-OFFICE" - End Sub - - Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop, PictureBox1.DragDrop - - Try - Dim added = False - - If e.Data.GetDataPresent(DataFormats.FileDrop) Then - Dim files() As String = e.Data.GetData(DataFormats.FileDrop) - - If files.Count > 1 Then - MsgBox("Nur eine Datei möglich!") - ElseIf files.Count > 0 Then - If files(0) <> "" Then - Dim fio As New System.IO.FileInfo(files(0)) - If saveToDS(fio.Name, files(0), "ATR", "", DSID) Then - MsgBox("Dokument wurde hochgeladen.") - End If - End If - End If - - ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then - Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e) - If FilePath <> "" Then - Dim fio As New System.IO.FileInfo(FilePath) - If saveToDS(fio.Name, FilePath, "ATR", "", DSID) Then - MsgBox("Dokument wurde hochgeladen.") - End If - End If - End If - - - - togglePDFPic() - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - End Sub - - Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click - Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv" - Process.Start(webAddress) - End Sub - -End Class \ No newline at end of file diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb deleted file mode 100644 index 023c50d4..00000000 --- a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.Designer.vb +++ /dev/null @@ -1,971 +0,0 @@ - -Partial Class frmBerufungenSearch - 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() - Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBerufungenSearch)) - Me.pnl = New System.Windows.Forms.Panel() - Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label7 = New System.Windows.Forms.Label() - Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label5 = New System.Windows.Forms.Label() - Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label3 = New System.Windows.Forms.Label() - Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = 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() - Me.btnSuche = New System.Windows.Forms.Button() - Me.Label23 = New System.Windows.Forms.Label() - Me.btnJahr = New System.Windows.Forms.Button() - Me.pnlTop = New System.Windows.Forms.Panel() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.btnBisJahr = New System.Windows.Forms.Button() - Me.btnVonJahr = New System.Windows.Forms.Button() - Me.btnMonat = New System.Windows.Forms.Button() - Me.btnBisMonat = New System.Windows.Forms.Button() - Me.btnVonMonat = New System.Windows.Forms.Button() - Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() - Me.Label13 = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() - Me.Panel1 = New System.Windows.Forms.Panel() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Button2 = New System.Windows.Forms.Button() - Me.pnloptions = New System.Windows.Forms.Panel() - Me.btnSendungKoppeln = New System.Windows.Forms.Button() - Me.Button1 = New System.Windows.Forms.Button() - Me.btnDel = New System.Windows.Forms.Button() - Me.btnExcel = New System.Windows.Forms.Button() - Me.FlatButton7 = New System.Windows.Forms.Button() - Me.lblErgebnis = New System.Windows.Forms.Label() - Me.Label37 = New System.Windows.Forms.Label() - Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.pnl.SuspendLayout() - Me.pnlTop.SuspendLayout() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() - Me.Panel1.SuspendLayout() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.pnloptions.SuspendLayout() - Me.SuspendLayout() - ' - 'pnl - ' - Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke - Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnl.Controls.Add(Me.cboDatum) - Me.pnl.Controls.Add(Me.txtSuche) - Me.pnl.Controls.Add(Me.Label9) - Me.pnl.Controls.Add(Me.txtSB) - Me.pnl.Controls.Add(Me.txtDocumetNummer) - Me.pnl.Controls.Add(Me.Label8) - Me.pnl.Controls.Add(Me.txtAbsender) - Me.pnl.Controls.Add(Me.Label7) - Me.pnl.Controls.Add(Me.txtReferenz) - Me.pnl.Controls.Add(Me.Label5) - Me.pnl.Controls.Add(Me.txtFEmpfänger) - Me.pnl.Controls.Add(Me.Label6) - Me.pnl.Controls.Add(Me.txtLKWKennzeichen) - Me.pnl.Controls.Add(Me.Label3) - Me.pnl.Controls.Add(Me.txtAbfertDat) - Me.pnl.Controls.Add(Me.txtAbfertDatBis) - Me.pnl.Controls.Add(Me.cboFiliale) - Me.pnl.Controls.Add(Me.txtAbfertigungsnummer) - Me.pnl.Controls.Add(Me.Button7) - Me.pnl.Controls.Add(Me.Button6) - Me.pnl.Controls.Add(Me.Button5) - Me.pnl.Controls.Add(Me.btnSuche) - Me.pnl.Controls.Add(Me.Label23) - Me.pnl.Controls.Add(Me.btnJahr) - Me.pnl.Controls.Add(Me.pnlTop) - Me.pnl.Controls.Add(Me.btnBisJahr) - Me.pnl.Controls.Add(Me.btnVonJahr) - Me.pnl.Controls.Add(Me.btnMonat) - Me.pnl.Controls.Add(Me.btnBisMonat) - Me.pnl.Controls.Add(Me.btnVonMonat) - Me.pnl.Controls.Add(Me.DateTimePicker2) - Me.pnl.Controls.Add(Me.Label13) - Me.pnl.Controls.Add(Me.Label1) - Me.pnl.Controls.Add(Me.Label2) - Me.pnl.Controls.Add(Me.Label12) - Me.pnl.Controls.Add(Me.DateTimePicker1) - Me.pnl.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl.Location = New System.Drawing.Point(0, 0) - Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1419, 171) - Me.pnl.TabIndex = 0 - ' - 'cboDatum - ' - Me.cboDatum._allowedValuesFreiText = Nothing - Me.cboDatum._allowFreiText = False - Me.cboDatum._value = "" - Me.cboDatum.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboDatum.DropDownWidth = 250 - Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup - Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboDatum.FormattingEnabled = True - Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"}) - Me.cboDatum.Location = New System.Drawing.Point(15, 52) - Me.cboDatum.Name = "cboDatum" - Me.cboDatum.Size = New System.Drawing.Size(141, 22) - Me.cboDatum.TabIndex = 78 - ' - 'txtSuche - ' - Me.txtSuche._DateTimeOnly = False - Me.txtSuche._numbersOnly = False - Me.txtSuche._numbersOnlyKommastellen = "" - Me.txtSuche._numbersOnlyTrennzeichen = False - Me.txtSuche._Prozent = False - Me.txtSuche._ShortDateNew = False - Me.txtSuche._ShortDateOnly = False - Me.txtSuche._TimeOnly = False - Me.txtSuche._TimeOnly_Seconds = False - Me.txtSuche._value = "" - Me.txtSuche._Waehrung = False - Me.txtSuche._WaehrungZeichen = False - Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSuche.ForeColor = System.Drawing.Color.Black - Me.txtSuche.Location = New System.Drawing.Point(338, 75) - Me.txtSuche.MaxLineLength = -1 - Me.txtSuche.MaxLines_Warning = "" - Me.txtSuche.MaxLines_Warning_Label = Nothing - Me.txtSuche.Name = "txtSuche" - Me.txtSuche.Size = New System.Drawing.Size(258, 20) - Me.txtSuche.TabIndex = 77 - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.Location = New System.Drawing.Point(337, 59) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(47, 13) - Me.Label9.TabIndex = 76 - Me.Label9.Text = "Suche:" - ' - 'txtSB - ' - Me.txtSB._DateTimeOnly = False - Me.txtSB._numbersOnly = False - Me.txtSB._numbersOnlyKommastellen = "" - Me.txtSB._numbersOnlyTrennzeichen = False - Me.txtSB._Prozent = False - Me.txtSB._ShortDateNew = False - Me.txtSB._ShortDateOnly = False - Me.txtSB._TimeOnly = False - Me.txtSB._TimeOnly_Seconds = False - Me.txtSB._value = "" - Me.txtSB._Waehrung = False - Me.txtSB._WaehrungZeichen = False - Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSB.ForeColor = System.Drawing.Color.Black - Me.txtSB.Location = New System.Drawing.Point(920, 131) - Me.txtSB.MaxLineLength = -1 - Me.txtSB.MaxLines_Warning = "" - Me.txtSB.MaxLines_Warning_Label = Nothing - Me.txtSB.Multiline = True - Me.txtSB.Name = "txtSB" - Me.txtSB.Size = New System.Drawing.Size(240, 22) - Me.txtSB.TabIndex = 75 - ' - 'txtDocumetNummer - ' - Me.txtDocumetNummer._DateTimeOnly = False - Me.txtDocumetNummer._numbersOnly = False - Me.txtDocumetNummer._numbersOnlyKommastellen = "" - Me.txtDocumetNummer._numbersOnlyTrennzeichen = False - Me.txtDocumetNummer._Prozent = False - Me.txtDocumetNummer._ShortDateNew = False - Me.txtDocumetNummer._ShortDateOnly = False - Me.txtDocumetNummer._TimeOnly = False - Me.txtDocumetNummer._TimeOnly_Seconds = False - Me.txtDocumetNummer._value = "" - Me.txtDocumetNummer._Waehrung = False - Me.txtDocumetNummer._WaehrungZeichen = False - Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black - Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75) - Me.txtDocumetNummer.MaxLineLength = -1 - Me.txtDocumetNummer.MaxLines_Warning = "" - Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing - Me.txtDocumetNummer.Name = "txtDocumetNummer" - Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20) - Me.txtDocumetNummer.TabIndex = 74 - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(609, 59) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(113, 13) - Me.Label8.TabIndex = 73 - Me.Label8.Text = "Dokument-Nummer" - ' - 'txtAbsender - ' - Me.txtAbsender._DateTimeOnly = False - Me.txtAbsender._numbersOnly = False - Me.txtAbsender._numbersOnlyKommastellen = "" - Me.txtAbsender._numbersOnlyTrennzeichen = True - Me.txtAbsender._Prozent = False - Me.txtAbsender._ShortDateNew = False - Me.txtAbsender._ShortDateOnly = False - Me.txtAbsender._TimeOnly = False - Me.txtAbsender._TimeOnly_Seconds = False - Me.txtAbsender._value = Nothing - Me.txtAbsender._Waehrung = False - Me.txtAbsender._WaehrungZeichen = True - Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbsender.ForeColor = System.Drawing.Color.Black - Me.txtAbsender.Location = New System.Drawing.Point(666, 133) - Me.txtAbsender.MaxLineLength = -1 - Me.txtAbsender.MaxLines_Warning = "" - Me.txtAbsender.MaxLines_Warning_Label = Nothing - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.Size = New System.Drawing.Size(228, 20) - Me.txtAbsender.TabIndex = 72 - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(607, 136) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(52, 13) - Me.Label7.TabIndex = 71 - Me.Label7.Text = "Absender" - ' - 'txtReferenz - ' - Me.txtReferenz._DateTimeOnly = False - Me.txtReferenz._numbersOnly = False - Me.txtReferenz._numbersOnlyKommastellen = "" - Me.txtReferenz._numbersOnlyTrennzeichen = True - Me.txtReferenz._Prozent = False - Me.txtReferenz._ShortDateNew = False - Me.txtReferenz._ShortDateOnly = False - Me.txtReferenz._TimeOnly = False - Me.txtReferenz._TimeOnly_Seconds = False - Me.txtReferenz._value = Nothing - Me.txtReferenz._Waehrung = False - Me.txtReferenz._WaehrungZeichen = True - Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtReferenz.ForeColor = System.Drawing.Color.Black - Me.txtReferenz.Location = New System.Drawing.Point(394, 133) - Me.txtReferenz.MaxLineLength = -1 - Me.txtReferenz.MaxLines_Warning = "" - Me.txtReferenz.MaxLines_Warning_Label = Nothing - Me.txtReferenz.Name = "txtReferenz" - Me.txtReferenz.Size = New System.Drawing.Size(202, 20) - Me.txtReferenz.TabIndex = 70 - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(335, 136) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(53, 13) - Me.Label5.TabIndex = 69 - Me.Label5.Text = "Referenz:" - ' - 'txtFEmpfänger - ' - Me.txtFEmpfänger._DateTimeOnly = False - Me.txtFEmpfänger._numbersOnly = False - Me.txtFEmpfänger._numbersOnlyKommastellen = "" - Me.txtFEmpfänger._numbersOnlyTrennzeichen = True - Me.txtFEmpfänger._Prozent = False - Me.txtFEmpfänger._ShortDateNew = False - Me.txtFEmpfänger._ShortDateOnly = False - Me.txtFEmpfänger._TimeOnly = False - Me.txtFEmpfänger._TimeOnly_Seconds = False - Me.txtFEmpfänger._value = Nothing - Me.txtFEmpfänger._Waehrung = False - Me.txtFEmpfänger._WaehrungZeichen = True - Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black - Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109) - Me.txtFEmpfänger.MaxLineLength = -1 - Me.txtFEmpfänger.MaxLines_Warning = "" - Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing - Me.txtFEmpfänger.Name = "txtFEmpfänger" - Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20) - Me.txtFEmpfänger.TabIndex = 68 - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(607, 113) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(61, 13) - Me.Label6.TabIndex = 67 - Me.Label6.Text = "Empfänger:" - ' - 'txtLKWKennzeichen - ' - Me.txtLKWKennzeichen._DateTimeOnly = False - Me.txtLKWKennzeichen._numbersOnly = False - Me.txtLKWKennzeichen._numbersOnlyKommastellen = "" - Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True - Me.txtLKWKennzeichen._Prozent = False - Me.txtLKWKennzeichen._ShortDateNew = False - Me.txtLKWKennzeichen._ShortDateOnly = False - Me.txtLKWKennzeichen._TimeOnly = False - Me.txtLKWKennzeichen._TimeOnly_Seconds = False - Me.txtLKWKennzeichen._value = Nothing - Me.txtLKWKennzeichen._Waehrung = False - Me.txtLKWKennzeichen._WaehrungZeichen = True - Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black - Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110) - Me.txtLKWKennzeichen.MaxLineLength = -1 - Me.txtLKWKennzeichen.MaxLines_Warning = "" - Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing - Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen" - Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20) - Me.txtLKWKennzeichen.TabIndex = 66 - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(335, 113) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(34, 13) - Me.Label3.TabIndex = 65 - Me.Label3.Text = "LKW:" - ' - '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(41, 77) - 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 = 33 - ' - '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(41, 106) - 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 = 36 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 250 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(920, 75) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 22) - Me.cboFiliale.TabIndex = 53 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = True - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._TimeOnly_Seconds = False - Me.txtAbfertigungsnummer._value = "" - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75) - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Multiline = True - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22) - Me.txtAbfertigungsnummer.TabIndex = 55 - ' - 'Button7 - ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button7.ForeColor = System.Drawing.Color.Black - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(281, 51) - Me.Button7.Margin = New System.Windows.Forms.Padding(0) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(34, 23) - Me.Button7.TabIndex = 45 - Me.Button7.Text = ">>" - Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.UseVisualStyleBackColor = True - ' - 'Button6 - ' - Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button6.ForeColor = System.Drawing.Color.Black - Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.Location = New System.Drawing.Point(162, 51) - Me.Button6.Margin = New System.Windows.Forms.Padding(0) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(34, 23) - Me.Button6.TabIndex = 41 - Me.Button6.Text = "<<" - Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.UseVisualStyleBackColor = True - ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button5.ForeColor = System.Drawing.Color.Black - Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(195, 51) - Me.Button5.Margin = New System.Windows.Forms.Padding(0) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(87, 23) - Me.Button5.TabIndex = 43 - Me.Button5.Text = "Heute" - Me.Button5.UseVisualStyleBackColor = True - ' - 'btnSuche - ' - Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search - Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSuche.Location = New System.Drawing.Point(1230, 72) - Me.btnSuche.Name = "btnSuche" - Me.btnSuche.Size = New System.Drawing.Size(162, 52) - Me.btnSuche.TabIndex = 61 - Me.btnSuche.Text = "Suche starten" - Me.btnSuche.UseVisualStyleBackColor = True - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(12, 109) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(23, 13) - Me.Label23.TabIndex = 38 - Me.Label23.Text = "bis:" - ' - 'btnJahr - ' - Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnJahr.ForeColor = System.Drawing.Color.Black - Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnJahr.Location = New System.Drawing.Point(195, 103) - Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnJahr.Name = "btnJahr" - Me.btnJahr.Size = New System.Drawing.Size(87, 23) - Me.btnJahr.TabIndex = 51 - Me.btnJahr.Text = "2016" - Me.btnJahr.UseVisualStyleBackColor = True - ' - '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.PictureBox6) - 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(1417, 48) - Me.pnlTop.TabIndex = 34 - ' - 'PictureBox6 - ' - Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox6.Location = New System.Drawing.Point(1374, 9) - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.Size = New System.Drawing.Size(32, 30) - Me.PictureBox6.TabIndex = 135 - Me.PictureBox6.TabStop = False - ' - '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(10, 13) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(134, 26) - Me.Label4.TabIndex = 0 - Me.Label4.Text = "Berufungen" - ' - 'btnBisJahr - ' - Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnBisJahr.ForeColor = System.Drawing.Color.Black - Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisJahr.Location = New System.Drawing.Point(281, 103) - Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnBisJahr.Name = "btnBisJahr" - Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) - Me.btnBisJahr.TabIndex = 52 - Me.btnBisJahr.Text = ">>" - Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisJahr.UseVisualStyleBackColor = True - ' - 'btnVonJahr - ' - Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnVonJahr.ForeColor = System.Drawing.Color.Black - Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonJahr.Location = New System.Drawing.Point(162, 103) - Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnVonJahr.Name = "btnVonJahr" - Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) - Me.btnVonJahr.TabIndex = 50 - Me.btnVonJahr.Text = "<<" - Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonJahr.UseVisualStyleBackColor = True - ' - 'btnMonat - ' - Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnMonat.ForeColor = System.Drawing.Color.Black - Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnMonat.Location = New System.Drawing.Point(195, 77) - Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnMonat.Name = "btnMonat" - Me.btnMonat.Size = New System.Drawing.Size(87, 23) - Me.btnMonat.TabIndex = 48 - Me.btnMonat.Text = "September" - Me.btnMonat.UseVisualStyleBackColor = True - ' - 'btnBisMonat - ' - Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnBisMonat.ForeColor = System.Drawing.Color.Black - Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisMonat.Location = New System.Drawing.Point(281, 77) - Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnBisMonat.Name = "btnBisMonat" - Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) - Me.btnBisMonat.TabIndex = 49 - Me.btnBisMonat.Text = ">>" - Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisMonat.UseVisualStyleBackColor = True - ' - 'btnVonMonat - ' - Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnVonMonat.ForeColor = System.Drawing.Color.Black - Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonMonat.Location = New System.Drawing.Point(162, 77) - Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnVonMonat.Name = "btnVonMonat" - Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) - Me.btnVonMonat.TabIndex = 47 - Me.btnVonMonat.Text = "<<" - Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonMonat.UseVisualStyleBackColor = True - ' - 'DateTimePicker2 - ' - Me.DateTimePicker2.CustomFormat = "''" - Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker2.Location = New System.Drawing.Point(41, 106) - Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) - Me.DateTimePicker2.Name = "DateTimePicker2" - Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.DateTimePicker2.Size = New System.Drawing.Size(115, 20) - Me.DateTimePicker2.TabIndex = 37 - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(12, 81) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(28, 13) - Me.Label13.TabIndex = 46 - Me.Label13.Text = "von:" - ' - '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(917, 59) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(40, 13) - Me.Label1.TabIndex = 39 - Me.Label1.Text = "Filiale" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(998, 59) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(121, 13) - Me.Label2.TabIndex = 40 - Me.Label2.Text = "Abfertigungsnummer" - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.Location = New System.Drawing.Point(917, 115) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(97, 13) - Me.Label12.TabIndex = 44 - Me.Label12.Text = "Sachbearbeiter:" - ' - 'DateTimePicker1 - ' - Me.DateTimePicker1.CustomFormat = "''" - Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker1.Location = New System.Drawing.Point(41, 77) - Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) - Me.DateTimePicker1.Name = "DateTimePicker1" - Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20) - Me.DateTimePicker1.TabIndex = 35 - ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.MyDatagridview1) - Me.Panel1.Controls.Add(Me.Button2) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel1.Location = New System.Drawing.Point(0, 171) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1419, 390) - Me.Panel1.TabIndex = 1 - ' - 'MyDatagridview1 - ' - Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 - Me.MyDatagridview1.AllowUserToAddRows = False - Me.MyDatagridview1.AllowUserToDeleteRows = False - Me.MyDatagridview1.AllowUserToOrderColumns = True - Me.MyDatagridview1.AllowUserToResizeRows = False - Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill - Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0) - Me.MyDatagridview1.Name = "MyDatagridview1" - Me.MyDatagridview1.ReadOnly = True - Me.MyDatagridview1.RowHeadersVisible = False - Me.MyDatagridview1.RowHeadersWidth = 51 - Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390) - Me.MyDatagridview1.TabIndex = 0 - ' - '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.SDL.My.Resources.Resources.plus - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(148, 333) - 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, 35) - Me.Button2.TabIndex = 71 - Me.Button2.Text = "Neu" - Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.UseVisualStyleBackColor = True - Me.Button2.Visible = False - ' - 'pnloptions - ' - Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke - Me.pnloptions.Controls.Add(Me.btnSendungKoppeln) - Me.pnloptions.Controls.Add(Me.Button1) - Me.pnloptions.Controls.Add(Me.btnDel) - Me.pnloptions.Controls.Add(Me.btnExcel) - Me.pnloptions.Controls.Add(Me.FlatButton7) - Me.pnloptions.Controls.Add(Me.lblErgebnis) - Me.pnloptions.Controls.Add(Me.Label37) - Me.pnloptions.Controls.Add(Me.txtMaxSrch) - Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnloptions.Location = New System.Drawing.Point(0, 561) - Me.pnloptions.Name = "pnloptions" - Me.pnloptions.Size = New System.Drawing.Size(1419, 59) - Me.pnloptions.TabIndex = 2 - ' - 'btnSendungKoppeln - ' - Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1 - Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6) - Me.btnSendungKoppeln.Name = "btnSendungKoppeln" - Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47) - Me.btnSendungKoppeln.TabIndex = 75 - Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen" - Me.btnSendungKoppeln.UseVisualStyleBackColor = True - Me.btnSendungKoppeln.Visible = False - ' - 'Button1 - ' - Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button1.Image = Global.SDL.My.Resources.Resources.plus - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(16, 7) - Me.Button1.Name = "Button1" - Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) - Me.Button1.Size = New System.Drawing.Size(109, 47) - Me.Button1.TabIndex = 74 - Me.Button1.Text = "NEU" - Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button1.UseVisualStyleBackColor = True - ' - 'btnDel - ' - Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small - Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDel.Location = New System.Drawing.Point(131, 7) - Me.btnDel.Name = "btnDel" - Me.btnDel.Size = New System.Drawing.Size(137, 47) - Me.btnDel.TabIndex = 73 - Me.btnDel.Text = "Eintrag löschen" - Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnDel.UseVisualStyleBackColor = True - ' - 'btnExcel - ' - Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo - Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnExcel.Location = New System.Drawing.Point(1328, 22) - Me.btnExcel.Name = "btnExcel" - Me.btnExcel.Size = New System.Drawing.Size(41, 34) - Me.btnExcel.TabIndex = 67 - Me.btnExcel.UseVisualStyleBackColor = True - ' - 'FlatButton7 - ' - Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh - Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.FlatButton7.ForeColor = System.Drawing.Color.Black - Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton7.Location = New System.Drawing.Point(1375, 22) - Me.FlatButton7.Name = "FlatButton7" - Me.FlatButton7.Size = New System.Drawing.Size(41, 34) - Me.FlatButton7.TabIndex = 68 - Me.FlatButton7.UseVisualStyleBackColor = True - ' - 'lblErgebnis - ' - Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblErgebnis.Location = New System.Drawing.Point(1201, 5) - Me.lblErgebnis.Name = "lblErgebnis" - Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) - Me.lblErgebnis.TabIndex = 66 - Me.lblErgebnis.Text = "Ergebnisse: 0" - Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label37 - ' - Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label37.AutoSize = True - Me.Label37.Location = New System.Drawing.Point(1242, 33) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(30, 13) - Me.Label37.TabIndex = 69 - Me.Label37.Text = "Max:" - ' - 'txtMaxSrch - ' - Me.txtMaxSrch._DateTimeOnly = False - Me.txtMaxSrch._numbersOnly = True - Me.txtMaxSrch._numbersOnlyKommastellen = "" - Me.txtMaxSrch._numbersOnlyTrennzeichen = True - Me.txtMaxSrch._Prozent = False - Me.txtMaxSrch._ShortDateNew = False - Me.txtMaxSrch._ShortDateOnly = False - Me.txtMaxSrch._TimeOnly = False - Me.txtMaxSrch._TimeOnly_Seconds = False - Me.txtMaxSrch._value = "" - Me.txtMaxSrch._Waehrung = False - Me.txtMaxSrch._WaehrungZeichen = True - Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black - Me.txtMaxSrch.Location = New System.Drawing.Point(1274, 30) - Me.txtMaxSrch.MaxLineLength = -1 - Me.txtMaxSrch.MaxLines_Warning = "" - Me.txtMaxSrch.MaxLines_Warning_Label = Nothing - Me.txtMaxSrch.Name = "txtMaxSrch" - Me.txtMaxSrch.Size = New System.Drawing.Size(48, 20) - Me.txtMaxSrch.TabIndex = 70 - Me.txtMaxSrch.Text = "1000" - Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'frmBerufungenSearch - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1419, 620) - Me.Controls.Add(Me.Panel1) - Me.Controls.Add(Me.pnl) - Me.Controls.Add(Me.pnloptions) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.Name = "frmBerufungenSearch" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Berufungen" - Me.pnl.ResumeLayout(False) - Me.pnl.PerformLayout() - Me.pnlTop.ResumeLayout(False) - Me.pnlTop.PerformLayout() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() - Me.Panel1.ResumeLayout(False) - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() - Me.pnloptions.ResumeLayout(False) - Me.pnloptions.PerformLayout() - Me.ResumeLayout(False) - - End Sub - Friend WithEvents pnl As System.Windows.Forms.Panel - Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Button7 As System.Windows.Forms.Button - Friend WithEvents Button6 As System.Windows.Forms.Button - Friend WithEvents Button5 As System.Windows.Forms.Button - Friend WithEvents btnSuche As System.Windows.Forms.Button - Friend WithEvents Label23 As System.Windows.Forms.Label - Friend WithEvents btnJahr As System.Windows.Forms.Button - Friend WithEvents pnlTop As System.Windows.Forms.Panel - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents btnBisJahr As System.Windows.Forms.Button - Friend WithEvents btnVonJahr As System.Windows.Forms.Button - Friend WithEvents btnMonat As System.Windows.Forms.Button - Friend WithEvents btnBisMonat As System.Windows.Forms.Button - Friend WithEvents btnVonMonat As System.Windows.Forms.Button - Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker - Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents Label12 As System.Windows.Forms.Label - Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker - Friend WithEvents Panel1 As System.Windows.Forms.Panel - Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview - Friend WithEvents pnloptions As System.Windows.Forms.Panel - Friend WithEvents btnExcel As System.Windows.Forms.Button - Friend WithEvents FlatButton7 As System.Windows.Forms.Button - Friend WithEvents lblErgebnis As System.Windows.Forms.Label - Friend WithEvents Label37 As System.Windows.Forms.Label - Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtLKWKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents Button2 As System.Windows.Forms.Button - Friend WithEvents txtFEmpfänger As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents btnDel As Button - Friend WithEvents txtReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label5 As Label - Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label7 As Label - Friend WithEvents Button1 As Button - Friend WithEvents txtDocumetNummer As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label8 As Label - Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label9 As Label - Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnSendungKoppeln As Button - Friend WithEvents PictureBox6 As PictureBox - Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox -End Class diff --git a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx deleted file mode 100644 index d584bd9e..00000000 --- a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.resx +++ /dev/null @@ -1,980 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 - - - - - 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///////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B - s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// - ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// - ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ - ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// - ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// - //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// - ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// - ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// - ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA - XUL///////////////////////////////////////////////////////////////////////////// - ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// - //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// - //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// - //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// - ///////////////////////////////////////////////////////////////////////////d1tFm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// - //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ - //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd - 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// - ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// - ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// - ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// - //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// - //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// - //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 - SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDUy8X///////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// - ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u - 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY - fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// - //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////////////Uy8XB - s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// - //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// - //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// - //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// - ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t - mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ - ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// - ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// - ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// - //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// - ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM - bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M - blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// - //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// - //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// - //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// - //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL - v7j///////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////+Mblhm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// - ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// - ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// - ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// - ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// - ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// - //////////////////////////////////////////////////////////////////////////////// - //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// - //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// - //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// - //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ - ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwDm4N3///////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////////39fRmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm - MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// - ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// - ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// - ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// - ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 - p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// - ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// - ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM - blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ - //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwD39fT///////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////////////////L - v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// - //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// - //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB - s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// - ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// - ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// - ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// - ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwB0SSb///////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm - MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm - MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ - //////////////////////////////////////////////////////////////////////////////+A - XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm - MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////////////////////////////////////////////////////////////////// - //////////////////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/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb b/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb deleted file mode 100644 index 26f4fdce..00000000 --- a/SDL/Benutzerdefinierte Steuerelemente/Berufungen/frmBerufungenSearch.vb +++ /dev/null @@ -1,441 +0,0 @@ -Imports javax.smartcardio - -Public Class frmBerufungenSearch - - - - Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) - Dim srcTAG As Date = CDate(Now.ToShortDateString) - - Dim JAHR As Date = CDate("01.01." & Now.Year) - - Public SendungKoppeln As Boolean = False - Public SendungsId As Integer = -1 - - Private Sub frmVorauskasse_Load(sender As Object, e As EventArgs) Handles Me.Load - - Me.Top = 0 - Me.Height = My.Computer.Screen.WorkingArea.Height - - txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString - txtAbfertDatBis.Text = Now.ToShortDateString - - - cboDatum.Items.Clear() - cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat")) - cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat")) - cboDatum.changeItem("ADat") - - - btnMonat.Text = MONAT.ToString("MMMM") - btnJahr.Text = JAHR.Year - - Dim QSwhere = "" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "ATILLA" : QSwhere = "" - Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') " - Case "AMBAR" : QSwhere = " AND mit_firma IN ('AMBAR','BEIDE') " - Case Else - QSwhere = " AND mit_firma <> 'IMEX' " - End Select - If SendungKoppeln Then btnSendungKoppeln.Visible = True - - ' cboSachbearbeiterQS.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & QSwhere & " ORDER BY Name ", False, "FMZOLL", True) - - Dim where = "" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - where = " AND FilialenNr IN (5501) " - Case "ATILLA" - where = " AND FilialenNr IN (4801) " - Case "AMBAR" - where = " AND FilialenNr IN (5701) " - Case Else - where = " AND FilialenNr NOT IN (5501) " - End Select - - cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True) - 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - ' Case "IMEX" - ' 'cboFiliale._allowedValuesFreiText = {"5501"} - ' cboFiliale.changeItem("5501") - ' Case "ATILLA" - ' cboFiliale._allowedValuesFreiText = {"4801"} - ' cboFiliale.changeItem("4801") - ' 'cboFiliale.Enabled = False - ' Case "AMBAR" - ' cboFiliale._allowedValuesFreiText = {"5701"} - ' cboFiliale.changeItem("5701") - ' 'cboFiliale.Enabled = False - 'End Select - - - btnMonat.PerformClick() - btnSuche.PerformClick() - - - End Sub - - - Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged - txtAbfertDat._value = CDate(sender.value).ToShortDateString - End Sub - - Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged - txtAbfertDatBis._value = CDate(sender.value).ToShortDateString - End Sub - - Sub initBtns(MonatJahr) - btnMonat.Text = MONAT.ToString("MMMM") - btnJahr.Text = JAHR.Year - Select Case MonatJahr - Case "Monat" - DateTimePicker1.Value = MONAT - DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) - Case "Jahr" - ' If cbxGeschaftsjahr.Checked Then - 'DateTimePicker1.Value = JAHR.AddMonths(1) - ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) - ' Else - DateTimePicker1.Value = JAHR - DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) - 'End If - Case "Tag" - ' If cbxGeschaftsjahr.Checked Then - 'DateTimePicker1.Value = JAHR.AddMonths(1) - ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) - ' Else - DateTimePicker1.Value = srcTAG - DateTimePicker2.Value = srcTAG - If srcTAG = Now.ToShortDateString Then - Button5.Text = "Heute" - ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then - Button5.Text = "Gestern" - ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then - Button5.Text = "Vorgestern" - Else - Button5.Text = srcTAG.ToString("dd.MM") - End If - - 'End If - Case "" - DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) - DateTimePicker2.Value = Now - End Select - btnSuche.PerformClick() - End Sub - - Dim biningInit = False - - Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click - Me.Cursor = Cursors.WaitCursor - - Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") - Dim sqlstr As String = "" - - - ' bindPOST = New cEasyBinding("FMZOLL") - sqlstr &= " SELECT " & TopMax & " atr_id,atr_documentNr, atr_austellungsdatum, atr_FilialenNr, atr_AbfertigungsNr, atr_LKW,atr_EmpfaengerKdNr, atr_Empfaenger, atr_AbsenderKdNr,atr_Absender, atr_Sachbearbeiter,atr_DHL_ReferenzNr FROM [tblOriginalATR] WHERE 1=1 " - - With MyDatagridview1 - .SET_SQL(sqlstr & getWhere() & " ORDER BY atr_austellungsdatum desc", "FMZOLL", getList) - .LOAD() - - lblErgebnis.Text = "Ergebnisse: " & .Rows.Count - - ' setDGVOptions() - End With - showDGV() - - Me.Cursor = Cursors.Default - - End Sub - - - Function getWhere() As String - Dim sqlstr = "" - - - If cboDatum._value = "ADat" Then - - If txtAbfertDat.Text <> "" Then - If txtAbfertDatBis.Text <> "" Then - sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) " - Else - sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) " - End If - End If - ElseIf cboDatum._value = "EDat" Then - - If txtAbfertDat.Text <> "" Then - If txtAbfertDatBis.Text <> "" Then - sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @DatumBis) " - Else - sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @Datum ) " - End If - End If - End If - - - If txtSuche._value <> "" Then - sqlstr &= " AND ( " - sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR " - sqlstr &= " atr_absender LIKE '" & txtSuche._value & "%' OR " - sqlstr &= " atr_empfaenger LIKE '" & txtSuche._value & "%' OR " - sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' OR " - sqlstr &= " atr_LKW LIKE '" & txtSuche._value & "%' OR " - sqlstr &= " atr_location LIKE '" & txtSuche._value & "%' OR " - sqlstr &= " atr_info LIKE '" & txtSuche._value & "%' OR " - sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' " - sqlstr &= " ) " - End If - - If txtAbfertigungsnummer.Text <> "" Then - ' If txtAbfertigungsnummerBis.Text <> "" Then - 'sqlstr &= " AND ([vk_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) " - 'Else - 'sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr " - 'End If - sqlstr &= " AND atr_AbfertigungsNr LIKE @AbfertigungsNr " - End If - ' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr " - If cboFiliale._value <> "" Then sqlstr &= " AND [atr_FilialenNr] LIKE @FilialenNr " - - If txtSB._value <> "" Then sqlstr &= " AND [atr_mitId] = @PersonalnummerQS " - If txtLKWKennzeichen.Text <> "" Then sqlstr &= " AND [atr_LKW] LIKE @LKW " - If txtFEmpfänger.Text <> "" Then sqlstr &= " AND [atr_empfaenger] LIKE @Empfaenger " - If txtAbsender.Text <> "" Then sqlstr &= " AND [atr_absender] LIKE @Absender " - If txtDocumetNummer.Text <> "" Then sqlstr &= " AND [atr_documentNr] LIKE @DocumentNummer " - - If txtReferenz.Text <> "" Then sqlstr &= " AND [atr_DHL_ReferenzNr] LIKE @Referenz " - - Return sqlstr - End Function - Function getList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", txtAbfertDat.Text & " 00:00:00")) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumBis", txtAbfertDatBis.Text & " 23:59:59")) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%"))) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNummer", txtDocumetNummer.Text.Replace("*", "%"))) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", txtSB._value)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKWKennzeichen.Text.Replace("*", "%"))) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", txtAbsender.Text.Replace("*", "%"))) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfaenger", txtFEmpfänger.Text.Replace("*", "%"))) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz", txtReferenz.Text.Replace("*", "%"))) - - Return list - - End Function - - Sub showDGV() - - With MyDatagridview1 - - If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub - .RowHeadersVisible = False - ' .ReadOnly = True - .SelectionMode = DataGridViewSelectionMode.FullRowSelect - .MultiSelect = False - - - .Columns("atr_id").Visible = False - ' .Columns("post_art").Visible = False - ' .Columns("post_KdAuftrNrAvisierer").Visible = False - ' .Columns("atr_EmpfaengerKdNr").Visible = False - ' .Columns("atr_AbsenderKdNr").Visible = False - - .Columns("atr_FilialenNr").Width = 45 - .Columns("atr_FilialenNr").HeaderText = "Filiale" - .Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("atr_AbfertigungsNr").Width = 80 - .Columns("atr_AbfertigungsNr").HeaderText = "Abf-Nr" - .Columns("atr_AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("atr_documentNr").Width = 120 - .Columns("atr_documentNr").HeaderText = "ATR-Nr" - .Columns("atr_documentNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("atr_austellungsdatum").Width = 100 - .Columns("atr_austellungsdatum").HeaderText = "Datum" - .Columns("atr_austellungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - - .Columns("atr_LKW").Width = 120 - .Columns("atr_LKW").HeaderText = "LKW Kennz." - - - - .Columns("atr_EmpfaengerKdNr").HeaderText = "KdNr" - .Columns("atr_EmpfaengerKdNr").Width = 50 - .Columns("atr_Empfaenger").HeaderText = "Empfänger" - .Columns("atr_Empfaenger").Width = 150 - - .Columns("atr_AbsenderKdNr").HeaderText = "KdNr" - .Columns("atr_AbsenderKdNr").Width = 50 - .Columns("atr_Absender").HeaderText = "in Auftrag" - .Columns("atr_Absender").Width = 150 - - .Columns("atr_Sachbearbeiter").MinimumWidth = 100 - .Columns("atr_Sachbearbeiter").HeaderText = "Sachb." - - .Columns("atr_DHL_ReferenzNr").HeaderText = "Referenz Paketdienst" - .Columns("atr_DHL_ReferenzNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - - - End With - End Sub - - - Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click - btnSuche.PerformClick() - ' MyDatagridview1.RELOAD() - ' setDGVOptions() - End Sub - - 'Sub setDGVOptions() - ' Try - ' With MyDatagridview1 - ' For Each r As DataGridViewRow In .Rows - ' If r.Cells("vk_storno").Value IsNot DBNull.Value AndAlso r.Cells("vk_storno").Value Then - ' r.DefaultCellStyle.ForeColor = Color.Red - ' ElseIf r.Cells("vk_GeldEingetroffen").Value IsNot DBNull.Value AndAlso r.Cells("vk_GeldEingetroffen").Value Then - ' r.DefaultCellStyle.ForeColor = Color.DarkGreen - ' End If - ' Next - ' End With - ' Catch ex As Exception - ' MsgBox(ex.Message) - ' End Try - 'End Sub - Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click - Me.Cursor = Cursors.WaitCursor - cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False) - Me.Cursor = Cursors.Default - End Sub - - - - - Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click - srcTAG = srcTAG.AddDays(-1) - initBtns("Tag") - End Sub - - Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click - srcTAG = srcTAG.AddDays(1) - initBtns("Tag") - End Sub - - Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click - initBtns("Tag") - End Sub - - Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click - initBtns("Monat") - End Sub - - - - Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click - initBtns("Jahr") - End Sub - - Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click - MONAT = MONAT.AddMonths(1) - initBtns("Monat") - End Sub - - Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click - MONAT = MONAT.AddMonths(-1) - initBtns("Monat") - End Sub - - Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click - JAHR = JAHR.AddYears(1) - initBtns("Jahr") - End Sub - - Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click - JAHR = JAHR.AddYears(-1) - initBtns("Jahr") - End Sub ' - - Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click - - If MyDatagridview1.SelectedRows.Count > 0 Then - Dim ATR As New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value) - If vbYes <> MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then Exit Sub - ATR.DELETE() - btnSuche.PerformClick() - - 'MyDatagridview1.RELOAD() - ' setDGVOptions() - End If - - End Sub - - - Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles MyDatagridview1.DoubleClick - If MyDatagridview1.SelectedRows.Count = 0 And MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub - - Dim atr_id = MyDatagridview1.SelectedRows(0).Cells("atr_id").Value - Dim f As New frmATR(atr_id) - f.ShowDialog(Me) - btnSuche.PerformClick() - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - Dim f As New frmATR - f.ShowDialog(Me) - btnSuche.PerformClick() - End Sub - - Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged - - End Sub - - Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown - If e.KeyCode = Keys.Return Then - btnSuche.PerformClick() - End If - End Sub - - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSendungKoppeln.Click - If MyDatagridview1.SelectedRows.Count > 0 Then - Dim ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value) - If ATR IsNot Nothing Then - - If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then - If ATR.atr_dsId < 0 Then MsgBox("Kein PDF-Anhang!") : Exit Sub - Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID) - ANH.anh_SendungsId = SendungsId - Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) - ANH.anh_AvisoId = SND.tblSnd_AvisoID - ANH.anh_docId = ATR.atr_dsId - ANH.anh_Name = "ATR_ARCHIV" - ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ATR.atr_dsId)) - ANH.anh_Art = "ATR" - If ANH.SAVE() Then 'Eintrag wird überschreiben - ATR.atr_anhID = ANH.anh_id - ATR.atr_SendungsId = SendungsId - ATR.atr_AvisoId = SND.tblSnd_AvisoID - ATR.atr_FilialenNr = SND.FilialenNr - ATR.atr_AbfertigungsNr = SND.AbfertigungsNr - If ATR.SAVE() Then - frmATR.insertVermerkATR(ATR) - Me.Close() - End If - End If - End If - End If - End If - - End Sub - - Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click - Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv" - Process.Start(webAddress) - End Sub -End Class - diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index b37f53f5..10ccecb1 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + From 63a9e58e0a1d7aea8d59cccd7bf7028dc1a62cb4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 10 Nov 2025 17:15:23 +0100 Subject: [PATCH 14/18] fremdrechnungen --- SDL/mdm/usrcntlFremdrechnungen.vb | 56 ++++++++++++++++++++----------- 1 file changed, 37 insertions(+), 19 deletions(-) diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index c4b02701..507d71db 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -424,29 +424,32 @@ Public Class usrcntlFremdrechnungen End If '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt - If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then - Dim counter = 0 - Dim landBez As String = "" - For Each row As DataRow In dtKundeMWST.Rows - landBez &= "'" & row.Item("LandKz") & "'" - counter = counter + 1 - If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= "," - Next - SQLWhere &= " OR " & land & " in (" & landBez & ")" + If dtKundeMWST IsNot Nothing Then + If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then + Dim counter = 0 + Dim landBez As String = "" + For Each row As DataRow In dtKundeMWST.Rows + landBez &= "'" & row.Item("LandKz") & "'" + counter = counter + 1 + If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= "," + Next + SQLWhere &= " OR " & land & " in (" & landBez & ")" + End If End If + SQLWhere &= ")" - 'nicht NOTWENDIG! - 'Select Case KUNDE.LandKz - ' Case "SRB", "BIH", "MK", "MNE", "TR" - ' If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")" - 'End Select + 'nicht NOTWENDIG! + 'Select Case KUNDE.LandKz + ' Case "SRB", "BIH", "MK", "MNE", "TR" + ' If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")" + 'End Select - End If + End If - Return SQLWhere + Return SQLWhere End Function @@ -533,7 +536,7 @@ Public Class usrcntlFremdrechnungen Else - If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then + If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then Dim counter = 0 Dim landBez As String = "" For Each row As DataRow In dtKundeMWST.Rows @@ -546,6 +549,12 @@ Public Class usrcntlFremdrechnungen SQLWhere &= ")" End If End If + + If dtKundeMWST Is Nothing AndAlso dtKundeMWSTTemp Is Nothing Then + SQLWhere &= ")" + End If + + Return SQLWhere End Function @@ -1435,10 +1444,10 @@ Public Class usrcntlFremdrechnungen If Not SplitContainer1.Panel2Collapsed Then Select Case aktLieferant - Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) + Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value,, dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value) Case "ALLE" If dgvLFRechnung.Columns.Contains("Lieferant") AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value = "IDS" Then - initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) + initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value,, dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value) Else dgvDetails.Visible = False End If @@ -1469,6 +1478,15 @@ Public Class usrcntlFremdrechnungen Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As DataTable + + + If dtKundeMWSTTemp Is Nothing AndAlso KundenNr_Input > 0 Then + dtKundeMWSTTemp = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KundenNr_Input, "FMZOLL") + End If + + + + Dim sql = " select [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,[Country] as Land FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country", , KundenNr_Input, dtKundeMWSTTemp) From 7efc1d052a6e343750ce811ee236f6c002ab3bc5 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 13 Nov 2025 11:03:37 +0100 Subject: [PATCH 15/18] RMC, Bearbeiten, Nacherfassung Leihgeld, etc. --- SDL/Classes/cRKSV.vb | 1226 ++++++++++++++--- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmUSTVoffeneAntraege.vb | 6 +- .../frmNacherfassungLeihgeld.Designer.vb | 4 +- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 1 - .../usrcntlKundeBearbeitenFull.Designer.vb | 720 +++++----- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 6 +- VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb | 5 +- VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb | 3 +- 9 files changed, 1402 insertions(+), 573 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index fddb9da6..15e165eb 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1,6 +1,12 @@ -Imports SDL.RKSVServer -Imports System.Drawing.Printing +Imports System.Drawing.Printing +Imports com.sun.xml.internal.rngom.digested +Imports com.sun.xml.internal.ws.api.pipe +Imports com.sun.xml.internal.xsom.impl.WildcardImpl Imports GrapeCity.ActiveReports +Imports GrapeCity.DataVisualization.TypeScript +Imports GrapeCity.Documents.DX.DirectWrite +Imports SDL.RKSVServer +Imports sun.security.provider.certpath Imports VERAG_PROG_ALLGEMEIN.DSFinVKService Imports VERAG_PROG_ALLGEMEIN.TESTJSON @@ -2372,11 +2378,11 @@ Public Class cRKSV ' Buchung im EABeleg eintragen. '################ - 'If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then - ' Dim stapelbuchung As Boolean = True - ' 'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List) + If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then + Dim stapelbuchung As Boolean = False + 'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List) - 'End If + End If BELEG.gebucht = True BELEG.SAVE() @@ -2406,245 +2412,1055 @@ Public Class cRKSV Private Shared Function createSyskaBuchung(RKSV_id As Integer, beleg As EABeleg, Stapelbuchung As Boolean, KBEntry_list As List(Of cKassenbuch), KBEntryGB_list As List(Of cKassenbuch), KBEntryST_list As List(Of cKassenbuch)) As Boolean - Dim mandant As Integer = 7 'ATILLA - Dim Buchungstext As String = beleg.LKW_Kennzeichen + "_" + beleg.Frachtführer + "_" + beleg.Fahrer + "_" + beleg.Passnummer - Dim BuchungstextBemerkung As String = "" - If Buchungstext.ToString.Length > 48 Then - BuchungstextBemerkung = Buchungstext.Substring(49, Buchungstext.ToString.Length - 48) - Buchungstext = Buchungstext.Substring(0, 48) + If Not Stapelbuchung Then + + If beleg.Beleg_TYP = "L" Then + + + Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim MANDANT As Integer = 9 'ATILLA = 7 ' TEST = 9 + Dim Kassenkonto As Integer = 2700 + Dim BelegBuchungsKreis As String = "KE" + + Dim JAHR As Integer = Now.Year + Dim PERIODE As Integer = Now.Month + Dim BETRAG As Double = 0 + Dim TYP As String = "EINZAHLUNG" + + Dim Kontonummer As Integer = 0 + Dim Sollkonto As Integer = 0 + Dim Habenkonto As Integer = 0 + Dim Personenkonto As Integer = 0 + Dim kontenzaehler As Integer = 0 + + Dim Bestandskonto As Integer = 0 + Dim Erlöskonto As Integer = 0 + + If beleg.KundenNr > 0 Then + Habenkonto = beleg.KundenNr + Kontonummer = beleg.KundenNr + End If + + Personenkonto = Habenkonto '/* die ersten 2 Kontovoraussetzungen schaffen */ + + Dim dt_Verbuchungskonten As New DataTable + dt_Verbuchungskonten.Columns.Add("Nr", GetType(Integer)) + dt_Verbuchungskonten.Columns.Add("Konto", GetType(Integer)) + dt_Verbuchungskonten.Columns.Add("Soll", GetType(Double)) + dt_Verbuchungskonten.Columns.Add("Haben", GetType(Double)) + + 'ist immer nur 1 POSITION!!!!! + + For Each r In KBEntry_list + BETRAG = r.Betrag + Next + + 'Bestandkonto und Erlöskonto immer fix! + Dim Forderungskonto As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT i_fordkto FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & beleg.KundenNr & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU",, "2000") + + For Each r In KBEntryGB_list + + Dim R1 As DataRow = dt_Verbuchungskonten.NewRow + R1("Nr") = 1 + R1("Konto") = Personenkonto + R1("Soll") = 0 + R1("Haben") = 0 + dt_Verbuchungskonten.Rows.Add(R1) + kontenzaehler += 1 + + Dim R2 As DataRow = dt_Verbuchungskonten.NewRow + R2("Nr") = kontenzaehler + R2("Konto") = Forderungskonto + R2("Soll") = 0 + R2("Haben") = 0 + dt_Verbuchungskonten.Rows.Add(R2) + kontenzaehler += 1 + + Dim R3 As DataRow = dt_Verbuchungskonten.NewRow + R3("Nr") = 1 + R3("Konto") = r.Konto + R3("Soll") = r.Soll + R3("Haben") = r.Haben + dt_Verbuchungskonten.Rows.Add(R3) + kontenzaehler += 1 + + If r.Buchungstext = "AUSZAHLUNG" Then + BelegBuchungsKreis = "KA" + TYP = r.Buchungstext + Else + TYP = r.Buchungstext + BelegBuchungsKreis = "KE" + End If + + Dim R4 As DataRow = dt_Verbuchungskonten.NewRow + R4("Nr") = kontenzaehler + R4("Konto") = Kassenkonto + R4("Soll") = r.Haben + R4("Haben") = r.Soll + dt_Verbuchungskonten.Rows.Add(R4) + kontenzaehler += 1 + + Next + + Dim Buchungstext As String = BelegBuchungsKreis & "_" & beleg.AbfertigungsNr & "_" & beleg.LKW_Kennzeichen & "_" & beleg.Frachtführer & "_" & beleg.Fahrer & "_" & beleg.Passnummer + Dim BuchungstextBemerkung As String = "" + If Buchungstext IsNot Nothing AndAlso Buchungstext.Length > 48 Then + BuchungstextBemerkung = Buchungstext.Substring(48) + Buchungstext = Buchungstext.Substring(0, 48) + End If + + + + Dim dt_Sollkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT top(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Sollkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU") + If dt_Sollkonto.Rows.Count > 0 Then + Sollkonto = dt_Sollkonto.Rows(0).Item("i_kennung") + End If + Dim dt_Habenkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT TOP(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Habenkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU") + If dt_Habenkonto.Rows.Count > 0 Then + Habenkonto = dt_Habenkonto.Rows(0).Item("i_kennung") + End If + 'STAPEL NICHT NOTWENDIG + Dim StapelAZK As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_stapelart.i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE [FIBU2].dbo.fibu_stapelart.c_stapelname LIKE 'Auszahlungskasse 1' AND [FIBU2].dbo.fibu_stapelart.i_firm_refid = " & MANDANT, "FIBU",, "") + Dim Zaehler1 As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT COUNT([FIBU2].dbo.fibu_stapel.i_lfdnr) FROM [FIBU2].dbo.fibu_stapel WHERE ISNULL([FIBU2].dbo.fibu_stapel.si_pruef, 0) > 0", "FIBU",, "0") + + If CInt(Zaehler1) > 0 Then + StapelAZK = VERAG_SQL.getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_stapelart.i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE [FIBU2].dbo.fibu_stapelart.c_stapelname LIKE 'Auszahlungskasse 2' AND [FIBU2].dbo.fibu_stapelart.i_firm_refid = " & MANDANT, "FIBU",, "") + End If + Dim ZSBuchnr As String = "" + If StapelAZK <> "" Then ZSBuchnr = VERAG_SQL.getValueTxtBySqlVarList("SELECT MAX([FIBU2].dbo.fibu_stapel.i_lfdnr)+1 FROM [FIBU2].dbo.fibu_stapel WHERE [FIBU2].dbo.fibu_stapel.i_firm_refid = " & MANDANT & " AND [FIBU2].dbo.fibu_stapel.i_stapel_refid = " & StapelAZK, "FIBU",, "0") + Dim ZSBuchnrINT As Integer + If ZSBuchnr = "" Or ZSBuchnr = "0" Then + ZSBuchnrINT = 1 + Else + ZSBuchnrINT = CInt(ZSBuchnr) + End If + + If StapelAZK = "" Then StapelAZK = "0000" + + Dim timestamp As String = Now.ToString("dd HH:mm:ss") + Dim ProtokollID As String = StapelAZK.ToString() & "-" & ZSBuchnrINT.ToString("0000") & "-" & JAHR & "-" & PERIODE.ToString("N2") & "-" & timestamp + + Dim pruef As Integer = 0 + Dim ZSzeilenr As Integer = 0 + Dim Belegart As Integer = 1 + Dim Splitart As Integer = 0 + + '1. Belegssalden anlegen, falls nicht vorhanden! - erste Schleife (Schleifen1rec) + For Each konto As DataRow In dt_Verbuchungskonten.Rows + erstelleEBSalden(MANDANT, JAHR, konto.Item("Konto")) + Next + + Dim i_beleg_refid As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_nummern.i_nummer_refid + 1 From [FIBU2].dbo.fibu_nummern Where [FIBU2].dbo.fibu_nummern.i_firm_refid = " & MANDANT & " And [FIBU2].dbo.fibu_nummern.c_nummernart Like 'Buchungsnummer' ", "FIBU",, "0") + Dim Buchungstyp = "g" + Dim i_op_refid = "" + + If i_beleg_refid <> "" AndAlso IsNumeric(i_beleg_refid) Then + + i_op_refid = i_beleg_refid + + If BETRAG <> 0 AndAlso TYP = "EINZAHLUNG" Then + + VERAG_SQL.doSQL("UPDATE [FIBU2].dbo.fibu_nummern SET [FIBU2].dbo.fibu_nummern.i_nummer_refid = " & i_beleg_refid & " WHERE [FIBU2].dbo.fibu_nummern.i_firm_refid = " & MANDANT & " And [FIBU2].dbo.fibu_nummern.c_nummernart Like 'Buchungsnummer'", "FIBU") + + End If + + End If + + insertBelegskopf(MANDANT, JAHR, 1, i_beleg_refid, beleg.BelegDat.ToShortDateString, beleg.BelegNr, Belegart, Buchungstext, BETRAG, "EUR", Now().ToShortTimeString, "AUTO", ProtokollID) + + Dim ckennsoll2 = "KO" ' erste Buchungszeile + Dim SollHabenKZ = "S" + Dim sollkonto2 As Integer = 0 + Dim Habenkonto2 As Integer = 0 + + Dim SollSumme As Double = 0 + + Dim dec_sollsumme As Double = 0 + Dim dec_habensumme As Double = 0 + + ZSzeilenr += 1 + + If TYP = "EINZAHLUNG" Then + + If BETRAG <> 0 Then + + sollkonto2 = Bestandskonto + Habenkonto2 = Kontonummer '/* gilt für den ersten Datensatz der ersten Buchungszeile pro Artikel */ + + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_sollsumme = Convert.ToDecimal(row("Soll")) + End If + row("Soll") = dec_sollsumme + BETRAG + + End If + + End If + + + + ElseIf TYP = "AUSZAHLUNG" Then + + If BETRAG <> 0 Then + + sollkonto2 = Erlöskonto + Habenkonto2 = 0 + dec_sollsumme = 0 + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_sollsumme = Convert.ToDecimal(row("Soll")) + End If + row("Soll") = dec_sollsumme + BETRAG * (-1) + End If + + + End If + + End If + + '1. Belegszeile + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + + If TYP = "AUSZAHLUNG" Then + + If BETRAG <> 0 Then + + 'BEGIN /* bei Auszahlung die zweite Datenzeile zur ersten Bestandskontobuchung */ + + ZSzeilenr += 1 + + sollkonto2 = Bestandskonto + Habenkonto2 = 0 + ckennsoll2 = "KO" + SollHabenKZ = "H" + + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Haben")) Then + dec_habensumme = Convert.ToDecimal(row("Haben")) + End If + row("Haben") = dec_habensumme + BETRAG * (-1) + End If + + End If + + Else + + + End If + + '2. Belegszeile + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + + 'End /* Direktverbuchung der zweiten Datenzeile */ + 'End /* bei Auszahlung die zweite Datenzeile zur Bestandskontobuchung */ + + + 'BEGIN /* Direktverbuchung der Sammelkundenbuchung */ + + 'SET @c_sprache = (SELECT [FIBU2].dbo.fibu_konto.c_sprache FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = @Sollkonto2 And [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr) + + 'SET @c_ustidnr = (SELECT [FIBU2].dbo.fibu_konto.c_ustidnr FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = @Sollkonto2 And [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr) + + 'SET @c_zahlziel = (SELECT [FIBU2].dbo.fibu_konto.c_zahlziel FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = @Sollkonto2 And [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr) + + 'SET @Skontotage = (SELECT [FIBU2].dbo.fibu_zahlziel.si_tage FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_zahlziel.c_zahlziel Like @c_zahlziel) + 'If @Skontotage Is NULL SET @Skontotage = 0 + + 'SET @Skonto = (SELECT [FIBU2].dbo.fibu_zahlziel.dec_skonto FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_zahlziel.c_zahlziel Like @c_zahlziel) + 'If @Skonto Is NULL SET @Skonto = 0 + + 'SET @Nettotage = (SELECT [FIBU2].dbo.fibu_zahlziel.si_ntage FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_zahlziel.c_zahlziel Like @c_zahlziel) + 'If @Nettotage Is NULL SET @Nettotage = 0 + + 'SET @Skontodatum = DATEADD(DAY, @Skontotage, @gDatumKurz) + 'SET @Nettodatum = DATEADD(DAY, @Nettotage, @gDatumKurz) + + If TYP = "EINZAHLUNG" Then + ZSzeilenr += 1 + If BETRAG > 0 Then + + 'BEGIN /* dritte Buchungszeile */ + sollkonto2 = Forderungskonto + Habenkonto2 = Bestandskonto + ckennsoll2 = "DB" + SollHabenKZ = "H" + + + sollkonto2 = Forderungskonto + Habenkonto2 = 0 + ckennsoll2 = "DB" + SollHabenKZ = "S" + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_habensumme = Convert.ToDecimal(row("Soll")) + End If + row("Soll") = dec_habensumme + BETRAG + End If + '3. Buchungszeile + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + + End If + + Else + ZSzeilenr += 1 + + If BETRAG > 0 Then + sollkonto2 = Forderungskonto + Habenkonto2 = 0 + ckennsoll2 = "DB" + SollHabenKZ = "S" + + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_habensumme = Convert.ToDecimal(row("Soll")) + End If + row("Soll") = dec_habensumme + BETRAG * (-1) + End If + + End If + + '4. Buchungszeile + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + End If + + ZSzeilenr += 1 + + + If TYP = "AUSZAHLUNG" Then + + If BETRAG > 0 Then + + 'BEGIN /* fünfte Buchungszeile bei Auszahlung und Direktverbuchung */ + + sollkonto2 = Erlöskonto + Habenkonto2 = 0 + ckennsoll2 = "KO" + SollHabenKZ = "H" + + 'SET @dec_habensumme = (SELECT OWNFIELD_Haben FROM OWNTABLE_Verbuchungskonten WHERE OWNFIELD_Konto = @Sollkonto2) + 'UPDATE OWNTABLE_Verbuchungskonten SET OWNFIELD_Haben = (@dec_habensumme + @B_Bruttobetrag * (-1)) WHERE OWNFIELD_Konto = @Sollkonto2 + + '5. Buchungszeile + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + + End If + End If + + 'BEGIN /* Fortsetzung bei Direktverbuchung */ + + 'SET @updatekonto = @i_fordkto + + 'SET @dec_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.dec_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @eur_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'If @Einzahlungsbetrag <> 0 + 'BEGIN /* Einzahlung */ + 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) + 'SET @dec_sollsumme = (@dec_sollsumme - 0) + 'SET @dec_habensumme = (@dec_habensumme + @B_Bruttobetrag) + 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) + 'End /* Einzahlung */ + 'Else BEGIN /* Auszahlung */ + 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) + 'SET @dec_sollsumme = (@dec_sollsumme - @B_Bruttobetrag) + 'SET @dec_habensumme = (@dec_habensumme + 0) + 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) + 'End /* Auszahlung */ + + 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_aktuellersaldo = @dec_aktuellersaldo, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme, eur_aktuellersaldo = @eur_aktuellersaldo WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto + + 'SET @updatekonto = CAST(@Bestandskonto AS INTEGER) + 'SET @i_Sachkonto = @updatekonto + + 'SET @dec_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.dec_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @eur_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'If @Einzahlungsbetrag <> 0 + 'BEGIN /* Einzahlung */ + 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo + @B_Bruttobetrag) + 'SET @dec_sollsumme = (@dec_sollsumme + @B_Bruttobetrag) + 'SET @dec_habensumme = (@dec_habensumme + 0) + 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo + @B_Bruttobetrag) + 'End /* Einzahlung */ + 'Else BEGIN /* Auszahlung */ + 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo + @B_Bruttobetrag) + 'SET @dec_sollsumme = (@dec_sollsumme - 0) + 'SET @dec_habensumme = (@dec_habensumme - @B_Bruttobetrag) + 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo + @B_Bruttobetrag) + 'End /* Auszahlung */ + + 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_aktuellersaldo = @dec_aktuellersaldo, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme, eur_aktuellersaldo = @eur_aktuellersaldo WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto + + 'If @Auszahlungsbetrag <> 0 + 'BEGIN /* Erlöskonto bei Auszahlung */ + + 'SET @updatekonto = CAST(@Erlöskonto AS INTEGER) + 'SET @i_Sachkonto = @updatekonto + + 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_sollsumme = (@dec_sollsumme - @B_Bruttobetrag) + 'SET @dec_habensumme = (@dec_habensumme - @B_Bruttobetrag) + + 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto + + 'End /* Erlöskonto bei Auszahlung */ + + 'SET @updatekonto = CAST(@Kontonummer AS INTEGER) + + 'SET @dec_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.dec_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'SET @eur_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) + + 'If @Einzahlungsbetrag <> 0 + 'BEGIN /* Einzahlung */ + 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) + 'SET @dec_sollsumme = (@dec_sollsumme + 0) + 'SET @dec_habensumme = (@dec_habensumme + @B_Bruttobetrag) + 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) + 'SET @opvorgangsbetrag = @B_Bruttobetrag * (-1) + 'End /* Einzahlung */ + 'Else BEGIN /* Auszahlung */ + 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) + 'SET @dec_sollsumme = (@dec_sollsumme - @B_Bruttobetrag) + 'SET @dec_habensumme = (@dec_habensumme - 0) + 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) + 'SET @opvorgangsbetrag = @B_Bruttobetrag * (-1) / CAST(2 AS FLOAT) + 'End /* Auszahlung */ + + 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_aktuellersaldo = @dec_aktuellersaldo, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme, eur_aktuellersaldo = @eur_aktuellersaldo WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto + + 'Saldenperioden! + For Each konto As DataRow In dt_Verbuchungskonten.Rows 'Schleifen2rec + If Not IsDBNull(konto("Soll")) AndAlso konto("Soll") <> 0 Or Not IsDBNull(konto("Haben")) AndAlso konto("Haben") <> 0 Then + periodenBuchungen(PERIODE, konto("Konto"), MANDANT, JAHR, konto("Soll"), konto("Haben")) + End If + Next + + createOP(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", 1, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + + End If + End If + + + + End Function + + Private Shared Sub erstelleEBSalden(mandant As String, Jahr As Integer, Konto As Integer) + + Dim Zaehler As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("Select COUNT([FIBU2].dbo.fibu_periodensaldo.i_konto) FROM [FIBU2].dbo.fibu_periodensaldo WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = " & mandant & "And [FIBU2].dbo.fibu_periodensaldo.si_jahr =" & Jahr & " And [FIBU2].dbo.fibu_periodensaldo.i_konto = " & Konto, "FIBU",, "0") + Dim aktSAldo As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("Select [FIBU2].dbo.fibu_konto.dec_aktuellersaldo FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & mandant & " And [FIBU2].dbo.fibu_konto.i_konto = " & Konto, "FIBU",, "0") + If Zaehler = "" Or Zaehler = "0" Then + + If aktSAldo = "" Then aktSAldo = "0" + aktSAldo = aktSAldo.Replace(",", ".") + + + + '• Für alle dort enthaltenen Konten stellt es sicher, dass es im aktuellen Jahr Periodensalden in fibu_periodensaldo gibt (falls nicht, werden Null-EBs angelegt)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + Dim SQL_UPATE As String = "INSERT INTO [FIBU2].dbo.fibu_periodensaldo ( + i_firm_refid, si_jahr, i_konto, i_perioden, + dec_eroeff, dec_abschluss, + dec_soll_1, dec_haben_1, dec_soll_2, dec_haben_2, dec_soll_3, dec_haben_3, + dec_soll_4, dec_haben_4, dec_soll_5, dec_haben_5, dec_soll_6, dec_haben_6, + dec_soll_7, dec_haben_7, dec_soll_8, dec_haben_8, dec_soll_9, dec_haben_9, + dec_soll_10, dec_haben_10, dec_soll_11, dec_haben_11, dec_soll_12, dec_haben_12, + dec_soll_13, dec_haben_13, + eur_eroeff, eur_abschluss, + eur_soll_1, eur_haben_1, eur_soll_2, eur_haben_2, eur_soll_3, eur_haben_3, + eur_soll_4, eur_haben_4, eur_soll_5, eur_haben_5, eur_soll_6, eur_haben_6, + eur_soll_7, eur_haben_7, eur_soll_8, eur_haben_8, eur_soll_9, eur_haben_9, + eur_soll_10, eur_haben_10, eur_soll_11, eur_haben_11, eur_soll_12, eur_haben_12, + eur_soll_13, eur_haben_13, i_buchungskreis + ) + VALUES('" & mandant & "', '" & Jahr & "', '" & Konto & "', 0, " & aktSAldo & ", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, " & aktSAldo & ", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 1)" + + + Dim erstellt As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_UPATE, "FIBU") + End If - Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL - - '2 - 'Default-Values - 'IF ISNULL(@Kassakonto, '') = '' SET @Kassakonto = '2700' - 'SET @Buchungsbelegkreis = 'KE' - 'If @Auszahlungsbetrag <> 0 SET @Buchungsbelegkreis = 'KA' - '3 - 'Anmerkung „Stornobuchung“, wenn Ein-/Auszahlung negativ. + End Sub - '4 - 'Ermittelt Debitoren-Personenkonto (@i_personenkonto = Kundenkonto) und Durchbuchungskonto @i_fordkto (default 2000). - - Dim Sollkonto As Integer = 0 - Dim Habenkonto As Integer = 0 - Dim kontenzaehler As Integer = 0 - - If beleg.KundenNr > 0 Then - Habenkonto = beleg.KundenNr - End If - - Dim Forderungskonto As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT i_fordkto FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Habenkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & mandant, "FIBU",, "2000") - - 'Baut eine temporäre Verbuchungskonten-Tabelle OWNTABLE_Verbuchungskonten: - - Dim dt_Verbuchungskonten As New DataTable - dt_Verbuchungskonten.Columns.Add("Nr", GetType(Integer)) - dt_Verbuchungskonten.Columns.Add("Konto", GetType(Integer)) - dt_Verbuchungskonten.Columns.Add("Soll", GetType(Double)) - dt_Verbuchungskonten.Columns.Add("Haben", GetType(Double)) - - 'Einträge für Personenkonto und Durchbuchungskonto (Spalten für kumuliertes Soll/Haben). - - Dim R1 As DataRow = dt_Verbuchungskonten.NewRow - R1("Nr") = 1 - R1("Konto") = Habenkonto - R1("Soll") = 1 - R1("Haben") = 1 - dt_Verbuchungskonten.Rows.Add(R1) - kontenzaehler += 1 - - Dim R2 As DataRow = dt_Verbuchungskonten.NewRow - R2("Nr") = 1 - R2("Konto") = CInt(Forderungskonto) - R2("Soll") = 1 - R2("Haben") = 1 - dt_Verbuchungskonten.Rows.Add(R2) - kontenzaehler += 1 - - Dim dt_Sollkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT top(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Sollkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & mandant, "FIBU") - Dim dt_Habenkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT TOP(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Habenkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & mandant, "FIBU") - - Dim StapelAZK As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_stapelart.i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE [FIBU2].dbo.fibu_stapelart.c_stapelname LIKE 'Auszahlungskasse 1' AND [FIBU2].dbo.fibu_stapelart.i_firm_refid = " & mandant, "FIBU",, "") - Dim Zaehler1 As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT COUNT([FIBU2].dbo.fibu_stapel.i_lfdnr) FROM [FIBU2].dbo.fibu_stapel WHERE ISNULL([FIBU2].dbo.fibu_stapel.si_pruef, 0) > 0", "FIBU",, "0") - - If CInt(Zaehler1) > 0 Then - StapelAZK = VERAG_SQL.getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_stapelart.i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE [FIBU2].dbo.fibu_stapelart.c_stapelname LIKE 'Auszahlungskasse 2' AND [FIBU2].dbo.fibu_stapelart.i_firm_refid = " & mandant, "FIBU",, "") - End If - - Dim ZSBuchnr As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT MAX([FIBU2].dbo.fibu_stapel.i_lfdnr)+1 FROM [FIBU2].dbo.fibu_stapel WHERE [FIBU2].dbo.fibu_stapel.i_firm_refid = " & mandant & " AND [FIBU2].dbo.fibu_stapel.i_stapel_refid = " & StapelAZK, "FIBU",, "0") - - If ZSBuchnr = "" Or ZSBuchnr = "0" Then - ZSBuchnr = "1" - End If - - Dim ProtokollID As String = "" - - '(CAST(@StapelAZK AS VARCHAR(4)) + '-' + CAST(@ZSBuchnr AS VARCHAR(4)) + '-' + @C_Anno + '-' + REPLICATE('0', 2-LEN(@C_Monat)) + @C_Monat + '-' + REPLICATE('0', 2-LEN(@C_Tag)) + @C_Tag + ' ' + REPLICATE('0', 2-LEN(@C_Stunde)) + @C_Stunde + ':' + REPLICATE('0', 2-LEN(@C_Minute)) + @C_Minute + ':' + REPLICATE('0', 2-LEN(@C_Sekunde)) + @C_Sekunde) - - Dim pruef As Integer = 0 - Dim ZSzeilenr As Integer = 0 - Dim Belegart As Integer = 1 - Dim Splitart As Integer = 0 + Private Shared Sub insertBelegskopf(mandant As Integer, Jahr As Integer, periode As Integer, beleg_ref_id As Integer, datumKurz As String, BelegNr As String, BelegArt As String, Buchungstext As String, Belegkopfbetrag As Double, Waehrung As String, creationDate As String, Benutzer As String, ProtokollID As String) - '• Für alle dort enthaltenen Konten stellt es sicher, dass es im aktuellen Jahr Periodensalden in fibu_periodensaldo gibt (falls nicht, werden Null-EBs angelegt)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + Dim SQL_Insert = "INSERT INTO [FIBU2].dbo.fibu_belegkopf (i_firm_refid, si_jahr, si_periode, i_beleg_refid, d_beleg, c_urbelegid, si_belegart, c_buchtext, dec_betrag, c_waehrung, dec_fremdbetrag, eur_betrag, i_auftragid, d_gebucht, c_benutzer, i_buchungskreis, i_quelle_modul, c_quelle_maske, si_manipulation, i_stapel_refid, c_protokoll_id) + VALUES('" & mandant & "', " & Jahr & ", " & periode & ", " & beleg_ref_id & ", '" & datumKurz & "', '" & BelegNr & "', '" & BelegArt & "', '" & Buchungstext & "', " & Belegkopfbetrag & ", '" & Waehrung & "', " & Belegkopfbetrag & ", " & Belegkopfbetrag & ", 0, '" & creationDate & "', '" & Benutzer & "', 1, 21, 'Fleximport', 0, 2, '" & ProtokollID.Replace(",", ".") & "');" - For Each p As EABelegPositionen In beleg.POS - - Dim dtBetraege = SQL.loadDgvBySql(" SELECT isnull(Sum(tblEABelegposition.Betrag),0) AS Nettobetrag, " & - " isnull(Sum(CASE WHEN [Steuerpflichtig]=1 THEN [Betrag] ELSE 0 END),0) AS SteuerpflichtigerBetrag, " & - " isnull(Sum(cast((CASE WHEN [Steuerpflichtig]=1 THEN [Betrag] ELSE 0 END)* [Steuersatz] as decimal(8,2))),0) AS SteuerBetrag, " & - " isnull(Sum(tblEABelegposition.Betrag+cast((CASE WHEN [Steuerpflichtig]=1 THEN [Betrag] ELSE 0 END)* [Steuersatz] as decimal(8,2))),0) AS Bruttobetrag " & - " FROM tblEABelegnummer INNER JOIN tblSteuersätze ON tblEABelegnummer.Steuerschlüssel = tblSteuersätze.Nr INNER JOIN tblEABelegposition INNER JOIN Leistungen ON tblEABelegposition.LeistungsNr = Leistungen.LeistungsNr ON tblEABelegnummer.Mandant = tblEABelegposition.Mandant AND tblEABelegnummer.Niederlassung = tblEABelegposition.Niederlassung AND tblEABelegnummer.Benutzer = tblEABelegposition.Benutzer AND tblEABelegnummer.BelegDat = tblEABelegposition.BelegDat AND tblEABelegnummer.BelegNr = tblEABelegposition.BelegNr " & - " WHERE tblEABelegposition.Mandant='" & beleg.Mandant & "' AND tblEABelegposition.Niederlassung='" & beleg.Niederlassung & "' AND tblEABelegposition.Benutzer='" & beleg.Benutzer & "' AND tblEABelegposition.BelegDat='" & beleg.BelegDat.ToShortDateString & "' AND tblEABelegposition.BelegNr='" & beleg.BelegNr & "'", "FMZOLL") - - Dim Bruttobetrag As Double = dtBetraege.Rows(0)("Bruttobetrag") - Dim Nettobetrag As Double = dtBetraege.Rows(0)("Nettobetrag") - Dim SteuerBetrag As Double = dtBetraege.Rows(0)("SteuerBetrag") - - '• Einzahlung (@B_Bruttobetrag >= 0) - ' o Erste Zeile: Soll = Bestandskonto(KO), Betrag = @P_Bruttobetrag * (-1) (Vorzeichentricks wegen Gutschriftlogik), Haben leer. - '• Auszahlung (@B_Bruttobetrag < 0) - ' o Erste Zeile: Soll = Erlöskonto(KO), Betrag = @P_Bruttobetrag (positiv), Haben leer. - ' o Zweite Zeile (nur bei Auszahlung): Haben = Bestandskonto(KO), Betrag = @P_Bruttobetrag. + Dim inserted As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert, "FIBU") + End Sub - kontenzaehler += 1 + Private Shared Sub insertBelegszeile(mandant As Integer, Jahr As Integer, periode As Integer, beleg_ref_id As Integer, datumKurz As String, BelegNr As String, BelegArt As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, ZeilenNr As Integer, ckennsoll2 As String, Sollkonto2 As Integer, Habenkonto2 As Integer, SollhabenKZ As String) - If Bruttobetrag >= 0 Then - Dim R_POS As DataRow = dt_Verbuchungskonten.NewRow - R_POS("Nr") = kontenzaehler - R_POS("Konto") = dtBetraege.Rows(0)("Gegenkonto") - R_POS("Soll") = 0 - R_POS("Haben") = 0 - dt_Verbuchungskonten.Rows.Add(R_POS) - Else - Dim R_POS As DataRow = dt_Verbuchungskonten.NewRow - R_POS("Nr") = kontenzaehler - R_POS("Konto") = dtBetraege.Rows(0)("Gegenkonto") - R_POS("Soll") = 0 - R_POS("Haben") = 0 - dt_Verbuchungskonten.Rows.Add(R_POS) + Dim SQL_Insert = "INSERT INTO [FIBU2].dbo.fibu_belegzeile (i_firm_refid, si_jahr, si_periode, si_rel_periode, i_beleg_refid, i_zeilen_refid, c_kennung, i_konto, c_sollhabenkz, i_steuer_refid, i_gegenkonto, dec_betrag, c_waehrung, dec_fremdbetrag, eur_betrag, d_beleg, d_gebucht, c_urbelegid, si_belegart, c_buchtext, i_buchungskreis) + VALUES('" & mandant & "', " & Jahr & ", " & periode & ", " & periode & ", " & beleg_ref_id & ", " & ZeilenNr & ", '" & ckennsoll2 & "', " & Sollkonto2 & ", '" & SollhabenKZ & "', 0, " & Habenkonto2 & ", " & Buchungsbetrag & ", '" & Waehrung & "', " & Buchungsbetrag & ", " & Buchungsbetrag & ", '" & datumKurz & "', '" & datumKurz & "', '" & BelegNr & "','" & BelegArt & "', '" & Buchungstext & "', 1);" + + Dim inserted As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert, "FIBU") + + + End Sub + + Private Shared Sub periodenBuchungen(periode As Integer, konto As Integer, Mandant As String, Jahr As Integer, Sollsumme As Double, HabenSumme As Double) + + If periode > 0 AndAlso periode < 13 Then + + Dim periodenSoll_SQL As String = "SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_" & periode & " From [FIBU2].dbo.fibu_periodensaldo Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_periodensaldo.si_jahr = " & Jahr & " And [FIBU2].dbo.fibu_periodensaldo.i_konto = " & konto + Dim periodenHaben_SQL As String = "SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_" & periode & " From [FIBU2].dbo.fibu_periodensaldo Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_periodensaldo.si_jahr = " & Jahr & " And [FIBU2].dbo.fibu_periodensaldo.i_konto = " & konto + + Dim periodenSoll = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList(periodenSoll_SQL, "FIBU") + Dim periodenHaben = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList(periodenHaben_SQL, "FIBU") + + Dim periodenSoll_DBl As Double = 0 + Dim periodenHaben_DBl As Double = 0 + + If periodenSoll <> "" AndAlso IsNumeric(periodenSoll) Then + periodenSoll_DBl = CDbl(periodenSoll) + End If + + If periodenHaben <> "" AndAlso IsNumeric(periodenHaben) Then + periodenHaben_DBl = CDbl(periodenHaben) + End If + + periodenSoll_DBl += Sollsumme + periodenHaben_DBl += HabenSumme + + Dim SQL_Update = "UPDATE [FIBU2].dbo.fibu_periodensaldo SET + [FIBU2].dbo.fibu_periodensaldo.dec_soll_" & periode & " = " & periodenSoll_DBl & ", + [FIBU2].dbo.fibu_periodensaldo.dec_haben_" & periode & " = " & periodenHaben_DBl & ", + [FIBU2].dbo.fibu_periodensaldo.eur_soll_" & periode & " = " & periodenSoll_DBl & ", + [FIBU2].dbo.fibu_periodensaldo.eur_haben_" & periode & " = " & periodenHaben_DBl & " + WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = " & Mandant & " + And [FIBU2].dbo.fibu_periodensaldo.si_jahr = " & Jahr & " + And [FIBU2].dbo.fibu_periodensaldo.i_konto = " & konto + + Dim updated As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Update, "FIBU") + + If konto = 2000 Then + Dim SQL_Update_2000 = "UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + [FIBU2].dbo.fibu_periodensaldodk.dec_soll_" & periode & " = " & periodenSoll_DBl & ", + [FIBU2].dbo.fibu_periodensaldodk.dec_haben_" & periode & " = " & periodenHaben_DBl & ", + [FIBU2].dbo.fibu_periodensaldodk.eur_soll_" & periode & " = " & periodenSoll_DBl & ", + [FIBU2].dbo.fibu_periodensaldodk.eur_haben_" & periode & " = " & periodenHaben_DBl & " + WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = " & Mandant & " + And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = " & Jahr & " + And [FIBU2].dbo.fibu_periodensaldodk.i_konto = " & konto + + Dim updated_2000 As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Update_2000, "FIBU") End If - Next + End If + + ' BEGIN /* 3 */ + + 'If @Periode = 1 + 'BEGIN + 'SET @periodensoll = + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_1 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + ' If @Periode = 2 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_2 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_2 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_2 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_2 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_2 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_2 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_2 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_2 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_2 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_2 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End - 'INSERT INTO OWNTABLE_Verbuchungskonten ( - 'OWNFIELD_Nr, - 'OWNFIELD_Konto, - 'OWNFIELD_Soll, - 'OWNFIELD_Haben) - 'VALUES ( - '@Kontenzähler, - '@BestandskontoInt, - '0, - '0) + ' If @Periode = 3 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_3 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - 'SET @Kontenzähler = (@Kontenzähler + 1) + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_3 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - 'INSERT INTO OWNTABLE_Verbuchungskonten ( - 'OWNFIELD_Nr, - 'OWNFIELD_Konto, - 'OWNFIELD_Soll, - 'OWNFIELD_Haben) - 'VALUES ( - '@Kontenzähler, - '@ErlöskontoInt, - '0, - '0) + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_3 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_3 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_3 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_3 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_3 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_3 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_3 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_3 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End - 'Cursor lc_ProjekteRec über alle Pos. (Typ 1, Barverkauf) mit Artikel-Konten: - 'o Fügt für jedes Bestandskonto und Erlöskonto je einen Eintrag in OWNTABLE_Verbuchungskonten hinzu. - 'o Cursor Schleifen1rec: Stellt sicher, dass in [FIBU2].dbo.fibu_periodensaldo (und ggf. …saldodk für 2000) Eröffnungszeilen existieren (bei Bedarf INSERT mit EB-Werten). + ' If @Periode = 4 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_4 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - '5 - 'Baut @Buchungstext_orig = KE_/KA_ + Pos-Nr + _LKW_AuszFirma_Fahrer_Passnr, split in - 'o @Buchungstext (48 Zeichen, in die Zeile), - 'o @BuchungstextBemerkung (restliche 28 Zeichen, in Bemerk). + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_4 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - 'Ermittelt Buchungsweg aus Benutzer.OWNFIELD_Buchungsweg: - '2 = Stapel, 3 = Direkt. - Boolean - 'Außerdem unterscheidet das Script zwei Fälle: - 'o Einzahlung (@Einzahlungsbetrag <> 0): Kasse/Bestand im Soll, Kunde im Haben. - 'o Auszahlung (@Auszahlungsbetrag <> 0): umgekehrte Logik, teils mit Vorzeichenwechseln. - '________________________________________ + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_4 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_4 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_4 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_4 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_4 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_4 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_4 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_4 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + ' If @Periode = 5 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_5 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_5 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_5 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_5 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_5 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_5 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_5 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_5 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_5 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_5 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + + ' If @Periode = 6 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_6 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_6 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_6 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_6 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_6 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_6 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_6 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_6 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_6 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_6 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + ' If @Periode = 7 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_7 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - 'If Stapelbuchung Then + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_7 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - ' If beleg.Beleg_TYP = "L" Then '=Leihgeld + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_7 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_7 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_7 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_7 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - ' Dim SQL_Insert As String = "INSERT INTO [FIBU2].dbo.fibu_stapel (i_firm_refid,i_stapel_refid,i_lfdnr,si_zeilenr,si_belegart,si_splitart,d_beleg,d_valuta,c_urbelegid,c_op_beleg,c_buchtext,si_jahr,si_periode,i_sollkonto,c_kennungsoll,i_kennungsoll,i_habenkonto,c_kennunghaben,i_kennunghaben,dec_betrag,c_waehrung,dec_eigenbetrag,eur_betrag,i_gegenkonto,i_steuerart_refid,i_steuer_refid,i_eg_gegenkonto,c_sollhabenkz,dec_steuer,dec_eigensteuer,eur_steuerbetrag,dec_steuerproz,i_auftragid,i_koart_refid,si_pruef,c_bemerk,i_buchungskreis,i_bank_flags,i_quelle_modul,c_quelle_maske,si_manipulation,dt_creation,c_protokoll_id) - ' VALUES( - ' '" & mandant & "', - ' @StapelAZK, - ' @ZSBuchnr, - ' @ZSzeilenr, - ' @Belegart, - ' @Splitart, - ' @belegdatum, - ' @belegdatum, - ' @belegnrtext, - ' @belegnrtext, - ' '" & Buchungstext & "', - ' @Jahr, - ' @Periode, - ' @Sollkonto2, - ' @ckennsoll2, - ' @kkennungsoll2, - ' @Habenkonto2, - ' @ckennhab2, - ' @kkennunghab2, - ' @Buchungsbetrag_P, - ' @Waehrung, - ' 0, - ' @Buchungsbetrag_P, - ' 0, - ' 0, - ' 0, - ' 0, - ' 'K', - ' 0, - ' 0, - ' 0, - ' @dec_steuerproz2, - ' 0, - ' 0, - ' @pruef, - ' " & BuchungstextBemerkung & ", - ' 1, - ' 0, - ' 21, - ' 'FlexImport', - ' 0, - ' '" & Now() & "', - ' @c_protokoll_id)" + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_7 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_7 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_7 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_7 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ - ' Else - - ' End If - - 'End If + 'End + ' If @Periode = 8 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_8 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_8 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_8 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_8 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_8 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_8 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_8 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_8 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_8 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_8 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + ' If @Periode = 9 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_9 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_9 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_9 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_9 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_9 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_9 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_9 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_9 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_9 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_9 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + + + ' If @Periode = 10 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_10 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_10 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_10 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_10 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_10 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_10 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_10 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_10 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_10 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_10 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + + + ' If @Periode = 11 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_11 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_11 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_11 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_11 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_11 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_11 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_11 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_11 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_11 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_11 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + + + ' If @Periode = 12 + 'BEGIN + 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_12 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_12 + 'From [FIBU2].dbo.fibu_periodensaldo + 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) + + 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET + '[FIBU2].dbo.fibu_periodensaldo.dec_soll_12 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.dec_haben_12 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_soll_12 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldo.eur_haben_12 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto + + 'If @Schleifenkonto = 2000 + 'BEGIN /* Debitorendurchbuchungskonto */ + 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET + '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_12 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_12 = (@periodenhaben + @dec_habensumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_12 = (@periodensoll + @dec_sollsumme), + '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_12 = (@periodenhaben + @dec_habensumme) + 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr + 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr + 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto + 'End /* Debitorendurchbuchungskonto */ + + 'End + + + End Sub + + Private Shared Sub createOP(mandant As Integer, Jahr As Integer, periode As Integer, beleg_ref_id As Integer, datumKurz As String, BelegNr As String, BelegArt As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, ZeilenNr As Integer, ckennsoll2 As String, Sollkonto2 As Integer, Habenkonto2 As Integer, SollhabenKZ As String) + + 'OPs + Dim SQL_Insert_DEBITOR '= "INSERT INTO [FIBU2].dbo.op_debitor (i_firm_refid, i_op_refid, c_urbelegid, i_personenkonto, i_forderungskonto, c_rechnungid, d_rechnung, d_valuta, c_typ, c_sprache, c_waehrung, dec_eigenbrutto, dec_fremdbrutto, eur_bruttobetrag, dec_skf_eigen, dec_skf_fremd, eur_skontierfaehig, dec_eigenzahlung, dec_fremdzahlung, eur_zahlung, c_zahlziel, dec_skonto, d_skonto, dec_skonto2, d_netto, si_mahnstufe, i_mahnlauf_refid, si_exportiert, i_stapel_refid, i_stapel_lfdnr, dec_stpl_ew_betrag, dec_stpl_ew_skonto, dec_stpl_fw_betrag, dec_stpl_fw_skonto, eur_stpl_betrag, eur_stpl_skonto, i_clearing, i_eigene_bank, si_bankeinzug, c_bemerkung, lc_anmerkungen, i_zessionstext, i_buchungskreis, c_ustidnr) + 'VALUES (" & mandant & ", @i_op_refid, @belegnrtext, " & personenkonto & "," & forderungskonto & ", @belegnrtext, " & datumKurz & ", " & datumKurz & ", @c_op_Typ, @c_sprache, @Waehrung, @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), 0, 0, 0, @c_zahlziel, @Skonto, @Skontodatum, 0, @Nettodatum, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '" & Buchungstext & "', @Buchungstext_orig, 0, 1, @c_ustidnr);" + + + Dim insertedDEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_DEBITOR, "FIBU") + + 'OP-Vorgänge + + Dim SQL_Insert_V_DEB = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr) + VALUES (@MandantNr, @i_personenkonto, @i_op_refid, @i_beleg_refid, 'P', @gDatumKurz, @relPeriode, @Jahr, 0, 0, @i_Sachkonto, @opvorgangsbetrag, 0, @opvorgangsbetrag, 0, @opvorgangsbetrag, 1, 1, @Buchungstext, @dt_creation, @Benutzer, 0, 0, 0, 0);" + + + Dim insertedV_DEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB, "FIBU") + + 'if auszahlungsbetrag <> 0 THen + Dim SQL_Insert_V_DEB2 = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr) + VALUES (@MandantNr, @i_personenkonto, @i_op_refid, @i_beleg_refid, 'P', @gDatumKurz, @relPeriode, @Jahr, 0, 0, @i_Sachkonto, @opvorgangsbetrag, 0, @opvorgangsbetrag, 0, @opvorgangsbetrag, 1, 5, @Buchungstext, @dt_creation, @Benutzer, 0, 0, 0, 0);" + + Dim insertedV_DEB2 As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB2, "FIBU") + + 'end if + + + End Sub + + Private Shared Function checkifgebucht(mandant As Integer, belegnrtext As String, PosText As String) As Boolean + + Dim checkDS As String = "Select Case COUNT(fbz.i_beleg_refid) From [FIBU2].dbo.fibu_belegzeile AS fbz Where fbz.i_firm_refid = " & mandant & " And fbz.c_urbelegid Like '" & belegnrtext & "' And fbz.c_buchtext Like ('%'" & PosText & "'%')" + + If checkDS <> "" AndAlso IsNumeric(checkDS) AndAlso CInt(checkDS) >= 3 Then + Return True + Else + Return False + + End If End Function End Class diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 10ccecb1..3d9abd3f 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmUSTVoffeneAntraege.vb b/SDL/USTV/frmUSTVoffeneAntraege.vb index cc395cdf..9caae6c6 100644 --- a/SDL/USTV/frmUSTVoffeneAntraege.vb +++ b/SDL/USTV/frmUSTVoffeneAntraege.vb @@ -195,7 +195,7 @@ Public Class frmUSTVoffeneAntraege 'Exit Sub 'MsgBox(.sql) Dim sqlstring = "Select " & top & " [rmc_kdNr], [rmc_kdName], [rmc_landKZ], [rmc_reDatum], [rmc_reNr], [rmc_waehrung], [rmc_betragMWST],rmc_daid as daId FROM [tblRMCImport] - INNER JOIN Adressen on WölflKundenNr=[rmc_kdNr] + INNER JOIN Adressen on WölflKundenNr=[rmc_kdNr] or weitereWölflKundenNr=[rmc_kdNr] where cast(rmc_reDatum As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And rmc_archiv <> 1 " & sqlwhere & "group by rmc_reDatum, rmc_kdNr,[rmc_kdName], [rmc_landKZ],[rmc_reNr], [rmc_waehrung], [rmc_betragMWST], rmc_daid having [rmc_betragMWST] <> 0" @@ -758,7 +758,7 @@ Public Class frmUSTVoffeneAntraege [rmc_reDatum] AS Rechnungsdatum, [rmc_betragMWST] as MWST FROM [tblRMCImport] - INNER JOIN Adressen on WölflKundenNr= [rmc_kdNr] + INNER JOIN Adressen on WölflKundenNr= [rmc_kdNr] or weitereWölflKundenNr=[rmc_kdNr] where cast(rmc_reDatum As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And UStVAn_ID is null " & sqlwhereRMC & " group by Adressen.AdressenNr,Adressen.[Name 1],Adressen.LandKz, [rmc_landKZ],[rmc_reNr], rmc_reDatum, [rmc_betragMWST] @@ -1093,7 +1093,7 @@ Public Class frmUSTVoffeneAntraege Dim SQLQuery As String = "" Select Case LIEFERANT.ToString.ToLower Case "plose" : SQLQuery = "select [plInv_SupplierRechnungsNr] as RechnungsNr,plInv_SupplierRechnungsDatum as Rechnungsdatum,Adressen.AdressenNr,Adressen.[Name 1] as Kunde from [tblPLOSE_Inv_Data] INNER JOIN Adressen on [plInv_PLOSEKundennummer]=Adressen.PLOSEKundenNr where [plInv_daId] is null and cast([plInv_SupplierRechnungsDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by plInv_SupplierRechnungsNr, Adressen.AdressenNr, Adressen.[Name 1], plInv_SupplierRechnungsDatum" - Case "rmc" : SQLQuery = "select rmc_reNr as RechnungsNr,rmc_reDatum AS Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from [tblRMCImport] INNER JOIN Adressen on WölflKundenNr= [rmc_kdNr] where rmc_daId is null and cast([rmc_reDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by rmc_reNr, Adressen.AdressenNr, Adressen.[Name 1],rmc_reDatum " + Case "rmc" : SQLQuery = "select rmc_reNr as RechnungsNr,rmc_reDatum AS Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from [tblRMCImport] INNER JOIN Adressen on WölflKundenNr=[rmc_kdNr] or weitereWölflKundenNr=[rmc_kdNr] where rmc_daId is null and cast([rmc_reDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by rmc_reNr, Adressen.AdressenNr, Adressen.[Name 1],rmc_reDatum " Case "mse" : SQLQuery = "select invoice_id as RechnungsNr,[invoice_date] as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblMSEInvoices inner join [tblMSECustomers] on [customer_number] = [customer_id] INNER JOIN Adressen on Adressen.MSEKundenNr = [customer_number] where daId is null and cast(invoice_date as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by invoice_id, Adressen.AdressenNr, Adressen.[Name 1], invoice_date" Case "uta" : SQLQuery = "select tblUTAImportNew.Abrechnungsnummer as RechnungNr,[Rechnungsdatum] AS Rechnungsdatum ,Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblUTAImportNew INNER JOIN Adressen on Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer where daId is null and cast([Rechnungsdatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' group by tblUTAImportNew.Abrechnungsnummer, Rechnungsdatum,Adressen.AdressenNr, Adressen.[Name 1] " Case "ids" : SQLQuery = "select Invoicenumber as RechnungsNr,YearMonthDay as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblIDSInvoicesNew Inner join [tbl_IDS_Kunden] on [tbl_IDS_Kunden].CustomerCode =tblIDSInvoicesNew.CustomerCode and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 Inner join Adressen on Adressen.AdressenNr = [tbl_IDS_Kunden].KdNrVERAG where DocumentName is null and cast(YearMonthDay as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by Invoicenumber, Adressen.AdressenNr, Adressen.[Name 1], YearMonthDay" diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index d02b6dcb..4d2d496c 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb @@ -795,9 +795,9 @@ Partial Class frmNacherfassungLeihgeld Me.cbxOP_sofort_buchen.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290) Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen" - Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(117, 17) + Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17) Me.cbxOP_sofort_buchen.TabIndex = 213 - Me.cbxOP_sofort_buchen.Text = "OP sofort erzeugen" + Me.cbxOP_sofort_buchen.Text = "Buchung sofort erzeugen" Me.cbxOP_sofort_buchen.UseVisualStyleBackColor = True ' 'frmNacherfassungLeihgeld diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index ecbedca5..4cd01c2e 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -87,7 +87,6 @@ Public Class frmNacherfassungLeihgeld Case "NKD" : stammfiliale = "5303" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806 Case "SBG" : stammfiliale = "5003" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806 Case "NEU" : stammfiliale = "4819" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806 - ' Case Else : filialen = "4806" '"4801,4803,4806,5103,5003,5303" : stammfiliale = 4806 End Select End Select diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index d162ec93..1ce5d686 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -23,34 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -61,9 +61,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFremdspedition = New System.Windows.Forms.ComboBox() Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox() Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox() + Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.tbcntrAbf = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() @@ -77,6 +79,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox() Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbAufschub = New System.Windows.Forms.TabPage() + Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Label78 = New System.Windows.Forms.Label() Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox() @@ -101,6 +104,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.tbFiskal = New System.Windows.Forms.TabPage() + Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.Panel2 = New System.Windows.Forms.Panel() Me.Label115 = New System.Windows.Forms.Label() @@ -271,11 +275,19 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbSonstiges = New System.Windows.Forms.TabPage() + Me.txtSonst_weitereKdNrWOELFL = New System.Windows.Forms.TextBox() + Me.lblIDS_Rabatte = New System.Windows.Forms.Label() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.cbx_IDS_inaktiveeinblenden = New System.Windows.Forms.CheckBox() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.Standard = New System.Windows.Forms.TabPage() + Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView() + Me.Kunden = New System.Windows.Forms.TabPage() + Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() Me.cbxCSInsolvent = New System.Windows.Forms.CheckBox() Me.cbxCS_Added = New System.Windows.Forms.CheckBox() Me.Label113 = New System.Windows.Forms.Label() Me.Label112 = New System.Windows.Forms.Label() - Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox() Me.Label110 = New System.Windows.Forms.Label() @@ -387,6 +399,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbKontakt = New System.Windows.Forms.TabControl() Me.TabPage10 = New System.Windows.Forms.TabPage() Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label50 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label() Me.pnlNeukunde = New System.Windows.Forms.Panel() @@ -412,18 +425,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.Standard = New System.Windows.Forms.TabPage() - Me.Kunden = New System.Windows.Forms.TabPage() - Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView() - Me.cbx_IDS_inaktiveeinblenden = New System.Windows.Forms.CheckBox() - Me.PictureBox7 = New System.Windows.Forms.PictureBox() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() - Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() - Me.lblIDS_Rabatte = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -450,6 +451,11 @@ Partial Class usrcntlKundeBearbeitenFull CType(Me.dgvMWST, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbSonstiges.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.Standard.SuspendLayout() + CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Kunden.SuspendLayout() CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbSchnittstellen.SuspendLayout() @@ -465,11 +471,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.SuspendLayout() Me.pnlNeukunde.SuspendLayout() Me.cnsBankverbindungen.SuspendLayout() - Me.TabControl1.SuspendLayout() - Me.Standard.SuspendLayout() - Me.Kunden.SuspendLayout() - CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'tbcntrDetails @@ -615,6 +616,16 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU" Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True ' + 'UsrCntlKundenBesonderheiten1 + ' + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' 'tbcntrAbf ' Me.tbcntrAbf.Controls.Add(Me.TabPage4) @@ -649,6 +660,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100) Me.FlowLayoutPanel1.TabIndex = 7 ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 + ' 'rtbLKWFreigabeSenden ' Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33) @@ -817,6 +837,14 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbAufschub.Text = "Aufschubkonten" Me.tbAufschub.UseVisualStyleBackColor = True ' + 'usrCntlAufschubkonten + ' + Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) + Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" + Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) + Me.usrCntlAufschubkonten.TabIndex = 0 + ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Label78) @@ -1122,6 +1150,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.UseVisualStyleBackColor = True ' + 'UsrCntlKundeFiskaldaten1 + ' + Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" + Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) + Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 + ' 'tbVerrechnung ' Me.tbVerrechnung.Controls.Add(Me.Panel2) @@ -3197,8 +3234,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle38.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle38 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -3297,8 +3334,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -3473,40 +3510,40 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle40.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle40 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle41 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle42.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle42 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" - DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle43 + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle44 + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -3586,26 +3623,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvMWST ' - DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45 + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvMWST.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46 + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle47 + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 Me.dgvMWST.Location = New System.Drawing.Point(9, 359) Me.dgvMWST.Name = "dgvMWST" Me.dgvMWST.Size = New System.Drawing.Size(171, 125) @@ -3690,26 +3727,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48 + DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49 + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle50 + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259) @@ -3845,6 +3882,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbSonstiges ' + Me.tbSonstiges.Controls.Add(Me.txtSonst_weitereKdNrWOELFL) Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte) Me.tbSonstiges.Controls.Add(Me.PictureBox7) Me.tbSonstiges.Controls.Add(Me.cbx_IDS_inaktiveeinblenden) @@ -3894,6 +3932,139 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.UseVisualStyleBackColor = True ' + 'txtSonst_weitereKdNrWOELFL + ' + Me.txtSonst_weitereKdNrWOELFL.Location = New System.Drawing.Point(179, 53) + Me.txtSonst_weitereKdNrWOELFL.Name = "txtSonst_weitereKdNrWOELFL" + Me.txtSonst_weitereKdNrWOELFL.Size = New System.Drawing.Size(50, 20) + Me.txtSonst_weitereKdNrWOELFL.TabIndex = 148 + ' + 'lblIDS_Rabatte + ' + Me.lblIDS_Rabatte.AutoSize = True + Me.lblIDS_Rabatte.Enabled = False + Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 273) + Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte" + Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13) + Me.lblIDS_Rabatte.TabIndex = 147 + Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" + Me.lblIDS_Rabatte.Visible = False + ' + 'PictureBox7 + ' + Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.PictureBox7.Location = New System.Drawing.Point(645, 273) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(20, 20) + Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox7.TabIndex = 146 + Me.PictureBox7.TabStop = False + ' + 'cbx_IDS_inaktiveeinblenden + ' + Me.cbx_IDS_inaktiveeinblenden.AutoSize = True + Me.cbx_IDS_inaktiveeinblenden.Location = New System.Drawing.Point(9, 194) + Me.cbx_IDS_inaktiveeinblenden.Name = "cbx_IDS_inaktiveeinblenden" + Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14) + Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41 + Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.Standard) + Me.TabControl1.Controls.Add(Me.Kunden) + Me.TabControl1.Location = New System.Drawing.Point(6, 288) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(659, 201) + Me.TabControl1.TabIndex = 40 + ' + 'Standard + ' + Me.Standard.Controls.Add(Me.dgvIDS_Standard) + Me.Standard.Location = New System.Drawing.Point(4, 22) + Me.Standard.Name = "Standard" + Me.Standard.Padding = New System.Windows.Forms.Padding(3) + Me.Standard.Size = New System.Drawing.Size(651, 175) + Me.Standard.TabIndex = 0 + Me.Standard.Text = "Standardpreise" + Me.Standard.UseVisualStyleBackColor = True + ' + 'dgvIDS_Standard + ' + Me.dgvIDS_Standard.AllowUserToAddRows = False + Me.dgvIDS_Standard.AllowUserToDeleteRows = False + Me.dgvIDS_Standard.AllowUserToResizeRows = False + DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle16 + Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3) + Me.dgvIDS_Standard.Name = "dgvIDS_Standard" + Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 169) + Me.dgvIDS_Standard.TabIndex = 35 + ' + 'Kunden + ' + Me.Kunden.Controls.Add(Me.dgvIDS_Rabatte) + Me.Kunden.Location = New System.Drawing.Point(4, 22) + Me.Kunden.Name = "Kunden" + Me.Kunden.Padding = New System.Windows.Forms.Padding(3) + Me.Kunden.Size = New System.Drawing.Size(651, 175) + Me.Kunden.TabIndex = 1 + Me.Kunden.Text = "Kundenpreise" + Me.Kunden.UseVisualStyleBackColor = True + ' + 'dgvIDS_Rabatte + ' + Me.dgvIDS_Rabatte.AllowUserToAddRows = False + Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False + Me.dgvIDS_Rabatte.AllowUserToResizeRows = False + DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 + Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle19 + Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3) + Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" + Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169) + Me.dgvIDS_Rabatte.TabIndex = 34 + ' 'cbxCSInsolvent ' Me.cbxCSInsolvent.AutoSize = True @@ -3935,37 +4106,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label112.TabIndex = 35 Me.Label112.Text = "CSV-Daten bereitstellen" ' - 'dgvIDS_Rabatte - ' - Me.dgvIDS_Rabatte.AllowUserToAddRows = False - Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False - Me.dgvIDS_Rabatte.AllowUserToResizeRows = False - DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32 - Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33 - Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle34 - Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3) - Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" - Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169) - Me.dgvIDS_Rabatte.TabIndex = 34 - ' 'txtSumVerag ' Me.txtSumVerag._DateTimeOnly = False @@ -3981,7 +4121,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumVerag._Waehrung = False Me.txtSumVerag._WaehrungZeichen = True Me.txtSumVerag.ForeColor = System.Drawing.Color.Black - Me.txtSumVerag.Location = New System.Drawing.Point(258, 163) + Me.txtSumVerag.Location = New System.Drawing.Point(246, 160) Me.txtSumVerag.MaxLineLength = -1 Me.txtSumVerag.MaxLines_Warning = "" Me.txtSumVerag.MaxLines_Warning_Label = Nothing @@ -3994,7 +4134,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSonst_KdNrVerag.Location = New System.Drawing.Point(123, 164) Me.txtSonst_KdNrVerag.MaxLength = 20 Me.txtSonst_KdNrVerag.Name = "txtSonst_KdNrVerag" - Me.txtSonst_KdNrVerag.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrVerag.Size = New System.Drawing.Size(106, 20) Me.txtSonst_KdNrVerag.TabIndex = 31 ' 'Label110 @@ -4012,7 +4152,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label109.AutoSize = True Me.Label109.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label109.Location = New System.Drawing.Point(262, 9) + Me.Label109.Location = New System.Drawing.Point(250, 6) Me.Label109.Name = "Label109" Me.Label109.Size = New System.Drawing.Size(94, 13) Me.Label109.TabIndex = 25 @@ -4061,7 +4201,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSonst_KdNrPLOSE.Enabled = False Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(123, 134) Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE" - Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(106, 20) Me.txtSonst_KdNrPLOSE.TabIndex = 20 ' 'Label83 @@ -4090,26 +4230,26 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvSonst_IDSKunden.AllowUserToAddRows = False Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35 + DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36 + DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle37 + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle22 Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" @@ -4160,7 +4300,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(123, 108) Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA" - Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(106, 20) Me.txtSonst_KdNrUTA.TabIndex = 13 ' 'Label75 @@ -4194,7 +4334,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(123, 79) Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE" - Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(106, 20) Me.txtSonst_KdNrMSE.TabIndex = 8 ' 'Label73 @@ -4211,7 +4351,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(123, 53) Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL" - Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(50, 20) Me.txtSonst_KdNrWOELFL.TabIndex = 6 ' 'Label72 @@ -4270,7 +4410,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumPLOSE._Waehrung = False Me.txtSumPLOSE._WaehrungZeichen = True Me.txtSumPLOSE.ForeColor = System.Drawing.Color.Black - Me.txtSumPLOSE.Location = New System.Drawing.Point(258, 134) + Me.txtSumPLOSE.Location = New System.Drawing.Point(246, 131) Me.txtSumPLOSE.MaxLineLength = -1 Me.txtSumPLOSE.MaxLines_Warning = "" Me.txtSumPLOSE.MaxLines_Warning_Label = Nothing @@ -4293,7 +4433,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumUTA._Waehrung = False Me.txtSumUTA._WaehrungZeichen = True Me.txtSumUTA.ForeColor = System.Drawing.Color.Black - Me.txtSumUTA.Location = New System.Drawing.Point(258, 111) + Me.txtSumUTA.Location = New System.Drawing.Point(246, 108) Me.txtSumUTA.MaxLineLength = -1 Me.txtSumUTA.MaxLines_Warning = "" Me.txtSumUTA.MaxLines_Warning_Label = Nothing @@ -4316,7 +4456,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumMSE._Waehrung = False Me.txtSumMSE._WaehrungZeichen = True Me.txtSumMSE.ForeColor = System.Drawing.Color.Black - Me.txtSumMSE.Location = New System.Drawing.Point(258, 79) + Me.txtSumMSE.Location = New System.Drawing.Point(246, 76) Me.txtSumMSE.MaxLineLength = -1 Me.txtSumMSE.MaxLines_Warning = "" Me.txtSumMSE.MaxLines_Warning_Label = Nothing @@ -4339,7 +4479,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSumIDS._Waehrung = False Me.txtSumIDS._WaehrungZeichen = True Me.txtSumIDS.ForeColor = System.Drawing.Color.Black - Me.txtSumIDS.Location = New System.Drawing.Point(256, 31) + Me.txtSumIDS.Location = New System.Drawing.Point(244, 28) Me.txtSumIDS.MaxLineLength = -1 Me.txtSumIDS.MaxLines_Warning = "" Me.txtSumIDS.MaxLines_Warning_Label = Nothing @@ -4371,7 +4511,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboSonst_Rechnungsdruck.FormattingEnabled = True Me.cboSonst_Rechnungsdruck.Location = New System.Drawing.Point(119, 6) Me.cboSonst_Rechnungsdruck.Name = "cboSonst_Rechnungsdruck" - Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(122, 21) + Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(110, 21) Me.cboSonst_Rechnungsdruck.TabIndex = 1 ' 'tbSchnittstellen @@ -4420,26 +4560,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51 + DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle52.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52 + DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle53 + DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle25 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.MultiSelect = False @@ -4506,26 +4646,26 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False - DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54 + DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55 + DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle56 + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle28 Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) Me.dgvBankverbindungen.MultiSelect = False Me.dgvBankverbindungen.Name = "dgvBankverbindungen" @@ -5366,6 +5506,14 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.Text = "Spezifisch" Me.TabPage11.UseVisualStyleBackColor = True ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) + Me.ucKundenKontakte.TabIndex = 0 + ' 'Label50 ' Me.Label50.AutoSize = True @@ -5646,145 +5794,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.Standard) - Me.TabControl1.Controls.Add(Me.Kunden) - Me.TabControl1.Location = New System.Drawing.Point(6, 288) - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(659, 201) - Me.TabControl1.TabIndex = 40 - ' - 'Standard - ' - Me.Standard.Controls.Add(Me.dgvIDS_Standard) - Me.Standard.Location = New System.Drawing.Point(4, 22) - Me.Standard.Name = "Standard" - Me.Standard.Padding = New System.Windows.Forms.Padding(3) - Me.Standard.Size = New System.Drawing.Size(651, 175) - Me.Standard.TabIndex = 0 - Me.Standard.Text = "Standardpreise" - Me.Standard.UseVisualStyleBackColor = True - ' - 'Kunden - ' - Me.Kunden.Controls.Add(Me.dgvIDS_Rabatte) - Me.Kunden.Location = New System.Drawing.Point(4, 22) - Me.Kunden.Name = "Kunden" - Me.Kunden.Padding = New System.Windows.Forms.Padding(3) - Me.Kunden.Size = New System.Drawing.Size(651, 175) - Me.Kunden.TabIndex = 1 - Me.Kunden.Text = "Kundenpreise" - Me.Kunden.UseVisualStyleBackColor = True - ' - 'dgvIDS_Standard - ' - Me.dgvIDS_Standard.AllowUserToAddRows = False - Me.dgvIDS_Standard.AllowUserToDeleteRows = False - Me.dgvIDS_Standard.AllowUserToResizeRows = False - DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 - Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30 - Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle31 - Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3) - Me.dgvIDS_Standard.Name = "dgvIDS_Standard" - Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 169) - Me.dgvIDS_Standard.TabIndex = 35 - ' - 'cbx_IDS_inaktiveeinblenden - ' - Me.cbx_IDS_inaktiveeinblenden.AutoSize = True - Me.cbx_IDS_inaktiveeinblenden.Location = New System.Drawing.Point(9, 194) - Me.cbx_IDS_inaktiveeinblenden.Name = "cbx_IDS_inaktiveeinblenden" - Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14) - Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41 - Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True - ' - 'PictureBox7 - ' - Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.PictureBox7.Location = New System.Drawing.Point(645, 273) - Me.PictureBox7.Name = "PictureBox7" - Me.PictureBox7.Size = New System.Drawing.Size(20, 20) - Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox7.TabIndex = 146 - Me.PictureBox7.TabStop = False - ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) - Me.ucKundenKontakte.TabIndex = 0 - ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 - ' - 'usrCntlAufschubkonten - ' - Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) - Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" - Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) - Me.usrCntlAufschubkonten.TabIndex = 0 - ' - 'UsrCntlKundeFiskaldaten1 - ' - Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" - Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) - Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 - ' - 'lblIDS_Rabatte - ' - Me.lblIDS_Rabatte.AutoSize = True - Me.lblIDS_Rabatte.Enabled = False - Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 273) - Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte" - Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13) - Me.lblIDS_Rabatte.TabIndex = 147 - Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" - Me.lblIDS_Rabatte.Visible = False - ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -5862,6 +5871,11 @@ Partial Class usrcntlKundeBearbeitenFull CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).EndInit() Me.tbSonstiges.ResumeLayout(False) Me.tbSonstiges.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.Standard.ResumeLayout(False) + CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit() + Me.Kunden.ResumeLayout(False) CType(Me.dgvIDS_Rabatte, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).EndInit() Me.tbSchnittstellen.ResumeLayout(False) @@ -5884,11 +5898,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlNeukunde.ResumeLayout(False) Me.pnlNeukunde.PerformLayout() Me.cnsBankverbindungen.ResumeLayout(False) - Me.TabControl1.ResumeLayout(False) - Me.Standard.ResumeLayout(False) - Me.Kunden.ResumeLayout(False) - CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -6266,4 +6275,5 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents cbx_IDS_inaktiveeinblenden As CheckBox Friend WithEvents PictureBox7 As PictureBox Friend WithEvents lblIDS_Rabatte As Label + Friend WithEvents txtSonst_weitereKdNrWOELFL As TextBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index b78addd4..879624b7 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -367,6 +367,7 @@ Public Class usrcntlKundeBearbeitenFull cboSonst_Rechnungsdruck._value = loadValue(ADRESSE.Rechnungsdruck, "") txtSonst_KdNrIDS.Text = loadValue(ADRESSE.IDSKundenNr, "") txtSonst_KdNrWOELFL.Text = loadValue(ADRESSE.WölflKundenNr, "") + txtSonst_weitereKdNrWOELFL.Text = loadValue(ADRESSE.weitereWölflKundenNr, "") txtSonst_KdNrMSE.Text = loadValue(ADRESSE.MSEKundenNr, "") txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "") txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "") @@ -813,6 +814,7 @@ Public Class usrcntlKundeBearbeitenFull ADRESSE.Rechnungsdruck = isLeerNothing(cboSonst_Rechnungsdruck._value) ADRESSE.IDSKundenNr = isLeerNothing(txtSonst_KdNrIDS.Text) ADRESSE.WölflKundenNr = isLeerNothing(txtSonst_KdNrWOELFL.Text) + ADRESSE.weitereWölflKundenNr = isLeerNothing(txtSonst_weitereKdNrWOELFL.Text) ADRESSE.MSEKundenNr = isLeerNothing(txtSonst_KdNrMSE.Text) ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text) ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text) @@ -2234,7 +2236,7 @@ Public Class usrcntlKundeBearbeitenFull Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode - left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr & " order by Kz", "FMZOLL") + left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode =" & KUNDE.KundenNr & " order by Kz", "FMZOLL") With dgvIDS_Rabatte @@ -2265,7 +2267,7 @@ Public Class usrcntlKundeBearbeitenFull Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode - left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode is null order by KZ", "FMZOLL") + left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode is null order by KZ", "FMZOLL") With dgvIDS_Standard .DataSource = dt_IDS diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index b723416e..fb25e4cb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -45,6 +45,8 @@ Public Class cAdressen Property MWSTVorauszahlung As Object = Nothing Property PLOSEKundenNr As Object = Nothing + Property weitereWölflKundenNr As Object = Nothing + Public hasEntry = False Shared SQL As New SQL @@ -139,6 +141,7 @@ Public Class cAdressen ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MWSTVorauszahlung", MWSTVorauszahlung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLOSEKundenNr", PLOSEKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("weitereWölflKundenNr", weitereWölflKundenNr)) Return list End Function @@ -311,7 +314,7 @@ Public Class cAdressen Try Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) - Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND WölflKundenNr = " & woelflKdNr, conn) + Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND WölflKundenNr = " & woelflKdNr & " OR weitereWölflKundenNr " & woelflKdNr, conn) Dim dr = cmd.ExecuteReader() If dr.Read Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb index 709ce01a..5baed19c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb @@ -1,6 +1,5 @@  Imports System.Data.SqlClient -Imports System.IO Imports System.Reflection Public Class cRMC @@ -177,7 +176,7 @@ Public Class cRMC Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand(" SELECT rmc_reDatum,rmc_kdNr,[rmc_reNr],sum([rmc_betragNetto])[rmc_betragNetto],sum([rmc_betragMWST])[rmc_betragMWST] ,sum([rmc_betragBrutto] )[rmc_betragBrutto], [rmc_waehrung], sum([rmc_euroBrutto])[rmc_euroBrutto], rmc_daId, isnull(rmc_daId_InvAtt,0) as rmc_daId_InvAtt FROM [tblRMCImport] - INNER JOIN Adressen as adr on rmc_kdNr=adr.[WölflKundenNr] + INNER JOIN Adressen as adr on rmc_kdNr=adr.[WölflKundenNr] or rmc_kdNr=adr.[weitereWölflKundenNr] where cast(rmc_reDatum as date) between @von and @bis and AdressenNr=@AdressenNr AND rmc_landKZ ='" & LandKZ & "'" & IIf(Not Archiv, " And rmc_archiv = 0 ", "") & " group by rmc_reDatum,rmc_kdNr,[rmc_reNr],[rmc_waehrung], rmc_daId, isnull(rmc_daId_InvAtt,0) From df5caf4283d324ec5e79b9132d8c8732c12085f2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 13 Nov 2025 16:44:54 +0100 Subject: [PATCH 16/18] Syska-Direktverbuchung --- SDL/Classes/cRKSV.vb | 1145 ++++++++++++-------------------- SDL/My Project/AssemblyInfo.vb | 4 +- 2 files changed, 424 insertions(+), 725 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 15e165eb..c2084ef0 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1,14 +1,7 @@ -Imports System.Drawing.Printing -Imports com.sun.xml.internal.rngom.digested -Imports com.sun.xml.internal.ws.api.pipe -Imports com.sun.xml.internal.xsom.impl.WildcardImpl -Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports Imports GrapeCity.DataVisualization.TypeScript -Imports GrapeCity.Documents.DX.DirectWrite Imports SDL.RKSVServer -Imports sun.security.provider.certpath Imports VERAG_PROG_ALLGEMEIN.DSFinVKService -Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cRKSV Shared SQL As New SQL @@ -2375,13 +2368,12 @@ Public Class cRKSV End If '################ - ' Buchung im EABeleg eintragen. + ' DIREKTVERBUCHUNG SYSKA '################ If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then Dim stapelbuchung As Boolean = False 'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List) - End If BELEG.gebucht = True @@ -2426,6 +2418,7 @@ Public Class cRKSV Dim JAHR As Integer = Now.Year Dim PERIODE As Integer = Now.Month Dim BETRAG As Double = 0 + Dim BUCHUNGSBETRAG As Double = 0 Dim TYP As String = "EINZAHLUNG" Dim Kontonummer As Integer = 0 @@ -2436,6 +2429,7 @@ Public Class cRKSV Dim Bestandskonto As Integer = 0 Dim Erlöskonto As Integer = 0 + Dim Sachkonto As Integer = 0 If beleg.KundenNr > 0 Then Habenkonto = beleg.KundenNr @@ -2480,11 +2474,20 @@ Public Class cRKSV Dim R3 As DataRow = dt_Verbuchungskonten.NewRow R3("Nr") = 1 R3("Konto") = r.Konto + Bestandskonto = r.Konto R3("Soll") = r.Soll R3("Haben") = r.Haben dt_Verbuchungskonten.Rows.Add(R3) kontenzaehler += 1 + Dim R4 As DataRow = dt_Verbuchungskonten.NewRow + R4("Nr") = kontenzaehler + R4("Konto") = Kassenkonto + R4("Soll") = r.Haben + R4("Haben") = r.Soll + dt_Verbuchungskonten.Rows.Add(R4) + kontenzaehler += 1 + If r.Buchungstext = "AUSZAHLUNG" Then BelegBuchungsKreis = "KA" TYP = r.Buchungstext @@ -2493,34 +2496,39 @@ Public Class cRKSV BelegBuchungsKreis = "KE" End If - Dim R4 As DataRow = dt_Verbuchungskonten.NewRow - R4("Nr") = kontenzaehler - R4("Konto") = Kassenkonto - R4("Soll") = r.Haben - R4("Haben") = r.Soll - dt_Verbuchungskonten.Rows.Add(R4) - kontenzaehler += 1 - Next - Dim Buchungstext As String = BelegBuchungsKreis & "_" & beleg.AbfertigungsNr & "_" & beleg.LKW_Kennzeichen & "_" & beleg.Frachtführer & "_" & beleg.Fahrer & "_" & beleg.Passnummer + + Dim Buchungstext As String = IIf(BETRAG < 0, "STORNO", "") & BelegBuchungsKreis & "_" & beleg.AbfertigungsNr & "_" & beleg.LKW_Kennzeichen & "_" & beleg.Frachtführer & "_" & beleg.Fahrer & "_" & beleg.Passnummer Dim BuchungstextBemerkung As String = "" If Buchungstext IsNot Nothing AndAlso Buchungstext.Length > 48 Then BuchungstextBemerkung = Buchungstext.Substring(48) Buchungstext = Buchungstext.Substring(0, 48) End If + Dim ckennsoll2 = "" + Dim ckennhab2 = "" + Dim ckennsoll = "LE" + Dim kkennungsoll As Integer = 0 + Dim kkennungsoll2 As Integer = 0 + + Dim ckennhab = "LE" + Dim kkennunghab As Integer = 0 + Dim kkennunghab2 As Integer = 0 + Dim dt_Sollkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT top(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Sollkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU") If dt_Sollkonto.Rows.Count > 0 Then - Sollkonto = dt_Sollkonto.Rows(0).Item("i_kennung") + kkennungsoll = dt_Sollkonto.Rows(0).Item("i_kennung") + ckennsoll = dt_Sollkonto.Rows(0).Item("c_kontoart") End If Dim dt_Habenkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT TOP(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Habenkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU") If dt_Habenkonto.Rows.Count > 0 Then - Habenkonto = dt_Habenkonto.Rows(0).Item("i_kennung") + kkennunghab = dt_Habenkonto.Rows(0).Item("i_kennung") + ckennhab = dt_Habenkonto.Rows(0).Item("c_kontoart") End If - 'STAPEL NICHT NOTWENDIG + 'STAPEL NICHT UNBEDINGT NOTWENDIG Dim StapelAZK As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_stapelart.i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE [FIBU2].dbo.fibu_stapelart.c_stapelname LIKE 'Auszahlungskasse 1' AND [FIBU2].dbo.fibu_stapelart.i_firm_refid = " & MANDANT, "FIBU",, "") Dim Zaehler1 As String = VERAG_SQL.getValueTxtBySqlVarList("SELECT COUNT([FIBU2].dbo.fibu_stapel.i_lfdnr) FROM [FIBU2].dbo.fibu_stapel WHERE ISNULL([FIBU2].dbo.fibu_stapel.si_pruef, 0) > 0", "FIBU",, "0") @@ -2538,341 +2546,259 @@ Public Class cRKSV If StapelAZK = "" Then StapelAZK = "0000" - Dim timestamp As String = Now.ToString("dd HH:mm:ss") - Dim ProtokollID As String = StapelAZK.ToString() & "-" & ZSBuchnrINT.ToString("0000") & "-" & JAHR & "-" & PERIODE.ToString("N2") & "-" & timestamp + Dim dt_creation As String = Now.ToString("dd HH:mm:ss") + Dim ProtokollID As String = StapelAZK.ToString() & "-" & ZSBuchnrINT.ToString("0000") & "-" & JAHR & "-" & PERIODE.ToString("N2") & "-" & dt_creation Dim pruef As Integer = 0 - Dim ZSzeilenr As Integer = 0 - Dim Belegart As Integer = 1 - Dim Splitart As Integer = 0 + Dim ZSzeilenr As Integer = 0 + Dim Belegart As Integer = 1 + Dim Splitart As Integer = 0 - '1. Belegssalden anlegen, falls nicht vorhanden! - erste Schleife (Schleifen1rec) - For Each konto As DataRow In dt_Verbuchungskonten.Rows - erstelleEBSalden(MANDANT, JAHR, konto.Item("Konto")) - Next + '1. Belegssalden anlegen, falls nicht vorhanden! - erste Schleife (Schleifen1rec) + For Each konto As DataRow In dt_Verbuchungskonten.Rows + erstelleEBSalden(MANDANT, JAHR, konto.Item("Konto")) + Next - Dim i_beleg_refid As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_nummern.i_nummer_refid + 1 From [FIBU2].dbo.fibu_nummern Where [FIBU2].dbo.fibu_nummern.i_firm_refid = " & MANDANT & " And [FIBU2].dbo.fibu_nummern.c_nummernart Like 'Buchungsnummer' ", "FIBU",, "0") - Dim Buchungstyp = "g" - Dim i_op_refid = "" + Dim i_beleg_refid As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT [FIBU2].dbo.fibu_nummern.i_nummer_refid + 1 From [FIBU2].dbo.fibu_nummern Where [FIBU2].dbo.fibu_nummern.i_firm_refid = " & MANDANT & " And [FIBU2].dbo.fibu_nummern.c_nummernart Like 'Buchungsnummer' ", "FIBU",, "0") + Dim Buchungstyp = "g" + Dim i_op_refid = "" - If i_beleg_refid <> "" AndAlso IsNumeric(i_beleg_refid) Then + If i_beleg_refid <> "" AndAlso IsNumeric(i_beleg_refid) Then - i_op_refid = i_beleg_refid + i_op_refid = i_beleg_refid - If BETRAG <> 0 AndAlso TYP = "EINZAHLUNG" Then + If BETRAG <> 0 AndAlso TYP = "EINZAHLUNG" Then - VERAG_SQL.doSQL("UPDATE [FIBU2].dbo.fibu_nummern SET [FIBU2].dbo.fibu_nummern.i_nummer_refid = " & i_beleg_refid & " WHERE [FIBU2].dbo.fibu_nummern.i_firm_refid = " & MANDANT & " And [FIBU2].dbo.fibu_nummern.c_nummernart Like 'Buchungsnummer'", "FIBU") - - End If + VERAG_SQL.doSQL("UPDATE [FIBU2].dbo.fibu_nummern SET [FIBU2].dbo.fibu_nummern.i_nummer_refid = " & i_beleg_refid & " WHERE [FIBU2].dbo.fibu_nummern.i_firm_refid = " & MANDANT & " And [FIBU2].dbo.fibu_nummern.c_nummernart Like 'Buchungsnummer'", "FIBU") End If - insertBelegskopf(MANDANT, JAHR, 1, i_beleg_refid, beleg.BelegDat.ToShortDateString, beleg.BelegNr, Belegart, Buchungstext, BETRAG, "EUR", Now().ToShortTimeString, "AUTO", ProtokollID) + End If - Dim ckennsoll2 = "KO" ' erste Buchungszeile - Dim SollHabenKZ = "S" - Dim sollkonto2 As Integer = 0 - Dim Habenkonto2 As Integer = 0 - - Dim SollSumme As Double = 0 - - Dim dec_sollsumme As Double = 0 - Dim dec_habensumme As Double = 0 - - ZSzeilenr += 1 - - If TYP = "EINZAHLUNG" Then - - If BETRAG <> 0 Then - - sollkonto2 = Bestandskonto - Habenkonto2 = Kontonummer '/* gilt für den ersten Datensatz der ersten Buchungszeile pro Artikel */ + insertBelegskopf(MANDANT, JAHR, 1, i_beleg_refid, beleg.BelegDat.ToShortDateString, beleg.BelegNr, Belegart, Buchungstext, BETRAG, "EUR", Now().ToShortTimeString, "AUTO", ProtokollID) - Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") - If rows.Length > 0 Then - Dim row As DataRow = rows(0) - If Not IsDBNull(row("Soll")) Then - dec_sollsumme = Convert.ToDecimal(row("Soll")) - End If - row("Soll") = dec_sollsumme + BETRAG + Dim SollHabenKZ = "S" + Dim Sollkonto2 As Integer = 0 + Dim Habenkonto2 As Integer = 0 + + Dim SollSumme As Double = 0 + + Dim dec_sollsumme As Double = 0 + Dim dec_habensumme As Double = 0 + + ZSzeilenr += 1 + + If TYP = "EINZAHLUNG" Then + + If BETRAG <> 0 Then + + Sollkonto2 = Bestandskonto '/* bei Einzahlung und Bestandskonto im Soll */ + Habenkonto2 = Kontonummer '/* gilt für den ersten Datensatz der ersten Buchungszeile pro Artikel */ + ckennhab2 = "LE" + ckennsoll2 = "KO" + kkennunghab2 = 0 + kkennungsoll2 = 0 + + BUCHUNGSBETRAG = BETRAG + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_sollsumme = Convert.ToDecimal(row("Soll")) End If - + row("Soll") = dec_sollsumme + BETRAG End If - - - ElseIf TYP = "AUSZAHLUNG" Then - - If BETRAG <> 0 Then - - sollkonto2 = Erlöskonto - Habenkonto2 = 0 - dec_sollsumme = 0 - - Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") - If rows.Length > 0 Then - Dim row As DataRow = rows(0) - If Not IsDBNull(row("Soll")) Then - dec_sollsumme = Convert.ToDecimal(row("Soll")) - End If - row("Soll") = dec_sollsumme + BETRAG * (-1) - End If - - - End If + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) End If + + + ElseIf TYP = "AUSZAHLUNG" Then + + If BETRAG <> 0 Then + '/* Umkehrung von Soll und Habenkonto und Betragsvorzeichenwechsel */ + Sollkonto2 = Erlöskonto + Habenkonto2 = 0 + dec_sollsumme = 0 + + BUCHUNGSBETRAG = BETRAG * (-1) + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_sollsumme = Convert.ToDecimal(row("Soll")) + End If + row("Soll") = dec_sollsumme + BETRAG * (-1) + End If + + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + + End If + + + End If + '1. Belegszeile - insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) If TYP = "AUSZAHLUNG" Then - If BETRAG <> 0 Then + If BETRAG <> 0 Then - 'BEGIN /* bei Auszahlung die zweite Datenzeile zur ersten Bestandskontobuchung */ + 'BEGIN /* bei Auszahlung die zweite Datenzeile zur ersten Bestandskontobuchung */ - ZSzeilenr += 1 + ZSzeilenr += 1 - sollkonto2 = Bestandskonto - Habenkonto2 = 0 - ckennsoll2 = "KO" - SollHabenKZ = "H" + sollkonto2 = Bestandskonto + Habenkonto2 = 0 + ckennsoll2 = "KO" + SollHabenKZ = "H" - Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") - If rows.Length > 0 Then - Dim row As DataRow = rows(0) - If Not IsDBNull(row("Haben")) Then - dec_habensumme = Convert.ToDecimal(row("Haben")) - End If - row("Haben") = dec_habensumme + BETRAG * (-1) + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Haben")) Then + dec_habensumme = Convert.ToDecimal(row("Haben")) End If - + row("Haben") = dec_habensumme + BETRAG * (-1) End If - - Else - - End If + End If + + '2. Belegszeile - insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BUCHUNGSBETRAG, "EUR", ZSzeilenr, ckennsoll2, Sollkonto2, Habenkonto2, SollHabenKZ) - 'End /* Direktverbuchung der zweiten Datenzeile */ - 'End /* bei Auszahlung die zweite Datenzeile zur Bestandskontobuchung */ - - - 'BEGIN /* Direktverbuchung der Sammelkundenbuchung */ - - 'SET @c_sprache = (SELECT [FIBU2].dbo.fibu_konto.c_sprache FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = @Sollkonto2 And [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr) - - 'SET @c_ustidnr = (SELECT [FIBU2].dbo.fibu_konto.c_ustidnr FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = @Sollkonto2 And [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr) - - 'SET @c_zahlziel = (SELECT [FIBU2].dbo.fibu_konto.c_zahlziel FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = @Sollkonto2 And [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr) - - 'SET @Skontotage = (SELECT [FIBU2].dbo.fibu_zahlziel.si_tage FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_zahlziel.c_zahlziel Like @c_zahlziel) - 'If @Skontotage Is NULL SET @Skontotage = 0 - - 'SET @Skonto = (SELECT [FIBU2].dbo.fibu_zahlziel.dec_skonto FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_zahlziel.c_zahlziel Like @c_zahlziel) - 'If @Skonto Is NULL SET @Skonto = 0 - - 'SET @Nettotage = (SELECT [FIBU2].dbo.fibu_zahlziel.si_ntage FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_zahlziel.c_zahlziel Like @c_zahlziel) - 'If @Nettotage Is NULL SET @Nettotage = 0 - - 'SET @Skontodatum = DATEADD(DAY, @Skontotage, @gDatumKurz) - 'SET @Nettodatum = DATEADD(DAY, @Nettotage, @gDatumKurz) If TYP = "EINZAHLUNG" Then ZSzeilenr += 1 If BETRAG > 0 Then - 'BEGIN /* dritte Buchungszeile */ - sollkonto2 = Forderungskonto - Habenkonto2 = Bestandskonto - ckennsoll2 = "DB" - SollHabenKZ = "H" + 'BEGIN /* dritte Buchungszeile */ + sollkonto2 = Forderungskonto + Habenkonto2 = Bestandskonto + ckennsoll2 = "DB" + SollHabenKZ = "H" - sollkonto2 = Forderungskonto - Habenkonto2 = 0 - ckennsoll2 = "DB" - SollHabenKZ = "S" + sollkonto2 = Forderungskonto + Habenkonto2 = 0 + ckennsoll2 = "DB" + SollHabenKZ = "S" - Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") - If rows.Length > 0 Then - Dim row As DataRow = rows(0) - If Not IsDBNull(row("Soll")) Then - dec_habensumme = Convert.ToDecimal(row("Soll")) - End If - row("Soll") = dec_habensumme + BETRAG + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_habensumme = Convert.ToDecimal(row("Soll")) End If - '3. Buchungszeile - insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) - + row("Soll") = dec_habensumme + BETRAG + End If End If + '3. Buchungszeile - NUR BEI EINZAHLUNG + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BUCHUNGSBETRAG, "EUR", ZSzeilenr, ckennsoll2, Sollkonto2, Habenkonto2, SollHabenKZ) + + Else - Else ZSzeilenr += 1 If BETRAG > 0 Then - sollkonto2 = Forderungskonto - Habenkonto2 = 0 - ckennsoll2 = "DB" - SollHabenKZ = "S" + sollkonto2 = Forderungskonto + Habenkonto2 = 0 + ckennsoll2 = "DB" + SollHabenKZ = "S" - Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") - If rows.Length > 0 Then - Dim row As DataRow = rows(0) - If Not IsDBNull(row("Soll")) Then - dec_habensumme = Convert.ToDecimal(row("Soll")) - End If - row("Soll") = dec_habensumme + BETRAG * (-1) + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Soll")) Then + dec_habensumme = Convert.ToDecimal(row("Soll")) End If - + row("Soll") = dec_habensumme + BETRAG * (-1) End If + End If '4. Buchungszeile - insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BUCHUNGSBETRAG, "EUR", ZSzeilenr, ckennsoll2, Sollkonto2, Habenkonto2, SollHabenKZ) End If - ZSzeilenr += 1 + ZSzeilenr += 1 - If TYP = "AUSZAHLUNG" Then + If TYP = "AUSZAHLUNG" Then - If BETRAG > 0 Then + If BETRAG > 0 Then - 'BEGIN /* fünfte Buchungszeile bei Auszahlung und Direktverbuchung */ + 'BEGIN /* fünfte Buchungszeile bei Auszahlung und Direktverbuchung */ - sollkonto2 = Erlöskonto - Habenkonto2 = 0 - ckennsoll2 = "KO" - SollHabenKZ = "H" + sollkonto2 = Erlöskonto + Habenkonto2 = 0 + ckennsoll2 = "KO" + SollHabenKZ = "H" + + + Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") + If rows.Length > 0 Then + Dim row As DataRow = rows(0) + If Not IsDBNull(row("Haben")) Then + dec_habensumme = Convert.ToDecimal(row("Haben")) + End If + row("Haben") = dec_habensumme + BETRAG * (-1) + End If - 'SET @dec_habensumme = (SELECT OWNFIELD_Haben FROM OWNTABLE_Verbuchungskonten WHERE OWNFIELD_Konto = @Sollkonto2) - 'UPDATE OWNTABLE_Verbuchungskonten SET OWNFIELD_Haben = (@dec_habensumme + @B_Bruttobetrag * (-1)) WHERE OWNFIELD_Konto = @Sollkonto2 '5. Buchungszeile - insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", ZSzeilenr, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + insertBelegszeile(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BUCHUNGSBETRAG, "EUR", ZSzeilenr, ckennsoll2, Sollkonto2, Habenkonto2, SollHabenKZ) End If + + + End If + + + + Dim SkontoDatum = beleg.BelegDat + Dim Nettodatum = beleg.BelegDat + + Dim si_tage As Integer = 0 + Dim dec_skonto As Integer = 0 + Dim si_ntage As Integer = 0 + + Dim c_sprache As String = "" + Dim c_ustidnr As String = "" + Dim c_zahlziel As String = "" + + getDEBDaten(MANDANT, Sollkonto2, c_sprache, c_ustidnr, c_zahlziel, si_tage, dec_skonto, si_ntage, SkontoDatum, Nettodatum) + + '7/1 Schritt -> Salden-Fortschreibung! + Dim opvorgangsbetrag As Double = 0 + Saldenaktualisierung(TYP, BETRAG, beleg, dec_sollsumme, dec_habensumme, MANDANT, Sollkonto2, Forderungskonto, Bestandskonto, Sachkonto, Erlöskonto, opvorgangsbetrag) + + '7/2 Schritt -> Saldenperiodenbuchungen (Salden-Fortschreibung)! + + For Each konto As DataRow In dt_Verbuchungskonten.Rows 'Schleifen2rec + If Not IsDBNull(konto("Soll")) AndAlso konto("Soll") <> 0 Or Not IsDBNull(konto("Haben")) AndAlso konto("Haben") <> 0 Then + periodenBuchungen(PERIODE, konto("Konto"), MANDANT, JAHR, konto("Soll"), konto("Haben")) End If + Next - 'BEGIN /* Fortsetzung bei Direktverbuchung */ - - 'SET @updatekonto = @i_fordkto - - 'SET @dec_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.dec_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @eur_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'If @Einzahlungsbetrag <> 0 - 'BEGIN /* Einzahlung */ - 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) - 'SET @dec_sollsumme = (@dec_sollsumme - 0) - 'SET @dec_habensumme = (@dec_habensumme + @B_Bruttobetrag) - 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) - 'End /* Einzahlung */ - 'Else BEGIN /* Auszahlung */ - 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) - 'SET @dec_sollsumme = (@dec_sollsumme - @B_Bruttobetrag) - 'SET @dec_habensumme = (@dec_habensumme + 0) - 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) - 'End /* Auszahlung */ - - 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_aktuellersaldo = @dec_aktuellersaldo, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme, eur_aktuellersaldo = @eur_aktuellersaldo WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto - - 'SET @updatekonto = CAST(@Bestandskonto AS INTEGER) - 'SET @i_Sachkonto = @updatekonto - - 'SET @dec_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.dec_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @eur_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'If @Einzahlungsbetrag <> 0 - 'BEGIN /* Einzahlung */ - 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo + @B_Bruttobetrag) - 'SET @dec_sollsumme = (@dec_sollsumme + @B_Bruttobetrag) - 'SET @dec_habensumme = (@dec_habensumme + 0) - 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo + @B_Bruttobetrag) - 'End /* Einzahlung */ - 'Else BEGIN /* Auszahlung */ - 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo + @B_Bruttobetrag) - 'SET @dec_sollsumme = (@dec_sollsumme - 0) - 'SET @dec_habensumme = (@dec_habensumme - @B_Bruttobetrag) - 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo + @B_Bruttobetrag) - 'End /* Auszahlung */ - - 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_aktuellersaldo = @dec_aktuellersaldo, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme, eur_aktuellersaldo = @eur_aktuellersaldo WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto - - 'If @Auszahlungsbetrag <> 0 - 'BEGIN /* Erlöskonto bei Auszahlung */ - - 'SET @updatekonto = CAST(@Erlöskonto AS INTEGER) - 'SET @i_Sachkonto = @updatekonto - - 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_sollsumme = (@dec_sollsumme - @B_Bruttobetrag) - 'SET @dec_habensumme = (@dec_habensumme - @B_Bruttobetrag) - - 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto - - 'End /* Erlöskonto bei Auszahlung */ - - 'SET @updatekonto = CAST(@Kontonummer AS INTEGER) - - 'SET @dec_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.dec_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_sollsumme = (SELECT [FIBU2].dbo.fibu_konto.dec_sollsumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @dec_habensumme = (SELECT [FIBU2].dbo.fibu_konto.dec_habensumme From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'SET @eur_aktuellersaldo = (SELECT [FIBU2].dbo.fibu_konto.eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto) - - 'If @Einzahlungsbetrag <> 0 - 'BEGIN /* Einzahlung */ - 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) - 'SET @dec_sollsumme = (@dec_sollsumme + 0) - 'SET @dec_habensumme = (@dec_habensumme + @B_Bruttobetrag) - 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) - 'SET @opvorgangsbetrag = @B_Bruttobetrag * (-1) - 'End /* Einzahlung */ - 'Else BEGIN /* Auszahlung */ - 'SET @dec_aktuellersaldo = (@dec_aktuellersaldo - @B_Bruttobetrag) - 'SET @dec_sollsumme = (@dec_sollsumme - @B_Bruttobetrag) - 'SET @dec_habensumme = (@dec_habensumme - 0) - 'SET @eur_aktuellersaldo = (@eur_aktuellersaldo - @B_Bruttobetrag) - 'SET @opvorgangsbetrag = @B_Bruttobetrag * (-1) / CAST(2 AS FLOAT) - 'End /* Auszahlung */ - - 'UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat = @gDatumKurz, dec_aktuellersaldo = @dec_aktuellersaldo, dec_sollsumme = @dec_sollsumme, dec_habensumme = @dec_habensumme, eur_aktuellersaldo = @eur_aktuellersaldo WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @updatekonto - - 'Saldenperioden! - For Each konto As DataRow In dt_Verbuchungskonten.Rows 'Schleifen2rec - If Not IsDBNull(konto("Soll")) AndAlso konto("Soll") <> 0 Or Not IsDBNull(konto("Haben")) AndAlso konto("Haben") <> 0 Then - periodenBuchungen(PERIODE, konto("Konto"), MANDANT, JAHR, konto("Soll"), konto("Haben")) - End If - Next - - createOP(MANDANT, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat, beleg.BelegNr, beleg.Belegart, Buchungstext, BETRAG, "EUR", 1, ckennsoll2, sollkonto2, Habenkonto2, SollHabenKZ) + '8. Schritt -> Offene Posten anlegen + createOP(MANDANT, BETRAG, beleg.BelegNr, beleg.BelegDat.ToShortDateString, beleg.BelegNr, Buchungstext, BUCHUNGSBETRAG, "EUR", Personenkonto, Forderungskonto, i_op_refid, Buchungstyp, c_sprache, c_zahlziel, dec_skonto, SkontoDatum, Nettodatum, c_ustidnr) + createOPVorgang(MANDANT, TYP, BETRAG, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat.ToShortDateString, Buchungstext, Personenkonto, opvorgangsbetrag, i_op_refid, dt_creation, Sachkonto, "AUTO") End If - End If + + End If + + @@ -2986,468 +2912,241 @@ Public Class cRKSV End If + End If + End Sub + + Private Shared Sub getDEBDaten(Mandant As String, DebKonto As Integer, c_sprache As String, c_ustidnr As String, c_zahlziel As String, si_tage As Integer, dec_skonto As Integer, si_ntage As Integer, SkontoDatum As Date, Nettodatum As Date) + + Dim dtKontoinfo As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT c_sprache,c_ustidnr,c_zahlziel FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & DebKonto & " And [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant, "FIBU") + + If dtKontoinfo.Rows.Count = 1 Then + c_sprache = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("si_tage")), "DE", dtKontoinfo.Rows(0).Item("si_tage")) + c_ustidnr = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("c_ustidnr")), "", dtKontoinfo.Rows(0).Item("c_ustidnr")) + c_zahlziel = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("c_zahlziel")), "", dtKontoinfo.Rows(0).Item("c_zahlziel")) + End If + + Dim dt_skontoInfo As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select si_tage, dec_skonto, si_ntage FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_zahlziel.c_zahlziel '" & c_zahlziel & "'", "FIBU") + + If dt_skontoInfo.Rows.Count = 1 Then + si_tage = IIf(IsDBNull(dt_skontoInfo.Rows(0).Item("si_tage")), 0, CInt(dt_skontoInfo.Rows(0).Item("si_tage"))) + dec_skonto = IIf(IsDBNull(dt_skontoInfo.Rows(0).Item("dec_skonto")), 0, CInt(dt_skontoInfo.Rows(0).Item("dec_skonto"))) + si_ntage = IIf(IsDBNull(dt_skontoInfo.Rows(0).Item("si_ntage")), 0, CInt(dt_skontoInfo.Rows(0).Item("si_ntage"))) + End If + + SkontoDatum = SkontoDatum.AddDays(dec_skonto) 'SET @Skontodatum = DATEADD(DAY, @Skontotage, @gDatumKurz) + Nettodatum = Nettodatum.AddDays(si_tage) 'SET @Nettodatum = DATEADD(DAY, @Nettotage, @gDatumKurz) + + End Sub + + + Private Shared Sub Saldenaktualisierung(TYP As String, Betrag As Double, Beleg As EABeleg, dec_sollsumme As Double, dec_habensumme As Double, Mandant As String, Sollkonto2 As Integer, Forderungskonto As Integer, Bestandskonto As Integer, Sachkonto As Integer, ErloeskontoBeiAuszahlung As Integer, opvorgangsbetrag As Double) + + Dim dec_aktuellersaldo As Double = 0 + Dim eur_aktuellersaldo As Double = 0 + + '----------FORDERUNGSKONTO------------------- + + Dim dt_SaldoInfo_Forderungskonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Forderungskonto, "FIBU") + If dt_SaldoInfo_Forderungskonto.Rows.Count = 1 Then + dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_aktuellersaldo"))) + eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("eur_aktuellersaldo"))) + dec_sollsumme = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_sollsumme")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_sollsumme"))) + dec_habensumme = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_habensumme")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_habensumme"))) + End If + + If TYP = "EINZAHLUNG" Then + + If Betrag > 0 Then + + dec_aktuellersaldo = (dec_aktuellersaldo - Betrag) + dec_sollsumme = (dec_sollsumme - 0) + dec_habensumme = (dec_habensumme + Betrag) + eur_aktuellersaldo = (eur_aktuellersaldo - Betrag) + + + End If + + ElseIf TYP = "AUSZAHLUNG" Then + + If Betrag > 0 Then + + dec_aktuellersaldo = (dec_aktuellersaldo - Betrag) + dec_sollsumme = (dec_sollsumme - Betrag) + dec_habensumme = (dec_habensumme + 0) + eur_aktuellersaldo = (eur_aktuellersaldo - Betrag) + + End If End If - ' BEGIN /* 3 */ - - 'If @Periode = 1 - 'BEGIN - 'SET @periodensoll = - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_1 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - - - ' If @Periode = 2 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_2 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_2 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_2 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_2 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_2 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_2 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_2 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_2 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_2 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_2 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 3 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_3 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_3 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_3 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_3 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_3 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_3 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_3 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_3 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_3 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_3 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 4 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_4 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_4 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_4 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_4 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_4 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_4 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_4 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_4 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_4 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_4 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 5 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_5 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_5 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_5 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_5 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_5 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_5 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_5 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_5 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_5 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_5 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - ' If @Periode = 6 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_6 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_6 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_6 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_6 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_6 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_6 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_6 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_6 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_6 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_6 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 7 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_7 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_7 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_7 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_7 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_7 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_7 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_7 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_7 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_7 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_7 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 8 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_8 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_8 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_8 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_8 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_8 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_8 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_8 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_8 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_8 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_8 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 9 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_9 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_9 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_9 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_9 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_9 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_9 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_9 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_9 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_9 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_9 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 10 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_10 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_10 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_10 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_10 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_10 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_10 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_10 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_10 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_10 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_10 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 11 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_11 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_11 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_11 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_11 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_11 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_11 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_11 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_11 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_11 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_11 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End - - - ' If @Periode = 12 - 'BEGIN - 'SET @periodensoll = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_soll_12 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'SET @periodenhaben = (SELECT [FIBU2].dbo.fibu_periodensaldo.dec_haben_12 - 'From [FIBU2].dbo.fibu_periodensaldo - 'Where [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto) - - 'UPDATE [FIBU2].dbo.fibu_periodensaldo SET - '[FIBU2].dbo.fibu_periodensaldo.dec_soll_12 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.dec_haben_12 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_soll_12 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldo.eur_haben_12 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldo.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldo.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldo.i_konto = @Schleifenkonto - - 'If @Schleifenkonto = 2000 - 'BEGIN /* Debitorendurchbuchungskonto */ - 'UPDATE [FIBU2].dbo.fibu_periodensaldodk SET - '[FIBU2].dbo.fibu_periodensaldodk.dec_soll_12 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.dec_haben_12 = (@periodenhaben + @dec_habensumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_soll_12 = (@periodensoll + @dec_sollsumme), - '[FIBU2].dbo.fibu_periodensaldodk.eur_haben_12 = (@periodenhaben + @dec_habensumme) - 'WHERE [FIBU2].dbo.fibu_periodensaldodk.i_firm_refid = @MandantNr - 'And [FIBU2].dbo.fibu_periodensaldodk.si_jahr = @Jahr - 'And [FIBU2].dbo.fibu_periodensaldodk.i_konto = @Schleifenkonto - 'End /* Debitorendurchbuchungskonto */ - - 'End + SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Forderungskonto, "FIBU") + + + '----------BESTANDSKONTO------------------- + + Dim dt_SaldoInfo_Bestandskonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU") + If dt_SaldoInfo_Bestandskonto.Rows.Count = 1 Then + dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_aktuellersaldo"))) + eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("eur_aktuellersaldo"))) + dec_sollsumme = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_sollsumme")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_sollsumme"))) + dec_habensumme = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_habensumme")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_habensumme"))) + End If + + If TYP = "EINZAHLUNG" Then + + If Betrag <> 0 Then + + dec_aktuellersaldo = (dec_aktuellersaldo + Betrag) + dec_sollsumme = (dec_sollsumme + Betrag) + dec_habensumme = (dec_habensumme + 0) + eur_aktuellersaldo = (eur_aktuellersaldo + Betrag) + + End If + + + + + + ElseIf TYP = "AUSZAHLUNG" Then + + If Betrag <> 0 Then + + dec_aktuellersaldo = (dec_aktuellersaldo + Betrag) + dec_sollsumme = (dec_sollsumme - 0) + dec_habensumme = (dec_habensumme - Betrag) + eur_aktuellersaldo = (eur_aktuellersaldo + Betrag) + + + End If + + End If + + SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU") + + + '----------BESTANDSKONTO------------------- + + Dim dt_SaldoInfo_Sachkonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU") + If dt_SaldoInfo_Sachkonto.Rows.Count = 1 Then + dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_aktuellersaldo"))) + eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("eur_aktuellersaldo"))) + dec_sollsumme = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_sollsumme")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_sollsumme"))) + dec_habensumme = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_habensumme")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_habensumme"))) + End If + + + SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU") + + + + If TYP = "AUSZAHLUNG" Then + + If Betrag <> 0 Then + + 'Erlöskonto bei Auszahlung + + Dim dt_SaldoInfo_ErloeskontoBeiAuszahlung As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & ErloeskontoBeiAuszahlung, "FIBU") + If dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows.Count = 1 Then + dec_sollsumme = IIf(IsDBNull(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_sollsumme")), 0, CDbl(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_sollsumme"))) + dec_habensumme = IIf(IsDBNull(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_habensumme")), 0, CDbl(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_habensumme"))) + End If + + dec_sollsumme = (dec_sollsumme - Betrag) + dec_habensumme = (dec_habensumme - Betrag) + + SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & ErloeskontoBeiAuszahlung, "FIBU") + + End If + + End If + + + + 'SET @updatekonto = CAST(@Kontonummer AS INTEGER) + + Dim dt_SaldoInfo_Kontonummer As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU") + If dt_SaldoInfo_Kontonummer.Rows.Count = 1 Then + dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_aktuellersaldo"))) + eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("eur_aktuellersaldo"))) + dec_sollsumme = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_sollsumme")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_sollsumme"))) + dec_habensumme = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_habensumme")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_habensumme"))) + End If + + + + If TYP = "EINZAHLUNG" Then + + If Betrag <> 0 Then + + + dec_aktuellersaldo = (dec_aktuellersaldo - Betrag) + dec_sollsumme = (dec_sollsumme + 0) + dec_habensumme = (dec_habensumme + Betrag) + eur_aktuellersaldo = (eur_aktuellersaldo - Betrag) + opvorgangsbetrag = Betrag * (-1) + + + End If + + + + + + ElseIf TYP = "AUSZAHLUNG" Then + + If Betrag <> 0 Then + + dec_aktuellersaldo = (dec_aktuellersaldo - Betrag) + dec_sollsumme = (dec_sollsumme - Betrag) + dec_habensumme = (dec_habensumme - 0) + eur_aktuellersaldo = (eur_aktuellersaldo - Betrag) + opvorgangsbetrag = Betrag * (-1) / CDbl(2) + + End If + + End If + + SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU") End Sub - Private Shared Sub createOP(mandant As Integer, Jahr As Integer, periode As Integer, beleg_ref_id As Integer, datumKurz As String, BelegNr As String, BelegArt As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, ZeilenNr As Integer, ckennsoll2 As String, Sollkonto2 As Integer, Habenkonto2 As Integer, SollhabenKZ As String) + Private Shared Sub createOP(mandant As Integer, Betrag As Double, BelegNrText As String, datumKurz As String, BelegNr As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, Personenkonto As Integer, Forderungskonto As Integer, i_op_refid As String, c_op_Typ As Char, Sprache As String, Zahlungsziel As String, Skonto As String, Skontodatum As String, Nettodatum As String, c_ustidnr As String) 'OPs - Dim SQL_Insert_DEBITOR '= "INSERT INTO [FIBU2].dbo.op_debitor (i_firm_refid, i_op_refid, c_urbelegid, i_personenkonto, i_forderungskonto, c_rechnungid, d_rechnung, d_valuta, c_typ, c_sprache, c_waehrung, dec_eigenbrutto, dec_fremdbrutto, eur_bruttobetrag, dec_skf_eigen, dec_skf_fremd, eur_skontierfaehig, dec_eigenzahlung, dec_fremdzahlung, eur_zahlung, c_zahlziel, dec_skonto, d_skonto, dec_skonto2, d_netto, si_mahnstufe, i_mahnlauf_refid, si_exportiert, i_stapel_refid, i_stapel_lfdnr, dec_stpl_ew_betrag, dec_stpl_ew_skonto, dec_stpl_fw_betrag, dec_stpl_fw_skonto, eur_stpl_betrag, eur_stpl_skonto, i_clearing, i_eigene_bank, si_bankeinzug, c_bemerkung, lc_anmerkungen, i_zessionstext, i_buchungskreis, c_ustidnr) - 'VALUES (" & mandant & ", @i_op_refid, @belegnrtext, " & personenkonto & "," & forderungskonto & ", @belegnrtext, " & datumKurz & ", " & datumKurz & ", @c_op_Typ, @c_sprache, @Waehrung, @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), @B_Bruttobetrag * (-1), 0, 0, 0, @c_zahlziel, @Skonto, @Skontodatum, 0, @Nettodatum, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '" & Buchungstext & "', @Buchungstext_orig, 0, 1, @c_ustidnr);" + Dim SQL_Insert_DEBITOR = "INSERT INTO [FIBU2].dbo.op_debitor (i_firm_refid, i_op_refid, c_urbelegid, i_personenkonto, i_forderungskonto, c_rechnungid, d_rechnung, d_valuta, c_typ, c_sprache, c_waehrung, dec_eigenbrutto, dec_fremdbrutto, eur_bruttobetrag, dec_skf_eigen, dec_skf_fremd, eur_skontierfaehig, dec_eigenzahlung, dec_fremdzahlung, eur_zahlung, c_zahlziel, dec_skonto, d_skonto, dec_skonto2, d_netto, si_mahnstufe, i_mahnlauf_refid, si_exportiert, i_stapel_refid, i_stapel_lfdnr, dec_stpl_ew_betrag, dec_stpl_ew_skonto, dec_stpl_fw_betrag, dec_stpl_fw_skonto, eur_stpl_betrag, eur_stpl_skonto, i_clearing, i_eigene_bank, si_bankeinzug, c_bemerkung, lc_anmerkungen, i_zessionstext, i_buchungskreis, c_ustidnr) + VALUES(" & mandant & "," & i_op_refid & ", " & BelegNrText & ", " & Personenkonto & ", " & Forderungskonto & ", " & BelegNrText & ", " & datumKurz & ", " & datumKurz & ", " & c_op_Typ & ", '" & Sprache & "', '" & Waehrung & "', " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), 0, 0, 0, " & Zahlungsziel & ", '" & Skonto & "', '" & Skontodatum & "', 0,'" & Nettodatum & "', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '" & Buchungstext & "', '" & Buchungstext & "', 0, 1, '" & c_ustidnr & "');" Dim insertedDEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_DEBITOR, "FIBU") + + End Sub + + Private Shared Sub createOPVorgang(mandant As Integer, TYP As String, Betrag As Double, Jahr As Integer, periode As Integer, beleg_ref_id As Integer, datumKurz As String, Buchungstext As String, Personenkonto As Integer, opvorgangsbetrag As Double, i_op_refid As String, dt_creation As String, Sachkonto As Integer, Benutzer As String) + 'OP-Vorgänge Dim SQL_Insert_V_DEB = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr) - VALUES (@MandantNr, @i_personenkonto, @i_op_refid, @i_beleg_refid, 'P', @gDatumKurz, @relPeriode, @Jahr, 0, 0, @i_Sachkonto, @opvorgangsbetrag, 0, @opvorgangsbetrag, 0, @opvorgangsbetrag, 1, 1, @Buchungstext, @dt_creation, @Benutzer, 0, 0, 0, 0);" + VALUES (" & mandant & ", " & Personenkonto & ", " & i_op_refid & ", " & beleg_ref_id & ", 'P', " & datumKurz & ", " & periode & ", " & Jahr & ", 0, 0, " & Sachkonto & ", " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 1, 1, '" & Buchungstext & "', '" & dt_creation & "', '" & Benutzer & "', 0, 0, 0, 0);" Dim insertedV_DEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB, "FIBU") - 'if auszahlungsbetrag <> 0 THen - Dim SQL_Insert_V_DEB2 = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr) - VALUES (@MandantNr, @i_personenkonto, @i_op_refid, @i_beleg_refid, 'P', @gDatumKurz, @relPeriode, @Jahr, 0, 0, @i_Sachkonto, @opvorgangsbetrag, 0, @opvorgangsbetrag, 0, @opvorgangsbetrag, 1, 5, @Buchungstext, @dt_creation, @Benutzer, 0, 0, 0, 0);" - Dim insertedV_DEB2 As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB2, "FIBU") + If TYP = "AUSZAHLUNG" Then - 'end if + If Betrag <> 0 Then + 'if auszahlungsbetrag <> 0 THen + Dim SQL_Insert_V_DEB2 = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr) + VALUES (" & mandant & ", " & Personenkonto & ", " & i_op_refid & ", " & beleg_ref_id & ", 'P', " & datumKurz & ", " & periode & ", " & Jahr & ", 0, 0, " & Sachkonto & ", " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 1, 5, '" & Buchungstext & "', '" & dt_creation & "', '" & Benutzer & "', 0, 0, 0, 0);" + + Dim insertedV_DEB2 As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB2, "FIBU") + + End If + End If End Sub diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 3d9abd3f..1ee5c388 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + From b151767a78f28d56f236640ed532180c6596e0cd Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 14 Nov 2025 08:45:33 +0100 Subject: [PATCH 17/18] =?UTF-8?q?Erl=C3=B6skonto=20gesetzt.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/Classes/cRKSV.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index c2084ef0..d10a4ad4 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2427,7 +2427,7 @@ Public Class cRKSV Dim Personenkonto As Integer = 0 Dim kontenzaehler As Integer = 0 - Dim Bestandskonto As Integer = 0 + Dim Bestandskonto As Integer = Kassenkonto Dim Erlöskonto As Integer = 0 Dim Sachkonto As Integer = 0 @@ -2474,7 +2474,7 @@ Public Class cRKSV Dim R3 As DataRow = dt_Verbuchungskonten.NewRow R3("Nr") = 1 R3("Konto") = r.Konto - Bestandskonto = r.Konto + Erlöskonto = r.Konto R3("Soll") = r.Soll R3("Haben") = r.Haben dt_Verbuchungskonten.Rows.Add(R3) From bf6fe8a1c8fbb89807c640f90b958353203f6db1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 14 Nov 2025 08:48:29 +0100 Subject: [PATCH 18/18] rksv - Leihgeld --- SDL/Classes/cRKSV.vb | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index d10a4ad4..78cd3f75 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2408,6 +2408,7 @@ Public Class cRKSV If beleg.Beleg_TYP = "L" Then + 'INFO -> Leihgeld ist immer 0% MWSt Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -2687,12 +2688,6 @@ Public Class cRKSV ckennsoll2 = "DB" SollHabenKZ = "H" - - sollkonto2 = Forderungskonto - Habenkonto2 = 0 - ckennsoll2 = "DB" - SollHabenKZ = "S" - Dim rows() As DataRow = dt_Verbuchungskonten.Select("Konto = '" & sollkonto2 & "'") If rows.Length > 0 Then Dim row As DataRow = rows(0)