From 6e00c67dd8b48ce7a38f5a5526ff25a8bff8e5bd Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 16 Jan 2026 17:02:19 +0100 Subject: [PATCH 01/13] MDM (POS-Liste, Nummerierung auf Rechnungen). --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/USTV/frmMDM_USTVAntrag.vb | 4 ++-- .../Classes/cMDMFunctionsAllgemein.vb | 2 +- VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb | 14 ++++++++++++-- 4 files changed, 17 insertions(+), 7 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 9b02a82c..d270a8ee 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/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 9d9511dc..dfeb7ec0 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -2276,8 +2276,8 @@ Public Class frmMDM_USTVAntrag Private Function excelAuswertung(ByRef Optional filepath As String = "", Optional feedback As Boolean = False, Optional openExcel As Boolean = True) As Boolean - Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, LandKz as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory - ,Round((100 *[UStVPo_USteuerbetragEUR] / (isnull([Länderverzeichnis für die Außenhandelsstatistik].Steuersatz,1) * 100) ),2) as ExpenseNetAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round(Round((100 *[UStVPo_USteuerbetragEUR] / (isnull([Länderverzeichnis für die Außenhandelsstatistik].Steuersatz,1) * 100) ),2) + [UStVPo_USteuerbetragEUR],2) as ExpenseGrossAmount, + Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, LandKz as CountryOfRefund ,UStVAn_Währungscode as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory + ,Round((100 *[UStVPo_USteuerbetrag] / (isnull([Länderverzeichnis für die Außenhandelsstatistik].Steuersatz,1) * 100) ),2) as ExpenseNetAmount, [UStVPo_USteuerbetrag] as ExpenseVATAmount,Round(Round((100 *[UStVPo_USteuerbetrag] / (isnull([Länderverzeichnis für die Außenhandelsstatistik].Steuersatz,1) * 100) ),2) + [UStVPo_USteuerbetrag],2) as ExpenseGrossAmount, [Länderverzeichnis für die Außenhandelsstatistik].Steuersatz * 100 as TaxRate From [tblUStVPositionen] inner Join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender] diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 0e4d13d8..016b0cfd 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -999,7 +999,7 @@ Public Class cMDMFunctionsAllgemein Dim merged As Boolean = False If DS.DATA_LIST.coll_daId > 0 Then - For Each L As cDatenarchiv_Collection In DS.DATA_LIST.LIST + For Each L As cDatenarchiv_Collection In DS.DATA_LIST.LIST.OrderBy(Function(dgvr) dgvr.coll_date) If L.coll_pfad <> "" Then PathList.Add(L.coll_pfad) Next diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index f5ef2fb4..9eca7f97 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1723,6 +1723,16 @@ Public Class cDatenarchiv_Collection Me.coll_archiv = coll_archiv End Sub + Sub New(coll_id, coll_daId, coll_pfad, coll_bezeichnung, coll_info, coll_archiv, coll_date) + Me.coll_id = coll_id + Me.coll_daId = coll_daId + Me.coll_pfad = coll_pfad + Me.coll_bezeichnung = coll_bezeichnung + Me.coll_info = coll_info + Me.coll_archiv = coll_archiv + Me.coll_date = coll_date + End Sub + Public Function DELETE() As Boolean Try If coll_pfad.Contains(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir) Then '"\\192.168.0.91\DATENARCHIV\") Then 'Um sicher zu gehen, dass der pfad im richtigem VZ ist. @@ -1864,12 +1874,12 @@ Public Class cDatenserverIDCollectionList LIST.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() 'Using cmd As New SqlCommand("SELECT coll_id, coll_daId, da_pfad, da_name FROM tblDatenarchiv_Collection INNER JOIN tblDatenarchiv ON coll_daId=da_id WHERE coll_id=@coll_id ", conn) - Using cmd As New SqlCommand("SELECT coll_id, coll_daId, coll_pfad, coll_bezeichnung,coll_info,coll_archiv FROM tblDatenarchiv_Collection WHERE coll_daId=@coll_daId order by coll_bezeichnung ", conn) ' order by [coll_date] desc + Using cmd As New SqlCommand("SELECT coll_id, coll_daId, coll_pfad, coll_bezeichnung,coll_info,coll_archiv, coll_date FROM tblDatenarchiv_Collection WHERE coll_daId=@coll_daId order by coll_bezeichnung ", conn) ' order by [coll_date] desc cmd.Parameters.AddWithValue("@coll_daId", Me.coll_daId) Dim dr = cmd.ExecuteReader() 'LIST = New List(Of cDatenarchiv_Collection) While dr.Read - LIST.Add(New cDatenarchiv_Collection(dr.Item("coll_id"), dr.Item("coll_daId"), dr.Item("coll_pfad"), dr.Item("coll_bezeichnung"), dr.Item("coll_info"), dr.Item("coll_archiv"))) + LIST.Add(New cDatenarchiv_Collection(dr.Item("coll_id"), dr.Item("coll_daId"), dr.Item("coll_pfad"), dr.Item("coll_bezeichnung"), dr.Item("coll_info"), dr.Item("coll_archiv"), dr.Item("coll_date"))) End While dr.Close() End Using From 07c62b5d54e255d223898672815de94da7c78ef3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 21 Jan 2026 14:47:59 +0100 Subject: [PATCH 02/13] Mahnlauf, FaktAbrechnung, Fremdrechnungen, MDM-Functions --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 18 ++-- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmMDM_USTVAntrag.vb | 2 +- SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb | 60 +++++++----- SDL/buchhaltung/frmBU_Mahnlauf.vb | 61 +++++++++++- SDL/mdm/frmMDMDatenverarbetiung.vb | 96 ++++++++++++++++++- SDL/mdm/usrcntlFremdrechnungen.Designer.vb | 70 ++++---------- SDL/mdm/usrcntlFremdrechnungen.resx | 6 -- SDL/mdm/usrcntlFremdrechnungen.vb | 92 ++++++++++++++++-- SDL/seriendruck/usrCntlFakturierung.vb | 29 +++++- .../Classes/cMDMFunctionsAllgemein.vb | 11 ++- 11 files changed, 339 insertions(+), 110 deletions(-) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 5b34079e..201e4728 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -565,14 +565,18 @@ Public Class usrCntlFaktAbrechnung cboRechnungSprache.changeItem(0) cboRgArt.Items.Clear() - If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then - cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK")) - Else - cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG")) - cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU")) - End If - cboRgArt.changeItem(0) + If FirmaTmp = "VERAG360" Then + cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG")) + Else + If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then + cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK")) + Else + cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG")) + cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU")) + End If + cboRgArt.changeItem(0) + End If 'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True) cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([AuswahlSteuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d270a8ee..d370e0f4 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/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index dfeb7ec0..2abaa749 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -2287,7 +2287,7 @@ Public Class frmMDM_USTVAntrag Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL") If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, openExcel,,, True) + filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW_(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True,,,, openExcel) Return True Else If feedback Then MsgBox("keine Daten vorhanden!") diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb index 64fa3dbf..72ea74ea 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb @@ -25,6 +25,8 @@ Partial Class frmBU_Mahnlauf Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBU_Mahnlauf)) Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblBetreuer = New System.Windows.Forms.Label() + Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxZahlungseingaenge = New System.Windows.Forms.CheckBox() @@ -62,8 +64,7 @@ Partial Class frmBU_Mahnlauf Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.lblBetreuer = New System.Windows.Forms.Label() + Me.cbxNewDGV = New System.Windows.Forms.CheckBox() Me.Panel1.SuspendLayout() Me.pnlTop.SuspendLayout() Me.Panel2.SuspendLayout() @@ -73,6 +74,7 @@ Partial Class frmBU_Mahnlauf ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.cbxNewDGV) Me.Panel1.Controls.Add(Me.lblBetreuer) Me.Panel1.Controls.Add(Me.cboBetreuer) Me.Panel1.Controls.Add(Me.cbxKontotyp) @@ -95,6 +97,28 @@ Partial Class frmBU_Mahnlauf Me.Panel1.Size = New System.Drawing.Size(1514, 132) Me.Panel1.TabIndex = 0 ' + 'lblBetreuer + ' + Me.lblBetreuer.AutoSize = True + Me.lblBetreuer.Location = New System.Drawing.Point(329, 114) + Me.lblBetreuer.Name = "lblBetreuer" + Me.lblBetreuer.Size = New System.Drawing.Size(50, 13) + Me.lblBetreuer.TabIndex = 50 + Me.lblBetreuer.Text = "Betreuer:" + Me.lblBetreuer.Visible = False + ' + 'cboBetreuer + ' + Me.cboBetreuer._allowedValuesFreiText = Nothing + Me.cboBetreuer._allowFreiText = False + Me.cboBetreuer._value = "" + Me.cboBetreuer.FormattingEnabled = True + Me.cboBetreuer.Location = New System.Drawing.Point(410, 111) + Me.cboBetreuer.Name = "cboBetreuer" + Me.cboBetreuer.Size = New System.Drawing.Size(97, 21) + Me.cboBetreuer.TabIndex = 49 + Me.cboBetreuer.Visible = False + ' 'cbxKontotyp ' Me.cbxKontotyp._allowedValuesFreiText = Nothing @@ -602,27 +626,18 @@ Partial Class frmBU_Mahnlauf Me.MyTextBox2.TabIndex = 39 Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'cboBetreuer + 'cbxNewDGV ' - Me.cboBetreuer._allowedValuesFreiText = Nothing - Me.cboBetreuer._allowFreiText = False - Me.cboBetreuer._value = "" - Me.cboBetreuer.FormattingEnabled = True - Me.cboBetreuer.Location = New System.Drawing.Point(410, 111) - Me.cboBetreuer.Name = "cboBetreuer" - Me.cboBetreuer.Size = New System.Drawing.Size(97, 21) - Me.cboBetreuer.TabIndex = 49 - Me.cboBetreuer.Visible = False - ' - 'lblBetreuer - ' - Me.lblBetreuer.AutoSize = True - Me.lblBetreuer.Location = New System.Drawing.Point(329, 114) - Me.lblBetreuer.Name = "lblBetreuer" - Me.lblBetreuer.Size = New System.Drawing.Size(50, 13) - Me.lblBetreuer.TabIndex = 50 - Me.lblBetreuer.Text = "Betreuer:" - Me.lblBetreuer.Visible = False + Me.cbxNewDGV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbxNewDGV.AutoSize = True + Me.cbxNewDGV.Checked = True + Me.cbxNewDGV.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxNewDGV.Location = New System.Drawing.Point(1118, 54) + Me.cbxNewDGV.Name = "cbxNewDGV" + Me.cbxNewDGV.Size = New System.Drawing.Size(88, 17) + Me.cbxNewDGV.TabIndex = 51 + Me.cbxNewDGV.Text = "neue Ansicht" + Me.cbxNewDGV.UseVisualStyleBackColor = True ' 'frmBU_Mahnlauf ' @@ -689,4 +704,5 @@ Partial Class frmBU_Mahnlauf Friend WithEvents Label9 As Label Friend WithEvents lblBetreuer As Label Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxNewDGV As CheckBox End Class diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index afba2d11..9ea362ee 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -8,10 +8,10 @@ Public Class frmBU_Mahnlauf Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim listOfTextconserven As cTextkonserve_LIST Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click - initDGV(cbxZahlungseingaenge.Checked) + initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked) End Sub - Sub initDGV(Optional zahlungseingaenge As Boolean = False) + Sub initDGV(Optional zahlungseingaenge As Boolean = False, Optional newDGV As Boolean = False) With MyDatagridview1 .Columns.Clear() @@ -45,6 +45,57 @@ Public Class frmBU_Mahnlauf " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & " ORDER BY KTO.c_name" + Dim sqlStr_New = "WITH EmailCTE AS ( + SELECT + kkd_KundenNr," & IIf(Firma_ID = 7, "MAX(CASE WHEN kkd_kkaId = 18 THEN kkd_Email END) AS EmailMAhnungAtilla", "") & ",MAX(CASE WHEN kkd_kkaId = 10 THEN kkd_Email END) AS EmailMahnung + FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] + WHERE kkd_kkaId IN (" & IIf(Firma_ID = 7, "10, 18", "10") & ") + GROUP BY kkd_KundenNr + ) + SELECT + OP.i_personenkonto AS Konto, + KTO.c_name, + KTO.c_landid AS Land, + KTO.c_plz + ' ' + KTO.c_ort AS Ort, + COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, '') AS Email, + ISNULL(K.VK, '') AS VK, + KTO.c_zahlziel AS Zahlungsziel, + COUNT(*) AS Anzahl, + SUM(OP.eur_bruttobetrag + OP.eur_zahlung) AS Ausstand, + MIN(OP.d_netto) AS Faelligkeit, + MAX(OP.si_mahnstufe) AS Mahnstufe, + CAST(MAX(OP.d_mahnung) AS date) AS Mahndatum," & + If(cbxNurFaellig.Checked, "", "SUM(CASE WHEN OP.d_netto 1 ", "") & " + " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & " + " & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & " + GROUP BY + OP.i_personenkonto, + KTO.c_name, + KTO.c_landid, + KTO.c_plz, + KTO.c_ort, + KTO.c_zahlziel, + ISNULL(si_mahnung,0), + COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, ''), + ISNULL(K.VK,'') + HAVING SUM(OP.eur_bruttobetrag + OP.eur_zahlung) > '" & MyTextBox1._value & "' + ORDER BY KTO.c_name;" + + + Dim sqlStringVerag360 = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,Kunden.Abfertigungsverbot as AV,max(KTO.dec_aktuellersaldo) as Saldo,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */ " & "sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min(d_rechnung)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.Versicherungssumme) as V, @@ -94,7 +145,7 @@ Public Class frmBU_Mahnlauf 'MsgBox(sqlStr) - Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), sqlStr), "FIBU") + Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), IIf(newDGV, sqlStr_New, sqlStr)), "FIBU") .DataSource = dt_OP If .Columns.Count = 0 Then Exit Sub @@ -1524,12 +1575,14 @@ Public Class frmBU_Mahnlauf cbxZahlungseingaenge.Visible = True cboBetreuer.Visible = True lblBetreuer.Visible = True + cbxNewDGV.Visible = False Else cbxZahlungseingaenge.Visible = False cbxZahlungseingaenge.Checked = False cboBetreuer.Visible = False lblBetreuer.Visible = False + cbxNewDGV.Visible = True End If End Sub @@ -1541,7 +1594,7 @@ Public Class frmBU_Mahnlauf If Not VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirma._value) Then MsgBox("Fehler beim aktualisieren der OPs aus Syska!") Else - initDGV(cbxZahlungseingaenge.Checked) + initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked) End If diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 52b5930c..e3935333 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -34,7 +34,7 @@ Public Class frmMDMDatenverarbetiung Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Select Case LIEFERANT - Case "PLOSE" : genSummenbericht_PLOSE() + Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE() Case "ASFINAG" : genSummenbericht_ASFINAG() Case "UTA" : genSummenbericht_UTA() Case "IDS" : genSummenbericht_IDS(17, cbxIDSmitVerag.Checked) : genSummenbericht_IDS(21, cbxIDSmitVerag.Checked) @@ -303,6 +303,100 @@ Public Class frmMDMDatenverarbetiung print.Show() End Sub + Sub genSummenbericht_nachLand_PLOSE() + Dim displayFilter = False + Dim sqlstr As String = "" + sqlstr = "SELECT + COUNT(*) AS Anzahl, + [plInv_SupplierCountry], + SUM([plInv_Nettobetrag]) AS plose_Nettobetrag, + SUM([plInv_MWSTBetrag]) AS plose_MWSTBetrag, + SUM([plInv_Bruttobetrag]) AS plose_Bruttobetrag, + isnull([plInv_Currency],'EUR') AS Währung + FROM [tblPLOSE_Inv_Data] + WHERE [plInv_SupplierRechnungsDatum] >= ( + SELECT MIN(plose_RechnungsDatum) + FROM tblPLOSE_Details + WHERE plose_DatumTransaktion BETWEEN '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' + AND plose_Fakturiert = 0 + AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ") + ) + GROUP BY + [plInv_SupplierCountry], + [plInv_Currency] + ORDER BY + [plInv_SupplierCountry]" + + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + 'DataGridView.DataSource = dt + + + Dim print As New frmPrintLayout + print.Text = "PLOSE" + + Dim rpt As New rptPLOSE_TransaktionenSumary + + rpt.DataSource = dt + + + 'If cbxProdukt.Checked Then + ' rpt.GroupHeader2.DataField = "prod_descr" + 'Else + ' rpt.GroupHeader2.Visible = False + ' rpt.GroupFooter2.Visible = False + 'End If + + + + Dim sum = 0 + rpt.lblUeberschrift.Text = "PLOSE Summenbericht nach Land " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text + rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung + + 'Dim cnt As Integer = 0 + rpt.lblDat.Text = Now.ToLongDateString + + + Dim sumPreis As Double = 0 + Dim sumNetto As Double = 0 + Dim sumMWST As Double = 0 + Dim sumBrutto As Double = 0 + Dim sumMenge As Double = 0 + + AddHandler rpt.Detail.Format, Sub() + ' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "") + rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "") + rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plInv_SupplierCountry").Value, "") + rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Währung").Value, "") + ' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "") + rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 2, "") + rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "") + rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 2, "") + + + + sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0) + sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0) + sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0) + + End Sub + + + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblSumMenge.Text = sumMenge.ToString("N0") + 'rpt.lblSumPreis.Text = sumPreis.ToString("N2") + rpt.lblSumNetto.Text = sumNetto.ToString("N2") + rpt.lblSumMwst.Text = sumMWST.ToString("N2") + rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") + + End Sub + + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + End Sub + Sub genSummenbericht_ASFINAG() Dim displayFilter = False Dim sqlstr As String = "" diff --git a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb index 7e6e7603..c8e0f446 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb @@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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() Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() Me.btnSDL_Alle = New System.Windows.Forms.Button() @@ -37,7 +37,6 @@ Partial Class usrcntlFremdrechnungen Me.btnSDL_PLOSE = New System.Windows.Forms.Button() Me.btnSDL_RMC = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel1 = New System.Windows.Forms.Panel() Me.cbxTest = New System.Windows.Forms.CheckBox() Me.Label7 = New System.Windows.Forms.Label() @@ -66,10 +65,7 @@ Partial Class usrcntlFremdrechnungen Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel4 = New System.Windows.Forms.Panel() - Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -81,14 +77,14 @@ Partial Class usrcntlFremdrechnungen CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() - Me.cntxtExcel.SuspendLayout() Me.SuspendLayout() ' 'DetailsAnzeigenToolStripMenuItem ' + Me.DetailsAnzeigenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf Me.DetailsAnzeigenToolStripMenuItem.Name = "DetailsAnzeigenToolStripMenuItem" - Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22) - Me.DetailsAnzeigenToolStripMenuItem.Text = "Details anzeigen" + Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(154, 22) + Me.DetailsAnzeigenToolStripMenuItem.Text = "PDF hochladen" ' 'FlowLayoutPanel ' @@ -268,15 +264,9 @@ Partial Class usrcntlFremdrechnungen ' 'ContextMenuStrip1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.KundenblattAnzeigenToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 48) - ' - 'KundenblattAnzeigenToolStripMenuItem - ' - Me.KundenblattAnzeigenToolStripMenuItem.Name = "KundenblattAnzeigenToolStripMenuItem" - Me.KundenblattAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22) - Me.KundenblattAnzeigenToolStripMenuItem.Text = "Kundenblatt anzeigen" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(155, 48) ' 'Panel1 ' @@ -489,7 +479,7 @@ Partial Class usrcntlFremdrechnungen Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(5, 322) + Me.Button1.Location = New System.Drawing.Point(11, 322) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(50, 44) Me.Button1.TabIndex = 45 @@ -606,8 +596,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvLFRechnung.AllowUserToDeleteRows = False Me.dgvLFRechnung.AllowUserToResizeColumns = False Me.dgvLFRechnung.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3) @@ -624,8 +614,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvDetails.AllowUserToDeleteRows = False Me.dgvDetails.AllowUserToResizeColumns = False Me.dgvDetails.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvDetails.BackgroundColor = System.Drawing.Color.White Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvDetails.Location = New System.Drawing.Point(-1, 3) @@ -644,29 +634,12 @@ Partial Class usrcntlFremdrechnungen Me.Panel4.Size = New System.Drawing.Size(1356, 108) Me.Panel4.TabIndex = 11 ' - 'cntxtExcel + 'PDFLöschenToolStripMenuItem ' - Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6}) - Me.cntxtExcel.Name = "cntxtExcel" - Me.cntxtExcel.Size = New System.Drawing.Size(211, 48) - Me.cntxtExcel.Text = "Excel" - ' - 'ToolStripMenuItem3 - ' - Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22) - Me.ToolStripMenuItem3.Text = "Einfach" - ' - 'ToolStripMenuItem6 - ' - Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" - Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) - Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" - ' - 'ContextMenuStrip2 - ' - Me.ContextMenuStrip2.Name = "ContextMenuStrip2" - Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) + Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del + Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem" + Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22) + Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen" ' 'usrcntlFremdrechnungen ' @@ -689,7 +662,6 @@ Partial Class usrcntlFremdrechnungen CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) - Me.cntxtExcel.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -702,7 +674,6 @@ Partial Class usrcntlFremdrechnungen Friend WithEvents btnSDL_FREJUS As System.Windows.Forms.Button Friend WithEvents btnSDL_Hugo As System.Windows.Forms.Button Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip - Friend WithEvents KundenblattAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label @@ -710,9 +681,6 @@ Partial Class usrcntlFremdrechnungen Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer Friend WithEvents Button4 As System.Windows.Forms.Button - Friend WithEvents cntxtExcel As System.Windows.Forms.ContextMenuStrip - Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents lblEinträge As System.Windows.Forms.Label Friend WithEvents cbxMax1000Eintrage As System.Windows.Forms.CheckBox Friend WithEvents Button1 As System.Windows.Forms.Button @@ -736,6 +704,6 @@ Partial Class usrcntlFremdrechnungen Friend WithEvents txtKundenNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label6 As Label - Friend WithEvents ContextMenuStrip2 As ContextMenuStrip Friend WithEvents cbxTest As CheckBox + Friend WithEvents PDFLöschenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/mdm/usrcntlFremdrechnungen.resx b/SDL/mdm/usrcntlFremdrechnungen.resx index f5796c7d..279a4474 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.resx +++ b/SDL/mdm/usrcntlFremdrechnungen.resx @@ -120,10 +120,4 @@ 17, 17 - - 807, 17 - - - 913, 17 - \ No newline at end of file diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index a42460e3..3aaba876 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -1,4 +1,6 @@ Imports System.Reflection +Imports com.sun.tools.corba.se.idl +Imports DocumentFormat.OpenXml.VariantTypes Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -378,18 +380,18 @@ Public Class usrcntlFremdrechnungen Dim invToCustomer As String = "" - Select Case cbx.CheckState + Select Case cbx.CheckState ' Case CheckState.Unchecked : invToCustomer = "0" Hier alle anzeigen!!! Case CheckState.Checked : invToCustomer = "1" - End Select + End Select - If invToCustomer <> "" Then + If invToCustomer <> "" Then - Select Case aktLieferant + Select Case aktLieferant 'Case "IDS" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer Case "PLOSE" : SQLWhere &= " AND isnull(plInv_InvToCustomer,0) =" & invToCustomer - Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer - Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer + Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer + Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer Case "UTA" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer Case "VERAG" : SQLWhere &= " AND 1 <> " & invToCustomer Case "_" : SQLWhere &= " AND 1 <> " & invToCustomer @@ -397,7 +399,7 @@ Public Class usrcntlFremdrechnungen End Select - End If + End If 'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then @@ -1195,13 +1197,13 @@ Public Class usrcntlFremdrechnungen End Sub - Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click + Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Me.Cursor = Cursors.WaitCursor cProgramFunctions.genExcelFromDGV(dgvLFRechnung, True) Me.Cursor = Cursors.Default End Sub - Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click + Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Me.Cursor = Cursors.WaitCursor cProgramFunctions.genExcelFromDGV_NEW(dgvLFRechnung, True) Me.Cursor = Cursors.Default @@ -1554,4 +1556,76 @@ Public Class usrcntlFremdrechnungen End If End Sub + Private Sub ContextMenuStrip2_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) + + End Sub + + Private Sub DetailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailsAnzeigenToolStripMenuItem.Click + + If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then + + + + + Dim ReNr As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsnummer").Value + Dim ReDat As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsdatum").Value + Dim interneKundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value + Dim KundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("Kundennummer").Value + Dim LieferlandISO2 As String = dgvLFRechnung.SelectedRows(0).Cells("Land").Value + + If LieferlandISO2 = "" Then MsgBox("Land kann nicht ermittelt werden") : Exit Sub + If KundenNr = "" OrElse Not IsNumeric(KundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub + If ReDat = "" OrElse Not IsDate(ReDat) Then MsgBox("Rechnungsdatum kann nicht ermittelt werden") : Exit Sub + If interneKundenNr = "" OrElse Not IsNumeric(interneKundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub + + Select Case aktLieferant + + Case "UTA" + Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", aktLieferant & "_MANUELL", Now.Year, interneKundenNr, interneKundenNr & "_" & ReNr & "_" & LieferlandISO2) + + If DS_Import.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") <> "" Then + SQL.doSQL("Update [tblUTAImportNew] SET [daId]=" & DS_Import.da_id & ", daIdgesetztDatum = getdate(), PDFsetmanually = getdate() where Rechnungsnummer_pro_Lieferland = '" & ReNr & "' AND cast(Rechnungsdatum as Date) = '" & CDate(ReDat).ToShortDateString & "' AND Kundennummer =" & KundenNr & " and Lieferland_ISO2 ='" & LieferlandISO2 & "' and daId is null", "FMZOLL") + MsgBox("Dokument gesetzt! -> " & ReNr & " " & CDate(ReDat).ToShortDateString) + SET_SDL(aktLieferant) + End If + + Case Else + + MsgBox("Funktion nicht implementiert!") + + End Select + + End If + + End Sub + + Private Sub dgvLFRechnung_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvLFRechnung.CellMouseClick + + + If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + If e.ColumnIndex < 0 Then Exit Sub + + DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + If e.Button = MouseButtons.Right Then + + If dgvLFRechnung.SelectedCells.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + dgvLFRechnung.CurrentCell = dgvLFRechnung.Rows(e.RowIndex).Cells(e.ColumnIndex) + + + If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then + + DetailsAnzeigenToolStripMenuItem.Visible = True + Else + + DetailsAnzeigenToolStripMenuItem.Visible = False + End If + + + ContextMenuStrip1.Show(Cursor.Position) + + End If + + + + End Sub End Class diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index b4ccc6be..f87e225d 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -199,13 +199,32 @@ Public Class usrcntlFakturierung Select Case res Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL") Case MsgBoxResult.No - Case MsgBoxResult.Cancel : Exit Sub + Case MsgBoxResult.Cancel : MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub End Select End If + 'START--------------------------- Zur Sicherheit!! - Kann ab nächsten Sammelrechnunsglauf deaktiviert werden! - 21.01.2026 + Dim rechnungenMitRE_KZ As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang + WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' AND Rechnungsart <> 'RG' ", "FMZOLL",, 0)) + + If rechnungenMitAbwAbfDat > 0 Then + Dim res As MsgBoxResult + res = MsgBox("Es gibt noch " & rechnungenMitRE_KZ & " Rechnungen deren Rechnungsart nicht auf Standard-Rechnung gesetzt ist" & vbNewLine & "Möchten Sie fortfahren (Rechnungsart wird auf Standard gesetzt) ?", vbYesNoCancel) + Select Case res + Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Rechnungsart = 'RG' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' AND Rechnungsart <> 'RG' ", "FMZOLL") + Case MsgBoxResult.No + Case MsgBoxResult.Cancel : MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub + End Select + + + End If + + 'ENDE--------------------------- + + Dim rechnungenMitGesamtmautanhangCSV As String = (New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang inner join RechnungsausgangAnhaenge on Rechnungsausgang.RK_ID = RechnungsausgangAnhaenge.RK_ID @@ -240,7 +259,7 @@ Public Class usrcntlFakturierung If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then - Exit Sub + MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub End If 'RECHNUNG ODER GUTSCHRIFT @@ -1180,14 +1199,16 @@ Public Class usrcntlFakturierung If dtSammelrechnungenGruppiert.Rows.Count > 0 Then - If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then Exit Sub + If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then + MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub + End If Dim reNrisSet = setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungenGruppiert, cbxStatusAUTOMAIL.Checked) showPic(reNrisSet, PictureBox8) If Not reNrisSet Then - MsgBox("Fehler beim Setzen der Rechnungsnummer" & vbNewLine & "Vorgang wird abgebrochen!") + MsgBox("Fehler beim Setzen der Rechnungsnummer" & vbNewLine & "Rechnungslauf wird abgebrochen!") Exit Sub End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 016b0cfd..13fe004f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -1155,10 +1155,15 @@ Public Class cMDMFunctionsAllgemein Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr) If Antrag_LandKz <> "" Then header1 = "Statement itemising VAT amounts relating to the period covered by this application" - header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR - End If - Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile) + If USTV_ANTRAG.UStVAn_ReDatVon IsNot Nothing AndAlso IsDate(USTV_ANTRAG.UStVAn_ReDatVon) AndAlso USTV_ANTRAG.UStVAn_ReDatBis IsNot Nothing AndAlso IsDate(USTV_ANTRAG.UStVAn_ReDatBis) Then + header1 &= " (" & CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToShortDateString & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToShortDateString & ")" + End If + + header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR + End If + + Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile) Else From b58e047d2d8cc8ac6b2347c5943f276535e37490 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 22 Jan 2026 11:29:58 +0100 Subject: [PATCH 03/13] MDM Auswertung, Fakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 3 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 6 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmUSTVoffeneAntraege.vb | 10 +- SDL/mdm/usrCntlMDMAuswertungen.Designer.vb | 15 +++ SDL/mdm/usrCntlMDMAuswertungen.vb | 103 ++++----------------- SDL/mdm/usrcntlFremdrechnungen.vb | 2 +- 7 files changed, 47 insertions(+), 96 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 9d556031..71905104 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2618,10 +2618,11 @@ Public Class cFakturierung ElseIf rpt.txtLeistung.Text.Contains("00") Then rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) End If + If rpt.txtLeistung.Text.Contains(" DL") Then rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace(" DL", " ") End If - End If + End If End If diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 201e4728..0268e383 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1487,7 +1487,7 @@ Public Class usrCntlFaktAbrechnung Dim isMWSTBearb As Boolean = False Select Case r.Cells("LeistungsNr").Value - Case 124, 125, 126, 117, 118, 119, bearbNrRMC : isMWSTBearb = True + Case 123, 124, 125, 126, 117, 118, 119, bearbNrRMC : isMWSTBearb = True End Select @@ -2899,9 +2899,9 @@ Public Class usrCntlFaktAbrechnung For Each row As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows If row.Cells("LeistungsNr").Value = BGebLeistungsNr And row.Cells("BerechnungsartNr").Value = 9 Then - Dim preisecChanged = row.Cells("Preis").Value + Dim preiseChanged = row.Cells("Preis").Value - If preisecChanged <> (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1) Then + If preiseChanged <> (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1) Then ' If row.Cells("Preis").Value = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen v diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d370e0f4..ed5e3b7f 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 687acdca..09be87e5 100644 --- a/SDL/USTV/frmUSTVoffeneAntraege.vb +++ b/SDL/USTV/frmUSTVoffeneAntraege.vb @@ -1090,11 +1090,11 @@ Public Class frmUSTVoffeneAntraege Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 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] 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" + Case "plose" : SQLQuery = "select [plInv_SupplierRechnungsNr] as RechnungsNr,plInv_SupplierRechnungsDatum as Rechnungsdatum,Adressen.AdressenNr,Adressen.[Name 1] as Kunde, kde_keineMWSt as keineMWST from [tblPLOSE_Inv_Data] INNER JOIN Adressen on [plInv_PLOSEKundennummer]=Adressen.PLOSEKundenNr INNER JOIN tblKundenErweitert on AdressenNr = kde_KundenNr 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, kde_keineMWSt" + Case "rmc" : SQLQuery = "select rmc_reNr as RechnungsNr,rmc_reDatum AS Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde, kde_keineMWSt as keineMWST from [tblRMCImport] INNER JOIN Adressen on WölflKundenNr=[rmc_kdNr] or weitereWölflKundenNr=[rmc_kdNr] INNER JOIN tblKundenErweitert on AdressenNr = kde_KundenNr 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, kde_keineMWSt " + Case "mse" : SQLQuery = "select invoice_id as RechnungsNr,[invoice_date] as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde, kde_keineMWSt as keineMWST from tblMSEInvoices inner join [tblMSECustomers] on [customer_number] = [customer_id] INNER JOIN Adressen on Adressen.MSEKundenNr = [customer_number] INNER JOIN tblKundenErweitert on AdressenNr = kde_KundenNr 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, kde_keineMWSt" + Case "uta" : SQLQuery = " SELECT U.Abrechnungsnummer AS Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,CAST(U.Rechnungsdatum AS date) AS Rechnungsdatum,A.AdressenNr AS KundenNr,A.UTAKundenNr AS UTAKundenNr,A.[Name 1] AS Kunde,A.LandKz, kde_keineMWSt as keineMWST FROM tblUTAImportNew U INNER JOIN Adressen A ON A.UTAKundenNr = U.Kundennummer INNER JOIN tblKundenErweitert on A.AdressenNr = kde_KundenNr WHERE U.daId IS NULL AND CAST(U.Rechnungsdatum AS date) BETWEEN '" & dat_Sum_Von.Value & "' AND '" & dat_Sum_Bis.Value & "' AND NOT (A.LandKz = 'RO' AND U.Lieferland = 'ROM') GROUP BY U.Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,U.Rechnungsdatum,A.AdressenNr,A.UTAKundenNr ,A.[Name 1],A.LandKz, kde_keineMWSt ORDER BY U.Rechnungsdatum" + Case "ids" : SQLQuery = "select Invoicenumber as RechnungsNr,YearMonthDay as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde, kde_keineMWSt 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 INNER JOIN tblKundenErweitert on Adressen.AdressenNr = kde_KundenNr 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, kde_keineMWSt" Case Else : SQLQuery = "" End Select diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index ca1bed4d..1eda5f41 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -189,6 +189,7 @@ Partial Class usrCntlMDMAuswertungen Me.btnContractdaten = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() + Me.cbxExcel = New System.Windows.Forms.CheckBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1839,6 +1840,7 @@ Partial Class usrCntlMDMAuswertungen ' 'GroupBox17 ' + Me.GroupBox17.Controls.Add(Me.cbxExcel) Me.GroupBox17.Controls.Add(Me.Label55) Me.GroupBox17.Controls.Add(Me.Button16) Me.GroupBox17.Location = New System.Drawing.Point(6, 367) @@ -2068,6 +2070,18 @@ Partial Class usrCntlMDMAuswertungen Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.TabIndex = 26 ' + 'cbxExcel + ' + Me.cbxExcel.AutoSize = True + Me.cbxExcel.Checked = True + Me.cbxExcel.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxExcel.Location = New System.Drawing.Point(150, 36) + Me.cbxExcel.Name = "cbxExcel" + Me.cbxExcel.Size = New System.Drawing.Size(68, 17) + Me.cbxExcel.TabIndex = 56 + Me.cbxExcel.Text = "als Excel" + Me.cbxExcel.UseVisualStyleBackColor = True + ' 'usrCntlMDMAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2306,4 +2320,5 @@ Partial Class usrCntlMDMAuswertungen Friend WithEvents PictureBox6 As PictureBox Friend WithEvents Label63 As Label Friend WithEvents Button19 As Button + Friend WithEvents cbxExcel As CheckBox End Class diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 5a407b43..3c5a6b34 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -1342,93 +1342,28 @@ Public Class usrCntlMDMAuswertungen Exit Sub End If - dgv.DataSource = dt + If cbxExcel.Checked Then + + VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt) + Else + + dgv.DataSource = dt + + If dgv IsNot Nothing Then + frm.Size = New Size(1400, 1000) + dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50) + dgv.Dock = DockStyle.Fill + dgv.Anchor = AnchorStyles.Left + dgv.Anchor = AnchorStyles.Top + dgv.ReadOnly = True + frm.Controls.Add(dgv) + frm.StartPosition = FormStartPosition.CenterScreen + frm.ShowDialog() + End If + - If dgv IsNot Nothing Then - frm.Size = New Size(1400, 1000) - dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50) - dgv.Dock = DockStyle.Fill - dgv.Anchor = AnchorStyles.Left - dgv.Anchor = AnchorStyles.Top - dgv.ReadOnly = True - frm.Controls.Add(dgv) - frm.StartPosition = FormStartPosition.CenterScreen - frm.ShowDialog() End If - - - 'Dim print As New frmPrintLayout - 'print.Text = "ASFINAG" - - 'Dim rpt As New rptASFINAG_TransaktionenSumary - - 'rpt.DataSource = dt - - - - - - 'Dim sum = 0 - 'rpt.lblUeberschrift.Text = "ASFINAG Transaktionssummen " & CDate(dat_Sum_Bis.Value.ToShortDateString) - 'rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME - - 'rpt.Label10.Visible = False - 'Label1.Text = "Dateiname" - 'Label8.Text = "Erstellungsdatum" - ''Dim cnt As Integer = 0 - 'rpt.lblDat.Text = Now.ToLongDateString - - - - - - 'Dim sumNetto As Double = 0 - 'Dim sumMWST As Double = 0 - 'Dim sumBrutto As Double = 0 - - 'Dim sumperKdNrNetto As Double = 0 - 'Dim sumperKdNrMWST As Double = 0 - 'Dim sumperKdNrBrutto As Double = 0 - - - 'AddHandler rpt.Detail.Format, Sub() - - - ' rpt.lblKundennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("PKFileName").Value, "") - ' rpt.lblName1.Text = SQL.isDbnullEmpty(rpt.Fields.Item("FileCreationDate").Value, "") - ' rpt.lblKartennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Abrechnungsdatum").Value, "") - - ' rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 2, "") - ' rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Umsatzsteuer").Value, 2, "") - ' rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Bruttobetrag").Value, 2, "") - - - ' rpt.lblSumNet.Visible = False - ' rpt.lblSumVat.Visible = False - ' rpt.lblSumBrt.Visible = False - - ' sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 4, 0) - ' sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Umsatzsteuer").Value, 4, 0) - ' sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Bruttobetrag").Value, 4, 0) - - - ' End Sub - - - 'AddHandler rpt.ReportFooter1.Format, Sub() - - ' rpt.lblSumNetto.Text = sumNetto.ToString("N2") - ' rpt.lblSumMwst.Text = sumMWST.ToString("N2") - ' rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") - - ' End Sub - - 'print.Viewer.LoadDocument(rpt) - 'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous - 'print.Show() - - Catch ex As System.Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index 3aaba876..ec1bafbf 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -1583,7 +1583,7 @@ Public Class usrcntlFremdrechnungen Case "UTA" Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", aktLieferant & "_MANUELL", Now.Year, interneKundenNr, interneKundenNr & "_" & ReNr & "_" & LieferlandISO2) - If DS_Import.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") <> "" Then + If DS_Import.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then SQL.doSQL("Update [tblUTAImportNew] SET [daId]=" & DS_Import.da_id & ", daIdgesetztDatum = getdate(), PDFsetmanually = getdate() where Rechnungsnummer_pro_Lieferland = '" & ReNr & "' AND cast(Rechnungsdatum as Date) = '" & CDate(ReDat).ToShortDateString & "' AND Kundennummer =" & KundenNr & " and Lieferland_ISO2 ='" & LieferlandISO2 & "' and daId is null", "FMZOLL") MsgBox("Dokument gesetzt! -> " & ReNr & " " & CDate(ReDat).ToShortDateString) SET_SDL(aktLieferant) From 8896aa1def692eb747c01926627952f2ee68a550 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 22 Jan 2026 17:41:06 +0100 Subject: [PATCH 04/13] =?UTF-8?q?div.=20=C3=84nderungen=20(USTVA,=20Ausewr?= =?UTF-8?q?tung,=20etc.)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmMDM_USTVAntrag.vb | 1 + SDL/buchhaltung/frmBU_Mahnlauf.vb | 29 ++- SDL/mdm/usrCntlMDMAuswertungen.Designer.vb | 196 +++++++++++++++++++-- SDL/mdm/usrCntlMDMAuswertungen.vb | 148 ++++++++++++---- 5 files changed, 311 insertions(+), 67 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index ed5e3b7f..73f74517 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/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 2abaa749..fd57d2e2 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -3314,6 +3314,7 @@ Public Class frmMDM_USTVAntrag Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click + If IsDBNull(USTV_ANTRAG.FilialenNr) OrElse USTV_ANTRAG.FilialenNr Is Nothing OrElse USTV_ANTRAG.FilialenNr = 0 Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub If IsDBNull(USTV_ANTRAG.AbfertigungsNr) OrElse USTV_ANTRAG.AbfertigungsNr Is Nothing OrElse USTV_ANTRAG.AbfertigungsNr <= 0 Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 9ea362ee..7778ac86 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -47,7 +47,7 @@ Public Class frmBU_Mahnlauf Dim sqlStr_New = "WITH EmailCTE AS ( SELECT - kkd_KundenNr," & IIf(Firma_ID = 7, "MAX(CASE WHEN kkd_kkaId = 18 THEN kkd_Email END) AS EmailMAhnungAtilla", "") & ",MAX(CASE WHEN kkd_kkaId = 10 THEN kkd_Email END) AS EmailMahnung + kkd_KundenNr" & IIf(Firma_ID = 7, ",MAX(CASE WHEN kkd_kkaId = 18 THEN kkd_Email END) AS EmailMAhnungAtilla", "") & ",MAX(CASE WHEN kkd_kkaId = 10 THEN kkd_Email END) AS EmailMahnung FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] WHERE kkd_kkaId IN (" & IIf(Firma_ID = 7, "10, 18", "10") & ") GROUP BY kkd_KundenNr @@ -343,24 +343,23 @@ Public Class frmBU_Mahnlauf 'Wenn <0, dann Guthaben!! End Function - - Public Function increaseMahnstufe(KdNr As Integer, Firma_ID As Integer) As Boolean + Public Function increaseMahnstufe(KdNr As Integer, Firma_ID As Integer, ErhoehungBeiMahnsperre As Boolean) As Boolean ' Dim sqlStr = "UPDATE op_debitor SET si_mahnstufe=(isnull(si_mahnstufe,0)+1),d_mahnung=GETDATE() WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) - and i_personenkonto='" & KdNr & "' and dec_fremdbrutto>0 and (si_mahnstufe >=0 OR si_mahnstufe is NULL) and d_netto<=getdate()" + and i_personenkonto='" & KdNr & "' and dec_fremdbrutto>0 and (si_mahnstufe >=0 OR si_mahnstufe is NULL) " & IIf(ErhoehungBeiMahnsperre, "", "AND isnull(si_mahnflags,0) <>(1)") & " and d_netto<=getdate()" Return SQL.doSQL(sqlStr, "FIBU") End Function - Public Function redoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date) As Boolean + Public Function redoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date, ErhoehungBeiMahnsperre As Boolean) As Boolean Dim sqlStr = " UPDATE op_debitor SET si_mahnstufe=(si_mahnstufe-1) WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) and (si_mahnstufe >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()" Return SQL.doSQL(sqlStr, "FIBU") End Function - Public Function cntRedoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date) As Integer + Public Function cntRedoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date, MahnsperreBeruecksichtigen As Boolean) As Integer Dim sqlStr = " SELECT COUNT(*) FROM op_debitor WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) - and (si_mahnstufe >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()" + and (si_mahnstufe >0 AND si_mahnstufe is not NULL) " & IIf(MahnsperreBeruecksichtigen, "", "AND isnull(si_mahnflags,0) <>(1)") & " and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()" Return SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0) End Function Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True) As Boolean @@ -1425,9 +1424,9 @@ Public Class frmBU_Mahnlauf For Each r As DataGridViewRow In MyDatagridview1.SelectedRows - Dim mahnsperre As Boolean = r.Cells("mahnbar").Value + Dim mahnbar As Boolean = r.Cells("mahnbar").Value - If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And mahnsperre) Then + If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And mahnbar) Then ' Mahnsperre -> Kunde mit Mahnsperre wird NICHT gemahnt! Dim Konto = r.Cells("Konto").Value Dim FirmaId = cboFirma._value @@ -1436,18 +1435,18 @@ Public Class frmBU_Mahnlauf Dim Path = "" Select Case AUSGABE Case "PDF" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked) If doMahnung(4, Konto, FirmaId, "ZE", Path, srchPrinter) Then PDF_LIST.Add(Path) End If Case "MAIL" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked) doMahnung(2, Konto, FirmaId, "ZE",, srchPrinter) Case "MAIL_SEND" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked) doMahnung(5, Konto, FirmaId, "ZE",, srchPrinter) Case "PRINT" - If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId) + If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked) doMahnung(0, Konto, FirmaId, "ZE",, srchPrinter) End Select End If @@ -1525,9 +1524,9 @@ Public Class frmBU_Mahnlauf Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click If MyTextBox2._value <> "" Then Dim mahndatum As Date = MyTextBox2._value - Dim cntRedo As Integer = cntRedoMahnstufe(cboFirma._value, mahndatum) + Dim cntRedo As Integer = cntRedoMahnstufe(cboFirma._value, mahndatum, Not cbxMahnsperre.Checked) If vbYes = MsgBox("Möchten Sie wirklich den Mahnzähler zurücksetzen?" & vbNewLine & "Ab Mahndatum: " & mahndatum & vbNewLine & "Betrifft '" & cntRedo & "' Mahnungen/Einträge " & mahndatum, vbYesNoCancel) Then - If redoMahnstufe(cboFirma._value, mahndatum) Then + If redoMahnstufe(cboFirma._value, mahndatum, Not cbxMahnsperre.Checked) Then MsgBox("Der Mahnzähler wurde erfolgreich zurückgesetzt.") End If End If diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index 1eda5f41..bb3badd7 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -127,6 +127,13 @@ Partial Class usrCntlMDMAuswertungen Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label36 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.Label66 = New System.Windows.Forms.Label() + Me.GroupBox20 = New System.Windows.Forms.GroupBox() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label64 = New System.Windows.Forms.Label() + Me.Label65 = New System.Windows.Forms.Label() + Me.Button20 = New System.Windows.Forms.Button() Me.UsrCntlWoelfl_IM_CSVRg1 = New SDL.usrCntlWoelfl_IM_CSVRg() Me.tbIDS = New System.Windows.Forms.TabPage() Me.Label62 = New System.Windows.Forms.Label() @@ -168,6 +175,7 @@ Partial Class usrCntlMDMAuswertungen Me.TabPage5 = New System.Windows.Forms.TabPage() Me.Label56 = New System.Windows.Forms.Label() Me.GroupBox17 = New System.Windows.Forms.GroupBox() + Me.cbxExcel = New System.Windows.Forms.CheckBox() Me.Label55 = New System.Windows.Forms.Label() Me.Button16 = New System.Windows.Forms.Button() Me.Label53 = New System.Windows.Forms.Label() @@ -189,7 +197,10 @@ Partial Class usrCntlMDMAuswertungen Me.btnContractdaten = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() - Me.cbxExcel = New System.Windows.Forms.CheckBox() + Me.Label67 = New System.Windows.Forms.Label() + Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtLeistungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -210,6 +221,8 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox9.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() + Me.GroupBox20.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbIDS.SuspendLayout() Me.GroupBox13.SuspendLayout() Me.GroupBox18.SuspendLayout() @@ -1406,6 +1419,8 @@ Partial Class usrCntlMDMAuswertungen ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.Label66) + Me.TabPage3.Controls.Add(Me.GroupBox20) Me.TabPage3.Controls.Add(Me.UsrCntlWoelfl_IM_CSVRg1) Me.TabPage3.Controls.Add(Me.Label4) Me.TabPage3.Controls.Add(Me.GroupBox2) @@ -1416,10 +1431,86 @@ Partial Class usrCntlMDMAuswertungen Me.TabPage3.Text = "WÖLFL" Me.TabPage3.UseVisualStyleBackColor = True ' + 'Label66 + ' + Me.Label66.AutoSize = True + Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label66.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label66.Location = New System.Drawing.Point(9, 136) + Me.Label66.Name = "Label66" + Me.Label66.Size = New System.Drawing.Size(347, 17) + Me.Label66.TabIndex = 15 + Me.Label66.Text = "Wölfl Rechnungen Bearbeitungsbetrag Quartal" + ' + 'GroupBox20 + ' + Me.GroupBox20.Controls.Add(Me.cboQuartal) + Me.GroupBox20.Controls.Add(Me.txtLeistungsNr) + Me.GroupBox20.Controls.Add(Me.txtJahr) + Me.GroupBox20.Controls.Add(Me.Label67) + Me.GroupBox20.Controls.Add(Me.PictureBox7) + Me.GroupBox20.Controls.Add(Me.Label45) + Me.GroupBox20.Controls.Add(Me.Label64) + Me.GroupBox20.Controls.Add(Me.Label65) + Me.GroupBox20.Controls.Add(Me.Button20) + Me.GroupBox20.Location = New System.Drawing.Point(6, 153) + Me.GroupBox20.Name = "GroupBox20" + Me.GroupBox20.Size = New System.Drawing.Size(697, 111) + Me.GroupBox20.TabIndex = 14 + Me.GroupBox20.TabStop = False + ' + 'PictureBox7 + ' + Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.woelfl + Me.PictureBox7.Location = New System.Drawing.Point(640, 8) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(51, 37) + Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox7.TabIndex = 11 + Me.PictureBox7.TabStop = False + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(249, 50) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(44, 13) + Me.Label45.TabIndex = 10 + Me.Label45.Text = "Quartal:" + ' + 'Label64 + ' + Me.Label64.AutoSize = True + Me.Label64.Location = New System.Drawing.Point(153, 50) + Me.Label64.Name = "Label64" + Me.Label64.Size = New System.Drawing.Size(27, 13) + Me.Label64.TabIndex = 8 + Me.Label64.Text = "Jahr" + ' + 'Label65 + ' + Me.Label65.AutoSize = True + Me.Label65.Location = New System.Drawing.Point(145, 19) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(373, 13) + Me.Label65.TabIndex = 5 + Me.Label65.Text = "Alle Woelfl-Kunden, deren Bearbeitungsbetrag pro Quartal unter 50 EUR liegt." + ' + 'Button20 + ' + Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button20.Location = New System.Drawing.Point(6, 19) + Me.Button20.Name = "Button20" + Me.Button20.Size = New System.Drawing.Size(121, 49) + Me.Button20.TabIndex = 4 + Me.Button20.Text = "CSV erstellen" + Me.Button20.UseVisualStyleBackColor = True + ' 'UsrCntlWoelfl_IM_CSVRg1 ' Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White - Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 167) + Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(12, 292) Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1" Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97) Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10 @@ -1849,6 +1940,18 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox17.TabIndex = 13 Me.GroupBox17.TabStop = False ' + 'cbxExcel + ' + Me.cbxExcel.AutoSize = True + Me.cbxExcel.Checked = True + Me.cbxExcel.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxExcel.Location = New System.Drawing.Point(150, 36) + Me.cbxExcel.Name = "cbxExcel" + Me.cbxExcel.Size = New System.Drawing.Size(68, 17) + Me.cbxExcel.TabIndex = 56 + Me.cbxExcel.Text = "als Excel" + Me.cbxExcel.UseVisualStyleBackColor = True + ' 'Label55 ' Me.Label55.AutoSize = True @@ -2070,17 +2173,72 @@ Partial Class usrCntlMDMAuswertungen Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.TabIndex = 26 ' - 'cbxExcel + 'Label67 ' - Me.cbxExcel.AutoSize = True - Me.cbxExcel.Checked = True - Me.cbxExcel.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxExcel.Location = New System.Drawing.Point(150, 36) - Me.cbxExcel.Name = "cbxExcel" - Me.cbxExcel.Size = New System.Drawing.Size(68, 17) - Me.cbxExcel.TabIndex = 56 - Me.cbxExcel.Text = "als Excel" - Me.cbxExcel.UseVisualStyleBackColor = True + Me.Label67.AutoSize = True + Me.Label67.Location = New System.Drawing.Point(145, 80) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(155, 13) + Me.Label67.TabIndex = 12 + Me.Label67.Text = "LeistungsNr (Komma-getrennt).:" + ' + 'txtJahr + ' + Me.txtJahr._DateTimeOnly = False + Me.txtJahr._numbersOnly = False + Me.txtJahr._numbersOnlyKommastellen = "" + Me.txtJahr._numbersOnlyTrennzeichen = True + Me.txtJahr._Prozent = False + Me.txtJahr._ShortDateNew = False + Me.txtJahr._ShortDateOnly = False + Me.txtJahr._TimeOnly = False + Me.txtJahr._TimeOnly_Seconds = False + Me.txtJahr._value = "" + Me.txtJahr._Waehrung = False + Me.txtJahr._WaehrungZeichen = True + Me.txtJahr.ForeColor = System.Drawing.Color.Black + Me.txtJahr.Location = New System.Drawing.Point(185, 47) + Me.txtJahr.MaxLineLength = -1 + Me.txtJahr.MaxLines_Warning = "" + Me.txtJahr.MaxLines_Warning_Label = Nothing + Me.txtJahr.Name = "txtJahr" + Me.txtJahr.Size = New System.Drawing.Size(53, 20) + Me.txtJahr.TabIndex = 13 + ' + 'txtLeistungsNr + ' + Me.txtLeistungsNr._DateTimeOnly = False + Me.txtLeistungsNr._numbersOnly = False + Me.txtLeistungsNr._numbersOnlyKommastellen = "" + Me.txtLeistungsNr._numbersOnlyTrennzeichen = True + Me.txtLeistungsNr._Prozent = False + Me.txtLeistungsNr._ShortDateNew = False + Me.txtLeistungsNr._ShortDateOnly = False + Me.txtLeistungsNr._TimeOnly = False + Me.txtLeistungsNr._TimeOnly_Seconds = False + Me.txtLeistungsNr._value = "327" + Me.txtLeistungsNr._Waehrung = False + Me.txtLeistungsNr._WaehrungZeichen = True + Me.txtLeistungsNr.ForeColor = System.Drawing.Color.Black + Me.txtLeistungsNr.Location = New System.Drawing.Point(306, 73) + Me.txtLeistungsNr.MaxLineLength = -1 + Me.txtLeistungsNr.MaxLines_Warning = "" + Me.txtLeistungsNr.MaxLines_Warning_Label = Nothing + Me.txtLeistungsNr.Name = "txtLeistungsNr" + Me.txtLeistungsNr.Size = New System.Drawing.Size(93, 20) + Me.txtLeistungsNr.TabIndex = 15 + Me.txtLeistungsNr.Text = "327" + ' + 'cboQuartal + ' + Me.cboQuartal._allowedValuesFreiText = Nothing + Me.cboQuartal._allowFreiText = False + Me.cboQuartal._value = "" + Me.cboQuartal.FormattingEnabled = True + Me.cboQuartal.Location = New System.Drawing.Point(306, 46) + Me.cboQuartal.Name = "cboQuartal" + Me.cboQuartal.Size = New System.Drawing.Size(59, 21) + Me.cboQuartal.TabIndex = 16 ' 'usrCntlMDMAuswertungen ' @@ -2123,6 +2281,9 @@ Partial Class usrCntlMDMAuswertungen CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() + Me.GroupBox20.ResumeLayout(False) + Me.GroupBox20.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() Me.tbIDS.ResumeLayout(False) Me.tbIDS.PerformLayout() Me.GroupBox13.ResumeLayout(False) @@ -2321,4 +2482,15 @@ Partial Class usrCntlMDMAuswertungen Friend WithEvents Label63 As Label Friend WithEvents Button19 As Button Friend WithEvents cbxExcel As CheckBox + Friend WithEvents Label66 As Label + Friend WithEvents GroupBox20 As GroupBox + Friend WithEvents PictureBox7 As PictureBox + Friend WithEvents Label45 As Label + Friend WithEvents Label64 As Label + Friend WithEvents Label65 As Label + Friend WithEvents Button20 As Button + Friend WithEvents txtJahr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label67 As Label + Friend WithEvents txtLeistungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 3c5a6b34..7e3f7485 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -56,6 +56,18 @@ Public Class usrCntlMDMAuswertungen cboIDSDateType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Leistungsdatum", "LDat")) cboIDSDateType.changeItem("RGDat") + txtJahr.Text = Now.Year + + cboQuartal.Items.Clear() + cboQuartal.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", "1")) + cboQuartal.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", "2")) + cboQuartal.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3", "3")) + cboQuartal.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4", "4")) + cboQuartal.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" ", " ")) + cboQuartal.changeItem(" ") + + txtLeistungsNr.Text = "327" + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Auswertungen_IDS", Me.FindForm) Then tbcntr.TabPages.Remove(tbIDS) End If @@ -178,58 +190,58 @@ Public Class usrCntlMDMAuswertungen If MonthStart = MonthEnd Then MonthEnd = "" If r.Item("RK_ID") > 0 Then - For Each pos As cUStVPositionen In MWSTAntrag.POSITIONEN.OrderBy(Function(x) If(IsDate(x.UStVPo_ReDat), CDate(x.UStVPo_ReDat), Nothing)) + For Each pos As cUStVPositionen In MWSTAntrag.POSITIONEN.OrderBy(Function(x) If(IsDate(x.UStVPo_ReDat), CDate(x.UStVPo_ReDat), Nothing)) - If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso pos.UStVPo_VZ_RKID = r.Item("RK_ID") AndAlso IsDate(pos.UStVPo_ReDat) Then - If Not listVZMonth.Contains(CDate(pos.UStVPo_ReDat).Month) Then listVZMonth.Add(CDate(pos.UStVPo_ReDat).Month) - End If - - Next - End If - - If listVZMonth.Count > 0 Then - - If listVZMonth.Count = 1 Then - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString - MonthEnd = "" - Else - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString - MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString + If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso pos.UStVPo_VZ_RKID = r.Item("RK_ID") AndAlso IsDate(pos.UStVPo_ReDat) Then + If Not listVZMonth.Contains(CDate(pos.UStVPo_ReDat).Month) Then listVZMonth.Add(CDate(pos.UStVPo_ReDat).Month) End If - End If + Next + End If + If listVZMonth.Count > 0 Then - Dim LeistungsBez As String = "" - LeistungsBez = r.Item("LeistungsBez").ToString() - - If LeistungsBez.Contains("00-00/23") Then - LeistungsBez = LeistungsBez.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - ElseIf LeistungsBez.Contains("DL/23") Then - LeistungsBez = LeistungsBez.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + If listVZMonth.Count = 1 Then + MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + MonthEnd = "" Else - LeistungsBez = LeistungsBez.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - End If - - If LeistungsBez.Contains("-00") Then - LeistungsBez = LeistungsBez.Replace("-00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - ElseIf LeistungsBez.Contains("00-") Then - LeistungsBez = LeistungsBez.Replace("00-", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - ElseIf LeistungsBez.Contains("00") Then - LeistungsBez = LeistungsBez.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - End If - If LeistungsBez.Length > 30 Then - r.Item("LeistungsBez") = LeistungsBez.Substring(0, 30) - Else - r.Item("LeistungsBez") = LeistungsBez + MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString End If + End If + + Dim LeistungsBez As String = "" + LeistungsBez = r.Item("LeistungsBez").ToString() + + If LeistungsBez.Contains("00-00/23") Then + LeistungsBez = LeistungsBez.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + ElseIf LeistungsBez.Contains("DL/23") Then + LeistungsBez = LeistungsBez.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + Else + LeistungsBez = LeistungsBez.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + End If + + If LeistungsBez.Contains("-00") Then + LeistungsBez = LeistungsBez.Replace("-00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + ElseIf LeistungsBez.Contains("00-") Then + LeistungsBez = LeistungsBez.Replace("00-", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + ElseIf LeistungsBez.Contains("00") Then + LeistungsBez = LeistungsBez.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + End If + If LeistungsBez.Length > 30 Then + r.Item("LeistungsBez") = LeistungsBez.Substring(0, 30) + Else + r.Item("LeistungsBez") = LeistungsBez End If End If + + End If + Next If dt.Columns.Contains("RK_ID") Then dt.Columns.Remove("RK_ID") @@ -1505,6 +1517,66 @@ Public Class usrCntlMDMAuswertungen End Sub + + Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click + + Try + + + Me.Cursor = Cursors.WaitCursor + + Dim Jahr As Integer = Now().Year + + If txtJahr.Text <> "" AndAlso IsNumeric(txtJahr.Text) AndAlso txtJahr.Text.Length = 4 Then + Jahr = txtJahr.Text + End If + + Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Betrag', 50 - sum(Temp.Betrag) as Differenzbetrag from (SELECT + USTVA.UStVAn_KuNr as KundenNr, + USTVA.UStVAn_Name as Kundenname, + YEAR(R.Abfertigungsdatum) AS Jahr, + DATEPART(QUARTER, R.Abfertigungsdatum) AS Quartal, + POS.LeistungsNr, + SUM(POS.SteuerfreierBetrag + POS.SteuerpflichtigerBetrag) AS Betrag + FROM tblUStVAntrag AS USTVA + INNER JOIN Rechnungsausgang AS R + ON R.FilialenNr = USTVA.FilialenNr + AND R.AbfertigungsNr = USTVA.AbfertigungsNr + INNER JOIN RechnungsausgangPositionen AS POS + ON R.RK_ID = POS.RK_ID + WHERE USTVA.UStVAn_KuNr LIKE '15%' + + AND YEAR(R.Abfertigungsdatum) = " & Jahr & + " AND POS.LeistungsNr IN (" & IIf(txtLeistungsNr.Text <> "", txtLeistungsNr.Text, "") & ") + GROUP BY + USTVA.UStVAn_KuNr, + USTVA.UStVAn_Name, + YEAR(R.Abfertigungsdatum), + DATEPART(QUARTER, R.Abfertigungsdatum), + POS.LeistungsNr + ) as Temp + WHERE 1 = 1 " & IIf(cboQuartal._value.Trim() <> "", " AND temp.Quartal = " & cboQuartal._value, "") & " + Group by Temp.KundenNr, Temp.Kundenname, Temp.Jahr, Temp.Quartal + Having sum(Temp.Betrag) < 50" + + Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") + + If dt.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt) + Else + MsgBox("keine Daten für ausgewählten Zeitraum") + End If + + + + + Catch ex As System.Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + Me.Cursor = Cursors.Default + + End Sub End Class From 44a58bc077f5a35a6ce400f5090f69546f469907 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 28 Jan 2026 12:04:18 +0100 Subject: [PATCH 05/13] MDMAusewrtung, faktEmail, etc. --- SDL/Fakturierung/frmAbrechnungsMaske.vb | 2 +- SDL/Fakturierung/frmFaktEmail.Designer.vb | 39 ++++- SDL/Fakturierung/frmFaktEmail.resx | 3 + SDL/Fakturierung/frmFaktEmail.vb | 8 + SDL/My Project/AssemblyInfo.vb | 4 +- .../usrCntlSpeditionsBuchSuche.vb | 2 +- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 48 ++++-- SDL/USTV/frmMDM_USTVAntrag.vb | 31 +++- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 6 +- SDL/mdm/usrCntlMDMAuswertungen.Designer.vb | 153 ++++++++++-------- SDL/mdm/usrCntlMDMAuswertungen.vb | 33 +--- VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb | 20 +++ VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb | 52 ++++++ 13 files changed, 276 insertions(+), 125 deletions(-) diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index fc3dd1a2..8447081c 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -102,7 +102,7 @@ Public Class frmAbrechnungsMaske Case "ATILLA" cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=7", False, "FMZOLL") cboFirma.changeItem("7") - cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where isnull(mit_firmaFMZoll,0)=7 and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) + cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where isnull(mit_firmaFMZoll,0)=7 and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=199 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) FilialNrRestriction = 4813 Case "VERAGIMEX" diff --git a/SDL/Fakturierung/frmFaktEmail.Designer.vb b/SDL/Fakturierung/frmFaktEmail.Designer.vb index 3b2704c5..178cb7c1 100644 --- a/SDL/Fakturierung/frmFaktEmail.Designer.vb +++ b/SDL/Fakturierung/frmFaktEmail.Designer.vb @@ -22,7 +22,6 @@ Partial Class frmFaktEmail 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 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() @@ -51,7 +50,7 @@ Partial Class frmFaktEmail Me.lkl = New System.Windows.Forms.LinkLabel() Me.Label3 = New System.Windows.Forms.Label() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.clmnLKW = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnStb_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnMitt_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -74,7 +73,7 @@ Partial Class frmFaktEmail Me.cbxTransFerry = New System.Windows.Forms.CheckBox() Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxRgKopieDrucken = New System.Windows.Forms.CheckBox() - Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -87,11 +86,15 @@ Partial Class frmFaktEmail Me.cbxMDMAnh = New System.Windows.Forms.CheckBox() Me.Button6 = New System.Windows.Forms.Button() Me.cbxVZ = New System.Windows.Forms.CheckBox() + Me.btn_FM = New System.Windows.Forms.Button() + Me.CM_FM = New System.Windows.Forms.ContextMenuStrip() + Me.OriginalschreibenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() + Me.CM_FM.SuspendLayout() Me.SuspendLayout() ' 'lbl @@ -744,12 +747,38 @@ Partial Class frmFaktEmail Me.cbxVZ.Text = "VZ" Me.cbxVZ.UseVisualStyleBackColor = True ' + 'btn_FM + ' + Me.btn_FM.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_FM.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.btn_FM.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btn_FM.Location = New System.Drawing.Point(610, 605) + Me.btn_FM.Name = "btn_FM" + Me.btn_FM.Size = New System.Drawing.Size(131, 39) + Me.btn_FM.TabIndex = 99 + Me.btn_FM.Text = "Formular-Manager" + Me.btn_FM.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btn_FM.UseVisualStyleBackColor = True + ' + 'CM_FM + ' + Me.CM_FM.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OriginalschreibenToolStripMenuItem}) + Me.CM_FM.Name = "ContextMenuStrip1" + Me.CM_FM.Size = New System.Drawing.Size(192, 26) + ' + 'OriginalschreibenToolStripMenuItem + ' + Me.OriginalschreibenToolStripMenuItem.Name = "OriginalschreibenToolStripMenuItem" + Me.OriginalschreibenToolStripMenuItem.Size = New System.Drawing.Size(191, 22) + Me.OriginalschreibenToolStripMenuItem.Text = "Verzollungsunterlagen" + ' 'frmFaktEmail ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.ClientSize = New System.Drawing.Size(750, 850) + Me.Controls.Add(Me.btn_FM) Me.Controls.Add(Me.cbxVZ) Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.cbxMDMAnh) @@ -802,6 +831,7 @@ Partial Class frmFaktEmail CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() + Me.CM_FM.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -865,4 +895,7 @@ Partial Class frmFaktEmail Friend WithEvents cbxMDMAnh As CheckBox Friend WithEvents Button6 As Button Friend WithEvents cbxVZ As CheckBox + Friend WithEvents btn_FM As Button + Friend WithEvents CM_FM As ContextMenuStrip + Friend WithEvents OriginalschreibenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/Fakturierung/frmFaktEmail.resx b/SDL/Fakturierung/frmFaktEmail.resx index 77d40344..e9e9c8fb 100644 --- a/SDL/Fakturierung/frmFaktEmail.resx +++ b/SDL/Fakturierung/frmFaktEmail.resx @@ -162,6 +162,9 @@ True + + 17, 17 + diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index d686bab7..af2e3884 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -1401,6 +1401,14 @@ Public Class frmFaktEmail End If End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btn_FM.Click + CM_FM.Show(Cursor.Position) + End Sub + + Private Sub OriginalschreibenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OriginalschreibenToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, KdNr) + End Sub End Class diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 73f74517..aae8743d 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/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 8c28ec4b..afba80b8 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -2859,7 +2859,7 @@ Public Class usrCntlSpeditionsBuchSuche ,BelegNr ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land, Speditionsbuch.[LKW Kennzeichen] FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart - where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") + where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,26,29,38)", "FMZOLL") Try diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 2617090d..bdb90c5f 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -116,6 +116,7 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() + Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel4 = New System.Windows.Forms.Panel() Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox() Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() @@ -126,6 +127,7 @@ Partial Class frmMDM_USTVAntrag Me.Panel3 = New System.Windows.Forms.Panel() Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlErstattungsdetails = New System.Windows.Forms.Panel() + Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() Me.Panel1 = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() @@ -142,8 +144,7 @@ Partial Class frmMDM_USTVAntrag Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.FakturiertToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() - Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() + Me.btnRMCQuartal = New System.Windows.Forms.Button() Me.pnlBottom.SuspendLayout() CType(Me.pbMail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit() @@ -175,6 +176,7 @@ Partial Class frmMDM_USTVAntrag ' Me.pnlBottom.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.pnlBottom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlBottom.Controls.Add(Me.btnRMCQuartal) Me.pnlBottom.Controls.Add(Me.Label18) Me.pnlBottom.Controls.Add(Me.txtSumme) Me.pnlBottom.Controls.Add(Me.pbMail) @@ -1569,6 +1571,14 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.Size = New System.Drawing.Size(1428, 263) Me.Panel2.TabIndex = 1 ' + 'UstCntlUSTV_AntragPosition1 + ' + Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" + Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1272, 261) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke @@ -1714,6 +1724,14 @@ Partial Class frmMDM_USTVAntrag Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1426, 261) Me.pnlErstattungsdetails.TabIndex = 0 ' + 'UstCntlUSTV_AntragErstattungen1 + ' + Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" + Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1270, 259) + Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 + ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke @@ -1832,21 +1850,18 @@ Partial Class frmMDM_USTVAntrag Me.FakturiertToolStripMenuItem.Text = "Fakturiert zurücksetzen" Me.FakturiertToolStripMenuItem.Visible = False ' - 'UstCntlUSTV_AntragPosition1 + 'btnRMCQuartal ' - Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" - Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1272, 261) - Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 - ' - 'UstCntlUSTV_AntragErstattungen1 - ' - Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" - Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1270, 259) - Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 + Me.btnRMCQuartal.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnRMCQuartal.ForeColor = System.Drawing.Color.Black + Me.btnRMCQuartal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRMCQuartal.Location = New System.Drawing.Point(752, 17) + Me.btnRMCQuartal.Name = "btnRMCQuartal" + Me.btnRMCQuartal.Size = New System.Drawing.Size(103, 39) + Me.btnRMCQuartal.TabIndex = 55 + Me.btnRMCQuartal.Text = "RMC Quartal" + Me.btnRMCQuartal.UseVisualStyleBackColor = True + Me.btnRMCQuartal.Visible = False ' 'frmMDM_USTVAntrag ' @@ -2015,4 +2030,5 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents pbMail As PictureBox Friend WithEvents Label18 As Label Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnRMCQuartal As Button End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index fd57d2e2..f7193375 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -535,12 +535,18 @@ Public Class frmMDM_USTVAntrag Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL") setValue(USTV_ANTRAG) + If CInt(USTV_ANTRAG.UStVAn_KuNr) >= 150000 AndAlso CInt(USTV_ANTRAG.UStVAn_KuNr) < 160000 Then + btnRMCQuartal.Visible = True + Else + btnRMCQuartal.Visible = False + End If Else - Dim sqlWhere As String = "" + Dim sqlWhere As String = "" 'neuer USTVA-Antrag KdSearchBox1.Visible = True cbxWahrung.Enabled = True + btnRMCQuartal.Visible = False For i As Integer = 0 To cbxFiliale.Items.Count - 1 @@ -3917,6 +3923,29 @@ Return "" End Function + Private Sub btnRMCQuartal_Click(sender As Object, e As EventArgs) Handles btnRMCQuartal.Click + + Dim rmc As cRMC + + Dim nurUnter50EurAnzeigen As Boolean = True + + Select Case MsgBox("Sollen nur Anträge angezeigt werden, deren Bearbeitung pro Quartal unter 50EUR liegt?", vbYesNo) + Case vbYes : nurUnter50EurAnzeigen = True + Case vbNo : nurUnter50EurAnzeigen = False + End Select + + Dim dt = rmc.getRMCQuartalsAbrechnungen(SQL, 1, Now.Year, "327", USTV_ANTRAG, Antrag_LandKz, nurUnter50EurAnzeigen) + If dt.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt) + Else + MsgBox("keine Daten für ausgewählten Zeitraum") + End If + + + + + End Sub + Private Function PDFInvoicesPath(ByRef posId As String) As String diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index d15b8a30..5c3e3ae9 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -591,7 +591,7 @@ Public Class frmNacherfassungLeihgeld Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True) RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0 - allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), "Leihgeldauszahlung (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")") + allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), "LG-Auszahlung (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")") Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL") If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then @@ -627,6 +627,10 @@ Public Class frmNacherfassungLeihgeld POS.LeistungsNr = o.LeistungsNr POS.LeistungsBez = IIf(leistungsBez <> "", leistungsBez, o.LeistungsBez) + If POS.LeistungsBez IsNot Nothing AndAlso POS.LeistungsBez.Length > 30 Then + POS.LeistungsBez = POS.LeistungsBez.Substring(0, Math.Min(30, POS.LeistungsBez.Length)) + End If + POS.BerechnungsartNr = o.BerechnungsartNr POS.Anzahl = 1 POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index bb3badd7..679a524a 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -129,6 +129,10 @@ Partial Class usrCntlMDMAuswertungen Me.TabPage3 = New System.Windows.Forms.TabPage() Me.Label66 = New System.Windows.Forms.Label() Me.GroupBox20 = New System.Windows.Forms.GroupBox() + Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtLeistungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label67 = New System.Windows.Forms.Label() Me.PictureBox7 = New System.Windows.Forms.PictureBox() Me.Label45 = New System.Windows.Forms.Label() Me.Label64 = New System.Windows.Forms.Label() @@ -197,10 +201,7 @@ Partial Class usrCntlMDMAuswertungen Me.btnContractdaten = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() - Me.Label67 = New System.Windows.Forms.Label() - Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtLeistungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxNurUnter50EUR = New System.Windows.Forms.CheckBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1444,6 +1445,7 @@ Partial Class usrCntlMDMAuswertungen ' 'GroupBox20 ' + Me.GroupBox20.Controls.Add(Me.cbxNurUnter50EUR) Me.GroupBox20.Controls.Add(Me.cboQuartal) Me.GroupBox20.Controls.Add(Me.txtLeistungsNr) Me.GroupBox20.Controls.Add(Me.txtJahr) @@ -1459,6 +1461,73 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox20.TabIndex = 14 Me.GroupBox20.TabStop = False ' + 'cboQuartal + ' + Me.cboQuartal._allowedValuesFreiText = Nothing + Me.cboQuartal._allowFreiText = False + Me.cboQuartal._value = "" + Me.cboQuartal.FormattingEnabled = True + Me.cboQuartal.Location = New System.Drawing.Point(306, 46) + Me.cboQuartal.Name = "cboQuartal" + Me.cboQuartal.Size = New System.Drawing.Size(59, 21) + Me.cboQuartal.TabIndex = 16 + ' + 'txtLeistungsNr + ' + Me.txtLeistungsNr._DateTimeOnly = False + Me.txtLeistungsNr._numbersOnly = False + Me.txtLeistungsNr._numbersOnlyKommastellen = "" + Me.txtLeistungsNr._numbersOnlyTrennzeichen = True + Me.txtLeistungsNr._Prozent = False + Me.txtLeistungsNr._ShortDateNew = False + Me.txtLeistungsNr._ShortDateOnly = False + Me.txtLeistungsNr._TimeOnly = False + Me.txtLeistungsNr._TimeOnly_Seconds = False + Me.txtLeistungsNr._value = "327" + Me.txtLeistungsNr._Waehrung = False + Me.txtLeistungsNr._WaehrungZeichen = True + Me.txtLeistungsNr.ForeColor = System.Drawing.Color.Black + Me.txtLeistungsNr.Location = New System.Drawing.Point(306, 73) + Me.txtLeistungsNr.MaxLineLength = -1 + Me.txtLeistungsNr.MaxLines_Warning = "" + Me.txtLeistungsNr.MaxLines_Warning_Label = Nothing + Me.txtLeistungsNr.Name = "txtLeistungsNr" + Me.txtLeistungsNr.Size = New System.Drawing.Size(93, 20) + Me.txtLeistungsNr.TabIndex = 15 + Me.txtLeistungsNr.Text = "327" + ' + 'txtJahr + ' + Me.txtJahr._DateTimeOnly = False + Me.txtJahr._numbersOnly = False + Me.txtJahr._numbersOnlyKommastellen = "" + Me.txtJahr._numbersOnlyTrennzeichen = True + Me.txtJahr._Prozent = False + Me.txtJahr._ShortDateNew = False + Me.txtJahr._ShortDateOnly = False + Me.txtJahr._TimeOnly = False + Me.txtJahr._TimeOnly_Seconds = False + Me.txtJahr._value = "" + Me.txtJahr._Waehrung = False + Me.txtJahr._WaehrungZeichen = True + Me.txtJahr.ForeColor = System.Drawing.Color.Black + Me.txtJahr.Location = New System.Drawing.Point(185, 47) + Me.txtJahr.MaxLineLength = -1 + Me.txtJahr.MaxLines_Warning = "" + Me.txtJahr.MaxLines_Warning_Label = Nothing + Me.txtJahr.Name = "txtJahr" + Me.txtJahr.Size = New System.Drawing.Size(53, 20) + Me.txtJahr.TabIndex = 13 + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Location = New System.Drawing.Point(145, 80) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(155, 13) + Me.Label67.TabIndex = 12 + Me.Label67.Text = "LeistungsNr (Komma-getrennt).:" + ' 'PictureBox7 ' Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.woelfl @@ -2173,72 +2242,17 @@ Partial Class usrCntlMDMAuswertungen Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.TabIndex = 26 ' - 'Label67 + 'cbxNurUnter50EUR ' - Me.Label67.AutoSize = True - Me.Label67.Location = New System.Drawing.Point(145, 80) - Me.Label67.Name = "Label67" - Me.Label67.Size = New System.Drawing.Size(155, 13) - Me.Label67.TabIndex = 12 - Me.Label67.Text = "LeistungsNr (Komma-getrennt).:" - ' - 'txtJahr - ' - Me.txtJahr._DateTimeOnly = False - Me.txtJahr._numbersOnly = False - Me.txtJahr._numbersOnlyKommastellen = "" - Me.txtJahr._numbersOnlyTrennzeichen = True - Me.txtJahr._Prozent = False - Me.txtJahr._ShortDateNew = False - Me.txtJahr._ShortDateOnly = False - Me.txtJahr._TimeOnly = False - Me.txtJahr._TimeOnly_Seconds = False - Me.txtJahr._value = "" - Me.txtJahr._Waehrung = False - Me.txtJahr._WaehrungZeichen = True - Me.txtJahr.ForeColor = System.Drawing.Color.Black - Me.txtJahr.Location = New System.Drawing.Point(185, 47) - Me.txtJahr.MaxLineLength = -1 - Me.txtJahr.MaxLines_Warning = "" - Me.txtJahr.MaxLines_Warning_Label = Nothing - Me.txtJahr.Name = "txtJahr" - Me.txtJahr.Size = New System.Drawing.Size(53, 20) - Me.txtJahr.TabIndex = 13 - ' - 'txtLeistungsNr - ' - Me.txtLeistungsNr._DateTimeOnly = False - Me.txtLeistungsNr._numbersOnly = False - Me.txtLeistungsNr._numbersOnlyKommastellen = "" - Me.txtLeistungsNr._numbersOnlyTrennzeichen = True - Me.txtLeistungsNr._Prozent = False - Me.txtLeistungsNr._ShortDateNew = False - Me.txtLeistungsNr._ShortDateOnly = False - Me.txtLeistungsNr._TimeOnly = False - Me.txtLeistungsNr._TimeOnly_Seconds = False - Me.txtLeistungsNr._value = "327" - Me.txtLeistungsNr._Waehrung = False - Me.txtLeistungsNr._WaehrungZeichen = True - Me.txtLeistungsNr.ForeColor = System.Drawing.Color.Black - Me.txtLeistungsNr.Location = New System.Drawing.Point(306, 73) - Me.txtLeistungsNr.MaxLineLength = -1 - Me.txtLeistungsNr.MaxLines_Warning = "" - Me.txtLeistungsNr.MaxLines_Warning_Label = Nothing - Me.txtLeistungsNr.Name = "txtLeistungsNr" - Me.txtLeistungsNr.Size = New System.Drawing.Size(93, 20) - Me.txtLeistungsNr.TabIndex = 15 - Me.txtLeistungsNr.Text = "327" - ' - 'cboQuartal - ' - Me.cboQuartal._allowedValuesFreiText = Nothing - Me.cboQuartal._allowFreiText = False - Me.cboQuartal._value = "" - Me.cboQuartal.FormattingEnabled = True - Me.cboQuartal.Location = New System.Drawing.Point(306, 46) - Me.cboQuartal.Name = "cboQuartal" - Me.cboQuartal.Size = New System.Drawing.Size(59, 21) - Me.cboQuartal.TabIndex = 16 + Me.cbxNurUnter50EUR.AutoSize = True + Me.cbxNurUnter50EUR.Checked = True + Me.cbxNurUnter50EUR.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxNurUnter50EUR.Location = New System.Drawing.Point(414, 73) + Me.cbxNurUnter50EUR.Name = "cbxNurUnter50EUR" + Me.cbxNurUnter50EUR.Size = New System.Drawing.Size(111, 17) + Me.cbxNurUnter50EUR.TabIndex = 17 + Me.cbxNurUnter50EUR.Text = "Nur unter 50 EUR" + Me.cbxNurUnter50EUR.UseVisualStyleBackColor = True ' 'usrCntlMDMAuswertungen ' @@ -2493,4 +2507,5 @@ Partial Class usrCntlMDMAuswertungen Friend WithEvents Label67 As Label Friend WithEvents txtLeistungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxNurUnter50EUR As CheckBox End Class diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 7e3f7485..e385b623 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -1531,35 +1531,8 @@ Public Class usrCntlMDMAuswertungen Jahr = txtJahr.Text End If - Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Betrag', 50 - sum(Temp.Betrag) as Differenzbetrag from (SELECT - USTVA.UStVAn_KuNr as KundenNr, - USTVA.UStVAn_Name as Kundenname, - YEAR(R.Abfertigungsdatum) AS Jahr, - DATEPART(QUARTER, R.Abfertigungsdatum) AS Quartal, - POS.LeistungsNr, - SUM(POS.SteuerfreierBetrag + POS.SteuerpflichtigerBetrag) AS Betrag - FROM tblUStVAntrag AS USTVA - INNER JOIN Rechnungsausgang AS R - ON R.FilialenNr = USTVA.FilialenNr - AND R.AbfertigungsNr = USTVA.AbfertigungsNr - INNER JOIN RechnungsausgangPositionen AS POS - ON R.RK_ID = POS.RK_ID - WHERE USTVA.UStVAn_KuNr LIKE '15%' - - AND YEAR(R.Abfertigungsdatum) = " & Jahr & - " AND POS.LeistungsNr IN (" & IIf(txtLeistungsNr.Text <> "", txtLeistungsNr.Text, "") & ") - GROUP BY - USTVA.UStVAn_KuNr, - USTVA.UStVAn_Name, - YEAR(R.Abfertigungsdatum), - DATEPART(QUARTER, R.Abfertigungsdatum), - POS.LeistungsNr - ) as Temp - WHERE 1 = 1 " & IIf(cboQuartal._value.Trim() <> "", " AND temp.Quartal = " & cboQuartal._value, "") & " - Group by Temp.KundenNr, Temp.Kundenname, Temp.Jahr, Temp.Quartal - Having sum(Temp.Betrag) < 50" - - Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") + Dim rmc As cRMC + Dim dt = rmc.getRMCQuartalsAbrechnungen(New VERAG_PROG_ALLGEMEIN.SQL, cboQuartal._value.Trim(), Jahr, txtLeistungsNr.Text,,, cbxNurUnter50EUR.Checked) If dt.Rows.Count > 0 Then cProgramFunctions.genExcelFromDT_NEW(dt) @@ -1568,8 +1541,6 @@ Public Class usrCntlMDMAuswertungen End If - - Catch ex As System.Exception MsgBox(ex.Message & ex.StackTrace) End Try diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb index 24bb9446..5b0ea67d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb @@ -663,6 +663,26 @@ Public Class cIDS Return "" End Function + Public Shared Function checkInvoices() As DataTable + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Dim SQLstr = "select * from tblIDSInvoicesNew where invoice_id not in (select TotalInvoiceId from tblIDSInvoicesNewSplittedByCountry) and Year(YearMonthDay) >= 2025" + + Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") + + Return dt + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return Nothing + + End Function + Public Class Paramter diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb index 61f06c3a..e3c5c4bd 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb @@ -264,6 +264,9 @@ Public Class cRMC End Function + + + Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNo As String) As Boolean Return SQL.doSQL("update tblRMCImport set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where InvToCustomer Is null AND rmc_kdNr = '" & customerNo & "'", "FMZOLL") @@ -282,6 +285,55 @@ Public Class cRMC Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblRMCImport] where InvToCustomer Is null ", "FMZOLL",,, -1) End Function + + Public Shared Function getRMCQuartalsAbrechnungen(SQL As SQL, quartal As Integer, jahr As Integer, LeistungsNr As String, Optional USTV_ANTRAG As cUSTVAntrag = Nothing, Optional LANDKZ As String = "", Optional nurUnter50anzeigen As Boolean = True) As DataTable + + Dim SQLWhere As String = "WHERE POS.LeistungsNr IN (" & IIf(LeistungsNr <> "", LeistungsNr, "") & ")" + + If USTV_ANTRAG Is Nothing Then + + SQLWhere &= " AND USTVA.UStVAn_KuNr LIKE '15%' AND YEAR(R.Abfertigungsdatum) = " & jahr & "" + Else + + SQLWhere &= " AND USTVA.UStVAn_KuNr = " & USTV_ANTRAG.UStVAn_KuNr & IIf(LANDKZ <> "", " AND [Länderverzeichnis für die Außenhandelsstatistik].LandKz = '" & LANDKZ & "'", "") & " AND R.Abfertigungsdatum between '" & CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToShortDateString & "' AND '" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToShortDateString & "'" + + End If + + + Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Betrag', 50 - sum(Temp.Betrag) as Differenzbetrag from (SELECT + USTVA.UStVAn_KuNr as KundenNr, + USTVA.UStVAn_Name as Kundenname, + [Länderverzeichnis für die Außenhandelsstatistik].LandKz as LandKZ, + YEAR(R.Abfertigungsdatum) AS Jahr, + DATEPART(QUARTER, R.Abfertigungsdatum) AS Quartal, + POS.LeistungsNr, + SUM(POS.SteuerfreierBetrag + POS.SteuerpflichtigerBetrag) AS Betrag + FROM tblUStVAntrag AS USTVA + INNER JOIN Rechnungsausgang AS R ON R.FilialenNr = USTVA.FilialenNr AND R.AbfertigungsNr = USTVA.AbfertigungsNr + INNER JOIN RechnungsausgangPositionen AS POS ON R.RK_ID = POS.RK_ID + INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr + " & SQLWhere & " + + GROUP BY + USTVA.UStVAn_KuNr, + USTVA.UStVAn_Name, + [Länderverzeichnis für die Außenhandelsstatistik].LandKz, + YEAR(R.Abfertigungsdatum), + DATEPART(QUARTER, R.Abfertigungsdatum), + POS.LeistungsNr + ) as Temp + WHERE 1 = 1 " & IIf(quartal > 0, " AND temp.Quartal = " & quartal, "") & " + Group by Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal + " & IIf(nurUnter50anzeigen, "Having sum(Temp.Betrag) < 50", "") + + Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") + + Return dt + + + + End Function + Public Class Paramter Shared apiSettingsloaded As Boolean = False From 8b5be9ac14257cf25d767183f351f860a4e94865 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 28 Jan 2026 15:59:47 +0100 Subject: [PATCH 06/13] MDM, Chat, etc. --- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 4 +-- SDL/mdm/usrCntlMDMAuswertungen.Designer.vb | 30 +++++++++++----------- SDL/mdm/usrCntlMDMAuswertungen.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb | 28 +++++++++++++++++--- VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb | 2 +- 5 files changed, 42 insertions(+), 24 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 5c3e3ae9..ddd1eb4b 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -669,7 +669,6 @@ Public Class frmNacherfassungLeihgeld Dim BELEG_Prov As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) - 'lblRgNr.Text = "12345 / TR" BELEG_Prov.BelegDat = BELEG.BelegDat BELEG_Prov.Beleg_TYP = "K" BELEG_Prov.KundenNr = BELEG.FrachtführerKundenNr @@ -736,7 +735,6 @@ Public Class frmNacherfassungLeihgeld If f.ShowDialog() Then barBetrag = f.BELEG.rksv_umsatz BelegNrProvision = f.BELEG.rksv_BelegId - printProvision = f.printErfolgreich End If ' f.Close() @@ -781,8 +779,8 @@ Public Class frmNacherfassungLeihgeld VALUES.Frachtfuehrer_KdNr = BELEG.FrachtführerKundenNr VALUES.Frachtfuehrer_Firma = BELEG.Frachtführer VALUES.KdAuftrNr = If(BELEG.Auftraggeber_KdAuftragsnummer, "") - VALUES.Auftraggeber_Leistung1 = "Leihgeld" + Dim betrag As Double = 0 For Each p In BELEG.POS betrag += p.Preis diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index 679a524a..325d3aee 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -129,6 +129,7 @@ Partial Class usrCntlMDMAuswertungen Me.TabPage3 = New System.Windows.Forms.TabPage() Me.Label66 = New System.Windows.Forms.Label() Me.GroupBox20 = New System.Windows.Forms.GroupBox() + Me.cbxNurUnter50EUR = New System.Windows.Forms.CheckBox() Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtLeistungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -201,7 +202,6 @@ Partial Class usrCntlMDMAuswertungen Me.btnContractdaten = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() - Me.cbxNurUnter50EUR = New System.Windows.Forms.CheckBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1461,6 +1461,18 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox20.TabIndex = 14 Me.GroupBox20.TabStop = False ' + 'cbxNurUnter50EUR + ' + Me.cbxNurUnter50EUR.AutoSize = True + Me.cbxNurUnter50EUR.Checked = True + Me.cbxNurUnter50EUR.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxNurUnter50EUR.Location = New System.Drawing.Point(391, 46) + Me.cbxNurUnter50EUR.Name = "cbxNurUnter50EUR" + Me.cbxNurUnter50EUR.Size = New System.Drawing.Size(111, 17) + Me.cbxNurUnter50EUR.TabIndex = 17 + Me.cbxNurUnter50EUR.Text = "Nur unter 50 EUR" + Me.cbxNurUnter50EUR.UseVisualStyleBackColor = True + ' 'cboQuartal ' Me.cboQuartal._allowedValuesFreiText = Nothing @@ -1492,7 +1504,7 @@ Partial Class usrCntlMDMAuswertungen Me.txtLeistungsNr.MaxLines_Warning = "" Me.txtLeistungsNr.MaxLines_Warning_Label = Nothing Me.txtLeistungsNr.Name = "txtLeistungsNr" - Me.txtLeistungsNr.Size = New System.Drawing.Size(93, 20) + Me.txtLeistungsNr.Size = New System.Drawing.Size(141, 20) Me.txtLeistungsNr.TabIndex = 15 Me.txtLeistungsNr.Text = "327" ' @@ -1550,7 +1562,7 @@ Partial Class usrCntlMDMAuswertungen 'Label64 ' Me.Label64.AutoSize = True - Me.Label64.Location = New System.Drawing.Point(153, 50) + Me.Label64.Location = New System.Drawing.Point(145, 50) Me.Label64.Name = "Label64" Me.Label64.Size = New System.Drawing.Size(27, 13) Me.Label64.TabIndex = 8 @@ -2242,18 +2254,6 @@ Partial Class usrCntlMDMAuswertungen Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.TabIndex = 26 ' - 'cbxNurUnter50EUR - ' - Me.cbxNurUnter50EUR.AutoSize = True - Me.cbxNurUnter50EUR.Checked = True - Me.cbxNurUnter50EUR.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxNurUnter50EUR.Location = New System.Drawing.Point(414, 73) - Me.cbxNurUnter50EUR.Name = "cbxNurUnter50EUR" - Me.cbxNurUnter50EUR.Size = New System.Drawing.Size(111, 17) - Me.cbxNurUnter50EUR.TabIndex = 17 - Me.cbxNurUnter50EUR.Text = "Nur unter 50 EUR" - Me.cbxNurUnter50EUR.UseVisualStyleBackColor = True - ' 'usrCntlMDMAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index e385b623..53531a4b 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -1532,7 +1532,7 @@ Public Class usrCntlMDMAuswertungen End If Dim rmc As cRMC - Dim dt = rmc.getRMCQuartalsAbrechnungen(New VERAG_PROG_ALLGEMEIN.SQL, cboQuartal._value.Trim(), Jahr, txtLeistungsNr.Text,,, cbxNurUnter50EUR.Checked) + Dim dt = rmc.getRMCQuartalsAbrechnungen(New VERAG_PROG_ALLGEMEIN.SQL, IIf(cboQuartal._value.Trim() <> "", cboQuartal._value.Trim(), 0), Jahr, txtLeistungsNr.Text,,, cbxNurUnter50EUR.Checked) If dt.Rows.Count > 0 Then cProgramFunctions.genExcelFromDT_NEW(dt) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb index edb49459..ac77606c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb @@ -405,11 +405,13 @@ Public Class cMessenger Try Me.CHAT_MESSAGES.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() - Using cmd As New SqlCommand("SELECT * FROM(SELECT TOP " & top & " * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime desc) as T order by chatMg_datetime asc", conn) + Using cmd As New SqlCommand("SELECT chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM(SELECT TOP " & top & " chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime desc) as T order by chatMg_datetime asc", conn) cmd.Parameters.AddWithValue("@chat_id", chat_id) Dim dr = cmd.ExecuteReader() While dr.Read - Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + 'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + 'Me.CHAT_MESSAGES.Add(MSG) + Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc Me.CHAT_MESSAGES.Add(MSG) End While dr.Close() @@ -424,12 +426,17 @@ Public Class cMessenger Try Me.CHAT_MESSAGES.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() - Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id AND CAST(chatMg_datetime as date)>=@dateTmp order by chatMg_datetime asc", conn) + Using cmd As New SqlCommand("SELECT chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id AND CAST(chatMg_datetime as date)>=@dateTmp order by chatMg_datetime asc", conn) cmd.Parameters.AddWithValue("@chat_id", chat_id) cmd.Parameters.AddWithValue("@dateTmp", dateTmp) Dim dr = cmd.ExecuteReader() While dr.Read - Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + 'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + 'Me.CHAT_MESSAGES.Add(MSG) + + 'Hier werden die einzelnen MSg-Obj nicht mehr per SQL geladen, sondern direkt als Objekt übergeben -> schneller! + + Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc Me.CHAT_MESSAGES.Add(MSG) End While dr.Close() @@ -763,6 +770,19 @@ Public Class cMessenger Me.chatMg_maId = chatMg_maId End Sub + Sub New(chatMg_chatId, chatMg_maId, chatMg_datetime, chatMg_maName, chatMg_maFirma, chatMg_type, chatMg_text, chatMg_anhang_docId, chatMg_referenz_AvisoId, chatMg_referenz_SendungsId, chatMg_referenz_KundenNr) + Me.chatMg_chatId = chatMg_chatId + Me.chatMg_maId = chatMg_maId + Me.chatMg_datetime = chatMg_datetime + Me.chatMg_maName = chatMg_maName + Me.chatMg_maFirma = chatMg_maFirma + Me.chatMg_text = chatMg_text + Me.chatMg_anhang_docId = chatMg_anhang_docId + Me.chatMg_referenz_AvisoId = chatMg_referenz_AvisoId + Me.chatMg_referenz_SendungsId = chatMg_referenz_SendungsId + Me.chatMg_referenz_KundenNr = chatMg_referenz_KundenNr + End Sub + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_id", chatMg_id,, True)) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb index e3c5c4bd..04112f00 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb @@ -300,7 +300,7 @@ Public Class cRMC End If - Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Betrag', 50 - sum(Temp.Betrag) as Differenzbetrag from (SELECT + Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Bearbeitungsbetrag', " & IIf(nurUnter50anzeigen, "50 - sum(Temp.Betrag) as Differenzbetrag", "") & " from (SELECT USTVA.UStVAn_KuNr as KundenNr, USTVA.UStVAn_Name as Kundenname, [Länderverzeichnis für die Außenhandelsstatistik].LandKz as LandKZ, From 25a49a4f86021a77f05f6e6a01942862c216ecfb Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 28 Jan 2026 17:43:29 +0100 Subject: [PATCH 07/13] Messages --- VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb | 27 ++++++++++----- .../Messenger/frmMessenger.vb | 33 ------------------- 2 files changed, 19 insertions(+), 41 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb index ac77606c..14efedf9 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb @@ -1,6 +1,8 @@ Imports System.Data.SqlClient Imports System.Reflection Imports System.Windows.Forms +Imports com.sun.org.apache.xerces.internal.impl +Imports com.sun.xml.internal.rngom Public Class cMessenger @@ -405,18 +407,25 @@ Public Class cMessenger Try Me.CHAT_MESSAGES.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() - Using cmd As New SqlCommand("SELECT chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM(SELECT TOP " & top & " chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime desc) as T order by chatMg_datetime asc", conn) + ' Using cmd As New SqlCommand("SELECT chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM(SELECT TOP " & top & " chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime desc) as T order by chatMg_datetime asc", conn) + + Using cmd As New SqlCommand("SELECT TOP (@top) chatMg_id,chatMg_chatId,chatMg_maId,chatMg_maName,chatMg_maFirma,chatMg_datetime,chatMg_type,chatMg_text,chatMg_anhang_docId,chatMg_referenz_AvisoId,chatMg_referenz_SendungsId,chatMg_referenz_KundenNr FROM tblMessenger_ChatMessages WHERE chatMg_chatId = @chat_id ORDER BY chatMg_datetime DESC", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + cmd.Parameters.AddWithValue("@top", top) Dim dr = cmd.ExecuteReader() While dr.Read - 'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc - 'Me.CHAT_MESSAGES.Add(MSG) - Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) ' ----> 100 messages = 101 SQL calls + 'Hier werden die einzelnen MSg-Obj nicht mehr per SQL geladen, sondern direkt als Objekt übergeben -> schneller! + 'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc Me.CHAT_MESSAGES.Add(MSG) End While dr.Close() End Using End Using + + Me.CHAT_MESSAGES.Reverse() + Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try @@ -430,15 +439,16 @@ Public Class cMessenger cmd.Parameters.AddWithValue("@chat_id", chat_id) cmd.Parameters.AddWithValue("@dateTmp", dateTmp) Dim dr = cmd.ExecuteReader() + While dr.Read - 'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc - 'Me.CHAT_MESSAGES.Add(MSG) + Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) '----> 100 messages = 101 SQL calls 'Hier werden die einzelnen MSg-Obj nicht mehr per SQL geladen, sondern direkt als Objekt übergeben -> schneller! - - Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + 'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc Me.CHAT_MESSAGES.Add(MSG) + End While + dr.Close() End Using End Using @@ -776,6 +786,7 @@ Public Class cMessenger Me.chatMg_datetime = chatMg_datetime Me.chatMg_maName = chatMg_maName Me.chatMg_maFirma = chatMg_maFirma + Me.chatMg_type = chatMg_type Me.chatMg_text = chatMg_text Me.chatMg_anhang_docId = chatMg_anhang_docId Me.chatMg_referenz_AvisoId = chatMg_referenz_AvisoId diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index 57ee26a2..9878e7b8 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -160,39 +160,6 @@ Public Class frmMessenger End If End Sub - 'Sub initEmojisTEST() - ' FlowLayoutPanel.Controls.Clear() - ' If alloweasteregg Then pic.Visible = False - - ' If System.IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then - ' Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\" - ' If Not System.IO.Directory.Exists(EmojiPath) Then System.IO.Directory.CreateDirectory(EmojiPath) - - ' If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then - ' For Each a In System.IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f) - ' If alloweasteregg Or Not a.Contains("easteregg") Then - ' If System.IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then - - ' Dim p As New PictureBox - ' p.Size = New Size(40, 40) - ' p.BackgroundImage = Image.FromFile(a) - ' p.BackgroundImageLayout = ImageLayout.Zoom - ' p.Cursor = Cursors.Hand - ' AddHandler p.Click, Sub() - ' If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub - ' If CHAT IsNot Nothing Then - ' saveEmoji(a) - ' End If - ' End Sub - - ' FlowLayoutPanel.Controls.Add(p) - ' End If - ' End If - ' Next - ' End If - ' End If - 'End Sub - Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False) From 2b6db655d994bf2357b9af6d88b713c645918007 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 29 Jan 2026 11:08:19 +0100 Subject: [PATCH 08/13] =?UTF-8?q?Vorauskassen=20Einschr=C3=A4nkung=20bei?= =?UTF-8?q?=20AMBAR=20(->nur=20AMBAR=20Filiale).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/kunden/Vorauskasse/frmVorauskasse.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index db5eaee5..b735d27a 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -97,6 +97,7 @@ Public Class frmVorauskasse Case "AMBAR" cboFiliale._allowedValuesFreiText = {"5701"} cboFiliale.changeItem("5701") + cboFiliale.Enabled = False Case "FRONTOFFICE" cboFiliale._allowedValuesFreiText = {"5801"} cboFiliale.changeItem("5801") From d45a0462582aa28fa6323170e15122624d56f01d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 29 Jan 2026 15:38:40 +0100 Subject: [PATCH 09/13] hardcoded Mail von Ambar korrigiert, fakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 51 +- .../usrCntlFaktAbrechnung.Designer.vb | 4192 ++++++++--------- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 4 +- 3 files changed, 2126 insertions(+), 2121 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 71905104..8a9cb9bb 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1821,7 +1821,7 @@ Public Class cFakturierung End If If Not Rechnung.checkRechnungsNrIsSet() Then - MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen", "Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen" & Rechnung.RK_ID, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return False End If @@ -3923,31 +3923,36 @@ Public Class cFakturierung RECHNUNG.Buchungsjahr = cRKSV.getGJ(RechnungsDatum, RECHNUNG.Firma_ID) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year) + If RECHNUNG.Buchungsjahr Is Nothing Then + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Bei Beleg " & RECHNUNG.RechnungsNr & " konnte kein Buchungsjahr gesetzt werden! RK_ID:" & RECHNUNG.RK_ID, "Bei Beleg " & RECHNUNG.RechnungsNr & " konnte kein Buchungsjahr gesetzt werden! RK_ID:" & RECHNUNG.RK_ID, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End If + If RECHNUNG.Buchungsjahr < 2000 Then - MsgBox("Buchungsjahr im falschen Format!") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Bei Beleg " & RECHNUNG.RechnungsNr & " hat das Buchungsjahr " & RECHNUNG.Buchungsjahr & " das falsche Format! RK_ID:" & RECHNUNG.RK_ID, "Bei Beleg " & RECHNUNG.RechnungsNr & " hat das Buchungsjahr das falsche Format!! RK_ID:" & RECHNUNG.RK_ID, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return False + End If + + RECHNUNG.[RechnungsNr] = getNewRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) + + 'Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) + '' Nächste Rechnungsnummer speichern. + 'RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! + '' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) + 'RG_NR.CHECK_RGNR() + 'RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr + + 'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr + If RECHNUNG.SAVE Then + Else + VERAG_PROG_ALLGEMEIN.cRechnungsnummern.DECREASE_RGNR_NEW(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) ' Bei Fehler --> LfdRgNr um eins mindern. + Return False + End If + + 'Rechnungsnummer UPDATEN + '..................... End If - - RECHNUNG.[RechnungsNr] = getNewRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) - - 'Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) - '' Nächste Rechnungsnummer speichern. - 'RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! - '' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) - 'RG_NR.CHECK_RGNR() - 'RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr - - 'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr - If RECHNUNG.SAVE Then - Else - VERAG_PROG_ALLGEMEIN.cRechnungsnummern.DECREASE_RGNR_NEW(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) ' Bei Fehler --> LfdRgNr um eins mindern. - Return False - End If - - 'Rechnungsnummer UPDATEN - '..................... - End If - Else + Else ' Anlage zur Sammelrechnung RECHNUNG.[Status] = 2 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index bcf1c464..93f21e5d 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -23,28 +23,28 @@ Partial Class usrCntlFaktAbrechnung Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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 DataGridViewCellStyle22 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 DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 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 DataGridViewCellStyle28 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 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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) - Dim DataGridViewCellStyle1 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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 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 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 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() Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() @@ -53,6 +53,7 @@ Partial Class usrCntlFaktAbrechnung Me.Button10 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() Me.lblDruckaufheben = New System.Windows.Forms.LinkLabel() + Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel3 = New System.Windows.Forms.Panel() Me.lblSendungen = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() @@ -62,14 +63,18 @@ Partial Class usrCntlFaktAbrechnung Me.Label45 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label() Me.btnDatenLaden = New System.Windows.Forms.Button() + Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblErrFiliale = New System.Windows.Forms.Label() Me.lblErrUnterNr = New System.Windows.Forms.Label() Me.lblAbfNrExists = New System.Windows.Forms.Label() Me.lblAbfNr_Err = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.lblSB = New System.Windows.Forms.Label() @@ -83,40 +88,83 @@ Partial Class usrCntlFaktAbrechnung Me.EmpfängerToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.AuftraggeberToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.AvisiererToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Label36 = New System.Windows.Forms.Label() Me.Label54 = New System.Windows.Forms.Label() + Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.Label52 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() + Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label49 = New System.Windows.Forms.Label() + Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label48 = New System.Windows.Forms.Label() + Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label47 = New System.Windows.Forms.Label() Me.pnlAvisierer = New System.Windows.Forms.Panel() + Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label27 = New System.Windows.Forms.Label() Me.btnAvisiererEuro = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() + Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label13 = New System.Windows.Forms.Label() + Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label34 = New System.Windows.Forms.Label() + Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label25 = New System.Windows.Forms.Label() + Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() + Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pic = New System.Windows.Forms.PictureBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblFirma3 = New System.Windows.Forms.Label() Me.lblFirma2 = New System.Windows.Forms.Label() Me.lblFirma1 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.pnlAuftraggeber = New System.Windows.Forms.Panel() + Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAuftraggeberEuro = New System.Windows.Forms.Button() + Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() + Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() + Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() + Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.pnlRechnungAn = New System.Windows.Forms.Panel() + Me.cboRgArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label57 = New System.Windows.Forms.Label() + Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label56 = New System.Windows.Forms.Label() + Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button15 = New System.Windows.Forms.Button() + Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button14 = New System.Windows.Forms.Button() Me.picKdAuftrInfo = New System.Windows.Forms.PictureBox() Me.lblKdInaktiv = New System.Windows.Forms.Label() @@ -124,40 +172,80 @@ Partial Class usrCntlFaktAbrechnung Me.lblUIDOK = New System.Windows.Forms.Label() Me.lblUIDErr = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() + Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label43 = New System.Windows.Forms.Label() + Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label1 = New System.Windows.Forms.Label() + Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() + Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() + Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() Me.pnlAbsender = New System.Windows.Forms.Panel() + Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAbsenderEuro = New System.Windows.Forms.Button() + Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Panel7 = New System.Windows.Forms.Panel() Me.lblOFgesperrt = New System.Windows.Forms.Label() Me.picVK = New System.Windows.Forms.PictureBox() Me.Button1 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() + Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Button7 = New System.Windows.Forms.Button() Me.btnVorauskasseAnzeigen = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.btnZoll_EUST = New System.Windows.Forms.Button() + Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label26 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() + Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView() + Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.lblVK_ZahlungseingangBemerkung = New System.Windows.Forms.Label() Me.lblVK_Zahlungseingang = New System.Windows.Forms.Label() + Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pnlEmpfaenger = New System.Windows.Forms.Panel() + Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnEmpfaengerEuro = New System.Windows.Forms.Button() + Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() + Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnl = New System.Windows.Forms.Panel() Me.Button16 = New System.Windows.Forms.Button() Me.lblEUR_1 = New System.Windows.Forms.Label() Me.lblEUR_2 = New System.Windows.Forms.Label() Me.lblEUR_4 = New System.Windows.Forms.Label() Me.Label55 = New System.Windows.Forms.Label() + Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() Me.Label46 = New System.Windows.Forms.Label() Me.Button9 = New System.Windows.Forms.Button() @@ -168,11 +256,17 @@ Partial Class usrCntlFaktAbrechnung Me.Button2 = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.Label23 = New System.Windows.Forms.Label() + Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label37 = New System.Windows.Forms.Label() Me.lblEUR_3 = New System.Windows.Forms.Label() + Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label33 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() + Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.pnlDocs = New System.Windows.Forms.Panel() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label51 = New System.Windows.Forms.Label() @@ -194,104 +288,11 @@ Partial Class usrCntlFaktAbrechnung Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboRgArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() Me.ContextMenuStrip3.SuspendLayout() + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() Me.pnlAvisierer.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -302,7 +303,9 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.SuspendLayout() Me.Panel7.SuspendLayout() CType(Me.picVK, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlEmpfaenger.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlDocs.SuspendLayout() @@ -311,9 +314,6 @@ Partial Class usrCntlFaktAbrechnung Me.CntxtAbfArt.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label9 @@ -440,6 +440,23 @@ Partial Class usrCntlFaktAbrechnung Me.lblDruckaufheben.Text = "Druck aufheben" Me.lblDruckaufheben.Visible = False ' + 'cboRgGS + ' + Me.cboRgGS._allowedValuesFreiText = Nothing + Me.cboRgGS._allowFreiText = False + Me.cboRgGS._value = "" + Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.cboRgGS.ForeColor = System.Drawing.Color.White + Me.cboRgGS.FormattingEnabled = True + Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) + Me.cboRgGS.Location = New System.Drawing.Point(3, -1) + Me.cboRgGS.Name = "cboRgGS" + Me.cboRgGS.Size = New System.Drawing.Size(211, 33) + Me.cboRgGS.TabIndex = 26 + Me.cboRgGS.Text = "Rechnung" + ' 'Panel3 ' Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -555,6 +572,19 @@ Partial Class usrCntlFaktAbrechnung Me.btnDatenLaden.Text = "Daten laden" Me.btnDatenLaden.UseVisualStyleBackColor = False ' + 'cboSpedBuchUnterNr + ' + Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing + Me.cboSpedBuchUnterNr._allowFreiText = False + Me.cboSpedBuchUnterNr._value = "" + Me.cboSpedBuchUnterNr.DropDownWidth = 350 + Me.cboSpedBuchUnterNr.FormattingEnabled = True + Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) + Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) + Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" + Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) + Me.cboSpedBuchUnterNr.TabIndex = 5 + ' 'lblErrFiliale ' Me.lblErrFiliale.AutoSize = True @@ -624,6 +654,30 @@ Partial Class usrCntlFaktAbrechnung Me.Label41.Text = "Druck-Datum:" Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._numbersOnlyTrennzeichen = True + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._TimeOnly_Seconds = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.ReadOnly = True + Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) + Me.txtUnterNr.TabIndex = 7 + ' 'Label11 ' Me.Label11.AutoSize = True @@ -646,6 +700,43 @@ Partial Class usrCntlFaktAbrechnung Me.Label12.TabIndex = 2 Me.Label12.Text = "UnterNr" ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 280 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(8, 48) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 21) + Me.cboFiliale.TabIndex = 3 + ' + '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 Tai Le", 8.0!) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummer.TabIndex = 4 + ' 'Label39 ' Me.Label39.ForeColor = System.Drawing.Color.White @@ -813,6 +904,117 @@ Partial Class usrCntlFaktAbrechnung Me.AvisiererToolStripMenuItem2.Size = New System.Drawing.Size(153, 22) Me.AvisiererToolStripMenuItem2.Text = "4 Avisierer" ' + 'txtTextZZ + ' + Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) + Me.txtTextZZ.MaxLineLength = -1 + Me.txtTextZZ.MaxLines_Warning = "" + Me.txtTextZZ.MaxLines_Warning_Label = Nothing + Me.txtTextZZ.Name = "txtTextZZ" + Me.txtTextZZ.ReadOnly = True + Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) + Me.txtTextZZ.TabIndex = 91 + Me.txtTextZZ.Text = "" + ' + 'dgvAnhaenge + ' + Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAnhaenge.AllowUserToAddRows = False + Me.dgvAnhaenge.AllowUserToDeleteRows = False + Me.dgvAnhaenge.AllowUserToResizeColumns = False + Me.dgvAnhaenge.AllowUserToResizeRows = False + Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White + 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.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22 + Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId}) + 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.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle25 + Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911) + Me.dgvAnhaenge.MultiSelect = False + Me.dgvAnhaenge.Name = "dgvAnhaenge" + Me.dgvAnhaenge.ReadOnly = True + 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.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle26 + Me.dgvAnhaenge.RowHeadersVisible = False + Me.dgvAnhaenge.RowHeadersWidth = 62 + Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219) + Me.dgvAnhaenge.TabIndex = 90 + Me.dgvAnhaenge.TabStop = False + ' + 'optAnhSel + ' + Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.optAnhSel.FillWeight = 78.74017! + Me.optAnhSel.HeaderText = "" + Me.optAnhSel.MinimumWidth = 8 + Me.optAnhSel.Name = "optAnhSel" + Me.optAnhSel.ReadOnly = True + Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.optAnhSel.Width = 35 + ' + 'DataGridViewTextBoxColumn2 + ' + DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle23.Format = "N0" + DataGridViewCellStyle23.NullValue = Nothing + Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle23 + Me.DataGridViewTextBoxColumn2.HeaderText = "Art" + Me.DataGridViewTextBoxColumn2.MinimumWidth = 8 + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + Me.DataGridViewTextBoxColumn2.Width = 70 + ' + 'clmnBezeichnung + ' + Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle24.Format = "c2" + Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle24 + Me.clmnBezeichnung.FillWeight = 121.2598! + Me.clmnBezeichnung.HeaderText = "Bezeichnung" + Me.clmnBezeichnung.MinimumWidth = 8 + Me.clmnBezeichnung.Name = "clmnBezeichnung" + Me.clmnBezeichnung.ReadOnly = True + ' + 'clmnDsId + ' + Me.clmnDsId.HeaderText = "clmnDsId" + Me.clmnDsId.MinimumWidth = 8 + Me.clmnDsId.Name = "clmnDsId" + Me.clmnDsId.ReadOnly = True + Me.clmnDsId.Visible = False + Me.clmnDsId.Width = 150 + ' + 'clmnAnhId + ' + Me.clmnAnhId.HeaderText = "clmnAnhId" + Me.clmnAnhId.MinimumWidth = 8 + Me.clmnAnhId.Name = "clmnAnhId" + Me.clmnAnhId.ReadOnly = True + Me.clmnAnhId.Visible = False + Me.clmnAnhId.Width = 150 + ' 'Label36 ' Me.Label36.AutoSize = True @@ -834,6 +1036,30 @@ Partial Class usrCntlFaktAbrechnung Me.Label54.Text = "Sprache Rechnung:" Me.Label54.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboRechnungSprache + ' + Me.cboRechnungSprache._allowedValuesFreiText = Nothing + Me.cboRechnungSprache._allowFreiText = False + Me.cboRechnungSprache._value = "" + Me.cboRechnungSprache.FormattingEnabled = True + Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) + Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) + Me.cboRechnungSprache.Name = "cboRechnungSprache" + Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) + Me.cboRechnungSprache.TabIndex = 45 + Me.cboRechnungSprache.TabStop = False + ' + 'rtbHandling + ' + Me.rtbHandling.Location = New System.Drawing.Point(280, 911) + Me.rtbHandling.MaxLineLength = -1 + Me.rtbHandling.MaxLines_Warning = "" + Me.rtbHandling.MaxLines_Warning_Label = Nothing + Me.rtbHandling.Name = "rtbHandling" + Me.rtbHandling.Size = New System.Drawing.Size(207, 121) + Me.rtbHandling.TabIndex = 44 + Me.rtbHandling.Text = "" + ' 'Label52 ' Me.Label52.AutoSize = True @@ -860,6 +1086,31 @@ Partial Class usrCntlFaktAbrechnung Me.Panel2.Size = New System.Drawing.Size(411, 45) Me.Panel2.TabIndex = 41 ' + 'txtPositionAnzahl + ' + Me.txtPositionAnzahl._DateTimeOnly = False + Me.txtPositionAnzahl._numbersOnly = False + Me.txtPositionAnzahl._numbersOnlyKommastellen = "" + Me.txtPositionAnzahl._numbersOnlyTrennzeichen = True + Me.txtPositionAnzahl._Prozent = False + Me.txtPositionAnzahl._ShortDateNew = False + Me.txtPositionAnzahl._ShortDateOnly = False + Me.txtPositionAnzahl._TimeOnly = False + Me.txtPositionAnzahl._TimeOnly_Seconds = False + Me.txtPositionAnzahl._value = Nothing + Me.txtPositionAnzahl._Waehrung = False + Me.txtPositionAnzahl._WaehrungZeichen = True + Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) + Me.txtPositionAnzahl.MaxLength = 35 + Me.txtPositionAnzahl.MaxLineLength = -1 + Me.txtPositionAnzahl.MaxLines_Warning = "" + Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing + Me.txtPositionAnzahl.Name = "txtPositionAnzahl" + Me.txtPositionAnzahl.ReadOnly = True + Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) + Me.txtPositionAnzahl.TabIndex = 46 + ' 'Label49 ' Me.Label49.AutoSize = True @@ -870,6 +1121,31 @@ Partial Class usrCntlFaktAbrechnung Me.Label49.Text = "Pos.Anz.:" Me.Label49.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtAbfertigungsanzahl + ' + Me.txtAbfertigungsanzahl._DateTimeOnly = False + Me.txtAbfertigungsanzahl._numbersOnly = False + Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" + Me.txtAbfertigungsanzahl._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsanzahl._Prozent = False + Me.txtAbfertigungsanzahl._ShortDateNew = False + Me.txtAbfertigungsanzahl._ShortDateOnly = False + Me.txtAbfertigungsanzahl._TimeOnly = False + Me.txtAbfertigungsanzahl._TimeOnly_Seconds = False + Me.txtAbfertigungsanzahl._value = Nothing + Me.txtAbfertigungsanzahl._Waehrung = False + Me.txtAbfertigungsanzahl._WaehrungZeichen = True + Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) + Me.txtAbfertigungsanzahl.MaxLength = 35 + Me.txtAbfertigungsanzahl.MaxLineLength = -1 + Me.txtAbfertigungsanzahl.MaxLines_Warning = "" + Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" + Me.txtAbfertigungsanzahl.ReadOnly = True + Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) + Me.txtAbfertigungsanzahl.TabIndex = 44 + ' 'Label48 ' Me.Label48.AutoSize = True @@ -880,6 +1156,31 @@ Partial Class usrCntlFaktAbrechnung Me.Label48.Text = "Anzahl:" Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtAbfertigungsart + ' + Me.txtAbfertigungsart._DateTimeOnly = False + Me.txtAbfertigungsart._numbersOnly = False + Me.txtAbfertigungsart._numbersOnlyKommastellen = "" + Me.txtAbfertigungsart._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsart._Prozent = False + Me.txtAbfertigungsart._ShortDateNew = False + Me.txtAbfertigungsart._ShortDateOnly = False + Me.txtAbfertigungsart._TimeOnly = False + Me.txtAbfertigungsart._TimeOnly_Seconds = False + Me.txtAbfertigungsart._value = Nothing + Me.txtAbfertigungsart._Waehrung = False + Me.txtAbfertigungsart._WaehrungZeichen = True + Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) + Me.txtAbfertigungsart.MaxLength = 35 + Me.txtAbfertigungsart.MaxLineLength = -1 + Me.txtAbfertigungsart.MaxLines_Warning = "" + Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.ReadOnly = True + Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) + Me.txtAbfertigungsart.TabIndex = 42 + ' 'Label47 ' Me.Label47.AutoSize = True @@ -907,6 +1208,34 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAvisierer.Size = New System.Drawing.Size(415, 67) Me.pnlAvisierer.TabIndex = 8 ' + 'txtkdNrAvisierer + ' + Me.txtkdNrAvisierer._DateTimeOnly = False + Me.txtkdNrAvisierer._numbersOnly = False + Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" + Me.txtkdNrAvisierer._numbersOnlyTrennzeichen = True + Me.txtkdNrAvisierer._Prozent = False + Me.txtkdNrAvisierer._ShortDateNew = False + Me.txtkdNrAvisierer._ShortDateOnly = False + Me.txtkdNrAvisierer._TimeOnly = False + Me.txtkdNrAvisierer._TimeOnly_Seconds = False + Me.txtkdNrAvisierer._value = Nothing + Me.txtkdNrAvisierer._Waehrung = False + Me.txtkdNrAvisierer._WaehrungZeichen = True + Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22) + Me.txtkdNrAvisierer.MaxLength = 35 + Me.txtkdNrAvisierer.MaxLineLength = -1 + Me.txtkdNrAvisierer.MaxLines_Warning = "" + Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing + Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" + Me.txtkdNrAvisierer.ReadOnly = True + Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAvisierer.TabIndex = 1 + Me.txtkdNrAvisierer.TabStop = False + ' 'Label27 ' Me.Label27.AutoSize = True @@ -954,6 +1283,132 @@ Partial Class usrCntlFaktAbrechnung Me.Label21.TabIndex = 0 Me.Label21.Text = "4. Avisierer:" ' + 'txtAvisoId + ' + Me.txtAvisoId._DateTimeOnly = False + Me.txtAvisoId._numbersOnly = False + Me.txtAvisoId._numbersOnlyKommastellen = "" + Me.txtAvisoId._numbersOnlyTrennzeichen = True + Me.txtAvisoId._Prozent = False + Me.txtAvisoId._ShortDateNew = False + Me.txtAvisoId._ShortDateOnly = False + Me.txtAvisoId._TimeOnly = False + Me.txtAvisoId._TimeOnly_Seconds = False + Me.txtAvisoId._value = Nothing + Me.txtAvisoId._Waehrung = False + Me.txtAvisoId._WaehrungZeichen = True + Me.txtAvisoId.ForeColor = System.Drawing.Color.Black + Me.txtAvisoId.Location = New System.Drawing.Point(157, 32) + Me.txtAvisoId.MaxLength = 35 + Me.txtAvisoId.MaxLineLength = -1 + Me.txtAvisoId.MaxLines_Warning = "" + Me.txtAvisoId.MaxLines_Warning_Label = Nothing + Me.txtAvisoId.Name = "txtAvisoId" + Me.txtAvisoId.ReadOnly = True + Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) + Me.txtAvisoId.TabIndex = 6 + Me.txtAvisoId.TabStop = False + Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'kdFirmaAvisierer + ' + Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False + Me.kdFirmaAvisierer._AllowSetValue = True + Me.kdFirmaAvisierer._autoSizeGross = False + Me.kdFirmaAvisierer._display_Name1 = True + Me.kdFirmaAvisierer._displayAVISO_Email = False + Me.kdFirmaAvisierer._displayFullName = False + Me.kdFirmaAvisierer._displayWoelflKd = False + Me.kdFirmaAvisierer._hideIfListEmpty = True + Me.kdFirmaAvisierer._loadKdData = True + Me.kdFirmaAvisierer._searchName1 = True + Me.kdFirmaAvisierer._UseFIRMA = "" + Me.kdFirmaAvisierer._ValueKdAndName = False + Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White + Me.kdFirmaAvisierer.dgvpos = "LEFT" + Me.kdFirmaAvisierer.KdName = Nothing + Me.kdFirmaAvisierer.KdNr = "-1" + Me.kdFirmaAvisierer.kdNrField = Nothing + Me.kdFirmaAvisierer.KdNrNullInt = Nothing + Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2) + Me.kdFirmaAvisierer.MaxLength = 35 + Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" + Me.kdFirmaAvisierer.nurAktive = True + Me.kdFirmaAvisierer.searchActive = True + Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAvisierer.TabIndex = 3 + Me.kdFirmaAvisierer.TabStop = False + Me.kdFirmaAvisierer.TIMER_SEARCH = True + Me.kdFirmaAvisierer.usrcntl = Nothing + ' + 'FlatButton5 + ' + Me.FlatButton5.allowBorder = False + Me.FlatButton5.FlatAppearance.BorderSize = 0 + Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton5.ForeColor = System.Drawing.Color.Black + Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton5.Location = New System.Drawing.Point(382, -1) + Me.FlatButton5.Name = "FlatButton5" + Me.FlatButton5.Size = New System.Drawing.Size(24, 25) + Me.FlatButton5.TabIndex = 2 + Me.FlatButton5.TabStop = False + Me.FlatButton5.UseVisualStyleBackColor = True + ' + 'cboAnlage5 + ' + Me.cboAnlage5._allowedValuesFreiText = Nothing + Me.cboAnlage5._allowFreiText = True + Me.cboAnlage5._value = "" + Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage5.FormattingEnabled = True + Me.cboAnlage5.Location = New System.Drawing.Point(10, 991) + Me.cboAnlage5.MaxLength = 35 + Me.cboAnlage5.Name = "cboAnlage5" + Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage5.TabIndex = 32 + ' + 'cboAnlage1 + ' + Me.cboAnlage1._allowedValuesFreiText = Nothing + Me.cboAnlage1._allowFreiText = True + Me.cboAnlage1._value = "" + Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage1.FormattingEnabled = True + Me.cboAnlage1.Location = New System.Drawing.Point(10, 911) + Me.cboAnlage1.MaxLength = 35 + Me.cboAnlage1.Name = "cboAnlage1" + Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage1.TabIndex = 28 + ' + 'txtWarenwertUmrechnung + ' + Me.txtWarenwertUmrechnung._DateTimeOnly = False + Me.txtWarenwertUmrechnung._numbersOnly = False + Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" + Me.txtWarenwertUmrechnung._numbersOnlyTrennzeichen = True + Me.txtWarenwertUmrechnung._Prozent = False + Me.txtWarenwertUmrechnung._ShortDateNew = False + Me.txtWarenwertUmrechnung._ShortDateOnly = False + Me.txtWarenwertUmrechnung._TimeOnly = False + Me.txtWarenwertUmrechnung._TimeOnly_Seconds = False + Me.txtWarenwertUmrechnung._value = "" + Me.txtWarenwertUmrechnung._Waehrung = True + Me.txtWarenwertUmrechnung._WaehrungZeichen = False + Me.txtWarenwertUmrechnung.Enabled = False + Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black + Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 197) + Me.txtWarenwertUmrechnung.MaxLength = 35 + Me.txtWarenwertUmrechnung.MaxLineLength = -1 + Me.txtWarenwertUmrechnung.MaxLines_Warning = "" + Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing + Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" + Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) + Me.txtWarenwertUmrechnung.TabIndex = 18 + Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label13 ' Me.Label13.AutoSize = True @@ -965,6 +1420,20 @@ Partial Class usrCntlFaktAbrechnung Me.Label13.Text = "Anlagen:" Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboAnlage2 + ' + Me.cboAnlage2._allowedValuesFreiText = Nothing + Me.cboAnlage2._allowFreiText = True + Me.cboAnlage2._value = "" + Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage2.FormattingEnabled = True + Me.cboAnlage2.Location = New System.Drawing.Point(10, 931) + Me.cboAnlage2.MaxLength = 35 + Me.cboAnlage2.Name = "cboAnlage2" + Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage2.TabIndex = 29 + ' 'Label34 ' Me.Label34.AutoSize = True @@ -975,6 +1444,58 @@ Partial Class usrCntlFaktAbrechnung Me.Label34.Text = "Umrechnung:" Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboAnlage3 + ' + Me.cboAnlage3._allowedValuesFreiText = Nothing + Me.cboAnlage3._allowFreiText = True + Me.cboAnlage3._value = "" + Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage3.FormattingEnabled = True + Me.cboAnlage3.Location = New System.Drawing.Point(10, 951) + Me.cboAnlage3.MaxLength = 35 + Me.cboAnlage3.Name = "cboAnlage3" + Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage3.TabIndex = 30 + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._TimeOnly_Seconds = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.ForeColor = System.Drawing.Color.Black + Me.txtVermerk.Location = New System.Drawing.Point(517, 341) + Me.txtVermerk.MaxLength = 35 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(305, 20) + Me.txtVermerk.TabIndex = 25 + ' + 'cboAnlage6 + ' + Me.cboAnlage6._allowedValuesFreiText = Nothing + Me.cboAnlage6._allowFreiText = True + Me.cboAnlage6._value = "" + Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage6.FormattingEnabled = True + Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011) + Me.cboAnlage6.MaxLength = 35 + Me.cboAnlage6.Name = "cboAnlage6" + Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage6.TabIndex = 33 + ' 'Label25 ' Me.Label25.AutoSize = True @@ -985,6 +1506,44 @@ Partial Class usrCntlFaktAbrechnung Me.Label25.Text = "Vermerk:" Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboAnlage4 + ' + Me.cboAnlage4._allowedValuesFreiText = Nothing + Me.cboAnlage4._allowFreiText = True + Me.cboAnlage4._value = "" + Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage4.FormattingEnabled = True + Me.cboAnlage4.Location = New System.Drawing.Point(10, 971) + Me.cboAnlage4.MaxLength = 35 + Me.cboAnlage4.Name = "cboAnlage4" + Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage4.TabIndex = 31 + ' + 'txtErfassungsnummer + ' + Me.txtErfassungsnummer._DateTimeOnly = False + Me.txtErfassungsnummer._numbersOnly = False + Me.txtErfassungsnummer._numbersOnlyKommastellen = "" + Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True + Me.txtErfassungsnummer._Prozent = False + Me.txtErfassungsnummer._ShortDateNew = False + Me.txtErfassungsnummer._ShortDateOnly = False + Me.txtErfassungsnummer._TimeOnly = False + Me.txtErfassungsnummer._TimeOnly_Seconds = False + Me.txtErfassungsnummer._value = Nothing + Me.txtErfassungsnummer._Waehrung = False + Me.txtErfassungsnummer._WaehrungZeichen = True + Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 242) + Me.txtErfassungsnummer.MaxLength = 35 + Me.txtErfassungsnummer.MaxLineLength = -1 + Me.txtErfassungsnummer.MaxLines_Warning = "" + Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing + Me.txtErfassungsnummer.Name = "txtErfassungsnummer" + Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) + Me.txtErfassungsnummer.TabIndex = 11 + ' 'Label24 ' Me.Label24.AutoSize = True @@ -1005,6 +1564,17 @@ Partial Class usrCntlFaktAbrechnung Me.Label22.Text = "Rg-Notiz:" Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboRechnungNotiz + ' + Me.cboRechnungNotiz._allowedValuesFreiText = Nothing + Me.cboRechnungNotiz._allowFreiText = True + Me.cboRechnungNotiz._value = "" + Me.cboRechnungNotiz.FormattingEnabled = True + Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039) + Me.cboRechnungNotiz.Name = "cboRechnungNotiz" + Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21) + Me.cboRechnungNotiz.TabIndex = 36 + ' 'pic ' Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med @@ -1016,6 +1586,19 @@ Partial Class usrCntlFaktAbrechnung Me.pic.TabIndex = 36 Me.pic.TabStop = False ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(592, 51) + Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(229, 21) + Me.cboFirma.TabIndex = 1 + Me.cboFirma.TabStop = False + ' 'lblFirma3 ' Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1073,6 +1656,34 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 73) Me.pnlAuftraggeber.TabIndex = 7 ' + 'txtkdNrAuftraggeber + ' + Me.txtkdNrAuftraggeber._DateTimeOnly = False + Me.txtkdNrAuftraggeber._numbersOnly = False + Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" + Me.txtkdNrAuftraggeber._numbersOnlyTrennzeichen = True + Me.txtkdNrAuftraggeber._Prozent = False + Me.txtkdNrAuftraggeber._ShortDateNew = False + Me.txtkdNrAuftraggeber._ShortDateOnly = False + Me.txtkdNrAuftraggeber._TimeOnly = False + Me.txtkdNrAuftraggeber._TimeOnly_Seconds = False + Me.txtkdNrAuftraggeber._value = Nothing + Me.txtkdNrAuftraggeber._Waehrung = False + Me.txtkdNrAuftraggeber._WaehrungZeichen = True + Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25) + Me.txtkdNrAuftraggeber.MaxLength = 35 + Me.txtkdNrAuftraggeber.MaxLineLength = -1 + Me.txtkdNrAuftraggeber.MaxLines_Warning = "" + Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing + Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" + Me.txtkdNrAuftraggeber.ReadOnly = True + Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAuftraggeber.TabIndex = 1 + Me.txtkdNrAuftraggeber.TabStop = False + ' 'btnAuftraggeberEuro ' Me.btnAuftraggeberEuro.FlatAppearance.BorderSize = 0 @@ -1088,6 +1699,64 @@ Partial Class usrCntlFaktAbrechnung Me.btnAuftraggeberEuro.Text = "€" Me.btnAuftraggeberEuro.UseVisualStyleBackColor = True ' + 'kdFirmaAuftraggeber + ' + Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False + Me.kdFirmaAuftraggeber._AllowSetValue = True + Me.kdFirmaAuftraggeber._autoSizeGross = False + Me.kdFirmaAuftraggeber._display_Name1 = True + Me.kdFirmaAuftraggeber._displayAVISO_Email = False + Me.kdFirmaAuftraggeber._displayFullName = False + Me.kdFirmaAuftraggeber._displayWoelflKd = False + Me.kdFirmaAuftraggeber._hideIfListEmpty = True + Me.kdFirmaAuftraggeber._loadKdData = True + Me.kdFirmaAuftraggeber._searchName1 = True + Me.kdFirmaAuftraggeber._UseFIRMA = "" + Me.kdFirmaAuftraggeber._ValueKdAndName = False + Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White + Me.kdFirmaAuftraggeber.dgvpos = "LEFT" + Me.kdFirmaAuftraggeber.KdName = Nothing + Me.kdFirmaAuftraggeber.KdNr = "-1" + Me.kdFirmaAuftraggeber.kdNrField = Nothing + Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing + Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaAuftraggeber.MaxLength = 35 + Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" + Me.kdFirmaAuftraggeber.nurAktive = True + Me.kdFirmaAuftraggeber.searchActive = True + Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAuftraggeber.TabIndex = 3 + Me.kdFirmaAuftraggeber.TabStop = False + Me.kdFirmaAuftraggeber.TIMER_SEARCH = True + Me.kdFirmaAuftraggeber.usrcntl = Nothing + ' + 'txtAuftraggeberName2 + ' + Me.txtAuftraggeberName2._DateTimeOnly = False + Me.txtAuftraggeberName2._numbersOnly = False + Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" + Me.txtAuftraggeberName2._numbersOnlyTrennzeichen = True + Me.txtAuftraggeberName2._Prozent = False + Me.txtAuftraggeberName2._ShortDateNew = False + Me.txtAuftraggeberName2._ShortDateOnly = False + Me.txtAuftraggeberName2._TimeOnly = False + Me.txtAuftraggeberName2._TimeOnly_Seconds = False + Me.txtAuftraggeberName2._value = Nothing + Me.txtAuftraggeberName2._Waehrung = False + Me.txtAuftraggeberName2._WaehrungZeichen = True + Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black + Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25) + Me.txtAuftraggeberName2.MaxLength = 35 + Me.txtAuftraggeberName2.MaxLineLength = -1 + Me.txtAuftraggeberName2.MaxLines_Warning = "" + Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing + Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" + Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13) + Me.txtAuftraggeberName2.TabIndex = 4 + Me.txtAuftraggeberName2.TabStop = False + ' 'Label15 ' Me.Label15.AutoSize = True @@ -1098,6 +1767,134 @@ Partial Class usrCntlFaktAbrechnung Me.Label15.TabIndex = 0 Me.Label15.Text = "3. Auftraggeber:" ' + 'txtAuftragggeberOrt + ' + Me.txtAuftragggeberOrt._DateTimeOnly = False + Me.txtAuftragggeberOrt._numbersOnly = False + Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" + Me.txtAuftragggeberOrt._numbersOnlyTrennzeichen = True + Me.txtAuftragggeberOrt._Prozent = False + Me.txtAuftragggeberOrt._ShortDateNew = False + Me.txtAuftragggeberOrt._ShortDateOnly = False + Me.txtAuftragggeberOrt._TimeOnly = False + Me.txtAuftragggeberOrt._TimeOnly_Seconds = False + Me.txtAuftragggeberOrt._value = Nothing + Me.txtAuftragggeberOrt._Waehrung = False + Me.txtAuftragggeberOrt._WaehrungZeichen = True + Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53) + Me.txtAuftragggeberOrt.MaxLength = 35 + Me.txtAuftragggeberOrt.MaxLineLength = -1 + Me.txtAuftragggeberOrt.MaxLines_Warning = "" + Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" + Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13) + Me.txtAuftragggeberOrt.TabIndex = 7 + Me.txtAuftragggeberOrt.TabStop = False + ' + 'txtAuftragggeberStrasse + ' + Me.txtAuftragggeberStrasse._DateTimeOnly = False + Me.txtAuftragggeberStrasse._numbersOnly = False + Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" + Me.txtAuftragggeberStrasse._numbersOnlyTrennzeichen = True + Me.txtAuftragggeberStrasse._Prozent = False + Me.txtAuftragggeberStrasse._ShortDateNew = False + Me.txtAuftragggeberStrasse._ShortDateOnly = False + Me.txtAuftragggeberStrasse._TimeOnly = False + Me.txtAuftragggeberStrasse._TimeOnly_Seconds = False + Me.txtAuftragggeberStrasse._value = Nothing + Me.txtAuftragggeberStrasse._Waehrung = False + Me.txtAuftragggeberStrasse._WaehrungZeichen = True + Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39) + Me.txtAuftragggeberStrasse.MaxLength = 35 + Me.txtAuftragggeberStrasse.MaxLineLength = -1 + Me.txtAuftragggeberStrasse.MaxLines_Warning = "" + Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" + Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtAuftragggeberStrasse.TabIndex = 6 + Me.txtAuftragggeberStrasse.TabStop = False + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton4.Location = New System.Drawing.Point(382, 0) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(24, 25) + Me.FlatButton4.TabIndex = 2 + Me.FlatButton4.TabStop = False + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'txtText + ' + Me.txtText.Location = New System.Drawing.Point(64, 1083) + Me.txtText.MaxLineLength = -1 + Me.txtText.MaxLines_Warning = "" + Me.txtText.MaxLines_Warning_Label = Nothing + Me.txtText.Name = "txtText" + Me.txtText.ReadOnly = True + Me.txtText.Size = New System.Drawing.Size(423, 47) + Me.txtText.TabIndex = 35 + Me.txtText.Text = "" + ' + 'txtBefoerderungsmittel + ' + Me.txtBefoerderungsmittel._DateTimeOnly = False + Me.txtBefoerderungsmittel._numbersOnly = False + Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" + Me.txtBefoerderungsmittel._numbersOnlyTrennzeichen = True + Me.txtBefoerderungsmittel._Prozent = False + Me.txtBefoerderungsmittel._ShortDateNew = False + Me.txtBefoerderungsmittel._ShortDateOnly = False + Me.txtBefoerderungsmittel._TimeOnly = False + Me.txtBefoerderungsmittel._TimeOnly_Seconds = False + Me.txtBefoerderungsmittel._value = Nothing + Me.txtBefoerderungsmittel._Waehrung = False + Me.txtBefoerderungsmittel._WaehrungZeichen = True + Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black + Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 279) + Me.txtBefoerderungsmittel.MaxLength = 35 + Me.txtBefoerderungsmittel.MaxLineLength = -1 + Me.txtBefoerderungsmittel.MaxLines_Warning = "" + Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing + Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" + Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) + Me.txtBefoerderungsmittel.TabIndex = 19 + ' + 'txtGrenze + ' + Me.txtGrenze._DateTimeOnly = False + Me.txtGrenze._numbersOnly = False + Me.txtGrenze._numbersOnlyKommastellen = "" + Me.txtGrenze._numbersOnlyTrennzeichen = True + Me.txtGrenze._Prozent = False + Me.txtGrenze._ShortDateNew = False + Me.txtGrenze._ShortDateOnly = False + Me.txtGrenze._TimeOnly = False + Me.txtGrenze._TimeOnly_Seconds = False + Me.txtGrenze._value = Nothing + Me.txtGrenze._Waehrung = False + Me.txtGrenze._WaehrungZeichen = True + Me.txtGrenze.ForeColor = System.Drawing.Color.Black + Me.txtGrenze.Location = New System.Drawing.Point(517, 260) + Me.txtGrenze.MaxLength = 35 + Me.txtGrenze.MaxLineLength = -1 + Me.txtGrenze.MaxLines_Warning = "" + Me.txtGrenze.MaxLines_Warning_Label = Nothing + Me.txtGrenze.Name = "txtGrenze" + Me.txtGrenze.Size = New System.Drawing.Size(305, 20) + Me.txtGrenze.TabIndex = 16 + ' 'Label20 ' Me.Label20.AutoSize = True @@ -1118,6 +1915,30 @@ Partial Class usrCntlFaktAbrechnung Me.Label19.Text = "Grenze:" Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtSendungsdaten + ' + Me.txtSendungsdaten._DateTimeOnly = False + Me.txtSendungsdaten._numbersOnly = False + Me.txtSendungsdaten._numbersOnlyKommastellen = "" + Me.txtSendungsdaten._numbersOnlyTrennzeichen = True + Me.txtSendungsdaten._Prozent = False + Me.txtSendungsdaten._ShortDateNew = False + Me.txtSendungsdaten._ShortDateOnly = False + Me.txtSendungsdaten._TimeOnly = False + Me.txtSendungsdaten._TimeOnly_Seconds = False + Me.txtSendungsdaten._value = Nothing + Me.txtSendungsdaten._Waehrung = False + Me.txtSendungsdaten._WaehrungZeichen = True + Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black + Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 323) + Me.txtSendungsdaten.MaxLength = 300 + Me.txtSendungsdaten.MaxLineLength = -1 + Me.txtSendungsdaten.MaxLines_Warning = "" + Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing + Me.txtSendungsdaten.Name = "txtSendungsdaten" + Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) + Me.txtSendungsdaten.TabIndex = 22 + ' 'Label17 ' Me.Label17.AutoSize = True @@ -1128,6 +1949,31 @@ Partial Class usrCntlFaktAbrechnung Me.Label17.Text = "Sendungsdaten:" Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtWarenwert + ' + Me.txtWarenwert._DateTimeOnly = False + Me.txtWarenwert._numbersOnly = False + Me.txtWarenwert._numbersOnlyKommastellen = "" + Me.txtWarenwert._numbersOnlyTrennzeichen = True + Me.txtWarenwert._Prozent = False + Me.txtWarenwert._ShortDateNew = False + Me.txtWarenwert._ShortDateOnly = False + Me.txtWarenwert._TimeOnly = False + Me.txtWarenwert._TimeOnly_Seconds = False + Me.txtWarenwert._value = "" + Me.txtWarenwert._Waehrung = True + Me.txtWarenwert._WaehrungZeichen = False + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(562, 178) + Me.txtWarenwert.MaxLength = 35 + Me.txtWarenwert.MaxLineLength = -1 + Me.txtWarenwert.MaxLines_Warning = "" + Me.txtWarenwert.MaxLines_Warning_Label = Nothing + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Size = New System.Drawing.Size(129, 20) + Me.txtWarenwert.TabIndex = 15 + Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label16 ' Me.Label16.AutoSize = True @@ -1138,6 +1984,30 @@ Partial Class usrCntlFaktAbrechnung Me.Label16.Text = "Warenwert:" Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtZollbelegNr + ' + Me.txtZollbelegNr._DateTimeOnly = False + Me.txtZollbelegNr._numbersOnly = False + Me.txtZollbelegNr._numbersOnlyKommastellen = "" + Me.txtZollbelegNr._numbersOnlyTrennzeichen = True + Me.txtZollbelegNr._Prozent = False + Me.txtZollbelegNr._ShortDateNew = False + Me.txtZollbelegNr._ShortDateOnly = False + Me.txtZollbelegNr._TimeOnly = False + Me.txtZollbelegNr._TimeOnly_Seconds = False + Me.txtZollbelegNr._value = Nothing + Me.txtZollbelegNr._Waehrung = False + Me.txtZollbelegNr._WaehrungZeichen = True + Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black + Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 159) + Me.txtZollbelegNr.MaxLength = 35 + Me.txtZollbelegNr.MaxLineLength = -1 + Me.txtZollbelegNr.MaxLines_Warning = "" + Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing + Me.txtZollbelegNr.Name = "txtZollbelegNr" + Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) + Me.txtZollbelegNr.TabIndex = 10 + ' 'Label10 ' Me.Label10.AutoSize = True @@ -1188,6 +2058,17 @@ Partial Class usrCntlFaktAbrechnung Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 153) Me.pnlRechnungAn.TabIndex = 0 ' + 'cboRgArt + ' + Me.cboRgArt._allowedValuesFreiText = Nothing + Me.cboRgArt._allowFreiText = False + Me.cboRgArt._value = "" + Me.cboRgArt.FormattingEnabled = True + Me.cboRgArt.Location = New System.Drawing.Point(478, 127) + Me.cboRgArt.Name = "cboRgArt" + Me.cboRgArt.Size = New System.Drawing.Size(97, 21) + Me.cboRgArt.TabIndex = 246 + ' 'Label57 ' Me.Label57.AutoSize = True @@ -1198,6 +2079,17 @@ Partial Class usrCntlFaktAbrechnung Me.Label57.Text = "RG-Art:" Me.Label57.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboVorauskasse + ' + Me.cboVorauskasse._allowedValuesFreiText = Nothing + Me.cboVorauskasse._allowFreiText = False + Me.cboVorauskasse._value = "" + Me.cboVorauskasse.FormattingEnabled = True + Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5) + Me.cboVorauskasse.Name = "cboVorauskasse" + Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21) + Me.cboVorauskasse.TabIndex = 244 + ' 'Label56 ' Me.Label56.AutoSize = True @@ -1208,6 +2100,31 @@ Partial Class usrCntlFaktAbrechnung Me.Label56.TabIndex = 243 Me.Label56.Text = "Adresse:" ' + 'txtRechnungAnZusatz + ' + Me.txtRechnungAnZusatz._DateTimeOnly = False + Me.txtRechnungAnZusatz._numbersOnly = False + Me.txtRechnungAnZusatz._numbersOnlyKommastellen = "" + Me.txtRechnungAnZusatz._numbersOnlyTrennzeichen = True + Me.txtRechnungAnZusatz._Prozent = False + Me.txtRechnungAnZusatz._ShortDateNew = False + Me.txtRechnungAnZusatz._ShortDateOnly = False + Me.txtRechnungAnZusatz._TimeOnly = False + Me.txtRechnungAnZusatz._TimeOnly_Seconds = False + Me.txtRechnungAnZusatz._value = Nothing + Me.txtRechnungAnZusatz._Waehrung = False + Me.txtRechnungAnZusatz._WaehrungZeichen = True + Me.txtRechnungAnZusatz.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnZusatz.Location = New System.Drawing.Point(101, 63) + Me.txtRechnungAnZusatz.MaxLength = 52 + Me.txtRechnungAnZusatz.MaxLineLength = -1 + Me.txtRechnungAnZusatz.MaxLines_Warning = "" + Me.txtRechnungAnZusatz.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnZusatz.Name = "txtRechnungAnZusatz" + Me.txtRechnungAnZusatz.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnZusatz.TabIndex = 242 + Me.txtRechnungAnZusatz.TabStop = False + ' 'Button15 ' Me.Button15.Enabled = False @@ -1219,6 +2136,17 @@ Partial Class usrCntlFaktAbrechnung Me.Button15.Text = "Post" Me.Button15.UseVisualStyleBackColor = True ' + 'cboSammelrechnung + ' + Me.cboSammelrechnung._allowedValuesFreiText = Nothing + Me.cboSammelrechnung._allowFreiText = False + Me.cboSammelrechnung._value = "" + Me.cboSammelrechnung.FormattingEnabled = True + Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 5) + Me.cboSammelrechnung.Name = "cboSammelrechnung" + Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) + Me.cboSammelrechnung.TabIndex = 2 + ' 'Button14 ' Me.Button14.BackgroundImage = Global.SDL.My.Resources.Resources.person_add @@ -1304,6 +2232,100 @@ Partial Class usrCntlFaktAbrechnung Me.Button6.Text = "UID prüfen" Me.Button6.UseVisualStyleBackColor = True ' + 'txtRechnungAnName2 + ' + Me.txtRechnungAnName2._DateTimeOnly = False + Me.txtRechnungAnName2._numbersOnly = False + Me.txtRechnungAnName2._numbersOnlyKommastellen = "" + Me.txtRechnungAnName2._numbersOnlyTrennzeichen = True + Me.txtRechnungAnName2._Prozent = False + Me.txtRechnungAnName2._ShortDateNew = False + Me.txtRechnungAnName2._ShortDateOnly = False + Me.txtRechnungAnName2._TimeOnly = False + Me.txtRechnungAnName2._TimeOnly_Seconds = False + Me.txtRechnungAnName2._value = Nothing + Me.txtRechnungAnName2._Waehrung = False + Me.txtRechnungAnName2._WaehrungZeichen = True + Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 44) + Me.txtRechnungAnName2.MaxLength = 40 + Me.txtRechnungAnName2.MaxLineLength = -1 + Me.txtRechnungAnName2.MaxLines_Warning = "" + Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnName2.Name = "txtRechnungAnName2" + Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnName2.TabIndex = 11 + Me.txtRechnungAnName2.TabStop = False + ' + 'kdFirmaRechnungAn + ' + Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False + Me.kdFirmaRechnungAn._AllowSetValue = True + Me.kdFirmaRechnungAn._autoSizeGross = False + Me.kdFirmaRechnungAn._display_Name1 = True + Me.kdFirmaRechnungAn._displayAVISO_Email = False + Me.kdFirmaRechnungAn._displayFullName = False + Me.kdFirmaRechnungAn._displayWoelflKd = False + Me.kdFirmaRechnungAn._hideIfListEmpty = True + Me.kdFirmaRechnungAn._loadKdData = True + Me.kdFirmaRechnungAn._searchName1 = True + Me.kdFirmaRechnungAn._UseFIRMA = "" + Me.kdFirmaRechnungAn._ValueKdAndName = False + Me.kdFirmaRechnungAn.dgvpos = "LEFT" + Me.kdFirmaRechnungAn.KdName = Nothing + Me.kdFirmaRechnungAn.KdNr = "-1" + Me.kdFirmaRechnungAn.kdNrField = Nothing + Me.kdFirmaRechnungAn.KdNrNullInt = Nothing + Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 25) + Me.kdFirmaRechnungAn.MaxLength = 35 + Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" + Me.kdFirmaRechnungAn.nurAktive = True + Me.kdFirmaRechnungAn.searchActive = True + Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaRechnungAn.TabIndex = 5 + Me.kdFirmaRechnungAn.TabStop = False + Me.kdFirmaRechnungAn.TIMER_SEARCH = True + Me.kdFirmaRechnungAn.usrcntl = Nothing + ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.FlatAppearance.BorderSize = 0 + Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton3.ForeColor = System.Drawing.Color.Black + Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton3.Location = New System.Drawing.Point(383, 20) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(24, 25) + Me.FlatButton3.TabIndex = 7 + Me.FlatButton3.TabStop = False + Me.FlatButton3.UseVisualStyleBackColor = True + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr._DateTimeOnly = False + Me.txtKdAuftragsNr._numbersOnly = False + Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True + Me.txtKdAuftragsNr._Prozent = False + Me.txtKdAuftragsNr._ShortDateNew = False + Me.txtKdAuftragsNr._ShortDateOnly = False + Me.txtKdAuftragsNr._TimeOnly = False + Me.txtKdAuftragsNr._TimeOnly_Seconds = False + Me.txtKdAuftragsNr._value = Nothing + Me.txtKdAuftragsNr._Waehrung = False + Me.txtKdAuftragsNr._WaehrungZeichen = True + Me.txtKdAuftragsNr.BackColor = System.Drawing.Color.Yellow + Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 123) + Me.txtKdAuftragsNr.MaxLength = 46 + Me.txtKdAuftragsNr.MaxLineLength = -1 + Me.txtKdAuftragsNr.MaxLines_Warning = "" + Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) + Me.txtKdAuftragsNr.TabIndex = 20 + ' 'Label43 ' Me.Label43.AutoSize = True @@ -1314,6 +2336,31 @@ Partial Class usrCntlFaktAbrechnung Me.Label43.TabIndex = 19 Me.Label43.Text = "Kd-Auftr.Nr.:" ' + 'txtRechnungAnUIDKz + ' + Me.txtRechnungAnUIDKz._DateTimeOnly = False + Me.txtRechnungAnUIDKz._numbersOnly = False + Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDKz._numbersOnlyTrennzeichen = True + Me.txtRechnungAnUIDKz._Prozent = False + Me.txtRechnungAnUIDKz._ShortDateNew = False + Me.txtRechnungAnUIDKz._ShortDateOnly = False + Me.txtRechnungAnUIDKz._TimeOnly = False + Me.txtRechnungAnUIDKz._TimeOnly_Seconds = False + Me.txtRechnungAnUIDKz._value = Nothing + Me.txtRechnungAnUIDKz._Waehrung = False + Me.txtRechnungAnUIDKz._WaehrungZeichen = True + Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 44) + Me.txtRechnungAnUIDKz.MaxLength = 35 + Me.txtRechnungAnUIDKz.MaxLineLength = -1 + Me.txtRechnungAnUIDKz.MaxLines_Warning = "" + Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" + Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) + Me.txtRechnungAnUIDKz.TabIndex = 18 + Me.txtRechnungAnUIDKz.TabStop = False + ' 'Label1 ' Me.Label1.AutoSize = True @@ -1324,6 +2371,42 @@ Partial Class usrCntlFaktAbrechnung Me.Label1.Text = "Vorauskasse:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboRechnungAn + ' + Me.cboRechnungAn._allowedValuesFreiText = Nothing + Me.cboRechnungAn._allowFreiText = False + Me.cboRechnungAn._value = "" + Me.cboRechnungAn.FormattingEnabled = True + Me.cboRechnungAn.Location = New System.Drawing.Point(101, 5) + Me.cboRechnungAn.Name = "cboRechnungAn" + Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) + Me.cboRechnungAn.TabIndex = 1 + ' + 'txtRechnungAnUIDNr + ' + Me.txtRechnungAnUIDNr._DateTimeOnly = False + Me.txtRechnungAnUIDNr._numbersOnly = False + Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDNr._numbersOnlyTrennzeichen = True + Me.txtRechnungAnUIDNr._Prozent = False + Me.txtRechnungAnUIDNr._ShortDateNew = False + Me.txtRechnungAnUIDNr._ShortDateOnly = False + Me.txtRechnungAnUIDNr._TimeOnly = False + Me.txtRechnungAnUIDNr._TimeOnly_Seconds = False + Me.txtRechnungAnUIDNr._value = Nothing + Me.txtRechnungAnUIDNr._Waehrung = False + Me.txtRechnungAnUIDNr._WaehrungZeichen = True + Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 44) + Me.txtRechnungAnUIDNr.MaxLength = 35 + Me.txtRechnungAnUIDNr.MaxLineLength = -1 + Me.txtRechnungAnUIDNr.MaxLines_Warning = "" + Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" + Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) + Me.txtRechnungAnUIDNr.TabIndex = 13 + Me.txtRechnungAnUIDNr.TabStop = False + ' 'Label6 ' Me.Label6.AutoSize = True @@ -1334,6 +2417,31 @@ Partial Class usrCntlFaktAbrechnung Me.Label6.TabIndex = 12 Me.Label6.Text = "UID-Nr.:" ' + 'txtRechnungAnBuKdNr + ' + Me.txtRechnungAnBuKdNr._DateTimeOnly = False + Me.txtRechnungAnBuKdNr._numbersOnly = False + Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnBuKdNr._numbersOnlyTrennzeichen = True + Me.txtRechnungAnBuKdNr._Prozent = False + Me.txtRechnungAnBuKdNr._ShortDateNew = False + Me.txtRechnungAnBuKdNr._ShortDateOnly = False + Me.txtRechnungAnBuKdNr._TimeOnly = False + Me.txtRechnungAnBuKdNr._TimeOnly_Seconds = False + Me.txtRechnungAnBuKdNr._value = Nothing + Me.txtRechnungAnBuKdNr._Waehrung = False + Me.txtRechnungAnBuKdNr._WaehrungZeichen = True + Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 25) + Me.txtRechnungAnBuKdNr.MaxLength = 35 + Me.txtRechnungAnBuKdNr.MaxLineLength = -1 + Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" + Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" + Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) + Me.txtRechnungAnBuKdNr.TabIndex = 10 + Me.txtRechnungAnBuKdNr.TabStop = False + ' 'Label3 ' Me.Label3.AutoSize = True @@ -1344,6 +2452,81 @@ Partial Class usrCntlFaktAbrechnung Me.Label3.TabIndex = 9 Me.Label3.Text = "BuKdNr:" ' + 'txtkdNrRechnungAn + ' + Me.txtkdNrRechnungAn._DateTimeOnly = False + Me.txtkdNrRechnungAn._numbersOnly = False + Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" + Me.txtkdNrRechnungAn._numbersOnlyTrennzeichen = True + Me.txtkdNrRechnungAn._Prozent = False + Me.txtkdNrRechnungAn._ShortDateNew = False + Me.txtkdNrRechnungAn._ShortDateOnly = False + Me.txtkdNrRechnungAn._TimeOnly = False + Me.txtkdNrRechnungAn._TimeOnly_Seconds = False + Me.txtkdNrRechnungAn._value = Nothing + Me.txtkdNrRechnungAn._Waehrung = False + Me.txtkdNrRechnungAn._WaehrungZeichen = True + Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black + Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 25) + Me.txtkdNrRechnungAn.MaxLength = 35 + Me.txtkdNrRechnungAn.MaxLineLength = -1 + Me.txtkdNrRechnungAn.MaxLines_Warning = "" + Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing + Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" + Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrRechnungAn.TabIndex = 3 + Me.txtkdNrRechnungAn.TabStop = False + ' + 'txtRechnungAnOrt + ' + Me.txtRechnungAnOrt._DateTimeOnly = False + Me.txtRechnungAnOrt._numbersOnly = False + Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" + Me.txtRechnungAnOrt._numbersOnlyTrennzeichen = True + Me.txtRechnungAnOrt._Prozent = False + Me.txtRechnungAnOrt._ShortDateNew = False + Me.txtRechnungAnOrt._ShortDateOnly = False + Me.txtRechnungAnOrt._TimeOnly = False + Me.txtRechnungAnOrt._TimeOnly_Seconds = False + Me.txtRechnungAnOrt._value = Nothing + Me.txtRechnungAnOrt._Waehrung = False + Me.txtRechnungAnOrt._WaehrungZeichen = True + Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 101) + Me.txtRechnungAnOrt.MaxLength = 52 + Me.txtRechnungAnOrt.MaxLineLength = -1 + Me.txtRechnungAnOrt.MaxLines_Warning = "" + Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" + Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnOrt.TabIndex = 17 + Me.txtRechnungAnOrt.TabStop = False + ' + 'txtRechnungAnStrasse + ' + Me.txtRechnungAnStrasse._DateTimeOnly = False + Me.txtRechnungAnStrasse._numbersOnly = False + Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" + Me.txtRechnungAnStrasse._numbersOnlyTrennzeichen = True + Me.txtRechnungAnStrasse._Prozent = False + Me.txtRechnungAnStrasse._ShortDateNew = False + Me.txtRechnungAnStrasse._ShortDateOnly = False + Me.txtRechnungAnStrasse._TimeOnly = False + Me.txtRechnungAnStrasse._TimeOnly_Seconds = False + Me.txtRechnungAnStrasse._value = Nothing + Me.txtRechnungAnStrasse._Waehrung = False + Me.txtRechnungAnStrasse._WaehrungZeichen = True + Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 82) + Me.txtRechnungAnStrasse.MaxLength = 40 + Me.txtRechnungAnStrasse.MaxLineLength = -1 + Me.txtRechnungAnStrasse.MaxLines_Warning = "" + Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" + Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnStrasse.TabIndex = 14 + Me.txtRechnungAnStrasse.TabStop = False + ' 'Label7 ' Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1371,6 +2554,34 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.Size = New System.Drawing.Size(415, 77) Me.pnlAbsender.TabIndex = 5 ' + 'txtkdNrAbsender + ' + Me.txtkdNrAbsender._DateTimeOnly = False + Me.txtkdNrAbsender._numbersOnly = False + Me.txtkdNrAbsender._numbersOnlyKommastellen = "" + Me.txtkdNrAbsender._numbersOnlyTrennzeichen = True + Me.txtkdNrAbsender._Prozent = False + Me.txtkdNrAbsender._ShortDateNew = False + Me.txtkdNrAbsender._ShortDateOnly = False + Me.txtkdNrAbsender._TimeOnly = False + Me.txtkdNrAbsender._TimeOnly_Seconds = False + Me.txtkdNrAbsender._value = Nothing + Me.txtkdNrAbsender._Waehrung = False + Me.txtkdNrAbsender._WaehrungZeichen = True + Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26) + Me.txtkdNrAbsender.MaxLength = 35 + Me.txtkdNrAbsender.MaxLineLength = -1 + Me.txtkdNrAbsender.MaxLines_Warning = "" + Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing + Me.txtkdNrAbsender.Name = "txtkdNrAbsender" + Me.txtkdNrAbsender.ReadOnly = True + Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAbsender.TabIndex = 1 + Me.txtkdNrAbsender.TabStop = False + ' 'btnAbsenderEuro ' Me.btnAbsenderEuro.FlatAppearance.BorderSize = 0 @@ -1386,6 +2597,132 @@ Partial Class usrCntlFaktAbrechnung Me.btnAbsenderEuro.Text = "€" Me.btnAbsenderEuro.UseVisualStyleBackColor = True ' + 'kdFirmaAbsender + ' + Me.kdFirmaAbsender._AlleFirmenCLUSTER = False + Me.kdFirmaAbsender._AllowSetValue = True + Me.kdFirmaAbsender._autoSizeGross = False + Me.kdFirmaAbsender._display_Name1 = True + Me.kdFirmaAbsender._displayAVISO_Email = False + Me.kdFirmaAbsender._displayFullName = False + Me.kdFirmaAbsender._displayWoelflKd = False + Me.kdFirmaAbsender._hideIfListEmpty = True + Me.kdFirmaAbsender._loadKdData = True + Me.kdFirmaAbsender._searchName1 = True + Me.kdFirmaAbsender._UseFIRMA = "" + Me.kdFirmaAbsender._ValueKdAndName = False + Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White + Me.kdFirmaAbsender.dgvpos = "LEFT" + Me.kdFirmaAbsender.KdName = Nothing + Me.kdFirmaAbsender.KdNr = "-1" + Me.kdFirmaAbsender.kdNrField = Nothing + Me.kdFirmaAbsender.KdNrNullInt = Nothing + Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaAbsender.MaxLength = 35 + Me.kdFirmaAbsender.Name = "kdFirmaAbsender" + Me.kdFirmaAbsender.nurAktive = True + Me.kdFirmaAbsender.searchActive = True + Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAbsender.TabIndex = 3 + Me.kdFirmaAbsender.TabStop = False + Me.kdFirmaAbsender.TIMER_SEARCH = True + Me.kdFirmaAbsender.usrcntl = Nothing + ' + 'txtAbsenderName2 + ' + Me.txtAbsenderName2._DateTimeOnly = False + Me.txtAbsenderName2._numbersOnly = False + Me.txtAbsenderName2._numbersOnlyKommastellen = "" + Me.txtAbsenderName2._numbersOnlyTrennzeichen = True + Me.txtAbsenderName2._Prozent = False + Me.txtAbsenderName2._ShortDateNew = False + Me.txtAbsenderName2._ShortDateOnly = False + Me.txtAbsenderName2._TimeOnly = False + Me.txtAbsenderName2._TimeOnly_Seconds = False + Me.txtAbsenderName2._value = Nothing + Me.txtAbsenderName2._Waehrung = False + Me.txtAbsenderName2._WaehrungZeichen = True + Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26) + Me.txtAbsenderName2.MaxLength = 35 + Me.txtAbsenderName2.MaxLineLength = -1 + Me.txtAbsenderName2.MaxLines_Warning = "" + Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing + Me.txtAbsenderName2.Name = "txtAbsenderName2" + Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderName2.TabIndex = 4 + Me.txtAbsenderName2.TabStop = False + ' + 'txtAbsenderOrt + ' + Me.txtAbsenderOrt._DateTimeOnly = False + Me.txtAbsenderOrt._numbersOnly = False + Me.txtAbsenderOrt._numbersOnlyKommastellen = "" + Me.txtAbsenderOrt._numbersOnlyTrennzeichen = True + Me.txtAbsenderOrt._Prozent = False + Me.txtAbsenderOrt._ShortDateNew = False + Me.txtAbsenderOrt._ShortDateOnly = False + Me.txtAbsenderOrt._TimeOnly = False + Me.txtAbsenderOrt._TimeOnly_Seconds = False + Me.txtAbsenderOrt._value = Nothing + Me.txtAbsenderOrt._Waehrung = False + Me.txtAbsenderOrt._WaehrungZeichen = True + Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54) + Me.txtAbsenderOrt.MaxLength = 35 + Me.txtAbsenderOrt.MaxLineLength = -1 + Me.txtAbsenderOrt.MaxLines_Warning = "" + Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing + Me.txtAbsenderOrt.Name = "txtAbsenderOrt" + Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderOrt.TabIndex = 7 + Me.txtAbsenderOrt.TabStop = False + ' + 'txtAbsenderStrasse + ' + Me.txtAbsenderStrasse._DateTimeOnly = False + Me.txtAbsenderStrasse._numbersOnly = False + Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" + Me.txtAbsenderStrasse._numbersOnlyTrennzeichen = True + Me.txtAbsenderStrasse._Prozent = False + Me.txtAbsenderStrasse._ShortDateNew = False + Me.txtAbsenderStrasse._ShortDateOnly = False + Me.txtAbsenderStrasse._TimeOnly = False + Me.txtAbsenderStrasse._TimeOnly_Seconds = False + Me.txtAbsenderStrasse._value = Nothing + Me.txtAbsenderStrasse._Waehrung = False + Me.txtAbsenderStrasse._WaehrungZeichen = True + Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40) + Me.txtAbsenderStrasse.MaxLength = 35 + Me.txtAbsenderStrasse.MaxLineLength = -1 + Me.txtAbsenderStrasse.MaxLines_Warning = "" + Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing + Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" + Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderStrasse.TabIndex = 6 + Me.txtAbsenderStrasse.TabStop = False + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton1.Location = New System.Drawing.Point(382, 0) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(24, 25) + Me.FlatButton1.TabIndex = 2 + Me.FlatButton1.TabStop = False + Me.FlatButton1.UseVisualStyleBackColor = True + ' 'Panel7 ' Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -1479,6 +2816,31 @@ Partial Class usrCntlFaktAbrechnung Me.Label14.Text = "+ Leistung:" Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'sbLeistung + ' + Me.sbLeistung._allowFreitext = False + Me.sbLeistung._AllowSetValue = False + Me.sbLeistung._allowSpaceAsSplitter = False + Me.sbLeistung._autoSizeGross = False + Me.sbLeistung._hideIfListEmpty = True + Me.sbLeistung._value = Nothing + Me.sbLeistung.conn_art = "FMZOLL" + Me.sbLeistung.dgvpos = "LEFT" + Me.sbLeistung.DISPLAY_PARAM = Nothing + Me.sbLeistung.INVISIBLE_COLUMNS = Nothing + Me.sbLeistung.key_visible = False + Me.sbLeistung.KEYPARAM = Nothing + Me.sbLeistung.Location = New System.Drawing.Point(623, 232) + Me.sbLeistung.Name = "sbLeistung" + Me.sbLeistung.searchActive = True + Me.sbLeistung.Size = New System.Drawing.Size(161, 20) + Me.sbLeistung.SQL_ORDER_BY = Nothing + Me.sbLeistung.SQL_SELECT = Nothing + Me.sbLeistung.SQL_WHERE = Nothing + Me.sbLeistung.SQL_WhereParamList = Nothing + Me.sbLeistung.TabIndex = 14 + Me.sbLeistung.usrcntl = Nothing + ' 'Button7 ' Me.Button7.Enabled = False @@ -1521,6 +2883,68 @@ Partial Class usrCntlFaktAbrechnung Me.btnZoll_EUST.Text = "ZOLL / EUST Daten (F3)" Me.btnZoll_EUST.UseVisualStyleBackColor = True ' + 'txtUnterNrRef + ' + Me.txtUnterNrRef._DateTimeOnly = False + Me.txtUnterNrRef._numbersOnly = False + Me.txtUnterNrRef._numbersOnlyKommastellen = "" + Me.txtUnterNrRef._numbersOnlyTrennzeichen = True + Me.txtUnterNrRef._Prozent = False + Me.txtUnterNrRef._ShortDateNew = False + Me.txtUnterNrRef._ShortDateOnly = False + Me.txtUnterNrRef._TimeOnly = False + Me.txtUnterNrRef._TimeOnly_Seconds = False + Me.txtUnterNrRef._value = Nothing + Me.txtUnterNrRef._Waehrung = False + Me.txtUnterNrRef._WaehrungZeichen = True + Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) + Me.txtUnterNrRef.MaxLineLength = -1 + Me.txtUnterNrRef.MaxLines_Warning = "" + Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing + Me.txtUnterNrRef.Name = "txtUnterNrRef" + Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) + Me.txtUnterNrRef.TabIndex = 8 + Me.txtUnterNrRef.Visible = False + ' + 'cboFilialeRef + ' + Me.cboFilialeRef._allowedValuesFreiText = Nothing + Me.cboFilialeRef._allowFreiText = False + Me.cboFilialeRef._value = "" + Me.cboFilialeRef.DropDownWidth = 280 + Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.cboFilialeRef.FormattingEnabled = True + Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) + Me.cboFilialeRef.Name = "cboFilialeRef" + Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) + Me.cboFilialeRef.TabIndex = 6 + Me.cboFilialeRef.Visible = False + ' + 'txtAbfertigungsnummerRef + ' + Me.txtAbfertigungsnummerRef._DateTimeOnly = False + Me.txtAbfertigungsnummerRef._numbersOnly = False + Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerRef._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummerRef._Prozent = False + Me.txtAbfertigungsnummerRef._ShortDateNew = False + Me.txtAbfertigungsnummerRef._ShortDateOnly = False + Me.txtAbfertigungsnummerRef._TimeOnly = False + Me.txtAbfertigungsnummerRef._TimeOnly_Seconds = False + Me.txtAbfertigungsnummerRef._value = Nothing + Me.txtAbfertigungsnummerRef._Waehrung = False + Me.txtAbfertigungsnummerRef._WaehrungZeichen = True + Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) + Me.txtAbfertigungsnummerRef.MaxLineLength = -1 + Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" + Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" + Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummerRef.TabIndex = 7 + Me.txtAbfertigungsnummerRef.Visible = False + ' 'Label26 ' Me.Label26.AutoSize = True @@ -1563,6 +2987,112 @@ Partial Class usrCntlFaktAbrechnung Me.Label30.Text = "Positionen:" Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'dgvRechnungenPositionen + ' + Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvRechnungenPositionen.AllowUserToAddRows = False + Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False + Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False + Me.dgvRechnungenPositionen.AllowUserToResizeRows = False + Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White + 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.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 + Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto}) + DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle32 + Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) + Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" + Me.dgvRechnungenPositionen.ReadOnly = True + 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.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle33 + Me.dgvRechnungenPositionen.RowHeadersVisible = False + Me.dgvRechnungenPositionen.RowHeadersWidth = 62 + Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) + Me.dgvRechnungenPositionen.TabIndex = 5 + Me.dgvRechnungenPositionen.TabStop = False + ' + 'Leistung + ' + Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Leistung.HeaderText = "Leistung" + Me.Leistung.MinimumWidth = 8 + Me.Leistung.Name = "Leistung" + Me.Leistung.ReadOnly = True + ' + 'Anzahl + ' + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle28.Format = "N0" + DataGridViewCellStyle28.NullValue = Nothing + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle28 + Me.Anzahl.HeaderText = "Anzahl" + Me.Anzahl.MinimumWidth = 8 + Me.Anzahl.Name = "Anzahl" + Me.Anzahl.ReadOnly = True + Me.Anzahl.Width = 50 + ' + 'Preis + ' + DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle29.Format = "c2" + Me.Preis.DefaultCellStyle = DataGridViewCellStyle29 + Me.Preis.HeaderText = "Preis" + Me.Preis.MinimumWidth = 8 + Me.Preis.Name = "Preis" + Me.Preis.ReadOnly = True + Me.Preis.Width = 80 + ' + 'SteuerpflichtigerBetrag + ' + DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle30.Format = "c2" + Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle30 + Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." + Me.SteuerpflichtigerBetrag.MinimumWidth = 8 + Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" + Me.SteuerpflichtigerBetrag.ReadOnly = True + Me.SteuerpflichtigerBetrag.Width = 120 + ' + 'SteuerfreierBetrag + ' + DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle31.Format = "C2" + DataGridViewCellStyle31.NullValue = Nothing + Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle31 + Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" + Me.SteuerfreierBetrag.MinimumWidth = 8 + Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" + Me.SteuerfreierBetrag.ReadOnly = True + Me.SteuerfreierBetrag.Width = 120 + ' + 'Aufschubkonto + ' + Me.Aufschubkonto.HeaderText = "Aufschubkonto" + Me.Aufschubkonto.MinimumWidth = 8 + Me.Aufschubkonto.Name = "Aufschubkonto" + Me.Aufschubkonto.ReadOnly = True + Me.Aufschubkonto.Width = 120 + ' 'dgvOffertenSperrliste ' Me.dgvOffertenSperrliste.AllowUserToAddRows = False @@ -1571,46 +3101,120 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOffertenSperrliste.AllowUserToResizeRows = False Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control - 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.WindowText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34 Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle35 Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(11, 29) Me.dgvOffertenSperrliste.MultiSelect = False Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True - 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.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 + 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.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle36 Me.dgvOffertenSperrliste.RowHeadersVisible = False Me.dgvOffertenSperrliste.RowHeadersWidth = 62 - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.Color.PapayaWhip - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle37.SelectionBackColor = System.Drawing.Color.PapayaWhip + DataGridViewCellStyle37.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle37 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201) Me.dgvOffertenSperrliste.TabIndex = 2 Me.dgvOffertenSperrliste.TabStop = False ' + 'dgvOfferteDetailsUebersicht + ' + Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True + Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False + DataGridViewCellStyle38.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle38 + Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White + Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + DataGridViewCellStyle39.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle39.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle39.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle39.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle39.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle39.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle39 + Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle40 + Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) + Me.dgvOfferteDetailsUebersicht.MultiSelect = False + Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" + 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.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle41 + Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False + Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62 + DataGridViewCellStyle42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle42.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle42.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle42 + Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) + Me.dgvOfferteDetailsUebersicht.TabIndex = 3 + ' + 'txtRohmasse + ' + Me.txtRohmasse._DateTimeOnly = False + Me.txtRohmasse._numbersOnly = False + Me.txtRohmasse._numbersOnlyKommastellen = "" + Me.txtRohmasse._numbersOnlyTrennzeichen = True + Me.txtRohmasse._Prozent = False + Me.txtRohmasse._ShortDateNew = False + Me.txtRohmasse._ShortDateOnly = False + Me.txtRohmasse._TimeOnly = False + Me.txtRohmasse._TimeOnly_Seconds = False + Me.txtRohmasse._value = Nothing + Me.txtRohmasse._Waehrung = False + Me.txtRohmasse._WaehrungZeichen = True + Me.txtRohmasse.ForeColor = System.Drawing.Color.Black + Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) + Me.txtRohmasse.MaxLength = 35 + Me.txtRohmasse.MaxLineLength = -1 + Me.txtRohmasse.MaxLines_Warning = "" + Me.txtRohmasse.MaxLines_Warning_Label = Nothing + Me.txtRohmasse.Name = "txtRohmasse" + Me.txtRohmasse.Size = New System.Drawing.Size(305, 20) + Me.txtRohmasse.TabIndex = 24 + Me.txtRohmasse.Visible = False + ' 'Label18 ' Me.Label18.AutoSize = True @@ -1641,6 +3245,29 @@ Partial Class usrCntlFaktAbrechnung Me.lblVK_Zahlungseingang.TabIndex = 26 Me.lblVK_Zahlungseingang.Text = "TEST" ' + 'cboWaehrung + ' + Me.cboWaehrung._allowedValuesFreiText = Nothing + Me.cboWaehrung._allowFreiText = False + Me.cboWaehrung._value = "" + Me.cboWaehrung.FormattingEnabled = True + Me.cboWaehrung.Location = New System.Drawing.Point(517, 177) + Me.cboWaehrung.Name = "cboWaehrung" + Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrung.TabIndex = 14 + ' + 'cboWaehrungUmrechnung + ' + Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing + Me.cboWaehrungUmrechnung._allowFreiText = False + Me.cboWaehrungUmrechnung._value = "" + Me.cboWaehrungUmrechnung.Enabled = False + Me.cboWaehrungUmrechnung.FormattingEnabled = True + Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 196) + Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" + Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrungUmrechnung.TabIndex = 17 + ' 'pnlEmpfaenger ' Me.pnlEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke @@ -1658,6 +3285,34 @@ Partial Class usrCntlFaktAbrechnung Me.pnlEmpfaenger.Size = New System.Drawing.Size(415, 75) Me.pnlEmpfaenger.TabIndex = 6 ' + 'txtkdNrEmpfaenger + ' + Me.txtkdNrEmpfaenger._DateTimeOnly = False + Me.txtkdNrEmpfaenger._numbersOnly = False + Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" + Me.txtkdNrEmpfaenger._numbersOnlyTrennzeichen = True + Me.txtkdNrEmpfaenger._Prozent = False + Me.txtkdNrEmpfaenger._ShortDateNew = False + Me.txtkdNrEmpfaenger._ShortDateOnly = False + Me.txtkdNrEmpfaenger._TimeOnly = False + Me.txtkdNrEmpfaenger._TimeOnly_Seconds = False + Me.txtkdNrEmpfaenger._value = Nothing + Me.txtkdNrEmpfaenger._Waehrung = False + Me.txtkdNrEmpfaenger._WaehrungZeichen = True + Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black + Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26) + Me.txtkdNrEmpfaenger.MaxLength = 35 + Me.txtkdNrEmpfaenger.MaxLineLength = -1 + Me.txtkdNrEmpfaenger.MaxLines_Warning = "" + Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing + Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" + Me.txtkdNrEmpfaenger.ReadOnly = True + Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrEmpfaenger.TabIndex = 1 + Me.txtkdNrEmpfaenger.TabStop = False + ' 'btnEmpfaengerEuro ' Me.btnEmpfaengerEuro.FlatAppearance.BorderSize = 0 @@ -1673,6 +3328,33 @@ Partial Class usrCntlFaktAbrechnung Me.btnEmpfaengerEuro.Text = "€" Me.btnEmpfaengerEuro.UseVisualStyleBackColor = True ' + 'txtEmpfeangerName2 + ' + Me.txtEmpfeangerName2._DateTimeOnly = False + Me.txtEmpfeangerName2._numbersOnly = False + Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" + Me.txtEmpfeangerName2._numbersOnlyTrennzeichen = True + Me.txtEmpfeangerName2._Prozent = False + Me.txtEmpfeangerName2._ShortDateNew = False + Me.txtEmpfeangerName2._ShortDateOnly = False + Me.txtEmpfeangerName2._TimeOnly = False + Me.txtEmpfeangerName2._TimeOnly_Seconds = False + Me.txtEmpfeangerName2._value = Nothing + Me.txtEmpfeangerName2._Waehrung = False + Me.txtEmpfeangerName2._WaehrungZeichen = True + Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black + Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26) + Me.txtEmpfeangerName2.MaxLength = 35 + Me.txtEmpfeangerName2.MaxLineLength = -1 + Me.txtEmpfeangerName2.MaxLines_Warning = "" + Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing + Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" + Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfeangerName2.TabIndex = 4 + Me.txtEmpfeangerName2.TabStop = False + ' 'Label5 ' Me.Label5.AutoSize = True @@ -1683,6 +3365,105 @@ Partial Class usrCntlFaktAbrechnung Me.Label5.TabIndex = 0 Me.Label5.Text = "2. Empfänger:" ' + 'txtEmpfaengerOrt + ' + Me.txtEmpfaengerOrt._DateTimeOnly = False + Me.txtEmpfaengerOrt._numbersOnly = False + Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" + Me.txtEmpfaengerOrt._numbersOnlyTrennzeichen = True + Me.txtEmpfaengerOrt._Prozent = False + Me.txtEmpfaengerOrt._ShortDateNew = False + Me.txtEmpfaengerOrt._ShortDateOnly = False + Me.txtEmpfaengerOrt._TimeOnly = False + Me.txtEmpfaengerOrt._TimeOnly_Seconds = False + Me.txtEmpfaengerOrt._value = Nothing + Me.txtEmpfaengerOrt._Waehrung = False + Me.txtEmpfaengerOrt._WaehrungZeichen = True + Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54) + Me.txtEmpfaengerOrt.MaxLength = 35 + Me.txtEmpfaengerOrt.MaxLineLength = -1 + Me.txtEmpfaengerOrt.MaxLines_Warning = "" + Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" + Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfaengerOrt.TabIndex = 7 + Me.txtEmpfaengerOrt.TabStop = False + ' + 'txtEmpfaengerStrasse + ' + Me.txtEmpfaengerStrasse._DateTimeOnly = False + Me.txtEmpfaengerStrasse._numbersOnly = False + Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" + Me.txtEmpfaengerStrasse._numbersOnlyTrennzeichen = True + Me.txtEmpfaengerStrasse._Prozent = False + Me.txtEmpfaengerStrasse._ShortDateNew = False + Me.txtEmpfaengerStrasse._ShortDateOnly = False + Me.txtEmpfaengerStrasse._TimeOnly = False + Me.txtEmpfaengerStrasse._TimeOnly_Seconds = False + Me.txtEmpfaengerStrasse._value = Nothing + Me.txtEmpfaengerStrasse._Waehrung = False + Me.txtEmpfaengerStrasse._WaehrungZeichen = True + Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40) + Me.txtEmpfaengerStrasse.MaxLength = 35 + Me.txtEmpfaengerStrasse.MaxLineLength = -1 + Me.txtEmpfaengerStrasse.MaxLines_Warning = "" + Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" + Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfaengerStrasse.TabIndex = 6 + Me.txtEmpfaengerStrasse.TabStop = False + ' + 'kdFirmaEmpfaenger + ' + Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False + Me.kdFirmaEmpfaenger._AllowSetValue = True + Me.kdFirmaEmpfaenger._autoSizeGross = False + Me.kdFirmaEmpfaenger._display_Name1 = True + Me.kdFirmaEmpfaenger._displayAVISO_Email = False + Me.kdFirmaEmpfaenger._displayFullName = False + Me.kdFirmaEmpfaenger._displayWoelflKd = False + Me.kdFirmaEmpfaenger._hideIfListEmpty = True + Me.kdFirmaEmpfaenger._loadKdData = True + Me.kdFirmaEmpfaenger._searchName1 = True + Me.kdFirmaEmpfaenger._UseFIRMA = "" + Me.kdFirmaEmpfaenger._ValueKdAndName = False + Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White + Me.kdFirmaEmpfaenger.dgvpos = "LEFT" + Me.kdFirmaEmpfaenger.KdName = Nothing + Me.kdFirmaEmpfaenger.KdNr = "-1" + Me.kdFirmaEmpfaenger.kdNrField = Nothing + Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing + Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaEmpfaenger.MaxLength = 35 + Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" + Me.kdFirmaEmpfaenger.nurAktive = True + Me.kdFirmaEmpfaenger.searchActive = True + Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaEmpfaenger.TabIndex = 3 + Me.kdFirmaEmpfaenger.TabStop = False + Me.kdFirmaEmpfaenger.TIMER_SEARCH = True + Me.kdFirmaEmpfaenger.usrcntl = Nothing + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton2.Location = New System.Drawing.Point(382, 0) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(24, 25) + Me.FlatButton2.TabIndex = 2 + Me.FlatButton2.TabStop = False + Me.FlatButton2.UseVisualStyleBackColor = True + ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.Gainsboro @@ -1778,6 +3559,30 @@ Partial Class usrCntlFaktAbrechnung Me.Label55.Text = "Steuerfreier Betrag:" Me.Label55.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboSteuerschlüssel + ' + Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing + Me.cboSteuerschlüssel._allowFreiText = False + Me.cboSteuerschlüssel._value = "" + Me.cboSteuerschlüssel.CausesValidation = False + Me.cboSteuerschlüssel.DropDownWidth = 350 + Me.cboSteuerschlüssel.FormattingEnabled = True + Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) + Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" + Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) + Me.cboSteuerschlüssel.TabIndex = 3 + ' + 'rtbAbf_Besonderheiten + ' + Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White + Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) + Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" + Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) + Me.rtbAbf_Besonderheiten.TabIndex = 235 + Me.rtbAbf_Besonderheiten.Visible = False + ' 'cbxOriginalPrint ' Me.cbxOriginalPrint.AutoSize = True @@ -1908,6 +3713,59 @@ Partial Class usrCntlFaktAbrechnung Me.Label23.TabIndex = 2 Me.Label23.Text = "Steuer:" ' + 'txtSteuersatz + ' + Me.txtSteuersatz._DateTimeOnly = False + Me.txtSteuersatz._numbersOnly = False + Me.txtSteuersatz._numbersOnlyKommastellen = "" + Me.txtSteuersatz._numbersOnlyTrennzeichen = True + Me.txtSteuersatz._Prozent = True + Me.txtSteuersatz._ShortDateNew = False + Me.txtSteuersatz._ShortDateOnly = False + Me.txtSteuersatz._TimeOnly = False + Me.txtSteuersatz._TimeOnly_Seconds = False + Me.txtSteuersatz._value = Nothing + Me.txtSteuersatz._Waehrung = False + Me.txtSteuersatz._WaehrungZeichen = True + Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black + Me.txtSteuersatz.Location = New System.Drawing.Point(603, 30) + Me.txtSteuersatz.MaxLineLength = -1 + Me.txtSteuersatz.MaxLines_Warning = "" + Me.txtSteuersatz.MaxLines_Warning_Label = Nothing + Me.txtSteuersatz.Multiline = True + Me.txtSteuersatz.Name = "txtSteuersatz" + Me.txtSteuersatz.ReadOnly = True + Me.txtSteuersatz.Size = New System.Drawing.Size(61, 21) + Me.txtSteuersatz.TabIndex = 4 + Me.txtSteuersatz.Text = "0,00 %" + Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerFreierBetrag + ' + Me.txtSteuerFreierBetrag._DateTimeOnly = False + Me.txtSteuerFreierBetrag._numbersOnly = False + Me.txtSteuerFreierBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerFreierBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerFreierBetrag._Prozent = False + Me.txtSteuerFreierBetrag._ShortDateNew = False + Me.txtSteuerFreierBetrag._ShortDateOnly = False + Me.txtSteuerFreierBetrag._TimeOnly = False + Me.txtSteuerFreierBetrag._TimeOnly_Seconds = False + Me.txtSteuerFreierBetrag._value = "" + Me.txtSteuerFreierBetrag._Waehrung = True + Me.txtSteuerFreierBetrag._WaehrungZeichen = False + Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) + Me.txtSteuerFreierBetrag.MaxLength = 35 + Me.txtSteuerFreierBetrag.MaxLineLength = -1 + Me.txtSteuerFreierBetrag.MaxLines_Warning = "" + Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" + Me.txtSteuerFreierBetrag.ReadOnly = True + Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerFreierBetrag.TabIndex = 10 + Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label37 ' Me.Label37.AutoSize = True @@ -1928,6 +3786,84 @@ Partial Class usrCntlFaktAbrechnung Me.lblEUR_3.Text = "EUR" Me.lblEUR_3.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtGesamtsumme + ' + Me.txtGesamtsumme._DateTimeOnly = False + Me.txtGesamtsumme._numbersOnly = False + Me.txtGesamtsumme._numbersOnlyKommastellen = "" + Me.txtGesamtsumme._numbersOnlyTrennzeichen = True + Me.txtGesamtsumme._Prozent = False + Me.txtGesamtsumme._ShortDateNew = False + Me.txtGesamtsumme._ShortDateOnly = False + Me.txtGesamtsumme._TimeOnly = False + Me.txtGesamtsumme._TimeOnly_Seconds = False + Me.txtGesamtsumme._value = "" + Me.txtGesamtsumme._Waehrung = True + Me.txtGesamtsumme._WaehrungZeichen = False + Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black + Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) + Me.txtGesamtsumme.MaxLength = 35 + Me.txtGesamtsumme.MaxLineLength = -1 + Me.txtGesamtsumme.MaxLines_Warning = "" + Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing + Me.txtGesamtsumme.Name = "txtGesamtsumme" + Me.txtGesamtsumme.ReadOnly = True + Me.txtGesamtsumme.Size = New System.Drawing.Size(98, 20) + Me.txtGesamtsumme.TabIndex = 12 + Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerBetrag + ' + Me.txtSteuerBetrag._DateTimeOnly = False + Me.txtSteuerBetrag._numbersOnly = False + Me.txtSteuerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerBetrag._Prozent = False + Me.txtSteuerBetrag._ShortDateNew = False + Me.txtSteuerBetrag._ShortDateOnly = False + Me.txtSteuerBetrag._TimeOnly = False + Me.txtSteuerBetrag._TimeOnly_Seconds = False + Me.txtSteuerBetrag._value = "" + Me.txtSteuerBetrag._Waehrung = True + Me.txtSteuerBetrag._WaehrungZeichen = False + Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) + Me.txtSteuerBetrag.MaxLength = 35 + Me.txtSteuerBetrag.MaxLineLength = -1 + Me.txtSteuerBetrag.MaxLines_Warning = "" + Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerBetrag.Name = "txtSteuerBetrag" + Me.txtSteuerBetrag.ReadOnly = True + Me.txtSteuerBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerBetrag.TabIndex = 8 + Me.txtSteuerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerpflichtigerBetrag + ' + Me.txtSteuerpflichtigerBetrag._DateTimeOnly = False + Me.txtSteuerpflichtigerBetrag._numbersOnly = False + Me.txtSteuerpflichtigerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerpflichtigerBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerpflichtigerBetrag._Prozent = False + Me.txtSteuerpflichtigerBetrag._ShortDateNew = False + Me.txtSteuerpflichtigerBetrag._ShortDateOnly = False + Me.txtSteuerpflichtigerBetrag._TimeOnly = False + Me.txtSteuerpflichtigerBetrag._TimeOnly_Seconds = False + Me.txtSteuerpflichtigerBetrag._value = "" + Me.txtSteuerpflichtigerBetrag._Waehrung = True + Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = False + Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) + Me.txtSteuerpflichtigerBetrag.MaxLength = 35 + Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 + Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" + Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" + Me.txtSteuerpflichtigerBetrag.ReadOnly = True + Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerpflichtigerBetrag.TabIndex = 6 + Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label33 ' Me.Label33.AutoSize = True @@ -1959,6 +3895,17 @@ Partial Class usrCntlFaktAbrechnung Me.Label28.Text = "Besonderheiten für Verrechung:" Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'txtBesonderheiten + ' + Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) + Me.txtBesonderheiten.MaxLineLength = -1 + Me.txtBesonderheiten.MaxLines_Warning = "" + Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing + Me.txtBesonderheiten.Name = "txtBesonderheiten" + Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) + Me.txtBesonderheiten.TabIndex = 1 + Me.txtBesonderheiten.Text = "" + ' 'pnlDocs ' Me.pnlDocs.Controls.Add(Me.PictureBox1) @@ -2110,1953 +4057,6 @@ Partial Class usrCntlFaktAbrechnung Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22) Me.VeragCSToolStripMenuItem.Text = "Verag CS" ' - 'txtTextZZ - ' - Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) - Me.txtTextZZ.MaxLineLength = -1 - Me.txtTextZZ.MaxLines_Warning = "" - Me.txtTextZZ.MaxLines_Warning_Label = Nothing - Me.txtTextZZ.Name = "txtTextZZ" - Me.txtTextZZ.ReadOnly = True - Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) - Me.txtTextZZ.TabIndex = 91 - Me.txtTextZZ.Text = "" - ' - 'dgvAnhaenge - ' - Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAnhaenge.AllowUserToAddRows = False - Me.dgvAnhaenge.AllowUserToDeleteRows = False - Me.dgvAnhaenge.AllowUserToResizeColumns = False - Me.dgvAnhaenge.AllowUserToResizeRows = False - Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId}) - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window - 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.ControlText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4 - Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911) - Me.dgvAnhaenge.MultiSelect = False - Me.dgvAnhaenge.Name = "dgvAnhaenge" - Me.dgvAnhaenge.ReadOnly = True - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control - 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.WindowText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5 - Me.dgvAnhaenge.RowHeadersVisible = False - Me.dgvAnhaenge.RowHeadersWidth = 62 - Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219) - Me.dgvAnhaenge.TabIndex = 90 - Me.dgvAnhaenge.TabStop = False - ' - 'optAnhSel - ' - Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None - Me.optAnhSel.FillWeight = 78.74017! - Me.optAnhSel.HeaderText = "" - Me.optAnhSel.MinimumWidth = 8 - Me.optAnhSel.Name = "optAnhSel" - Me.optAnhSel.ReadOnly = True - Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.optAnhSel.Width = 35 - ' - 'DataGridViewTextBoxColumn2 - ' - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle2.Format = "N0" - DataGridViewCellStyle2.NullValue = Nothing - Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2 - Me.DataGridViewTextBoxColumn2.HeaderText = "Art" - Me.DataGridViewTextBoxColumn2.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" - Me.DataGridViewTextBoxColumn2.ReadOnly = True - Me.DataGridViewTextBoxColumn2.Width = 70 - ' - 'clmnBezeichnung - ' - Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.Format = "c2" - Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3 - Me.clmnBezeichnung.FillWeight = 121.2598! - Me.clmnBezeichnung.HeaderText = "Bezeichnung" - Me.clmnBezeichnung.MinimumWidth = 8 - Me.clmnBezeichnung.Name = "clmnBezeichnung" - Me.clmnBezeichnung.ReadOnly = True - ' - 'clmnDsId - ' - Me.clmnDsId.HeaderText = "clmnDsId" - Me.clmnDsId.MinimumWidth = 8 - Me.clmnDsId.Name = "clmnDsId" - Me.clmnDsId.ReadOnly = True - Me.clmnDsId.Visible = False - Me.clmnDsId.Width = 150 - ' - 'clmnAnhId - ' - Me.clmnAnhId.HeaderText = "clmnAnhId" - Me.clmnAnhId.MinimumWidth = 8 - Me.clmnAnhId.Name = "clmnAnhId" - Me.clmnAnhId.ReadOnly = True - Me.clmnAnhId.Visible = False - Me.clmnAnhId.Width = 150 - ' - 'cboRechnungSprache - ' - Me.cboRechnungSprache._allowedValuesFreiText = Nothing - Me.cboRechnungSprache._allowFreiText = False - Me.cboRechnungSprache._value = "" - Me.cboRechnungSprache.FormattingEnabled = True - Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) - Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) - Me.cboRechnungSprache.Name = "cboRechnungSprache" - Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) - Me.cboRechnungSprache.TabIndex = 45 - Me.cboRechnungSprache.TabStop = False - ' - 'rtbHandling - ' - Me.rtbHandling.Location = New System.Drawing.Point(280, 911) - Me.rtbHandling.MaxLineLength = -1 - Me.rtbHandling.MaxLines_Warning = "" - Me.rtbHandling.MaxLines_Warning_Label = Nothing - Me.rtbHandling.Name = "rtbHandling" - Me.rtbHandling.Size = New System.Drawing.Size(207, 121) - Me.rtbHandling.TabIndex = 44 - Me.rtbHandling.Text = "" - ' - 'txtPositionAnzahl - ' - Me.txtPositionAnzahl._DateTimeOnly = False - Me.txtPositionAnzahl._numbersOnly = False - Me.txtPositionAnzahl._numbersOnlyKommastellen = "" - Me.txtPositionAnzahl._numbersOnlyTrennzeichen = True - Me.txtPositionAnzahl._Prozent = False - Me.txtPositionAnzahl._ShortDateNew = False - Me.txtPositionAnzahl._ShortDateOnly = False - Me.txtPositionAnzahl._TimeOnly = False - Me.txtPositionAnzahl._TimeOnly_Seconds = False - Me.txtPositionAnzahl._value = Nothing - Me.txtPositionAnzahl._Waehrung = False - Me.txtPositionAnzahl._WaehrungZeichen = True - Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) - Me.txtPositionAnzahl.MaxLength = 35 - Me.txtPositionAnzahl.MaxLineLength = -1 - Me.txtPositionAnzahl.MaxLines_Warning = "" - Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing - Me.txtPositionAnzahl.Name = "txtPositionAnzahl" - Me.txtPositionAnzahl.ReadOnly = True - Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) - Me.txtPositionAnzahl.TabIndex = 46 - ' - 'txtAbfertigungsanzahl - ' - Me.txtAbfertigungsanzahl._DateTimeOnly = False - Me.txtAbfertigungsanzahl._numbersOnly = False - Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" - Me.txtAbfertigungsanzahl._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsanzahl._Prozent = False - Me.txtAbfertigungsanzahl._ShortDateNew = False - Me.txtAbfertigungsanzahl._ShortDateOnly = False - Me.txtAbfertigungsanzahl._TimeOnly = False - Me.txtAbfertigungsanzahl._TimeOnly_Seconds = False - Me.txtAbfertigungsanzahl._value = Nothing - Me.txtAbfertigungsanzahl._Waehrung = False - Me.txtAbfertigungsanzahl._WaehrungZeichen = True - Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) - Me.txtAbfertigungsanzahl.MaxLength = 35 - Me.txtAbfertigungsanzahl.MaxLineLength = -1 - Me.txtAbfertigungsanzahl.MaxLines_Warning = "" - Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" - Me.txtAbfertigungsanzahl.ReadOnly = True - Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) - Me.txtAbfertigungsanzahl.TabIndex = 44 - ' - 'txtAbfertigungsart - ' - Me.txtAbfertigungsart._DateTimeOnly = False - Me.txtAbfertigungsart._numbersOnly = False - Me.txtAbfertigungsart._numbersOnlyKommastellen = "" - Me.txtAbfertigungsart._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsart._Prozent = False - Me.txtAbfertigungsart._ShortDateNew = False - Me.txtAbfertigungsart._ShortDateOnly = False - Me.txtAbfertigungsart._TimeOnly = False - Me.txtAbfertigungsart._TimeOnly_Seconds = False - Me.txtAbfertigungsart._value = Nothing - Me.txtAbfertigungsart._Waehrung = False - Me.txtAbfertigungsart._WaehrungZeichen = True - Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) - Me.txtAbfertigungsart.MaxLength = 35 - Me.txtAbfertigungsart.MaxLineLength = -1 - Me.txtAbfertigungsart.MaxLines_Warning = "" - Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsart.Name = "txtAbfertigungsart" - Me.txtAbfertigungsart.ReadOnly = True - Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) - Me.txtAbfertigungsart.TabIndex = 42 - ' - 'txtkdNrAvisierer - ' - Me.txtkdNrAvisierer._DateTimeOnly = False - Me.txtkdNrAvisierer._numbersOnly = False - Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" - Me.txtkdNrAvisierer._numbersOnlyTrennzeichen = True - Me.txtkdNrAvisierer._Prozent = False - Me.txtkdNrAvisierer._ShortDateNew = False - Me.txtkdNrAvisierer._ShortDateOnly = False - Me.txtkdNrAvisierer._TimeOnly = False - Me.txtkdNrAvisierer._TimeOnly_Seconds = False - Me.txtkdNrAvisierer._value = Nothing - Me.txtkdNrAvisierer._Waehrung = False - Me.txtkdNrAvisierer._WaehrungZeichen = True - Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22) - Me.txtkdNrAvisierer.MaxLength = 35 - Me.txtkdNrAvisierer.MaxLineLength = -1 - Me.txtkdNrAvisierer.MaxLines_Warning = "" - Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing - Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" - Me.txtkdNrAvisierer.ReadOnly = True - Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAvisierer.TabIndex = 1 - Me.txtkdNrAvisierer.TabStop = False - ' - 'txtAvisoId - ' - Me.txtAvisoId._DateTimeOnly = False - Me.txtAvisoId._numbersOnly = False - Me.txtAvisoId._numbersOnlyKommastellen = "" - Me.txtAvisoId._numbersOnlyTrennzeichen = True - Me.txtAvisoId._Prozent = False - Me.txtAvisoId._ShortDateNew = False - Me.txtAvisoId._ShortDateOnly = False - Me.txtAvisoId._TimeOnly = False - Me.txtAvisoId._TimeOnly_Seconds = False - Me.txtAvisoId._value = Nothing - Me.txtAvisoId._Waehrung = False - Me.txtAvisoId._WaehrungZeichen = True - Me.txtAvisoId.ForeColor = System.Drawing.Color.Black - Me.txtAvisoId.Location = New System.Drawing.Point(157, 32) - Me.txtAvisoId.MaxLength = 35 - Me.txtAvisoId.MaxLineLength = -1 - Me.txtAvisoId.MaxLines_Warning = "" - Me.txtAvisoId.MaxLines_Warning_Label = Nothing - Me.txtAvisoId.Name = "txtAvisoId" - Me.txtAvisoId.ReadOnly = True - Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) - Me.txtAvisoId.TabIndex = 6 - Me.txtAvisoId.TabStop = False - Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'kdFirmaAvisierer - ' - Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False - Me.kdFirmaAvisierer._AllowSetValue = True - Me.kdFirmaAvisierer._autoSizeGross = False - Me.kdFirmaAvisierer._display_Name1 = True - Me.kdFirmaAvisierer._displayAVISO_Email = False - Me.kdFirmaAvisierer._displayFullName = False - Me.kdFirmaAvisierer._displayWoelflKd = False - Me.kdFirmaAvisierer._hideIfListEmpty = True - Me.kdFirmaAvisierer._loadKdData = True - Me.kdFirmaAvisierer._searchName1 = True - Me.kdFirmaAvisierer._UseFIRMA = "" - Me.kdFirmaAvisierer._ValueKdAndName = False - Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White - Me.kdFirmaAvisierer.dgvpos = "LEFT" - Me.kdFirmaAvisierer.KdName = Nothing - Me.kdFirmaAvisierer.KdNr = "-1" - Me.kdFirmaAvisierer.kdNrField = Nothing - Me.kdFirmaAvisierer.KdNrNullInt = Nothing - Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2) - Me.kdFirmaAvisierer.MaxLength = 35 - Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" - Me.kdFirmaAvisierer.nurAktive = True - Me.kdFirmaAvisierer.searchActive = True - Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAvisierer.TabIndex = 3 - Me.kdFirmaAvisierer.TabStop = False - Me.kdFirmaAvisierer.TIMER_SEARCH = True - Me.kdFirmaAvisierer.usrcntl = Nothing - ' - 'FlatButton5 - ' - Me.FlatButton5.allowBorder = False - Me.FlatButton5.FlatAppearance.BorderSize = 0 - Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton5.ForeColor = System.Drawing.Color.Black - Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton5.Location = New System.Drawing.Point(382, -1) - Me.FlatButton5.Name = "FlatButton5" - Me.FlatButton5.Size = New System.Drawing.Size(24, 25) - Me.FlatButton5.TabIndex = 2 - Me.FlatButton5.TabStop = False - Me.FlatButton5.UseVisualStyleBackColor = True - ' - 'cboAnlage5 - ' - Me.cboAnlage5._allowedValuesFreiText = Nothing - Me.cboAnlage5._allowFreiText = True - Me.cboAnlage5._value = "" - Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage5.FormattingEnabled = True - Me.cboAnlage5.Location = New System.Drawing.Point(10, 991) - Me.cboAnlage5.MaxLength = 35 - Me.cboAnlage5.Name = "cboAnlage5" - Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage5.TabIndex = 32 - ' - 'cboAnlage1 - ' - Me.cboAnlage1._allowedValuesFreiText = Nothing - Me.cboAnlage1._allowFreiText = True - Me.cboAnlage1._value = "" - Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage1.FormattingEnabled = True - Me.cboAnlage1.Location = New System.Drawing.Point(10, 911) - Me.cboAnlage1.MaxLength = 35 - Me.cboAnlage1.Name = "cboAnlage1" - Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage1.TabIndex = 28 - ' - 'txtWarenwertUmrechnung - ' - Me.txtWarenwertUmrechnung._DateTimeOnly = False - Me.txtWarenwertUmrechnung._numbersOnly = False - Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" - Me.txtWarenwertUmrechnung._numbersOnlyTrennzeichen = True - Me.txtWarenwertUmrechnung._Prozent = False - Me.txtWarenwertUmrechnung._ShortDateNew = False - Me.txtWarenwertUmrechnung._ShortDateOnly = False - Me.txtWarenwertUmrechnung._TimeOnly = False - Me.txtWarenwertUmrechnung._TimeOnly_Seconds = False - Me.txtWarenwertUmrechnung._value = "" - Me.txtWarenwertUmrechnung._Waehrung = True - Me.txtWarenwertUmrechnung._WaehrungZeichen = False - Me.txtWarenwertUmrechnung.Enabled = False - Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black - Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 197) - Me.txtWarenwertUmrechnung.MaxLength = 35 - Me.txtWarenwertUmrechnung.MaxLineLength = -1 - Me.txtWarenwertUmrechnung.MaxLines_Warning = "" - Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing - Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" - Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) - Me.txtWarenwertUmrechnung.TabIndex = 18 - Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'cboAnlage2 - ' - Me.cboAnlage2._allowedValuesFreiText = Nothing - Me.cboAnlage2._allowFreiText = True - Me.cboAnlage2._value = "" - Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage2.FormattingEnabled = True - Me.cboAnlage2.Location = New System.Drawing.Point(10, 931) - Me.cboAnlage2.MaxLength = 35 - Me.cboAnlage2.Name = "cboAnlage2" - Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage2.TabIndex = 29 - ' - 'cboAnlage3 - ' - Me.cboAnlage3._allowedValuesFreiText = Nothing - Me.cboAnlage3._allowFreiText = True - Me.cboAnlage3._value = "" - Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage3.FormattingEnabled = True - Me.cboAnlage3.Location = New System.Drawing.Point(10, 951) - Me.cboAnlage3.MaxLength = 35 - Me.cboAnlage3.Name = "cboAnlage3" - Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage3.TabIndex = 30 - ' - 'txtVermerk - ' - Me.txtVermerk._DateTimeOnly = False - Me.txtVermerk._numbersOnly = False - Me.txtVermerk._numbersOnlyKommastellen = "" - Me.txtVermerk._numbersOnlyTrennzeichen = True - Me.txtVermerk._Prozent = False - Me.txtVermerk._ShortDateNew = False - Me.txtVermerk._ShortDateOnly = False - Me.txtVermerk._TimeOnly = False - Me.txtVermerk._TimeOnly_Seconds = False - Me.txtVermerk._value = Nothing - Me.txtVermerk._Waehrung = False - Me.txtVermerk._WaehrungZeichen = True - Me.txtVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVermerk.Location = New System.Drawing.Point(517, 341) - Me.txtVermerk.MaxLength = 35 - Me.txtVermerk.MaxLineLength = -1 - Me.txtVermerk.MaxLines_Warning = "" - Me.txtVermerk.MaxLines_Warning_Label = Nothing - Me.txtVermerk.Name = "txtVermerk" - Me.txtVermerk.Size = New System.Drawing.Size(305, 20) - Me.txtVermerk.TabIndex = 25 - ' - 'cboAnlage6 - ' - Me.cboAnlage6._allowedValuesFreiText = Nothing - Me.cboAnlage6._allowFreiText = True - Me.cboAnlage6._value = "" - Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage6.FormattingEnabled = True - Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011) - Me.cboAnlage6.MaxLength = 35 - Me.cboAnlage6.Name = "cboAnlage6" - Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage6.TabIndex = 33 - ' - 'cboAnlage4 - ' - Me.cboAnlage4._allowedValuesFreiText = Nothing - Me.cboAnlage4._allowFreiText = True - Me.cboAnlage4._value = "" - Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage4.FormattingEnabled = True - Me.cboAnlage4.Location = New System.Drawing.Point(10, 971) - Me.cboAnlage4.MaxLength = 35 - Me.cboAnlage4.Name = "cboAnlage4" - Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage4.TabIndex = 31 - ' - 'txtErfassungsnummer - ' - Me.txtErfassungsnummer._DateTimeOnly = False - Me.txtErfassungsnummer._numbersOnly = False - Me.txtErfassungsnummer._numbersOnlyKommastellen = "" - Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True - Me.txtErfassungsnummer._Prozent = False - Me.txtErfassungsnummer._ShortDateNew = False - Me.txtErfassungsnummer._ShortDateOnly = False - Me.txtErfassungsnummer._TimeOnly = False - Me.txtErfassungsnummer._TimeOnly_Seconds = False - Me.txtErfassungsnummer._value = Nothing - Me.txtErfassungsnummer._Waehrung = False - Me.txtErfassungsnummer._WaehrungZeichen = True - Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 242) - Me.txtErfassungsnummer.MaxLength = 35 - Me.txtErfassungsnummer.MaxLineLength = -1 - Me.txtErfassungsnummer.MaxLines_Warning = "" - Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing - Me.txtErfassungsnummer.Name = "txtErfassungsnummer" - Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) - Me.txtErfassungsnummer.TabIndex = 11 - ' - 'cboRechnungNotiz - ' - Me.cboRechnungNotiz._allowedValuesFreiText = Nothing - Me.cboRechnungNotiz._allowFreiText = True - Me.cboRechnungNotiz._value = "" - Me.cboRechnungNotiz.FormattingEnabled = True - Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039) - Me.cboRechnungNotiz.Name = "cboRechnungNotiz" - Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21) - Me.cboRechnungNotiz.TabIndex = 36 - ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(592, 51) - Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(229, 21) - Me.cboFirma.TabIndex = 1 - Me.cboFirma.TabStop = False - ' - 'txtkdNrAuftraggeber - ' - Me.txtkdNrAuftraggeber._DateTimeOnly = False - Me.txtkdNrAuftraggeber._numbersOnly = False - Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" - Me.txtkdNrAuftraggeber._numbersOnlyTrennzeichen = True - Me.txtkdNrAuftraggeber._Prozent = False - Me.txtkdNrAuftraggeber._ShortDateNew = False - Me.txtkdNrAuftraggeber._ShortDateOnly = False - Me.txtkdNrAuftraggeber._TimeOnly = False - Me.txtkdNrAuftraggeber._TimeOnly_Seconds = False - Me.txtkdNrAuftraggeber._value = Nothing - Me.txtkdNrAuftraggeber._Waehrung = False - Me.txtkdNrAuftraggeber._WaehrungZeichen = True - Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25) - Me.txtkdNrAuftraggeber.MaxLength = 35 - Me.txtkdNrAuftraggeber.MaxLineLength = -1 - Me.txtkdNrAuftraggeber.MaxLines_Warning = "" - Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing - Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" - Me.txtkdNrAuftraggeber.ReadOnly = True - Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAuftraggeber.TabIndex = 1 - Me.txtkdNrAuftraggeber.TabStop = False - ' - 'kdFirmaAuftraggeber - ' - Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False - Me.kdFirmaAuftraggeber._AllowSetValue = True - Me.kdFirmaAuftraggeber._autoSizeGross = False - Me.kdFirmaAuftraggeber._display_Name1 = True - Me.kdFirmaAuftraggeber._displayAVISO_Email = False - Me.kdFirmaAuftraggeber._displayFullName = False - Me.kdFirmaAuftraggeber._displayWoelflKd = False - Me.kdFirmaAuftraggeber._hideIfListEmpty = True - Me.kdFirmaAuftraggeber._loadKdData = True - Me.kdFirmaAuftraggeber._searchName1 = True - Me.kdFirmaAuftraggeber._UseFIRMA = "" - Me.kdFirmaAuftraggeber._ValueKdAndName = False - Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White - Me.kdFirmaAuftraggeber.dgvpos = "LEFT" - Me.kdFirmaAuftraggeber.KdName = Nothing - Me.kdFirmaAuftraggeber.KdNr = "-1" - Me.kdFirmaAuftraggeber.kdNrField = Nothing - Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing - Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaAuftraggeber.MaxLength = 35 - Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" - Me.kdFirmaAuftraggeber.nurAktive = True - Me.kdFirmaAuftraggeber.searchActive = True - Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAuftraggeber.TabIndex = 3 - Me.kdFirmaAuftraggeber.TabStop = False - Me.kdFirmaAuftraggeber.TIMER_SEARCH = True - Me.kdFirmaAuftraggeber.usrcntl = Nothing - ' - 'txtAuftraggeberName2 - ' - Me.txtAuftraggeberName2._DateTimeOnly = False - Me.txtAuftraggeberName2._numbersOnly = False - Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" - Me.txtAuftraggeberName2._numbersOnlyTrennzeichen = True - Me.txtAuftraggeberName2._Prozent = False - Me.txtAuftraggeberName2._ShortDateNew = False - Me.txtAuftraggeberName2._ShortDateOnly = False - Me.txtAuftraggeberName2._TimeOnly = False - Me.txtAuftraggeberName2._TimeOnly_Seconds = False - Me.txtAuftraggeberName2._value = Nothing - Me.txtAuftraggeberName2._Waehrung = False - Me.txtAuftraggeberName2._WaehrungZeichen = True - Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black - Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25) - Me.txtAuftraggeberName2.MaxLength = 35 - Me.txtAuftraggeberName2.MaxLineLength = -1 - Me.txtAuftraggeberName2.MaxLines_Warning = "" - Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing - Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" - Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13) - Me.txtAuftraggeberName2.TabIndex = 4 - Me.txtAuftraggeberName2.TabStop = False - ' - 'txtAuftragggeberOrt - ' - Me.txtAuftragggeberOrt._DateTimeOnly = False - Me.txtAuftragggeberOrt._numbersOnly = False - Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" - Me.txtAuftragggeberOrt._numbersOnlyTrennzeichen = True - Me.txtAuftragggeberOrt._Prozent = False - Me.txtAuftragggeberOrt._ShortDateNew = False - Me.txtAuftragggeberOrt._ShortDateOnly = False - Me.txtAuftragggeberOrt._TimeOnly = False - Me.txtAuftragggeberOrt._TimeOnly_Seconds = False - Me.txtAuftragggeberOrt._value = Nothing - Me.txtAuftragggeberOrt._Waehrung = False - Me.txtAuftragggeberOrt._WaehrungZeichen = True - Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53) - Me.txtAuftragggeberOrt.MaxLength = 35 - Me.txtAuftragggeberOrt.MaxLineLength = -1 - Me.txtAuftragggeberOrt.MaxLines_Warning = "" - Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" - Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13) - Me.txtAuftragggeberOrt.TabIndex = 7 - Me.txtAuftragggeberOrt.TabStop = False - ' - 'txtAuftragggeberStrasse - ' - Me.txtAuftragggeberStrasse._DateTimeOnly = False - Me.txtAuftragggeberStrasse._numbersOnly = False - Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" - Me.txtAuftragggeberStrasse._numbersOnlyTrennzeichen = True - Me.txtAuftragggeberStrasse._Prozent = False - Me.txtAuftragggeberStrasse._ShortDateNew = False - Me.txtAuftragggeberStrasse._ShortDateOnly = False - Me.txtAuftragggeberStrasse._TimeOnly = False - Me.txtAuftragggeberStrasse._TimeOnly_Seconds = False - Me.txtAuftragggeberStrasse._value = Nothing - Me.txtAuftragggeberStrasse._Waehrung = False - Me.txtAuftragggeberStrasse._WaehrungZeichen = True - Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39) - Me.txtAuftragggeberStrasse.MaxLength = 35 - Me.txtAuftragggeberStrasse.MaxLineLength = -1 - Me.txtAuftragggeberStrasse.MaxLines_Warning = "" - Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" - Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtAuftragggeberStrasse.TabIndex = 6 - Me.txtAuftragggeberStrasse.TabStop = False - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton4.Location = New System.Drawing.Point(382, 0) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(24, 25) - Me.FlatButton4.TabIndex = 2 - Me.FlatButton4.TabStop = False - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'txtText - ' - Me.txtText.Location = New System.Drawing.Point(64, 1083) - Me.txtText.MaxLineLength = -1 - Me.txtText.MaxLines_Warning = "" - Me.txtText.MaxLines_Warning_Label = Nothing - Me.txtText.Name = "txtText" - Me.txtText.ReadOnly = True - Me.txtText.Size = New System.Drawing.Size(423, 47) - Me.txtText.TabIndex = 35 - Me.txtText.Text = "" - ' - 'txtBefoerderungsmittel - ' - Me.txtBefoerderungsmittel._DateTimeOnly = False - Me.txtBefoerderungsmittel._numbersOnly = False - Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" - Me.txtBefoerderungsmittel._numbersOnlyTrennzeichen = True - Me.txtBefoerderungsmittel._Prozent = False - Me.txtBefoerderungsmittel._ShortDateNew = False - Me.txtBefoerderungsmittel._ShortDateOnly = False - Me.txtBefoerderungsmittel._TimeOnly = False - Me.txtBefoerderungsmittel._TimeOnly_Seconds = False - Me.txtBefoerderungsmittel._value = Nothing - Me.txtBefoerderungsmittel._Waehrung = False - Me.txtBefoerderungsmittel._WaehrungZeichen = True - Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black - Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 279) - Me.txtBefoerderungsmittel.MaxLength = 35 - Me.txtBefoerderungsmittel.MaxLineLength = -1 - Me.txtBefoerderungsmittel.MaxLines_Warning = "" - Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing - Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" - Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) - Me.txtBefoerderungsmittel.TabIndex = 19 - ' - 'txtGrenze - ' - Me.txtGrenze._DateTimeOnly = False - Me.txtGrenze._numbersOnly = False - Me.txtGrenze._numbersOnlyKommastellen = "" - Me.txtGrenze._numbersOnlyTrennzeichen = True - Me.txtGrenze._Prozent = False - Me.txtGrenze._ShortDateNew = False - Me.txtGrenze._ShortDateOnly = False - Me.txtGrenze._TimeOnly = False - Me.txtGrenze._TimeOnly_Seconds = False - Me.txtGrenze._value = Nothing - Me.txtGrenze._Waehrung = False - Me.txtGrenze._WaehrungZeichen = True - Me.txtGrenze.ForeColor = System.Drawing.Color.Black - Me.txtGrenze.Location = New System.Drawing.Point(517, 260) - Me.txtGrenze.MaxLength = 35 - Me.txtGrenze.MaxLineLength = -1 - Me.txtGrenze.MaxLines_Warning = "" - Me.txtGrenze.MaxLines_Warning_Label = Nothing - Me.txtGrenze.Name = "txtGrenze" - Me.txtGrenze.Size = New System.Drawing.Size(305, 20) - Me.txtGrenze.TabIndex = 16 - ' - 'txtSendungsdaten - ' - Me.txtSendungsdaten._DateTimeOnly = False - Me.txtSendungsdaten._numbersOnly = False - Me.txtSendungsdaten._numbersOnlyKommastellen = "" - Me.txtSendungsdaten._numbersOnlyTrennzeichen = True - Me.txtSendungsdaten._Prozent = False - Me.txtSendungsdaten._ShortDateNew = False - Me.txtSendungsdaten._ShortDateOnly = False - Me.txtSendungsdaten._TimeOnly = False - Me.txtSendungsdaten._TimeOnly_Seconds = False - Me.txtSendungsdaten._value = Nothing - Me.txtSendungsdaten._Waehrung = False - Me.txtSendungsdaten._WaehrungZeichen = True - Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black - Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 323) - Me.txtSendungsdaten.MaxLength = 300 - Me.txtSendungsdaten.MaxLineLength = -1 - Me.txtSendungsdaten.MaxLines_Warning = "" - Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing - Me.txtSendungsdaten.Name = "txtSendungsdaten" - Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) - Me.txtSendungsdaten.TabIndex = 22 - ' - 'txtWarenwert - ' - Me.txtWarenwert._DateTimeOnly = False - Me.txtWarenwert._numbersOnly = False - Me.txtWarenwert._numbersOnlyKommastellen = "" - Me.txtWarenwert._numbersOnlyTrennzeichen = True - Me.txtWarenwert._Prozent = False - Me.txtWarenwert._ShortDateNew = False - Me.txtWarenwert._ShortDateOnly = False - Me.txtWarenwert._TimeOnly = False - Me.txtWarenwert._TimeOnly_Seconds = False - Me.txtWarenwert._value = "" - Me.txtWarenwert._Waehrung = True - Me.txtWarenwert._WaehrungZeichen = False - Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(562, 178) - Me.txtWarenwert.MaxLength = 35 - Me.txtWarenwert.MaxLineLength = -1 - Me.txtWarenwert.MaxLines_Warning = "" - Me.txtWarenwert.MaxLines_Warning_Label = Nothing - Me.txtWarenwert.Name = "txtWarenwert" - Me.txtWarenwert.Size = New System.Drawing.Size(129, 20) - Me.txtWarenwert.TabIndex = 15 - Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtZollbelegNr - ' - Me.txtZollbelegNr._DateTimeOnly = False - Me.txtZollbelegNr._numbersOnly = False - Me.txtZollbelegNr._numbersOnlyKommastellen = "" - Me.txtZollbelegNr._numbersOnlyTrennzeichen = True - Me.txtZollbelegNr._Prozent = False - Me.txtZollbelegNr._ShortDateNew = False - Me.txtZollbelegNr._ShortDateOnly = False - Me.txtZollbelegNr._TimeOnly = False - Me.txtZollbelegNr._TimeOnly_Seconds = False - Me.txtZollbelegNr._value = Nothing - Me.txtZollbelegNr._Waehrung = False - Me.txtZollbelegNr._WaehrungZeichen = True - Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black - Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 159) - Me.txtZollbelegNr.MaxLength = 35 - Me.txtZollbelegNr.MaxLineLength = -1 - Me.txtZollbelegNr.MaxLines_Warning = "" - Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing - Me.txtZollbelegNr.Name = "txtZollbelegNr" - Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) - Me.txtZollbelegNr.TabIndex = 10 - ' - 'cboRgArt - ' - Me.cboRgArt._allowedValuesFreiText = Nothing - Me.cboRgArt._allowFreiText = False - Me.cboRgArt._value = "" - Me.cboRgArt.FormattingEnabled = True - Me.cboRgArt.Location = New System.Drawing.Point(478, 127) - Me.cboRgArt.Name = "cboRgArt" - Me.cboRgArt.Size = New System.Drawing.Size(97, 21) - Me.cboRgArt.TabIndex = 246 - ' - 'cboVorauskasse - ' - Me.cboVorauskasse._allowedValuesFreiText = Nothing - Me.cboVorauskasse._allowFreiText = False - Me.cboVorauskasse._value = "" - Me.cboVorauskasse.FormattingEnabled = True - Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5) - Me.cboVorauskasse.Name = "cboVorauskasse" - Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21) - Me.cboVorauskasse.TabIndex = 244 - ' - 'txtRechnungAnZusatz - ' - Me.txtRechnungAnZusatz._DateTimeOnly = False - Me.txtRechnungAnZusatz._numbersOnly = False - Me.txtRechnungAnZusatz._numbersOnlyKommastellen = "" - Me.txtRechnungAnZusatz._numbersOnlyTrennzeichen = True - Me.txtRechnungAnZusatz._Prozent = False - Me.txtRechnungAnZusatz._ShortDateNew = False - Me.txtRechnungAnZusatz._ShortDateOnly = False - Me.txtRechnungAnZusatz._TimeOnly = False - Me.txtRechnungAnZusatz._TimeOnly_Seconds = False - Me.txtRechnungAnZusatz._value = Nothing - Me.txtRechnungAnZusatz._Waehrung = False - Me.txtRechnungAnZusatz._WaehrungZeichen = True - Me.txtRechnungAnZusatz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnZusatz.Location = New System.Drawing.Point(101, 63) - Me.txtRechnungAnZusatz.MaxLength = 52 - Me.txtRechnungAnZusatz.MaxLineLength = -1 - Me.txtRechnungAnZusatz.MaxLines_Warning = "" - Me.txtRechnungAnZusatz.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnZusatz.Name = "txtRechnungAnZusatz" - Me.txtRechnungAnZusatz.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnZusatz.TabIndex = 242 - Me.txtRechnungAnZusatz.TabStop = False - ' - 'cboSammelrechnung - ' - Me.cboSammelrechnung._allowedValuesFreiText = Nothing - Me.cboSammelrechnung._allowFreiText = False - Me.cboSammelrechnung._value = "" - Me.cboSammelrechnung.FormattingEnabled = True - Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 5) - Me.cboSammelrechnung.Name = "cboSammelrechnung" - Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) - Me.cboSammelrechnung.TabIndex = 2 - ' - 'txtRechnungAnName2 - ' - Me.txtRechnungAnName2._DateTimeOnly = False - Me.txtRechnungAnName2._numbersOnly = False - Me.txtRechnungAnName2._numbersOnlyKommastellen = "" - Me.txtRechnungAnName2._numbersOnlyTrennzeichen = True - Me.txtRechnungAnName2._Prozent = False - Me.txtRechnungAnName2._ShortDateNew = False - Me.txtRechnungAnName2._ShortDateOnly = False - Me.txtRechnungAnName2._TimeOnly = False - Me.txtRechnungAnName2._TimeOnly_Seconds = False - Me.txtRechnungAnName2._value = Nothing - Me.txtRechnungAnName2._Waehrung = False - Me.txtRechnungAnName2._WaehrungZeichen = True - Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 44) - Me.txtRechnungAnName2.MaxLength = 40 - Me.txtRechnungAnName2.MaxLineLength = -1 - Me.txtRechnungAnName2.MaxLines_Warning = "" - Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnName2.Name = "txtRechnungAnName2" - Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnName2.TabIndex = 11 - Me.txtRechnungAnName2.TabStop = False - ' - 'kdFirmaRechnungAn - ' - Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False - Me.kdFirmaRechnungAn._AllowSetValue = True - Me.kdFirmaRechnungAn._autoSizeGross = False - Me.kdFirmaRechnungAn._display_Name1 = True - Me.kdFirmaRechnungAn._displayAVISO_Email = False - Me.kdFirmaRechnungAn._displayFullName = False - Me.kdFirmaRechnungAn._displayWoelflKd = False - Me.kdFirmaRechnungAn._hideIfListEmpty = True - Me.kdFirmaRechnungAn._loadKdData = True - Me.kdFirmaRechnungAn._searchName1 = True - Me.kdFirmaRechnungAn._UseFIRMA = "" - Me.kdFirmaRechnungAn._ValueKdAndName = False - Me.kdFirmaRechnungAn.dgvpos = "LEFT" - Me.kdFirmaRechnungAn.KdName = Nothing - Me.kdFirmaRechnungAn.KdNr = "-1" - Me.kdFirmaRechnungAn.kdNrField = Nothing - Me.kdFirmaRechnungAn.KdNrNullInt = Nothing - Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 25) - Me.kdFirmaRechnungAn.MaxLength = 35 - Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" - Me.kdFirmaRechnungAn.nurAktive = True - Me.kdFirmaRechnungAn.searchActive = True - Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaRechnungAn.TabIndex = 5 - Me.kdFirmaRechnungAn.TabStop = False - Me.kdFirmaRechnungAn.TIMER_SEARCH = True - Me.kdFirmaRechnungAn.usrcntl = Nothing - ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.FlatAppearance.BorderSize = 0 - Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton3.Location = New System.Drawing.Point(383, 20) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(24, 25) - Me.FlatButton3.TabIndex = 7 - Me.FlatButton3.TabStop = False - Me.FlatButton3.UseVisualStyleBackColor = True - ' - 'txtKdAuftragsNr - ' - Me.txtKdAuftragsNr._DateTimeOnly = False - Me.txtKdAuftragsNr._numbersOnly = False - Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True - Me.txtKdAuftragsNr._Prozent = False - Me.txtKdAuftragsNr._ShortDateNew = False - Me.txtKdAuftragsNr._ShortDateOnly = False - Me.txtKdAuftragsNr._TimeOnly = False - Me.txtKdAuftragsNr._TimeOnly_Seconds = False - Me.txtKdAuftragsNr._value = Nothing - Me.txtKdAuftragsNr._Waehrung = False - Me.txtKdAuftragsNr._WaehrungZeichen = True - Me.txtKdAuftragsNr.BackColor = System.Drawing.Color.Yellow - Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 123) - Me.txtKdAuftragsNr.MaxLength = 35 - Me.txtKdAuftragsNr.MaxLineLength = -1 - Me.txtKdAuftragsNr.MaxLines_Warning = "" - Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) - Me.txtKdAuftragsNr.TabIndex = 20 - ' - 'txtRechnungAnUIDKz - ' - Me.txtRechnungAnUIDKz._DateTimeOnly = False - Me.txtRechnungAnUIDKz._numbersOnly = False - Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDKz._numbersOnlyTrennzeichen = True - Me.txtRechnungAnUIDKz._Prozent = False - Me.txtRechnungAnUIDKz._ShortDateNew = False - Me.txtRechnungAnUIDKz._ShortDateOnly = False - Me.txtRechnungAnUIDKz._TimeOnly = False - Me.txtRechnungAnUIDKz._TimeOnly_Seconds = False - Me.txtRechnungAnUIDKz._value = Nothing - Me.txtRechnungAnUIDKz._Waehrung = False - Me.txtRechnungAnUIDKz._WaehrungZeichen = True - Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 44) - Me.txtRechnungAnUIDKz.MaxLength = 35 - Me.txtRechnungAnUIDKz.MaxLineLength = -1 - Me.txtRechnungAnUIDKz.MaxLines_Warning = "" - Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" - Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) - Me.txtRechnungAnUIDKz.TabIndex = 18 - Me.txtRechnungAnUIDKz.TabStop = False - ' - 'cboRechnungAn - ' - Me.cboRechnungAn._allowedValuesFreiText = Nothing - Me.cboRechnungAn._allowFreiText = False - Me.cboRechnungAn._value = "" - Me.cboRechnungAn.FormattingEnabled = True - Me.cboRechnungAn.Location = New System.Drawing.Point(101, 5) - Me.cboRechnungAn.Name = "cboRechnungAn" - Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) - Me.cboRechnungAn.TabIndex = 1 - ' - 'txtRechnungAnUIDNr - ' - Me.txtRechnungAnUIDNr._DateTimeOnly = False - Me.txtRechnungAnUIDNr._numbersOnly = False - Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDNr._numbersOnlyTrennzeichen = True - Me.txtRechnungAnUIDNr._Prozent = False - Me.txtRechnungAnUIDNr._ShortDateNew = False - Me.txtRechnungAnUIDNr._ShortDateOnly = False - Me.txtRechnungAnUIDNr._TimeOnly = False - Me.txtRechnungAnUIDNr._TimeOnly_Seconds = False - Me.txtRechnungAnUIDNr._value = Nothing - Me.txtRechnungAnUIDNr._Waehrung = False - Me.txtRechnungAnUIDNr._WaehrungZeichen = True - Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 44) - Me.txtRechnungAnUIDNr.MaxLength = 35 - Me.txtRechnungAnUIDNr.MaxLineLength = -1 - Me.txtRechnungAnUIDNr.MaxLines_Warning = "" - Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" - Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) - Me.txtRechnungAnUIDNr.TabIndex = 13 - Me.txtRechnungAnUIDNr.TabStop = False - ' - 'txtRechnungAnBuKdNr - ' - Me.txtRechnungAnBuKdNr._DateTimeOnly = False - Me.txtRechnungAnBuKdNr._numbersOnly = False - Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnBuKdNr._numbersOnlyTrennzeichen = True - Me.txtRechnungAnBuKdNr._Prozent = False - Me.txtRechnungAnBuKdNr._ShortDateNew = False - Me.txtRechnungAnBuKdNr._ShortDateOnly = False - Me.txtRechnungAnBuKdNr._TimeOnly = False - Me.txtRechnungAnBuKdNr._TimeOnly_Seconds = False - Me.txtRechnungAnBuKdNr._value = Nothing - Me.txtRechnungAnBuKdNr._Waehrung = False - Me.txtRechnungAnBuKdNr._WaehrungZeichen = True - Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 25) - Me.txtRechnungAnBuKdNr.MaxLength = 35 - Me.txtRechnungAnBuKdNr.MaxLineLength = -1 - Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" - Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" - Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) - Me.txtRechnungAnBuKdNr.TabIndex = 10 - Me.txtRechnungAnBuKdNr.TabStop = False - ' - 'txtkdNrRechnungAn - ' - Me.txtkdNrRechnungAn._DateTimeOnly = False - Me.txtkdNrRechnungAn._numbersOnly = False - Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" - Me.txtkdNrRechnungAn._numbersOnlyTrennzeichen = True - Me.txtkdNrRechnungAn._Prozent = False - Me.txtkdNrRechnungAn._ShortDateNew = False - Me.txtkdNrRechnungAn._ShortDateOnly = False - Me.txtkdNrRechnungAn._TimeOnly = False - Me.txtkdNrRechnungAn._TimeOnly_Seconds = False - Me.txtkdNrRechnungAn._value = Nothing - Me.txtkdNrRechnungAn._Waehrung = False - Me.txtkdNrRechnungAn._WaehrungZeichen = True - Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black - Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 25) - Me.txtkdNrRechnungAn.MaxLength = 35 - Me.txtkdNrRechnungAn.MaxLineLength = -1 - Me.txtkdNrRechnungAn.MaxLines_Warning = "" - Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing - Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" - Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrRechnungAn.TabIndex = 3 - Me.txtkdNrRechnungAn.TabStop = False - ' - 'txtRechnungAnOrt - ' - Me.txtRechnungAnOrt._DateTimeOnly = False - Me.txtRechnungAnOrt._numbersOnly = False - Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" - Me.txtRechnungAnOrt._numbersOnlyTrennzeichen = True - Me.txtRechnungAnOrt._Prozent = False - Me.txtRechnungAnOrt._ShortDateNew = False - Me.txtRechnungAnOrt._ShortDateOnly = False - Me.txtRechnungAnOrt._TimeOnly = False - Me.txtRechnungAnOrt._TimeOnly_Seconds = False - Me.txtRechnungAnOrt._value = Nothing - Me.txtRechnungAnOrt._Waehrung = False - Me.txtRechnungAnOrt._WaehrungZeichen = True - Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 101) - Me.txtRechnungAnOrt.MaxLength = 52 - Me.txtRechnungAnOrt.MaxLineLength = -1 - Me.txtRechnungAnOrt.MaxLines_Warning = "" - Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" - Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnOrt.TabIndex = 17 - Me.txtRechnungAnOrt.TabStop = False - ' - 'txtRechnungAnStrasse - ' - Me.txtRechnungAnStrasse._DateTimeOnly = False - Me.txtRechnungAnStrasse._numbersOnly = False - Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" - Me.txtRechnungAnStrasse._numbersOnlyTrennzeichen = True - Me.txtRechnungAnStrasse._Prozent = False - Me.txtRechnungAnStrasse._ShortDateNew = False - Me.txtRechnungAnStrasse._ShortDateOnly = False - Me.txtRechnungAnStrasse._TimeOnly = False - Me.txtRechnungAnStrasse._TimeOnly_Seconds = False - Me.txtRechnungAnStrasse._value = Nothing - Me.txtRechnungAnStrasse._Waehrung = False - Me.txtRechnungAnStrasse._WaehrungZeichen = True - Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 82) - Me.txtRechnungAnStrasse.MaxLength = 40 - Me.txtRechnungAnStrasse.MaxLineLength = -1 - Me.txtRechnungAnStrasse.MaxLines_Warning = "" - Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" - Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnStrasse.TabIndex = 14 - Me.txtRechnungAnStrasse.TabStop = False - ' - 'txtkdNrAbsender - ' - Me.txtkdNrAbsender._DateTimeOnly = False - Me.txtkdNrAbsender._numbersOnly = False - Me.txtkdNrAbsender._numbersOnlyKommastellen = "" - Me.txtkdNrAbsender._numbersOnlyTrennzeichen = True - Me.txtkdNrAbsender._Prozent = False - Me.txtkdNrAbsender._ShortDateNew = False - Me.txtkdNrAbsender._ShortDateOnly = False - Me.txtkdNrAbsender._TimeOnly = False - Me.txtkdNrAbsender._TimeOnly_Seconds = False - Me.txtkdNrAbsender._value = Nothing - Me.txtkdNrAbsender._Waehrung = False - Me.txtkdNrAbsender._WaehrungZeichen = True - Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26) - Me.txtkdNrAbsender.MaxLength = 35 - Me.txtkdNrAbsender.MaxLineLength = -1 - Me.txtkdNrAbsender.MaxLines_Warning = "" - Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing - Me.txtkdNrAbsender.Name = "txtkdNrAbsender" - Me.txtkdNrAbsender.ReadOnly = True - Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAbsender.TabIndex = 1 - Me.txtkdNrAbsender.TabStop = False - ' - 'kdFirmaAbsender - ' - Me.kdFirmaAbsender._AlleFirmenCLUSTER = False - Me.kdFirmaAbsender._AllowSetValue = True - Me.kdFirmaAbsender._autoSizeGross = False - Me.kdFirmaAbsender._display_Name1 = True - Me.kdFirmaAbsender._displayAVISO_Email = False - Me.kdFirmaAbsender._displayFullName = False - Me.kdFirmaAbsender._displayWoelflKd = False - Me.kdFirmaAbsender._hideIfListEmpty = True - Me.kdFirmaAbsender._loadKdData = True - Me.kdFirmaAbsender._searchName1 = True - Me.kdFirmaAbsender._UseFIRMA = "" - Me.kdFirmaAbsender._ValueKdAndName = False - Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White - Me.kdFirmaAbsender.dgvpos = "LEFT" - Me.kdFirmaAbsender.KdName = Nothing - Me.kdFirmaAbsender.KdNr = "-1" - Me.kdFirmaAbsender.kdNrField = Nothing - Me.kdFirmaAbsender.KdNrNullInt = Nothing - Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaAbsender.MaxLength = 35 - Me.kdFirmaAbsender.Name = "kdFirmaAbsender" - Me.kdFirmaAbsender.nurAktive = True - Me.kdFirmaAbsender.searchActive = True - Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAbsender.TabIndex = 3 - Me.kdFirmaAbsender.TabStop = False - Me.kdFirmaAbsender.TIMER_SEARCH = True - Me.kdFirmaAbsender.usrcntl = Nothing - ' - 'txtAbsenderName2 - ' - Me.txtAbsenderName2._DateTimeOnly = False - Me.txtAbsenderName2._numbersOnly = False - Me.txtAbsenderName2._numbersOnlyKommastellen = "" - Me.txtAbsenderName2._numbersOnlyTrennzeichen = True - Me.txtAbsenderName2._Prozent = False - Me.txtAbsenderName2._ShortDateNew = False - Me.txtAbsenderName2._ShortDateOnly = False - Me.txtAbsenderName2._TimeOnly = False - Me.txtAbsenderName2._TimeOnly_Seconds = False - Me.txtAbsenderName2._value = Nothing - Me.txtAbsenderName2._Waehrung = False - Me.txtAbsenderName2._WaehrungZeichen = True - Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26) - Me.txtAbsenderName2.MaxLength = 35 - Me.txtAbsenderName2.MaxLineLength = -1 - Me.txtAbsenderName2.MaxLines_Warning = "" - Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing - Me.txtAbsenderName2.Name = "txtAbsenderName2" - Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderName2.TabIndex = 4 - Me.txtAbsenderName2.TabStop = False - ' - 'txtAbsenderOrt - ' - Me.txtAbsenderOrt._DateTimeOnly = False - Me.txtAbsenderOrt._numbersOnly = False - Me.txtAbsenderOrt._numbersOnlyKommastellen = "" - Me.txtAbsenderOrt._numbersOnlyTrennzeichen = True - Me.txtAbsenderOrt._Prozent = False - Me.txtAbsenderOrt._ShortDateNew = False - Me.txtAbsenderOrt._ShortDateOnly = False - Me.txtAbsenderOrt._TimeOnly = False - Me.txtAbsenderOrt._TimeOnly_Seconds = False - Me.txtAbsenderOrt._value = Nothing - Me.txtAbsenderOrt._Waehrung = False - Me.txtAbsenderOrt._WaehrungZeichen = True - Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54) - Me.txtAbsenderOrt.MaxLength = 35 - Me.txtAbsenderOrt.MaxLineLength = -1 - Me.txtAbsenderOrt.MaxLines_Warning = "" - Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing - Me.txtAbsenderOrt.Name = "txtAbsenderOrt" - Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderOrt.TabIndex = 7 - Me.txtAbsenderOrt.TabStop = False - ' - 'txtAbsenderStrasse - ' - Me.txtAbsenderStrasse._DateTimeOnly = False - Me.txtAbsenderStrasse._numbersOnly = False - Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" - Me.txtAbsenderStrasse._numbersOnlyTrennzeichen = True - Me.txtAbsenderStrasse._Prozent = False - Me.txtAbsenderStrasse._ShortDateNew = False - Me.txtAbsenderStrasse._ShortDateOnly = False - Me.txtAbsenderStrasse._TimeOnly = False - Me.txtAbsenderStrasse._TimeOnly_Seconds = False - Me.txtAbsenderStrasse._value = Nothing - Me.txtAbsenderStrasse._Waehrung = False - Me.txtAbsenderStrasse._WaehrungZeichen = True - Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40) - Me.txtAbsenderStrasse.MaxLength = 35 - Me.txtAbsenderStrasse.MaxLineLength = -1 - Me.txtAbsenderStrasse.MaxLines_Warning = "" - Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing - Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" - Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderStrasse.TabIndex = 6 - Me.txtAbsenderStrasse.TabStop = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton1.Location = New System.Drawing.Point(382, 0) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(24, 25) - Me.FlatButton1.TabIndex = 2 - Me.FlatButton1.TabStop = False - Me.FlatButton1.UseVisualStyleBackColor = True - ' - 'sbLeistung - ' - Me.sbLeistung._allowFreitext = False - Me.sbLeistung._AllowSetValue = False - Me.sbLeistung._allowSpaceAsSplitter = False - Me.sbLeistung._autoSizeGross = False - Me.sbLeistung._hideIfListEmpty = True - Me.sbLeistung._value = Nothing - Me.sbLeistung.conn_art = "FMZOLL" - Me.sbLeistung.dgvpos = "LEFT" - Me.sbLeistung.DISPLAY_PARAM = Nothing - Me.sbLeistung.INVISIBLE_COLUMNS = Nothing - Me.sbLeistung.key_visible = False - Me.sbLeistung.KEYPARAM = Nothing - Me.sbLeistung.Location = New System.Drawing.Point(623, 232) - Me.sbLeistung.Name = "sbLeistung" - Me.sbLeistung.searchActive = True - Me.sbLeistung.Size = New System.Drawing.Size(161, 20) - Me.sbLeistung.SQL_ORDER_BY = Nothing - Me.sbLeistung.SQL_SELECT = Nothing - Me.sbLeistung.SQL_WHERE = Nothing - Me.sbLeistung.SQL_WhereParamList = Nothing - Me.sbLeistung.TabIndex = 14 - Me.sbLeistung.usrcntl = Nothing - ' - 'txtUnterNrRef - ' - Me.txtUnterNrRef._DateTimeOnly = False - Me.txtUnterNrRef._numbersOnly = False - Me.txtUnterNrRef._numbersOnlyKommastellen = "" - Me.txtUnterNrRef._numbersOnlyTrennzeichen = True - Me.txtUnterNrRef._Prozent = False - Me.txtUnterNrRef._ShortDateNew = False - Me.txtUnterNrRef._ShortDateOnly = False - Me.txtUnterNrRef._TimeOnly = False - Me.txtUnterNrRef._TimeOnly_Seconds = False - Me.txtUnterNrRef._value = Nothing - Me.txtUnterNrRef._Waehrung = False - Me.txtUnterNrRef._WaehrungZeichen = True - Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) - Me.txtUnterNrRef.MaxLineLength = -1 - Me.txtUnterNrRef.MaxLines_Warning = "" - Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing - Me.txtUnterNrRef.Name = "txtUnterNrRef" - Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) - Me.txtUnterNrRef.TabIndex = 8 - Me.txtUnterNrRef.Visible = False - ' - 'cboFilialeRef - ' - Me.cboFilialeRef._allowedValuesFreiText = Nothing - Me.cboFilialeRef._allowFreiText = False - Me.cboFilialeRef._value = "" - Me.cboFilialeRef.DropDownWidth = 280 - Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.cboFilialeRef.FormattingEnabled = True - Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) - Me.cboFilialeRef.Name = "cboFilialeRef" - Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) - Me.cboFilialeRef.TabIndex = 6 - Me.cboFilialeRef.Visible = False - ' - 'txtAbfertigungsnummerRef - ' - Me.txtAbfertigungsnummerRef._DateTimeOnly = False - Me.txtAbfertigungsnummerRef._numbersOnly = False - Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummerRef._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummerRef._Prozent = False - Me.txtAbfertigungsnummerRef._ShortDateNew = False - Me.txtAbfertigungsnummerRef._ShortDateOnly = False - Me.txtAbfertigungsnummerRef._TimeOnly = False - Me.txtAbfertigungsnummerRef._TimeOnly_Seconds = False - Me.txtAbfertigungsnummerRef._value = Nothing - Me.txtAbfertigungsnummerRef._Waehrung = False - Me.txtAbfertigungsnummerRef._WaehrungZeichen = True - Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) - Me.txtAbfertigungsnummerRef.MaxLineLength = -1 - Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" - Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" - Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummerRef.TabIndex = 7 - Me.txtAbfertigungsnummerRef.Visible = False - ' - 'dgvRechnungenPositionen - ' - Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvRechnungenPositionen.AllowUserToAddRows = False - Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False - Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False - Me.dgvRechnungenPositionen.AllowUserToResizeRows = False - Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White - 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.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 - Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto}) - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11 - Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) - Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" - Me.dgvRechnungenPositionen.ReadOnly = True - 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.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 - Me.dgvRechnungenPositionen.RowHeadersVisible = False - Me.dgvRechnungenPositionen.RowHeadersWidth = 62 - Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) - Me.dgvRechnungenPositionen.TabIndex = 5 - Me.dgvRechnungenPositionen.TabStop = False - ' - 'Leistung - ' - Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.Leistung.HeaderText = "Leistung" - Me.Leistung.MinimumWidth = 8 - Me.Leistung.Name = "Leistung" - Me.Leistung.ReadOnly = True - ' - 'Anzahl - ' - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle7.Format = "N0" - DataGridViewCellStyle7.NullValue = Nothing - Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7 - Me.Anzahl.HeaderText = "Anzahl" - Me.Anzahl.MinimumWidth = 8 - Me.Anzahl.Name = "Anzahl" - Me.Anzahl.ReadOnly = True - Me.Anzahl.Width = 50 - ' - 'Preis - ' - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle8.Format = "c2" - Me.Preis.DefaultCellStyle = DataGridViewCellStyle8 - Me.Preis.HeaderText = "Preis" - Me.Preis.MinimumWidth = 8 - Me.Preis.Name = "Preis" - Me.Preis.ReadOnly = True - Me.Preis.Width = 80 - ' - 'SteuerpflichtigerBetrag - ' - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle9.Format = "c2" - Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9 - Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." - Me.SteuerpflichtigerBetrag.MinimumWidth = 8 - Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" - Me.SteuerpflichtigerBetrag.ReadOnly = True - Me.SteuerpflichtigerBetrag.Width = 120 - ' - 'SteuerfreierBetrag - ' - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle10.Format = "C2" - DataGridViewCellStyle10.NullValue = Nothing - Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10 - Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" - Me.SteuerfreierBetrag.MinimumWidth = 8 - Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" - Me.SteuerfreierBetrag.ReadOnly = True - Me.SteuerfreierBetrag.Width = 120 - ' - 'Aufschubkonto - ' - Me.Aufschubkonto.HeaderText = "Aufschubkonto" - Me.Aufschubkonto.MinimumWidth = 8 - Me.Aufschubkonto.Name = "Aufschubkonto" - Me.Aufschubkonto.ReadOnly = True - Me.Aufschubkonto.Width = 120 - ' - 'dgvOfferteDetailsUebersicht - ' - Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True - Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 - Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White - Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - 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.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 - Me.dgvOfferteDetailsUebersicht.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.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19 - Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) - Me.dgvOfferteDetailsUebersicht.MultiSelect = False - Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" - DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control - 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.WindowText - DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20 - Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False - Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62 - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21 - Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) - Me.dgvOfferteDetailsUebersicht.TabIndex = 3 - ' - 'txtRohmasse - ' - Me.txtRohmasse._DateTimeOnly = False - Me.txtRohmasse._numbersOnly = False - Me.txtRohmasse._numbersOnlyKommastellen = "" - Me.txtRohmasse._numbersOnlyTrennzeichen = True - Me.txtRohmasse._Prozent = False - Me.txtRohmasse._ShortDateNew = False - Me.txtRohmasse._ShortDateOnly = False - Me.txtRohmasse._TimeOnly = False - Me.txtRohmasse._TimeOnly_Seconds = False - Me.txtRohmasse._value = Nothing - Me.txtRohmasse._Waehrung = False - Me.txtRohmasse._WaehrungZeichen = True - Me.txtRohmasse.ForeColor = System.Drawing.Color.Black - Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) - Me.txtRohmasse.MaxLength = 35 - Me.txtRohmasse.MaxLineLength = -1 - Me.txtRohmasse.MaxLines_Warning = "" - Me.txtRohmasse.MaxLines_Warning_Label = Nothing - Me.txtRohmasse.Name = "txtRohmasse" - Me.txtRohmasse.Size = New System.Drawing.Size(305, 20) - Me.txtRohmasse.TabIndex = 24 - Me.txtRohmasse.Visible = False - ' - 'cboWaehrung - ' - Me.cboWaehrung._allowedValuesFreiText = Nothing - Me.cboWaehrung._allowFreiText = False - Me.cboWaehrung._value = "" - Me.cboWaehrung.FormattingEnabled = True - Me.cboWaehrung.Location = New System.Drawing.Point(517, 177) - Me.cboWaehrung.Name = "cboWaehrung" - Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrung.TabIndex = 14 - ' - 'cboWaehrungUmrechnung - ' - Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing - Me.cboWaehrungUmrechnung._allowFreiText = False - Me.cboWaehrungUmrechnung._value = "" - Me.cboWaehrungUmrechnung.Enabled = False - Me.cboWaehrungUmrechnung.FormattingEnabled = True - Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 196) - Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" - Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrungUmrechnung.TabIndex = 17 - ' - 'txtkdNrEmpfaenger - ' - Me.txtkdNrEmpfaenger._DateTimeOnly = False - Me.txtkdNrEmpfaenger._numbersOnly = False - Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" - Me.txtkdNrEmpfaenger._numbersOnlyTrennzeichen = True - Me.txtkdNrEmpfaenger._Prozent = False - Me.txtkdNrEmpfaenger._ShortDateNew = False - Me.txtkdNrEmpfaenger._ShortDateOnly = False - Me.txtkdNrEmpfaenger._TimeOnly = False - Me.txtkdNrEmpfaenger._TimeOnly_Seconds = False - Me.txtkdNrEmpfaenger._value = Nothing - Me.txtkdNrEmpfaenger._Waehrung = False - Me.txtkdNrEmpfaenger._WaehrungZeichen = True - Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black - Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26) - Me.txtkdNrEmpfaenger.MaxLength = 35 - Me.txtkdNrEmpfaenger.MaxLineLength = -1 - Me.txtkdNrEmpfaenger.MaxLines_Warning = "" - Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing - Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" - Me.txtkdNrEmpfaenger.ReadOnly = True - Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrEmpfaenger.TabIndex = 1 - Me.txtkdNrEmpfaenger.TabStop = False - ' - 'txtEmpfeangerName2 - ' - Me.txtEmpfeangerName2._DateTimeOnly = False - Me.txtEmpfeangerName2._numbersOnly = False - Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" - Me.txtEmpfeangerName2._numbersOnlyTrennzeichen = True - Me.txtEmpfeangerName2._Prozent = False - Me.txtEmpfeangerName2._ShortDateNew = False - Me.txtEmpfeangerName2._ShortDateOnly = False - Me.txtEmpfeangerName2._TimeOnly = False - Me.txtEmpfeangerName2._TimeOnly_Seconds = False - Me.txtEmpfeangerName2._value = Nothing - Me.txtEmpfeangerName2._Waehrung = False - Me.txtEmpfeangerName2._WaehrungZeichen = True - Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black - Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26) - Me.txtEmpfeangerName2.MaxLength = 35 - Me.txtEmpfeangerName2.MaxLineLength = -1 - Me.txtEmpfeangerName2.MaxLines_Warning = "" - Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing - Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" - Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfeangerName2.TabIndex = 4 - Me.txtEmpfeangerName2.TabStop = False - ' - 'txtEmpfaengerOrt - ' - Me.txtEmpfaengerOrt._DateTimeOnly = False - Me.txtEmpfaengerOrt._numbersOnly = False - Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" - Me.txtEmpfaengerOrt._numbersOnlyTrennzeichen = True - Me.txtEmpfaengerOrt._Prozent = False - Me.txtEmpfaengerOrt._ShortDateNew = False - Me.txtEmpfaengerOrt._ShortDateOnly = False - Me.txtEmpfaengerOrt._TimeOnly = False - Me.txtEmpfaengerOrt._TimeOnly_Seconds = False - Me.txtEmpfaengerOrt._value = Nothing - Me.txtEmpfaengerOrt._Waehrung = False - Me.txtEmpfaengerOrt._WaehrungZeichen = True - Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54) - Me.txtEmpfaengerOrt.MaxLength = 35 - Me.txtEmpfaengerOrt.MaxLineLength = -1 - Me.txtEmpfaengerOrt.MaxLines_Warning = "" - Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" - Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfaengerOrt.TabIndex = 7 - Me.txtEmpfaengerOrt.TabStop = False - ' - 'txtEmpfaengerStrasse - ' - Me.txtEmpfaengerStrasse._DateTimeOnly = False - Me.txtEmpfaengerStrasse._numbersOnly = False - Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" - Me.txtEmpfaengerStrasse._numbersOnlyTrennzeichen = True - Me.txtEmpfaengerStrasse._Prozent = False - Me.txtEmpfaengerStrasse._ShortDateNew = False - Me.txtEmpfaengerStrasse._ShortDateOnly = False - Me.txtEmpfaengerStrasse._TimeOnly = False - Me.txtEmpfaengerStrasse._TimeOnly_Seconds = False - Me.txtEmpfaengerStrasse._value = Nothing - Me.txtEmpfaengerStrasse._Waehrung = False - Me.txtEmpfaengerStrasse._WaehrungZeichen = True - Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40) - Me.txtEmpfaengerStrasse.MaxLength = 35 - Me.txtEmpfaengerStrasse.MaxLineLength = -1 - Me.txtEmpfaengerStrasse.MaxLines_Warning = "" - Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" - Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfaengerStrasse.TabIndex = 6 - Me.txtEmpfaengerStrasse.TabStop = False - ' - 'kdFirmaEmpfaenger - ' - Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False - Me.kdFirmaEmpfaenger._AllowSetValue = True - Me.kdFirmaEmpfaenger._autoSizeGross = False - Me.kdFirmaEmpfaenger._display_Name1 = True - Me.kdFirmaEmpfaenger._displayAVISO_Email = False - Me.kdFirmaEmpfaenger._displayFullName = False - Me.kdFirmaEmpfaenger._displayWoelflKd = False - Me.kdFirmaEmpfaenger._hideIfListEmpty = True - Me.kdFirmaEmpfaenger._loadKdData = True - Me.kdFirmaEmpfaenger._searchName1 = True - Me.kdFirmaEmpfaenger._UseFIRMA = "" - Me.kdFirmaEmpfaenger._ValueKdAndName = False - Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White - Me.kdFirmaEmpfaenger.dgvpos = "LEFT" - Me.kdFirmaEmpfaenger.KdName = Nothing - Me.kdFirmaEmpfaenger.KdNr = "-1" - Me.kdFirmaEmpfaenger.kdNrField = Nothing - Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing - Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaEmpfaenger.MaxLength = 35 - Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" - Me.kdFirmaEmpfaenger.nurAktive = True - Me.kdFirmaEmpfaenger.searchActive = True - Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaEmpfaenger.TabIndex = 3 - Me.kdFirmaEmpfaenger.TabStop = False - Me.kdFirmaEmpfaenger.TIMER_SEARCH = True - Me.kdFirmaEmpfaenger.usrcntl = Nothing - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton2.Location = New System.Drawing.Point(382, 0) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(24, 25) - Me.FlatButton2.TabIndex = 2 - Me.FlatButton2.TabStop = False - Me.FlatButton2.UseVisualStyleBackColor = True - ' - 'cboSteuerschlüssel - ' - Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing - Me.cboSteuerschlüssel._allowFreiText = False - Me.cboSteuerschlüssel._value = "" - Me.cboSteuerschlüssel.CausesValidation = False - Me.cboSteuerschlüssel.DropDownWidth = 350 - Me.cboSteuerschlüssel.FormattingEnabled = True - Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) - Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" - Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) - Me.cboSteuerschlüssel.TabIndex = 3 - ' - 'txtSteuersatz - ' - Me.txtSteuersatz._DateTimeOnly = False - Me.txtSteuersatz._numbersOnly = False - Me.txtSteuersatz._numbersOnlyKommastellen = "" - Me.txtSteuersatz._numbersOnlyTrennzeichen = True - Me.txtSteuersatz._Prozent = True - Me.txtSteuersatz._ShortDateNew = False - Me.txtSteuersatz._ShortDateOnly = False - Me.txtSteuersatz._TimeOnly = False - Me.txtSteuersatz._TimeOnly_Seconds = False - Me.txtSteuersatz._value = Nothing - Me.txtSteuersatz._Waehrung = False - Me.txtSteuersatz._WaehrungZeichen = True - Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black - Me.txtSteuersatz.Location = New System.Drawing.Point(603, 30) - Me.txtSteuersatz.MaxLineLength = -1 - Me.txtSteuersatz.MaxLines_Warning = "" - Me.txtSteuersatz.MaxLines_Warning_Label = Nothing - Me.txtSteuersatz.Multiline = True - Me.txtSteuersatz.Name = "txtSteuersatz" - Me.txtSteuersatz.ReadOnly = True - Me.txtSteuersatz.Size = New System.Drawing.Size(61, 21) - Me.txtSteuersatz.TabIndex = 4 - Me.txtSteuersatz.Text = "0,00 %" - Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerFreierBetrag - ' - Me.txtSteuerFreierBetrag._DateTimeOnly = False - Me.txtSteuerFreierBetrag._numbersOnly = False - Me.txtSteuerFreierBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerFreierBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerFreierBetrag._Prozent = False - Me.txtSteuerFreierBetrag._ShortDateNew = False - Me.txtSteuerFreierBetrag._ShortDateOnly = False - Me.txtSteuerFreierBetrag._TimeOnly = False - Me.txtSteuerFreierBetrag._TimeOnly_Seconds = False - Me.txtSteuerFreierBetrag._value = "" - Me.txtSteuerFreierBetrag._Waehrung = True - Me.txtSteuerFreierBetrag._WaehrungZeichen = False - Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) - Me.txtSteuerFreierBetrag.MaxLength = 35 - Me.txtSteuerFreierBetrag.MaxLineLength = -1 - Me.txtSteuerFreierBetrag.MaxLines_Warning = "" - Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" - Me.txtSteuerFreierBetrag.ReadOnly = True - Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerFreierBetrag.TabIndex = 10 - Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtGesamtsumme - ' - Me.txtGesamtsumme._DateTimeOnly = False - Me.txtGesamtsumme._numbersOnly = False - Me.txtGesamtsumme._numbersOnlyKommastellen = "" - Me.txtGesamtsumme._numbersOnlyTrennzeichen = True - Me.txtGesamtsumme._Prozent = False - Me.txtGesamtsumme._ShortDateNew = False - Me.txtGesamtsumme._ShortDateOnly = False - Me.txtGesamtsumme._TimeOnly = False - Me.txtGesamtsumme._TimeOnly_Seconds = False - Me.txtGesamtsumme._value = "" - Me.txtGesamtsumme._Waehrung = True - Me.txtGesamtsumme._WaehrungZeichen = False - Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black - Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) - Me.txtGesamtsumme.MaxLength = 35 - Me.txtGesamtsumme.MaxLineLength = -1 - Me.txtGesamtsumme.MaxLines_Warning = "" - Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing - Me.txtGesamtsumme.Name = "txtGesamtsumme" - Me.txtGesamtsumme.ReadOnly = True - Me.txtGesamtsumme.Size = New System.Drawing.Size(98, 20) - Me.txtGesamtsumme.TabIndex = 12 - Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerBetrag - ' - Me.txtSteuerBetrag._DateTimeOnly = False - Me.txtSteuerBetrag._numbersOnly = False - Me.txtSteuerBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerBetrag._Prozent = False - Me.txtSteuerBetrag._ShortDateNew = False - Me.txtSteuerBetrag._ShortDateOnly = False - Me.txtSteuerBetrag._TimeOnly = False - Me.txtSteuerBetrag._TimeOnly_Seconds = False - Me.txtSteuerBetrag._value = "" - Me.txtSteuerBetrag._Waehrung = True - Me.txtSteuerBetrag._WaehrungZeichen = False - Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) - Me.txtSteuerBetrag.MaxLength = 35 - Me.txtSteuerBetrag.MaxLineLength = -1 - Me.txtSteuerBetrag.MaxLines_Warning = "" - Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerBetrag.Name = "txtSteuerBetrag" - Me.txtSteuerBetrag.ReadOnly = True - Me.txtSteuerBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerBetrag.TabIndex = 8 - Me.txtSteuerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerpflichtigerBetrag - ' - Me.txtSteuerpflichtigerBetrag._DateTimeOnly = False - Me.txtSteuerpflichtigerBetrag._numbersOnly = False - Me.txtSteuerpflichtigerBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerpflichtigerBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerpflichtigerBetrag._Prozent = False - Me.txtSteuerpflichtigerBetrag._ShortDateNew = False - Me.txtSteuerpflichtigerBetrag._ShortDateOnly = False - Me.txtSteuerpflichtigerBetrag._TimeOnly = False - Me.txtSteuerpflichtigerBetrag._TimeOnly_Seconds = False - Me.txtSteuerpflichtigerBetrag._value = "" - Me.txtSteuerpflichtigerBetrag._Waehrung = True - Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = False - Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) - Me.txtSteuerpflichtigerBetrag.MaxLength = 35 - Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 - Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" - Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" - Me.txtSteuerpflichtigerBetrag.ReadOnly = True - Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerpflichtigerBetrag.TabIndex = 6 - Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtBesonderheiten - ' - Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) - Me.txtBesonderheiten.MaxLineLength = -1 - Me.txtBesonderheiten.MaxLines_Warning = "" - Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing - Me.txtBesonderheiten.Name = "txtBesonderheiten" - Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) - Me.txtBesonderheiten.TabIndex = 1 - Me.txtBesonderheiten.Text = "" - ' - 'cboRgGS - ' - Me.cboRgGS._allowedValuesFreiText = Nothing - Me.cboRgGS._allowFreiText = False - Me.cboRgGS._value = "" - Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) - Me.cboRgGS.ForeColor = System.Drawing.Color.White - Me.cboRgGS.FormattingEnabled = True - Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) - Me.cboRgGS.Location = New System.Drawing.Point(3, -1) - Me.cboRgGS.Name = "cboRgGS" - Me.cboRgGS.Size = New System.Drawing.Size(211, 33) - Me.cboRgGS.TabIndex = 26 - Me.cboRgGS.Text = "Rechnung" - ' - 'cboSpedBuchUnterNr - ' - Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing - Me.cboSpedBuchUnterNr._allowFreiText = False - Me.cboSpedBuchUnterNr._value = "" - Me.cboSpedBuchUnterNr.DropDownWidth = 350 - Me.cboSpedBuchUnterNr.FormattingEnabled = True - Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) - Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) - Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" - Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) - Me.cboSpedBuchUnterNr.TabIndex = 5 - ' - 'txtUnterNr - ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._numbersOnlyTrennzeichen = True - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._TimeOnly_Seconds = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.ReadOnly = True - Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) - Me.txtUnterNr.TabIndex = 7 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 280 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(8, 48) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 21) - Me.cboFiliale.TabIndex = 3 - ' - '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 Tai Le", 8.0!) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) - Me.txtAbfertigungsnummer.MaxLength = 8 - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummer.TabIndex = 4 - ' - 'rtbAbf_Besonderheiten - ' - Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White - Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) - Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" - Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) - Me.rtbAbf_Besonderheiten.TabIndex = 235 - Me.rtbAbf_Besonderheiten.Visible = False - ' 'usrCntlFaktAbrechnung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4074,6 +4074,7 @@ Partial Class usrCntlFaktAbrechnung Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.ContextMenuStrip3.ResumeLayout(False) + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() Me.pnlAvisierer.ResumeLayout(False) @@ -4090,7 +4091,9 @@ Partial Class usrCntlFaktAbrechnung Me.Panel7.ResumeLayout(False) Me.Panel7.PerformLayout() CType(Me.picVK, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlEmpfaenger.ResumeLayout(False) Me.pnlEmpfaenger.PerformLayout() Me.pnl.ResumeLayout(False) @@ -4102,9 +4105,6 @@ Partial Class usrCntlFaktAbrechnung Me.CntxtAbfArt.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 163c92b6..36fbed46 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -574,7 +574,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( Case "AMBAR" Select Case art Case "3", "4" 'Export - myCredentials.UserName = "office@ambarlog.de" + myCredentials.UserName = "export@ambarlog.de" ' myCredentials.Password = "Naq30716" ' myCredentials.UserName = "import@ambarlog.com" myCredentials.Password = "Naq30716" @@ -584,7 +584,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( 'text = text.replace("import@ambarlog.com", "office@ambarlog.com") 'text = text.replace("import@ambarlog.de", "office@ambarlog.com") - eMailfrom = "office@ambarlog.de" + eMailfrom = "export@ambarlog.de" Case Else ' myCredentials.UserName = "import@ambarlog.com" From f8e20b5f601166fe4bb61897b1224ca90e909904 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Jan 2026 09:06:59 +0100 Subject: [PATCH 10/13] =?UTF-8?q?div.=20Plausibilit=C3=A4tspr=C3=BCfungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/buchhaltung/usrCntlBH.Designer.vb | 175 +++++++++++++++++++++++++- SDL/buchhaltung/usrCntlBH.vb | 134 ++++++++++++++++++++ 2 files changed, 308 insertions(+), 1 deletion(-) diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index ebd71923..27f90d5d 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -25,6 +25,16 @@ 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.GroupBox13 = New System.Windows.Forms.GroupBox() + Me.btnfortlRENr = New System.Windows.Forms.Button() + Me.btnfehlendeBelege = New System.Windows.Forms.Button() + Me.btnBelegeOhnePOS = New System.Windows.Forms.Button() + Me.txtRE_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label59 = New System.Windows.Forms.Label() + Me.txtRE_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxFirma_RE = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label60 = New System.Windows.Forms.Label() + Me.Label58 = New System.Windows.Forms.Label() Me.btn_fehlendeUID = New System.Windows.Forms.Button() Me.lblUID_zupruefen = New System.Windows.Forms.Label() Me.Label53 = New System.Windows.Forms.Label() @@ -166,6 +176,7 @@ Partial Class usrCntlBH Me.Label51 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.TabPage1.SuspendLayout() + Me.GroupBox13.SuspendLayout() Me.GroupBox12.SuspendLayout() Me.GroupBox10.SuspendLayout() Me.GroupBox8.SuspendLayout() @@ -209,6 +220,8 @@ Partial Class usrCntlBH 'TabPage1 ' Me.TabPage1.AutoScroll = True + Me.TabPage1.Controls.Add(Me.GroupBox13) + Me.TabPage1.Controls.Add(Me.Label58) Me.TabPage1.Controls.Add(Me.btn_fehlendeUID) Me.TabPage1.Controls.Add(Me.lblUID_zupruefen) Me.TabPage1.Controls.Add(Me.Label53) @@ -236,6 +249,154 @@ Partial Class usrCntlBH Me.TabPage1.Text = "Allgemein" Me.TabPage1.UseVisualStyleBackColor = True ' + 'GroupBox13 + ' + Me.GroupBox13.Controls.Add(Me.btnfortlRENr) + Me.GroupBox13.Controls.Add(Me.btnfehlendeBelege) + Me.GroupBox13.Controls.Add(Me.btnBelegeOhnePOS) + Me.GroupBox13.Controls.Add(Me.txtRE_Jahr) + Me.GroupBox13.Controls.Add(Me.Label59) + Me.GroupBox13.Controls.Add(Me.txtRE_Monat) + Me.GroupBox13.Controls.Add(Me.cbxFirma_RE) + Me.GroupBox13.Controls.Add(Me.Label60) + Me.GroupBox13.Location = New System.Drawing.Point(480, 21) + Me.GroupBox13.Name = "GroupBox13" + Me.GroupBox13.Size = New System.Drawing.Size(372, 79) + Me.GroupBox13.TabIndex = 39 + Me.GroupBox13.TabStop = False + ' + 'btnfortlRENr + ' + Me.btnfortlRENr.Enabled = False + Me.btnfortlRENr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnfortlRENr.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnfortlRENr.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnfortlRENr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnfortlRENr.Location = New System.Drawing.Point(236, 56) + Me.btnfortlRENr.Name = "btnfortlRENr" + Me.btnfortlRENr.Size = New System.Drawing.Size(130, 22) + Me.btnfortlRENr.TabIndex = 42 + Me.btnfortlRENr.Text = "ReNr fortl." + Me.btnfortlRENr.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnfortlRENr.UseVisualStyleBackColor = True + ' + 'btnfehlendeBelege + ' + Me.btnfehlendeBelege.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnfehlendeBelege.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnfehlendeBelege.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnfehlendeBelege.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnfehlendeBelege.Location = New System.Drawing.Point(236, 32) + Me.btnfehlendeBelege.Name = "btnfehlendeBelege" + Me.btnfehlendeBelege.Size = New System.Drawing.Size(130, 22) + Me.btnfehlendeBelege.TabIndex = 41 + Me.btnfehlendeBelege.Text = "fehlende Belege" + Me.btnfehlendeBelege.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnfehlendeBelege.UseVisualStyleBackColor = True + ' + 'btnBelegeOhnePOS + ' + Me.btnBelegeOhnePOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBelegeOhnePOS.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnBelegeOhnePOS.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnBelegeOhnePOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBelegeOhnePOS.Location = New System.Drawing.Point(236, 8) + Me.btnBelegeOhnePOS.Name = "btnBelegeOhnePOS" + Me.btnBelegeOhnePOS.Size = New System.Drawing.Size(130, 22) + Me.btnBelegeOhnePOS.TabIndex = 40 + Me.btnBelegeOhnePOS.Text = "Belege ohne POS" + Me.btnBelegeOhnePOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnBelegeOhnePOS.UseVisualStyleBackColor = True + ' + 'txtRE_Jahr + ' + Me.txtRE_Jahr._DateTimeOnly = False + Me.txtRE_Jahr._numbersOnly = True + Me.txtRE_Jahr._numbersOnlyKommastellen = "" + Me.txtRE_Jahr._numbersOnlyTrennzeichen = False + Me.txtRE_Jahr._Prozent = False + Me.txtRE_Jahr._ShortDateNew = False + Me.txtRE_Jahr._ShortDateOnly = False + Me.txtRE_Jahr._TimeOnly = False + Me.txtRE_Jahr._TimeOnly_Seconds = False + Me.txtRE_Jahr._value = "" + Me.txtRE_Jahr._Waehrung = False + Me.txtRE_Jahr._WaehrungZeichen = False + Me.txtRE_Jahr.ForeColor = System.Drawing.Color.Black + Me.txtRE_Jahr.Location = New System.Drawing.Point(108, 13) + Me.txtRE_Jahr.MaxLength = 4 + Me.txtRE_Jahr.MaxLineLength = -1 + Me.txtRE_Jahr.MaxLines_Warning = "" + Me.txtRE_Jahr.MaxLines_Warning_Label = Nothing + Me.txtRE_Jahr.Name = "txtRE_Jahr" + Me.txtRE_Jahr.Size = New System.Drawing.Size(64, 20) + Me.txtRE_Jahr.TabIndex = 39 + Me.txtRE_Jahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label59 + ' + Me.Label59.AutoSize = True + Me.Label59.Location = New System.Drawing.Point(6, 16) + Me.Label59.Name = "Label59" + Me.Label59.Size = New System.Drawing.Size(62, 13) + Me.Label59.TabIndex = 38 + Me.Label59.Text = "Monat/Jahr" + ' + 'txtRE_Monat + ' + Me.txtRE_Monat._DateTimeOnly = False + Me.txtRE_Monat._numbersOnly = True + Me.txtRE_Monat._numbersOnlyKommastellen = "" + Me.txtRE_Monat._numbersOnlyTrennzeichen = False + Me.txtRE_Monat._Prozent = False + Me.txtRE_Monat._ShortDateNew = False + Me.txtRE_Monat._ShortDateOnly = False + Me.txtRE_Monat._TimeOnly = False + Me.txtRE_Monat._TimeOnly_Seconds = False + Me.txtRE_Monat._value = "" + Me.txtRE_Monat._Waehrung = False + Me.txtRE_Monat._WaehrungZeichen = False + Me.txtRE_Monat.ForeColor = System.Drawing.Color.Black + Me.txtRE_Monat.Location = New System.Drawing.Point(74, 13) + Me.txtRE_Monat.MaxLength = 2 + Me.txtRE_Monat.MaxLineLength = -1 + Me.txtRE_Monat.MaxLines_Warning = "" + Me.txtRE_Monat.MaxLines_Warning_Label = Nothing + Me.txtRE_Monat.Name = "txtRE_Monat" + Me.txtRE_Monat.Size = New System.Drawing.Size(24, 20) + Me.txtRE_Monat.TabIndex = 35 + Me.txtRE_Monat.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cbxFirma_RE + ' + Me.cbxFirma_RE._allowedValuesFreiText = Nothing + Me.cbxFirma_RE._allowFreiText = False + Me.cbxFirma_RE._value = "" + Me.cbxFirma_RE.FormattingEnabled = True + Me.cbxFirma_RE.Location = New System.Drawing.Point(47, 34) + Me.cbxFirma_RE.Name = "cbxFirma_RE" + Me.cbxFirma_RE.Size = New System.Drawing.Size(125, 21) + Me.cbxFirma_RE.TabIndex = 36 + ' + 'Label60 + ' + Me.Label60.AutoSize = True + Me.Label60.Location = New System.Drawing.Point(6, 38) + Me.Label60.Name = "Label60" + Me.Label60.Size = New System.Drawing.Size(35, 13) + Me.Label60.TabIndex = 37 + Me.Label60.Text = "Firma:" + ' + 'Label58 + ' + Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label58.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label58.Location = New System.Drawing.Point(479, 3) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(298, 18) + Me.Label58.TabIndex = 38 + Me.Label58.Text = "BELEGE PRÜFEN" + ' 'btn_fehlendeUID ' Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -714,7 +875,7 @@ Partial Class usrCntlBH Me.GroupBox2.Controls.Add(Me.Button1) Me.GroupBox2.Location = New System.Drawing.Point(6, 15) Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(847, 86) + Me.GroupBox2.Size = New System.Drawing.Size(461, 86) Me.GroupBox2.TabIndex = 4 Me.GroupBox2.TabStop = False ' @@ -2103,6 +2264,8 @@ Partial Class usrCntlBH Me.pnl.PerformLayout() Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + Me.GroupBox13.ResumeLayout(False) + Me.GroupBox13.PerformLayout() Me.GroupBox12.ResumeLayout(False) Me.GroupBox12.PerformLayout() Me.GroupBox10.ResumeLayout(False) @@ -2282,4 +2445,14 @@ Partial Class usrCntlBH Friend WithEvents txtZRvon As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtZRbis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label51 As Label + Friend WithEvents GroupBox13 As GroupBox + Friend WithEvents btnfehlendeBelege As Button + Friend WithEvents btnBelegeOhnePOS As Button + Friend WithEvents txtRE_Jahr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label59 As Label + Friend WithEvents txtRE_Monat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxFirma_RE As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label60 As Label + Friend WithEvents Label58 As Label + Friend WithEvents btnfortlRENr As Button End Class diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 070bc413..53f18943 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -29,6 +29,11 @@ Public Class usrCntlBH cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + cbxFirma_RE.fillWithSQL("SELECT Firma_ID, Firma_Bez FROM [VERAG].[dbo].[tblFirma] where Firmengruppe in ('VERAG', 'AMBAR', 'VERAG360', 'ATILLA')", False, "FMZOLL", True) + + txtRE_Jahr.Text = Now().Year + txtRE_Monat.Text = Now().Month + cbxFirmaUID.Items.Add(New MyListItem("AMBAR", "AMBAR")) cbxFirmaUID.Items.Add(New MyListItem("IMEX", "IMEX")) cbxFirmaUID.Items.Add(New MyListItem("ATILLA", "ATILLA")) @@ -1452,5 +1457,134 @@ Public Class usrCntlBH End If End Sub + Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnBelegeOhnePOS.Click, btnfehlendeBelege.Click, btnfortlRENr.Click + + Try + + If txtRE_Jahr.Text <> "" AndAlso IsNumeric(txtRE_Jahr.Text) AndAlso txtRE_Jahr.Text.Length = 4 Then + + If txtRE_Monat.Text = "" OrElse txtRE_Monat.Text <> "" AndAlso IsNumeric(txtRE_Monat.Text) AndAlso CInt(txtRE_Monat.Text) > 0 AndAlso CInt(txtRE_Monat.Text) < 13 Then + Dim Bezeichnung As String = "" + Dim SQL_RE As String = "" + + Select Case sender.Name + + + Case "btnfehlendeBelege" + + If cbxFirma_RE._value = "" Then MsgBox("Es muss eine Firma angegeben werden!") : Exit Sub + + Bezeichnung = "fehlende BELEGE von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & txtRE_Monat.Text & "/" & txtRE_Jahr.Text + + SQL_RE = "DECLARE @Month INT = " & txtRE_Monat.Text & "; + DECLARE @Year INT = " & txtRE_Jahr.Text & "; + DECLARE @FirmaID INT = " & cbxFirma_RE._value & "; + + SELECT DISTINCT + REPLACE( + REPLACE( + REPLACE(da.da_name, 'Rechnung_', ''), + '.pdf', ''), + 'Gutschrift_', '') AS RechnungsNr, da_name as Bezeichnung + FROM tblDatenarchiv da + WHERE da.da_kategorie = 'Rechnungen' + AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR) + AND da.da_uOrdner1 = CAST(@Year AS VARCHAR) + '_' + CAST(@Month AS VARCHAR) + AND LEFT(da.da_name, 6) <> 'Sammel' + AND NOT EXISTS ( + SELECT 1 + FROM Rechnungsausgang ra + WHERE ra.RechnungsNr = + REPLACE( + REPLACE( + REPLACE(da.da_name, 'Rechnung_', ''), + '.pdf', ''), + 'Gutschrift_', '') + AND MONTH(ra.RechnungsDatum) = @Month + AND YEAR(ra.RechnungsDatum) = @Year + AND ra.Firma_ID = @FirmaID + AND ra.Sammelrechnung = 0 + ) UNION + + + + SELECT DISTINCT + REPLACE( + REPLACE(da.da_name, 'Sammelrechnung_', ''), + '.pdf', '') AS RechnungsNr, da_name as Bezeichnung + FROM tblDatenarchiv da + WHERE da.da_kategorie = 'Rechnungen' + AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR) + AND da.da_uOrdner1 = CAST(@Year AS VARCHAR) + '_' + CAST(@Month AS VARCHAR) + AND LEFT(da.da_name, 6) = 'Sammel' + AND NOT EXISTS ( + SELECT 1 + FROM Rechnungsausgang ra + WHERE ra.RechnungsNr = + REPLACE( + REPLACE(da.da_name, 'Sammelrechnung_', ''), + '.pdf', '') + AND MONTH(ra.RechnungsDatum) = @Month + AND YEAR(ra.RechnungsDatum) = @Year + AND ra.Firma_ID = @FirmaID + AND ra.Sammelrechnung <> 0 + );" + + + Case "btnBelegeOhnePOS" + Bezeichnung = "BELEGE ohne Positionen" & IIf(cbxFirma_RE._value <> "", " von " & cbxFirma_RE.SelectedItem.Text, "") & " Zeitraum: " & txtRE_Monat.Text & "/" & txtRE_Jahr.Text + SQL_RE = "Select * From Rechnungsausgang r Where YEAR(r.RechnungsDatum) = " & txtRE_Jahr.Text & " AND MONTH(r.RechnungsDatum) = " & txtRE_Monat.Text & " AND Not EXISTS( SELECT 1 From RechnungsausgangPositionen p Where p.RK_ID = r.RK_ID) " & IIf(cbxFirma_RE._value <> "", " AND r.[Firma_ID] = " & cbxFirma_RE._value, "") + + Case "btnfortlRENr" + If cbxFirma_RE._value = "" Then MsgBox("Es muss eine Firma angegeben werden!") : Exit Sub + + Dim ignoreMonth As Boolean = False + + If vbYes = MsgBox("Möchten Sie die fortlaufende Re-Nr für das Gesamtjahr " & txtRE_Jahr.Text & " prüfen?", vbYesNoCancel) Then ignoreMonth = True + + + Bezeichnung = "Lücken in der fortl. Belegnummerierung von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & IIf(Not ignoreMonth, txtRE_Monat.Text & "/" & txtRE_Jahr.Text, txtRE_Jahr.Text) + SQL_RE = "WITH Nummern AS ( + SELECT + RechnungsNr, + LEAD(RechnungsNr) OVER (ORDER BY RechnungsNr) AS NextRechnungsNr + FROM Rechnungsausgang + WHERE Firma_ID = " & cbxFirma_RE._value & " + AND YEAR(RechnungsDatum) = " & txtRE_Jahr.Text & IIf(Not ignoreMonth, " and Month(RechnungsDatum) = " & txtRE_Monat.Text, "") & + " GROUP BY RechnungsNr + ) + SELECT + RechnungsNr + 1 AS FehlendeVon, + NextRechnungsNr - 1 AS FehlendeBis + FROM Nummern + WHERE NextRechnungsNr IS NOT NULL + AND NextRechnungsNr > RechnungsNr + 1 + ORDER BY FehlendeVon;" + + End Select + + Me.Cursor = Cursors.WaitCursor + Dim dt_RE As DataTable = SQL.loadDgvBySql(SQL_RE, "FMZOLL") + + If dt_RE.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, Bezeichnung,,, True) + Me.Cursor = Cursors.Default + Else + MsgBox("keine Daten für den ausgewählten Zeitraum!") + Me.Cursor = Cursors.Default + End If + + End If + + End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try + + End Sub + End Class From e83dc3987056698efa0b390b4140bc80b7c11fcf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Jan 2026 09:24:54 +0100 Subject: [PATCH 11/13] div. GUI Anpassungen im BH --- SDL/buchhaltung/usrCntlBH.Designer.vb | 1 + SDL/buchhaltung/usrCntlBH.vb | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 27f90d5d..71fb0f66 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -372,6 +372,7 @@ Partial Class usrCntlBH Me.cbxFirma_RE._allowedValuesFreiText = Nothing Me.cbxFirma_RE._allowFreiText = False Me.cbxFirma_RE._value = "" + Me.cbxFirma_RE.DropDownWidth = 200 Me.cbxFirma_RE.FormattingEnabled = True Me.cbxFirma_RE.Location = New System.Drawing.Point(47, 34) Me.cbxFirma_RE.Name = "cbxFirma_RE" diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 53f18943..9e01afb2 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -29,7 +29,7 @@ Public Class usrCntlBH cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - cbxFirma_RE.fillWithSQL("SELECT Firma_ID, Firma_Bez FROM [VERAG].[dbo].[tblFirma] where Firmengruppe in ('VERAG', 'AMBAR', 'VERAG360', 'ATILLA')", False, "FMZOLL", True) + cbxFirma_RE.fillWithSQL("SELECT Firma_ID, Firma_Bez FROM [VERAG].[dbo].[tblFirma] where Firma_ID in (1,4,7,11,19,20,21,22,23,24,26)", False, "FMZOLL", True) txtRE_Jahr.Text = Now().Year txtRE_Monat.Text = Now().Month @@ -1473,6 +1473,7 @@ Public Class usrCntlBH Case "btnfehlendeBelege" If cbxFirma_RE._value = "" Then MsgBox("Es muss eine Firma angegeben werden!") : Exit Sub + If CInt(txtRE_Jahr.Text) < 2026 Then MsgBox("Erst ab Jahr 2026 möglich!") : Exit Sub Bezeichnung = "fehlende BELEGE von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & txtRE_Monat.Text & "/" & txtRE_Jahr.Text From 9c8f6c626f2b68907abab462a4e94f6093496543 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Jan 2026 13:42:12 +0100 Subject: [PATCH 12/13] =?UTF-8?q?Kundenkontakte,=20pr=C3=BCfung=20ob=20kor?= =?UTF-8?q?rekte=20Email.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../frmKundenKontakteDetails.Designer.vb | 128 ++++--- SDL/kunden/frmKundenKontakteDetails.resx | 321 +++++++++--------- SDL/kunden/frmKundenKontakteDetails.vb | 51 ++- SDL/kunden/usrCntlKundenKontakte.vb | 17 +- .../Classes/cKundenKontakte.vb | 4 + VERAG_PROG_ALLGEMEIN/cAllgemein.vb | 5 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 21 ++ 7 files changed, 336 insertions(+), 211 deletions(-) diff --git a/SDL/kunden/frmKundenKontakteDetails.Designer.vb b/SDL/kunden/frmKundenKontakteDetails.Designer.vb index 41420a8a..10f9525b 100644 --- a/SDL/kunden/frmKundenKontakteDetails.Designer.vb +++ b/SDL/kunden/frmKundenKontakteDetails.Designer.vb @@ -55,16 +55,20 @@ Partial Class frmKundenKontakteDetails Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.lblAnsprechpartnerNN = New System.Windows.Forms.TextBox() Me.pnlGeschaeftsfuehrer = New System.Windows.Forms.Panel() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.cbxGeburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label5 = New System.Windows.Forms.Label() + Me.txtGeburtsort = New System.Windows.Forms.TextBox() Me.txtPassgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label4 = New System.Windows.Forms.Label() Me.PictureBox9 = New System.Windows.Forms.PictureBox() Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlMain = New System.Windows.Forms.Panel() - Me.txtGeburtsort = New System.Windows.Forms.TextBox() - Me.cbxGeburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() + Me.lblSachbearbeiter = New System.Windows.Forms.Label() + Me.lblAenderung = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() Me.pnlKontakt.SuspendLayout() CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() @@ -463,6 +467,37 @@ Partial Class frmKundenKontakteDetails Me.pnlGeschaeftsfuehrer.TabIndex = 11 Me.pnlGeschaeftsfuehrer.Visible = False ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(4, 42) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(59, 13) + Me.Label7.TabIndex = 270 + Me.Label7.Text = "Geburtsort:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(268, 42) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(67, 13) + Me.Label6.TabIndex = 269 + Me.Label6.Text = "Geburtsland:" + ' + 'cbxGeburtsland + ' + Me.cbxGeburtsland._allowedValuesFreiText = Nothing + Me.cbxGeburtsland._allowFreiText = False + Me.cbxGeburtsland._value = "" + Me.cbxGeburtsland.DropDownWidth = 150 + Me.cbxGeburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) + Me.cbxGeburtsland.FormattingEnabled = True + Me.cbxGeburtsland.Location = New System.Drawing.Point(354, 35) + Me.cbxGeburtsland.Name = "cbxGeburtsland" + Me.cbxGeburtsland.Size = New System.Drawing.Size(140, 26) + Me.cbxGeburtsland.TabIndex = 268 + ' 'Label5 ' Me.Label5.AutoSize = True @@ -472,6 +507,17 @@ Partial Class frmKundenKontakteDetails Me.Label5.TabIndex = 266 Me.Label5.Text = "Pass gültig bis.:" ' + 'txtGeburtsort + ' + Me.txtGeburtsort.BackColor = System.Drawing.Color.White + Me.txtGeburtsort.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtGeburtsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtGeburtsort.Location = New System.Drawing.Point(77, 35) + Me.txtGeburtsort.Name = "txtGeburtsort" + Me.txtGeburtsort.Size = New System.Drawing.Size(183, 26) + Me.txtGeburtsort.TabIndex = 268 + Me.txtGeburtsort.Text = "geburtsort" + ' 'txtPassgueltigbis ' Me.txtPassgueltigbis._DateTimeOnly = False @@ -548,6 +594,10 @@ Partial Class frmKundenKontakteDetails ' 'pnlMain ' + Me.pnlMain.Controls.Add(Me.lblSachbearbeiter) + Me.pnlMain.Controls.Add(Me.lblAenderung) + Me.pnlMain.Controls.Add(Me.Label26) + Me.pnlMain.Controls.Add(Me.Label23) Me.pnlMain.Controls.Add(Me.lbl) Me.pnlMain.Controls.Add(Me.btn) Me.pnlMain.Controls.Add(Me.pnlGeschaeftsfuehrer) @@ -558,47 +608,45 @@ Partial Class frmKundenKontakteDetails Me.pnlMain.Size = New System.Drawing.Size(513, 433) Me.pnlMain.TabIndex = 12 ' - 'txtGeburtsort + 'lblSachbearbeiter ' - Me.txtGeburtsort.BackColor = System.Drawing.Color.White - Me.txtGeburtsort.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.txtGeburtsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtGeburtsort.Location = New System.Drawing.Point(77, 35) - Me.txtGeburtsort.Name = "txtGeburtsort" - Me.txtGeburtsort.Size = New System.Drawing.Size(183, 26) - Me.txtGeburtsort.TabIndex = 268 - Me.txtGeburtsort.Text = "geburtsort" + Me.lblSachbearbeiter.AutoSize = True + Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSachbearbeiter.Location = New System.Drawing.Point(124, 409) + Me.lblSachbearbeiter.Name = "lblSachbearbeiter" + Me.lblSachbearbeiter.Size = New System.Drawing.Size(10, 13) + Me.lblSachbearbeiter.TabIndex = 17 + Me.lblSachbearbeiter.Text = "-" ' - 'cbxGeburtsland + 'lblAenderung ' - Me.cbxGeburtsland._allowedValuesFreiText = Nothing - Me.cbxGeburtsland._allowFreiText = False - Me.cbxGeburtsland._value = "" - Me.cbxGeburtsland.DropDownWidth = 150 - Me.cbxGeburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) - Me.cbxGeburtsland.FormattingEnabled = True - Me.cbxGeburtsland.Location = New System.Drawing.Point(354, 35) - Me.cbxGeburtsland.Name = "cbxGeburtsland" - Me.cbxGeburtsland.Size = New System.Drawing.Size(140, 26) - Me.cbxGeburtsland.TabIndex = 268 + Me.lblAenderung.AutoSize = True + Me.lblAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAenderung.Location = New System.Drawing.Point(124, 394) + Me.lblAenderung.Name = "lblAenderung" + Me.lblAenderung.Size = New System.Drawing.Size(10, 13) + Me.lblAenderung.TabIndex = 15 + Me.lblAenderung.Text = "-" ' - 'Label6 + 'Label26 ' - Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(268, 42) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(67, 13) - Me.Label6.TabIndex = 269 - Me.Label6.Text = "Geburtsland:" + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(3, 409) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(117, 13) + Me.Label26.TabIndex = 16 + Me.Label26.Text = "Letzter Sachbearbeiter:" ' - 'Label7 + 'Label23 ' - Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(4, 42) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(59, 13) - Me.Label7.TabIndex = 270 - Me.Label7.Text = "Geburtsort:" + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(3, 394) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(90, 13) + Me.Label23.TabIndex = 14 + Me.Label23.Text = "Änderungsdatum:" ' 'frmKundenKontakteDetails ' @@ -676,4 +724,8 @@ Partial Class frmKundenKontakteDetails Friend WithEvents Label7 As Label Friend WithEvents Label6 As Label Friend WithEvents cbxGeburtsland As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblSachbearbeiter As Label + Friend WithEvents lblAenderung As Label + Friend WithEvents Label26 As Label + Friend WithEvents Label23 As Label End Class diff --git a/SDL/kunden/frmKundenKontakteDetails.resx b/SDL/kunden/frmKundenKontakteDetails.resx index b3f30c96..5e82f36e 100644 --- a/SDL/kunden/frmKundenKontakteDetails.resx +++ b/SDL/kunden/frmKundenKontakteDetails.resx @@ -120,179 +120,178 @@ - iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t - 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA - AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2 - VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp - pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom - HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC - hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983 - JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ - ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH - fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M - qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G - nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv - bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB - Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr - uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0 - FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2 - ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC - mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa - Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU - qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ - 264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc - eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78 - ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji - Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A - bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT - DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6 - 8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN - 1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw - vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4 - TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0 - px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr - 8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H - P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS - +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf - 4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w - uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3 - nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj - 27d/ABBabbXEUZDWAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACGhJREFUeF7t + 3YutHLkRBdAJxaE4FGfiUByKQ3EoXtRCtKVezb8/rMtzgAsstPu00kw3WSyyZ243AAAAAAAAAAAAAAAA + AAAAAAAAAAAAdvO32+3299vt9o8f+edP+ddvMv7d+O/rZ+v3ACZWN+m4ef99u93+c7vd/rtj6ver1O9d + A8UYHICTjVl93Ozbm/XMjEGh/iwGBDjImOGvvuGfZVQK9We1dIAvdLnpH8VgAG/qftPfyxgMgI0x229v + msSoCuCHlW78bWogqB0FAwHLqYu+Lv7tTbFq6rWwi0C8lWf8V6IiIJYb/7VoFhKlStu9T+atkHrN6sQh + tFSlbOJ23tmp19CygFZq1t9eyPJ5LAtow1r/uBgEmJaS/5xUNWBJwFSqWbW9UOW4WBIwDQd6rotBgEsp + +a9PDcBwOjf/PKklAZxCs2/OaA5yuLrAnOqbNwYBDlMX1vaCk/liEGB3yv5eMQiwKzd/v2gMsgs3f98Y + BPiKm79/nBPgI0745cSJQd7icd68GAR4ie2+zFQ/wAeP8pR1f240BXnIh3nkR1OQ37LuXyeWAvzCun+t + OCnIL6z710u956D0XziWAni8d+HYFVicrr84ILSw7cUg60VDcFHO+suIswGL0fiTbTQEF2LbT7axLbgI + h37kXlQBC7D2l3vRC1jA9k0XGbEjEM6+vzyLKiCYU3/yLE4HhvIV3vJq6lohzOpbfzWz1WtQJW4thSp1 + oY/Ur1dWf50qtgQDbd/kFVI3fd3o725vVSOsfqZ+dtUB4d3XjImtVv7v/YBLDQirNVD3fg250Cqz2NEX + 7UoDgWVAkO2bm5Zau5+5f73KQGAZECC9/L+yY50+CBxdUXGC1L3/Wb7ooqqB1NfYMiDA9k1NyGxHVlMH + AYeCmkss/2edlWoQSGy2zlBl8aG0NepsM/9WYiWgD9BY2qO/HWajtM9bmLXi4gXbN7Nzruz2vytp6aUP + 0FTS5/51nIWSqq8OlRcbSbPQzOv+e5KWAvoADaXMQJ0/oCLlPTAANJRy8XWc/YeUKqDjEmx5CdtRnWf/ + IWEg1ghsaPsmdkzn2X9IqAIMAA1t38RuSbroEk4IJgzGy0jYAUgo/4eEE5m2AhtJGACSLriEMxmdDmIt + L2EASJLQBzAANNK95EzcdureB3AWoJHuA0DS+n/ovh1oAGik+8WWOAB0H5QNAI10HwASL7buA0DioByr + +wCQ2HDq3pg1ADRiAJiPAYDTdB8ALAHmiwGgke4XW+IA0H1QNgA00n0ASDwH0H0ASByUYxkA5uMgEKfp + PgAkPQk4bP+O3ZLYmI2V8PBJ0sNA3XcAKgaARhIGgKSSs/v6v+LzABpJePosaRmQ8PFsBoBmtm9gx6Qs + A7Z/r46hmYRZJ2HvOaH8T6rGltF926ky+5eBvmL7d+qYhIF4Od23Akc6X3wJs38lqSG7jISdgEpVAR17 + AQmN2BFbgA0lXYAdq4CEJdhI92XYsrZvZOd0KkMTDv78HJpKmoW6LAVSll4jHasvfkhpBI7MviuQtOwa + MQA0ljYbVWbek06quEY0ABtLnJEqs1UC9WdJvPkrM73OfCD1wqxBYIbZKbHKGkn8XIblpPUBfk4NAlfu + DqR1+7ex/g+QPEON1IV6Zqla/6+UU36PMkOFxZdS+wDbjGrgyIGgfu/kimobQqT2AX6XIwaC1W78ivI/ + SPpa9V5qMKgL+ZMDROOmT3is+pMo/4Ossgx4lLqRqxKqAaFSN3dd5JX650r9+krV0qPsWUExARe2vBPC + rLaGlc9j/R/IMkBejfI/lGWAPMvMz1rwJcsAeRbd/2CWAfIsyv9wlgFyLx7+WcCqh4LkeZT/C7AMkHth + EZYBso29/4Ws8IiwvJdPnpegMVWA/BwWoxkoI5p/C9IMlBF7/4ta4WOt5HE0/xamChDNv8VpBq4bJ/+w + JbhwNP/4cxmgClgz8CdbguvF7M//aAauF/iFKmCdXPl1akxKFbBOHPzhtxwMyo+DP9ylCsiP2Z+HVAG5 + MfvzlCogN2Z/XqIKyIvZn5epAvJi9uctqoCcmP15myogJ2Z/PuKrxPrHqT8+pgroH/iKZwT6xuzP16oK + qK+M3l5cMn9gF6qAfvG8P7vxqUG9UhUb7MpnB/aJT/rlEKqA+eOTfjmMbcH5Y/bnUI4IzxtHfjmcKmDe + OPLLKWwLzhfbfpzGtuBcse3H6WwLzhONPy6hIXh9NP64jIbg9dH441IagtfF035cTkPwmmj8MQ0NwfOj + 8cdUNATPi8Yf09EQPC8wJQ3B4+PEH1PTEDwuHvVlepYCx0XjjxYsBfaPPX/acDZg3yj9acdSYL8o/WnJ + V4t9H6U/bVkKfBfHfWnPUuDzKP2JYCnwfpT+xLAUeC9Kf+JYCrwepT+RLAWeR+lPLEuBx3Hgh3iWAvej + 9GcJlgJ/jdKfZVgK/BqlP8uxFPh/fLQ3S/LYsHU/i1v5w0SV/iyvyt86+ba9OdLjtB/8sOL3Cij94Scr + bQ3a8oONVbYGrfvhjhW2BpX+8EDy1qCbH16Q2A9Q+sOL0rYGbfnBm5L6AUp/+EBCP8DND1/ofFTYuh++ + 1LUfYN0PO+nYD1D6w4469QPc/HCADucDrPvhILM/L2DdDwebuR+g9IcTzNgPcPPDiWbqB3i+H042Sz9A + 0w8ucvUhIU0/uNiVTUHrfpjAFU1BNz9M5MymoKYfTOaspqCmH0zq6Kagph9M7simoHU/NHBEU9DND43s + 2RTU9IOG9vg4MU0/aOrbnQE3PzT36c5A/Uz9LNDcJzsDmn4Q5J2dATc/BHplZ0DHH4I9GgQ0/SDcvZ0B + Nz8sYrsz4Iw/LGYMArb7YFF14+v4AwAAAAAAAAAAAAAAAAAAAAAAAAAAnOUPEFpttRISJSgAAAAASUVO + RK5CYII= - iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t - 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA - AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2 - VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp - pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom - HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC - hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983 - JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ - ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH - fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M - qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G - nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv - bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB - Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr - uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0 - FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2 - ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC - mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa - Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU - qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ - 264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc - eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78 - ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji - Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A - bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT - DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6 - 8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN - 1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw - vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4 - TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0 - px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr - 8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H - P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS - +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf - 4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w - uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3 - nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj - 27d/ABBabbXEUZDWAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACGhJREFUeF7t + 3YutHLkRBdAJxaE4FGfiUByKQ3EoXtRCtKVezb8/rMtzgAsstPu00kw3WSyyZ243AAAAAAAAAAAAAAAA + AAAAAAAAAAAAdvO32+3299vt9o8f+edP+ddvMv7d+O/rZ+v3ACZWN+m4ef99u93+c7vd/rtj6ver1O9d + A8UYHICTjVl93Ozbm/XMjEGh/iwGBDjImOGvvuGfZVQK9We1dIAvdLnpH8VgAG/qftPfyxgMgI0x229v + msSoCuCHlW78bWogqB0FAwHLqYu+Lv7tTbFq6rWwi0C8lWf8V6IiIJYb/7VoFhKlStu9T+atkHrN6sQh + tFSlbOJ23tmp19CygFZq1t9eyPJ5LAtow1r/uBgEmJaS/5xUNWBJwFSqWbW9UOW4WBIwDQd6rotBgEsp + +a9PDcBwOjf/PKklAZxCs2/OaA5yuLrAnOqbNwYBDlMX1vaCk/liEGB3yv5eMQiwKzd/v2gMsgs3f98Y + BPiKm79/nBPgI0745cSJQd7icd68GAR4ie2+zFQ/wAeP8pR1f240BXnIh3nkR1OQ37LuXyeWAvzCun+t + OCnIL6z710u956D0XziWAni8d+HYFVicrr84ILSw7cUg60VDcFHO+suIswGL0fiTbTQEF2LbT7axLbgI + h37kXlQBC7D2l3vRC1jA9k0XGbEjEM6+vzyLKiCYU3/yLE4HhvIV3vJq6lohzOpbfzWz1WtQJW4thSp1 + oY/Ur1dWf50qtgQDbd/kFVI3fd3o725vVSOsfqZ+dtUB4d3XjImtVv7v/YBLDQirNVD3fg250Cqz2NEX + 7UoDgWVAkO2bm5Zau5+5f73KQGAZECC9/L+yY50+CBxdUXGC1L3/Wb7ooqqB1NfYMiDA9k1NyGxHVlMH + AYeCmkss/2edlWoQSGy2zlBl8aG0NepsM/9WYiWgD9BY2qO/HWajtM9bmLXi4gXbN7Nzruz2vytp6aUP + 0FTS5/51nIWSqq8OlRcbSbPQzOv+e5KWAvoADaXMQJ0/oCLlPTAANJRy8XWc/YeUKqDjEmx5CdtRnWf/ + IWEg1ghsaPsmdkzn2X9IqAIMAA1t38RuSbroEk4IJgzGy0jYAUgo/4eEE5m2AhtJGACSLriEMxmdDmIt + L2EASJLQBzAANNK95EzcdureB3AWoJHuA0DS+n/ovh1oAGik+8WWOAB0H5QNAI10HwASL7buA0DioByr + +wCQ2HDq3pg1ADRiAJiPAYDTdB8ALAHmiwGgke4XW+IA0H1QNgA00n0ASDwH0H0ASByUYxkA5uMgEKfp + PgAkPQk4bP+O3ZLYmI2V8PBJ0sNA3XcAKgaARhIGgKSSs/v6v+LzABpJePosaRmQ8PFsBoBmtm9gx6Qs + A7Z/r46hmYRZJ2HvOaH8T6rGltF926ky+5eBvmL7d+qYhIF4Od23Akc6X3wJs38lqSG7jISdgEpVAR17 + AQmN2BFbgA0lXYAdq4CEJdhI92XYsrZvZOd0KkMTDv78HJpKmoW6LAVSll4jHasvfkhpBI7MviuQtOwa + MQA0ljYbVWbek06quEY0ABtLnJEqs1UC9WdJvPkrM73OfCD1wqxBYIbZKbHKGkn8XIblpPUBfk4NAlfu + DqR1+7ex/g+QPEON1IV6Zqla/6+UU36PMkOFxZdS+wDbjGrgyIGgfu/kimobQqT2AX6XIwaC1W78ivI/ + SPpa9V5qMKgL+ZMDROOmT3is+pMo/4Ossgx4lLqRqxKqAaFSN3dd5JX650r9+krV0qPsWUExARe2vBPC + rLaGlc9j/R/IMkBejfI/lGWAPMvMz1rwJcsAeRbd/2CWAfIsyv9wlgFyLx7+WcCqh4LkeZT/C7AMkHth + EZYBso29/4Ws8IiwvJdPnpegMVWA/BwWoxkoI5p/C9IMlBF7/4ta4WOt5HE0/xamChDNv8VpBq4bJ/+w + JbhwNP/4cxmgClgz8CdbguvF7M//aAauF/iFKmCdXPl1akxKFbBOHPzhtxwMyo+DP9ylCsiP2Z+HVAG5 + MfvzlCogN2Z/XqIKyIvZn5epAvJi9uctqoCcmP15myogJ2Z/PuKrxPrHqT8+pgroH/iKZwT6xuzP16oK + qK+M3l5cMn9gF6qAfvG8P7vxqUG9UhUb7MpnB/aJT/rlEKqA+eOTfjmMbcH5Y/bnUI4IzxtHfjmcKmDe + OPLLKWwLzhfbfpzGtuBcse3H6WwLzhONPy6hIXh9NP64jIbg9dH441IagtfF035cTkPwmmj8MQ0NwfOj + 8cdUNATPi8Yf09EQPC8wJQ3B4+PEH1PTEDwuHvVlepYCx0XjjxYsBfaPPX/acDZg3yj9acdSYL8o/WnJ + V4t9H6U/bVkKfBfHfWnPUuDzKP2JYCnwfpT+xLAUeC9Kf+JYCrwepT+RLAWeR+lPLEuBx3Hgh3iWAvej + 9GcJlgJ/jdKfZVgK/BqlP8uxFPh/fLQ3S/LYsHU/i1v5w0SV/iyvyt86+ba9OdLjtB/8sOL3Cij94Scr + bQ3a8oONVbYGrfvhjhW2BpX+8EDy1qCbH16Q2A9Q+sOL0rYGbfnBm5L6AUp/+EBCP8DND1/ofFTYuh++ + 1LUfYN0PO+nYD1D6w4469QPc/HCADucDrPvhILM/L2DdDwebuR+g9IcTzNgPcPPDiWbqB3i+H042Sz9A + 0w8ucvUhIU0/uNiVTUHrfpjAFU1BNz9M5MymoKYfTOaspqCmH0zq6Kagph9M7simoHU/NHBEU9DND43s + 2RTU9IOG9vg4MU0/aOrbnQE3PzT36c5A/Uz9LNDcJzsDmn4Q5J2dATc/BHplZ0DHH4I9GgQ0/SDcvZ0B + Nz8sYrsz4Iw/LGYMArb7YFF14+v4AwAAAAAAAAAAAAAAAAAAAAAAAAAAnOUPEFpttRISJSgAAAAASUVO + RK5CYII= - iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t - 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA - AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2 - VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp - pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom - HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC - hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983 - JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ - ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH - fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M - qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G - nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv - bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB - Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr - uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0 - FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2 - ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC - mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa - Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU - qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ - 264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc - eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78 - ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji - Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A - bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT - DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6 - 8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN - 1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw - vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4 - TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0 - px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr - 8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H - P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS - +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf - 4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w - uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3 - nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj - 27d/ABBabbXEUZDWAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACGhJREFUeF7t + 3YutHLkRBdAJxaE4FGfiUByKQ3EoXtRCtKVezb8/rMtzgAsstPu00kw3WSyyZ243AAAAAAAAAAAAAAAA + AAAAAAAAAAAAdvO32+3299vt9o8f+edP+ddvMv7d+O/rZ+v3ACZWN+m4ef99u93+c7vd/rtj6ver1O9d + A8UYHICTjVl93Ozbm/XMjEGh/iwGBDjImOGvvuGfZVQK9We1dIAvdLnpH8VgAG/qftPfyxgMgI0x229v + msSoCuCHlW78bWogqB0FAwHLqYu+Lv7tTbFq6rWwi0C8lWf8V6IiIJYb/7VoFhKlStu9T+atkHrN6sQh + tFSlbOJ23tmp19CygFZq1t9eyPJ5LAtow1r/uBgEmJaS/5xUNWBJwFSqWbW9UOW4WBIwDQd6rotBgEsp + +a9PDcBwOjf/PKklAZxCs2/OaA5yuLrAnOqbNwYBDlMX1vaCk/liEGB3yv5eMQiwKzd/v2gMsgs3f98Y + BPiKm79/nBPgI0745cSJQd7icd68GAR4ie2+zFQ/wAeP8pR1f240BXnIh3nkR1OQ37LuXyeWAvzCun+t + OCnIL6z710u956D0XziWAni8d+HYFVicrr84ILSw7cUg60VDcFHO+suIswGL0fiTbTQEF2LbT7axLbgI + h37kXlQBC7D2l3vRC1jA9k0XGbEjEM6+vzyLKiCYU3/yLE4HhvIV3vJq6lohzOpbfzWz1WtQJW4thSp1 + oY/Ur1dWf50qtgQDbd/kFVI3fd3o725vVSOsfqZ+dtUB4d3XjImtVv7v/YBLDQirNVD3fg250Cqz2NEX + 7UoDgWVAkO2bm5Zau5+5f73KQGAZECC9/L+yY50+CBxdUXGC1L3/Wb7ooqqB1NfYMiDA9k1NyGxHVlMH + AYeCmkss/2edlWoQSGy2zlBl8aG0NepsM/9WYiWgD9BY2qO/HWajtM9bmLXi4gXbN7Nzruz2vytp6aUP + 0FTS5/51nIWSqq8OlRcbSbPQzOv+e5KWAvoADaXMQJ0/oCLlPTAANJRy8XWc/YeUKqDjEmx5CdtRnWf/ + IWEg1ghsaPsmdkzn2X9IqAIMAA1t38RuSbroEk4IJgzGy0jYAUgo/4eEE5m2AhtJGACSLriEMxmdDmIt + L2EASJLQBzAANNK95EzcdureB3AWoJHuA0DS+n/ovh1oAGik+8WWOAB0H5QNAI10HwASL7buA0DioByr + +wCQ2HDq3pg1ADRiAJiPAYDTdB8ALAHmiwGgke4XW+IA0H1QNgA00n0ASDwH0H0ASByUYxkA5uMgEKfp + PgAkPQk4bP+O3ZLYmI2V8PBJ0sNA3XcAKgaARhIGgKSSs/v6v+LzABpJePosaRmQ8PFsBoBmtm9gx6Qs + A7Z/r46hmYRZJ2HvOaH8T6rGltF926ky+5eBvmL7d+qYhIF4Od23Akc6X3wJs38lqSG7jISdgEpVAR17 + AQmN2BFbgA0lXYAdq4CEJdhI92XYsrZvZOd0KkMTDv78HJpKmoW6LAVSll4jHasvfkhpBI7MviuQtOwa + MQA0ljYbVWbek06quEY0ABtLnJEqs1UC9WdJvPkrM73OfCD1wqxBYIbZKbHKGkn8XIblpPUBfk4NAlfu + DqR1+7ex/g+QPEON1IV6Zqla/6+UU36PMkOFxZdS+wDbjGrgyIGgfu/kimobQqT2AX6XIwaC1W78ivI/ + SPpa9V5qMKgL+ZMDROOmT3is+pMo/4Ossgx4lLqRqxKqAaFSN3dd5JX650r9+krV0qPsWUExARe2vBPC + rLaGlc9j/R/IMkBejfI/lGWAPMvMz1rwJcsAeRbd/2CWAfIsyv9wlgFyLx7+WcCqh4LkeZT/C7AMkHth + EZYBso29/4Ws8IiwvJdPnpegMVWA/BwWoxkoI5p/C9IMlBF7/4ta4WOt5HE0/xamChDNv8VpBq4bJ/+w + JbhwNP/4cxmgClgz8CdbguvF7M//aAauF/iFKmCdXPl1akxKFbBOHPzhtxwMyo+DP9ylCsiP2Z+HVAG5 + MfvzlCogN2Z/XqIKyIvZn5epAvJi9uctqoCcmP15myogJ2Z/PuKrxPrHqT8+pgroH/iKZwT6xuzP16oK + qK+M3l5cMn9gF6qAfvG8P7vxqUG9UhUb7MpnB/aJT/rlEKqA+eOTfjmMbcH5Y/bnUI4IzxtHfjmcKmDe + OPLLKWwLzhfbfpzGtuBcse3H6WwLzhONPy6hIXh9NP64jIbg9dH441IagtfF035cTkPwmmj8MQ0NwfOj + 8cdUNATPi8Yf09EQPC8wJQ3B4+PEH1PTEDwuHvVlepYCx0XjjxYsBfaPPX/acDZg3yj9acdSYL8o/WnJ + V4t9H6U/bVkKfBfHfWnPUuDzKP2JYCnwfpT+xLAUeC9Kf+JYCrwepT+RLAWeR+lPLEuBx3Hgh3iWAvej + 9GcJlgJ/jdKfZVgK/BqlP8uxFPh/fLQ3S/LYsHU/i1v5w0SV/iyvyt86+ba9OdLjtB/8sOL3Cij94Scr + bQ3a8oONVbYGrfvhjhW2BpX+8EDy1qCbH16Q2A9Q+sOL0rYGbfnBm5L6AUp/+EBCP8DND1/ofFTYuh++ + 1LUfYN0PO+nYD1D6w4469QPc/HCADucDrPvhILM/L2DdDwebuR+g9IcTzNgPcPPDiWbqB3i+H042Sz9A + 0w8ucvUhIU0/uNiVTUHrfpjAFU1BNz9M5MymoKYfTOaspqCmH0zq6Kagph9M7simoHU/NHBEU9DND43s + 2RTU9IOG9vg4MU0/aOrbnQE3PzT36c5A/Uz9LNDcJzsDmn4Q5J2dATc/BHplZ0DHH4I9GgQ0/SDcvZ0B + Nz8sYrsz4Iw/LGYMArb7YFF14+v4AwAAAAAAAAAAAAAAAAAAAAAAAAAAnOUPEFpttRISJSgAAAAASUVO + RK5CYII= - iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACpNJREFUeF7t - nYGN4wYSBC8Uh+JQPhOH4lAcikP518BHWL/Xe7t7PU2RM1VA4fGA/33qo0okJe1+AwAAAAAAAAAAAAAA - AAAAAAAAAAC4Nf8J+NtD6KU2VVu7wnL+G5ADq5/aVG3tCstRB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHo - hwBABHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBA - BHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBABHVQ - uBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CAD8QP2k2D8e/vnwr++qv2TE - Dv/+bh1ndcxVlPgJ0CdzPOl5suNVrCjUMUkMwtTI6i8A8QoeIYBmUtd/iAkJQSN1raVGRry6RMCgrqe4 - zse7W2cD3Bv4BXjy4xSJwBfhyY/TrAjAJ+CaH6daxzb8hN8fquEQp8inRH9CnSap0RCnyKXAO/AhH9wi - lwICNRTiRHlX4A180g+3yYeEnuBtP9xmHfPwHTUQ4nTrXa/1cPqPW+UtwQd88Ae3yrsBDwgAbpX7AA/4 - 8A9ulQ8FPSAAuFUC8EAN41qXFXWDBbHL1KXqetQorvUXBtBJHVPqWHNdjxrFlQBANwQghBrFlQBANwQg - hBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBA - NwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrF - lQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlR8Kit3yQ0FDqFEQt7geNQriFtejRkHc - 4nrUKIhbXI8aBXGL61GjIG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61Gj - IG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61GjuNZPcQXopI4pday5rkeN - 4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsC - EEKN4koAoBsCEEKN4koAoBsCEEKN4koAfs5v3/39yfrv8D4EIIQaxZUA/Es9sf/47t8P1V7P1j/z58Pa - sMIA/0AAQqhRXAnAP0/4vx6qfb5iBYE9CUAMNYrr5gO2XrU/80r/Vev/s6KyFQIQQo3iujEAdarf8Yr/ - kRWCjZcGBCCEGsV1WwBSB+d7bjwbIAAh1CiumwJQT0S1wRluigABCKFGcd0SgDNO+T+yzgY2QABCqFFc - NwTgCk/+w3rbcDoEIIQaxXV6AF552v+e0y8HCEAINYrr5ADUHXj1mK/g5HcHCEAINYrr5ACox3sV637A - 1I8UE4AQahTXqQGoa231eK/k1PsBBCCEGsV1YgCufOr/7NQPChGAEGoU14kBuNJd/4+ceBZAAEKoUVyn - BeAur/6HE88CCEAINYrrtABc8W2/j5z2tiABCKFGcZ0WgHpFVY/zyk77hCABCKFGcZ0WAPUY7+CkywAC - EEKN4jopAKkD7wwJwMeuR43iOikAd3jv/z0n3QcgACHUKK4E4BrWW5dTIAAh1CiukwJwxxuAh5NuBBKA - EGoUVwJwDQnAx65HjeI6KQDq8d1FAvCx61GjuBKA6zgFAhBCjeI6KQBcAlwDAhBCjeI6KQB3+hLQW3kX - 4GPXo0ZxJQDXcNK3AglACDWK66QA3PGLQId8EOhj16NGcZ0UgLt9FfhZPgr8setRo7hOCkD9jD31GO/g - JAhACDWK66QAFHe8DzDtpwIRgBBqFNdpAbjjZcCk0/+CAIRQo7hOC8BZv/m3y0nv/x8QgBBqFNdpAShS - B2BC9v+861GjuE48AO9yFjDpwz/PEIAQahTXiQEo7nAvYNq1/wEBCKFGcZ0agOLKPyBk2p3/ZwhACDWK - 6+QAXPVSYOqp/wEBCKFGcZ0cgKIicKVvCU686/8WAhBCjeI6PQDFVSJQf4ap1/3PEIAQahTXDQEoXh2B - Da/8BwQghBrFdUsAilfdE5h+zf8WAhBCjeK6KQBFReDMrw1P+71/n4EAhFCjuG4LwEGFIPk2Yb3q179j - IwQghBrFdWsADrpDUE/87ZsSgBBqFNftB+tBhaC2+JV7BHWDr071t77iv4UAhFCjuBKAH6kn8hGEOjs4 - rDjUf9aTvdzwlt6vQABCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBC - qFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCcCP - HN8FKOvz/u95/DPw/xCAEGoU120BOJ7Uxxd66gs+pfvjwup/f3h8aai2LevftwkCEEKN4jo5APVkf36i - q8d/lkccjjBMjgIBCKFGcZ0UgOMJ/+on+2c9zhbqzzwpCAQghBrF9e4BOE7n1WO7m89nCHeGAIRQo7je - 8WA7XunV45niEYM7nhkQgBBqFNc7BaCe9PXEUI9jsvWY67HfBQIQQo3ievUAbHi1/6x3CQEBCKFGcb1y - AHjia68eAgIQQo3iesUA1HXvxlP9r3rVEBCAEGoU1ysFgNP9X/NqESAAIdQorlcJQL3qqz8ffs46G6iA - XgECEEKN4nqFAKQOmG1e5ZKAAIRQo7i+OgA8+ft9dQQIQAg1iusrA8CTP+crI0AAQqhRXF8VAK75877q - 75YAhFCjuL7iIKmbVerPgr2+6sYgAQihRnF9RQDu8m29CVYEzoYAhFCjuJ4dgNTBge979heKCEAINYrr - 2QGoVyT158CcZ58FEIAQahTXMwPAq//rPPMsgACEUKO4nhmA+n67+jNg3jPfFiQAIdQormcGgJt/r7O2 - PwsCEEKN4npmALj+f51n3gcgACHUKK5nBkD9+/EcCcAA1CiuBGCPZ0EAQqhRXM8MAOyAAIRQo7gSAOiG - AIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gS - AOiGAIRQo7gSAOiGAIRQo7gev48escvU177Xw7fpcLPr4fv0uNUzf57BZSEAuNW6rFgPP1ILt0oAHtQN - FjUO4nTr2F8Pv1EHt3qVX33+crgPgNvk9P+J+vHOaiTEqXL6/wSXAbhNTv/fwM1A3OKZv9DkNlQR+VQg - bhDegbMAnC7X/h/ADUGcKh/9/QR1KcDbgjhNnvxfgPsBOMkzf4XZGDgTwAny5DeoCHBPAO8qp/1NVAS4 - JMC7WMcq7/U3w9kA3kGe+GGOEHB/AK8ir/gvomJQH6yob1ZVEEouFTBlHVtlHWd1zPGkBwAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGM+3b/8D - 5YK/CrjgMXgAAAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACmdJREFUeF7t + nY1t3GYUBK8Ul5JS0olLcSkuxaUkeLA+5LLW+U7WLvnxvRlgEARI4mjFG5G8H91uAAAAAAAAAAAAAAAA + AAAAAAAAAABX5u+AX/QPgU9Tm+rODmE4/wTkwPJTm+rODmE4ekA4JAB+CABE0APCIQHwQwAggh4QDgmA + HwIAEfSAcEgA/BAAiKAHhEMC4IcAQAQ9IBwSAD8EACLoAeGQAPghABBBDwiHBMAPAYAIekA4JAB+CABE + 0APCIQHwQwAggh4QDgmAHwIAEfSAcEgA/BAAiKAHhEMC4IcAQAQ9IBwSAD8EACLoAeGQAPghABBBDwiH + BMAPAYAIekA4JAB+CABE0APCIQHwQwAggh4QDgmAHwIAEfSAcEgA/BAA+IX6pNivt9vt2+12+/6mfoMR + Xf54s46zOuYqSnwC9MGsBz0PdtzFikIdk8QgTI2s4yPu4goBmEld/yEmJARG6lpLB0a8gkTgE9T1FNf5 + eHXrbIB7A38AD37sIhH4IDz4sZsVAXgBrvmxq3Vsw2/4653REDvJq0R/Q50m6WCIneRS4AG8yAenyKXA + O+hIiF3lWQGBV/rhNHmR0B087YfTrGMe3tBxECdYz3qNh9N/nCpPCfLCHxwszwYQABws9wF48Q8OlhcF + EQAcLAF4ZxSH6wMbEV2mLlXHo4M4rG8YgJM6pvQ4czgeHcQhAQA3BCCEDuKQAIAbAhBCB3FIAMANAQih + gzgkAOCGAITQQRwSAHBDAELoIA4JALghACF0EIcEANwQgBA6iEMCAG4IQAgdxCEBADcEIIQO4pAAgBsC + EEIHcUgAwA0BCKGDOCQA4IYAhNBBHBIAcEMAQuggDgkAuCEAIXQQhwQA3BCAEDqIQwIAbghACB3EIQEA + NwQghA7ikACAGwIQQgdxSADADQEIoYM45ENB0S0fChpCB0Gc5Hh0EMRJjkcHQZzkeHQQxEmORwdBnOR4 + dBDESY5HB0Gc5Hh0EMRJjkcHQZzkeHQQxEmORwdBnOR4dBDESY5HB0Gc5Hh0EMRJjkcHQZzkeHQQxEmO + RwdBnOR4dBDESY5HB0Gc5Hh0EMRJjkcHQZzkeHQQh/UprgBO6pjS48zheHQQhwQA3BCAEDqIQwIAbghA + CB3EIQEANwQghA7ikACAGwIQQgdxSADADQEIoYM4JADghgCE0EEcEgBwQwBC6CAOCQC4IQAhdBCHBADc + EIAQOohDAvB7vrz515319/AYAhBCB3FIAP6jHthf3/zxzlZq/TPf3jasMMBPCEAIHcQhAfj5gP/+zjYf + tYLAngQghg7icPIBWz+1X/lJ/1Hrv1lRmQoBCKGDOJwYgDrVd/zEf2aFYOKlAQEIoYM4nBaA1MH5yIln + A6mNx6ODOJwUgHog6td/lJMiQABC6CAOpwTgiFP+Z9bZwAQIQAgdxOGEAOzw4F/W04bdIQAhdBCH3QNw + 5mn/I7tfDhCAEDqIw84BqDvw+vXuYudnBwhACB3EYecA6Ne6k3U/oOtLiglACB3EYdcA1LW2fq272fV+ + AAEIoYM47BiAnU/97+36QiECEEIHcdgxADvd9X9mx7MAAhBCB3HYLQBX+em/7HgWQABC6CAOuwVgx6f9 + ntntaUECEEIHcdgtAIl396Xt9gpBAhBCB3HYLQD69V3FTpcBBCCEDuKwUwBSB94REoDnjkcHcdgpAFd4 + 7v+Rne4DEIAQOohDArCH9dRlFwhACB3EYacAXPEG4LLTjUACEEIHcUgA9pAAPHc8OojDTgHQr+1KEoDn + jkcHcUgA9rELBCCEDuKwUwC4BNgDAhBCB3HYKQBXehOQyrMAzx2PDuKQAOxhp3cFEoAQOojDTgG44huB + lrwQ6Lnj0UEcdgrA1d4KfC8vBX7ueHQQh50CUJ+xp1/fVewEAQihgzjsFIDiivcBOl3/FwQghA7isFsA + rngZ0On0vyAAIXQQh90CcNRv/nXZ6fn/BQEIoYM47BaAInUAJmT/1x2PDuKw4wF4lbOATi/+uYcAhNBB + HHYMQHGFewHdrv0XBCCEDuKwawCKnT8gpNud/3sIQAgdxGHnAOx6KdD11H9BAELoIA47B6CoCOz0LsGO + d/0VAhBCB3HYPQDFLhHo+FuA3oMAhNBBHE4IQHF2BCb85F8QgBA6iMMpASjOuifQ/ZpfIQAhdBCHkwJQ + VASOfNtwp7f5vgoBCKGDOJwWgEWFIPk0Yf3Urz9jIgQghA7icGoAFu4Q1AN/+qYEIIQO4nD6wbqoENQW + f3KPoG7w1an+1J/4CgEIoYM4JAC/Ug/kFYQ6O1hWHOqv9WAvJzyl9ycQgBA6iEMCAG4IQAgdxCEBADcE + IIQO4pAAgBsCEEIHcUgAwA0BCKGDOCQA4IYAhNBBHBIAcEMAQuggDgkAuCEAIXQQhwQA3BCAEDqIQwIA + bghACB3EIQEANwQghA7ikACAGwIQQgdxSAB+Zb0XoKzX+z9y/TPwfwhACB3E4bQArAf1ekNPvcGn/OzH + hdW/v1xvGqpty2lvGiIAIXQQh50DsD79Zz3Q9Ws/0hWHFYbOUSAAIXQQh50CsB7wZz/YX3WdLXR7azEB + CKGDOLx6ANbpvH5dV/T+DOHKEIAQOojDKx5sR3+w5xmuGFzxzIAAhNBBHF4pAPWg/+zNuiu6PnLsKhCA + EDqIw90DMOGn/ateJQQEIIQO4nDnAPDAf9/dQ0AAQuggDncMQF33TjzV/6i7hoAAhNBBHO4UAE73/8zd + IkAAQuggDncJQP3U1/83fN06G9jlZckEIIQO4nCHAKQOmGnuckmQ+n6ORwdxeHYAUgfLZM+OQOp7Oh4d + xOGZAUgdKHhuBFLf1/HoIA7PCgDX/HnP+t4SgBA6iMMzDpK6WaX/H+j3rBuDBCCEDuLwjABc5d16HawI + HA0BCKGDODw6AKmDAx979BuKUt/j8eggDo8OAK/wO96jzwIIQAgdxOGRAUgdGPjcI88CUt/n8eggDo8M + QL2/Xf98PMYjnxYkACF0EIdHBoCbf+dZ2x8FAQihgzg8MgBc/5/nkfcBCEAIHcThkQHQPxuPkwA0QAdx + SADmeBQEIIQO4vDIAMAMCEAIHcQhAQA3BCCEDuKQAIAbAhBCB3FIAMANAQihgzgkAOCGAITQQRwSAHBD + AELoIA4JALghACF0EIcEANwQgBA6iEMCAG4IQAgdxCEBADcEIIQO4nD9PnpEl6m3fY+Hd9PhZMfD++lx + qkd+nsG2EACcal1WjCd1bYW4uwTg7QaLDoM4wTr2x8Nv1MGpnvEbjraE+wA4TU7/76iPd9aBEDvL6f8d + XAbgNDn9F7gZiFM88heaXIYqIq8KxAnCAzgLwO5y7f8EbghiV3np7wvUpQBPC2I3efB/AO4HYCeP/BVm + beBMADvIg/8TVAS4J4BXldN+ExUBLgnwKtaxynP9ZjgbwCvIAz/MCgH3B3AX+Yl/EhWD9YGNFYSSSwVM + WcdWWcdZHXM86AEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAbwL+WCvwp3istGAAAAAElFTkSuQmCC diff --git a/SDL/kunden/frmKundenKontakteDetails.vb b/SDL/kunden/frmKundenKontakteDetails.vb index 3eff7026..710a1bd5 100644 --- a/SDL/kunden/frmKundenKontakteDetails.vb +++ b/SDL/kunden/frmKundenKontakteDetails.vb @@ -68,6 +68,25 @@ txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "") txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "") + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmail.Text) Then + lblEmail.ForeColor = Color.Black + Else + lblEmail.ForeColor = Color.Red + End If + + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailCC.Text) Then + lblEmailCC.ForeColor = Color.Black + Else + lblEmailCC.ForeColor = Color.Red + End If + + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailBCC.Text) Then + lblEmailBCC.ForeColor = Color.Black + Else + lblEmailBCC.ForeColor = Color.Red + End If + + txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "") txtPassgueltigbis.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_Passgueltigbis) AndAlso IsDate(KD_KONTAKT.kkd_Passgueltigbis), CDate(KD_KONTAKT.kkd_Passgueltigbis), "") txtGeburtsort.Text = If(KD_KONTAKT.kkd_Geburtsort, "") @@ -75,6 +94,9 @@ If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land) If Not IsDBNull(KD_KONTAKT.kkd_Geburtsland) Then cbxGeburtsland.changeItem(KD_KONTAKT.kkd_Geburtsland) + If Not IsDBNull(KD_KONTAKT.kkd_letzteAenderung) AndAlso IsDate(KD_KONTAKT.kkd_letzteAenderung) AndAlso CDate(KD_KONTAKT.kkd_letzteAenderung) > New Date("01.01.2000") Then lblAenderung.Text = KD_KONTAKT.kkd_letzteAenderung + If Not IsDBNull(KD_KONTAKT.kkd_letzteAenderungUser) Then lblSachbearbeiter.Text = KD_KONTAKT.kkd_letzteAenderungUser + End Sub Sub getvalue() @@ -110,6 +132,34 @@ Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click getvalue() + + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_Email) Then + lblEmail.ForeColor = Color.Red + lblEmail.Focus() + Exit Sub + Else + lblEmail.ForeColor = Color.Black + + End If + + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailCC) Then + lblEmailCC.ForeColor = Color.Red + lblEmailCC.Focus() + Exit Sub + Else + lblEmailCC.ForeColor = Color.Black + End If + + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailBCC) Then + lblEmailBCC.ForeColor = Color.Red + lblEmailBCC.Focus() + Exit Sub + Else + lblEmailBCC.ForeColor = Color.Black + End If + + KD_KONTAKT.kkd_letzteAenderung = DateTime.Now + KD_KONTAKT.kkd_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME KD_KONTAKT.SAVE() Me.Close() End Sub @@ -125,5 +175,4 @@ End Sub - End Class diff --git a/SDL/kunden/usrCntlKundenKontakte.vb b/SDL/kunden/usrCntlKundenKontakte.vb index 84c6840f..7671954c 100644 --- a/SDL/kunden/usrCntlKundenKontakte.vb +++ b/SDL/kunden/usrCntlKundenKontakte.vb @@ -1,7 +1,4 @@ - -Imports DocumentFormat.OpenXml.Spreadsheet - -Public Class usrCntlKundenKontakte +Public Class usrCntlKundenKontakte 'Dim KD_KONTAKT As VERAG_PROG_ALLGEMEIN.cKundenKontakt = Nothing Public kdNr As Integer @@ -44,8 +41,15 @@ Public Class usrCntlKundenKontakte Dim dt = SQL.loadDgvBySql("SELECT * FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL") If dt IsNot Nothing Then For Each r In dt.Rows - Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).trim - dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax")) + Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).Trim + + Dim rowIndex As Integer = dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax")) + + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc")) Then + Dim dgvRow As DataGridViewRow = dgvAufschub.Rows(rowIndex) + dgvRow.DefaultCellStyle.BackColor = Color.IndianRed + End If + Next End If End If @@ -101,5 +105,4 @@ Public Class usrCntlKundenKontakte dgvAufschub_KeyDown(sender, delKey) End Sub - End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb index b7e5ea6b..56e05a56 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb @@ -105,6 +105,8 @@ Public Class cKundenKontakte Property kkd_Firmenname As Object = Nothing Property kkd_Geburtsort As Object = Nothing Property kkd_Geburtsland As Object = Nothing + Property kkd_letzteAenderungUser As String + Property kkd_letzteAenderung As DateTime Public hasEntry = False @@ -155,6 +157,8 @@ Public Class cKundenKontakte list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsort", kkd_Geburtsort)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsland", kkd_Geburtsland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_letzteAenderungUser", kkd_letzteAenderungUser)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_letzteAenderung", kkd_letzteAenderung)) Return list diff --git a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb index bbbe8982..f0ac3812 100644 --- a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb @@ -1,7 +1,4 @@ -Imports GrapeCity.ActiveReports -Imports GrapeCity.ActiveReports.Document -Imports System.ComponentModel -Imports System.Data.SqlClient +Imports System.Data.SqlClient Imports System.IO Public Class cAllgemein diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 36fbed46..395e39b9 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -900,6 +900,27 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( End Function + Shared Function checkifMailisOK(email As String) As Boolean + + If String.IsNullOrWhiteSpace(email) Then + Return True + + Else + + Try + Dim addr As New System.Net.Mail.MailAddress(email) + ' zusätzlicher Check: Domain muss einen Punkt enthalten + Dim domain As String = addr.Host + If Not domain.Contains(".") Then Return False + Return True + Catch + Return False + End Try + + End If + + End Function + Public Function MakeScreenshot() Dim form As New Form form = Form.ActiveForm From ef8992cbd43f744922bf69a748a38c133318dd8f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Jan 2026 16:43:35 +0100 Subject: [PATCH 13/13] Kunednkontakte, Bereichitungsgruppen (Ansicht), StartOptions, etc. --- SDL/kunden/frmKundenKontakteDetails.vb | 38 +++++++++++----------- SDL/kunden/usrCntlKundenKontakte.vb | 4 +-- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 39 +++++++++++++++++------ 3 files changed, 49 insertions(+), 32 deletions(-) diff --git a/SDL/kunden/frmKundenKontakteDetails.vb b/SDL/kunden/frmKundenKontakteDetails.vb index 710a1bd5..8b316341 100644 --- a/SDL/kunden/frmKundenKontakteDetails.vb +++ b/SDL/kunden/frmKundenKontakteDetails.vb @@ -68,24 +68,14 @@ txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "") txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "") - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmail.Text) Then - lblEmail.ForeColor = Color.Black - Else - lblEmail.ForeColor = Color.Red - End If + Dim mailfalse = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmail.Text) + If mailfalse <> "" Then lblEmail.ForeColor = Color.Red - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailCC.Text) Then - lblEmailCC.ForeColor = Color.Black - Else - lblEmailCC.ForeColor = Color.Red - End If - - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailBCC.Text) Then - lblEmailBCC.ForeColor = Color.Black - Else - lblEmailBCC.ForeColor = Color.Red - End If + Dim mailfalsecc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailCC.Text) + If mailfalsecc <> "" Then lblEmail.ForeColor = Color.Red + Dim mailfalsebcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailBCC.Text) + If mailfalsebcc <> "" Then lblEmail.ForeColor = Color.Red txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "") txtPassgueltigbis.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_Passgueltigbis) AndAlso IsDate(KD_KONTAKT.kkd_Passgueltigbis), CDate(KD_KONTAKT.kkd_Passgueltigbis), "") @@ -133,25 +123,33 @@ Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click getvalue() - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_Email) Then + + + Dim mailfalse = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_Email) + If mailfalse <> "" Then lblEmail.ForeColor = Color.Red + MsgBox("Mailadresse: " & mailfalse & " fehlerhaft!") lblEmail.Focus() Exit Sub + Else lblEmail.ForeColor = Color.Black - End If - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailCC) Then + Dim mailfalsecc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailCC) + If mailfalsecc <> "" Then lblEmailCC.ForeColor = Color.Red + MsgBox("Mailadresse: " & mailfalsecc & " fehlerhaft!") lblEmailCC.Focus() Exit Sub Else lblEmailCC.ForeColor = Color.Black End If - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailBCC) Then + Dim mailfalsebcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailBCC) + If mailfalsebcc <> "" Then lblEmailBCC.ForeColor = Color.Red + MsgBox("Mailadresse: " & mailfalsebcc & " fehlerhaft!") lblEmailBCC.Focus() Exit Sub Else diff --git a/SDL/kunden/usrCntlKundenKontakte.vb b/SDL/kunden/usrCntlKundenKontakte.vb index 7671954c..8c7f331d 100644 --- a/SDL/kunden/usrCntlKundenKontakte.vb +++ b/SDL/kunden/usrCntlKundenKontakte.vb @@ -38,14 +38,14 @@ dgvAufschub.Rows.Clear() If dgvAufschub.Columns.Count >= 5 Then If kdNr > 0 Then - Dim dt = SQL.loadDgvBySql("SELECT * FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL") + Dim dt = SQL.loadDgvBySql("SELECT [kkd_id],[kkd_KundenNr],[kkd_kkaBez],[kkd_Tel],isnull([kkd_Email],'') as kkd_Email ,isnull([kkd_EmailCC], '') as kkd_EmailCC ,isnull([kkd_EmailBCC], '') as kkd_EmailBCC ,[kkd_Fax],[kkd_AnsprechpartnerAnrede],[kkd_AnsprechpartnerVorname],[kkd_AnsprechpartnerNachname] FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL") If dt IsNot Nothing Then For Each r In dt.Rows Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).Trim Dim rowIndex As Integer = dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax")) - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc")) Then + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email")) <> "" Or VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc")) <> "" Or VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc")) <> "" Then Dim dgvRow As DataGridViewRow = dgvAufschub.Rows(rowIndex) dgvRow.DefaultCellStyle.BackColor = Color.IndianRed End If diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 395e39b9..2644b523 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -900,25 +900,44 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( End Function - Shared Function checkifMailisOK(email As String) As Boolean + Shared Function checkifMailisOK(emailList As String) As String - If String.IsNullOrWhiteSpace(email) Then - Return True + Dim invalid As New List(Of String) - Else + If String.IsNullOrWhiteSpace(emailList) Then Return "" + + Dim emails = emailList.Split(";"c, ","c) + + For Each email In emails + Dim e = email.Trim() + If e = "" Then Continue For Try - Dim addr As New System.Net.Mail.MailAddress(email) - ' zusätzlicher Check: Domain muss einen Punkt enthalten - Dim domain As String = addr.Host - If Not domain.Contains(".") Then Return False - Return True + Dim addr As New System.Net.Mail.MailAddress(e) + If Not addr.Host.Contains(".") Then + invalid.Add(e) + End If Catch - Return False + invalid.Add(e) End Try + Next + + If invalid.Count = 0 Then + Return "" + Else + Dim StringLIst As String = "" + For i = 1 To invalid.Count + StringLIst = StringLIst & invalid(i - 1) + Next i + + Return StringLIst End If + + + + End Function Public Function MakeScreenshot()