From ca1cc4f8fac3708c9e4fec0b2eb8a6ed822084de Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 26 Nov 2019 14:39:09 +0100 Subject: [PATCH] neu --- SDL/Administration/frmKasseAbschliessen.vb | 4 +- SDL/Classes/cRKSV.vb | 55 +- SDL/Classes/cRKSV_Kasse.vb | 5 +- .../EZA/usrCntlATLAS_EZA_Position.Designer.vb | 6 +- .../NCTS/usrCntlATLAS_NCTS_Positionen.vb | 2 +- SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb | 42 +- SDL/Fakturierung/cFakturierung.vb | 16 +- .../frmAbrechnungsMaske.Designer.vb | 59 +- SDL/Fakturierung/frmAbrechnungsMaske.vb | 39 +- SDL/Fakturierung/frmFaktEmail.vb | 32 +- .../frmFaktSammelRgDrucken.Designer.vb | 24 +- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 13 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 +- .../rptLaufzettelZollDE.Designer.vb | 786 +++++ .../rptLaufzettelZollDE.resx | 766 +++++ .../FormulareBaukasten/rptLaufzettelZollDE.vb | 8 + .../subRptLaufzettelZollDE_ATA.Designer.vb | 151 + .../subRptLaufzettelZollDE_ATA.resx | 126 + .../subRptLaufzettelZollDE_ATA.vb | 55 + .../usrcntlGestellungsgarantie.Designer.vb | 142 +- .../usrcntlVerzollungspreise.vb | 2 +- SDL/Formulare/KDFormulare/frmFormulare.vb | 284 +- SDL/My Project/Resources.Designer.vb | 11 +- SDL/My Project/Resources.resx | 5 +- SDL/SDL.vbproj | 27 + SDL/kassenbuch/frmBelegNeu.vb | 4 +- SDL/kassenbuch/frmFremdbeleg.vb | 2 +- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 2 +- .../frmKundenUebersichtZOLL.Designer.vb | 2822 +--------------- SDL/kunden/frmKundenUebersichtZOLL.resx | 108 +- SDL/kunden/frmKundenUebersichtZOLL.vb | 1417 +------- SDL/kunden/frmKundenblatt.Designer.vb | 50 +- SDL/kunden/frmNeuerKunde.vb | 14 +- .../usrCntlKundenuebersicht.Designer.vb | 2913 +++++++++++++++++ SDL/kunden/usrCntlKundenuebersicht.resx | 242 ++ SDL/kunden/usrCntlKundenuebersicht.vb | 2027 ++++++++++++ .../usrcntlKundeBearbeitenFull.Designer.vb | 166 +- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 31 +- SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb | 10 +- SDL/mdm/usrCntlKartenDaten.vb | 11 +- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 27 +- VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb | 1 + .../KdSearchBox.vb | 9 +- .../MyComboBox.vb | 8 +- .../MySearchBox.vb | 7 + VERAG_PROG_ALLGEMEIN/Classes/SQL.vb | 21 +- VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb | 10 +- .../Classes/cAvisoAnhaenge.vb | 9 + VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb | 2 + VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb | 43 +- .../DATENSERVER/cDATENSERVER.vb | 55 +- .../Schnittstellen/cTherefore.vb | 21 +- 52 files changed, 8152 insertions(+), 4542 deletions(-) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb create mode 100644 SDL/kunden/usrCntlKundenuebersicht.Designer.vb create mode 100644 SDL/kunden/usrCntlKundenuebersicht.resx create mode 100644 SDL/kunden/usrCntlKundenuebersicht.vb diff --git a/SDL/Administration/frmKasseAbschliessen.vb b/SDL/Administration/frmKasseAbschliessen.vb index 5178ac88..3cdde110 100644 --- a/SDL/Administration/frmKasseAbschliessen.vb +++ b/SDL/Administration/frmKasseAbschliessen.vb @@ -122,7 +122,7 @@ Dim answer = "" If KASSE.rksv_aktiv Then - If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_ALT.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service + If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_ALT.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG_ALT.rksv_umsatz * -1) cRKSV.DELETE(BELEG_ALT) MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical) @@ -180,7 +180,7 @@ Dim answer = "" If KASSE.rksv_aktiv Then - If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_NEU.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service + If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_NEU.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG_NEU.rksv_umsatz * -1) cRKSV.DELETE(BELEG_NEU) MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 50107fea..61fe7a97 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -5,7 +5,7 @@ Imports GrapeCity.ActiveReports Public Class cRKSV Shared SQL As New SQL - Shared Function insertRKSV(ByVal kasse As String, CompanyGUID As String, ByVal umsatzZaehler As Double, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean + Shared Function insertRKSV(ByVal kasse As cRKSV_Kasse, CompanyGUID As String, ByVal umsatzZaehler As Double, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean ' Try @@ -20,7 +20,8 @@ Public Class cRKSV credentials.Username = "Admin" credentials.Password = "verag#2" - credentials.CashboxID = kasse '"VERAG-SUB-KASSE-ZOLL" + credentials.CashboxID = kasse.rksv_bez + '"VERAG-SUB-KASSE-ZOLL" credentials.CompanyGUID = CompanyGUID ' "9119d9ae-f549-4a0f-a50f-0500ec7ca059" Dim jws As String = String.Empty @@ -161,15 +162,16 @@ Public Class cRKSV Return True End Function - Shared Function getRKSVLink(ByVal kasse As String) As String - If kasse = "FRONT-OFFICE-SUB-KASSE" Then - Return "http://192.168.0.25:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/?singleWsdl" - End If - Return "http://192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/?singleWsdl" - End Function + 'Shared Function getRKSVLink(ByVal kasse As String) As String + ' If kasse = "FRONT-OFFICE-SUB-KASSE" Then + ' Return "http://192.168.0.25:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/?singleWsdl" + ' End If + ' Return "http://192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/?singleWsdl" + 'End Function Shared Function getRKSVLink(ByVal kasse As cRKSV_Kasse) As String - Return getRKSVLink(kasse.rksv_bez) + Return kasse.rksv_ipAdresse + 'Return getRKSVLink(kasse.rksv_bez) End Function Shared Function stornoRKSV(ByVal kasse As cRKSV_Kasse, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, ByRef answer As String) As Boolean Try @@ -268,11 +270,11 @@ Public Class cRKSV If (Not BELEG.gebuchtStorno) Or stornoGegenbuchen Then ' MsgBox("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ(BELEG.BelegDat) & "' AND BelegNr='" & BELEG.BelegNr & "'") Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ(BELEG.BelegDat) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL") - Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat)) + ' Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat)) If dt IsNot Nothing Then For Each r In dt.Rows Dim KBEntry As New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat), r("JournalNr")) - KBEntry.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer + KBEntry.JournalNr = cRKSV.getNewJournalNr(BELEG) ' GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer' KBEntry.BelegDat = BELEG.BelegDat KBEntry.Buchungsdatum = Now.ToShortDateString KBEntry.Soll = KBEntry.Soll * -1 @@ -314,11 +316,11 @@ Public Class cRKSV Shared Function STORNO_RUECKGAENGIG(BELEG As EABeleg, ByVal grund As String) As EABeleg If BELEG.gebuchtStorno Then Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ(BELEG.BelegDat) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL") - Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat)) + ' Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat)) If dt IsNot Nothing Then For Each r In dt.Rows Dim KBEntry As New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat), r("JournalNr")) - KBEntry.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer + KBEntry.JournalNr = cRKSV.getNewJournalNr(BELEG) ' GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer' KBEntry.BelegDat = BELEG.BelegDat KBEntry.Buchungsdatum = Now.ToShortDateString KBEntry.Soll = KBEntry.Soll * -1 @@ -829,14 +831,14 @@ Public Class cRKSV End If Dim BELEG As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) - Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) + ' Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) BELEG.Ordnungsbegriff = "*** NULL-BELEG ***" BELEG.Beleg_TYP = "0" BELEG.Belegart = "0" BELEG.Name1 = "*** NULL-BELEG ***" BELEG.Steuerschlüssel = 3510 - BELEG.BelegNr = GJ.INCREASE_BELEG() 'Vergabe der Belegnummer + BELEG.BelegNr = cRKSV.getNewBelegNr(BELEG) 'GJ.INCREASE_BELEG() 'Vergabe der Belegnummer ' ' Beleg noch nicht gespeichert.... BELEG.DEL_POS_List()' Positionen löschen, da BelegNr Neu vergeben For Each p In BELEG.POS p.BelegNr = BELEG.BelegNr @@ -852,7 +854,7 @@ Public Class cRKSV If KASSE.rksv_aktiv Then ' WENN für die Kasse die RKSV gilt Dim answer = "" - If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, 0, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service + If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, 0, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service If Not TESTBUCHUNG Then KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summe * -1) cRKSV.DELETE(BELEG) @@ -1342,6 +1344,16 @@ Public Class cRKSV Public Shared Function SpedBuchExists(FilialenNr As Integer, AbfertigungsNr As Integer) As Boolean Return (CInt(SQL.getValueTxtBySql("SELECT count(*) FROM Speditionsbuch WHERE FilialenNr=" & FilialenNr & " AND AbfertigungsNr=" & AbfertigungsNr & " ", "FMZOLL")) > 0) End Function + + Public Shared Function getNewBelegNr(BELEG As EABeleg) As Integer + Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) + Return GJ.INCREASE_BELEG() + End Function + Public Shared Function getNewJournalNr(BELEG As EABeleg) As Integer + Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) + Return GJ.INCREASE_JOURNAL() + End Function + Public Shared Function insertKB(PERSONAL As cPersonal, BELEG As EABeleg, RKSV_id As Integer, RKSV_Beleg_Id As Integer, RKSV_aktiv As Integer, ByRef JournalNr As Integer) Try If BELEG.POS.Count = 0 Then @@ -1351,10 +1363,11 @@ Public Class cRKSV End If ' Belegnr!!!!!!!!!!!!!!!!!!!!!!!!!!!! - Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) + ' Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) - BELEG.BelegNr = GJ.INCREASE_BELEG() 'Vergabe der Belegnummer + BELEG.BelegNr = getNewBelegNr(BELEG) ' GJ.INCREASE_BELEG() 'Vergabe der Belegnummer' ' Beleg noch nicht gespeichert.... BELEG.DEL_POS_List()' Positionen löschen, da BelegNr Neu vergeben + For Each p In BELEG.POS p.BelegNr = BELEG.BelegNr Next @@ -1385,7 +1398,7 @@ Public Class cRKSV ' EINTRAG: Kassenbuch '################ Dim KBEntry As New cKassenbuch(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat), JournalNr) - KBEntry.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer + KBEntry.JournalNr = getNewJournalNr(BELEG) ' GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer' ' KBEntry.JournalNr = fktJournalNr(rst1!Mandant, rst1!Niederlassung, rst1!Benutzer, rst1!BelegDat) KBEntry.Konto = PERSONAL.KassenbuchNr If BELEG.FilialenNr = -1 Or BELEG.AbfertigungsNr = -1 Then @@ -1442,7 +1455,7 @@ Public Class cRKSV End If Dim KBEntryGB As New cKassenbuch(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat), JournalNr) - KBEntryGB.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer + KBEntryGB.JournalNr = getNewJournalNr(BELEG) 'GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer' KBEntryGB.Konto = dtBetraegeGB.Rows(0)("Gegenkonto") KBEntryGB.Buchungstext = p.LeistungsBez KBEntryGB.Buchungsdatum = Now.ToShortDateString @@ -1477,7 +1490,7 @@ Public Class cRKSV If IsNumeric(BELEG.Steuerschlüssel) AndAlso BELEG.Steuerschlüssel > 0 And SteuerBetrag - curSteuerbetrag <> 0 Then Dim KBEntryST As New cKassenbuch(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat), JournalNr) - KBEntryST.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer + KBEntryST.JournalNr = getNewJournalNr(BELEG) 'GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer' KBEntryST.Konto = 8490 KBEntryST.Buchungstext = "Rundungsdifferenz in Steuer" KBEntryST.Buchungsdatum = Now.ToShortDateString diff --git a/SDL/Classes/cRKSV_Kasse.vb b/SDL/Classes/cRKSV_Kasse.vb index 99eb0611..c6a5787f 100644 --- a/SDL/Classes/cRKSV_Kasse.vb +++ b/SDL/Classes/cRKSV_Kasse.vb @@ -17,7 +17,8 @@ Public Class cRKSV_Kasse Property rksv_ITG_id As Object = Nothing Property rksv_AesKey As Object = Nothing Property rksv_KassaGuid As Object = Nothing - + Property rksv_ipAdresse As Object = Nothing + Dim SQL As New SQL @@ -208,6 +209,7 @@ Public Class cRKSV_Kasse Me.rksv_ITG_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_ITG_id"), Nothing) Me.rksv_AesKey = cSqlDb.checkNullReturnValue(dr.Item("rksv_AesKey"), Nothing) Me.rksv_KassaGuid = cSqlDb.checkNullReturnValue(dr.Item("rksv_KassaGuid"), Nothing) + Me.rksv_ipAdresse = cSqlDb.checkNullReturnValue(dr.Item("rksv_ipAdresse"), Nothing) End If dr.Close() @@ -237,6 +239,7 @@ Public Class cRKSV_Kasse list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ITG_id", rksv_ITG_id)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_AesKey", rksv_AesKey)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_KassaGuid", rksv_KassaGuid)) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ipAdresse", rksv_ipAdresse)) Return list End Function diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb index da0fa999..59ea5854 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb @@ -591,7 +591,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.txtEigenmasse._value = "0" Me.txtEigenmasse._Waehrung = False Me.txtEigenmasse._WaehrungZeichen = True - Me.txtEigenmasse.ForeColor = System.Drawing.Color.Black + Me.txtEigenmasse.ForeColor = System.Drawing.Color.Red Me.txtEigenmasse.Location = New System.Drawing.Point(436, 214) Me.txtEigenmasse.MaxLength = 18 Me.txtEigenmasse.MaxLineLength = -1 @@ -600,7 +600,6 @@ Partial Class usrCntlATLAS_EZA_Position Me.txtEigenmasse.Name = "txtEigenmasse" Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20) Me.txtEigenmasse.TabIndex = 24 - Me.txtEigenmasse.Text = "0,00" ' 'txtRohmasse ' @@ -614,7 +613,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.txtRohmasse._value = "0" Me.txtRohmasse._Waehrung = False Me.txtRohmasse._WaehrungZeichen = True - Me.txtRohmasse.ForeColor = System.Drawing.Color.Black + Me.txtRohmasse.ForeColor = System.Drawing.Color.Red Me.txtRohmasse.Location = New System.Drawing.Point(552, 214) Me.txtRohmasse.MaxLength = 18 Me.txtRohmasse.MaxLineLength = -1 @@ -623,7 +622,6 @@ Partial Class usrCntlATLAS_EZA_Position Me.txtRohmasse.Name = "txtRohmasse" Me.txtRohmasse.Size = New System.Drawing.Size(117, 20) Me.txtRohmasse.TabIndex = 25 - Me.txtRohmasse.Text = "0,00" ' 'Label27 ' diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb index 1a8f99b7..ba94f808 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb @@ -130,7 +130,7 @@ MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value)) - Dim u As usrCntlATLAS_NCTS_Position = POS(dgvPositionen.SelectedRows(0).Cells("index").Value) + Dim u As usrCntlATLAS_NCTS_Position = POS(dgvPositionen.SelectedRows(0).Cells("index").Value) '.CreateCopy(New usrCntlATLAS_NCTS_Position)) AddHandler u.RohmasseChanged, Sub(r, pk) diff --git a/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb b/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb index e5263130..04c6ac33 100644 --- a/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb +++ b/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb @@ -229,7 +229,7 @@ Class DAKOSY_Interface_SEND If cDY.eza_FiskalvertretungKz IsNot Nothing Then EA.KopfDaten.FiskalvertretungKz = CInt(Int(cDY.eza_FiskalvertretungKz)) If cDY.eza_Ausstellungsort IsNot Nothing Then EA.KopfDaten.Ausstellungsort = cDY.eza_Ausstellungsort If cDY.eza_ZollrechtlicherStatus IsNot Nothing Then EA.KopfDaten.ZollrechtlicherStatus = cDY.eza_ZollrechtlicherStatus - If cDY.eza_GesamtRohmasse IsNot Nothing Then EA.KopfDaten.GesamtRohMasse = cDY.eza_GesamtRohmasse + If cDY.eza_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.eza_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.eza_GesamtRohmasse).ToString("N1")) If cDY.eza_VerfahrenBeantragtCode IsNot Nothing Then EA.KopfDaten.VerfahrenBeantragtCode = cDY.eza_VerfahrenBeantragtCode If cDY.eza_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.eza_VerkehrszweigInland If cDY.eza_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.eza_VerkehrszweigGrenze @@ -365,7 +365,7 @@ Class DAKOSY_Interface_SEND If u.ezaAd_AdressTyp IsNot Nothing Then ADR.AdressTyp = u.ezaAd_AdressTyp If u.ezaAd_AdressCode IsNot Nothing Then ADR.AdressCode = u.ezaAd_AdressCode If u.ezaAd_TeilnehmerEORI IsNot Nothing Then ADR.TeilnehmerEORI = u.ezaAd_TeilnehmerEORI - If u.ezaAd_TeilnehmerNLNR IsNot Nothing Then ADR.TeilnehmerNLNR = u.ezaAd_TeilnehmerNLNR + If u.ezaAd_TeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(u.ezaAd_TeilnehmerNLNR) Then ADR.TeilnehmerNLNR = u.ezaAd_TeilnehmerNLNR If u.ezaAd_NameFirma1 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma1) If u.ezaAd_NameFirma2 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma2) If u.ezaAd_NameFirma3 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma3) @@ -416,7 +416,7 @@ Class DAKOSY_Interface_SEND If u.ezaWP_AHStatMenge IsNot Nothing Then WP.AHStatMenge = u.ezaWP_AHStatMenge If u.ezaWP_AHStatMengeMasseinheit IsNot Nothing Then WP.AHStatMengeMasseinheit = u.ezaWP_AHStatMengeMasseinheit If u.ezaWP_AHStatMengeQualifier IsNot Nothing Then WP.AHStatMengeQualifier = u.ezaWP_AHStatMengeQualifier - If u.ezaWP_AHStatWert IsNot Nothing Then WP.AHStatWert = u.ezaWP_AHStatWert + If u.ezaWP_AHStatWert IsNot Nothing AndAlso IsNumeric(u.ezaWP_AHStatWert) Then WP.AHStatWert = CInt(u.ezaWP_AHStatWert) If u.ezaWP_AHStatWertManuellKZ IsNot Nothing Then WP.AHStatWertManuellKZ = CInt(Int(u.ezaWP_AHStatWertManuellKZ)) If u.ezaWP_KostenEUSt IsNot Nothing Then WP.KostenEUSt = u.ezaWP_KostenEUSt If u.ezaWP_PackstueckAnzahl IsNot Nothing Then WP.PackstueckAnzahl = u.ezaWP_PackstueckAnzahl.ToString.Replace(".", "") @@ -792,7 +792,7 @@ Class DAKOSY_Interface_SEND If cDY.ncts_Versender_EORI IsNot Nothing Or cDY.ncts_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ If cDY.ncts_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.EORI = cDY.ncts_Versender_EORI - If cDY.ncts_Versender_NLNR IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.NLNR = cDY.ncts_Versender_NLNR + If cDY.ncts_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.NLNR = cDY.ncts_Versender_NLNR If cDY.ncts_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Name = cDY.ncts_Versender_Name If cDY.ncts_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.StrasseHausnummer = cDY.ncts_Versender_StrasseHausnummer If cDY.ncts_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.PLZ = cDY.ncts_Versender_PLZ @@ -803,7 +803,7 @@ Class DAKOSY_Interface_SEND If cDY.ncts_Empfaenger_EORI IsNot Nothing Or cDY.ncts_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ If cDY.ncts_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = cDY.ncts_Empfaenger_EORI - If cDY.ncts_Empfaenger_NLNR IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.NLNR = cDY.ncts_Empfaenger_NLNR + If cDY.ncts_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.NLNR = cDY.ncts_Empfaenger_NLNR If cDY.ncts_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Name = cDY.ncts_Empfaenger_Name If cDY.ncts_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.StrasseHausnummer = cDY.ncts_Empfaenger_StrasseHausnummer If cDY.ncts_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.PLZ = cDY.ncts_Empfaenger_PLZ @@ -814,7 +814,7 @@ Class DAKOSY_Interface_SEND If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Or cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.EORI = cDY.ncts_Hauptverpflichteter_EORI - If cDY.ncts_Hauptverpflichteter_NLNR IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.NLNR = cDY.ncts_Hauptverpflichteter_NLNR + If cDY.ncts_Hauptverpflichteter_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Hauptverpflichteter_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.NLNR = cDY.ncts_Hauptverpflichteter_NLNR If cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Name = cDY.ncts_Hauptverpflichteter_Name If cDY.ncts_Hauptverpflichteter_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.StrasseHausnummer = cDY.ncts_Hauptverpflichteter_StrasseHausnummer If cDY.ncts_Hauptverpflichteter_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.PLZ = cDY.ncts_Hauptverpflichteter_PLZ @@ -852,7 +852,7 @@ Class DAKOSY_Interface_SEND If cDY.ncts_SumA_Versender_EORI IsNot Nothing Or cDY.ncts_SumA_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp If cDY.ncts_SumA_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.EORI = cDY.ncts_SumA_Versender_EORI - If cDY.ncts_SumA_Versender_NLNR IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.NLNR = cDY.ncts_SumA_Versender_NLNR + If cDY.ncts_SumA_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.NLNR = cDY.ncts_SumA_Versender_NLNR If cDY.ncts_SumA_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Name = cDY.ncts_SumA_Versender_Name If cDY.ncts_SumA_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.StrasseHausnummer = cDY.ncts_SumA_Versender_StrasseHausnummer If cDY.ncts_SumA_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.PLZ = cDY.ncts_SumA_Versender_PLZ @@ -863,7 +863,7 @@ Class DAKOSY_Interface_SEND If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Or cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.EORI = cDY.ncts_SumA_Empfaenger_EORI - If cDY.ncts_SumA_Empfaenger_NLNR IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.NLNR = cDY.ncts_SumA_Empfaenger_NLNR + If cDY.ncts_SumA_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.NLNR = cDY.ncts_SumA_Empfaenger_NLNR If cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Name = cDY.ncts_SumA_Empfaenger_Name If cDY.ncts_SumA_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.StrasseHausnummer = cDY.ncts_SumA_Empfaenger_StrasseHausnummer If cDY.ncts_SumA_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.PLZ = cDY.ncts_SumA_Empfaenger_PLZ @@ -874,7 +874,7 @@ Class DAKOSY_Interface_SEND If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Or cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer = New VersandanmeldungNCTSDE.AdresseVATyp If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.EORI = cDY.ncts_SumA_Befoerderer_EORI - If cDY.ncts_SumA_Befoerderer_NLNR IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.NLNR = cDY.ncts_SumA_Befoerderer_NLNR + If cDY.ncts_SumA_Befoerderer_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Befoerderer_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.NLNR = cDY.ncts_SumA_Befoerderer_NLNR If cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Name = cDY.ncts_SumA_Befoerderer_Name If cDY.ncts_SumA_Befoerderer_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.StrasseHausnummer = cDY.ncts_SumA_Befoerderer_StrasseHausnummer If cDY.ncts_SumA_Befoerderer_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.PLZ = cDY.ncts_SumA_Befoerderer_PLZ @@ -915,7 +915,7 @@ Class DAKOSY_Interface_SEND If p.nctsWP_Versender_EORI IsNot Nothing Or p.nctsWP_Versender_Name IsNot Nothing Then WP.AdressenPosition.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ If p.nctsWP_Versender_EORI IsNot Nothing Then WP.AdressenPosition.Versender.EORI = p.nctsWP_Versender_EORI - If p.nctsWP_Versender_NLNR IsNot Nothing Then WP.AdressenPosition.Versender.NLNR = p.nctsWP_Versender_NLNR + If p.nctsWP_Versender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Versender_NLNR) Then WP.AdressenPosition.Versender.NLNR = p.nctsWP_Versender_NLNR If p.nctsWP_Versender_Name IsNot Nothing Then WP.AdressenPosition.Versender.Name = p.nctsWP_Versender_Name If p.nctsWP_Versender_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Versender.StrasseHausnummer = p.nctsWP_Versender_StrasseHausnummer If p.nctsWP_Versender_PLZ IsNot Nothing Then WP.AdressenPosition.Versender.PLZ = p.nctsWP_Versender_PLZ @@ -926,7 +926,7 @@ Class DAKOSY_Interface_SEND If p.nctsWP_Empfaenger_EORI IsNot Nothing Or p.nctsWP_Empfaenger_Name IsNot Nothing Then WP.AdressenPosition.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ If p.nctsWP_Empfaenger_EORI IsNot Nothing Then WP.AdressenPosition.Empfaenger.EORI = p.nctsWP_Empfaenger_EORI - If p.nctsWP_Empfaenger_NLNR IsNot Nothing Then WP.AdressenPosition.Empfaenger.NLNR = p.nctsWP_Empfaenger_NLNR + If p.nctsWP_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Empfaenger_NLNR) Then WP.AdressenPosition.Empfaenger.NLNR = p.nctsWP_Empfaenger_NLNR If p.nctsWP_Empfaenger_Name IsNot Nothing Then WP.AdressenPosition.Empfaenger.Name = p.nctsWP_Empfaenger_Name If p.nctsWP_Empfaenger_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Empfaenger.StrasseHausnummer = p.nctsWP_Empfaenger_StrasseHausnummer If p.nctsWP_Empfaenger_PLZ IsNot Nothing Then WP.AdressenPosition.Empfaenger.PLZ = p.nctsWP_Empfaenger_PLZ @@ -943,7 +943,7 @@ Class DAKOSY_Interface_SEND If p.nctsWP_SumAVersender_EORI IsNot Nothing Or p.nctsWP_SumAVersender_Name IsNot Nothing Then WP.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp If p.nctsWP_SumAVersender_EORI IsNot Nothing Then WP.SumASicherheit.Versender.EORI = p.nctsWP_SumAVersender_EORI - If p.nctsWP_SumAVersender_NLNR IsNot Nothing Then WP.SumASicherheit.Versender.NLNR = p.nctsWP_SumAVersender_NLNR + If p.nctsWP_SumAVersender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAVersender_NLNR) Then WP.SumASicherheit.Versender.NLNR = p.nctsWP_SumAVersender_NLNR If p.nctsWP_SumAVersender_Name IsNot Nothing Then WP.SumASicherheit.Versender.Name = p.nctsWP_SumAVersender_Name If p.nctsWP_SumAVersender_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Versender.StrasseHausnummer = p.nctsWP_SumAVersender_StrasseHausnummer If p.nctsWP_SumAVersender_PLZ IsNot Nothing Then WP.SumASicherheit.Versender.PLZ = p.nctsWP_SumAVersender_PLZ @@ -954,7 +954,7 @@ Class DAKOSY_Interface_SEND If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Or p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then WP.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Then WP.SumASicherheit.Empfaenger.EORI = p.nctsWP_SumAEmpfaenger_EORI - If p.nctsWP_SumAEmpfaenger_NLNR IsNot Nothing Then WP.SumASicherheit.Empfaenger.NLNR = p.nctsWP_SumAEmpfaenger_NLNR + If p.nctsWP_SumAEmpfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAEmpfaenger_NLNR) Then WP.SumASicherheit.Empfaenger.NLNR = p.nctsWP_SumAEmpfaenger_NLNR If p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then WP.SumASicherheit.Empfaenger.Name = p.nctsWP_SumAEmpfaenger_Name If p.nctsWP_SumAEmpfaenger_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Empfaenger.StrasseHausnummer = p.nctsWP_SumAEmpfaenger_StrasseHausnummer If p.nctsWP_SumAEmpfaenger_PLZ IsNot Nothing Then WP.SumASicherheit.Empfaenger.PLZ = p.nctsWP_SumAEmpfaenger_PLZ @@ -1119,7 +1119,7 @@ Class DAKOSY_Interface_SEND If cDY.aes_ContainerIndikator IsNot Nothing Then EA.KopfDaten.ContainerIndikator = cDY.aes_ContainerIndikator If cDY.aes_BeteiligteKonstellation IsNot Nothing Then EA.KopfDaten.BeteiligtenKonstellation = cDY.aes_BeteiligteKonstellation 'If cDY.aes_AdressdatenKonstellation IsNot Nothing Then EA.KopfDaten.AdressatenKonstellation = cDY.aes_AdressdatenKonstellation --> OHNE FUNK - If cDY.aes_GesamtRohmasse IsNot Nothing Then EA.KopfDaten.GesamtRohMasse = cDY.aes_GesamtRohmasse + If cDY.aes_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.aes_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.aes_GesamtRohmasse).ToString("N1")) If cDY.aes_RegistriernummerFremdsystem IsNot Nothing Then EA.KopfDaten.RegistrierNummerFremdSystem = cDY.aes_RegistriernummerFremdsystem If cDY.aes_Vermerk IsNot Nothing Then EA.KopfDaten.Vermerk = cDY.aes_Vermerk If cDY.aes_KennnummerSendung IsNot Nothing Then EA.KopfDaten.KennnummerSendung = cDY.aes_KennnummerSendung @@ -1180,7 +1180,7 @@ Class DAKOSY_Interface_SEND 'Ausfuehrer If (cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Or cDY.aes_AusfuehrerTeilnehmerName <> "") Then If cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Ausfuehrer.TeilnehmerEORI = cDY.aes_AusfuehrerTeilnehmerEORI - If cDY.aes_AusfuehrerTeilnehmerNLNR IsNot Nothing Then EA.KopfDaten.Ausfuehrer.TeilnehmerNLNR = cDY.aes_AusfuehrerTeilnehmerNLNR + If cDY.aes_AusfuehrerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AusfuehrerTeilnehmerNLNR) Then EA.KopfDaten.Ausfuehrer.TeilnehmerNLNR = cDY.aes_AusfuehrerTeilnehmerNLNR If cDY.aes_AusfuehrerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Name = cDY.aes_AusfuehrerTeilnehmerName If cDY.aes_AusfuehrerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Strasse = cDY.aes_AusfuehrerTeilnehmerStrasse If cDY.aes_AusfuehrerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ort = cDY.aes_AusfuehrerTeilnehmerOrt @@ -1196,7 +1196,7 @@ Class DAKOSY_Interface_SEND 'Empfaenger If (cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Or cDY.aes_EmpfaengerTeilnehmerName <> "") Then If cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Empfaenger.TeilnehmerEORI = cDY.aes_EmpfaengerTeilnehmerEORI - If cDY.aes_EmpfaengerTeilnehmerNLNR IsNot Nothing Then EA.KopfDaten.Empfaenger.TeilnehmerNLNR = cDY.aes_EmpfaengerTeilnehmerNLNR + If cDY.aes_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_EmpfaengerTeilnehmerNLNR) Then EA.KopfDaten.Empfaenger.TeilnehmerNLNR = cDY.aes_EmpfaengerTeilnehmerNLNR If cDY.aes_EmpfaengerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Empfaenger.Name = cDY.aes_EmpfaengerTeilnehmerName If cDY.aes_EmpfaengerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Empfaenger.Strasse = cDY.aes_EmpfaengerTeilnehmerStrasse If cDY.aes_EmpfaengerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Empfaenger.Ort = cDY.aes_EmpfaengerTeilnehmerOrt @@ -1207,7 +1207,7 @@ Class DAKOSY_Interface_SEND 'Anmelder If (cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_AnmelderTeilnehmerName <> "") Then If cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Anmelder.TeilnehmerEORI = cDY.aes_AnmelderTeilnehmerEORI - If cDY.aes_AnmelderTeilnehmerNLNR IsNot Nothing Then EA.KopfDaten.Anmelder.TeilnehmerNLNR = cDY.aes_AnmelderTeilnehmerNLNR + If cDY.aes_AnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AnmelderTeilnehmerNLNR) Then EA.KopfDaten.Anmelder.TeilnehmerNLNR = cDY.aes_AnmelderTeilnehmerNLNR If cDY.aes_AnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.Anmelder.Name = cDY.aes_AnmelderTeilnehmerName If cDY.aes_AnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Anmelder.Strasse = cDY.aes_AnmelderTeilnehmerStrasse If cDY.aes_AnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Anmelder.Ort = cDY.aes_AnmelderTeilnehmerOrt @@ -1223,7 +1223,7 @@ Class DAKOSY_Interface_SEND 'VertreterAnmelder If (cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_VertreterAnmelderTeilnehmerName <> "") Then If cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.TeilnehmerEORI = cDY.aes_VertreterAnmelderTeilnehmerEORI - If cDY.aes_VertreterAnmelderTeilnehmerNLNR IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.TeilnehmerNLNR = cDY.aes_VertreterAnmelderTeilnehmerNLNR + If cDY.aes_VertreterAnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VertreterAnmelderTeilnehmerNLNR) Then EA.KopfDaten.VertreterAnmelder.TeilnehmerNLNR = cDY.aes_VertreterAnmelderTeilnehmerNLNR If cDY.aes_VertreterAnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Name = cDY.aes_VertreterAnmelderTeilnehmerName If cDY.aes_VertreterAnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Strasse = cDY.aes_VertreterAnmelderTeilnehmerStrasse If cDY.aes_VertreterAnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ort = cDY.aes_VertreterAnmelderTeilnehmerOrt @@ -1239,7 +1239,7 @@ Class DAKOSY_Interface_SEND 'Subunternehmer If (cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Or cDY.aes_SubunternehmerTeilnehmerName <> "") Then If cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.SubUnternehmer.TeilnehmerEORI = cDY.aes_SubunternehmerTeilnehmerEORI - If cDY.aes_SubunternehmerTeilnehmerNLNR IsNot Nothing Then EA.KopfDaten.SubUnternehmer.TeilnehmerNLNR = cDY.aes_SubunternehmerTeilnehmerNLNR + If cDY.aes_SubunternehmerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_SubunternehmerTeilnehmerNLNR) Then EA.KopfDaten.SubUnternehmer.TeilnehmerNLNR = cDY.aes_SubunternehmerTeilnehmerNLNR If cDY.aes_SubunternehmerTeilnehmerName IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Name = cDY.aes_SubunternehmerTeilnehmerName If cDY.aes_SubunternehmerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Strasse = cDY.aes_SubunternehmerTeilnehmerStrasse If cDY.aes_SubunternehmerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ort = cDY.aes_SubunternehmerTeilnehmerOrt @@ -1255,7 +1255,7 @@ Class DAKOSY_Interface_SEND 'VerfahrensinhaberPV If (cDY.aes_VerfahrensinhaberPVTeilnehmerEORI) Then If cDY.aes_VerfahrensinhaberPVTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerEORI = cDY.aes_VerfahrensinhaberPVTeilnehmerEORI - If cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerNLNR = cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR + If cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR) Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerNLNR = cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Sachbearbeiter = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefonnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefaxnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax @@ -1413,7 +1413,7 @@ Class DAKOSY_Interface_SEND 'Empfaenger If (WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Or WP.aesWP_EmpfaengerTeilnehmerName <> "") Then If WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Then WP_DY.Empfaenger.TeilnehmerEORI = WP.aesWP_EmpfaengerTeilnehmerEORI - If WP.aesWP_EmpfaengerTeilnehmerNLNR IsNot Nothing Then WP_DY.Empfaenger.TeilnehmerNLNR = WP.aesWP_EmpfaengerTeilnehmerNLNR + If WP.aesWP_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(WP.aesWP_EmpfaengerTeilnehmerNLNR) Then WP_DY.Empfaenger.TeilnehmerNLNR = WP.aesWP_EmpfaengerTeilnehmerNLNR If WP.aesWP_EmpfaengerTeilnehmerName IsNot Nothing Then WP_DY.Empfaenger.Name = WP.aesWP_EmpfaengerTeilnehmerName If WP.aesWP_EmpfaengerTeilnehmerStrasse IsNot Nothing Then WP_DY.Empfaenger.Strasse = WP.aesWP_EmpfaengerTeilnehmerStrasse If WP.aesWP_EmpfaengerTeilnehmerOrt IsNot Nothing Then WP_DY.Empfaenger.Ort = WP.aesWP_EmpfaengerTeilnehmerOrt diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 73cdb3ec..74cd3744 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -829,11 +829,10 @@ Public Class cFakturierung 'THEREFORE IMPORT: '------------------------------------------------------------------------------- Try - If Not Kopie And Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - Select Case RECHNUNG.Firma_ID - Case 1, 11 - VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, "")) - End Select + If Not Kopie And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - in Therefore speichern?", vbYesNoCancel)) Then + + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False) + End If Catch ex As Exception MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace) @@ -1239,11 +1238,8 @@ Public Class cFakturierung 'THEREFORE IMPORT: '------------------------------------------------------------------------------- Try - If Not SRDruckWiederholen And Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - Select Case Firma_ID - Case 1, 11 - VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(pathPDF, "SA " & RechnungsNr & " " & dt.Rows(0)("RechnungsName 1"), "") - End Select + If Not SRDruckWiederholen And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - in Therefore speichern?", vbYesNoCancel)) Then + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(pathPDF, "SA " & RechnungsNr & " " & dt.Rows(0)("RechnungsName 1"), "", Firma_ID, False) End If Catch ex As Exception MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace) diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb index c8990613..1e020d53 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb @@ -78,6 +78,8 @@ Partial Class frmAbrechnungsMaske Me.btnBisJahr = New System.Windows.Forms.Button() Me.btnVonJahr = New System.Windows.Forms.Button() Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label14 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() @@ -97,7 +99,7 @@ Partial Class frmAbrechnungsMaske Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1406, 615) + Me.pnl.Size = New System.Drawing.Size(1442, 615) Me.pnl.TabIndex = 0 ' 'SplitContainer @@ -116,18 +118,18 @@ Partial Class frmAbrechnungsMaske 'SplitContainer.Panel2 ' Me.SplitContainer.Panel2.Controls.Add(Me.UsrCntlFaktAbrechnung1) - Me.SplitContainer.Size = New System.Drawing.Size(1406, 615) - Me.SplitContainer.SplitterDistance = 539 + Me.SplitContainer.Size = New System.Drawing.Size(1442, 615) + Me.SplitContainer.SplitterDistance = 575 Me.SplitContainer.TabIndex = 0 ' 'tbcntr ' Me.tbcntr.Controls.Add(Me.TabPage1) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill - Me.tbcntr.Location = New System.Drawing.Point(0, 150) + Me.tbcntr.Location = New System.Drawing.Point(0, 170) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(539, 465) + Me.tbcntr.Size = New System.Drawing.Size(575, 445) Me.tbcntr.TabIndex = 3 ' 'TabPage1 @@ -139,7 +141,7 @@ Partial Class frmAbrechnungsMaske Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(531, 439) + Me.TabPage1.Size = New System.Drawing.Size(567, 419) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Rechnungen" Me.TabPage1.UseVisualStyleBackColor = True @@ -183,7 +185,7 @@ Partial Class frmAbrechnungsMaske Me.MyDatagridview1.RowHeadersVisible = False Me.MyDatagridview1.RowTemplate.Height = 28 Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.MyDatagridview1.Size = New System.Drawing.Size(525, 350) + Me.MyDatagridview1.Size = New System.Drawing.Size(561, 330) Me.MyDatagridview1.TabIndex = 1 ' 'Panel2 @@ -205,10 +207,10 @@ Partial Class frmAbrechnungsMaske Me.Panel2.Controls.Add(Me.Label2) Me.Panel2.Controls.Add(Me.Label10) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel2.Location = New System.Drawing.Point(3, 353) + Me.Panel2.Location = New System.Drawing.Point(3, 333) Me.Panel2.Margin = New System.Windows.Forms.Padding(2) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(525, 83) + Me.Panel2.Size = New System.Drawing.Size(561, 83) Me.Panel2.TabIndex = 0 ' 'cboPrinter @@ -273,7 +275,7 @@ Partial Class frmAbrechnungsMaske Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(469, 10) + Me.btn.Location = New System.Drawing.Point(505, 10) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(53, 36) Me.btn.TabIndex = 4 @@ -283,7 +285,7 @@ Partial Class frmAbrechnungsMaske ' Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label6.Location = New System.Drawing.Point(466, 46) + Me.Label6.Location = New System.Drawing.Point(502, 46) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(56, 26) Me.Label6.TabIndex = 13 @@ -390,6 +392,8 @@ Partial Class frmAbrechnungsMaske 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.MyComboBox1) + Me.Panel1.Controls.Add(Me.Label14) Me.Panel1.Controls.Add(Me.cbx) Me.Panel1.Controls.Add(Me.MyComboBox3) Me.Panel1.Controls.Add(Me.Label5) @@ -402,7 +406,7 @@ Partial Class frmAbrechnungsMaske Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Margin = New System.Windows.Forms.Padding(2) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(539, 150) + Me.Panel1.Size = New System.Drawing.Size(575, 170) Me.Panel1.TabIndex = 0 ' 'cbx @@ -410,7 +414,7 @@ Partial Class frmAbrechnungsMaske Me.cbx.AutoSize = True Me.cbx.Checked = True Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbx.Location = New System.Drawing.Point(348, 37) + Me.cbx.Location = New System.Drawing.Point(348, 54) Me.cbx.Name = "cbx" Me.cbx.Size = New System.Drawing.Size(181, 17) Me.cbx.TabIndex = 34 @@ -504,9 +508,9 @@ Partial Class frmAbrechnungsMaske Me.MyPanel1.Controls.Add(Me.btnBisJahr) Me.MyPanel1.Controls.Add(Me.btnVonJahr) Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom - Me.MyPanel1.Location = New System.Drawing.Point(0, 60) + Me.MyPanel1.Location = New System.Drawing.Point(0, 80) Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(539, 90) + Me.MyPanel1.Size = New System.Drawing.Size(575, 90) Me.MyPanel1.TabIndex = 51 Me.MyPanel1.Visible = False ' @@ -825,11 +829,32 @@ Partial Class frmAbrechnungsMaske Me.UsrCntlFaktAbrechnung1.Size = New System.Drawing.Size(863, 615) Me.UsrCntlFaktAbrechnung1.TabIndex = 0 ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(453, 28) + Me.MyComboBox1.Margin = New System.Windows.Forms.Padding(2) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(83, 21) + Me.MyComboBox1.TabIndex = 53 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(345, 31) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(108, 13) + Me.Label14.TabIndex = 52 + Me.Label14.Text = "Rechnungsdruck-Art:" + ' 'frmAbrechnungsMaske ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1406, 615) + Me.ClientSize = New System.Drawing.Size(1442, 615) Me.Controls.Add(Me.pnl) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.KeyPreview = True @@ -906,4 +931,6 @@ Partial Class frmAbrechnungsMaske Friend WithEvents Label4 As Label Friend WithEvents Button4 As Button Friend WithEvents Label12 As Label + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label14 As Label End Class diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 6457a642..cd34abf2 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -27,6 +27,13 @@ Public Class frmAbrechnungsMaske MyComboBox3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SR", "SR")) MyComboBox3.changeItem("") + MyComboBox1.Items.Clear() + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("POST", "0")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FAX", "1")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-MAIL", "2")) + MyComboBox1.changeItem("") + 'BERECHTIGUNG 90 = FAKTURIERUNG!!! Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" @@ -83,8 +90,9 @@ Public Class frmAbrechnungsMaske With dgv Dim sqlstr = "" ' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID" - sqlstr &= " SELECT FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr as varchar) as PosNr, UnterNr, Firma_ID,Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr" - sqlstr &= " FROM Rechnungsausgang" + sqlstr &= " SELECT FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr as varchar) as PosNr, UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr" + sqlstr &= " ,(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' ELSE '-' END) as Rechnungsdruck " + sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr" sqlstr &= " WHERE 1=1 " sqlstr &= getRGWhere(MyComboBox3._value) @@ -109,6 +117,10 @@ Public Class frmAbrechnungsMaske .Columns("Rechnungsempfänger").MinimumWidth = 150 .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("Rechnungsdruck").Width = 60 + .Columns("Rechnungsdruck").HeaderText = "Rg.Art" + .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("Betrag").DefaultCellStyle.Format = "C2" End If @@ -120,9 +132,9 @@ Public Class frmAbrechnungsMaske Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME srchSB = MyComboBox2._value Select Case filterSR - Case "ER" : sqlstr &= " And Sammelrechnung IN (0) " - Case "SR" : sqlstr &= " And Sammelrechnung NOT IN (0,6) " - Case Else : sqlstr &= " And Sammelrechnung NOT IN (6) " + Case "ER" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (0) " + Case "SR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (0,6) " + Case Else : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (6) " End Select If cbx.Checked Then @@ -140,14 +152,15 @@ Public Class frmAbrechnungsMaske sqlstr &= " And (Status = 0 or DruckDatumZeit is null) " End If - - - If srchSB <> "" Then sqlstr &= " And Sachbearbeiter='" & srchSB & "' " - If cboFirma._value <> "" Then sqlstr &= " AND Firma_ID=" & cboFirma._value & " " + If MyComboBox1._value <> "" Then + sqlstr &= " And Rechnungsdruck='" & MyComboBox1._value & "' " + End If + If srchSB <> "" Then sqlstr &= " And Rechnungsausgang.Sachbearbeiter='" & srchSB & "' " + If cboFirma._value <> "" Then sqlstr &= " AND Rechnungsausgang.Firma_ID=" & cboFirma._value & " " ' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)" Return sqlstr End Function - Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged, MyComboBox2.SelectedIndexChanged, MyComboBox3.SelectedIndexChanged + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged, MyComboBox2.SelectedIndexChanged, MyComboBox3.SelectedIndexChanged, MyComboBox1.SelectedIndexChanged initDGV() End Sub Function checkSrchValues() As Boolean @@ -416,9 +429,9 @@ Public Class frmAbrechnungsMaske Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged If cbx.Checked Then - Panel1.Height = 150 + Panel1.Height = 170 Else - Panel1.Height = 60 + Panel1.Height = 80 End If MyPanel1.Visible = cbx.Checked initDGV() @@ -519,7 +532,7 @@ Public Class frmAbrechnungsMaske initBtns("") End Sub - Private Sub MyTextBox2_TextChanged(sender As Object, e As KeyEventArgs) Handles MyTextBox2.KeyDown, MyTextBox3.KeyDown ', MyTextBox2.TextChanged + Private Sub MyTextBox2_TextChanged(sender As Object, e As KeyEventArgs) Handles MyTextBox2.KeyDown, MyTextBox3.KeyDown, MyTextBox2.TextChanged ', MyTextBox2.TextChanged If e.KeyCode = Keys.Return Then initBtns("") End If diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index a3a908d0..c0fe432c 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -158,22 +158,35 @@ Public Class frmFaktEmail Sub setMailText(RechnungsLandKz) Dim txtRgNr = "" - If SR Then - txtRgNr = getRgNr(RechnungsNr) - Else - txtRgNr = getRgNr(If(RECHNUNG.RechnungsNr, -1)) - End If + Dim BelegartenNr = "" + + Try + If SR Then + txtRgNr = getRgNr(RechnungsNr) + If SR_DT.Rows.Count > 0 Then + BelegartenNr = SR_DT.Rows(0)("BelegartenNr") + For Each r In SR_DT.Rows + If BelegartenNr <> r("BelegartenNr") Then BelegartenNr = "" : Exit For 'Im Zweifel 70 + Next + End If + Else + txtRgNr = getRgNr(If(RECHNUNG.RechnungsNr, -1)) + BelegartenNr = RECHNUNG.BelegartenNr + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try Dim TextHTML = "" - Select Case RechnungsLandKz Case "TR" txtSubject.Text = "Rechnung Nr. " & txtRgNr TextHTML = "Sayin Bayanlar ve Baylar," & vbNewLine & vbNewLine & "ekte baslikta yazan faturayi bulabilirsinz." TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Saygilarimizla" & vbNewLine & vbNewLine & "" Case "A", "AT", "D", "DE", "CH" - txtSubject.Text = "Rechnung Nr. " & txtRgNr - TextHTML = "Sehr geehrte Damen und Herren" & vbNewLine & vbNewLine & "im Anhang senden wir Ihnen die o.g. Rechnung." + txtSubject.Text = If(BelegartenNr = 71, "Gutschrift Nr. ", "Rechnung Nr. ") & txtRgNr + TextHTML = "Sehr geehrte Damen und Herren" & vbNewLine & vbNewLine & "im Anhang senden wir Ihnen die o.g. " & If(BelegartenNr = 71, "Gutschrift(en).", "Rechnung(en).") TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & vbNewLine & "" Case Else txtSubject.Text = "Invoice No. " & txtRgNr @@ -216,8 +229,6 @@ Public Class frmFaktEmail Mail.Subject = txtSubject.Text - - 'Mail-Adressen eintragen '----------------------------------------------------------------- For Each r In dgvEmail.Rows @@ -239,7 +250,6 @@ Public Class frmFaktEmail Mail.HTMLBody = TextHTML Mail.Subject = txtSubject.Text - ATTACHMENTS.Clear() '----------------------------------------------------------------- 'Rechnungen anfügen diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb index 4a466db5..63abe469 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb @@ -145,10 +145,12 @@ Partial Class frmFaktSammelRgDrucken Me.cboFirma._allowedValuesFreiText = Nothing Me.cboFirma._allowFreiText = False Me.cboFirma._value = "" + Me.cboFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cboFirma.FormattingEnabled = True Me.cboFirma.Location = New System.Drawing.Point(252, 18) Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(477, 21) + Me.cboFirma.Size = New System.Drawing.Size(547, 21) Me.cboFirma.TabIndex = 2 ' 'lbl @@ -249,6 +251,9 @@ Partial Class frmFaktSammelRgDrucken Me.MyDatagridview1.AllowUserToDeleteRows = False Me.MyDatagridview1.AllowUserToResizeColumns = False Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.MyDatagridview1.Location = New System.Drawing.Point(252, 88) @@ -256,12 +261,12 @@ Partial Class frmFaktSammelRgDrucken Me.MyDatagridview1.ReadOnly = True Me.MyDatagridview1.RowHeadersVisible = False Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.MyDatagridview1.Size = New System.Drawing.Size(477, 201) + Me.MyDatagridview1.Size = New System.Drawing.Size(547, 201) Me.MyDatagridview1.TabIndex = 18 ' 'btn ' - Me.btn.BackgroundImage = Global.SDL.My.Resources.printer2 + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.printer2 Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Location = New System.Drawing.Point(12, 166) @@ -272,7 +277,7 @@ Partial Class frmFaktSammelRgDrucken ' 'Button9 ' - Me.Button9.BackgroundImage = Global.SDL.My.Resources.pdf + Me.Button9.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -287,7 +292,7 @@ Partial Class frmFaktSammelRgDrucken ' 'Button8 ' - Me.Button8.BackgroundImage = Global.SDL.My.Resources.email_big + Me.Button8.BackgroundImage = Global.SDL.My.Resources.Resources.email_big Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -324,9 +329,10 @@ Partial Class frmFaktSammelRgDrucken ' 'lkl ' + Me.lkl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lkl.AutoSize = True Me.lkl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lkl.Location = New System.Drawing.Point(634, 69) + Me.lkl.Location = New System.Drawing.Point(704, 69) Me.lkl.Name = "lkl" Me.lkl.Size = New System.Drawing.Size(95, 13) Me.lkl.TabIndex = 9 @@ -348,10 +354,12 @@ Partial Class frmFaktSammelRgDrucken Me.cboSB._allowedValuesFreiText = Nothing Me.cboSB._allowFreiText = False Me.cboSB._value = "" + Me.cboSB.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cboSB.FormattingEnabled = True Me.cboSB.Location = New System.Drawing.Point(532, 40) Me.cboSB.Name = "cboSB" - Me.cboSB.Size = New System.Drawing.Size(197, 21) + Me.cboSB.Size = New System.Drawing.Size(267, 21) Me.cboSB.TabIndex = 6 Me.cboSB.Visible = False ' @@ -370,7 +378,7 @@ Partial Class frmFaktSammelRgDrucken Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(741, 297) + Me.ClientSize = New System.Drawing.Size(811, 297) Me.Controls.Add(Me.lblSB) Me.Controls.Add(Me.cboSB) Me.Controls.Add(Me.lkl) diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 093fec23..41d463a0 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -55,10 +55,11 @@ Public Class frmFaktSammelRgDrucken Sub initDGV() With MyDatagridview1 - Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & " - FROM Rechnungsausgang + Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & " + ,(SELECT CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' ELSE '-' END FROM Adressen WHERE AdressenNr=Rechnungsausgang.RechnungsKundenNr ) as Rechnungsdruck + FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechung & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & txtZeitraumBis._value & "' - " & If(Sammelrechung = 7 And cboSB._value <> "", " AND Sachbearbeiter='" & cboSB._value & "' ", "") & " + " & If(Sammelrechung = 7 And cboSB._value <> "", " AND Rechnungsausgang.Sachbearbeiter='" & cboSB._value & "' ", "") & " GROUP BY RechnungsKundenNr " & If(Sammelrechung = 7, ",AvisoId", "") & " ORDER BY Rechnungsausgang.RechnungsKundenNr " 'Rechnungsausgang.Status IN (0,2) --> vormals nur 2 @@ -69,13 +70,15 @@ Public Class frmFaktSammelRgDrucken .Columns("RechnungsName 1").HeaderText = "Firma" .Columns("RechnungsLandKz").Visible = False .Columns("Anzahl").Width = 42 + .Columns("Rechnungsdruck").Width = 80 + .Columns("Rechnungsdruck").HeaderText = "Rg.Art" + .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(2).Visible = False - If .Columns.Count = 6 Then + If .Columns.Count = 7 Then .Columns("LKW").Width = 80 End If - .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill .ClearSelection() End With diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 53f73ff1..f4c033ce 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -465,7 +465,7 @@ Public Class usrCntlFaktAbrechnung cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 monatlich", 3)) cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 Dekade", 4)) cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 wöchentlich", 5)) - cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 Maut/Diesel", 6)) + ' cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 Maut/Diesel", 6)) cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 pro LKW", 7)) cboSammelrechnung.changeItem(0) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb new file mode 100644 index 00000000..b93b525f --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb @@ -0,0 +1,786 @@ + +Partial Public Class rptLaufzettelZollDE + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader + Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptLaufzettelZollDE)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.Shape10 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.Shape11 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtVerzollungsadresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtAnmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtEmpfänger = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.txtFirmaInfo_ATILLA = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtFirmaInfo_VERAG = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtFirmaInfo_IMEX = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Shape3 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.Shape4 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.Shape5 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtLKWId = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtSB = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox18 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox25 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtGrenzstelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox27 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox32 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtGesColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtGesGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtEmail = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAnmerkung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtEmpfänger, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtLKWId, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtSB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGrenzstelle, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.ColumnDirection = GrapeCity.ActiveReports.SectionReportModel.ColumnDirection.AcrossDown + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape10, Me.Shape11, Me.txtAbfertigungsart, Me.txtAbsender, Me.txtVerzollungsadresse, Me.txtNr, Me.txtAnmerkung, Me.txtPosNr, Me.txtEmpfänger, Me.Shape8, Me.SubReport}) + Me.Detail.Height = 0.6461451! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'Shape10 + ' + Me.Shape10.Height = 0.08346456! + Me.Shape10.Left = 0.4314961! + Me.Shape10.Name = "Shape10" + Me.Shape10.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape10.Top = 0! + Me.Shape10.Width = 7.086614! + ' + 'Shape11 + ' + Me.Shape11.Height = 0.08346456! + Me.Shape11.Left = 0.4314961! + Me.Shape11.Name = "Shape11" + Me.Shape11.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape11.Top = 0! + Me.Shape11.Width = 1.15748! + ' + 'txtAbfertigungsart + ' + Me.txtAbfertigungsart.CanGrow = False + Me.txtAbfertigungsart.Height = 0.1669291! + Me.txtAbfertigungsart.Left = 0.614567! + Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.txtAbfertigungsart.Text = "Zollabfertigung" + Me.txtAbfertigungsart.Top = 0.01653543! + Me.txtAbfertigungsart.Width = 0.9744096! + ' + 'txtAbsender + ' + Me.txtAbsender.CanGrow = False + Me.txtAbsender.Height = 0.1669292! + Me.txtAbsender.Left = 1.588977! + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtAbsender.Text = "Absender" + Me.txtAbsender.Top = 0.01653543! + Me.txtAbsender.Width = 1.511024! + ' + 'txtVerzollungsadresse + ' + Me.txtVerzollungsadresse.Height = 0.1255906! + Me.txtVerzollungsadresse.Left = 5.150001! + Me.txtVerzollungsadresse.Name = "txtVerzollungsadresse" + Me.txtVerzollungsadresse.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtVerzollungsadresse.Text = "Verzollungsadresse / Gümrükleme Adresi" + Me.txtVerzollungsadresse.Top = 0.01653543! + Me.txtVerzollungsadresse.Width = 1.796457! + ' + 'txtNr + ' + Me.txtNr.CanGrow = False + Me.txtNr.Height = 0.1669292! + Me.txtNr.Left = 0.4405512! + Me.txtNr.Name = "txtNr" + Me.txtNr.Style = "font-size: 8pt; font-weight: normal; text-align: center; vertical-align: top; ddo" & + "-char-set: 1" + Me.txtNr.Text = "1" + Me.txtNr.Top = 0.01653582! + Me.txtNr.Width = 0.1744094! + ' + 'txtAnmerkung + ' + Me.txtAnmerkung.Height = 0.1669291! + Me.txtAnmerkung.Left = 5.157875! + Me.txtAnmerkung.Name = "txtAnmerkung" + Me.txtAnmerkung.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: left; vertical" & + "-align: top; ddo-char-set: 1" + Me.txtAnmerkung.Text = Nothing + Me.txtAnmerkung.Top = 0.4062992! + Me.txtAnmerkung.Width = 1.788583! + ' + 'txtPosNr + ' + Me.txtPosNr.Height = 0.1669292! + Me.txtPosNr.Left = 0.6149607! + Me.txtPosNr.Name = "txtPosNr" + Me.txtPosNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtPosNr.Text = "5501/19000000" + Me.txtPosNr.Top = 0.1874016! + Me.txtPosNr.Width = 0.9429134! + ' + 'txtEmpfänger + ' + Me.txtEmpfänger.Height = 0.1669292! + Me.txtEmpfänger.Left = 3.1! + Me.txtEmpfänger.Name = "txtEmpfänger" + Me.txtEmpfänger.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtEmpfänger.Text = "Empfänger" + Me.txtEmpfänger.Top = 0.01653543! + Me.txtEmpfänger.Width = 2.05! + ' + 'Shape8 + ' + Me.Shape8.Height = 0.08346459! + Me.Shape8.Left = 6.946457! + Me.Shape8.Name = "Shape8" + Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape8.Top = 0! + Me.Shape8.Width = 0.5716529! + ' + 'SubReport + ' + Me.SubReport.CloseBorder = False + Me.SubReport.Height = 0.3897638! + Me.SubReport.Left = 1.653937! + Me.SubReport.Name = "SubReport" + Me.SubReport.Report = Nothing + Me.SubReport.ReportName = "SubReport1" + Me.SubReport.Top = 0.1834646! + Me.SubReport.Width = 5.27559! + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2}) + Me.PageFooter.Height = 0.2665355! + Me.PageFooter.Name = "PageFooter" + ' + 'ReportInfo1 + ' + Me.ReportInfo1.FormatString = " {PageNumber} von {PageCount}" + Me.ReportInfo1.Height = 0.2! + Me.ReportInfo1.Left = 6.340552! + Me.ReportInfo1.Name = "ReportInfo1" + Me.ReportInfo1.Style = "font-size: 6.75pt; text-align: right; ddo-char-set: 204" + Me.ReportInfo1.Top = 0.02480315! + Me.ReportInfo1.Width = 1.134299! + ' + 'lblDetails + ' + Me.lblDetails.Height = 0.2! + Me.lblDetails.HyperLink = Nothing + Me.lblDetails.Left = 0.388189! + Me.lblDetails.Name = "lblDetails" + Me.lblDetails.Style = "font-size: 8pt" + Me.lblDetails.Text = "" + Me.lblDetails.Top = 0.02490158! + Me.lblDetails.Width = 3.120078! + ' + 'Label8 + ' + Me.Label8.Height = 0.2413386! + Me.Label8.HyperLink = Nothing + Me.Label8.Left = 0.3937008! + Me.Label8.Name = "Label8" + Me.Label8.Style = "font-size: 6.75pt; ddo-char-set: 204" + Me.Label8.Text = resources.GetString("Label8.Text") + Me.Label8.Top = 0.02519685! + Me.Label8.Width = 6.325591! + ' + 'Line2 + ' + Me.Line2.Height = 0.00008204021! + Me.Line2.Left = 0.3937008! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.02519685! + Me.Line2.Width = 7.086615! + Me.Line2.X1 = 0.3937008! + Me.Line2.X2 = 7.480315! + Me.Line2.Y1 = 0.02519685! + Me.Line2.Y2 = 0.02527889! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW}) + Me.ReportHeader1.Height = 2.227953! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'Shape1 + ' + Me.Shape1.BackColor = System.Drawing.Color.WhiteSmoke + Me.Shape1.Height = 0.3618112! + Me.Shape1.Left = 0.4311019! + Me.Shape1.Name = "Shape1" + Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape1.Top = 1.866142! + Me.Shape1.Width = 1.157874! + ' + 'txtFirmaInfo_ATILLA + ' + Me.txtFirmaInfo_ATILLA.Height = 0.5000001! + Me.txtFirmaInfo_ATILLA.Left = 0.4775591! + Me.txtFirmaInfo_ATILLA.Name = "txtFirmaInfo_ATILLA" + Me.txtFirmaInfo_ATILLA.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" + Me.txtFirmaInfo_ATILLA.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 2845" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 11 / 284" & + "6" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "atilla@verag.ag" + Me.txtFirmaInfo_ATILLA.Top = 0! + Me.txtFirmaInfo_ATILLA.Visible = False + Me.txtFirmaInfo_ATILLA.Width = 6.67165! + ' + 'txtFirmaInfo_VERAG + ' + Me.txtFirmaInfo_VERAG.Height = 0.5000001! + Me.txtFirmaInfo_VERAG.Left = 0.4775605! + Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG" + Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" + Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +4" & + "3 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag" + Me.txtFirmaInfo_VERAG.Top = 0! + Me.txtFirmaInfo_VERAG.Width = 6.67165! + ' + 'txtFirmaInfo_IMEX + ' + Me.txtFirmaInfo_IMEX.Height = 0.5000001! + Me.txtFirmaInfo_IMEX.Left = 0.4775591! + Me.txtFirmaInfo_IMEX.Name = "txtFirmaInfo_IMEX" + Me.txtFirmaInfo_IMEX.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" + Me.txtFirmaInfo_IMEX.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31630 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.imex-group.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 1" & + "1 / 31630-1" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " info@imex-group.at" + Me.txtFirmaInfo_IMEX.Top = 0! + Me.txtFirmaInfo_IMEX.Visible = False + Me.txtFirmaInfo_IMEX.Width = 6.67165! + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.5000001! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) + Me.picVERAG.Left = 5.096456! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.677166! + ' + 'TextBox8 + ' + Me.TextBox8.Height = 0.3334647! + Me.TextBox8.Left = 0.4582672! + Me.TextBox8.Name = "TextBox8" + Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & + "ddo-char-set: 1" + Me.TextBox8.Text = "Abfertigung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungen" + Me.TextBox8.Top = 1.886615! + Me.TextBox8.Width = 1.130709! + ' + 'Shape3 + ' + Me.Shape3.BackColor = System.Drawing.Color.WhiteSmoke + Me.Shape3.Height = 0.3618112! + Me.Shape3.Left = 1.588977! + Me.Shape3.Name = "Shape3" + Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape3.Top = 1.866142! + Me.Shape3.Width = 1.511024! + ' + 'Shape4 + ' + Me.Shape4.BackColor = System.Drawing.Color.WhiteSmoke + Me.Shape4.Height = 0.3618112! + Me.Shape4.Left = 3.099999! + Me.Shape4.Name = "Shape4" + Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape4.Top = 1.866142! + Me.Shape4.Width = 2.05! + ' + 'Shape5 + ' + Me.Shape5.BackColor = System.Drawing.Color.WhiteSmoke + Me.Shape5.Height = 0.3618112! + Me.Shape5.Left = 5.150001! + Me.Shape5.Name = "Shape5" + Me.Shape5.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape5.Top = 1.866142! + Me.Shape5.Width = 2.367716! + ' + 'TextBox4 + ' + Me.TextBox4.Height = 0.3334647! + Me.TextBox4.Left = 1.604725! + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & + "ddo-char-set: 1" + Me.TextBox4.Text = "Absender" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ATA/MRN" + Me.TextBox4.Top = 1.886615! + Me.TextBox4.Width = 1.511024! + ' + 'TextBox9 + ' + Me.TextBox9.Height = 0.3334647! + Me.TextBox9.Left = 5.157875! + Me.TextBox9.Name = "TextBox9" + Me.TextBox9.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & + "ddo-char-set: 1" + Me.TextBox9.Text = "Verzollungsadresse (NCTS)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungsdetails" + Me.TextBox9.Top = 1.886615! + Me.TextBox9.Width = 1.788583! + ' + 'txtLKW + ' + Me.txtLKW.Height = 0.230315! + Me.txtLKW.Left = 1.188976! + Me.txtLKW.Name = "txtLKW" + Me.txtLKW.Style = "font-size: 14pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" + Me.txtLKW.Text = "34 TR 132456" + Me.txtLKW.Top = 0.6783465! + Me.txtLKW.Width = 3.868111! + ' + 'TextBox12 + ' + Me.TextBox12.Height = 0.230315! + Me.TextBox12.Left = 0.4582677! + Me.TextBox12.Name = "TextBox12" + Me.TextBox12.Style = "font-size: 10pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox12.Text = "LKW:" + Me.TextBox12.Top = 0.6783465! + Me.TextBox12.Width = 0.772441! + ' + 'txtLKWId + ' + Me.txtLKWId.Height = 0.1574803! + Me.txtLKWId.Left = 5.88937! + Me.txtLKWId.Name = "txtLKWId" + Me.txtLKWId.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtLKWId.Text = "123456" + Me.txtLKWId.Top = 0.7511811! + Me.txtLKWId.Width = 1.628347! + ' + 'TextBox14 + ' + Me.TextBox14.Height = 0.1574803! + Me.TextBox14.Left = 5.057087! + Me.TextBox14.Name = "TextBox14" + Me.TextBox14.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox14.Text = "LKW-Id:" + Me.TextBox14.Top = 0.7511811! + Me.TextBox14.Width = 1.12441! + ' + 'txtSB + ' + Me.txtSB.Height = 0.1574803! + Me.txtSB.Left = 5.88937! + Me.txtSB.Name = "txtSB" + Me.txtSB.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtSB.Text = "Maximilian Mustermann" + Me.txtSB.Top = 0.9086615! + Me.txtSB.Width = 1.628347! + ' + 'TextBox18 + ' + Me.TextBox18.Height = 0.1574803! + Me.TextBox18.Left = 5.057087! + Me.TextBox18.Name = "TextBox18" + Me.TextBox18.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox18.Text = "Sachbearbeiter:" + Me.TextBox18.Top = 0.9086615! + Me.TextBox18.Width = 1.12441! + ' + 'txtDatum + ' + Me.txtDatum.Height = 0.1574803! + Me.txtDatum.Left = 5.88937! + Me.txtDatum.Name = "txtDatum" + Me.txtDatum.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtDatum.Text = "01.01.2019" + Me.txtDatum.Top = 0.5937008! + Me.txtDatum.Width = 1.628347! + ' + 'TextBox25 + ' + Me.TextBox25.Height = 0.1574803! + Me.TextBox25.Left = 5.057087! + Me.TextBox25.Name = "TextBox25" + Me.TextBox25.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox25.Text = "Datum:" + Me.TextBox25.Top = 0.5937008! + Me.TextBox25.Width = 1.12441! + ' + 'txtGrenzstelle + ' + Me.txtGrenzstelle.Height = 0.1574803! + Me.txtGrenzstelle.Left = 1.188976! + Me.txtGrenzstelle.Name = "txtGrenzstelle" + Me.txtGrenzstelle.Style = "font-size: 9pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" + Me.txtGrenzstelle.Text = "SUB" + Me.txtGrenzstelle.Top = 1.137402! + Me.txtGrenzstelle.Width = 3.868111! + ' + 'TextBox27 + ' + Me.TextBox27.Height = 0.1574803! + Me.TextBox27.Left = 0.4582679! + Me.TextBox27.Name = "TextBox27" + Me.TextBox27.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox27.Text = "Grenze:" + Me.TextBox27.Top = 1.137402! + Me.TextBox27.Width = 0.772441! + ' + 'txtFraechter + ' + Me.txtFraechter.Height = 0.1574803! + Me.txtFraechter.Left = 1.188976! + Me.txtFraechter.Name = "txtFraechter" + Me.txtFraechter.Style = "font-size: 9pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" + Me.txtFraechter.Text = "Frächter" + Me.txtFraechter.Top = 0.9397638! + Me.txtFraechter.Width = 3.868111! + ' + 'TextBox32 + ' + Me.TextBox32.Height = 0.1574803! + Me.TextBox32.Left = 0.4582677! + Me.TextBox32.Name = "TextBox32" + Me.TextBox32.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox32.Text = "Frächter (*):" + Me.TextBox32.Top = 0.9397638! + Me.TextBox32.Width = 0.772441! + ' + 'TextBox5 + ' + Me.TextBox5.Height = 0.3334647! + Me.TextBox5.Left = 3.123621! + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & + "ddo-char-set: 1" + Me.TextBox5.Text = "Empfänger" + Me.TextBox5.Top = 1.886615! + Me.TextBox5.Width = 1.633071! + ' + 'TextBox1 + ' + Me.TextBox1.Height = 0.230315! + Me.TextBox1.Left = 0.4405513! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & + "-char-set: 1" + Me.TextBox1.Text = "LAUFZETTEL" + Me.TextBox1.Top = 1.488583! + Me.TextBox1.Width = 7.077559! + ' + 'Shape2 + ' + Me.Shape2.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer)) + Me.Shape2.Height = 0.3618112! + Me.Shape2.Left = 6.946457! + Me.Shape2.Name = "Shape2" + Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape2.Top = 1.866142! + Me.Shape2.Width = 0.5791335! + ' + 'TextBox2 + ' + Me.TextBox2.Height = 0.3334647! + Me.TextBox2.Left = 6.972441! + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Style = "font-size: 6.5pt; font-weight: normal; text-align: center; vertical-align: middle" & + "; ddo-char-set: 1" + Me.TextBox2.Text = "T1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Position" + Me.TextBox2.Top = 1.886614! + Me.TextBox2.Width = 0.5295277! + ' + 'txtGesColli + ' + Me.txtGesColli.Height = 0.1574803! + Me.txtGesColli.Left = 5.889763! + Me.txtGesColli.Name = "txtGesColli" + Me.txtGesColli.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtGesColli.Text = "0 Pk" + Me.txtGesColli.Top = 1.403937! + Me.txtGesColli.Width = 1.628347! + ' + 'TextBox6 + ' + Me.TextBox6.Height = 0.1574803! + Me.TextBox6.Left = 5.057481! + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox6.Text = "Colli:" + Me.TextBox6.Top = 1.403937! + Me.TextBox6.Width = 1.12441! + ' + 'txtGesGewicht + ' + Me.txtGesGewicht.Height = 0.1574803! + Me.txtGesGewicht.Left = 5.889369! + Me.txtGesGewicht.Name = "txtGesGewicht" + Me.txtGesGewicht.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtGesGewicht.Text = "0.000 kg" + Me.txtGesGewicht.Top = 1.561417! + Me.txtGesGewicht.Width = 1.628347! + ' + 'TextBox10 + ' + Me.TextBox10.Height = 0.1574803! + Me.TextBox10.Left = 5.057481! + Me.TextBox10.Name = "TextBox10" + Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" + Me.TextBox10.Text = "Gewicht:" + Me.TextBox10.Top = 1.561417! + Me.TextBox10.Width = 1.12441! + ' + 'txtEmail + ' + Me.txtEmail.Height = 0.1574803! + Me.txtEmail.Left = 5.057481! + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtEmail.Text = "Email / Tel" + Me.txtEmail.Top = 1.052756! + Me.txtEmail.Width = 2.468111! + ' + 'txtDW + ' + Me.txtDW.Height = 0.1574803! + Me.txtDW.Left = 5.057481! + Me.txtDW.Name = "txtDW" + Me.txtDW.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtDW.Text = "Email / Tel" + Me.txtDW.Top = 1.210236! + Me.txtDW.Width = 2.468111! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3}) + Me.ReportFooter1.Height = 0.5570866! + Me.ReportFooter1.KeepTogether = True + Me.ReportFooter1.Name = "ReportFooter1" + Me.ReportFooter1.PrintAtBottom = True + ' + 'TextBox3 + ' + Me.TextBox3.Height = 0.4700788! + Me.TextBox3.Left = 0.4314961! + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" + Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessane Frist von mehr als 8 Ta" & + "gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!" + Me.TextBox3.Top = 0.08700788! + Me.TextBox3.Width = 7.18504! + ' + 'rptLaufzettelZollDE + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.1968504! + Me.PageSettings.Margins.Left = 0.1968504! + Me.PageSettings.Margins.Right = 0.1968504! + Me.PageSettings.Margins.Top = 0.1968504! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.981886! + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.PageFooter) + Me.Sections.Add(Me.ReportFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 0", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAnmerkung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtEmpfänger, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtLKWId, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtSB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGrenzstelle, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtFirmaInfo_VERAG As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents txtFirmaInfo_IMEX As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents Shape3 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents Shape5 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox18 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox25 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox27 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtLKWId As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtSB As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtGrenzstelle As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Shape4 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtVerzollungsadresse As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtAnmerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtEmpfänger As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents Shape10 As GrapeCity.ActiveReports.SectionReportModel.Shape + Public WithEvents Shape11 As GrapeCity.ActiveReports.SectionReportModel.Shape + Public WithEvents TextBox32 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Shape2 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents Shape8 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtGesColli As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtGesGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtEmail As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport + Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.resx new file mode 100644 index 00000000..c56d17af --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.resx @@ -0,0 +1,766 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-Zoll-und Tarifauskünfte sind unverbindlich. + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAAAAAAB6TAAAekwAAAQEBAQoPAgAAAB6TAAACAhmTAACJUE5HDQoaCgAAAA1JSERS + AAAJOgAAAZIIBgAAAMnO7JoAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29mdHdh + cmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJKeSURBVHhe7N0LvG1T3f/xczgOh1MuIbekSC4VXZyuShfy + pHokSRc93dOF7qX7qVS6SXcSqXZFqVQq3aQ7SegiIkmJJCKh4/D/f3+W09pzr+/eZ+21xxxrzDk/vV7v + 1//1Hw97jPWbYy5jrfFdc8z7f//v/wEAAAAAAAAAAAAAAABA0WwjAAAAAAAAAAAAAAAAAJTENgIAAAAA + AAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTE + NgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAA + AAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAA + AAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABA + SWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAA + AAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIA + AAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAA + AJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAA + AAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwj + AAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAA + AABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENuY0b8lS + AAAAAAAAAACAJlhTNpedZHd5qrxQXiPvkA/Lp+Urcor8WM6S38pFcon881Y3yP9DNjfKitqHP0lck3CO + xHX6hcR1+5acIJ+TY+RD8l5ZKi+VZ8u+soc8RHaQO8ha4uZN57g9QQAAgBRsY05u8QMAAAAAAAAAAJDR + qrKF7CxPklfJ++WLcppEKOY6cQEaYLL/yF/lN/JD+bx8UCIM9wyJgNw9ZF1xc7EV3J4gAABACrYxJ7f4 + AQAAAAAAAAAAqMEmspscIBFkOlHOlWXiQitAneLJUvEkqS/LoRJPB9tFNhA3fxvD7QkCAACkYBvroEXN + T8Qt4lB1vWwsA4tCoFCryNni5jN6uK/TeYm4GgNopngEvLvXUZb40tVdP6Btph5f8SuJDYc4auSbEr/C + PloOkzfLK+T/5NFyf9labifuPgKAYSwR9/6ENOJ9Pb7DcLUH0E4LJY6X21/i2LE4juxKce8RQIn+LjFv + IwAVx+TdWdxcL5LbKwQAAEjBNtZBi5oHi1uoYVB86BpYFAKFikftunmMvkPE1Q6zR9AJaBeCTs1A0AmY + nXgSwMXyMzle4vPdQbKPxEYbYSgA04mjbdz7CtJ5mrjaA2iHreQpEkeEnSpxfJh7LwCaLMJP8X1KfE96 + N5kv7n4YO7dXCAAAkIJtrIsWNvErWLcwQ1V8MX5HGVgYAoVZUy4RN4/RE5vD64irH2aPoBPQLgSdmoGg + E5DeNXKmHCtvlMfL9rKauPsQQPs9Rtz7BdKKJ/bFE17cNQDQPPEd+tPlGIn72933QNv9TT4te8ticffK + WLh9QgAAgBRsY120sLmnuIUYBsWHs4GFIVCYN4ibv+iLX++72mE0BJ2AdiHo1AwEnYB8bpRfypESR6zE + E6BWF3dvAmiPBfJbce8LSO/F4q4DgPLF++Uu8l45T9w9DnTZDfI1earEj5TdfZSN2ycEAABIwTbWSYub + 48QtwFC1XLaVgcUhUIiN5Fpx8xc9l8oicfXDaAg6Ae1C0KkZCDoB4xWbFXGc1dtkd7mtuHsVQHM9S9z9 + j3rEkT+3EXctAJQnQt+Pk8/IleLuawCD/iVHy87i7q3auT1CAACAFGxjnbS42VoixOMWXqj6vAwsDoFC + HC5u3qLveeJqh9ERdALahaBTMxB0AsoSn6cj+PQ6uZfMF3fvAmiG+HEMR8Ln92Zx1wNAGVaReHJTPOXy + KnH3MYDhxbHZT5Osx7e6PUIAAIAUbGPdtMCJDyhusYVBcdzfwAIRGLPthMDizC6QeJy2qx9GR9AJaBeC + Ts1A0Ako22USP0J4uMSmoLuPAZQrQovu3ka94gnVG4q7JgDGJ+7LeF+8WNy9C2Bu/irx/WqWUwjc/iAA + AEAKtrFuWuDcQa4Xt9BC1TdkYIEIjNmJ4uYr+p4ornaYG4JOQLsQdGoGgk5Ac8TGxQeEH8wAzbC+XC3u + fkb94v3SXRcA+T1A4mi6ZeLuVwBpRZjwuVLrD3Xd/iAAAEAKtjEHLXIOFbfAwqAHysAiERiT+KW4m6fo + +6VwhEg9CDoB7ULQqRkIOgHNdIbE5sVtxN3bAMYvgjbu/kUeEai4s7hrAyCP+J7xFHH3KID6/Vpq239y + e4MAAAAp2MYctMiJX61dI25xhar4sDewSATGII7CiBCPm6foe6S4+mHuCDoB7ULQqRkIOgHNFvfwO2Qj + cfc4gPHYUnhyyfhNiLs+AOoV352dKu6+BJDfx2UdcffryNzeIAAAQAq2MRctdJaKW1RhEMEJlGA/cfMT + fd8XVzukQdAJaBeCTs1A0AlohxvkcNlE3L0OIK9jxd2ryOtm2UHcNQKQ3vbyLXH3I4Dx+pMkfbqT2xcE + AABIwTbmooXOYrlC3KIKVacLR2FhnBbJn8XNT/TdT1z9kAZBJ6BdCDo1A0EnoF2uk4NlbXH3PID63Ufc + /Ynx+Lq46wQgndvJR2W5uPsQQBniHn2DJNmLcvuCAAAAKdjGnLTYeam4BRUG7SkDi0Ugk9eKm5fo+7K4 + 2iEdgk5AuxB0agaCTkA7XS5PEnffA6jXyeLuS4zPg8VdKwBzF99pXybu3gNQpuNkTXH39NDcniAAAEAK + tjEnLXbiKTEXi1tMoeocWUUGFoxAzTaUa8TNS/TEr122E1c/pEPQCWgXgk7NQNAJaLdvyubi7n8A6e0h + 7l7EeP1M3PUCMLp4itNnxN1zAMr3c9lI3P09FLcnCAAAkIJtzOnWBc+zxC2kMGg/qSwWgQw+JG4+ou8T + 4mqHtAg6Ae1C0KkZCDoB7XeVPE7cewCAdOLHa78Wdx9i/HiSOpDOg+Qv4u41AM1xgWwm7j5fKbcnCAAA + kIJtzOnWBc8COU/cQgpVsbBcTSoLRqBGdxXOz5/ZDcKv4PMg6AS0C0GnZiDoBHTHYcLnTaA+zxR376EM + 8ST1VcVdOwDDi+9u+C4RaI+Rw05uTxAAACAF25jTpEXPPuIWURi0v0yuHVCnr4ibh+g7VFztkB5BJ6Bd + CDo1A0EnoFtOksXi3g8AjG6R8HST8kUYzV0/ACsXYemjxN1bAJotwk4biLv3p+X2BAEAAFKwjTlNWvTM + lzPFLaJQFV+MxRdkk+sH1OEh4uYg+q6R9cXVD+kRdALahaBTMxB0ArrnFzLrjQwAM3q1uPsNZblY+M4N + mL015Vvi7isA7XCaxL3u3gMstycIAACQgm3MacrCZ3dxCygMeqlMrR+QUoQPY4PDzT/0vVFc/VAPgk5A + uxB0agaCTkA3/VoIOwFp3E7472lzvFzcdQTgrS0/EXc/AWiXOP0h9g3ce8EAtycIAACQgm3MySx+ThG3 + gELVFcJxAqjTk8XNPfRdLtyHeRF0AtqFoFMzsDELdFf88CE2L917A4DhxXHn7h5DmeI7t3XEXUsAVbeR + eMqLu5cAtNPrxL0fDHB7ggAAACnYxpzM4ucB4hZPGMSTZFCXNeQicfMOfQeKqx/qQ9AJaBeCTs1A0Ano + th/IauLeHwCs3J1kmbj7C+V6m7jrCaBvoXxP3D0EoL1ukoeIe1+ocHuCAAAAKdjGnNziR74mbgGFqth0 + Wk9cDYG5eJW4OYe+P0p8oePqh/oQdALahaBTMxB0AvBRce8PAFbuM+LuK5Tt37KxuGsKoHd01XHi7h8A + 7XeprCvu/eG/3J4gAABACrYxJ7f4kR3kZnELKFQdIq6GwKjWFzY0V+5p4uqHehF0AtqFoFMzsC4AEJ4r + 7j0CwPTuJe5+QjN8RNx1BbBk6evF3TcAuuMYce8P/+X2BAEAAFKwjTm5xc+t+MXbcK4TfmGGlD4gbq6h + 79eyirj6oV4EnYB2IejUDASdAITrZVtx7xMAvO+Ku5/QDDfKVuKuLdBljxZ+pAwg7CbufeIWbk8QAAAg + BduYk1v83Cq+SIgvFNziCVUfFFdDYLbuIsvEzTP0PUZc/VA/gk5AuxB0agaCTgBW+KWsJu69AkDVI8Xd + R2iWOJrLXV+gq+I7ez4fAFjhQlko7v3C7gkCAACkYBtzcoufSQ4Xt3hCVQRTNhdXQ2A2vihujqHvJ+Jq + hzwIOgHtQtCpGdjIADDZm8W9VwDoiycAny3uHkLzxBGE7joDXbOq/EzcfQKgu14u7j3D7gkCAACkYBtz + coufSeJItng8vls8oWql5yEDK/EgcXMLVTuLqx/yIOgEtAtBp2Yg6ARgshtkS3HvFwB6nibu/kEzfVvc + dQa65vXi7hEA3XaVrCcD7xtuTxAAACAF25iTW/xM8U5xiydULZdtxNUQWJn5cpq4uYW+r4urH/Ih6AS0 + C0GnZiDoBGAq1sXA9BbJxeLuHTTXw8Vdb6Ar7ik3irs/AOAQGXjvcHuCAAAAKdjGnNziZ4pIgrO5Mpzj + xNUQWJl9xM0p9N0sO4irH/Ih6AS0C0GnZmAtDsB5pLj3DKDrXinunkGznS7xIzF3zYG2i+M4+YEkgJlc + I+tI5f3D7QkCAACkYBtzmrrwmQaPxR1e/LrG1RCYzkK5UNx8Qt+EuPohL4JOQLsQdGoGgk4AnNjwZNMf + qFpX4vgWd8+g+fYWd92BtnuOuHsCACZ7nVTeP9yeIAAAQAq2MaepC59pLJa/iVs8oYojBDBbLxc3l9C3 + TLYUVz/kRdAJaBeCTs1A0AnAdPYU974BdNV7xN0raIfzZIG4aw+0VQQ4Lxd3TwDAZH+X1eW/7yFuTxAA + ACAF25jT5EXPShwobvGEQQ8QV0Ngqjgakl+brtyHxNUP+RF0AtqFoFMzEHQCMJ0zxL1vAF10R7lB3L2C + 9niuuOsPtNX7xN0LAODsI/99D3F7ggAAACnYxpwmL3pWIo7X+pO4xROqThFXQ2CqQ8XNIfRdKxuJqx/y + I+gEtAtBp2Yg6ARgJjuLe+8AuubT4u4RtMtfZZG4OQC0zcZyvbh7AQCc78l/30fcniAAAEAKtjGnyYue + ITxd3OIJg3YVV0NghTtLHMnm5g/6DhZXP4wHQSegXQg6NQNBJwAzOV7cewfQJTvKzeLuEbTPq8XNA6Bt + DhN3DwDATLaSW95H3J4gAABACrYxpxULniGtKueIWzyh6jSZL66OQPi8uLmDvitkHXH1w3gQdALahaBT + MxB0AjCT5XIHce8fQFd8R9z9gXaKtdG64uYC0BabC09zAjCKN8gt7yVuTxAAACAF25jTigXPLOwlbvGE + QXuKqyFwf3FzBlWvEFc/jA9BJ6BdCDo1A0EnACvzOnHvH0AXPELcfYF2e5e4+QC0RcxxN/cBYGXOklve + S9yeIAAAQAq2MacVC55ZiKcU/VzcAgpVv5FVxNUR3RX30E/EzRn0/VkWiashxoegE9AuBJ2agaATgJU5 + T9z7B9B28Z3LL8XdF2i3eNLNpuLmBdB0a8lV4uY+AAxjS7F7ggAAACnYxpxisTMCfi03vKeIqyG66/Hi + 5gqqniWufhgvgk5AuxB0agaCTgCGsUTcewjQZk8Vdz+gG44UNy+Apttf3JwHgGG9UuyeIAAAQAq2MadY + 7IzoZHELKFRdIAvE1RDds1DOFzdX0HeucN+UiaAT0C4EnZqBoBOAYRwq7j0EaKvV5SJx9wO6YblsI25+ + AE0VT4L/nbg5DwDD+o7YPUEAAIAUbGNOsdgZ0X3FLaAw6HniaojuebG4OYKqeOqVqx/Gj6AT0C4EnZqB + oBOAYcSPbNx7CNBWLxd3L6BbvihufgBN9QBxcx0AZuMGWcPtCQIAAKRgG3PSYmcuYnPMLaJQ9WdZJK6G + 6I515B/i5gj6fi7x6zVXQ4wfQSegXQg6NQNBJwDD2k7c+wjQNvH5+kpx9wG6h6M70SaHi5vnADBbj3B7 + ggAAACnYxpy02JmL+BL1ZnGLKFRFOMDVEN3xHnFzA1UPF1c/lIGgE9AuBJ2agaATgGEdJO59BGibd4q7 + B9BNJ4ubJ0DTxJGcV4mb5wAwW293e4IAAAAp2MactNiZq0+KW0Sh6gpZLK6GaL8tJB4X6+YG+m45OxxF + I+gEtAtBp2Yg6ARgWN8V9z4CtMkd5Hpx9wC6azdx8wVokseLm98AMIrvuj1BAACAFGxjTlrszNWdZJm4 + hRSq3iCuhmi/z4qbE6i6j7j6oRwEnYB2IejUDASdAAzrOlko7r0EaItjxM1/dNuZwjH4aLpjxc1vABjF + NbKK2xcEAACYK9uYkxY6KXxQ3EIKVbFJta64GqK9dhI3H1D1BXH1Q1kIOgHtQtCpGQg6AZiNB4l7LwHa + 4B5ys7i5DzxJ3LwBmmA1uVrc3AaAUW3n9gUBAADmyjbmpIVOChvLteIWUqg6RFwN0V4/EjcX0LdcthZX + P5SFoBPQLgSdmoGgE4DZeL249xKgDb4pbt4D4QKJsIibO0DpdhU3rwFgLvZz+4IAAABzZRtz0kInlbeL + W0ih6t8SwTBXQ7TP48TNA1QdKa5+KA9BJ6BdCDo1A0EnALPxdXHvJUDTPVzcnAcme6G4+QOUjhMTANTh + ELcvCAAAMFe2MSctdFJZR9iEGc4HxNUQ7bJAzhM3B9B3vWwqroYoD0EnoF0IOjUDa2wAs3GZuPcSoMnm + yy/EzXlgsktlsbh5BJTsj+LmNADMxVfdviAAAMBc2cactNBJ6SBxiylULZPNxdUQ7fEicdcfVe8SVz+U + iaAT0C4EnZqBoBOA2eKHBGibJ4mb64DDEZ5omi3EzWUAmKsL3b4gAADAXNnGnLTQSWmRxC+n3IIKVUeL + qyHaYW35u7hrj77YuF1PXA1RJoJOQLsQdGoGgk4AZuux4t5PgCZaKBeKm+uAE2un9cXNJ6BETxc3lwFg + rm6WNdzeIAAAwFzYxpy0yEntBeIWVKhaLluLqyGa7xBx1x1VrxVXP5SLoBPQLgSdmoGgE4DZeoO49xOg + ifgMglEcKm4+ASU6Rtw8BoAUtnF7gwAAAHNhG3PSIie1+KXdH8QtqFB1rLgaotniWMLrxV1z9MXT39YS + V0OUi00GoF0IOjUDQScAszUh7v0EaJp15Apx8xyYyQ0S38+4eQWU5iJx8xgAUtjd7Q0CAADMhW3MSYuc + OuwnbkGFqnhs6D3F1RDN9Wlx1xtV8fQ3Vz+UjaAT0C4EnZqBoBOA2fqluPcToGneLm6OA8P4hLh5BZRk + Y3HzFwBS2d/tDQIAAMyFbcxJi5w6rCK/FreoQtXXxNUQzXRviQCbu9bou0BWE1dDlI2gE9AuBJ2agaAT + gNm6Vtz7CdAkmwpPS57edaYNVTfJ9uLmF1CKx4qbvxiveP+Ip9H/Qr4uH5N3yuvlxfJ0eZw8Qu4rO8qd + ZItb3VHiqYRNtq6seD0h3k/jR9u7yO6yp/yfPFcOknfJxyW+Z/iRnCP/EFdf5PV2tzcIAAAwF7YxJy1y + 6vK/4hZVGHQ/cTVE83xf3DVG1ZPF1Q/lI+gEtAtBp2Yg6ARgFJuIe08BmuIocXMbPU+S2IB3/zf0fUXc + /AJK8RZxcxf1i89ZP5Qj5ZWyl9xH4ilbq4q7Xpi9tWQbeaQ8W2LOf0EiCLVc3LVBWp9ye4MAAABzYRtz + 0iKnTqeKW1ih6hRx9UOzPEbc9UXVmRJPfXM1RPkIOg1qw6/00F3xhaO711EWgk4ARsEPatBkd5N4moab + 21iy9AyZLw+d1IbpPUDcPANKEE8LcvMWacXTLr8tB0t8h7uZuOuBvBbKPeQpcrj8Ttz1w9x80+0NAgAA + zIVtzEmLnDrFY0zdwgqD4jG3roZohgXCB7HhPEpcDdEMBJ0GRVjE1QoAUiHoVHWxTA3toRluJ3HsRRzt + EcddPFPiCJDY4PuruOuN0T1R3HsK0AQnipvX6Jn8HRK1Wrl4Ysvk+QWU5DJx8xZz90t5kzxQ4rtbV3+U + ZwPZWz4tV4q7tpid093eIAAAwFzYxpy0yKnbt8QtrlAVT7+KX+O5GqJ8+4u7rqj6gbj6oTkIOg2KjVtX + KwBIhaBT1UXi6oTmiyMtDpBYM7prj9l5hbg6A6XjR3Mz+65Mrlc8/Yqjf1bu0TK5bkAJ1hc3XzG6c+W1 + srm4mqNZVpcI7/P5YG4udnuDAAAAc2Ebc9Iip273Fre4wqA9xdUQZbuN/E3cNUXV/cXVEM1B0GkQQScA + dSPoVEXQqRu2lMPkenHzACv3AXG1BUoWPwA7XdycRk98zza1bh8X98+i71fCMfoozYPFzVfM3kmyq/BD + 4vaK75V/Ku76Y2bXu71BAACAubCNOWmRk8Px4hZYqPq18KVL88TZ7u56ouor4uqHZiHoNIigE4C6EXSq + IujULRvLMeLmAmZ2nLiaAiV7grj5jJ5jxdVtE/m3uH8HffuJqx8wLs8RN1cxvAi+xNF0rr5onwiyHSj/ + ETcfML0Fbn8QAABgVLYxJy1wcthWeIz2cJ4sroYo02bCr8xX7mbZXlwN0SwEnQYRdAJQN4JOVQSduime + fvsPcXMC3tTjrYDSLZQLxM1nLFm6TLYSV7vwVnH/Hvr+KDHPXP2AcXifuLmKlYvvY18k/Gi4m+4rfxc3 + N+Ct4/YHAQAARmUbc9ICJ5ejxS2wUBVf6i0QV0OU5xPiriOq4lf4rn5oHoJOgwg6AagbQacqgk7dtbXE + JrWbFxgUTwx2dQRKdYC4uYyeD4mr2wocqz+cF4urHzAO3xQ3TzGzP8s9xdUU3bGN8N+94d3R7Q8CAACM + yjbmpAVOLpsLjxQdznPF1RBl2UHiSUXuGqIvfnV6R3E1RPMQdBpE0AlA3Qg6VRF06rYt5K/i5gaqok6u + hkCJbis8mWF618pG4mo32QvF/fvoi3m2WFz9gNzOFTdPMb34kXA8Yd/VE91zL+Ho1uFs7/YHAQAARmUb + c9ICJ6fDxC2yUHWxLBJXQ5QjjoJw1w9Vcd+7+qGZCDoNIugEoG4EnaoIOiGOqrhR3PxAX/zgwNUPKNHB + 4uYxet4irm5TxRPCzxP3N9C3VFz9gNzi+DU3R+HFMcYzHeGJbnqGuPmCqp3c/iAAAMCobGNOWuDktIHE + r9DcQgtVESZwNUQZHiXuuqEq7ve4710N0UwEnQYRdAJQN4JOVQSdEAhFDGehuPoBJdlErhM3h9F7AlEc + S+dq5zxO3N9BX3xXsaG4+gG5xPdlbn5ieruKqyXwdXFzBn27uP1BAACAUdnGnLTAyS1+heYWWqi6XHiU + dplWld+Iu26o4leS7UPQaRBBJwB1I+hURdAJYXX5g7g5gj7WKWiCI8XNX/QcKK5uM/mxuL+Fvg+Iqx2Q + y73FzU14h4qrIxC2lHiaqZs76CHoBAAAkrKNOWmBk9vacoW4xRaqXieuhhivZ4u7XqiK+5ywXvsQdBrE + BiKAuhF0qiLohBWeLm6OoG8LcbUDSrGtLBc3f7Fk6R9llCez3V/c30NfbIjfSVz9gBx4+trw/ixriasj + sMIR4uYPegg6AQCApGxjTlrgjMMrxC22UBWbWmyglyWCO5eKu16o4vjFdiLoNIj3aQB1I+hURdAJKyyQ + i8XNE/RsJ652QCm+Km7uouep4uo2jOPF/U30fVpc7YAcXiBuXmJQhNtdDYHJthY3f9DzCLc/CAAAMCrb + mJMWOOOwSC4Rt+BC1TvE1RDj8WZx1wlVf5JRfnWK8hF0GkTQCUDdCDpVEXTCZG8TN0/Qs6O4ugEl2Fnc + vEXPWbKKuNoN4y7CMT4zu1nuIa5+QN2WipuXqDpfItzuaghM9QNx8whLlu7p9gcBAABGZRtz0gJnXJ4r + bsGFqmtlI3E1RF6byL/FXSdU8Uur9iLoNIigE4C6EXSqIuiEybYRN0/Q80BxdQPGbb6cKm7eomd3cbWb + jQ+K+9vo+7q42gF1+7C4OYmq2ENw9QOc/cXNIxB0AgAAidnGnLTAGZf4JcYF4hZdqDpMXA2R18fFXR9U + /Vbm8qtTlI2g0yCCTgDqRtCpiqATpuJz5fR2EVczYNz2Fjdn0fN9cXWbrQ3kanF9oO/B4uoH1Ok4cfMR + fVfJmuLqBzibiptLWLJ0N7c/CAAAMCrbmJMWOOO0r7hFF6riUeObi6sh8ri73CTu+qBqT3E1RDsQdBpE + 0AlA3Qg6VRF0wlT8IGF6BJ1Qovjh2+/FzVn0LBFXu1G8Tlwf6PupuNoBdfqeuPmIvsPF1Q6YSXxedPOp + 63Zx+4MAAACjso05aYEzTvHUlzPFLbxQdZS4GiKPk8RdF1T9TFz90B4EnQYRdAJQN4JOVQSdMNV+4uYK + CDqhTC8UN1/Rc7y4uo1qkfxFXF/o+19x9QPq8itxcxF9DxJXO2AmnxU3n7qOoBMAAEjKNuakBc647SFu + 4YWq5XIXcTVEvXYTd00w6CHiaoj2IOg0iKATgLoRdKoi6ISpdhQ3V7Bk6cPE1QwYl8XyN3HzFb3vfrYW + V7u5eIa4/tB3jqwqrn5AHXjqzMwuk/iRtKsdMJMDxc2priPoBAAAkrKNOWmBU4IfiVt8oepYcfVDfeID + Nb+wGs43xdUQ7ULQaRBBJwB1I+hURdAJU60hHDPt8UQnlOYt4uYqeuo6ponvNoYTgTBXP6AOV4ibh+g5 + WlzdgJV5lLg51XUEnQAAQFK2MSctcEqws7jFF6pulvi1sqsh6sGvHocTc/Oe4mqIdiHoNIigE4C6EXSq + IugEh6cieASdUJKN5VpxcxVLll4nUSNXuxR2F9cv+i6WCM+6+gGpXS9uHqJnH3F1A1ZmO3FzqusIOgEA + gKRsY05a4JTiG+IWYKj6qrj6Ib015RJx1wFVcfa5qyHah6DTIIJOAOpG0KmKoBOcU8XNl67jaGmU5Ahx + 8xQ9bxNXt5S+K65v9L1cXO2AlOaLm3/o20hc7YCVie/03Zzquge4/UEAAIBR2cactMApRTwNxi3AMOh+ + 4mqItN4grv6oulG2EldDtA9Bp0EEnQDUjaBTFUEnOF8RN1+6jicCoxR3leXi5il6R1jl+FwR373FE5nd + GNCT61qg22KOufmHnvPE1Q0Y1tXi5laX7eD2BwEAAEZlG3PSAqckx4pbhKHq++Lqh3TiV0M8Un84HxFX + Q7QTQadBfAkOoG4EnaoIOsE5Rtx86TqCTijFl8TNUfS8TFzd6vBpcWNA38Hiagekspm4uYeez4irGzCs + v4mbW122hdsfBAAAGJVtzEkLnJLEU2H4hd9wHi6uhkiDR+oP5zrZWFwN0U4EnQYRdAJQN4JOVQSd4HxI + 3HzpOoJOKMEDxc1P9Fwsq4urXR3uKNeLGwt64odvfNeBOm0hbu6hJ2f4E+0Unxnd3OqyDdz+IAAAwKhs + Y05a4JTmY+IWYqg6VVz9MHfbCYG74bxdXA3RXgSdBhF0AlA3gk5VBJ3gHCZuvnTdluLqBeT0E3HzEz3/ + J65udXq3uLGgj6dXo04EnWbGD3wxV78WN7e6bE23PwgAADAq25iTFjiliUf38suy4fyvuBpibk4UV29U + XSkEPLqHoNMg7gMAdSPoVEXQCQ5BJ48nkmDc9hI3N9ETG7GriKtdneIzzD/EjQk9N0o8ed7VD5grgk4z + 21Rc3YBhvUXiaGvcyu0NAgAAzIVtzEmLnBK9V9yHHFSdLeP4QqzN4hdDrtYY9CpxNUS7EXQaRNAJQN0I + OlURdIJD0MlbJK5eQA4L5DxxcxM9jxZXuxxeKm5M6PucuNoBc3U3cXMOS5ZeI65mAEbg9gQBAABSsI05 + ucVPAdaXq8V92EHVvuJqiNmL0NiZ4uqMqkuETZNuIug0iKATgLoRdKoi6ASHoNOgZeJqBeTyPHFzEz0/ + FFe3XBbKheLGhr57iasfMBc7iptvWLL0LHE1AzACtycIAACQgm3MyS1+CvEmcR92UHWBxK8kXQ0xO/uJ + qzEGPUdcDdF+BJ0GEXQCUDeCTlUEneAcKW6+dNnl4moF5LBYLhU3N9Fzf3G1yyl+POfGhr5vi6sdMBcE + naZ3griaARiB2xMEAABIwTbm5BY/hYgvxa4Q94EHVc8WV0MML55O9Gdx9UXV74VwXXcRdBpE0AlA3Qg6 + VRF0gvNJcfOly2Ld7moF5PBGcfMSPV8WV7fc5svp4saIvoeJqx8wKoJO0/uQuJoBGIHbEwQAAEjBNubk + Fj8FYUN9OBfL6uJqiOG8VlxtMegJ4mqIbuB9eRBBJwB1I+hURdAJzlfFzZcui/CCqxVQt9vLteLmJZYs + XS7biqvdODxE3DjR93OJUJirHzAKgk7Te724mgEYgdsTBAAASME25uQWPwWJ8E6EeNyHHlRF+MDVECu3 + oVwjrq6oOkP4cq/bCDoNIugEoG4EnaoIOsH5sbj50mUniasVULcPi5uT6Pm4uLqN09fEjRV9e4urHTAK + gk7Te764mgEYgdsTBAAASME25uQWP4V5prgPPaj6m8Rxf66GmBlfwg5vV3E1RHcQdBpE0AlA3Qg6VRF0 + gnOOuPnSZUeKqxVQp60lnljk5iSWLL1eNhVXu3HaTrhuMztPOMYfqRB0mt4+4moGYARuTxAAACAF25iT + W/wUJr5EOFfcBx9UxfFrroaY3l2FL/OG8z1xNUS3EHQCmoEnPbYLQacqgk5wrhQ3X7rszeJqBdTpeHHz + ET3vEle3EkQ40o0Zfc8RVztgtgg6Te/h4moGYARuTxAAACAF25iTW/wU6AniPvigKjbBeLLI7HxFXC0x + aIm4GqJbCDoBzUDQqV0IOlURdMJUtxU3V7qODXnkdj9xcxE9V0nJ39lsLNeKGzt6LpFF4uoHzAZBp+nt + IK5mAEbg9gQBAABSsI05ucVPgebLGeI+/KDq7eJqiEEPEVdDDPqiuBqiewg6Ac1A0KldCDpVEXTCVPcQ + N1e6bndx9QLq8iNxcxE9rxRXt5LEk+Dc2NH3anG1A2aDoNP0SjzeE2gstycIAACQgm3MyS1+CvVIcR9+ + UBW/vru9uBqiL8JzvxBXQ1TF0X7biKsjuoegE9AMBJ3ahaBTFUEnTLWnuLnSdduLqxdQh8eKm4fo+bM0 + 4UlAi+Uyca8BPTxNHSkQdJoe9xeQkNsTBAAASME25uQWPwU7RdwHIFQdJq5+6HuquNph0FHiaohuIugE + NANBp3Yh6FRF0AlTvUXcXOm624irF5DaAvmduHmInmeKq12J9hf3GtD3TnG1A4ZF0Gl6BJ2AhNyeIAAA + QAq2MSe3+CnY/cV9AELVf2RzcTXEkqVrSGyQudqh6nq5g7g6opsIOgHNQNCpXQg6VRF0wlRfFzdXuuxi + cbUC6vAccfMQPedIhMFc7UoUYz1X3GtBT3xXwvFamAuCTtNbTVzNAIzA7QkCAACkYBtzcoufwn1V3Icg + VH1cXP2wZOmrxNUMg94rroboLoJOQDMQdGoXgk5VBJ0w1aXi5kqXnSSuVkBqawr34Mz+V1ztShZjdq8F + fUeKqx0wDIJO03P1AjAitycIAACQgm3MyS1+Cnd3uVncByH0LZetxNWwy9YXNguHE3WKerk6orsIOgHN + QNCpXVi7VBF0wmT3EDdPuu5QcfUCUnu9uDmInp+Iq1sT/Ejca0JPfO92V3G1A1aGoNP0XL265hRxtQFS + 2MXtEwIAAMyWbcxJC5smmhC3SEPV58TVr8s+KK5WGBRfWLsaotsIOgHNQNCpXQg6VRF0wmQ8rdV7prh6 + ASltINeIm4PoeZC42jXBfcW9JvQdL652wMoQdPKuFlevriHohDoRdAIAAEnYxpy0sGmieFLRMnELNfTF + k6/iF86uhl10F7lRXK1QdZksFldHdBtBJ6AZCDq1C0GnKoJOmCyeluLmSdfdT1y9gJT4IdHMviaubk3y + eXGvDX07iasdMBOCTl587nH16hqCTqgTQScAAJCEbcxJC5um+oi4hRqqThBXvy76orgaYdCLxNUQIOgE + NANBp3Yh6FRF0AkrbCtujnTdTcKPFlA3foA2s/jh2d3E1a5JthSu88xOFlc7YCYEnTyCTj0EnVAngk4A + ACAJ25iTFjZNtbFcL26xhip+zdt7XLyrDQZdKAvF1REg6AQ0A0GndiHoVEXQCSscKm6OdN3Z4uoFpPQF + cfMPPZ8QV7cmer+414i+3cTVDpgOQSePoFMPQSfUiaATAABIwjbmpIVNkx0ibrGGqu+Jq19XzJfTxNUG + g54qro5AIOgENANBp3Yh6FRF0Akhfvhynbg50nUfE1czIJU4qsvNPfTEj/I2F1e7JlpfWIvM7JcS3z25 + +gEOQSePoFMPQSfUiaATAABIwjbmpIVNk60rfNkynIeKq2EX7CuuJhgUv/5eRVwdgUDQCWgGgk7twnq3 + iqATwhHi5gf44QLqxwbszN4rrm5NdpC414q++O7J1Q5wCDp5BJ16+O8s6kTQCQAAJGEbc9LCpuleJ27B + hqpTxdWv7eIItjiKzdUEgx4tro7ACgSdgGYg6NQuBJ2qCDrhwXKzuPmBJUs3E1c3IIX4zOjmHXriv9m3 + E1e7Jlskfxb3mtFzgawmrn7AVASdPIJOPQSdUCeCTgAAIAnbmJMWNk23WC4Vt2hD1WPF1bDNXi6uFhj0 + I3E1BCYj6AQ0A0GndiHoVEXQqdsixMPnv+n9TlzdgBRWld+Im3voea242rXB/4l7zeh7gbjaAVMRdPII + OvUQdEKdCDoBAIAkbGNOWti0wQHiFm2oOku6dCzZenKVuFpg0APF1RGYjKAT0AwEndqFoFMVQafuipDT + ueLmBXraeGQWyvEscfMOPX+VePKRq10bxPdJcdy9e+3oiSDuWuLqB0xG0Mkj6NRD0Al1IugEAACSsI05 + aWHTBnE8WWx4uIUbqvYVV8M2ep+4GmDQ18TVEJiKoBPQDASd2oWgUxVBp266r3Bs0so9VFz9gLmKAM8l + 4uYdep4jrnZtspu4146+14urHTAZQSePoFMPQSfUiaATAABIwjbmpIVNWzxd3MINVefLAnE1bJMtZZm4 + GqDqZrm7uDoCUxF0ApqBoFO7EHSqIujULevIO2W5uPmAvssljhZzdQTmKo5kc/MOPedJF75rCd8WVwP0 + xLptfXG1A1Yg6OQRdOoh6IQ6EXQCAABJ2MactLBpi3iE9jniFm+oisfNuxq2yefFvXYM+rS4GgIOQSeg + GQg6tQtBpyqCTt2woRwkV4ibBxh0uLhaAnMVoQ3+WzSzx4urXRvtIPGDKVcH9HCMKFaGoJNH0KmHoBPq + RNAJAAAkYRtz0sKmTfYUt3hD1cUSx/25GrbB/cW9bgyKp17dSVwdAYegE9AMBJ3ahc3lKoJO7bWpPFO+ + LDeKu/6Y3gPF1RWYq8PEzTn0nCbzxdWurT4prhbouV42F1c7IBB08gg69RB0Qp0IOgEAgCRsY05a2LRJ + fLEUXzC5BRyq2roBGnPgJ+JeMwZ9QFwdgekQdAKagaBTuxB0qiLo1DxxnFMcQXc72ULuJo+UOH78zXKC + /EHc9cZwzhVXe2Cu7iwcCz+zh4irXZvdQSLM4+qBnk+Iqx0QCDp5BJ16CDqhTgSdAABAErYxJy1s2ubh + 4hZwqLpMFourYZPtLe71YtC1cntxdQSmQ9AJaAaCTu1C0AnAyvC+j7p8TtycQ883xNWtCw4RVxP03CTb + iasdQNDJI+jUQ9AJdSLoBAAAkrCNOWlh00bfE7eIQ9VrxNWvqeI4vgvEvVYMeou4OgIzIegENAMb3u1C + 0AnATK6R24p7/wDm4j7i5hx6bpYdxNWuC+JJfVeIqw164omFrnYAQSePoFMPQSfUiaATAABIwjbmpIVN + Gy0Rt4hDVXx4jC+mXA2b6MXiXicGxZeRbIZgFASdgGYg6NQuBJ0AzCSequLeO4C54kdkM/u0uLp1Cd/D + rNwDxNUO3UbQySPo1EPQCXUi6AQAAJKwjTlpYdNWXxa3kEPVweLq1zQR2PqHuNeIQS8TV0dgZQg6Ac1A + 0KldCDoBmE4cR72+uPcOYC7+R9ycQ88y2UJc7boknqz9B3E1Qs8PxdUO3UbQySPo1EPQCXUi6AQAAJKw + jTlpYdNWcQ5+PEbcLebQF1+MbyCuhk3yHnGvD4MuljXE1RFYGYJOQDMQdGoXgk4AptOWH66gLKvIr8TN + OfS8T1ztumgfcTVC3x7iaofuIujkEXTqIeiEOhF0AgAASdjGnLSwabNjxC3mUHWYuPo1xZ3kP+JeGwY9 + U1wdgWEQdAKagaBTuxB0AuD8VRaLe98A5uLp4uYceq4RnqTWN19OE1cr9JwtESB09UM3EXTyCDr1EHRC + nQg6AQCAJGxjTlrYtNkdJR4n7hZ06LteNhdXwyb4rLjXhUHnyAJxdQSGQdAJaAaCTu1C0AmA80Rx7xnA + XCySP4ubc+h5g7jaddnO4mqFvv3E1Q7dRNDJI+jUQ9AJdSLoBAAAkrCNOWlh03YfELegQ9XHxNWvdDuJ + ez3wHieujsCwCDoBzUDQqV0IOgGY6gRx7xfAXL1a3JxDz6XCk9S8r4irGXr+KAvF1Q7dQ9DJI+jUQ9AJ + dSLoBAAAkrCNOWlh03YbybXiFnXoWy5biathyX4k7vVgUDxKPh4p7+oIDIugE9AMBJ3ahaATgMniyLoN + xL1fAHOxnvDfnJm9QFztsGTpNhLfLbm6oedAcbVD9xB08gg69RB0Qp0IOgEAgCRsY05a2HTB28Qt6lAV + R8C5+pUqnk7kXge8h4qrIzAbBJ2AZiDo1C5sOgNYIUIErOtRl/eKm3fouUA4Cn5mh4urHXouF54IhkDQ + ySPo1EPQCXUi6AQAAJKwjTlpYdMF68iV4hZ26LtZ7i6uhqWJLxd/L+51YNC3xNURmC2CTkAzEHRqF4JO + AFZ4kbj3CWCutpD/iJt36NlHXO3Qx1PVV26puNqhWwg6eQSdegg6oU4EnQAAQBK2MSctbLri1eIWdqg6 + QVz9ShNf8Lvxw7uXuDoCs0XQCWgGgk7tQtAJQIin7bj3CCCFCXHzDj2/EI6CH86bxNUQPREE4/hREHTy + CDr1EHRCnQg6AQCAJGxjTlrYdMUiuVTc4g5V9xNXw1KsLX8XN3YMOk5cHYFREHQCmoGgU7sQdAJwhBCy + QF3ihzHxhGc399DzcHG1w6A4mo3v32b2fnG1Q3cQdPIIOvUQdEKdCDoBAIAkbGNOWth0yfPFLe5Q9V1x + 9SvFIeLGjUHL5S7i6giMgqAT0AwEndqFoBPQbR8VQk6oU3wH4OYeer4trm6Y3nPF1RI9yySOi3S1QzcQ + dPIIOvUQdEKdCDoBAIAkbGNOWth0yUK5QNwCD1W7iKvhuN1Rrhc3ZgyKX367OgKjIugENANBp3Yh6AR0 + 11Ih5IQ67SZu7qHvnuJqh+ktkHPE1RM9nxZXO3QDQSePoFMPQSfUiaATAABIwjbmpIVN1zxF3AIPVaeK + q9+4xRdBbrwYFIGwjcXVERgVQSegGQg6tQtBJ6B7rpOnintPAFJZRc4SNwfR81lxtcPKPUZcTdETx0Xe + Q1zt0H4EnTyCTj0EnVAngk4AACAJ25iTFjZdE1/k/UrcIg9V8aWUq+G43FviiyA3Vgx6p7g6AnNB0Alo + BoJO7ULQCeiW84TNb+Swn7g5iJ44XmxLcbXDcH4grrboOVFc3dB+BJ08gk49BJ1QJ4JOAAAgCduYkxY2 + XfRYcYs8VJ0pEQxzNRyH74sbJwbFFwPriKsjMBcEnYBmIOjULgSdgO74kKwp7r0ASGkN+ZO4eYieD4qr + HYa3k7jaom9ncbVDuxF08gg69RB0Qp0IOgEAgCRsY05a2HTVT8Ut9FC1r7j65cYjz2fnIHF1BOaKoBPQ + DASd2oWgE9B+v5UHinsPAOrwCnFzET3XyobiaofZOVZcjdET30+6uqHdCDp5BJ16CDqhTgSdAABAErYx + Jy1sumoXcQs9VMWxCQvE1TCX6P9ccePDoEtlkbhaAnNF0AloBoJO7ULQCWivv8uLZNyfudAt68pV4uYk + et4srnaYvTtLHAPo6oye/xVXO7QXQScv3itcvbqGoBPqRNAJAAAkYRtz0sKmy04St9hD1TPE1S+X/cWN + C17Uy9URSIGgE9AMBJ3ahaAT0D5XSDyFdbG4+x6o07vFzUv0XC7cm2m9T1yt0RNP9VtFXO3QTgSdpufq + 1TUEnVAngk4AACAJ25iTFjZddi9xiz1UXSwLxdWwbreRv4kbFwZdIPwaHHUi6AQ0A0GndiHoBLTH7yWe + 4ESIAuOyuVwvbn6i5wBxtcPobiesZ2Y27h8ZIi+CTtNbQ1zNuoSgE+pE0AkAACRhG3PSwqbrviBuwYeq + A8XVr24HixsPvCeKqyOQCkEnoBkIOrULG4NAs0Wo5HPycJkv7j4HcvmUuHkKYLziR4YEPLqDoNP01hFX + sy4h6IQ6EXQCAABJ2MactLDpurvKcnGLPvRdKmuJq2FdNhN+aTq8M4WNE9SNoBPQDASd2oWgE9A8/5YT + 5CnC05tQih3kZnFzFsD4vUzcvYv2Ieg0vduLq1mXEHRCnQg6AQCAJGxjTlrYYMnSo8Qt+lB1kLj61eUY + ceOA90hxdQRSIugENANBp3Yh6AQ0w9nyHol1+eri7mdgnL4lbu4CKMMVsra4+xftQtBpeluJq1mXEHRC + nQg6AQCAJGxjTlrYYMnSzeUGcQs/9F0luR4fzC9NZ+f74uoIpEbQadAdJd4bgZKwwd4uBJ2AZrhaviwv + lK3F3c/AuDxC3LwFUJaDxd3DaBeCTtO7r7iadQlBJ9SJoBMAAEjCNuakhQ16DhO38EPVW8XVL7Xviusf + 3v3E1RFIjaDToAiVuFoBQCoEnYBm+oMcIvEjDndvA7nEEee/FDdPAZTlWtlY3L2M9iDoNL09xNWsSwg6 + oU4EnQAAQBK2MSctbNCzvsSXCW7xh76oUdTK1TCVR4nrG178atzVEagDQadBBJ0A1I2gE9B858obhc1r + jMNTxM1LAGX6sLh7Ge1B0Gl6zxFXsy4h6IQ6EXQCAABJ2MactLBB31Jxiz9UxdOvXP1SWCC/EdcvBt0k + 24mrJVAHgk6DCDoBqBtBJ6A9bpTj5CHi7ncgtYXyR3HzEUCZlslW4u5ptANBp+nlOk2gZASdUCeCTgAA + IAnbmJMWNui7rVwhbgGIvuvlDuJqOFfxqx3XJ7xPiKsjUBeCToMIOgGoG0EnoJ1Old3F3fdAKi8TN/8A + lO1z4u5ptANBp+kdI65mXULQCXUi6AQAAJKwjTlpYYOql4tbAKLqCHH1m4vFcqm4/jDoBtlcXC2BuhB0 + GkTQCUDdCDoB7fYTebC4+x+Yi1in/kPcvANQvnuKu7fRfASdpvczcTXrkviOPP4bjtHcXdzcQg9BJwAA + kIRtzEkLG1Qtkr+IWwSib7mkfoz2m8X1Be994uoI1Img06D4EsXVCgBSIegEdMOE3F7c+wAwineKm2sA + muFb4u5tNB9Bp+ldJa5mwLBWFze30EPQCQAAJGEbc9LCBoM4Pm04nxFXv1FsIv8W1w8GXSPri6slUCeC + ToMIOgGoG0EnoDtic+95Ml/c+wEwrM0kjp138wxAczxM3D2OZiPoNLNNxdUNGNZl4uYWCDoBAIBEbGNO + Wthg0AI5X9xCEH03y93E1XC2jhLXB7w3iqsjUDeCToMIOgGoG0EnoHu+KRuKe08AhnG0uLkFoFl+LoRf + 24eg08weK65uwLBOFTe3QNAJAAAkYhtz0sIG3r7iFoKoOkFc/WYjzs2O0JT7+xh0ucRZ7a6WQN0IOg0i + 6ASgbgSdgG66RO4v7n0BmAmfsYF2eby4ex3NRdBpZm8VVzdgWJ8XN7dA0AkAACRiG3PSwgZe/FrqTHGL + QVQtEVfDYZ0k7u/CO1BcHYEcCDoNIugEoG4EnYDuWiZPFffeAEzn6+LmE4BmOlfi6fPufkczEXSa2Sni + 6gYM62Pi5hYIOgEAgERsY05a2GB6/yNuMYiqb4ur3zB2E/c34V0kC8XVEsiBoNMggk4A6kbQCcArxL0/ + AFM9TNwcAtBszxF3z6OZthZ3ndFzgywSVztgGO8SN7dA0AkAACRiG3PSwgYz+6G4BSGqdhFXv5msIr8S + 9/fgPU1cLYFcCDoNIugEoG4EnQCEg8S9RwArxJOpfyFu/gBotjjOlOBHe2wh7jqjbw9xtQOGcai4eQWC + TgAAIBHbmJMWNpjZg8QtCFH1U3H1m8mzxP0teL+WCIe5WgK5EHQaRNAJQN0IOgFY4aXi3ieAsK+4eQOg + HV4l7t5H8xB0WrkjxNUOGMbHxc0rEHQCAACJ2MactLDByn1d3KIQVbP5pc2aEr9Gc38H3mPF1RLIiaDT + IIJOAOpG0AnACjfL48W9V6Db4ojzP4ibNwDa4Srh82c7EHRauctlNXH1A1bmOHHzCgSdAABAIrYxJy1s + sHI7Snyh7BaG6DtT4lH5roZTvUHc34D3E3F1BHIj6DSIL5oB1I2gE4DJ/i33EPd+ge46UNx8AdAu7xT3 + HoBmWU/c9UXVo8XVD1iZH4ibUyDoBAAAErGNOWlhg+F8TtzCEFVPFFe/yTaSa8X9+/AeLK6WQG4EnQYR + dAJQN4JOAKb6vSwW956B7llbrhA3VwC0y/Wyibj3AjTH6uKuL6q+Jq5+wMpcJm5OgaATAABIxDbmpIUN + hrOVLBe3OETfubJAXA1X+Ji4fxdeHJ3o6giMA0GnQQSdANSNoBMAJz5XufcMdM/bxM0RAO3E+3873Cju + +qIvTljYUlz9gOlsKm4+oYegEwAASMI25qSFDYZ3hLjFIaqeLq5+YXshMDa8+EC/g7haAuNA0GkQQScA + dSPoBGA6Dxf3voHuiM28eMKLmx8A2im+V9ta3HsCmuNKcdcXVUeJqx8wnaeKm0voIegEAACSsI05aWGD + 4fEF4nAuloXianiiuH8H3mfE1REYF4JOgwg6AagbQScA0zlPVhP33oFuiA1gNzcAtNvx4t4T0BwXibu2 + qIpg313E1RBwjhU3l9BD0AkAACRhG3PSwgaz825xC0RUHSBTaxe/Nnb/LLxlwuOZURqCToMIOgGoG0En + ADN5sbj3DrQfT0wGum0nce8NaIazxV1XDPq6uBoCU91GrhM3j9BD0AkAACRhG3PSwgazs76w2bRyl8qa + sqJuq8iZ4v5ZeB+SyXMPKAFBp0EEnQDUjbUngJnEZ681xL1/oN2+Jm5OAOiG74l7b0AzfF/cdYX3OHF1 + BCZ7qbj5gz6CTgAAIAnbmJMWNpi9N4pbJKLqIFlRs/+7tQ3DuVY2lsnzDigBQadBBJ0A1I2gE4CV2V/c + +wfa68Hi5gKAbtlV3HsEysfxWrPzd+G7UsxkLYkfALj5gz6CTgAAIAnbmJMWNpi9xXK5uIUi+q6UCAAs + kj/f2obhHCxu7gHjRtBpEEEnAHUj6ARgZf4kq4p7D0H7zJefi5sLALrllxLvCe69AmV7v7hriun9UBaK + qyfwdnHzBlUEnQAAQBK2MSctbDAaNvuH8xZ57ZQ2zOwfQnACpeK9bxD3K4C6EXQCMIxHiXsPQfs8Qdwc + ANBNTxT3XoGyvUbc9cTMjhbCfZjqfrJc3JxBFUEnAACQhG3MSQsbjCZ+PXKxuMUi+uIItmumtGFmrxA3 + 54ASEHQaRNAJQN0IOgEYxnHi3kPQLqvJBeLmAIBuiveEBeLeM1CuZ4m7nli5jwphJ6ywqXCaxPAIOgEA + gCRsY05a2GB0zxC3WARGFR/K4qg/N9+AEhB0GkTQCUDdCDoBGMYNwrqk/V4k7voD6LYXiHvPQLkeKe5a + YjjHyuriaovu2EB+LW6OwCPoBAAAkrCNOWlhg9HFr6V+J27BCIzi2eLmGlAKgk6D2FAEUDeCTgCGtZ+4 + 9xG0w23kcnHXHkC3XSpriXvvQJnuIu5aYnhnyJbi6ov2i2vP3szsEXQCAABJ2MactLDB3Dxe3IIRmK1z + hUeNo3QEnQYRdAJQN4JOAIb1KXHvI2iHt4q77gAQXifuvQNlWig3ibuWGN6/5RXCd6rdspdcKW5OYGYE + nQAAQBK2MSctbDA3cR74L8QtGoHZiNCcm2NASQg6DSLoBKBuBJ0ADCue6BGfUd17CZptY4nNXHfdASDE + mvF24t5DUKY/ibuWmL1zJMIvrIPabVOJYwvdHMBwCDoBAIAkbGNOWthg7nYTt2gEhnW68EEcTUDQaRBB + JwB1I+gEYDbuJu69BM12pLjrDQCTvVfcewjK9H1x1xGj+408S9YQV3M00ybybrle3HXH8Ag6AQCAJGxj + TlrYII1TxC0cgWE8XNy8AkpD0GkQQScAdSPoVHWxxHsvyraRbCF3lwfJHvIUebV8UL4oZ8kN4q4zRvd0 + ce8laK5tZbm46w0Ak0UIYHNx7yUoz8fEXUfMXXyG+qg8UFYRV3+ULY4jjB+YxxOclom7zpg9gk4AACAJ + 25iTFjZI437iFo7AynxX3JwCSkTQaVBs5rpaAUAqBJ2qLhJXJzTTqrK17CMfkl/LzeKuPYZzmLhao7lO + EHetAcA5Wtx7CcpzgLhriLT+KofL42RtcdcCZVhXniyflavEXU/MDUEnAACQhG3MSQsbpMOXjxjFfcTN + J6BEBJ0GEXQCUDeCTlUEndovjqaINcfPxc0BzCyOwXF1RTPFE9HcdQaA6cQT4LYT956CsjxE3DVEfW6S + X8gH5EkSgXue+DQeCyWe/vpc+bicI/zgoX4EnQAAQBK2MSctbJDO3YTFOGbjC+LmElAqgk6DCDoBqBtB + pyqCTt3yAPmmuLkA73JxtUTzzJefirvOADCT+DGme19BWeL7BHf9kNe18jP5hMQxy/Hkp50kjmKO/xa7 + a4fhrCXbyK7yDDlE4v3pPOFY3vEg6AQAAJKwjTlpYYO0Pi1uAQlMFR/m7ipuHgGlIugEtNfTxd33GD+C + TlUEnbrpkXKJuDmBQauLqyOa5fHiri8ADOP+4t5bUJY/ibt+KMMyic8fP5FjJZ4E9VZ5hTxHniC7yX1l + R9lStrhVPKU0wmwrlPzkqNVk8ljDerLitcTritcXP0LYRfaUOHr6WfJKeYccIfGj3u/Jb4Sj58p0T7dP + CAAAMFu2MSctbJBWLPrjA5BbRAKTHSluDgElI+gEtBdBp3IRdKoi6NRdt5c4asTNC1TdWVwN0RwL5Pfi + ri8ADOMH4t5fUJYvibt+AFCHHd0+IQAAwGzZxpy0sEF6Hxa3iARWuF42FTd/gJIRdALai6BTuQg6VRF0 + 6ra15dfi5gb6HiSufmiOF4i7tgAwG3uIe49BOV4u7toBQB22c/uEAAAAs2Ubc9LCBultLNeJW0gC4d3i + 5g5QOoJOQHsRdCoXQacqgk6IpxVdI25+oCeOPHO1QzMslsvEXVsAmI2zpeTjstA78sxdOwCow0ZunxAA + AGC2bGNOWtigHoeIW0gCsVkZZ5y7eQOUjqAT0F4EncpF0KmKoBPCAeLmB3p4T2+2peKuKwCM4qni3mtQ + htWEH8wCyGWh2ycEAACYLduYkxY2qMc6wqYUnNeJmzNAExB0AtqLTfFysaasIuiEsEDOEzdHsGTpc8TV + DeXbSK4Vd10BYBQXykJx7zkow/fFXTsASOlfbo8QAABgFLYxJy1uUJ/XiFtQorsulbXEzRegCQg6Ae1F + 0KlcBJ2qCDphhWeImyPordlczVC+j4q7pgAwFweKe89BGV4t7roBQEoXuD1CAACAUdjGnLS4QX0i0BLB + FreoRDe9QNxcAZqCoBPQXgSdykXQqYqgE1ZYU7g/vIPE1Qxlu6ssF3dNAWAuLpfF4t57MH53F3fdACCl + 77k9QgAAgFHYxpy0uEG9XiRuUYnuuUB4VDiajqAT0F4EncpFkKOKoBMmO0rcPOm6peLqhbJ9Sdz1BIAU + 3iTuvQdluFjcdQOAVD7u9ggBAABGYRtz0uIG9Ypgyx/FLSzRLU8WN0eAJiHoBLQXQadyEXSqIuiEyfYW + N0+6jqBT8zxA3LUEgFT+JeuLew/C+HF0KYC6vd7tEQIAAIzCNuakxQ3q9zRxC0t0x5myirj5ATQJQSeg + vQg6lYugUxVBJ0y2jtwsbq50GUGn5vmxuGsJACm9X9x7EMbvEeKuGQCk8ni3RwgAADAK25iTFjeoXwRc + fitucYlueJS4uQE0DUEnoL0IOpWLoFMVQSdMFUdEu7nSZQSdmmVPcdcRAFJbJluIey/CeMX3x5eIu24A + kMJWbo8QAABgFLYxJy1ukAdfXHbXD8TNCaCJCDoB7UXQqVwEnaoIOmGqL4qbK11G0Kk5Fsi54q4jANTh + U+LejzB+7xZ3zQBgruL40vlujxAAAGAUtjEnLW6Qx3w5VdwiE+32AHFzAmgigk5AexF0KhdBpyqCTpjq + YHFzpcsIOjXH88RdQwCoSxz5endx70kYrx3FXTMAmKsfuf1BAACAUdnGnLTAQT4PE7fIRHt9RdxcAJqK + oBPQXgSdykXQqYqgE6Z6vri50mUEnZphsVwq7hoCQJ1OFPe+hPH7ubhrBgBzcbDbHwQAABiVbcxJCxzk + 9R1xC020T/xCbntx8wBoKoJOQHsRdCoXQacqgk6YimPCBxF0aoY3iLt+AJDDzuLemzBeTxV3vQBgLh7h + 9gcBAABGZRtz0gIHee0kbqGJ9vmkuDkANBlBJ6C9CDqVi6BTFUEnTPVgcXOlywg6lW9D+Ze464dBf5WN + ZR1gGuvLheLmD7yfiHt/wngtFJ72ByCl/8iabn8QAABgVLYxJy1wkN+XxC040R7L5I7irj/QZASdgPYi + 6FQugk5VBJ0w1Y7i5kqXEXQq34fEXTt4rFMwjL3EzR9M77HiaonxeqO46wUAo/im2xsEAACYC9uYkxY5 + yG87WS5u0Yl2OEzctQeajqAT0F5sIJaLoFMVQSdMtYO4udJlBJ3Kdhe5Udy1w6DTZRVxtQSmOkXcPIL3 + W+H+Kk88pYzPAABSeY7bGwQAAJgL25iTFjkYj2PELTrRfNfKBuKuO9B0BJ2A9iLoVC42OaoIOmGqLcTN + lS4j6FS248VdN3gPEFdHwImn/N0sbi7B43NAmeK/5e56AcBsxH8TN3R7gwAAAHNhG3PSIgfjsbnE8WZu + 8YlmY1MBbUbQCWgvNjjKRdCpiqATpiLoNIjPJOW6r7hrBu9z4uoIzORIcfMJ3sWyurhaYnxuK1eIu2YA + MKxvuH1BAACAubKNOWmhg/F5v7jFJ5orvoC4jbjrDbQBQSegvQg6lYugUxVBJ0xF0GkQQady/VDcNcOg + 6+QO4uoIzOT2co24eQXvZeJqifF6pbjrBQDDerzbFwQAAJgr25iTFjoYn/jiJY45cwtQNFOEQNy1BtqC + oBPQXgSdykXQqYqgE6Yi6DSIoFOZHiPuesFjHmMuXi1uXsGLH+6tLa6WGJ+Fcq64awYAK3OZrOb2BQEA + AObKNuakhQ7G663iFqFonnjUd3wB4a4z0BYEnYD2IuhULoJOVQSdMBVBp0EERMqzQH4r7nph0J9lTXG1 + BIYRR7FdKG5+wYvvKF0tMV67irteALAyr3d7ggAAACnYxpy02MF4rSP/ELcQRbOwQYwuIOgEtBf/HSsX + Qacqgk6YiqDTIIJO5Xm2uGsF70ni6gjMxl7i5he8eOr8RuJqifH6grhrBgDTiSNc13F7ggAAACnYxpy0 + 2MH4vUrcYhTNEb/MXUXc9QXahKAT0F4EncpF0KmKoBOmIug0iKBTWeLJRH8Vd60w6KcyX1wtgdk6Rdw8 + g/dhcXXEeG0s/FAWwGwcInZPEAAAIAXbmFMsdjB2i+RScQtSNMOe4q4t0DYEnYD2IuhULoJOVQSdMBVB + p0EEncryenHXCYNuliXi6giMYkeJeeXmGwYtk63E1RLj9Xhx1wwApopg5Lpi9wQBAABSsI05xWIHRdhf + 3KIU5fuZuGsKtBFBJ6C9CDqVi6BTFUEnTEXQaRBBp3KsL1eLu04YdIy4OgJzcaS4+Qbvs+LqiPH7pLhr + BgCTvUhued9we4IAAAAp2MacVix4MHYL5AJxC1OUbRdx1xRoI4JOQHsRdCoXQacqgk6YiqDTIIJO5fiA + uGuEQdfKJuLqCMzF7eUacfMOg+IJWPcUV0uM122F748BzOQ3EntNt7xvuD1BAACAFGxjTisWPCjCk8Ut + TlGub4q7lkBbEXQC2ougU7kIOlURdMJUBJ0GEXQqw5YSx0C5a4RBrxFXRyCFV4ubd/C+Ja6OGL+7SQRD + 3XUD0G3L5T7y3/cMtycIAACQgm3MafKiB2O3ipwtbpGK8vALN3QRQSegvQg6lYugUxVBJ0xF0GkQQacy + HCfu+mDQH2UNcXUEUlhdLhQ3/+A9VFwtMX57i7tmALrtbVJ5v3B7ggAAACnYxpymLnwwdo8Rt0hFeT4n + 7hoCbUbQCWgvgk7lIuhURdAJUxF0GkTQafx2Endt4MWmvasjkNJe4uYfvNNkvrhaYvzeKu66AeimeM9e + KJX3CrcnCAAAkIJtzGnqwgdF+Im4xSrKcaNsJe76AW1G0AloL4JO5SLoVEXQCVMRdBpE0Gn8vi/u2mDQ + KeJqCNQh5pubh/AeL66OGL8IoR0t7roB6Ja/yWYy8F7h9gQBAABSsI05ucUPxu4h4hasKMdHxV07oO0I + OgHtRdCpXASdqgg6YSqCToMIOo3XHuKuCwbFkfA7iqsjUIeYbzHv3HzEoHNlgbhaYvxWlRPEXTsA3bBM + pj1q1O0JAgAApGAbc3KLHxThJHELV4zfdbKxuOsGtB1BJ6C9CDqVi6BTFUEnTEXQaRBBp/FZRX4t7rpg + 0BHi6gjU6Uhx8xHes8XVEWVYJCeLu3YA2i2Cu/uKe2+4hdsTBAAASME25uQWPyjCPcUtXjF+bxd3zYAu + IOgEtBdBp3IRdKoi6ISpCDoNIug0Ps8Ud00w6GrZUFwdgTrdXq4RNy8x6C8SYRpXS5RhTSHsBHTPgeLe + E/7L7QkCAACkYBtzcosfFOM4cQtYjM9Vso646wV0AUEnoL0IOpWLoFMVQSdMRdBpEEGn8YggQAQC3DXB + oFeKqyOQw6vFzUt4rxJXR5Qjwk6cEAB0x0pDTsHtCQIAAKRgG3Nyix8UY2tZLm4hi/Hgix10HUEnoL0I + OpWLoFMVQSdMRdBpEEGn8XiNuOuBQb+XheLqCOSwulwobn5iED/8a4Z4X/2cuGsIoB1ukniCqHsPGOD2 + BAEAAFKwjTm5xQ+K8nFxC1rkd4nwqG50HUEnoL0IOpWLoFMVQSdMRdBpEEGn/NYX3q+H91hxdQRy2kvc + /IT3DnF1RFnmy1vEXUMAzRbHrj5a3L1vuT1BAACAFGxjTm7xg6JsLteLW9gir+eKu0ZAlxB0AtqLoFO5 + 2DivIuiEqQg6DSLolN+h4q4FBn1bXA2BcThF3DzFoPh+cmNxdUR5niw3iLuWAJrnAtlO3P0+LbcnCAAA + kIJtzMktflAcvjAdv3is/gJx1wfoEoJOQHsRdCoXQacqgk6YiqDTIIJOed1Jlom7FqiK4/m3F1dHYBx2 + lJvFzVcM+pi4OqJM95eLxV1LAM1xrIx0fKjbEwQAAEjBNubkFj8oTjwC/1/iFrnIYx9x1wboGoJOQHsR + dCoXQacqgk6YiqDTIIJOeX1G3HXAoA+LqyEwTkeKm68YFGHFrcXVEWVaT74s7noCKFscVbefuHt7KG5P + EAAAIAXbmJNb/KBI8UW1W+yifmdInG/vrgvQNQSdgPYi6FQugk5VBJ0wFUGnQQSd8rm3uGuAQVdKbLi7 + OgLjdHuJzWQ3bzHoC+LqiHLF95ovlH+Lu6YAyhPvtZuJu6eH5vYEAQAAUrCNObnFD4p0G7lC3KIX9dpV + 3DUBuoigE9BeBJ3KRdCpiqATpiLoNIigUz7fE3cNMOhAcTUESvBqcfMW3n3E1RFli6NWvy3umgIow/my + u7h7eNbcniAAAEAKtjEnt/hBsV4mbvGL+pws7loAXUXQCWgvgk7lIuhURdAJUxF0GkTQKY//EVd/DPqd + LBBXR6AEq8uF4uYvBkXI09UR5YunO8Vnv7+Ju7YAxuPP8hxJul5ye4IAAAAp2Mac3OIHxVokF4tbCKMe + S8RdC6CrCDoB7UXQqVwEnaoIOmEqgk6DCDrVbxU5W1z9MeiR4uoIlGQvcfMXHk9Ab7bbyjvkenHXF0Ae + f5QDJPZ+3L06J25PEAAAIAXbmJNb/KBozxa3IEZ6XxR3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUv6eJ + qz0GfV1cDYES/UDcPMagMySeDuTqiOaIddQxslzcdQZQj1PlCVLrEy/dniAAAEAKtjEnt/hB0WLh+3tx + i2OkEx/utxV3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUL562PLxlcldxdQRKdC+5Wdx8xqB9xNURzbOV + HCHxvu2uNYC5u1I+KDuIuw+Tc3uCAAAAKdjGnNziB8WLLxHcQhnpHCWu9kDXEXQC2ougU7kIOlURdMJU + BJ0GEXSq1yvF1R2DDhVXQ6BkR4ubzxh0gdT6NBJkdwd5u1wu7poDmJ04HjJOjniirCHuvquN2xMEAABI + wTbm5BY/KF48FvpMcQtnzF18+NhcXO2BriPoBLQXQadyEXSqIuiEqQg6DSLoVJ/1hPfl4fxd1hFXR6Bk + G8m/xM1rDHq+uDqi2VaXOKb1x+KuO4DpXSXHyb6yWNw9loXbEwQAAEjBNubkFj9ohN3FLaIxd+8VV3MA + BJ2ANiPoVC421KsIOmEqgk6DCDrVJz4vuppj0PPE1RBogteIm9cYdKmsKa6OaIc7y+vlPHFzAOi6m+QX + 8g55kKwq7l7Kzu0JAgAApGAbc3KLHzTGD8QtrDG62EhcX1y9ARB0AtqMoFO5CDpVEXTCVASdBhF0qscd + 5QZxNUfVr6SYTT5gBHG80B/FzW8Mep24OqJ97iFxvU+Tm8XNB6DtbpSfy3vk0bK2uPtl7NyeIAAAQAq2 + MSe3+EFjPFDcQhuje4O4WgPoIegEtBdBp3IRdKoi6ISpCDoNIuhUj0+LqzcGPVRcDYEmeYK4+Y1BsV69 + nbg6or3imMenysflAnFzA2i6eFrT72RCDpD7SRzt6O6J4rg9QQAAgBRsY05u8YNG+Zq4BThm7zIZ65nZ + QAMQdALai6BTuQg6VRF0wlQEnQYRdEpvR+HJFcP5krgaAk30Q3HzHIPiySauhuiOzeSJcoh8R64UN1eA + EsU670/ybXmfPEPuLYvEzfdGcHuCAAAAKdjGnNziB40Svx5YB0msJa7GAPp4zwHaa6G4+x7jF4/Bd9es + q24rrk7orlXEzZUuiyOXXK0wOtbBw2NNgTbh3h/ebcTVEN0WgfT/kfjh3EfkZPmzEB7GOMQRxOfKSfIx + eY08XuJIxkYHmqbj9gQBAABSsI05ucUPAAAAAAAAAABADVaTCEHtLE+RCJx8WD4vp0gcFfZ3cWEVYKqr + 5Hw5VU6UIySecPo8ebTcR+KoRTcXW83tCQIAAKRgG3Nyix8AAAAAAAAAAIAxWiC3l7vKfWU32UeeK6+U + N8thcrgcI1+Wb0iEpc6Qs+S3Esdfh8skjgYPy8WFZlCPm2RF7f8mK65JXJ+4Tj+WeOLXCfI5iesZ1/bt + 8mrZX54se8iDZHuJ8FKE5tzcgbg9QQAAgBRsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQEls + IwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAA + AAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAA + AAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACU + xDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAA + AAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAA + AAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAA + QElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAA + AAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYC + AAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAA + AACUxDYCAAAAAICqeUuW5raxPESeJa+TD8hn5dtyipwmZ03xMzlZviRHy7vlpfIEWSLriOsLAAAA5bmt + 3FueKK+SQyXWg1+XH8vUteBPJNaJ35D452It+Ep5sjxQWAtiaO4zUZdMTEwAdVtH7iP7yCvl3RL/+6qc + ImcZ0f59OV6OkLfJi2QPuassFNfXrLh7AgBKYhsBAAAAAECV+/I/oY1kb3mPxKbVv+T/1eQSibDU2+TR + cjtxY2q7Y2Tq5mAJfimxQRniOn1BPi6xsfkmeYH8r8Sm5+3FvbY2+Zy4OnXZ12QNcfXK5URxY8spNvO/ + IyfIJyXCoBEK3V/iHtlR1hU3fvTUeX99SFyfdYjwhxsDen4qEZ52tatDW+bVOCyQ+0kEkyK0fqG4tdxc + /UVOkoPlEbKmuPF0Ra61xi7i+s8hfjzhxjSKW95T3OeltnHhj8K9Rlwwpi5LxY0D3trySIm6fUP+LP+v + BjfJb+VTcoDsIPPFjWla7p4AgJLYRgAAAAAAUDXPbxrMxT0kgiuni9uEyuVmiadDLZV7ihtr26wm14mr + R9PcIGdKBD1eIQ+XtmxYxutYJu51d11sTLua5bCBuDGV6kr5oRwuz5MdZFVxr61LctxfMVdc36mdKq5/ + 9L1YXO1Sa9O8ymVt2U+Ol2vEvea6xTX7vhwgOUNxJci51jhDVhE3jrpFqM2NaVQvcZ+X2saFPwp2X1ku + LvhSl9+IGwv67i4RbPqJ5L4+k/1NPi1PkDXEjbXC3RMAUBLbCAAAAAAAqub5TYPZuo08V2Kjw20alOAc + eY1sKO41tEE8LcG99rb4j8STGiLUEUfeuBo0QTz5wL2+rlsui8XVLIc9xY2rSeKpeV+V58tm4l5n29V9 + f50vrt/UCEQOZydx9UutLfOqbhF2eaTEU5viv9nutY7LTfI9eYpEMNyNv01yrzX+T9w46hZBNjeeUd3X + fV5qGxf+KFQEV84VF3Cp23rixtRld5IIN/1BXM3G7Wo5WpaIG/8t3D0BACWxjQAAAAAAoGqe3zQY1joS + T0z6p7jNghLFk4KOkm3EvaYmiycfudfcRv+Wj8qW4mpRsteLe01d9wtx9coljth042qqeKpdbAA/XVYX + 95rbqO776xPi+k3toeL6R9+1EkeiufqlVve8Olpcv02xSF4ofxD3+koTR9zFMXqxjnWvpw1yrzWipjEP + 3FjqkvpJpvG3FrjPS23jwh+Fere4QEsOjxE3pq6Jo+EeJSeJq1OpfiyPlYGj7dw9AQAlsY0AAAAAAKBq + nt84WJk4Hukl0qSA01Tx9JiPy6biXmMTnSDutbZZXMcPyXrialKieCqVey1d915x9cqlzceEXS5vlCY/ + CW1Ydd9fzxTXb2pvENc/+uJau9rVoS3zKrWFcqBcJu51le4qicBTG8Og41hrRLjKjaUuqZ9kerL7rNRG + U4Mfhbqf3CQuxJLDu8SNqytWkX0ljvFz9WmK0+RB8t/X5u4JACiJbQQAAAAAAFXz/MbBTHaQ08VtEDRR + HPX0IonjVtzrbYr5coW419gFf5e9xNWmJBESvEbca+i6ODrO1SyHOCbsRnHjapN4j3i55HoKTm457q+t + xfWd2rfF9Y++XKGKNs2rlPaQpjzBaWXi6MBdxb3OJhrXWiPW1BuJG1MdUj/J9C3us1IbTQ59FGqcR9at + cKq4sXXBrnK2uLo0VfzvdmLvCQAoiW0EAAAAAABV8/zGwXTiWJJl4jYHmu6Hsom4190E24p7XV3zYYkn + TLgaleCe4saN8T6Vq2vHhP1aHiCuFk1W9/31N3H9phYhhTiWzY0BfTuLq19q9xLXfyq55lUqEWT5srjX + 0nQfkdzHr9VhnGuNj4kbUx1Sz8Pd3GelNoqwR+HGeWTdCstkTXHja6vN5QRx9WiDy2QPd08AQElsIwAA + AAAAqJrnNw6miqedfEbcpkCbxGZjBB5cDUr3XHGvqYt+IGuLq9O4xRE/bsxd9xtx9coljnVz42qzm+Rg + adPTneq+v74ort/U7iOuf/TdIGuIq19qbZlXKcST9/4h7nW0RQRBm/iErcnGudaII4XvJm5cqcXTPN0Y + RhH/TVzsPiu10YQPuZRi3EfWTfZQcWNsm/nyArlWXB3a5s0y390bAFAC2wgAAAAAAKrm+Y2DySIwcoq4 + TYE2iidWPUFcLUr2KXGvp6vOlhLDTp8XN96ui6douHrl0uVjwiIYuL64ujRN3ffXS8X1m9pLxPWPvngK + o6tdHdoyr+ZiNTlM3Pjb6CppavA9jHutcZK4caW0jbi+R3WG+5zUVhM+7FKCEo6sm+wN4sbZJhvKSeJe + f5t9QRa5+wMAxs02AgAAAACAqnl+82CFCIqcIW5DoM3iV91PF1eTUl0o7rV02amS64kfw7pU3Fi7bl9x + 9cqBY8KWLP2jxKaxq0+T1H1/7SSu39SOF9c/+uJpZK52dWjLvBrVOvJdcWNvswi+7yWuJqUrYa2xm7ix + pfJscf2O6v3uc1JbTfjASwlKOLJusm+LG2dbPEguEffau+BkWdPdIwAwTrYRAAAAAABUzfObB2GhnCxu + M6ALIuz0WHG1Kc0m4l4Dliw9WlzNxmFLcWNEbw67muVwb3Fj6po4AmgHcTVqgrrvrwjD5TrmL45RdWNA + 3yPF1S61Ns2rUWwmvxM39i5o0lpwhVLWGr+SVcSNMYVjxPU7qr3d56S2mvChl3Er6ci6FeIotwXixtt0 + z5Bl4l53l3xdVnX3CQCMi20EAAAAAABV8/zmQThK3EZAl1wnO4qrT0meKG786Cllk/L/xI2v6y4QV69c + XixuXF0UxzXdXVydSlf3/RVPtHH9pra1uP7Rt1wWi6tfam2ZV6PYSuJpb27cXRJPdtpZXI1KVNJaI566 + 5MaYwvni+hzVRu5zUltN+ODLOJV2ZN1k9xE35iZ7q7jX2lWHuvsEAMbFNgIAAAAAgKp5fvMgjupwmwBd + FBspcYSfq1MpPihu7Oi5SOIJZa52OR0pbnxd9wlx9crlC+LG1VWXyJ3E1apkdd9fS8X1m9qzxPWPvtPF + 1a4Odc+rN4nrd9zuKH8RN+Yu+odsIa5WpSlprRFH6NURStxIXH+jOt99RmqzCR9+GafSjqyb7KXixtxE + 8+Uj4l5n1z3F3SsAMA62EQAAAAAAVM0b3DxYR+III7cRULf41fyVEsGUCBjF/xv//+vF/fO5jDuIsTJn + ihs3+vYXV7uczhU3tq57urh65XKZuHGlEEc+nbUSv5V4r4vjyuI90P2d3H4juZ6Yk0rd99fDxfWbGoHI + lXuPuNrVoS3zajZuL/GkPTfenK6WCFutWA+Oa226wmmymrialaS0tcabxY1zLvYW19eoPuE+I7XZhA/B + jMvOcrO48EkJvihu3E0TIaePinuN43CFXCTny1/kX+L+uVz+KZu6+wUAcrONAAAAAACgat7g5sFbxW0C + pHaznCpvkUdKPEFkVXFjCrHxdn95phwjfxL3d+vyUHHjGrfbyk3ixpxC/G0XzphOBDtiQzJcIf8R93dz + O1tc/XLZQNy4Uoqau2tSujuLq1kOcTSTq2UKEVpaJK7fmawv95SnyLsk3ifjqC7XR52+JG58Jar7/or6 + ryWu79R2kgivunslhXhil3uNqfxTXL8p7Squdqm1aV4NKwKOZ4gbb50i1P4ZeYbEPTBd0DKezril7CmH + yC/F/b265Hqy26hyrDVm69+yqbjxjuowcX2N6lnuM1KbTfggzDisKRF0ccGTUlwubuxN80Fxry+HC+QD + 8iTZTuKoQjfGVWVLeZzEU77OEff36vIVd78AQG62EQAAAAAAVM2rbhxEaOZacZsAqcTG3uFyV5na/2w9 + UCL0lOMpKPHUlVXEjWOcdhc33lRiw931OxuxYRnXezc5QOKaxRMaXH91upu48eUQm7JuTCndW1zfmF48 + TcrVMoWfietzFOvJc+QX4vqqS/TpxlOauu+vn4vrt4k+JO41pvIOcf020ePEvcZUSptX8+Ur4sZalx/L + /8pMQfeV2U6OkBvF9ZFShLcjIOvGUYIca41RpH4yahxf6foZ1V3dZ6Q2m/Ahk3E4TFzgpDTbiBt/U7xa + 3Ouq0/USx+TdW9yYhrWTHCeujzrs4u4ZAMjJNgIAAAAAgKp51Y2D+CW92wBIJY7TuI9M7Xeu4okw3xLX + Z0r7iet/nA4WN9ZUPiiu3xS2lfj7OTYnw0vEjSOH94obUyr/krlsFHfVUeLqmUI8jcn1OVePkDhazvWZ + WgRftxA3jpLUfX8dKq7fJoonIrnXmMqjxPXbRF2bV3HEmBtnHeLpj6mP7dtecjzh6cvi+i9B3XN2VPEU + 1x3EjXm2Ijyf8imHl7vPR2034QMluZV+ZN1kzxb3Gpogno7kXlOdPi4bixvPqGK+xJOhXH8p/czdMwCQ + k20EAAAAAABV86qbB3WGheIJPnGkxtQ+U4knEcSRIq7vVE4U1/c4nSJurKnsI67flOJJRH8R139KnxPX + fw6niRtTKnHvun4xs/PE1TOFx4rrM4UFEkEq129qTTjCru77ay9x/TbN2lLnUacRZlhHXN9N1KV5FaGj + uH5unKl9VNYQN465WlO+Kq7flOJ4Udf/uNU9Z+fie+LGPFsR9nV/f1Rfcp+P2m7CB0lyquPIut+btlQ+ + Ke51lC6OifuXuNdUh7/Ig8WNJYX15DRxfafEU50AjJVtBAAAAAAAVfP6GwdxLNs14jYBUniMTO6vLm8S + 1/+oYuPvj/J1iaPyXJ/jslCuEzfuVDYW13dqcRTM38SNIZUzxPVdt9h4Tfn0AecN4vrG9DYUV8tU4rg5 + 129KT5U6gysrPERc/yXIcX/FXHF9N03dR53+Sly/TdSleXU7+au4MaYU71VxfK0bQ0qLJI4FdGNIZUJc + 3+OUY87O1aPFjX02Uv+o4aXu81HbTfgQSU6pj6w7Rfad0pbSheJeR8lWl1+Jez11+LGsL24sKa0tZ4sb + QyqfdfcNAORiGwEAAAAAQNW8/sbBXW/9wr8uq8vk/uoST3b6prgxzCSOT4uj9eLpJXEc3FMkfrEfG0eu + nxLcT9xrSeUP4vqtyx7ixpHKn8T1W7eHiRtPSruI6xvTi6epuFqm8FtxfdbhReLGkNLJ4vouQd33Vzz1 + y/XbRG8T9xpT+Yi4fpuo7nkV6w3X7zh8RtwYU3u+uP7rEOHpG8SNI4X/SATEXN/jkmOtMVfnSDyR0I1/ + WN8R97dHtZP7fNR2Ez5AkkvqI+uWSTy56M6T2uqwibjXU6pDxb2OOnxVFokbRx3uIteJG0sK/5H13L0D + ADnYRgAAAAAAUDWvv3FQ9wZJzicX3EmWiRvH9XKWfFbeKBF22F5WE/e3SvZKca8xlU+K67dOPxM3lhT+ + Ka7PusU8c+NJJeZ6yYG8Uh0qrp4pHC6uz7p8Xtw4UtpJXN/jVvf99XFx/TbRD8S9xlSeJK7fJurKvNpV + 3PhSi5Cd679Odb7Hh/3F9Tsudc/ZVOYSeIuQ1LXi/u4o4m8tcJ+P2m7Ch0dyqOPIurfLir9/xa1tdYgn + Rk1+LSXbSW4S9zpS+54sFDeOOr1W3HhSeaq7dwAgB9sIAAAAAACq5vU3Dx4vbhMglefI5P7qFkGDU+UY + iUBQHJ13Z4kj+tw/30RfEVfrVJ4trt86vVXcWFK4Ulyfdfu2uPGkEvPc9YuZ1Xm0URwp5/qsy6aScvPX + +Zi4vset7vvr6eL6bZo46rTOJ9yEO4jru4m6MK8i4B1PlnLjS+nHsqq4MdQpQu9x/LAbUwrfEtfvuNQ9 + Z1O5XG4r7jWszH3E/c1Rfdd9NuqCCR8cySH1kXV/lAhPrfj7J4n751L4kEx+LaVaRc4U9xpS+53EUXJu + HHWL6/4PceNKYcLdOwCQg20EAAAAAABV8/qbB3UHna4RjtdKJ47o+4e4Wqeyjbi+63SguLGkcL64PusU + m7t1B1DeJa5vTG8tWS6unilsIa7fOtX99JKrZZG4vsclx/0VR2C5vpvmAeJeXyrjOhq0Dl2ZV/FkHTe2 + lGLtF4Ej138Op4kbVwoRHFxDXL+5pZ6zcZyza0/l7eJex8q8WNzfG9VS99moCyZ8cKRuqY+sC4+SyX0c + LO6fS+FsmdxXqZ4hbvypxdFx24gbQy7vFje2FH7o7h0AyME2AgAAAACAqnn9zYPdbv3Sv26fkB1lct+Y + ve3E1TeVv4vrt251PtHp++L6rFPqpw84jxXXN6b3CHG1TOEv4vqs25bixpPSHuL6Hpe676/LxPXbRK8W + 9xpT+Yy4fpuoC/MqQouXihtfSi8T138uda4pwoPE9Ztb6jn7BqnzaVhxjPTm4l7LTI4T9/dG9Qj32agL + JnxopE51HFl3vEzt57Hi/tkUIqS1jkztsyRxhNzF4saf2gvEjSGne4sb22z9S86ReCLYkfIGuYu7dwAg + B9sIAAAAAACq5vU3D+LpAm4ToC5ny9sknjIRx6dMHgtW7nni6prKl8X1W7c44saNJ4UPiOuzTi8RN5aU + bieub0xvqbhapnCsuD5zOFPcmFIZxz00k7rvry+I67eJvibuNaayv7h+m6gL8yrH05x+L3Fkous/l73E + jS2VqKPrN7fUczaeSnj0lLbUJsS9lplcJO5vjSKe6rjYfTbqggkfGqnTB8QFTEYVwZTNZGo/G4v751OZ + +gSp0uwvbtypnSZxRJ4bQ07z5e/ixrjCjRJHHP5QPiPvkOfLHnIPWdfdIwAwTrYRAAAAAABUzetvHqwi + /xS3GVC36ySetnOw7Cmj/Mq7az4trpapvFxcv3W6v7ixpLKvuH7rdLy4saTyW3H9YmbfFVfPFF4ors8c + DhE3plQioOr6HZe67684Jsn12zRx1OmV4l5jKncT13cTtX1exXyIEJIbW0p7i+s/p7uLG1sqh4nrN7eU + czbW5DFHNpJ/3dpWl3gSlXs9zsbi/saoTnefi7piwodG6vJQcQGUuXipuL7CJeL+nRQOEddnCSL0k/qp + WdO5v7gxjMNRcrp8Sd4vL5d95H6yiQwEstw9AQAlsY0AAAAAAKBqXnUT4YviNgPGITZlI4zwHnmKbC+r + ytQxd9UfxdUtlSXi+q3LbSRCO24sKdwk64vru05xRJEbTyqHi+sX01sg14qrZwr3ENdvDo8XN6ZU4gkY + q4vrexzqvr/uLa7fpon/frrXl0r89zrC0q7vJmr7vNpV3LhSOkdKmBPx3303vlS+Ka7f3FLO2dNlxd99 + za1tdfmhTH4dM3mcuL8xqve5z0VdMTX4UaPFEk/TcWGZUZ0lC8T1F04Q9++l8GNxfZZgd3FjTu2r4vpv + DHdPAEBJbCMAAAAAAKiaV91EiF/fu82AUlwvp8lHZD/ZWqa+hi7YVFx9Uvm3RBjE9V2HteVkcWNJ5Tvi + +q7TXcSNJaW/ylmFiSOy1hBXkxLsJK6WKcRT8ca5ub+tuHGldC9xfedW9/0VYbi2hGvjWDn3GlM5UVy/ + TdSFeRXHa7qxpRQBddd3bnE0shtfKvHfPNdvTqnn7BGy4m/Hf8vrDtZHgGny65nOO8X9+6Pay30u6goX + /qjJh8WFZUZ1s8STelxfK7xO3L+bwn9kDXH9jtvnxY05tZ3F9d8Y7p4AgJLYRgAAAAAAUDWvuokQ4ZaL + xW0IlOoK+YYcJPeTLjz1KY5gc7VI5Xvi+q1DPDmqrUfoPEPcWLognhjialKCl4obcwrxXuT6zGUtceNK + adhN6brVfX99W1y/TTQh7jWmEv/9df02Ud3z6lvi+s1lsdT5RLtwuSwU1/84uDGmcoG4PnNKPWcjGDn5 + 7z9R3D+XSqwBI5A2uU/nB+L+/VFt6D4XdYULf9SgjiPrjhDX12S7ift3U3mwuH7HaW25Xtx4U/qluP4b + xd0TAFAS2wgAAAAAAKrmDW4kxJOS3IZAU1wt8XSJF8udxb3GpvuQuNeeypvF9ZvKfHmQHCc3ixtDSrER + mfMJVSscJW48bRfXdB1xNSlBnUd0xjE/rs+c4sl3bmypHCCu39zqvr/eIK7fJrpI3GtM5YHi+m2its+r + vcSNK6V3iet7HOoOf8aRca7fnFLP2Xjq4eS/H2u2H4v7Z1M5UCb3OVWs4eJpo+7fHcV57jNRl7jwR2J1 + HFl3uawrrr/J1hP376fyWnH9jtO+4saa2gHi+m8Ud08AQElsIwAAAAAAqJo3uJkQGxrfF7cx0ES/kbfJ + PcW93iaKo1Lca03lEeL6HUXMp40lNsLjKQHHyJ/F9VuXeNqBG1vdzhM3nrY7R1w9SvE3ceNOYWdxfeZ0 + pbixpbJUXL+51X1/PVRcv02zmbjXl8oNsrq4vpuo7fPq4+LGldLdxfU9DhuIG2MqcVyp6zenlHP2RnH3 + 832kzmD6P2SmgHQcmer+vVEd5T4TdYkLfySW+si6sJ+4vpzzxf2NFE4S1+c4fVrcWFO6STYU13+juHsC + AEpiGwEAAAAAQNU8v6GwicSv1N3mQJNF6CmeRnIbca+7CdaWm8S9vlQiqBJhqlH9QeIJInGsYN1jXZlf + yirialmnDcWNpwuOFFeTEmwtbswp/EfWENdvTrFh7MaXSglPa6n7/orN/jXF9d00dR91+iNx/TZRF+ZV + /PfZjS2VOIbM9TsudxM3zlTGHXRKPWfPENdPiKC6+3dSeY+4fsPzxf07o3qG+0zUJS78kVAdR9Z9X+aL + 6885VtzfSeFqWVVcv+NyqbixpvQjcX03jrsnAKAkthEAAAAAAFTN8xsKIY6u+Je4DYKmi42peCpJhIbc + ay/Z7uJeEwYtl3gKgatj3R4vbkxd8ExxNSnBs8SNOYU42sf1mVvd79uHies3p7rvr1PF9dtEHxb3GlN5 + h7h+m6jt82ojceNKqaRj60Lda6Y/ies3l9RzNo5Gdv2E+BHEteL+vRQiLHwncX1/Sty/M6q7uM9EXeLC + H4nUcWTdMtlWXH/Tebm4v5XKPcX1Ow5bihtjaq8S1/+w7iFnNcAZsr27bwAgF9sIAAAAAACq5vkNhRUe + JFeL2yRog8slgg9xvJp7/SWKY/jca8Gg14urYQ7vEzemLthWXE1K8AlxY07hEHF95rSauLGlNNNTN3Kp + +/4q4TWmcra415jK/4jrt4naPq8eLW5cKUWwyPU9LvEUTzfOVOJJoa7fXFLP2SeL62eFN4j791L5vLh+ + Ux7PF0+stZ+JumTCB1FSqOPIureJ62smDxb3t1I5UFy/4/AkcWNMbTtx/Q8raub+bone5+4bAMjFNgIA + AAAAgKr4sn8l7iFxDJnbLGiLb0k86cC9/tL8QNxrQNUXZRxH1q1wurhxtV0cm1ZycPB8ceNOYQ9xfeYU + T8NwY0spnobn+s6p7vtrT3H9Nk08tfBmca8xhfjbTXwy4nTaPq9eI25cqcRTFBeL63tcDhc31lROFtdv + Lqnn7J3F9bPCIrlY3L+byv1lcp/rivvnRnW82M9EXTLhgyhzVceRdX+QReL6m8lacpO4v5nC58X1Ow5v + FzfGlC4S1/ds1HmcYGp7u/sGAHKxjQAAAAAAoCq+7B/CevIlcRsGbfFXGdcxZ8NaKNeLGz/6YuNxTXE1 + zCE2emPD142t7b4hriYlqPPYpgh8xGas6zenh4obX0oHius7lxz31wbi+m6aeNqSe32pxNOiXL9N1IV5 + dbS4caVylrh+x+k0cWNNJY5Uc/3mkHrO/k1cP1M9Sdy/n8pPZXJgeldx/9yoXiz2M1GXTPggylzUcWRd + +B9x/Q3jt+L+ZgqXietzHL4kbowpxf9c37Nxsbi/XaIN3H0DALnYRgAAAAAAUBVf9s/C3lL3L7nH6Vp5 + mLjXXoL4lbsbN/pOknGGnMIjxI2tC14nriYliPcvN+YUfi2uz9xeJm58KT1RXN+51H1/nSuu3yZ6u7jX + mMqHxfXbRF2YVxECdmNL5TPi+h2XWAvUHV57s7i+c0g9Z08Q189UEUKKMJL7G6nsIyv6i3WF+2dGdW+x + n4m6ZMIHUebiY+ICI3PxBXF9DesT4v5uKluJ6ze3X4obX0r7i+t7WJuJ+7sl+q27ZwAgJ9sIAAAAAACq + 4sv+WYpjK14i8QQkt4HQdNfIvcS99nF7lbgxo+d9sqq42uUUR3u58XVByUHBw8SNOYWPiusztwgauPGl + dF9xfedS9/31MXH9NtEPxb3GVPYV128TdWFe/U7c2FKJo/Fcv+OSI3Q8zuBn6jn7anH9OEvE/Y1ULpR4 + imn09eVb21KIHzTcsk50n4m6ZMKHUUa1m7jAyFxcI5uK629YLxT3t1N5hrh+c/u7uPGldDdxfQ/rieL+ + bokOd/cMAORkGwEAAAAAQFV82T+i2ICITc7vyE3iNhSa6k9yO3Gve5y+Km68XRehu8eIq9k4fFfcONsu + 3gfiKB1XkxL8Qty4U3iyuD5ziqds5Aig3lZc/7nUfX89TVy/TRP/jb5B3GtMZTNxfTdRF+ZVHE3mxpZK + HGnm+h2XCD+7caa0rbi+c0g9Z3cW1890JsT9nVReLtHPJZPa5urbcsv43WeiLpnwYZRR3FbqOJLsJeL6 + m42dxP3tVI4W129uN4sbXyo3ymri+h7W+8X97RLt6+4ZAMjJNgIAAAAAgKoVX/jP0YbyfDlFbhS3udA0 + nxL3WsclQgxXihtrV/1H3iNri6vZOCyQeGKAG2/bnSmuJiWIAFadRxhtLq7fnHYUN7aU/iiu71xy3F93 + Ftd30zxQ3OtL5SJx/TZRV+bVP8WNLZVdxPU7LvFUIDfOVK6SVcT1XbfUczbW7vHEVtfXdCLoeJ24v5dC + zNe7T2mbqzfKLeN3n4m6ZMKHUUZxpLiwyFycKQvE9Tcbq0uEdFwfKZwvrt+c1hE3tpTOFdf3bPxc3N8u + 0UbungGAnGwjAAAAAACoWvGFf0LxtI/HyRFygbiNhqbYSdxrHIftxY2xi66X90sJ4ZKpYs64MXfBR8TV + pAS7ihtzCvEEONdnbm8XN76U4gkeru9c6r6/4olYrt8mOkjca0xl3HMhpbqP4SplXrmxpXRXcf2OQxxB + 7MaY0oni+s4h9Xvhz8X1szJ1H/n4G9M2F/89Xtd9JuqSCR9Gma06jqyLpxPdV1x/ozhdXD+pbCSu31w2 + EDeulE4Q1/ew1pTl4v52ac5z9wsA5GYbAQAAAABA1Yov/Gu0sewjH5A4OqpJT3w6QdxrGof9xY2xS/4s + sam2vrgaleBl4sae0lmF+l9xNSnBW8TVMoXPiOszp3iqyMXixpfS88T1n0vd99dx4vptoghhuNeYSvw3 + yfXbRF2ZV/EURDe+VLYQ1+84xJrTjTGlA8X1nUPqORv1cv2szJryF3F/szTxVMcY7y1jd5+JumTCB1Jm + o64j6z4qrr9RHS6un1T2FtdvLluIG1dK8dQu1/ewHiLu75bo4+5+AYDcbCMAAAAAAKha8YV/RqvLfeQ5 + cricLnVvvo0qNkU2Evc6counZ7gxtl0czRKbxI+RVcXVpiRfEvc6UvmduH4xs5PF1TOFEgIfjxY3ttTu + IK7/XOq+vw4Q12/TRPCt7qNO4ymDru8m6sq8+oe48aWyrrh+c4t15hXixpjSOI8jTD1nnySun2E8Rdzf + LM2p8t9xu89EXTLhAymzUceRdSGOgzsrob+K6yeV94urTy7rixtXSu8R1/ewXiPu75boqe5+AYDcbCMA + AAAAAKia/KX/GK0mcczIivDTL+UmcRsVuT1b3Jhzu0jc+NrmBvmpvEsivBEblq4epbpc3OtK5WPi+sX0 + Fsh14uqZwt3E9ZvTj8SNLaV4Ip/rO6e67697iuu3aWJOuteXSoSo5ovru4m6Mq/qXkesI67f3J4pbnwp + nSGu71xSz9m5PI0r3gtOE/d3S/Ie+e+43WeiLpnwgZRh1XFkXVP9UlyNclkkblwpLRXX97BOFPd3S7SZ + u18AIDfbCAAAAAAAqiZ/6V+YxbKrvEm+J+N66tOnxI0vp83EjS2VOE7QHUWWUvyS/hT5isQTmo6SCDO9 + Sp4uD5c7SjyJxNWgCe4qrr4pPU1c35jefcXVMoUIfIx7zj5M3NhSe6m4/nOp+/66Wprw1Lhh1H3U6dfE + 9dtEXZpXESJ3Y0xlc3H95vYrceNL6SXi+s4h9ZyNo+dcP7PxAHF/uyR7yn/H7D4TdcmED6QMo64j65rq + JomauFrlEmNwY0tlLk90mi//EPd3S3Ohu1cAYBxsIwAAAAAAqJr8pX/h1pI4viyeaHONuE2MOsSGmRtP + TvuKG1sq8TQY1y9m51ni6pvSncT1jem9XFwtUzhRXJ+5xJM04klLbmwpRdB0fXFjyKXu++skcf020WfE + vcZUXi2u3ybq0rz6vLgxphJP5nT95rS7uLGlFE+eXE9c/zmknrPHiutntj4n7u+XYgP573jdZ6IumfCh + lGHUdWRdk+0urla51H0832fF9TuMu4j7myU6xt0rADAOthEAAAAAAFRN/tK/QdaUl8m14jYzUrpK3Bhy + +rC4saXyDnH9YnY+Ia6+qVwirl/M7Mvi6pnCQeL6zCVHuC6U8GS7uu+v14nrt4n+JO41phJPb3H9NlGX + 5tWbxY0xlceJ6zeXCH7+XNzYUjpaXP+5pJ6zLxTXz2zFE72uF9fHuJ0rlfG6z0RdMuFDKSvDkXXeweLq + lcsp4saVyq/E9TuMeKLTMXJWIv8UN8YUnu7uFQAYB9sIAAAAAACqpn7xP8mGcjd5pMRxWbGh/36JY8fi + CUC/l43F/bu57CTxy3q3qZGS6zuns8WNK5X/EdcvZud8cfVNJdVTF7rm7+LqmcI4Ax8byT/FjSu17cWN + Iae676+HiOu3ae4g7vWlEv/NXSiu7ybq0rx6orgxpvIWcf3mEkErN66UbpZtxfWfS+o5u4O4fkYRc8D1 + MW5HSmWs7jNRl0z4UMpM1hGOrPN+IK5muRwhblyp3Czries7p8VyhbgxprCFu1cAYBxsIwAAAAAAXTZv + ydLVZFNZInEM3PNkqRwuX5XT5C+yTNxGwVTxVKXKxsEYfEDc2FJy/eaytsTGmhtXCvG3ow/XN4YXoRNX + 35ReJK5vTG8bcbVMYZyBj3hyydfFjSu1L4obQ05131/x37xF4vpumieJe42p/FBcv03UtXm1mbhxpvID + cf3msLrUHVoLcTyb6z+X1HM2wrKriOtrFHHM9F/F9TVO/yeVsbrPSV0y4YMkM4mn8rhwCCYmbpCF4uqW + wwHixpXS88T1ndNbxY0thT+7+wQAxsU2AgAAAADQNfN6GxixUX25uC//5+JiGfeTHfYVN7ZUrhHXby7x + tCU3rlTiaVGuX8zOE8TVN6WUT13oiueIq2UK4wx8vE3cmFK7Ue4ibgw51X1//Uxcv030EXGvMZW3i+u3 + ibo4r84TN9YUbpII4rh+6xZH8LoxpRTvh1uJ6z+X1HP2G+L6mYuni+trnLaUyjjdZ6YumfBBkunsIS4c + gr4HiqtdDvcUN6aUzpE4hs71n8M2EoEyN7YUJtx9AgDjYhsBAAAAAOiaeb1NGfelfypxpF1l8yCzuoNA + fxTXby6xqezGlcqHxfWL2YljHV19U7laUj51oSs+Ka6eKYwj8BFPcnqzuPHU4VBx48it7vvrXeL6baJf + iXuNqbTpqNMuzqsYkxtrKuM4vi6OWK7zyZcrvFtc/zmlnrOvEdfPXMRa5Rfi+huHS2VgnO4zU5dM+DCJ + E0fWXSIuHIK+g8TVL4dV5HJx40rpmeL6r9vqcrq4MaXybHefAMC42EYAAAAAALpoXr3HefxH7isDmwiZ + vF7cuFL5prh+c4mnxrhxpRJPxHL9YnbOEFffVMY9D5vqD+LqmULuwMc68gVxY6nDn2SxuLHkVvf99Vhx + /TZNzJE6Ax/xxJ42HXXaxXl1D3FjTeVfsom4vusQryeCwG4sKcUTTG8jbgw5pZ6zO4vrZ64eJK6/cThO + BsboPi91yYQPlDgcWTecE8XVL5cjxY0rpStlc3H91yWeIvUpceNJaSt3nwDAuNhGAAAAAAC6aN6Spe8T + 9+V/Kn+XcRyrFZvwfxE3plTi6Smu7xziWMAbxI0rlU3F9Y3hxTyMAICrbyp1PHWh7TYWV8sUIkySK/AR + T8fYT+KpFG4sdYmnpLjx5Jbj/rqduL6b5lHiXl8qZ4nrt4m6PK9OEzfeVL4tq4rrO6V7Saw/3RhS203c + GHJKPWdjfbmGuL5SiICR6ze3A2RgfO7zUpdM+FDJVBxZN7yrJJ6s5OqYw87ixpXaL2VtcWNILer5UXHj + SOkyd48AwDjZRgAAAAAAumheL4TkvvxPKX7F/0QZ2EyoyerydXFjSenB4vrP4QHixpTKuI/la4vYAHX1 + Tamupy602T7iapnC2eL6TGkteab8VtwY6hThWDemcaj7/or6un6b6B3iXmMqHxLXbxN1eV49QdyYU/qM + rCau/xSeLP8W13dqpcz71HP2x+L6SWULqTusP4x7ysD43OelLpnwwZLJOLJu9u4hrpY5xJOPfi1uXKn9 + VNYXN45UIkz1VXH9p3asu0cAYJxsIwAAAAAAXTVvydIfiNsASO2rsp0MbCoktL3UfeRMuEjmixtDDq8W + N65UPi2uX8zOW8TVN5U4HrLOpy601QfE1TOFuja+by9Pl8/LNeL6rtupEkFSN75xqPv+Olxcv030I3Gv + MZU2HXXa5XkVT4mLp3O5cacUR+/eWdwYRrW55DzCM9aapbwfpp6zh4jrJ6W6w5crE/8dtU8Xc5+VumTC + h0sm48i62XuhuFrm8n/ixlWHi+WR4sYxV3vJn8X1W4f93T0CAONkGwEAAAAA6Kp5S5Y+WtwmQB3iWKd4 + 2lI8NSCeSjKwwTCiOKbkGFkurt/UloobRy4nihtXKs8T1y9m52Rx9U2l7qcutNUvxdUzhbkEPuJIytis + v5/sJW+Q4+UCcX3l9FeJI//cuMel7vvrqeL6bZoIY3DU6fC6Pq8eJm7cqV0v8YS4uQaedpSPyTJx/dTh + crmjuPGMQ+o5u4e4flK6jVwmrv8cThI3LvtZqUsmfMBkhbqOrPuXnDVGV4obVyrHiqtnLqvKb8WNrS6n + yKNlNXFjGtbqso+cKq6fOm3j7hEAGCfbCAAAAABAl81bsvQ74jYC6hRPozlF4lfdT5MHySYysOkwRfwz + 8c/G000+KueL+/t1uVrWFze2HOKJC1eKG1sq24rrG8NbINeJq28qMQ/i6RtNc4C4muUQm6s3iatnCueJ + e81OPBkuXCX/FPf3ShDveXHMqavnuOS4v+J4Jdd30zxQ3OtLpU1HnTKveibEjb0up8nBEsH7CD5Nd7Rd + hEHvIREojSfzxfun+3t1itBgSUfGpp6z8YOEdcT1lVocwerGkMPrxY3Jfk7qkgkfNgl1HlkXTxxyfeby + ZnHjSiXq5vrN6eHixla3v0sEvV4gD5YNJY7Tc2MM68ku8iI5Tq4S93frFuOe7+4RABgn2wgAAAAAQJfN + W7L0bnKjuM2AcYhN/0slNlAjyHTxrW11P5ViGC+VgY2RjOJauXGlcoWM81i+toin8rj6YsnSv4irWQ67 + ixsTvNhAL2lTf4W6769xztHUDhL3GlNp01GnzKuedSXG6l5DLvHUpAgyxRPtYiwRuHT/XE4Rkn28uJqN + S+o5+ytx/dQhgvt1PmFxJruIG5P9nNQlEz58Euo6si6e/DNT8CWHup5UNdmdxPWd01HixpbbjfJXuUh+ + JxfI5XKDuH9+HI539wcAjJttBAAAAACg6+YtWfo6cZsB6PuZrCoDGyMZ7S9ubKl8RVy/mJ1XiKsvliw9 + VlzNcoinhrgxYVAEC0oMOYW6769xztHU4rhY9xpTadNRp8yrvgjQ5DwOrnQRcnqKuFqNU+o5+xFx/dTl + weLGUaeY12uKG4/9jNQlEz4gU1cQaJlsJ67PnDYSN76Uniau75wWy7nixoeqF7n7AwDGzTYCAAAAANB1 + 83q/rK57Q7TJ/i6by8CmSGafETe+VGLTzPWL2TlBXH2xZOmLxNUshzgu040JVfFEvfuIq2EJ6r6/Xiiu + 36aJ/67H0YjuNaaynbi+m4h5VbWfuNfRNRFyepa4Go1b6jkbxwK6fur0JXFjqUv8aMGN4xbuM1KXTAyG + Y24nl4oLg8zV28T1OQ4XixtjKkeK6ze3beRqcWNE393d/QEA42YbAQAAAADALWGn28qZ4jYGuiyOb3qA + DGyIjMGfxI0xlXiKg+sXw4uj/yIY5+qLJUvvLq5udVsocS+7MaEv/htQQqhzOjnurx3E9d00ca+515fK + P6QtR50yr7w4rte9lq6Ip//sLa4241bHnN1MXF91urP8R9x46vAuceO4hft81CUTg8GYz4gLgszVhbJI + XJ/j8CVx40wlnqTk+h2HneU6cePExMSVsoq7PwBg3GwjAAAAAADombdk6QbyK3GbA10UwYiHycBmyBjc + QdwYU4nXupq4vjG8bcTVF0uWXinxlBlXt7pFiM+NCX2Hyxri6leKuu+vf8q45mhqzxf3GlP5qrh+m6ju + eRVHQTZ1Xr1E3Gtqu8sljlZzNSlB6jl7kbh+cninuDHV4bHixnAL99moSyaqgZg9xQVBUniUTO1vnA4S + N86UNhDX9zg8TAg7eSe4ewMASmAbAQAAAABA37wlS9eWk8VtEHRJ/FL+/jKwETImTxI3zlS+L65fzM5z + xNUXS5Z+RVzNcniluDFhydLLZC9xdStN3ffXN8T120SfFfcaU3mVuH6biHk1szjS7Hpxr62NzpAtxNWi + FKnn7IS4fnKIJ8r+Tdy4UruduDHcwn0u6pKJfhAmjqy7TFwQZK6Ol8l9lWBXcWNN6XHi+h6Xe0tdxxI2 + 2UvcvQEAJbCNAAAAAACgal7vyT7vlZvFbRS03elS2ibXR8SNNZW3iusXs/NJcfXFkqWvEFezHCJk5cbU + ZfH+frTMuPFbmLrvr9eI67eJLhb3GlMpKQg8V8yrldtJ4qk/7vW1yfskjjp1NShJ6jn7PHH95JIjJH6O + uL7/y30m6pKJfgimriPr/iWbyeS+SrC2uPGmdKi4vsdpE/mxuPE2Vbyet05pm417uXsDAEpgGwEAAAAA + QNWkL/0fKn8St2HQRjfJwVLiEW51Hym4m7h+MTt/EFdfLFm6RFzN6jZfrhA3pq76qYzresxF3ffXzuL6 + bZrNxb2+VOLpPk0IgwyLeTWcdeXz4l5j050vTbpOqefsduL6yWVVqXude4S4vv/LfSbqkole+KXOI+te + KpODNiU5X9yYUzldXL/jtkBeJ/8RN+4meZ8slLtNapuNq2VVd28AQAlsIwAAAAAAqJryxf9tJMI/14nb + OGiLU6XUjf91pM6na0XAa7G4vjG8jcXVF0uWXisLxNWtbtuKG1MXnSmPEVen0tV9f/1H1hDXd9M8Wdxr + TOUH4vptIubV7O0tl4h7vU3zb3mtNOkapZ6z/5AIBLu+cnqYuPGlsp+4fv/LfSbqkol6j6w7SyJUMzVo + U4q6nmK1wnJZLK7vEmwjPxM39tJdLLvJitcyX/4m7p+dyYnuvgCAUthGAAAAAABQ5b78l03loxJPcnAb + CE0Vx/vE5kcJmzzTeZS4sadyhrh+MTtPFFdfLFn6bXE1yyGO5HFj6pKTZXcp+X1uZeq+v34irt8miv9W + u9eYytvE9dtEzKvRrAjBR4jVve7SRQDtMInQkHt9JUs9Z+NoV9fPOJwgbowp3Elcn//lPhN1yUR9YZ+b + 5X6yIohSonjalBt7SruK67sUERB6slwobvylWSbvltvI1NdyrLh/ZyavcPcFAJTCNgIAAAAAgCr35f8k + G8ib5FJxGwlNEeGeeOrFuJ4yMxvvEPcaUnm/uH4xOx8UV18sWfp6cTXL4dPixtR28R59qMQTrVxdmqbu + ++sQcf020a/FvcZUIjTn+m0i5tXc3F4i8NSU40GvlFhTbSLu9TRB6jn7SnH9jMNWskzcOOfiL+L6q3Cf + ibpiot4j646QqUGU0jxQ3NhTerO4vksTx78dIKUGniLgdLhsLm78YX9x/+5M7uvuDQAohW0EAAAAAABV + 7st/Y1WJzc7PSlN+0f83iQ2i+4l7TaX6kbjXk0ocQ+P6xezEsWCuvliy9CHiapbDH8WNqY3Ol3hKSRwB + FO/Rrh5NVff99Whx/TbNulL3Uadri+u7iZhXaSyS58tp4uowTjFnvy9PlRinG3+TpJ6zpa2J3y1unHNx + rLi+Ktxnoi6YqPfIustlXZkaRCnNWnKTuNeQysni+i7VKhIBuBh3PJXLvaacrpBDZaaA0wp3Efc3pnOt + LHD3BwCUwjYCAAAAAIAq9+X/Sqwuu0k8Geh34jYZxiE2e38h75SmbvzHE6fqPi5wI3F9Y3hrSWymuvp2 + 3Q2yhri61S3mthtT00VNz5UTJZ5Oso808QimYdV9f8V/K9YT13fTRADZvcZUzhLXbxMxr+qxpRwksf4a + 138X/y3x/ri/bChunE2Ues5eJwvF9TUu68jfxY13VC8U11eF+0zUBRMTE++YFPhIbT+ZGkIp1a/EvYZU + /i2riuu7dJvIy+VUyRl6ipp9RZ4g8aQpN7bp/EXc33ROcvcGAJTENgIAAAAAgCr35f8s3U72kDjO5ASJ + p4zUvdm1XC6QL8jr5FHSlg3Gt0hsLtfhm+L6xOzFUwhcjbtuQly9cjlCYhy/l4tm6U/yzxFEEMm9T4X4 + v03+Z+MopejrtxLBgFPka/I5iSfQxbF/sVn/BHmANPnIpbmo8/6K/065PpsonljzDXGvM4VxHkNZB+ZV + veLpX/FUq/fIDyXe79z74lz9Qb4kr5YHSgTw3XjaIOWcPUZcH+P2DHHjHdX24vqpcJ+JumBiYmJHOasG + n5P5MjWAUqqDxb2OVN4ort+mWU/iSU8flDPkOnHhoVH8S34k75VHyOrixjCM+J/rwznI3RsAUBLbCAAA + AAAAqtyX/wnEE122lUfKs+WN8gH5tMSv7mNz/6cydXPidIn/W4hNw6MkNnleI8+UeFLTnWU1cf0CAACg + DPH0uUfIs+S18mGJkPp3JdZ6se6bvA6Mo9qi/SvyKYmndL5MHi87ymJx/QCz4j4TdcmED4sAKxNPqYqj + 4vaSA+UQ+ZR8S06R02RF2OsXt7adJBGEe6ccII+Tu0ocl+f6GMXeMjloNpOd3D0BACWxjQAAAAAAAAAA + AAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAA + AAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAA + ACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQD+fztySAAADANBbP5NdwZewIGAkAAA + AAAAAAAAUDITAAAAAAAAAACgZCYAAAAAAAAAAEDJTAAAAAAAAAAAgJKZAAAAAAAAAAAAJTMBAAAAAAAA + AABKZgIAAAAAAAAAAJTMBAAAAAAAAAAAKJkJAAAAAAAAAABQMhMAAAAAAAAAAKBkJgAAAAAAAAAAQMe9 + D/nIDJsB8H0BAAAAAElFTkSuQmCCCw== + + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.vb new file mode 100644 index 00000000..76ff1a1b --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.vb @@ -0,0 +1,8 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptLaufzettelZollDE + Private Sub rptVerpflichtungserklaerung_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + + End Sub +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb new file mode 100644 index 00000000..9aad7931 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb @@ -0,0 +1,151 @@ + +Partial Public Class subRptLaufzettelZollDE_ATA + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptLaufzettelZollDE_ATA)) + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.picBarcodeATAMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3}) + Me.Detail.Height = 0.4483269! + Me.Detail.Name = "Detail" + ' + 'picBarcodeATAMRN + ' + Me.picBarcodeATAMRN.Height = 0.2188976! + Me.picBarcodeATAMRN.HyperLink = Nothing + Me.picBarcodeATAMRN.ImageData = Nothing + Me.picBarcodeATAMRN.Left = 0! + Me.picBarcodeATAMRN.Name = "picBarcodeATAMRN" + Me.picBarcodeATAMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft + Me.picBarcodeATAMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picBarcodeATAMRN.Top = 0! + Me.picBarcodeATAMRN.Visible = False + Me.picBarcodeATAMRN.Width = 3.561024! + ' + 'txtATAMRN + ' + Me.txtATAMRN.Height = 0.1669292! + Me.txtATAMRN.Left = 0! + Me.txtATAMRN.Name = "txtATAMRN" + Me.txtATAMRN.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.txtATAMRN.Text = "ATC:" + Me.txtATAMRN.Top = 0.2188977! + Me.txtATAMRN.Width = 2.167323! + ' + 'txtColli + ' + Me.txtColli.Height = 0.1669291! + Me.txtColli.Left = 3.755906! + Me.txtColli.Name = "txtColli" + Me.txtColli.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.txtColli.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: right; vertica" & + "l-align: bottom; ddo-char-set: 1" + Me.txtColli.Text = Nothing + Me.txtColli.Top = 0.05196851! + Me.txtColli.Width = 0.4437006! + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Height = 0! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Height = 0! + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'TextBox1 + ' + Me.TextBox1.Height = 0.1669292! + Me.TextBox1.Left = 3.561024! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1" + Me.TextBox1.Text = "Colli:" + Me.TextBox1.Top = 0.05196851! + Me.TextBox1.Width = 0.2645671! + ' + 'txtGewicht + ' + Me.txtGewicht.Height = 0.1669291! + Me.txtGewicht.Left = 4.420079! + Me.txtGewicht.Name = "txtGewicht" + Me.txtGewicht.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: right; vertica" & + "l-align: bottom; ddo-char-set: 1" + Me.txtGewicht.Text = Nothing + Me.txtGewicht.Top = 0.05196851! + Me.txtGewicht.Width = 0.8082676! + ' + 'TextBox3 + ' + Me.TextBox3.Height = 0.1669292! + Me.TextBox3.Left = 4.199603! + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1" + Me.TextBox3.Text = "Gewicht:" + Me.TextBox3.Top = 0.05196851! + Me.TextBox3.Width = 0.406693! + ' + 'subRptLaufzettelZollDE_ATA + ' + Me.MasterReport = False + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 5.275591! + Me.Sections.Add(Me.GroupHeader1) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Private WithEvents picBarcodeATAMRN As GrapeCity.ActiveReports.SectionReportModel.Picture + Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb new file mode 100644 index 00000000..b0de4416 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb @@ -0,0 +1,55 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class subRptLaufzettelZollDE_ATA + + Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) + + Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.ATA = ATA + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format + picBarcodeATAMRN.Visible = False + txtATAMRN.Text = "" + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then + Dim ATAMRN As String = Me.Fields.Item("ATA").Value + ATAMRN = ATAMRN.Replace(" ", "") + ATAMRN = ATAMRN.Replace("/", "") + ATAMRN = ATAMRN.Replace("-", "") + + txtATAMRN.Text = ATAMRN + If ATAMRN <> "" Then + Dim barcodeString = ATAMRN + If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7) + If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) + + Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20) + 'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone) + picBarcodeATAMRN.Image = barcodeATA + picBarcodeATAMRN.Visible = True + End If + + txtColli.Text = "" + txtGewicht.Text = "" + If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = Me.Fields.Item("Colli").Value & " Pk" + If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = Me.Fields.Item("Gewicht").Value & " kg" + + End If + End Sub + Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart + Dim dt As New DataTable + dt.Columns.Add("ATA", System.Type.GetType("System.String")) + dt.Columns.Add("Colli", System.Type.GetType("System.String")) + dt.Columns.Add("Gewicht", System.Type.GetType("System.String")) + For Each s In ATA + dt.Rows.Add({s.sndhdg_nr, s.sndhdg_colli, s.sndhdg_gewicht}) + Next + Me.DataSource = dt + End Sub + +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb index 1bb25202..8d45e2a8 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb @@ -52,6 +52,10 @@ Partial Class usrcntlGestellungsgarantie Me.Label9 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.txtZulassungsnummer2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtAnmerkung1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnmerkung2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnmerkung3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -111,7 +115,7 @@ Partial Class usrcntlGestellungsgarantie ' 'btn ' - Me.btn.BackgroundImage = Global.SDL.My.Resources.search + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Location = New System.Drawing.Point(937, 34) @@ -122,12 +126,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtEmail ' + Me.txtEmail._DateTimeOnly = False Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" Me.txtEmail._Prozent = False Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False Me.txtEmail._TimeOnly = False Me.txtEmail._value = Nothing Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True Me.txtEmail.ForeColor = System.Drawing.Color.Black Me.txtEmail.Location = New System.Drawing.Point(254, 136) Me.txtEmail.MaxLineLength = -1 @@ -139,12 +147,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtFax ' + Me.txtFax._DateTimeOnly = False Me.txtFax._numbersOnly = False + Me.txtFax._numbersOnlyKommastellen = "" Me.txtFax._Prozent = False Me.txtFax._ShortDateNew = False + Me.txtFax._ShortDateOnly = False Me.txtFax._TimeOnly = False Me.txtFax._value = Nothing Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True Me.txtFax.ForeColor = System.Drawing.Color.Black Me.txtFax.Location = New System.Drawing.Point(653, 117) Me.txtFax.MaxLineLength = -1 @@ -156,12 +168,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtTel ' + Me.txtTel._DateTimeOnly = False Me.txtTel._numbersOnly = False + Me.txtTel._numbersOnlyKommastellen = "" Me.txtTel._Prozent = False Me.txtTel._ShortDateNew = False + Me.txtTel._ShortDateOnly = False Me.txtTel._TimeOnly = False Me.txtTel._value = Nothing Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True Me.txtTel.ForeColor = System.Drawing.Color.Black Me.txtTel.Location = New System.Drawing.Point(254, 117) Me.txtTel.MaxLineLength = -1 @@ -173,12 +189,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtAnsprechpartner ' + Me.txtAnsprechpartner._DateTimeOnly = False Me.txtAnsprechpartner._numbersOnly = False + Me.txtAnsprechpartner._numbersOnlyKommastellen = "" Me.txtAnsprechpartner._Prozent = False Me.txtAnsprechpartner._ShortDateNew = False + Me.txtAnsprechpartner._ShortDateOnly = False Me.txtAnsprechpartner._TimeOnly = False Me.txtAnsprechpartner._value = Nothing Me.txtAnsprechpartner._Waehrung = False + Me.txtAnsprechpartner._WaehrungZeichen = True Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black Me.txtAnsprechpartner.Location = New System.Drawing.Point(254, 98) Me.txtAnsprechpartner.MaxLineLength = -1 @@ -190,12 +210,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtAdresse2 ' + Me.txtAdresse2._DateTimeOnly = False Me.txtAdresse2._numbersOnly = False + Me.txtAdresse2._numbersOnlyKommastellen = "" Me.txtAdresse2._Prozent = False Me.txtAdresse2._ShortDateNew = False + Me.txtAdresse2._ShortDateOnly = False Me.txtAdresse2._TimeOnly = False Me.txtAdresse2._value = Nothing Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True Me.txtAdresse2.ForeColor = System.Drawing.Color.Black Me.txtAdresse2.Location = New System.Drawing.Point(254, 72) Me.txtAdresse2.MaxLineLength = -1 @@ -207,12 +231,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtAdresse1 ' + Me.txtAdresse1._DateTimeOnly = False Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" Me.txtAdresse1._Prozent = False Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False Me.txtAdresse1._TimeOnly = False Me.txtAdresse1._value = Nothing Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True Me.txtAdresse1.ForeColor = System.Drawing.Color.Black Me.txtAdresse1.Location = New System.Drawing.Point(254, 53) Me.txtAdresse1.MaxLineLength = -1 @@ -224,12 +252,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtFirma ' + Me.txtFirma._DateTimeOnly = False Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" Me.txtFirma._Prozent = False Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False Me.txtFirma._TimeOnly = False Me.txtFirma._value = Nothing Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True Me.txtFirma.ForeColor = System.Drawing.Color.Black Me.txtFirma.Location = New System.Drawing.Point(254, 34) Me.txtFirma.MaxLineLength = -1 @@ -241,7 +273,7 @@ Partial Class usrcntlGestellungsgarantie ' 'pic ' - Me.pic.BackgroundImage = Global.SDL.My.Resources.pdf + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.pic.Cursor = System.Windows.Forms.Cursors.Hand Me.pic.Location = New System.Drawing.Point(5, 5) @@ -263,7 +295,7 @@ Partial Class usrcntlGestellungsgarantie 'btnDown ' Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDown.BackgroundImage = Global.SDL.My.Resources.pfeil_unten + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDown.Location = New System.Drawing.Point(976, 42) @@ -275,7 +307,7 @@ Partial Class usrcntlGestellungsgarantie 'btnUp ' Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnUp.BackgroundImage = Global.SDL.My.Resources.pfeil_oben + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUp.Location = New System.Drawing.Point(976, 22) @@ -287,7 +319,7 @@ Partial Class usrcntlGestellungsgarantie 'btnDel ' Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel.BackgroundImage = Global.SDL.My.Resources.del + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDel.Location = New System.Drawing.Point(976, -1) @@ -318,12 +350,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtBestimmungszollamt ' + Me.txtBestimmungszollamt._DateTimeOnly = False Me.txtBestimmungszollamt._numbersOnly = False + Me.txtBestimmungszollamt._numbersOnlyKommastellen = "" Me.txtBestimmungszollamt._Prozent = False Me.txtBestimmungszollamt._ShortDateNew = False + Me.txtBestimmungszollamt._ShortDateOnly = False Me.txtBestimmungszollamt._TimeOnly = False Me.txtBestimmungszollamt._value = Nothing Me.txtBestimmungszollamt._Waehrung = False + Me.txtBestimmungszollamt._WaehrungZeichen = True Me.txtBestimmungszollamt.ForeColor = System.Drawing.Color.Black Me.txtBestimmungszollamt.Location = New System.Drawing.Point(289, 190) Me.txtBestimmungszollamt.MaxLineLength = -1 @@ -345,12 +381,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtEORI ' + Me.txtEORI._DateTimeOnly = False Me.txtEORI._numbersOnly = False + Me.txtEORI._numbersOnlyKommastellen = "" Me.txtEORI._Prozent = False Me.txtEORI._ShortDateNew = False + Me.txtEORI._ShortDateOnly = False Me.txtEORI._TimeOnly = False Me.txtEORI._value = Nothing Me.txtEORI._Waehrung = False + Me.txtEORI._WaehrungZeichen = True Me.txtEORI.ForeColor = System.Drawing.Color.Black Me.txtEORI.Location = New System.Drawing.Point(653, 136) Me.txtEORI.MaxLineLength = -1 @@ -371,12 +411,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtZulassungsnummer1 ' + Me.txtZulassungsnummer1._DateTimeOnly = False Me.txtZulassungsnummer1._numbersOnly = False + Me.txtZulassungsnummer1._numbersOnlyKommastellen = "" Me.txtZulassungsnummer1._Prozent = False Me.txtZulassungsnummer1._ShortDateNew = False + Me.txtZulassungsnummer1._ShortDateOnly = False Me.txtZulassungsnummer1._TimeOnly = False Me.txtZulassungsnummer1._value = Nothing Me.txtZulassungsnummer1._Waehrung = False + Me.txtZulassungsnummer1._WaehrungZeichen = True Me.txtZulassungsnummer1.ForeColor = System.Drawing.Color.Black Me.txtZulassungsnummer1.Location = New System.Drawing.Point(292, 155) Me.txtZulassungsnummer1.MaxLineLength = -1 @@ -418,12 +462,16 @@ Partial Class usrcntlGestellungsgarantie ' 'txtZulassungsnummer2 ' + Me.txtZulassungsnummer2._DateTimeOnly = False Me.txtZulassungsnummer2._numbersOnly = False + Me.txtZulassungsnummer2._numbersOnlyKommastellen = "" Me.txtZulassungsnummer2._Prozent = False Me.txtZulassungsnummer2._ShortDateNew = False + Me.txtZulassungsnummer2._ShortDateOnly = False Me.txtZulassungsnummer2._TimeOnly = False Me.txtZulassungsnummer2._value = Nothing Me.txtZulassungsnummer2._Waehrung = False + Me.txtZulassungsnummer2._WaehrungZeichen = True Me.txtZulassungsnummer2.ForeColor = System.Drawing.Color.Black Me.txtZulassungsnummer2.Location = New System.Drawing.Point(442, 155) Me.txtZulassungsnummer2.MaxLineLength = -1 @@ -433,12 +481,89 @@ Partial Class usrcntlGestellungsgarantie Me.txtZulassungsnummer2.Size = New System.Drawing.Size(122, 20) Me.txtZulassungsnummer2.TabIndex = 26 ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(160, 219) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(64, 13) + Me.Label11.TabIndex = 33 + Me.Label11.Text = "Anmerkung:" + ' + 'txtAnmerkung1 + ' + Me.txtAnmerkung1._DateTimeOnly = False + Me.txtAnmerkung1._numbersOnly = False + Me.txtAnmerkung1._numbersOnlyKommastellen = "" + Me.txtAnmerkung1._Prozent = False + Me.txtAnmerkung1._ShortDateNew = False + Me.txtAnmerkung1._ShortDateOnly = False + Me.txtAnmerkung1._TimeOnly = False + Me.txtAnmerkung1._value = Nothing + Me.txtAnmerkung1._Waehrung = False + Me.txtAnmerkung1._WaehrungZeichen = True + Me.txtAnmerkung1.ForeColor = System.Drawing.Color.Black + Me.txtAnmerkung1.Location = New System.Drawing.Point(254, 216) + Me.txtAnmerkung1.MaxLineLength = -1 + Me.txtAnmerkung1.MaxLines_Warning = "" + Me.txtAnmerkung1.MaxLines_Warning_Label = Nothing + Me.txtAnmerkung1.Name = "txtAnmerkung1" + Me.txtAnmerkung1.Size = New System.Drawing.Size(709, 20) + Me.txtAnmerkung1.TabIndex = 34 + ' + 'txtAnmerkung2 + ' + Me.txtAnmerkung2._DateTimeOnly = False + Me.txtAnmerkung2._numbersOnly = False + Me.txtAnmerkung2._numbersOnlyKommastellen = "" + Me.txtAnmerkung2._Prozent = False + Me.txtAnmerkung2._ShortDateNew = False + Me.txtAnmerkung2._ShortDateOnly = False + Me.txtAnmerkung2._TimeOnly = False + Me.txtAnmerkung2._value = Nothing + Me.txtAnmerkung2._Waehrung = False + Me.txtAnmerkung2._WaehrungZeichen = True + Me.txtAnmerkung2.ForeColor = System.Drawing.Color.Black + Me.txtAnmerkung2.Location = New System.Drawing.Point(254, 235) + Me.txtAnmerkung2.MaxLineLength = -1 + Me.txtAnmerkung2.MaxLines_Warning = "" + Me.txtAnmerkung2.MaxLines_Warning_Label = Nothing + Me.txtAnmerkung2.Name = "txtAnmerkung2" + Me.txtAnmerkung2.Size = New System.Drawing.Size(709, 20) + Me.txtAnmerkung2.TabIndex = 35 + ' + 'txtAnmerkung3 + ' + Me.txtAnmerkung3._DateTimeOnly = False + Me.txtAnmerkung3._numbersOnly = False + Me.txtAnmerkung3._numbersOnlyKommastellen = "" + Me.txtAnmerkung3._Prozent = False + Me.txtAnmerkung3._ShortDateNew = False + Me.txtAnmerkung3._ShortDateOnly = False + Me.txtAnmerkung3._TimeOnly = False + Me.txtAnmerkung3._value = Nothing + Me.txtAnmerkung3._Waehrung = False + Me.txtAnmerkung3._WaehrungZeichen = True + Me.txtAnmerkung3.ForeColor = System.Drawing.Color.Black + Me.txtAnmerkung3.Location = New System.Drawing.Point(254, 254) + Me.txtAnmerkung3.MaxLineLength = -1 + Me.txtAnmerkung3.MaxLines_Warning = "" + Me.txtAnmerkung3.MaxLines_Warning_Label = Nothing + Me.txtAnmerkung3.Name = "txtAnmerkung3" + Me.txtAnmerkung3.Size = New System.Drawing.Size(709, 20) + Me.txtAnmerkung3.TabIndex = 36 + ' 'usrcntlGestellungsgarantie ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.txtAnmerkung3) + Me.Controls.Add(Me.txtAnmerkung2) + Me.Controls.Add(Me.txtAnmerkung1) + Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.txtZulassungsnummer2) Me.Controls.Add(Me.Label9) @@ -470,7 +595,7 @@ Partial Class usrcntlGestellungsgarantie Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.lbl) Me.Name = "usrcntlGestellungsgarantie" - Me.Size = New System.Drawing.Size(1000, 225) + Me.Size = New System.Drawing.Size(1000, 276) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -506,5 +631,8 @@ Partial Class usrcntlGestellungsgarantie Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents txtZulassungsnummer2 As VERAG_PROG_ALLGEMEIN.MyTextBox - + Friend WithEvents Label11 As Label + Friend WithEvents txtAnmerkung1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnmerkung2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnmerkung3 As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index f97a0ee0..6f295ea9 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -399,7 +399,7 @@ Case "HANDLING" ' DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 - DataGridView.Rows.Add(cnt, "345", "Handing/eigene Anmeldung", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "345", "Handing/eigene Anmeldung", CDbl(30).ToString("C2")) : cnt += 1 dgvZusatzleistung.Rows.Add("", "345", "Avisogebühr (nur wenn LKW nicht voravisiert)", CDbl(15).ToString("C2")) cboFirma.changeItem("AG") diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index d807305c..12a72526 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1271,7 +1271,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) Dim top = 0 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then @@ -1314,7 +1314,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxEinmaligeVollmacht.Checked Then @@ -1377,16 +1377,16 @@ Public Class FormularManagerNEU Return "" End Function - Shared Function DispSendungslisteoListe(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String + Shared Function DispSendungslisteoListe(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "") If AVISO Is Nothing Then Return "" Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return "" - Return DispSendungslisteoListe(AVISO, SENDUNG_LIST) + Return DispSendungslisteoListe(AVISO, SENDUNG_LIST,,, RechnugnAn) End Function - Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String + Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String ' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim tmpPath = "" Try @@ -1452,6 +1452,12 @@ Public Class FormularManagerNEU 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg End Select + Select Case RechnugnAn + Case "AVISERER" : rpt.TextBox32.Text = "Avisierer (*):" + Case "FRACHTF" : rpt.TextBox32.Text = "Frächter (*):" + Case "AUFTR" : rpt.TextBox32.Text = "Avisierer (*):" + + End Select Dim tb As New DataTable tb.Columns.Add("Nr", GetType(Integer)) @@ -1554,7 +1560,7 @@ Public Class FormularManagerNEU If SND.ABRECHNUNG IsNot Nothing Then For Each a In SND.ABRECHNUNG - If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "AVISIERER" Then + If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = RechnugnAn Then '"AVISIERER" Then rpt.txtAbrechnung.Text = "X" End If @@ -1619,7 +1625,244 @@ Public Class FormularManagerNEU End Try Return tmpPath End Function + Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String + Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "") + If AVISO Is Nothing Then Return "" + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN + If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return "" + Return LaufzettelZollDE(AVISO, SENDUNG_LIST) + End Function + Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String + ' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Dim tmpPath = "" + Try + + Dim rpt As New rptLaufzettelZollDE + + + rpt.txtLKW.Text = AVISO.LKW_Nr + rpt.txtLKWId.Text = AVISO.AvisoID + + + If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then + rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS") + Else + Select Case AVISO.Grenzstelle + Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN" + Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS" + Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL" + Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD" + Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "") + End Select + End If + + rpt.txtDatum.Text = Now.ToShortDateString + rpt.txtSB.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + + Dim ort = "Suben" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmaInfo_IMEX.Visible = True + rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple + + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + ' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter + Case "ATILLA" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmaInfo_ATILLA.Visible = True + rpt.picVERAG.Image = My.Resources.Atilla + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + ' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter + 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg + Case Else + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Case "SBG" : ort = "Bad Reichenhall" + Case "WAI" : ort = "Waidhaus" + Case "NKD" : ort = "Nickelsdorf" + End Select + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg + End Select + + + rpt.txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl + rpt.txtEmail.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email + + + + Dim tb As New DataTable + tb.Columns.Add("Nr", GetType(Integer)) + ' tb.Columns.Add("Nr", GetType(String)) + ' tb.Columns.Add("PosNr", GetType(String)) + ' tb.Columns.Add("AbfArt", GetType(String)) + Dim cnt = 1 + + Dim gesColli As Double = 0 + Dim gesGewicht As Double = 0 + + For Each s In SENDUNGEN + 'Ä tb.Rows.Add(cnt, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID) + tb.Rows.Add(SENDUNGEN.IndexOf(s)) + If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli + If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht + cnt += 1 + Next + + Try + rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk" + rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg" + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + + 'MsgBox(tb.Rows.Count) + + rpt.DataSource = tb + Dim fiskal_bool = False + + AddHandler rpt.Detail.Format, Sub() + Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value) + rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1 + + + If SND.tblSnd_Fremdspedition Then + rpt.txtAbfertigungsart.Text = "FREMD" + rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText + Else + rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-") + + If SND.tblSnd_Abfertigungsart_ID > 0 Then + Select Case SND.tblSnd_Abfertigungsart_ID + Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung" + Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr." + Case 26, 28 + rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) + fiskal_bool = True + Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) + End Select + Else + rpt.txtAbfertigungsart.Text = "-" + End If + End If + + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer + End Select + + rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-") + ' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim + rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim + rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim + + Dim NCTS_VZAdr = "" + NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "") + NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "") + NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "") + NCTS_VZAdr &= vbNewLine + If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " " + ' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "") + + + rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim + + Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) + Dim ATAMRN = "" + SND.LOAD_HANDLING() + + If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then + If SND.HANDLING.Count > 0 Then + ATAMRN_List = SND.HANDLING + + ' Else + ' ATAMRN = SND.tblSnd_ATANr + ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) + ' End If + 'Else + ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) + ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) + End If + End If + + If ATAMRN_List.Count = 0 Then + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) + + Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0)) + Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0)) + + ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht)) + End If + + + + + Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List) + rpt.SubReport.Report = SubRpt + + + rpt.txtAnmerkung.Visible = False + + 'If ATAMRN_List.Count = 0 Then + + ' rpt.txtAnmerkung.Text = "" + ' Dim colliGewicht = "" + ' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; " + ' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg" + ' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim + ' rpt.txtAnmerkung.Visible = True + 'Else + ' rpt.txtAnmerkung.Visible = False + 'End If + + End Sub + + + + AddHandler rpt.Detail.BeforePrint, Sub() + rpt.Shape8.Height = rpt.Detail.Height + rpt.Shape10.Height = rpt.Detail.Height + rpt.Shape11.Height = rpt.Detail.Height + End Sub + + If printReportElsePDF Then 'NUR DRUCK!! + rpt.Run(False) + + rpt.Document.Printer.PrinterName = printername + rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0) + rpt.Document.Printer.OriginAtMargins = False + + rpt.Document.Print((printername = ""), False) + rpt.Dispose() + Else + + + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + rpt.Dispose() + + End If + + + + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) + End Try + Return tmpPath + End Function Shared Function DispoListe(usrCntl As usrCntlDispoliste) As String Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing @@ -2049,7 +2292,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxEinmaligeVollmacht.Checked Then listTowrite = addEinmaligeVM(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True) @@ -2092,7 +2335,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) @@ -2134,7 +2377,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxEinmaligeVollmacht.Checked Then listTowrite = addEinmaligeVM(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True) @@ -2182,7 +2425,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) 'If usrCntl.cbxEinmaligeVollmacht.Checked Then 'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) @@ -2219,7 +2462,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) 'If usrCntl.cbxEinmaligeVollmacht.Checked Then 'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) @@ -2270,7 +2513,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) @@ -2374,7 +2617,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) @@ -2441,21 +2684,32 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - Select Case usrCntl.cboSprache._value Case "EN" + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite) Case "FR" + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite) Case Else + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite) End Select diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 0b00c30f..d34f4ddf 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -678,6 +678,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property ghjj56fghfgfgh5fh() As String + Get + Return ResourceManager.GetString("ghjj56fghfgfgh5fh", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2022,7 +2031,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.4 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.5 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 423ecfea..fa554e39 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -713,7 +713,7 @@ ..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 1.1.2.4 + 1.1.2.5 ..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -745,4 +745,7 @@ ..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + \ No newline at end of file diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 148d8500..8d810288 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -726,6 +726,12 @@ Form + + rptLaufzettelZollDE.vb + + + Component + rptDispoHaftListe.vb @@ -762,6 +768,12 @@ Component + + subRptLaufzettelZollDE_ATA.vb + + + Component + usrCntlSA_GestellungElemente.vb @@ -1290,6 +1302,12 @@ UserControl + + usrCntlKundenuebersicht.vb + + + UserControl + frmVorauskasse.vb @@ -2472,6 +2490,9 @@ frmVorauskasse_ZollBerechnen.vb + + rptLaufzettelZollDE.vb + rptDispoHaftListe.vb @@ -2490,6 +2511,9 @@ rptVerpflichtungserklaerung.vb + + subRptLaufzettelZollDE_ATA.vb + usrCntlSA_GestellungElemente.vb @@ -2754,6 +2778,9 @@ usrCntlKundenKontakte.vb + + usrCntlKundenuebersicht.vb + frmVorauskasse.vb diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 124c2c44..d74747fe 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -764,7 +764,7 @@ Public Class frmBelegNeu Dim JournalNr = 0 If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr) Then KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1) - MsgBox(BELEG, "Programmfehler bei Eintrag ins Kassenbuch.") + MsgBox("Programmfehler bei Eintrag ins Kassenbuch.") Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub End If @@ -774,7 +774,7 @@ Public Class frmBelegNeu If KASSE.rksv_aktiv Then ' WENN für die Kasse die RKSV gilt Dim answer = "" - If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service + If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service If Not TESTBUCHUNG Then KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO)) cRKSV.DELETE(BELEG) diff --git a/SDL/kassenbuch/frmFremdbeleg.vb b/SDL/kassenbuch/frmFremdbeleg.vb index acab3bf6..76cacdcc 100644 --- a/SDL/kassenbuch/frmFremdbeleg.vb +++ b/SDL/kassenbuch/frmFremdbeleg.vb @@ -219,7 +219,7 @@ Public Class frmFremdbeleg Dim answer = "" If KASSE.rksv_aktiv Then - If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service + If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service If Not TESTBUCHUNG Then KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG.rksv_umsatz * -1) cRKSV.DELETE(BELEG) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index b0747dde..3f8f07da 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -334,7 +334,7 @@ Public Class frmNacherfassungLeihgeld If KASSE.rksv_aktiv Then ' WENN für die Kasse die RKSV gilt Dim answer = "" - If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service + If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service If Not TESTBUCHUNG Then KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1) cRKSV.DELETE(BELEG) diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index 25c46a87..31a7f616 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb @@ -30,180 +30,12 @@ Partial Class frmKundenUebersichtZOLL Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUebersichtZOLL)) - 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 DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Me.lblEmail2 = New System.Windows.Forms.TextBox() - Me.lblEmail = New System.Windows.Forms.TextBox() - Me.lblMobil = New System.Windows.Forms.TextBox() - Me.lblFax = New System.Windows.Forms.TextBox() - Me.lblTel = New System.Windows.Forms.TextBox() - Me.lblUid = New System.Windows.Forms.TextBox() - Me.lblPostfach = New System.Windows.Forms.TextBox() - Me.lblLandPlzOrt = New System.Windows.Forms.TextBox() - Me.lblStrasse = New System.Windows.Forms.TextBox() - Me.lblFirmenname2 = New System.Windows.Forms.TextBox() - Me.lblFirmenname1 = New System.Windows.Forms.TextBox() - Me.PictureBox4 = New System.Windows.Forms.PictureBox() - Me.PictureBox3 = New System.Windows.Forms.PictureBox() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.grpAbfertigung = New System.Windows.Forms.GroupBox() - Me.Label45 = New System.Windows.Forms.Label() - Me.txtSammelrechnung = New System.Windows.Forms.TextBox() - Me.Label12 = New System.Windows.Forms.Label() - Me.txtVorauskasse = New System.Windows.Forms.TextBox() - Me.Label42 = New System.Windows.Forms.Label() - Me.pnlVERAGSnspr = New System.Windows.Forms.Panel() - Me.txtKundenbetreuerTeam = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnVeragAnspr = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtKundenbetreuerVertretung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label34 = New System.Windows.Forms.Label() - Me.txtKundenbetreuer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnPunkt2Save = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.Button7 = New System.Windows.Forms.Button() - Me.Button6 = New System.Windows.Forms.Button() - Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() - Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label33 = New System.Windows.Forms.Label() - Me.txtOPFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label32 = New System.Windows.Forms.Label() - Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label29 = New System.Windows.Forms.Label() - Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label28 = New System.Windows.Forms.Label() - Me.cbxFiskalabfertigung = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) - Me.lblFisk = New System.Windows.Forms.Label() - Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.lblAviso = New System.Windows.Forms.TextBox() - Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label2 = New System.Windows.Forms.Label() - Me.Label41 = New System.Windows.Forms.Label() - Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.lblNeutralisierung = New System.Windows.Forms.TextBox() - Me.Label37 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.lblNoGespr = New System.Windows.Forms.Label() - Me.lklGanzerText = New System.Windows.Forms.LinkLabel() - Me.Panel4 = New System.Windows.Forms.Panel() - Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.Label68 = New System.Windows.Forms.Label() - Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label69 = New System.Windows.Forms.Label() - Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblBonitaetRisikostufe = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label39 = New System.Windows.Forms.Label() - Me.Label46 = New System.Windows.Forms.Label() - Me.pnlAnh = New System.Windows.Forms.Panel() - Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.dgvAnhaenge = New System.Windows.Forms.DataGridView() - Me.btnAddAttach = New System.Windows.Forms.Button() - Me.Panel3 = New System.Windows.Forms.Panel() - Me.FlatButton8 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton7 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.Label67 = New System.Windows.Forms.Label() - Me.lblSteuernummer = New System.Windows.Forms.TextBox() - Me.lblAnsprechpartner = New System.Windows.Forms.TextBox() - Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() - Me.lblTESTSystem = New System.Windows.Forms.Label() Me.tabZolltarife = New System.Windows.Forms.TabPage() Me.pnlZollTarife = New System.Windows.Forms.Panel() Me.tabKundendaten = New System.Windows.Forms.TabPage() - Me.btnExcel = New System.Windows.Forms.Button() - Me.lblInaktiv = New System.Windows.Forms.Label() - Me.Label30 = New System.Windows.Forms.Label() - Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.tbWeitereKundenDetails = New System.Windows.Forms.TabControl() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.dgvOfferteDetailsUebersicht = New System.Windows.Forms.DataGridView() - Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView() - Me.lblKeineSperren = New System.Windows.Forms.Label() - Me.pnlSperre = New System.Windows.Forms.Panel() - Me.FlatButton5 = New System.Windows.Forms.Button() - Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxSperreSetzen = New System.Windows.Forms.CheckBox() - Me.Label36 = New System.Windows.Forms.Label() - Me.tbOffenePosten = New System.Windows.Forms.TabPage() - Me.pnl = New System.Windows.Forms.Panel() - Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label44 = New System.Windows.Forms.Label() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.dgvUmsatzbericht = New System.Windows.Forms.DataGridView() - Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.lblKdNr = New System.Windows.Forms.TextBox() - Me.Label13 = New System.Windows.Forms.Label() - Me.grpAdresse = New System.Windows.Forms.GroupBox() - Me.tbKontakt = New System.Windows.Forms.TabControl() - Me.TabPage10 = New System.Windows.Forms.TabPage() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.TabPage11 = New System.Windows.Forms.TabPage() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() - Me.Label38 = New System.Windows.Forms.Label() - Me.txtDebitorennr = New System.Windows.Forms.TextBox() - Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel() - Me.lblKorrAdresse = New System.Windows.Forms.LinkLabel() - Me.grpSonstiges = New System.Windows.Forms.GroupBox() - Me.Button4 = New System.Windows.Forms.Button() - Me.Button5 = New System.Windows.Forms.Button() - Me.Button3 = New System.Windows.Forms.Button() - Me.Button1 = New System.Windows.Forms.Button() - Me.tbcntrAllg = New System.Windows.Forms.TabControl() - Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.dgvVollmachten = New System.Windows.Forms.DataGridView() - Me.TabPage9 = New System.Windows.Forms.TabPage() - Me.dgvGestGarantie = New System.Windows.Forms.DataGridView() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.cbxGG = New System.Windows.Forms.CheckBox() - Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.Label11 = New System.Windows.Forms.Label() - Me.Button8 = New System.Windows.Forms.Button() - Me.Button9 = New System.Windows.Forms.Button() - Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.Label43 = New System.Windows.Forms.Label() - Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox() - Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() - Me.Label31 = New System.Windows.Forms.Label() - Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.txtFixeKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.Label6 = New System.Windows.Forms.Label() - Me.lblAufZoll = New System.Windows.Forms.TextBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.lblAufEust = New System.Windows.Forms.TextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.lblZnv = New System.Windows.Forms.TextBox() - Me.Label7 = New System.Windows.Forms.Label() - Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.Label4 = New System.Windows.Forms.Label() - Me.lblEORI = New System.Windows.Forms.TextBox() - Me.Label5 = New System.Windows.Forms.Label() - Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl() @@ -291,6 +123,7 @@ Partial Class frmKundenUebersichtZOLL Me.AufschubEORIBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.pnlTop = New System.Windows.Forms.Panel() + Me.lblTESTSystem = New System.Windows.Forms.Label() Me.pic = New System.Windows.Forms.PictureBox() Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.lblAbfertigungsverbot = New System.Windows.Forms.Label() @@ -304,46 +137,9 @@ Partial Class frmKundenUebersichtZOLL Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.grpAbfertigung.SuspendLayout() - Me.pnlVERAGSnspr.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() - Me.Panel4.SuspendLayout() - Me.pnlAnh.SuspendLayout() - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() - Me.Panel3.SuspendLayout() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit() Me.tabZolltarife.SuspendLayout() Me.tabKundendaten.SuspendLayout() - Me.tbWeitereKundenDetails.SuspendLayout() - Me.TabPage4.SuspendLayout() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit() - Me.pnlSperre.SuspendLayout() - Me.tbOffenePosten.SuspendLayout() - Me.pnl.SuspendLayout() - Me.TabPage3.SuspendLayout() - CType(Me.dgvUmsatzbericht, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage8.SuspendLayout() - Me.grpAdresse.SuspendLayout() - Me.tbKontakt.SuspendLayout() - Me.TabPage10.SuspendLayout() - Me.TabPage11.SuspendLayout() - Me.grpSonstiges.SuspendLayout() - Me.tbcntrAllg.SuspendLayout() - Me.TabPage5.SuspendLayout() - CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage9.SuspendLayout() - CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).BeginInit() - Me.Panel2.SuspendLayout() - Me.TabPage6.SuspendLayout() - Me.TabPage7.SuspendLayout() - Me.TabPage2.SuspendLayout() - CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip2.SuspendLayout() Me.tbcntrKundenDaten.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -367,744 +163,6 @@ Partial Class frmKundenUebersichtZOLL Me.ContextMenuStrip3.SuspendLayout() Me.SuspendLayout() ' - 'lblEmail2 - ' - Me.lblEmail2.BackColor = System.Drawing.Color.White - Me.lblEmail2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblEmail2.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblEmail2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEmail2.Location = New System.Drawing.Point(38, 107) - Me.lblEmail2.Name = "lblEmail2" - Me.lblEmail2.ReadOnly = True - Me.lblEmail2.Size = New System.Drawing.Size(452, 19) - Me.lblEmail2.TabIndex = 16 - Me.lblEmail2.Text = "email2" - ' - 'lblEmail - ' - Me.lblEmail.BackColor = System.Drawing.Color.White - Me.lblEmail.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblEmail.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEmail.Location = New System.Drawing.Point(38, 84) - Me.lblEmail.Name = "lblEmail" - Me.lblEmail.ReadOnly = True - Me.lblEmail.Size = New System.Drawing.Size(452, 19) - Me.lblEmail.TabIndex = 13 - Me.lblEmail.Text = "email" - ' - 'lblMobil - ' - Me.lblMobil.BackColor = System.Drawing.Color.White - Me.lblMobil.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblMobil.Location = New System.Drawing.Point(38, 53) - Me.lblMobil.Name = "lblMobil" - Me.lblMobil.ReadOnly = True - Me.lblMobil.Size = New System.Drawing.Size(452, 19) - Me.lblMobil.TabIndex = 11 - Me.lblMobil.Text = "mobil" - ' - 'lblFax - ' - Me.lblFax.BackColor = System.Drawing.Color.White - Me.lblFax.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFax.Location = New System.Drawing.Point(38, 30) - Me.lblFax.Name = "lblFax" - Me.lblFax.ReadOnly = True - Me.lblFax.Size = New System.Drawing.Size(452, 19) - Me.lblFax.TabIndex = 10 - Me.lblFax.Text = "fax" - ' - 'lblTel - ' - Me.lblTel.BackColor = System.Drawing.Color.White - Me.lblTel.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblTel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblTel.Location = New System.Drawing.Point(38, 6) - Me.lblTel.Name = "lblTel" - Me.lblTel.ReadOnly = True - Me.lblTel.Size = New System.Drawing.Size(452, 19) - Me.lblTel.TabIndex = 9 - Me.lblTel.Text = "tel" - ' - 'lblUid - ' - Me.lblUid.BackColor = System.Drawing.Color.White - Me.lblUid.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblUid.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblUid.Location = New System.Drawing.Point(80, 17) - Me.lblUid.Name = "lblUid" - Me.lblUid.ReadOnly = True - Me.lblUid.Size = New System.Drawing.Size(322, 16) - Me.lblUid.TabIndex = 8 - Me.lblUid.Text = "DE 000000000 , geprüft am: 01.01.2000" - ' - 'lblPostfach - ' - Me.lblPostfach.BackColor = System.Drawing.Color.White - Me.lblPostfach.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblPostfach.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblPostfach.Location = New System.Drawing.Point(6, 124) - Me.lblPostfach.Name = "lblPostfach" - Me.lblPostfach.ReadOnly = True - Me.lblPostfach.Size = New System.Drawing.Size(491, 19) - Me.lblPostfach.TabIndex = 6 - Me.lblPostfach.Text = "Postfach" - ' - 'lblLandPlzOrt - ' - Me.lblLandPlzOrt.BackColor = System.Drawing.Color.White - Me.lblLandPlzOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblLandPlzOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblLandPlzOrt.Location = New System.Drawing.Point(6, 99) - Me.lblLandPlzOrt.Name = "lblLandPlzOrt" - Me.lblLandPlzOrt.ReadOnly = True - Me.lblLandPlzOrt.Size = New System.Drawing.Size(491, 19) - Me.lblLandPlzOrt.TabIndex = 5 - Me.lblLandPlzOrt.Text = "Land - Plz Ort" - ' - 'lblStrasse - ' - Me.lblStrasse.BackColor = System.Drawing.Color.White - Me.lblStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblStrasse.Location = New System.Drawing.Point(6, 77) - Me.lblStrasse.Name = "lblStrasse" - Me.lblStrasse.ReadOnly = True - Me.lblStrasse.Size = New System.Drawing.Size(491, 19) - Me.lblStrasse.TabIndex = 4 - Me.lblStrasse.Text = "Strasse" - ' - 'lblFirmenname2 - ' - Me.lblFirmenname2.BackColor = System.Drawing.Color.White - Me.lblFirmenname2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblFirmenname2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirmenname2.Location = New System.Drawing.Point(6, 37) - Me.lblFirmenname2.Name = "lblFirmenname2" - Me.lblFirmenname2.ReadOnly = True - Me.lblFirmenname2.Size = New System.Drawing.Size(491, 19) - Me.lblFirmenname2.TabIndex = 3 - Me.lblFirmenname2.Text = "Name2" - ' - 'lblFirmenname1 - ' - Me.lblFirmenname1.BackColor = System.Drawing.Color.White - Me.lblFirmenname1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblFirmenname1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirmenname1.Location = New System.Drawing.Point(6, 19) - Me.lblFirmenname1.Name = "lblFirmenname1" - Me.lblFirmenname1.ReadOnly = True - Me.lblFirmenname1.Size = New System.Drawing.Size(491, 19) - Me.lblFirmenname1.TabIndex = 2 - Me.lblFirmenname1.Text = "Name1" - ' - 'PictureBox4 - ' - Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.email - Me.PictureBox4.Location = New System.Drawing.Point(6, 84) - Me.PictureBox4.Name = "PictureBox4" - Me.PictureBox4.Size = New System.Drawing.Size(22, 18) - Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox4.TabIndex = 176 - Me.PictureBox4.TabStop = False - ' - 'PictureBox3 - ' - Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.handy - Me.PictureBox3.Location = New System.Drawing.Point(3, 54) - Me.PictureBox3.Name = "PictureBox3" - Me.PictureBox3.Size = New System.Drawing.Size(25, 18) - Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox3.TabIndex = 173 - Me.PictureBox3.TabStop = False - ' - 'PictureBox2 - ' - Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax - Me.PictureBox2.Location = New System.Drawing.Point(3, 30) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(25, 18) - Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox2.TabIndex = 174 - Me.PictureBox2.TabStop = False - ' - 'PictureBox1 - ' - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon - Me.PictureBox1.Location = New System.Drawing.Point(3, 6) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(25, 18) - Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox1.TabIndex = 175 - Me.PictureBox1.TabStop = False - ' - 'grpAbfertigung - ' - Me.grpAbfertigung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.grpAbfertigung.Controls.Add(Me.Label45) - Me.grpAbfertigung.Controls.Add(Me.txtSammelrechnung) - Me.grpAbfertigung.Controls.Add(Me.Label12) - Me.grpAbfertigung.Controls.Add(Me.txtVorauskasse) - Me.grpAbfertigung.Controls.Add(Me.Label42) - Me.grpAbfertigung.Controls.Add(Me.pnlVERAGSnspr) - Me.grpAbfertigung.Controls.Add(Me.btnPunkt2Save) - Me.grpAbfertigung.Controls.Add(Me.Button7) - Me.grpAbfertigung.Controls.Add(Me.Button6) - Me.grpAbfertigung.Controls.Add(Me.LinkLabel1) - Me.grpAbfertigung.Controls.Add(Me.txtZahlungsziel) - Me.grpAbfertigung.Controls.Add(Me.Label33) - Me.grpAbfertigung.Controls.Add(Me.txtOPFaellig) - Me.grpAbfertigung.Controls.Add(Me.Label32) - Me.grpAbfertigung.Controls.Add(Me.txtUmsatzJahr) - Me.grpAbfertigung.Controls.Add(Me.Label29) - Me.grpAbfertigung.Controls.Add(Me.txtOffenePosten) - Me.grpAbfertigung.Controls.Add(Me.Label28) - Me.grpAbfertigung.Controls.Add(Me.cbxFiskalabfertigung) - Me.grpAbfertigung.Controls.Add(Me.lblFisk) - Me.grpAbfertigung.Controls.Add(Me.lblKreditlimit) - Me.grpAbfertigung.Controls.Add(Me.Label1) - Me.grpAbfertigung.Controls.Add(Me.lblAviso) - Me.grpAbfertigung.Controls.Add(Me.txtAbf_ErsteAbfertigung) - Me.grpAbfertigung.Controls.Add(Me.Label2) - Me.grpAbfertigung.Controls.Add(Me.Label41) - Me.grpAbfertigung.Controls.Add(Me.rtbAbf_Besonderheiten) - Me.grpAbfertigung.Controls.Add(Me.lblNeutralisierung) - Me.grpAbfertigung.Controls.Add(Me.Label37) - Me.grpAbfertigung.Controls.Add(Me.Label3) - Me.grpAbfertigung.Controls.Add(Me.lblNoGespr) - Me.grpAbfertigung.Controls.Add(Me.lklGanzerText) - Me.grpAbfertigung.Controls.Add(Me.Panel4) - Me.grpAbfertigung.Cursor = System.Windows.Forms.Cursors.Default - Me.grpAbfertigung.Location = New System.Drawing.Point(506, 3) - Me.grpAbfertigung.Name = "grpAbfertigung" - Me.grpAbfertigung.Size = New System.Drawing.Size(670, 362) - Me.grpAbfertigung.TabIndex = 177 - Me.grpAbfertigung.TabStop = False - Me.grpAbfertigung.Text = "Abfertigung" - ' - 'Label45 - ' - Me.Label45.AutoSize = True - Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label45.Location = New System.Drawing.Point(99, 329) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(0, 13) - Me.Label45.TabIndex = 229 - ' - 'txtSammelrechnung - ' - Me.txtSammelrechnung.BackColor = System.Drawing.Color.White - Me.txtSammelrechnung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtSammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSammelrechnung.ForeColor = System.Drawing.Color.Black - Me.txtSammelrechnung.Location = New System.Drawing.Point(104, 267) - Me.txtSammelrechnung.Name = "txtSammelrechnung" - Me.txtSammelrechnung.ReadOnly = True - Me.txtSammelrechnung.Size = New System.Drawing.Size(115, 13) - Me.txtSammelrechnung.TabIndex = 228 - Me.txtSammelrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(7, 267) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(92, 13) - Me.Label12.TabIndex = 227 - Me.Label12.Text = "Sammelrechnung:" - ' - 'txtVorauskasse - ' - Me.txtVorauskasse.BackColor = System.Drawing.Color.White - Me.txtVorauskasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtVorauskasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtVorauskasse.ForeColor = System.Drawing.Color.Black - Me.txtVorauskasse.Location = New System.Drawing.Point(358, 267) - Me.txtVorauskasse.Name = "txtVorauskasse" - Me.txtVorauskasse.ReadOnly = True - Me.txtVorauskasse.Size = New System.Drawing.Size(127, 13) - Me.txtVorauskasse.TabIndex = 226 - Me.txtVorauskasse.Visible = False - ' - 'Label42 - ' - Me.Label42.AutoSize = True - Me.Label42.Location = New System.Drawing.Point(270, 267) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(71, 13) - Me.Label42.TabIndex = 225 - Me.Label42.Text = "Vorauskasse:" - Me.Label42.Visible = False - ' - 'pnlVERAGSnspr - ' - Me.pnlVERAGSnspr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.pnlVERAGSnspr.BackColor = System.Drawing.Color.WhiteSmoke - Me.pnlVERAGSnspr.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlVERAGSnspr.Controls.Add(Me.txtKundenbetreuerTeam) - Me.pnlVERAGSnspr.Controls.Add(Me.btnVeragAnspr) - Me.pnlVERAGSnspr.Controls.Add(Me.txtKundenbetreuerVertretung) - Me.pnlVERAGSnspr.Controls.Add(Me.Label34) - Me.pnlVERAGSnspr.Controls.Add(Me.txtKundenbetreuer) - Me.pnlVERAGSnspr.Location = New System.Drawing.Point(491, 266) - Me.pnlVERAGSnspr.Name = "pnlVERAGSnspr" - Me.pnlVERAGSnspr.Size = New System.Drawing.Size(178, 95) - Me.pnlVERAGSnspr.TabIndex = 224 - ' - 'txtKundenbetreuerTeam - ' - Me.txtKundenbetreuerTeam._DateTimeOnly = False - Me.txtKundenbetreuerTeam._numbersOnly = False - Me.txtKundenbetreuerTeam._numbersOnlyKommastellen = "" - Me.txtKundenbetreuerTeam._Prozent = False - Me.txtKundenbetreuerTeam._ShortDateNew = False - Me.txtKundenbetreuerTeam._ShortDateOnly = False - Me.txtKundenbetreuerTeam._TimeOnly = False - Me.txtKundenbetreuerTeam._value = "-" - Me.txtKundenbetreuerTeam._Waehrung = False - Me.txtKundenbetreuerTeam._WaehrungZeichen = True - Me.txtKundenbetreuerTeam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtKundenbetreuerTeam.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtKundenbetreuerTeam.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtKundenbetreuerTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKundenbetreuerTeam.ForeColor = System.Drawing.Color.Black - Me.txtKundenbetreuerTeam.Location = New System.Drawing.Point(6, 25) - Me.txtKundenbetreuerTeam.MaxLineLength = -1 - Me.txtKundenbetreuerTeam.MaxLines_Warning = "" - Me.txtKundenbetreuerTeam.MaxLines_Warning_Label = Nothing - Me.txtKundenbetreuerTeam.Name = "txtKundenbetreuerTeam" - Me.txtKundenbetreuerTeam.ReadOnly = True - Me.txtKundenbetreuerTeam.Size = New System.Drawing.Size(165, 13) - Me.txtKundenbetreuerTeam.TabIndex = 226 - Me.txtKundenbetreuerTeam.Text = "-" - ' - 'btnVeragAnspr - ' - Me.btnVeragAnspr.allowBorder = False - Me.btnVeragAnspr.BackgroundImage = Global.SDL.My.Resources.Resources.stift - Me.btnVeragAnspr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnVeragAnspr.FlatAppearance.BorderSize = 0 - Me.btnVeragAnspr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVeragAnspr.ForeColor = System.Drawing.Color.Black - Me.btnVeragAnspr.Location = New System.Drawing.Point(158, 7) - Me.btnVeragAnspr.Name = "btnVeragAnspr" - Me.btnVeragAnspr.Size = New System.Drawing.Size(15, 12) - Me.btnVeragAnspr.TabIndex = 225 - Me.btnVeragAnspr.UseVisualStyleBackColor = True - Me.btnVeragAnspr.Visible = False - ' - 'txtKundenbetreuerVertretung - ' - Me.txtKundenbetreuerVertretung._DateTimeOnly = False - Me.txtKundenbetreuerVertretung._numbersOnly = False - Me.txtKundenbetreuerVertretung._numbersOnlyKommastellen = "" - Me.txtKundenbetreuerVertretung._Prozent = False - Me.txtKundenbetreuerVertretung._ShortDateNew = False - Me.txtKundenbetreuerVertretung._ShortDateOnly = False - Me.txtKundenbetreuerVertretung._TimeOnly = False - Me.txtKundenbetreuerVertretung._value = "-" - Me.txtKundenbetreuerVertretung._Waehrung = False - Me.txtKundenbetreuerVertretung._WaehrungZeichen = True - Me.txtKundenbetreuerVertretung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtKundenbetreuerVertretung.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtKundenbetreuerVertretung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtKundenbetreuerVertretung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKundenbetreuerVertretung.ForeColor = System.Drawing.Color.Black - Me.txtKundenbetreuerVertretung.Location = New System.Drawing.Point(6, 63) - Me.txtKundenbetreuerVertretung.MaxLineLength = -1 - Me.txtKundenbetreuerVertretung.MaxLines_Warning = "" - Me.txtKundenbetreuerVertretung.MaxLines_Warning_Label = Nothing - Me.txtKundenbetreuerVertretung.Multiline = True - Me.txtKundenbetreuerVertretung.Name = "txtKundenbetreuerVertretung" - Me.txtKundenbetreuerVertretung.ReadOnly = True - Me.txtKundenbetreuerVertretung.Size = New System.Drawing.Size(165, 24) - Me.txtKundenbetreuerVertretung.TabIndex = 224 - Me.txtKundenbetreuerVertretung.Text = "-" - Me.txtKundenbetreuerVertretung.Visible = False - ' - 'Label34 - ' - Me.Label34.AutoSize = True - Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label34.Location = New System.Drawing.Point(3, 6) - Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(128, 13) - Me.Label34.TabIndex = 222 - Me.Label34.Text = "VERAG-Ansprechpartner:" - ' - 'txtKundenbetreuer - ' - Me.txtKundenbetreuer._DateTimeOnly = False - Me.txtKundenbetreuer._numbersOnly = False - Me.txtKundenbetreuer._numbersOnlyKommastellen = "" - Me.txtKundenbetreuer._Prozent = False - Me.txtKundenbetreuer._ShortDateNew = False - Me.txtKundenbetreuer._ShortDateOnly = False - Me.txtKundenbetreuer._TimeOnly = False - Me.txtKundenbetreuer._value = "-" - Me.txtKundenbetreuer._Waehrung = False - Me.txtKundenbetreuer._WaehrungZeichen = True - Me.txtKundenbetreuer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtKundenbetreuer.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtKundenbetreuer.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtKundenbetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKundenbetreuer.ForeColor = System.Drawing.Color.Black - Me.txtKundenbetreuer.Location = New System.Drawing.Point(6, 44) - Me.txtKundenbetreuer.MaxLineLength = -1 - Me.txtKundenbetreuer.MaxLines_Warning = "" - Me.txtKundenbetreuer.MaxLines_Warning_Label = Nothing - Me.txtKundenbetreuer.Name = "txtKundenbetreuer" - Me.txtKundenbetreuer.ReadOnly = True - Me.txtKundenbetreuer.Size = New System.Drawing.Size(165, 13) - Me.txtKundenbetreuer.TabIndex = 223 - Me.txtKundenbetreuer.Text = "-" - ' - 'btnPunkt2Save - ' - Me.btnPunkt2Save.allowBorder = False - Me.btnPunkt2Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnPunkt2Save.BackgroundImage = Global.SDL.My.Resources.Resources.save - Me.btnPunkt2Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnPunkt2Save.FlatAppearance.BorderSize = 0 - Me.btnPunkt2Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnPunkt2Save.ForeColor = System.Drawing.Color.Black - Me.btnPunkt2Save.Location = New System.Drawing.Point(645, 210) - Me.btnPunkt2Save.Name = "btnPunkt2Save" - Me.btnPunkt2Save.Size = New System.Drawing.Size(20, 20) - Me.btnPunkt2Save.TabIndex = 221 - Me.btnPunkt2Save.UseVisualStyleBackColor = True - Me.btnPunkt2Save.Visible = False - ' - 'Button7 - ' - Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button7.BackgroundImage = Global.SDL.My.Resources.Resources.picboxZoomOut_Enter1 - Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button7.FlatAppearance.BorderSize = 0 - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Location = New System.Drawing.Point(597, 9) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(35, 23) - Me.Button7.TabIndex = 220 - Me.Button7.UseVisualStyleBackColor = True - ' - 'Button6 - ' - Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button6.BackgroundImage = Global.SDL.My.Resources.Resources.picboxZoomIn_Enter1 - Me.Button6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.Button6.FlatAppearance.BorderSize = 0 - Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Location = New System.Drawing.Point(631, 9) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(35, 23) - Me.Button6.TabIndex = 212 - Me.Button6.UseVisualStyleBackColor = True - ' - 'LinkLabel1 - ' - Me.LinkLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.LinkLabel1.AutoSize = True - Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(200, Byte), Integer)) - Me.LinkLabel1.Location = New System.Drawing.Point(519, 16) - Me.LinkLabel1.Name = "LinkLabel1" - Me.LinkLabel1.Size = New System.Drawing.Size(71, 13) - Me.LinkLabel1.TabIndex = 219 - Me.LinkLabel1.TabStop = True - Me.LinkLabel1.Text = "Trennung ""/""" - ' - 'txtZahlungsziel - ' - Me.txtZahlungsziel._DateTimeOnly = False - Me.txtZahlungsziel._numbersOnly = False - Me.txtZahlungsziel._numbersOnlyKommastellen = "" - Me.txtZahlungsziel._Prozent = False - Me.txtZahlungsziel._ShortDateNew = False - Me.txtZahlungsziel._ShortDateOnly = False - Me.txtZahlungsziel._TimeOnly = False - Me.txtZahlungsziel._value = Nothing - Me.txtZahlungsziel._Waehrung = False - Me.txtZahlungsziel._WaehrungZeichen = True - Me.txtZahlungsziel.BackColor = System.Drawing.Color.White - Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black - Me.txtZahlungsziel.Location = New System.Drawing.Point(358, 311) - Me.txtZahlungsziel.MaxLineLength = -1 - Me.txtZahlungsziel.MaxLines_Warning = "" - Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing - Me.txtZahlungsziel.Name = "txtZahlungsziel" - Me.txtZahlungsziel.ReadOnly = True - Me.txtZahlungsziel.Size = New System.Drawing.Size(119, 13) - Me.txtZahlungsziel.TabIndex = 214 - Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label33 - ' - Me.Label33.AutoSize = True - Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label33.Location = New System.Drawing.Point(270, 311) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(69, 13) - Me.Label33.TabIndex = 213 - Me.Label33.Text = "Zahlungsziel:" - ' - 'txtOPFaellig - ' - Me.txtOPFaellig._DateTimeOnly = False - Me.txtOPFaellig._numbersOnly = False - Me.txtOPFaellig._numbersOnlyKommastellen = "" - Me.txtOPFaellig._Prozent = False - Me.txtOPFaellig._ShortDateNew = False - Me.txtOPFaellig._ShortDateOnly = False - Me.txtOPFaellig._TimeOnly = False - Me.txtOPFaellig._value = Nothing - Me.txtOPFaellig._Waehrung = False - Me.txtOPFaellig._WaehrungZeichen = True - Me.txtOPFaellig.BackColor = System.Drawing.Color.White - Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black - Me.txtOPFaellig.Location = New System.Drawing.Point(358, 293) - Me.txtOPFaellig.MaxLineLength = -1 - Me.txtOPFaellig.MaxLines_Warning = "" - Me.txtOPFaellig.MaxLines_Warning_Label = Nothing - Me.txtOPFaellig.Name = "txtOPFaellig" - Me.txtOPFaellig.ReadOnly = True - Me.txtOPFaellig.Size = New System.Drawing.Size(119, 13) - Me.txtOPFaellig.TabIndex = 212 - Me.txtOPFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label32 - ' - Me.Label32.AutoSize = True - Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label32.Location = New System.Drawing.Point(270, 293) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(93, 13) - Me.Label32.TabIndex = 211 - Me.Label32.Text = "OP fällig (nur Rg.):" - ' - 'txtUmsatzJahr - ' - Me.txtUmsatzJahr._DateTimeOnly = False - Me.txtUmsatzJahr._numbersOnly = False - Me.txtUmsatzJahr._numbersOnlyKommastellen = "" - Me.txtUmsatzJahr._Prozent = False - Me.txtUmsatzJahr._ShortDateNew = False - Me.txtUmsatzJahr._ShortDateOnly = False - Me.txtUmsatzJahr._TimeOnly = False - Me.txtUmsatzJahr._value = Nothing - Me.txtUmsatzJahr._Waehrung = False - Me.txtUmsatzJahr._WaehrungZeichen = True - Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White - Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black - Me.txtUmsatzJahr.Location = New System.Drawing.Point(104, 311) - Me.txtUmsatzJahr.MaxLineLength = -1 - Me.txtUmsatzJahr.MaxLines_Warning = "" - Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing - Me.txtUmsatzJahr.Name = "txtUmsatzJahr" - Me.txtUmsatzJahr.ReadOnly = True - Me.txtUmsatzJahr.Size = New System.Drawing.Size(115, 13) - Me.txtUmsatzJahr.TabIndex = 210 - Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label29 - ' - Me.Label29.AutoSize = True - Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.Location = New System.Drawing.Point(7, 311) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(68, 13) - Me.Label29.TabIndex = 209 - Me.Label29.Text = "Umsatz Jahr:" - ' - 'txtOffenePosten - ' - Me.txtOffenePosten._DateTimeOnly = False - Me.txtOffenePosten._numbersOnly = False - Me.txtOffenePosten._numbersOnlyKommastellen = "" - Me.txtOffenePosten._Prozent = False - Me.txtOffenePosten._ShortDateNew = False - Me.txtOffenePosten._ShortDateOnly = False - Me.txtOffenePosten._TimeOnly = False - Me.txtOffenePosten._value = Nothing - Me.txtOffenePosten._Waehrung = False - Me.txtOffenePosten._WaehrungZeichen = True - Me.txtOffenePosten.BackColor = System.Drawing.Color.White - Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black - Me.txtOffenePosten.Location = New System.Drawing.Point(104, 293) - Me.txtOffenePosten.MaxLineLength = -1 - Me.txtOffenePosten.MaxLines_Warning = "" - Me.txtOffenePosten.MaxLines_Warning_Label = Nothing - Me.txtOffenePosten.Name = "txtOffenePosten" - Me.txtOffenePosten.ReadOnly = True - Me.txtOffenePosten.Size = New System.Drawing.Size(115, 13) - Me.txtOffenePosten.TabIndex = 208 - Me.txtOffenePosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label28 - ' - Me.Label28.AutoSize = True - Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(7, 293) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(78, 13) - Me.Label28.TabIndex = 207 - Me.Label28.Text = "Offene Posten:" - ' - 'cbxFiskalabfertigung - ' - Me.cbxFiskalabfertigung._value = "" - Me.cbxFiskalabfertigung.AutoSize = True - Me.cbxFiskalabfertigung.Checked_value = False - Me.cbxFiskalabfertigung.CheckedValue = False - Me.cbxFiskalabfertigung.Location = New System.Drawing.Point(39, 134) - Me.cbxFiskalabfertigung.Name = "cbxFiskalabfertigung" - Me.cbxFiskalabfertigung.Size = New System.Drawing.Size(160, 17) - Me.cbxFiskalabfertigung.TabIndex = 206 - Me.cbxFiskalabfertigung.Text = "Fiskalverzollung freigegeben" - Me.cbxFiskalabfertigung.UseVisualStyleBackColor = True - Me.cbxFiskalabfertigung.Visible = False - ' - 'lblFisk - ' - Me.lblFisk.AutoSize = True - Me.lblFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFisk.ForeColor = System.Drawing.Color.Red - Me.lblFisk.Location = New System.Drawing.Point(210, 128) - Me.lblFisk.Name = "lblFisk" - Me.lblFisk.Size = New System.Drawing.Size(253, 26) - Me.lblFisk.TabIndex = 205 - Me.lblFisk.Text = "Für Fiskalabfertigung nicht freigegeben - " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "mit VERAG Zollservice Kontakt aufnehm" & - "en!" - Me.lblFisk.Visible = False - ' - 'lblKreditlimit - ' - Me.lblKreditlimit._DateTimeOnly = False - Me.lblKreditlimit._numbersOnly = False - Me.lblKreditlimit._numbersOnlyKommastellen = "" - Me.lblKreditlimit._Prozent = False - Me.lblKreditlimit._ShortDateNew = False - Me.lblKreditlimit._ShortDateOnly = False - Me.lblKreditlimit._TimeOnly = False - Me.lblKreditlimit._value = Nothing - Me.lblKreditlimit._Waehrung = False - Me.lblKreditlimit._WaehrungZeichen = True - Me.lblKreditlimit.BackColor = System.Drawing.Color.White - Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black - Me.lblKreditlimit.Location = New System.Drawing.Point(104, 251) - Me.lblKreditlimit.MaxLineLength = -1 - Me.lblKreditlimit.MaxLines_Warning = "" - Me.lblKreditlimit.MaxLines_Warning_Label = Nothing - Me.lblKreditlimit.Name = "lblKreditlimit" - Me.lblKreditlimit.ReadOnly = True - Me.lblKreditlimit.Size = New System.Drawing.Size(115, 13) - Me.lblKreditlimit.TabIndex = 190 - Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(7, 251) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(54, 13) - Me.Label1.TabIndex = 189 - Me.Label1.Text = "Kreditlimit:" - ' - 'lblAviso - ' - Me.lblAviso.BackColor = System.Drawing.Color.White - Me.lblAviso.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAviso.ForeColor = System.Drawing.Color.Black - Me.lblAviso.Location = New System.Drawing.Point(358, 251) - Me.lblAviso.Name = "lblAviso" - Me.lblAviso.ReadOnly = True - Me.lblAviso.Size = New System.Drawing.Size(127, 13) - Me.lblAviso.TabIndex = 185 - ' - 'txtAbf_ErsteAbfertigung - ' - Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False - Me.txtAbf_ErsteAbfertigung._numbersOnly = False - Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = "" - Me.txtAbf_ErsteAbfertigung._Prozent = False - Me.txtAbf_ErsteAbfertigung._ShortDateNew = False - Me.txtAbf_ErsteAbfertigung._ShortDateOnly = True - Me.txtAbf_ErsteAbfertigung._TimeOnly = False - Me.txtAbf_ErsteAbfertigung._value = "" - Me.txtAbf_ErsteAbfertigung._Waehrung = False - Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True - Me.txtAbf_ErsteAbfertigung.BackColor = System.Drawing.Color.White - Me.txtAbf_ErsteAbfertigung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbf_ErsteAbfertigung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Black - Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(104, 235) - Me.txtAbf_ErsteAbfertigung.MaxLength = 10 - Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 - Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" - Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing - Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung" - Me.txtAbf_ErsteAbfertigung.ReadOnly = True - Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(115, 13) - Me.txtAbf_ErsteAbfertigung.TabIndex = 38 - Me.txtAbf_ErsteAbfertigung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(270, 251) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(36, 13) - Me.Label2.TabIndex = 184 - Me.Label2.Text = "Aviso:" - ' - 'Label41 - ' - Me.Label41.AutoSize = True - Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label41.Location = New System.Drawing.Point(7, 235) - Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(91, 13) - Me.Label41.TabIndex = 26 - Me.Label41.Text = "Erste Abfertigung:" - ' - 'rtbAbf_Besonderheiten - ' - Me.rtbAbf_Besonderheiten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White - Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.rtbAbf_Besonderheiten.ContextMenuStrip = Me.ContextMenuStrip1 - Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32) - Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" - Me.rtbAbf_Besonderheiten.ReadOnly = True - Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 200) - Me.rtbAbf_Besonderheiten.TabIndex = 20 - Me.rtbAbf_Besonderheiten.Text = "" - ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem}) @@ -1117,437 +175,6 @@ Partial Class frmKundenUebersichtZOLL Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(121, 22) Me.KopierenToolStripMenuItem.Text = "Kopieren" ' - 'lblNeutralisierung - ' - Me.lblNeutralisierung.BackColor = System.Drawing.Color.White - Me.lblNeutralisierung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblNeutralisierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblNeutralisierung.ForeColor = System.Drawing.Color.Black - Me.lblNeutralisierung.Location = New System.Drawing.Point(358, 235) - Me.lblNeutralisierung.Name = "lblNeutralisierung" - Me.lblNeutralisierung.ReadOnly = True - Me.lblNeutralisierung.Size = New System.Drawing.Size(127, 13) - Me.lblNeutralisierung.TabIndex = 183 - ' - 'Label37 - ' - Me.Label37.AutoSize = True - Me.Label37.Location = New System.Drawing.Point(7, 16) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(84, 13) - Me.Label37.TabIndex = 23 - Me.Label37.Text = "Besonderheiten:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(270, 235) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(80, 13) - Me.Label3.TabIndex = 182 - Me.Label3.Text = "Neutralisierung:" - ' - 'lblNoGespr - ' - Me.lblNoGespr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblNoGespr.AutoSize = True - Me.lblNoGespr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblNoGespr.Location = New System.Drawing.Point(563, 235) - Me.lblNoGespr.Name = "lblNoGespr" - Me.lblNoGespr.Size = New System.Drawing.Size(98, 13) - Me.lblNoGespr.TabIndex = 192 - Me.lblNoGespr.Text = "kein Gesprächstext" - ' - 'lklGanzerText - ' - Me.lklGanzerText.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lklGanzerText.AutoSize = True - Me.lklGanzerText.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(200, Byte), Integer)) - Me.lklGanzerText.Location = New System.Drawing.Point(541, 233) - Me.lklGanzerText.Name = "lklGanzerText" - Me.lklGanzerText.Size = New System.Drawing.Size(124, 26) - Me.lklGanzerText.TabIndex = 187 - Me.lklGanzerText.TabStop = True - Me.lklGanzerText.Text = "Gesprächstext anzeigen " & Global.Microsoft.VisualBasic.ChrW(10) & "(FM-ZOLL Punkt 7)" - ' - 'Panel4 - ' - Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel4.Controls.Add(Me.FlatButton6) - Me.Panel4.Controls.Add(Me.btnBonitaetBearbeiten) - Me.Panel4.Controls.Add(Me.Label68) - Me.Panel4.Controls.Add(Me.lblHoechstkredit) - Me.Panel4.Controls.Add(Me.Label69) - Me.Panel4.Controls.Add(Me.lblBonitaet) - Me.Panel4.Controls.Add(Me.lblBonitaetRisikostufe) - Me.Panel4.Controls.Add(Me.lblBonitaetsdatum) - Me.Panel4.Controls.Add(Me.Label39) - Me.Panel4.Controls.Add(Me.Label46) - Me.Panel4.Location = New System.Drawing.Point(3, 335) - Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(491, 26) - Me.Panel4.TabIndex = 231 - ' - 'FlatButton6 - ' - Me.FlatButton6.allowBorder = False - Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton6.FlatAppearance.BorderSize = 0 - Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton6.ForeColor = System.Drawing.Color.Black - Me.FlatButton6.Location = New System.Drawing.Point(464, 8) - Me.FlatButton6.Name = "FlatButton6" - Me.FlatButton6.Size = New System.Drawing.Size(15, 12) - Me.FlatButton6.TabIndex = 217 - Me.FlatButton6.UseVisualStyleBackColor = True - ' - 'btnBonitaetBearbeiten - ' - Me.btnBonitaetBearbeiten.allowBorder = False - Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus - Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 - Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black - Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(445, 7) - Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" - Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) - Me.btnBonitaetBearbeiten.TabIndex = 40 - Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True - Me.btnBonitaetBearbeiten.Visible = False - ' - 'Label68 - ' - Me.Label68.AutoSize = True - Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label68.Location = New System.Drawing.Point(163, 6) - Me.Label68.Name = "Label68" - Me.Label68.Size = New System.Drawing.Size(30, 13) - Me.Label68.TabIndex = 183 - Me.Label68.Text = "vom:" - ' - 'lblHoechstkredit - ' - Me.lblHoechstkredit._DateTimeOnly = False - Me.lblHoechstkredit._numbersOnly = True - Me.lblHoechstkredit._numbersOnlyKommastellen = "" - Me.lblHoechstkredit._Prozent = False - Me.lblHoechstkredit._ShortDateNew = False - Me.lblHoechstkredit._ShortDateOnly = False - Me.lblHoechstkredit._TimeOnly = False - Me.lblHoechstkredit._value = "" - Me.lblHoechstkredit._Waehrung = True - Me.lblHoechstkredit._WaehrungZeichen = True - Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black - Me.lblHoechstkredit.Location = New System.Drawing.Point(343, 6) - Me.lblHoechstkredit.MaxLineLength = -1 - Me.lblHoechstkredit.MaxLines_Warning = "" - Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing - Me.lblHoechstkredit.Name = "lblHoechstkredit" - Me.lblHoechstkredit.ReadOnly = True - Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13) - Me.lblHoechstkredit.TabIndex = 188 - Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label69 - ' - Me.Label69.AutoSize = True - Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label69.Location = New System.Drawing.Point(267, 6) - Me.Label69.Name = "Label69" - Me.Label69.Size = New System.Drawing.Size(70, 13) - Me.Label69.TabIndex = 187 - Me.Label69.Text = "Höchstkredit:" - ' - 'lblBonitaet - ' - Me.lblBonitaet._DateTimeOnly = False - Me.lblBonitaet._numbersOnly = False - Me.lblBonitaet._numbersOnlyKommastellen = "" - Me.lblBonitaet._Prozent = False - Me.lblBonitaet._ShortDateNew = False - Me.lblBonitaet._ShortDateOnly = False - Me.lblBonitaet._TimeOnly = False - Me.lblBonitaet._value = Nothing - Me.lblBonitaet._Waehrung = False - Me.lblBonitaet._WaehrungZeichen = True - Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaet.ForeColor = System.Drawing.Color.Black - Me.lblBonitaet.Location = New System.Drawing.Point(106, 6) - Me.lblBonitaet.MaxLineLength = -1 - Me.lblBonitaet.MaxLines_Warning = "" - Me.lblBonitaet.MaxLines_Warning_Label = Nothing - Me.lblBonitaet.Name = "lblBonitaet" - Me.lblBonitaet.ReadOnly = True - Me.lblBonitaet.Size = New System.Drawing.Size(32, 13) - Me.lblBonitaet.TabIndex = 186 - Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'lblBonitaetRisikostufe - ' - Me.lblBonitaetRisikostufe._DateTimeOnly = False - Me.lblBonitaetRisikostufe._numbersOnly = False - Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = "" - Me.lblBonitaetRisikostufe._Prozent = False - Me.lblBonitaetRisikostufe._ShortDateNew = False - Me.lblBonitaetRisikostufe._ShortDateOnly = False - Me.lblBonitaetRisikostufe._TimeOnly = False - Me.lblBonitaetRisikostufe._value = Nothing - Me.lblBonitaetRisikostufe._Waehrung = False - Me.lblBonitaetRisikostufe._WaehrungZeichen = True - Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black - Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6) - Me.lblBonitaetRisikostufe.MaxLineLength = -1 - Me.lblBonitaetRisikostufe.MaxLines_Warning = "" - Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing - Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe" - Me.lblBonitaetRisikostufe.ReadOnly = True - Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13) - Me.lblBonitaetRisikostufe.TabIndex = 230 - Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'lblBonitaetsdatum - ' - Me.lblBonitaetsdatum._DateTimeOnly = False - Me.lblBonitaetsdatum._numbersOnly = False - Me.lblBonitaetsdatum._numbersOnlyKommastellen = "" - Me.lblBonitaetsdatum._Prozent = False - Me.lblBonitaetsdatum._ShortDateNew = False - Me.lblBonitaetsdatum._ShortDateOnly = False - Me.lblBonitaetsdatum._TimeOnly = False - Me.lblBonitaetsdatum._value = Nothing - Me.lblBonitaetsdatum._Waehrung = False - Me.lblBonitaetsdatum._WaehrungZeichen = True - Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke - Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black - Me.lblBonitaetsdatum.Location = New System.Drawing.Point(195, 6) - Me.lblBonitaetsdatum.MaxLineLength = -1 - Me.lblBonitaetsdatum.MaxLines_Warning = "" - Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing - Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum" - Me.lblBonitaetsdatum.ReadOnly = True - Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13) - Me.lblBonitaetsdatum.TabIndex = 185 - ' - 'Label39 - ' - Me.Label39.AutoSize = True - Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label39.Location = New System.Drawing.Point(4, 6) - Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(107, 13) - Me.Label39.TabIndex = 218 - Me.Label39.Text = "Bonität/Risikoklasse:" - ' - 'Label46 - ' - Me.Label46.AutoSize = True - Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label46.Location = New System.Drawing.Point(136, 6) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(12, 13) - Me.Label46.TabIndex = 183 - Me.Label46.Text = "/" - Me.Label46.TextAlign = System.Drawing.ContentAlignment.TopCenter - ' - 'pnlAnh - ' - Me.pnlAnh.Controls.Add(Me.usrCntlAnhaenge) - Me.pnlAnh.Controls.Add(Me.dgvAnhaenge) - Me.pnlAnh.Controls.Add(Me.btnAddAttach) - Me.pnlAnh.Controls.Add(Me.Panel3) - Me.pnlAnh.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnlAnh.Location = New System.Drawing.Point(3, 3) - Me.pnlAnh.Name = "pnlAnh" - Me.pnlAnh.Size = New System.Drawing.Size(655, 294) - Me.pnlAnh.TabIndex = 216 - ' - 'usrCntlAnhaenge - ' - Me.usrCntlAnhaenge._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.usrCntlAnhaenge._DATENSERVER_ORDNER = "KD_ANHÄNGE" - Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL" - Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = "" - Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = "" - Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White - Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.usrCntlAnhaenge.Cursor = System.Windows.Forms.Cursors.Default - Me.usrCntlAnhaenge.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrCntlAnhaenge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.usrCntlAnhaenge.Location = New System.Drawing.Point(0, 0) - Me.usrCntlAnhaenge.Margin = New System.Windows.Forms.Padding(0) - Me.usrCntlAnhaenge.Name = "usrCntlAnhaenge" - Me.usrCntlAnhaenge.Size = New System.Drawing.Size(655, 255) - Me.usrCntlAnhaenge.TabIndex = 215 - ' - 'dgvAnhaenge - ' - Me.dgvAnhaenge.AllowUserToAddRows = False - Me.dgvAnhaenge.AllowUserToDeleteRows = False - Me.dgvAnhaenge.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White - Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAnhaenge.Location = New System.Drawing.Point(286, 46) - Me.dgvAnhaenge.MultiSelect = False - Me.dgvAnhaenge.Name = "dgvAnhaenge" - Me.dgvAnhaenge.ReadOnly = True - Me.dgvAnhaenge.RowHeadersVisible = False - Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhaenge.Size = New System.Drawing.Size(170, 193) - Me.dgvAnhaenge.TabIndex = 189 - Me.dgvAnhaenge.Visible = False - ' - 'btnAddAttach - ' - Me.btnAddAttach.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnAddAttach.BackgroundImage = Global.SDL.My.Resources.Resources.plus - Me.btnAddAttach.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnAddAttach.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAddAttach.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnAddAttach.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnAddAttach.Location = New System.Drawing.Point(601, 46) - Me.btnAddAttach.Name = "btnAddAttach" - Me.btnAddAttach.Size = New System.Drawing.Size(29, 22) - Me.btnAddAttach.TabIndex = 195 - Me.btnAddAttach.UseVisualStyleBackColor = True - Me.btnAddAttach.Visible = False - ' - 'Panel3 - ' - Me.Panel3.Controls.Add(Me.FlatButton8) - Me.Panel3.Controls.Add(Me.FlatButton7) - Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel3.Location = New System.Drawing.Point(0, 255) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(655, 39) - Me.Panel3.TabIndex = 217 - ' - 'FlatButton8 - ' - Me.FlatButton8.allowBorder = False - Me.FlatButton8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton8.FlatAppearance.BorderSize = 0 - Me.FlatButton8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton8.ForeColor = System.Drawing.Color.Black - Me.FlatButton8.Image = Global.SDL.My.Resources.Resources.therefore1 - Me.FlatButton8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton8.Location = New System.Drawing.Point(5, 3) - Me.FlatButton8.Name = "FlatButton8" - Me.FlatButton8.Size = New System.Drawing.Size(118, 33) - Me.FlatButton8.TabIndex = 213 - Me.FlatButton8.Tag = "" - Me.FlatButton8.Text = "Tarifnummern" - Me.FlatButton8.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.FlatButton8.UseVisualStyleBackColor = True - ' - 'FlatButton7 - ' - Me.FlatButton7.allowBorder = False - Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton7.FlatAppearance.BorderSize = 0 - Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton7.ForeColor = System.Drawing.Color.Black - Me.FlatButton7.Image = Global.SDL.My.Resources.Resources.therefore1 - Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton7.Location = New System.Drawing.Point(144, 3) - Me.FlatButton7.Name = "FlatButton7" - Me.FlatButton7.Size = New System.Drawing.Size(118, 33) - Me.FlatButton7.TabIndex = 212 - Me.FlatButton7.Tag = "" - Me.FlatButton7.Text = "Kundeninfo" - Me.FlatButton7.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.FlatButton7.UseVisualStyleBackColor = True - ' - 'Label67 - ' - Me.Label67.AutoSize = True - Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label67.Location = New System.Drawing.Point(80, 10) - Me.Label67.Name = "Label67" - Me.Label67.Size = New System.Drawing.Size(41, 13) - Me.Label67.TabIndex = 184 - Me.Label67.Text = "Datum:" - ' - 'lblSteuernummer - ' - Me.lblSteuernummer.BackColor = System.Drawing.Color.White - Me.lblSteuernummer.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblSteuernummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblSteuernummer.Location = New System.Drawing.Point(76, 13) - Me.lblSteuernummer.Name = "lblSteuernummer" - Me.lblSteuernummer.ReadOnly = True - Me.lblSteuernummer.Size = New System.Drawing.Size(166, 13) - Me.lblSteuernummer.TabIndex = 178 - Me.lblSteuernummer.Text = "00000" - ' - 'lblAnsprechpartner - ' - Me.lblAnsprechpartner.BackColor = System.Drawing.Color.White - Me.lblAnsprechpartner.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblAnsprechpartner.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAnsprechpartner.Location = New System.Drawing.Point(38, 142) - Me.lblAnsprechpartner.Name = "lblAnsprechpartner" - Me.lblAnsprechpartner.ReadOnly = True - Me.lblAnsprechpartner.Size = New System.Drawing.Size(452, 19) - Me.lblAnsprechpartner.TabIndex = 179 - Me.lblAnsprechpartner.Text = "ansprechpartner" - ' - 'PictureBox5 - ' - Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.person - Me.PictureBox5.Location = New System.Drawing.Point(3, 143) - Me.PictureBox5.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(25, 18) - Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox5.TabIndex = 180 - Me.PictureBox5.TabStop = False - ' - 'dgvOffenePosten - ' - Me.dgvOffenePosten.AllowUserToAddRows = False - Me.dgvOffenePosten.AllowUserToDeleteRows = False - Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 - Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White - Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvOffenePosten.Location = New System.Drawing.Point(3, 31) - Me.dgvOffenePosten.MultiSelect = False - Me.dgvOffenePosten.Name = "dgvOffenePosten" - Me.dgvOffenePosten.ReadOnly = True - Me.dgvOffenePosten.RowHeadersVisible = False - Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(655, 266) - Me.dgvOffenePosten.TabIndex = 181 - ' - 'lblTESTSystem - ' - Me.lblTESTSystem.AutoSize = True - Me.lblTESTSystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblTESTSystem.ForeColor = System.Drawing.Color.Red - Me.lblTESTSystem.Location = New System.Drawing.Point(3, 59) - Me.lblTESTSystem.Name = "lblTESTSystem" - Me.lblTESTSystem.Size = New System.Drawing.Size(128, 17) - Me.lblTESTSystem.TabIndex = 188 - Me.lblTESTSystem.Text = "! TESTSYSTEM !" - ' 'tabZolltarife ' Me.tabZolltarife.Controls.Add(Me.pnlZollTarife) @@ -1571,16 +198,7 @@ Partial Class frmKundenUebersichtZOLL 'tabKundendaten ' Me.tabKundendaten.BackColor = System.Drawing.Color.White - Me.tabKundendaten.Controls.Add(Me.btnExcel) - Me.tabKundendaten.Controls.Add(Me.lblInaktiv) - Me.tabKundendaten.Controls.Add(Me.Label30) - Me.tabKundendaten.Controls.Add(Me.cboFirmaFMZOLL) - Me.tabKundendaten.Controls.Add(Me.tbWeitereKundenDetails) - Me.tabKundendaten.Controls.Add(Me.lblKdNr) - Me.tabKundendaten.Controls.Add(Me.Label13) - Me.tabKundendaten.Controls.Add(Me.grpAbfertigung) - Me.tabKundendaten.Controls.Add(Me.grpAdresse) - Me.tabKundendaten.Controls.Add(Me.grpSonstiges) + Me.tabKundendaten.Controls.Add(Me.usrcntlKundenuebersicht) Me.tabKundendaten.Location = New System.Drawing.Point(4, 25) Me.tabKundendaten.Name = "tabKundendaten" Me.tabKundendaten.Padding = New System.Windows.Forms.Padding(3) @@ -1588,1104 +206,16 @@ Partial Class frmKundenUebersichtZOLL Me.tabKundendaten.TabIndex = 0 Me.tabKundendaten.Text = "Kundendaten" ' - 'btnExcel - ' - Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo - Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnExcel.FlatAppearance.BorderSize = 0 - Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnExcel.Location = New System.Drawing.Point(853, 371) - Me.btnExcel.Name = "btnExcel" - Me.btnExcel.Size = New System.Drawing.Size(20, 20) - Me.btnExcel.TabIndex = 190 - Me.btnExcel.UseVisualStyleBackColor = True - Me.btnExcel.Visible = False - ' - 'lblInaktiv - ' - Me.lblInaktiv.AutoSize = True - Me.lblInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblInaktiv.ForeColor = System.Drawing.Color.Red - Me.lblInaktiv.Location = New System.Drawing.Point(125, 6) - Me.lblInaktiv.Name = "lblInaktiv" - Me.lblInaktiv.Size = New System.Drawing.Size(143, 17) - Me.lblInaktiv.TabIndex = 206 - Me.lblInaktiv.Text = "! KUNDE INAKTIV !" - Me.lblInaktiv.Visible = False - ' - 'Label30 - ' - Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label30.AutoSize = True - Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.Location = New System.Drawing.Point(879, 371) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(82, 13) - Me.Label30.TabIndex = 211 - Me.Label30.Text = "Daten für Firma:" - Me.Label30.Visible = False - ' - 'cboFirmaFMZOLL - ' - Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing - Me.cboFirmaFMZOLL._allowFreiText = False - Me.cboFirmaFMZOLL._value = "" - Me.cboFirmaFMZOLL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(967, 368) - Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(198, 21) - Me.cboFirmaFMZOLL.TabIndex = 205 - Me.cboFirmaFMZOLL.Visible = False - ' - 'tbWeitereKundenDetails - ' - Me.tbWeitereKundenDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.tbWeitereKundenDetails.Controls.Add(Me.TabPage4) - Me.tbWeitereKundenDetails.Controls.Add(Me.tbOffenePosten) - Me.tbWeitereKundenDetails.Controls.Add(Me.TabPage3) - Me.tbWeitereKundenDetails.Controls.Add(Me.TabPage8) - Me.tbWeitereKundenDetails.Location = New System.Drawing.Point(506, 368) - Me.tbWeitereKundenDetails.Name = "tbWeitereKundenDetails" - Me.tbWeitereKundenDetails.SelectedIndex = 0 - Me.tbWeitereKundenDetails.Size = New System.Drawing.Size(669, 326) - Me.tbWeitereKundenDetails.TabIndex = 204 - ' - 'TabPage4 - ' - Me.TabPage4.BackColor = System.Drawing.Color.White - Me.TabPage4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TabPage4.Controls.Add(Me.dgvOfferteDetailsUebersicht) - Me.TabPage4.Controls.Add(Me.dgvOffertenSperrliste) - Me.TabPage4.Controls.Add(Me.lblKeineSperren) - Me.TabPage4.Controls.Add(Me.pnlSperre) - Me.TabPage4.Location = New System.Drawing.Point(4, 22) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage4.Size = New System.Drawing.Size(661, 300) - Me.TabPage4.TabIndex = 4 - Me.TabPage4.Text = "Offerte/Sperrliste" - ' - 'dgvOfferteDetailsUebersicht - ' - Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True - Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 - Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White - Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvOfferteDetailsUebersicht.Dock = System.Windows.Forms.DockStyle.Right - Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(179, 3) - Me.dgvOfferteDetailsUebersicht.MultiSelect = False - Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" - Me.dgvOfferteDetailsUebersicht.ReadOnly = True - Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False - Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(477, 257) - Me.dgvOfferteDetailsUebersicht.TabIndex = 6 - ' - 'dgvOffertenSperrliste - ' - Me.dgvOffertenSperrliste.AllowUserToAddRows = False - Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False - Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True - Me.dgvOffertenSperrliste.AllowUserToResizeRows = False - DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 - Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White - Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvOffertenSperrliste.Dock = System.Windows.Forms.DockStyle.Left - Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(3, 3) - Me.dgvOffertenSperrliste.MultiSelect = False - Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" - Me.dgvOffertenSperrliste.ReadOnly = True - Me.dgvOffertenSperrliste.RowHeadersVisible = False - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle5 - Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) - Me.dgvOffertenSperrliste.TabIndex = 4 - ' - 'lblKeineSperren - ' - Me.lblKeineSperren.AutoSize = True - Me.lblKeineSperren.Location = New System.Drawing.Point(11, 17) - Me.lblKeineSperren.Name = "lblKeineSperren" - Me.lblKeineSperren.Size = New System.Drawing.Size(136, 13) - Me.lblKeineSperren.TabIndex = 5 - Me.lblKeineSperren.Text = "Keine Sperren eingetragen!" - ' - 'pnlSperre - ' - Me.pnlSperre.BackColor = System.Drawing.Color.White - Me.pnlSperre.Controls.Add(Me.FlatButton5) - Me.pnlSperre.Controls.Add(Me.txtSperreGrund) - Me.pnlSperre.Controls.Add(Me.txtSperreDat) - Me.pnlSperre.Controls.Add(Me.cbxSperreSetzen) - Me.pnlSperre.Controls.Add(Me.Label36) - Me.pnlSperre.Controls.Add(Me.Label67) - Me.pnlSperre.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlSperre.Location = New System.Drawing.Point(3, 260) - Me.pnlSperre.Name = "pnlSperre" - Me.pnlSperre.Size = New System.Drawing.Size(653, 35) - Me.pnlSperre.TabIndex = 7 - ' - 'FlatButton5 - ' - Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton5.ForeColor = System.Drawing.Color.Black - Me.FlatButton5.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.FlatButton5.Location = New System.Drawing.Point(583, 7) - Me.FlatButton5.Name = "FlatButton5" - Me.FlatButton5.Size = New System.Drawing.Size(68, 25) - Me.FlatButton5.TabIndex = 207 - Me.FlatButton5.Tag = "" - Me.FlatButton5.Text = "Speichern" - Me.FlatButton5.UseVisualStyleBackColor = True - ' - 'txtSperreGrund - ' - Me.txtSperreGrund._DateTimeOnly = False - Me.txtSperreGrund._numbersOnly = False - Me.txtSperreGrund._numbersOnlyKommastellen = "" - Me.txtSperreGrund._Prozent = False - Me.txtSperreGrund._ShortDateNew = False - Me.txtSperreGrund._ShortDateOnly = False - Me.txtSperreGrund._TimeOnly = False - Me.txtSperreGrund._value = Nothing - Me.txtSperreGrund._Waehrung = False - Me.txtSperreGrund._WaehrungZeichen = True - Me.txtSperreGrund.ForeColor = System.Drawing.Color.Black - Me.txtSperreGrund.Location = New System.Drawing.Point(309, 7) - Me.txtSperreGrund.MaxLineLength = -1 - Me.txtSperreGrund.MaxLines_Warning = "" - Me.txtSperreGrund.MaxLines_Warning_Label = Nothing - Me.txtSperreGrund.Name = "txtSperreGrund" - Me.txtSperreGrund.Size = New System.Drawing.Size(268, 20) - Me.txtSperreGrund.TabIndex = 1 - ' - 'txtSperreDat - ' - Me.txtSperreDat._DateTimeOnly = False - Me.txtSperreDat._numbersOnly = False - Me.txtSperreDat._numbersOnlyKommastellen = "" - Me.txtSperreDat._Prozent = False - Me.txtSperreDat._ShortDateNew = False - Me.txtSperreDat._ShortDateOnly = False - Me.txtSperreDat._TimeOnly = False - Me.txtSperreDat._value = Nothing - Me.txtSperreDat._Waehrung = False - Me.txtSperreDat._WaehrungZeichen = True - Me.txtSperreDat.BackColor = System.Drawing.Color.White - Me.txtSperreDat.ForeColor = System.Drawing.Color.Black - Me.txtSperreDat.Location = New System.Drawing.Point(129, 7) - Me.txtSperreDat.MaxLineLength = -1 - Me.txtSperreDat.MaxLines_Warning = "" - Me.txtSperreDat.MaxLines_Warning_Label = Nothing - Me.txtSperreDat.Name = "txtSperreDat" - Me.txtSperreDat.ReadOnly = True - Me.txtSperreDat.Size = New System.Drawing.Size(100, 20) - Me.txtSperreDat.TabIndex = 1 - ' - 'cbxSperreSetzen - ' - Me.cbxSperreSetzen.AutoSize = True - Me.cbxSperreSetzen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxSperreSetzen.Location = New System.Drawing.Point(11, 9) - Me.cbxSperreSetzen.Name = "cbxSperreSetzen" - Me.cbxSperreSetzen.Size = New System.Drawing.Size(63, 17) - Me.cbxSperreSetzen.TabIndex = 0 - Me.cbxSperreSetzen.Text = "Sperre" - Me.cbxSperreSetzen.UseVisualStyleBackColor = True - ' - 'Label36 - ' - Me.Label36.AutoSize = True - Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label36.Location = New System.Drawing.Point(233, 10) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(73, 13) - Me.Label36.TabIndex = 184 - Me.Label36.Text = "Sperre-Grund:" - ' - 'tbOffenePosten - ' - Me.tbOffenePosten.Controls.Add(Me.dgvOffenePosten) - Me.tbOffenePosten.Controls.Add(Me.pnl) - Me.tbOffenePosten.Location = New System.Drawing.Point(4, 22) - Me.tbOffenePosten.Name = "tbOffenePosten" - Me.tbOffenePosten.Padding = New System.Windows.Forms.Padding(3) - Me.tbOffenePosten.Size = New System.Drawing.Size(661, 300) - Me.tbOffenePosten.TabIndex = 0 - Me.tbOffenePosten.Text = "Offene Posten" - Me.tbOffenePosten.UseVisualStyleBackColor = True - ' - 'pnl - ' - Me.pnl.BackColor = System.Drawing.Color.White - Me.pnl.Controls.Add(Me.txtOpLeihgeld) - Me.pnl.Controls.Add(Me.Label44) - Me.pnl.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl.Location = New System.Drawing.Point(3, 3) - Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(655, 28) - Me.pnl.TabIndex = 189 - Me.pnl.Visible = False - ' - 'txtOpLeihgeld - ' - Me.txtOpLeihgeld._DateTimeOnly = False - Me.txtOpLeihgeld._numbersOnly = False - Me.txtOpLeihgeld._numbersOnlyKommastellen = "" - Me.txtOpLeihgeld._Prozent = False - Me.txtOpLeihgeld._ShortDateNew = False - Me.txtOpLeihgeld._ShortDateOnly = False - Me.txtOpLeihgeld._TimeOnly = False - Me.txtOpLeihgeld._value = Nothing - Me.txtOpLeihgeld._Waehrung = False - Me.txtOpLeihgeld._WaehrungZeichen = True - Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White - Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black - Me.txtOpLeihgeld.Location = New System.Drawing.Point(141, 9) - Me.txtOpLeihgeld.MaxLineLength = -1 - Me.txtOpLeihgeld.MaxLines_Warning = "" - Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing - Me.txtOpLeihgeld.Name = "txtOpLeihgeld" - Me.txtOpLeihgeld.ReadOnly = True - Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13) - Me.txtOpLeihgeld.TabIndex = 210 - Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label44 - ' - Me.Label44.AutoSize = True - Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label44.Location = New System.Drawing.Point(8, 9) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(127, 13) - Me.Label44.TabIndex = 209 - Me.Label44.Text = "Offene Posten - Leihgeld:" - ' - 'TabPage3 - ' - Me.TabPage3.Controls.Add(Me.dgvUmsatzbericht) - Me.TabPage3.Location = New System.Drawing.Point(4, 22) - Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage3.Size = New System.Drawing.Size(661, 300) - Me.TabPage3.TabIndex = 1 - Me.TabPage3.Text = "Umsatzbericht" - Me.TabPage3.UseVisualStyleBackColor = True - ' - 'dgvUmsatzbericht - ' - Me.dgvUmsatzbericht.AllowUserToAddRows = False - Me.dgvUmsatzbericht.AllowUserToDeleteRows = False - Me.dgvUmsatzbericht.AllowUserToOrderColumns = True - Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 - Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White - Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvUmsatzbericht.Location = New System.Drawing.Point(3, 3) - Me.dgvUmsatzbericht.MultiSelect = False - Me.dgvUmsatzbericht.Name = "dgvUmsatzbericht" - Me.dgvUmsatzbericht.ReadOnly = True - Me.dgvUmsatzbericht.RowHeadersVisible = False - Me.dgvUmsatzbericht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsatzbericht.Size = New System.Drawing.Size(655, 294) - Me.dgvUmsatzbericht.TabIndex = 3 - ' - 'TabPage8 - ' - Me.TabPage8.Controls.Add(Me.pnlAnh) - Me.TabPage8.Location = New System.Drawing.Point(4, 22) - Me.TabPage8.Name = "TabPage8" - Me.TabPage8.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage8.Size = New System.Drawing.Size(661, 300) - Me.TabPage8.TabIndex = 5 - Me.TabPage8.Text = "Anhänge" - Me.TabPage8.UseVisualStyleBackColor = True - ' - 'lblKdNr - ' - Me.lblKdNr.BackColor = System.Drawing.Color.White - Me.lblKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKdNr.Location = New System.Drawing.Point(409, 3) - Me.lblKdNr.Name = "lblKdNr" - Me.lblKdNr.ReadOnly = True - Me.lblKdNr.Size = New System.Drawing.Size(88, 19) - Me.lblKdNr.TabIndex = 193 - Me.lblKdNr.Text = "150000" - Me.lblKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(365, 8) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(34, 13) - Me.Label13.TabIndex = 23 - Me.Label13.Text = "KdNr:" - ' - 'grpAdresse - ' - Me.grpAdresse.Controls.Add(Me.tbKontakt) - Me.grpAdresse.Controls.Add(Me.Label38) - Me.grpAdresse.Controls.Add(Me.txtDebitorennr) - Me.grpAdresse.Controls.Add(Me.lblFwlFiskal) - Me.grpAdresse.Controls.Add(Me.lblKorrAdresse) - Me.grpAdresse.Controls.Add(Me.lblFirmenname1) - Me.grpAdresse.Controls.Add(Me.lblPostfach) - Me.grpAdresse.Controls.Add(Me.lblLandPlzOrt) - Me.grpAdresse.Controls.Add(Me.lblStrasse) - Me.grpAdresse.Controls.Add(Me.lblFirmenname2) - Me.grpAdresse.Controls.Add(Me.lblTESTSystem) - Me.grpAdresse.Location = New System.Drawing.Point(0, 17) - Me.grpAdresse.Name = "grpAdresse" - Me.grpAdresse.Size = New System.Drawing.Size(499, 348) - Me.grpAdresse.TabIndex = 201 - Me.grpAdresse.TabStop = False - Me.grpAdresse.Text = "Firmendaten" - ' - 'tbKontakt - ' - Me.tbKontakt.Controls.Add(Me.TabPage10) - Me.tbKontakt.Controls.Add(Me.TabPage11) - Me.tbKontakt.Location = New System.Drawing.Point(6, 152) - Me.tbKontakt.Name = "tbKontakt" - Me.tbKontakt.SelectedIndex = 0 - Me.tbKontakt.Size = New System.Drawing.Size(487, 190) - Me.tbKontakt.TabIndex = 213 - ' - 'TabPage10 - ' - Me.TabPage10.Controls.Add(Me.FlatButton1) - Me.TabPage10.Controls.Add(Me.PictureBox1) - Me.TabPage10.Controls.Add(Me.lblAnsprechpartner) - Me.TabPage10.Controls.Add(Me.lblMobil) - Me.TabPage10.Controls.Add(Me.lblFax) - Me.TabPage10.Controls.Add(Me.lblEmail2) - Me.TabPage10.Controls.Add(Me.lblEmail) - Me.TabPage10.Controls.Add(Me.PictureBox4) - Me.TabPage10.Controls.Add(Me.PictureBox2) - Me.TabPage10.Controls.Add(Me.lblTel) - Me.TabPage10.Controls.Add(Me.PictureBox3) - Me.TabPage10.Controls.Add(Me.PictureBox5) - Me.TabPage10.Location = New System.Drawing.Point(4, 22) - Me.TabPage10.Name = "TabPage10" - Me.TabPage10.Size = New System.Drawing.Size(479, 164) - Me.TabPage10.TabIndex = 2 - Me.TabPage10.Text = "Kontakt" - Me.TabPage10.UseVisualStyleBackColor = True - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.compose - Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.FlatButton1.Location = New System.Drawing.Point(395, 93) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(84, 68) - Me.FlatButton1.TabIndex = 205 - Me.FlatButton1.Tag = "" - Me.FlatButton1.Text = "Änderungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bekanntgeben" - Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.FlatButton1.UseVisualStyleBackColor = True - ' - 'TabPage11 - ' - Me.TabPage11.Controls.Add(Me.ucKundenKontakte) - Me.TabPage11.Location = New System.Drawing.Point(4, 22) - Me.TabPage11.Name = "TabPage11" - Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage11.Size = New System.Drawing.Size(479, 164) - Me.TabPage11.TabIndex = 3 - Me.TabPage11.Text = "Spezifisch" - Me.TabPage11.UseVisualStyleBackColor = True - ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) - Me.ucKundenKontakte.TabIndex = 0 - ' - 'Label38 - ' - Me.Label38.AutoSize = True - Me.Label38.Location = New System.Drawing.Point(365, 57) - Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(67, 13) - Me.Label38.TabIndex = 212 - Me.Label38.Text = "DebitorenNr:" - ' - 'txtDebitorennr - ' - Me.txtDebitorennr.BackColor = System.Drawing.Color.White - Me.txtDebitorennr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtDebitorennr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDebitorennr.Location = New System.Drawing.Point(426, 57) - Me.txtDebitorennr.Name = "txtDebitorennr" - Me.txtDebitorennr.ReadOnly = True - Me.txtDebitorennr.Size = New System.Drawing.Size(67, 16) - Me.txtDebitorennr.TabIndex = 212 - Me.txtDebitorennr.Text = "150000" - Me.txtDebitorennr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'lblFwlFiskal - ' - Me.lblFwlFiskal.AutoSize = True - Me.lblFwlFiskal.Location = New System.Drawing.Point(392, 162) - Me.lblFwlFiskal.Name = "lblFwlFiskal" - Me.lblFwlFiskal.Size = New System.Drawing.Size(105, 13) - Me.lblFwlFiskal.TabIndex = 206 - Me.lblFwlFiskal.TabStop = True - Me.lblFwlFiskal.Text = "Firmenwortlaut Fiskal" - Me.lblFwlFiskal.Visible = False - ' - 'lblKorrAdresse - ' - Me.lblKorrAdresse.AutoSize = True - Me.lblKorrAdresse.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(200, Byte), Integer)) - Me.lblKorrAdresse.Location = New System.Drawing.Point(392, 121) - Me.lblKorrAdresse.Name = "lblKorrAdresse" - Me.lblKorrAdresse.Size = New System.Drawing.Size(87, 26) - Me.lblKorrAdresse.TabIndex = 193 - Me.lblKorrAdresse.TabStop = True - Me.lblKorrAdresse.Text = "Korrespondenz - " & Global.Microsoft.VisualBasic.ChrW(10) & "Postadresse" - Me.lblKorrAdresse.Visible = False - ' - 'grpSonstiges - ' - Me.grpSonstiges.Controls.Add(Me.Button4) - Me.grpSonstiges.Controls.Add(Me.Button5) - Me.grpSonstiges.Controls.Add(Me.Button3) - Me.grpSonstiges.Controls.Add(Me.Button1) - Me.grpSonstiges.Controls.Add(Me.tbcntrAllg) - Me.grpSonstiges.Controls.Add(Me.btncheckliste) - Me.grpSonstiges.Controls.Add(Me.Label4) - Me.grpSonstiges.Controls.Add(Me.lblUid) - Me.grpSonstiges.Controls.Add(Me.lblEORI) - Me.grpSonstiges.Controls.Add(Me.Label5) - Me.grpSonstiges.Controls.Add(Me.dgvAufschub) - Me.grpSonstiges.Location = New System.Drawing.Point(0, 362) - Me.grpSonstiges.Name = "grpSonstiges" - Me.grpSonstiges.Size = New System.Drawing.Size(499, 332) - Me.grpSonstiges.TabIndex = 203 - Me.grpSonstiges.TabStop = False - ' - 'Button4 - ' - Me.Button4.BackgroundImage = CType(resources.GetObject("Button4.BackgroundImage"), System.Drawing.Image) - Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button4.FlatAppearance.BorderSize = 0 - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Location = New System.Drawing.Point(386, 35) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(25, 20) - Me.Button4.TabIndex = 210 - Me.Button4.UseVisualStyleBackColor = True - Me.Button4.Visible = False - ' - 'Button5 - ' - Me.Button5.BackgroundImage = CType(resources.GetObject("Button5.BackgroundImage"), System.Drawing.Image) - Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button5.FlatAppearance.BorderSize = 0 - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(386, 14) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(25, 20) - Me.Button5.TabIndex = 209 - Me.Button5.UseVisualStyleBackColor = True - Me.Button5.Visible = False - ' - 'Button3 - ' - Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button3.FlatAppearance.BorderSize = 0 - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(361, 34) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(25, 20) - Me.Button3.TabIndex = 208 - Me.Button3.UseVisualStyleBackColor = True - Me.Button3.Visible = False - ' - 'Button1 - ' - Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button1.FlatAppearance.BorderSize = 0 - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(361, 13) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(25, 20) - Me.Button1.TabIndex = 207 - Me.Button1.UseVisualStyleBackColor = True - Me.Button1.Visible = False - ' - 'tbcntrAllg - ' - Me.tbcntrAllg.Controls.Add(Me.TabPage5) - Me.tbcntrAllg.Controls.Add(Me.TabPage9) - Me.tbcntrAllg.Controls.Add(Me.TabPage6) - Me.tbcntrAllg.Controls.Add(Me.TabPage7) - Me.tbcntrAllg.Controls.Add(Me.TabPage2) - Me.tbcntrAllg.Location = New System.Drawing.Point(6, 142) - Me.tbcntrAllg.Name = "tbcntrAllg" - Me.tbcntrAllg.SelectedIndex = 0 - Me.tbcntrAllg.Size = New System.Drawing.Size(487, 190) - Me.tbcntrAllg.TabIndex = 205 - ' - 'TabPage5 - ' - Me.TabPage5.Controls.Add(Me.dgvVollmachten) - Me.TabPage5.Location = New System.Drawing.Point(4, 22) - Me.TabPage5.Name = "TabPage5" - Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage5.Size = New System.Drawing.Size(479, 164) - Me.TabPage5.TabIndex = 0 - Me.TabPage5.Text = "Vollmachten" - Me.TabPage5.UseVisualStyleBackColor = True - ' - 'dgvVollmachten - ' - Me.dgvVollmachten.AllowUserToAddRows = False - Me.dgvVollmachten.AllowUserToDeleteRows = False - Me.dgvVollmachten.AllowUserToOrderColumns = True - Me.dgvVollmachten.AllowUserToResizeRows = False - DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 - Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White - Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvVollmachten.Location = New System.Drawing.Point(3, 3) - Me.dgvVollmachten.MultiSelect = False - Me.dgvVollmachten.Name = "dgvVollmachten" - Me.dgvVollmachten.ReadOnly = True - Me.dgvVollmachten.RowHeadersVisible = False - Me.dgvVollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvVollmachten.Size = New System.Drawing.Size(473, 158) - Me.dgvVollmachten.TabIndex = 4 - ' - 'TabPage9 - ' - Me.TabPage9.Controls.Add(Me.dgvGestGarantie) - Me.TabPage9.Controls.Add(Me.Panel2) - Me.TabPage9.Location = New System.Drawing.Point(4, 22) - Me.TabPage9.Name = "TabPage9" - Me.TabPage9.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage9.Size = New System.Drawing.Size(479, 164) - Me.TabPage9.TabIndex = 4 - Me.TabPage9.Text = "Gestell.Garant." - Me.TabPage9.UseVisualStyleBackColor = True - ' - 'dgvGestGarantie - ' - Me.dgvGestGarantie.AllowUserToAddRows = False - Me.dgvGestGarantie.AllowUserToDeleteRows = False - Me.dgvGestGarantie.AllowUserToOrderColumns = True - Me.dgvGestGarantie.AllowUserToResizeRows = False - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 - Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White - Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvGestGarantie.Location = New System.Drawing.Point(3, 3) - Me.dgvGestGarantie.MultiSelect = False - Me.dgvGestGarantie.Name = "dgvGestGarantie" - Me.dgvGestGarantie.ReadOnly = True - Me.dgvGestGarantie.RowHeadersVisible = False - Me.dgvGestGarantie.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvGestGarantie.Size = New System.Drawing.Size(473, 112) - Me.dgvGestGarantie.TabIndex = 5 - ' - 'Panel2 - ' - Me.Panel2.BackColor = System.Drawing.Color.White - Me.Panel2.Controls.Add(Me.cbxGG) - Me.Panel2.Controls.Add(Me.txtGGDatum) - Me.Panel2.Controls.Add(Me.txtT1VerzollungsadresseBestimmungszollstelle) - Me.Panel2.Controls.Add(Me.Label11) - Me.Panel2.Controls.Add(Me.Button8) - Me.Panel2.Controls.Add(Me.Button9) - Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel2.Location = New System.Drawing.Point(3, 115) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(473, 46) - Me.Panel2.TabIndex = 8 - ' - 'cbxGG - ' - Me.cbxGG.AutoSize = True - Me.cbxGG.Location = New System.Drawing.Point(87, 27) - Me.cbxGG.Name = "cbxGG" - Me.cbxGG.Size = New System.Drawing.Size(165, 17) - Me.cbxGG.TabIndex = 213 - Me.cbxGG.Text = "generelle Gestellungsgarantie" - Me.cbxGG.UseVisualStyleBackColor = True - ' - 'txtGGDatum - ' - Me.txtGGDatum._DateTimeOnly = False - Me.txtGGDatum._numbersOnly = False - Me.txtGGDatum._numbersOnlyKommastellen = "" - Me.txtGGDatum._Prozent = False - Me.txtGGDatum._ShortDateNew = True - Me.txtGGDatum._ShortDateOnly = False - Me.txtGGDatum._TimeOnly = False - Me.txtGGDatum._value = "" - Me.txtGGDatum._Waehrung = False - Me.txtGGDatum._WaehrungZeichen = True - Me.txtGGDatum.ForeColor = System.Drawing.Color.Black - Me.txtGGDatum.Location = New System.Drawing.Point(256, 7) - Me.txtGGDatum.MaxLength = 10 - Me.txtGGDatum.MaxLineLength = -1 - Me.txtGGDatum.MaxLines_Warning = "" - Me.txtGGDatum.MaxLines_Warning_Label = Nothing - Me.txtGGDatum.Name = "txtGGDatum" - Me.txtGGDatum.Size = New System.Drawing.Size(100, 20) - Me.txtGGDatum.TabIndex = 212 - ' - 'txtT1VerzollungsadresseBestimmungszollstelle - ' - Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False - Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False - Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False - Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True - Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL" - Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT" - Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False - Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(87, 7) - Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8 - Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle" - Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True - Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(163, 20) - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing - Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 211 - Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label11.Location = New System.Drawing.Point(3, 10) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(78, 13) - Me.Label11.TabIndex = 210 - Me.Label11.Text = "GG für Zollamt:" - ' - 'Button8 - ' - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.ForeColor = System.Drawing.Color.Black - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.Button8.Location = New System.Drawing.Point(362, 3) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(78, 25) - Me.Button8.TabIndex = 208 - Me.Button8.Tag = "" - Me.Button8.Text = "Hinzufügen" - Me.Button8.UseVisualStyleBackColor = True - ' - 'Button9 - ' - Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button9.ForeColor = System.Drawing.Color.Black - Me.Button9.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.Button9.Location = New System.Drawing.Point(362, 24) - Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(78, 22) - Me.Button9.TabIndex = 214 - Me.Button9.Tag = "" - Me.Button9.Text = "Abbrechen" - Me.Button9.UseVisualStyleBackColor = True - Me.Button9.Visible = False - ' - 'TabPage6 - ' - Me.TabPage6.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1) - Me.TabPage6.Location = New System.Drawing.Point(4, 22) - Me.TabPage6.Name = "TabPage6" - Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage6.Size = New System.Drawing.Size(479, 164) - Me.TabPage6.TabIndex = 1 - Me.TabPage6.Text = "Aviso E-Mails" - Me.TabPage6.UseVisualStyleBackColor = True - ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 - ' - 'TabPage7 - ' - Me.TabPage7.Controls.Add(Me.Label43) - Me.TabPage7.Controls.Add(Me.cbxKdAuftragsNr) - Me.TabPage7.Controls.Add(Me.RichTextBox1) - Me.TabPage7.Controls.Add(Me.Label31) - Me.TabPage7.Controls.Add(Me.rtbLKWFreigabeSenden) - Me.TabPage7.Controls.Add(Me.Label10) - Me.TabPage7.Controls.Add(Me.txtFixeKdAtrNr) - Me.TabPage7.Controls.Add(Me.FlatButton4) - Me.TabPage7.Location = New System.Drawing.Point(4, 22) - Me.TabPage7.Name = "TabPage7" - Me.TabPage7.Size = New System.Drawing.Size(479, 164) - Me.TabPage7.TabIndex = 2 - Me.TabPage7.Text = "Kundenspezifisch" - Me.TabPage7.UseVisualStyleBackColor = True - ' - 'Label43 - ' - Me.Label43.AutoSize = True - Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label43.Location = New System.Drawing.Point(232, 25) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(74, 13) - Me.Label43.TabIndex = 218 - Me.Label43.Text = "Fixe Auftr.-Nr.:" - ' - 'cbxKdAuftragsNr - ' - Me.cbxKdAuftragsNr.AutoSize = True - Me.cbxKdAuftragsNr.Location = New System.Drawing.Point(235, 5) - Me.cbxKdAuftragsNr.Name = "cbxKdAuftragsNr" - Me.cbxKdAuftragsNr.Size = New System.Drawing.Size(230, 17) - Me.cbxKdAuftragsNr.TabIndex = 216 - Me.cbxKdAuftragsNr.Text = "Kunde verwendet eigene Auftragsnummern" - Me.cbxKdAuftragsNr.UseVisualStyleBackColor = True - ' - 'RichTextBox1 - ' - Me.RichTextBox1.Location = New System.Drawing.Point(235, 61) - Me.RichTextBox1.Name = "RichTextBox1" - Me.RichTextBox1.Size = New System.Drawing.Size(222, 50) - Me.RichTextBox1.TabIndex = 208 - Me.RichTextBox1.Text = "" - Me.RichTextBox1.Visible = False - ' - 'Label31 - ' - Me.Label31.AutoSize = True - Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label31.Location = New System.Drawing.Point(232, 45) - Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(213, 13) - Me.Label31.TabIndex = 207 - Me.Label31.Text = "Wichtige Hinweise auf Aktendeckel:" - Me.Label31.Visible = False - ' - 'rtbLKWFreigabeSenden - ' - Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(7, 22) - Me.rtbLKWFreigabeSenden.Name = "rtbLKWFreigabeSenden" - Me.rtbLKWFreigabeSenden.Size = New System.Drawing.Size(222, 113) - Me.rtbLKWFreigabeSenden.TabIndex = 40 - Me.rtbLKWFreigabeSenden.Text = "" - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(4, 5) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(225, 13) - Me.Label10.TabIndex = 39 - Me.Label10.Text = "Dokumente bei LKW-Freigabe senden:" - ' - 'txtFixeKdAtrNr - ' - Me.txtFixeKdAtrNr._DateTimeOnly = False - Me.txtFixeKdAtrNr._numbersOnly = False - Me.txtFixeKdAtrNr._numbersOnlyKommastellen = "" - Me.txtFixeKdAtrNr._Prozent = False - Me.txtFixeKdAtrNr._ShortDateNew = False - Me.txtFixeKdAtrNr._ShortDateOnly = False - Me.txtFixeKdAtrNr._TimeOnly = False - Me.txtFixeKdAtrNr._value = "" - Me.txtFixeKdAtrNr._Waehrung = False - Me.txtFixeKdAtrNr._WaehrungZeichen = True - Me.txtFixeKdAtrNr.Enabled = False - Me.txtFixeKdAtrNr.ForeColor = System.Drawing.Color.Black - Me.txtFixeKdAtrNr.Location = New System.Drawing.Point(309, 22) - Me.txtFixeKdAtrNr.MaxLineLength = -1 - Me.txtFixeKdAtrNr.MaxLines_Warning = "" - Me.txtFixeKdAtrNr.MaxLines_Warning_Label = Nothing - Me.txtFixeKdAtrNr.Name = "txtFixeKdAtrNr" - Me.txtFixeKdAtrNr.Size = New System.Drawing.Size(149, 20) - Me.txtFixeKdAtrNr.TabIndex = 217 - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.FlatButton4.Location = New System.Drawing.Point(365, 111) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(92, 26) - Me.FlatButton4.TabIndex = 206 - Me.FlatButton4.Tag = "" - Me.FlatButton4.Text = "Speichern" - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'TabPage2 - ' - Me.TabPage2.Controls.Add(Me.Label6) - Me.TabPage2.Controls.Add(Me.lblSteuernummer) - Me.TabPage2.Controls.Add(Me.lblAufZoll) - Me.TabPage2.Controls.Add(Me.Label9) - Me.TabPage2.Controls.Add(Me.lblAufEust) - Me.TabPage2.Controls.Add(Me.Label8) - Me.TabPage2.Controls.Add(Me.lblZnv) - Me.TabPage2.Controls.Add(Me.Label7) - Me.TabPage2.Location = New System.Drawing.Point(4, 22) - Me.TabPage2.Name = "TabPage2" - Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(479, 164) - Me.TabPage2.TabIndex = 3 - Me.TabPage2.Text = "Sonstiges" - Me.TabPage2.UseVisualStyleBackColor = True - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(6, 13) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(58, 13) - Me.Label6.TabIndex = 193 - Me.Label6.Text = "Steuer-Nr.:" - ' - 'lblAufZoll - ' - Me.lblAufZoll.BackColor = System.Drawing.Color.White - Me.lblAufZoll.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblAufZoll.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAufZoll.Location = New System.Drawing.Point(322, 37) - Me.lblAufZoll.Name = "lblAufZoll" - Me.lblAufZoll.ReadOnly = True - Me.lblAufZoll.Size = New System.Drawing.Size(174, 13) - Me.lblAufZoll.TabIndex = 196 - Me.lblAufZoll.Text = "00000" - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.Location = New System.Drawing.Point(6, 37) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(47, 13) - Me.Label9.TabIndex = 200 - Me.Label9.Text = "ZnV-Nr.:" - ' - 'lblAufEust - ' - Me.lblAufEust.BackColor = System.Drawing.Color.White - Me.lblAufEust.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblAufEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAufEust.Location = New System.Drawing.Point(322, 16) - Me.lblAufEust.Name = "lblAufEust" - Me.lblAufEust.ReadOnly = True - Me.lblAufEust.Size = New System.Drawing.Size(174, 13) - Me.lblAufEust.TabIndex = 195 - Me.lblAufEust.Text = "00000" - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(242, 16) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(74, 13) - Me.Label8.TabIndex = 199 - Me.Label8.Text = "Aufsch. EUSt:" - ' - 'lblZnv - ' - Me.lblZnv.BackColor = System.Drawing.Color.White - Me.lblZnv.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblZnv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblZnv.Location = New System.Drawing.Point(76, 37) - Me.lblZnv.Name = "lblZnv" - Me.lblZnv.ReadOnly = True - Me.lblZnv.Size = New System.Drawing.Size(166, 13) - Me.lblZnv.TabIndex = 194 - Me.lblZnv.Text = "00000" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(242, 37) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(66, 13) - Me.Label7.TabIndex = 198 - Me.Label7.Text = "Aufsch. Zoll:" - ' - 'btncheckliste - ' - Me.btncheckliste.allowBorder = False - Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btncheckliste.FlatAppearance.BorderSize = 0 - Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btncheckliste.ForeColor = System.Drawing.Color.Black - Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist - Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btncheckliste.Location = New System.Drawing.Point(409, 7) - Me.btncheckliste.Name = "btncheckliste" - Me.btncheckliste.Size = New System.Drawing.Size(88, 53) - Me.btncheckliste.TabIndex = 204 - Me.btncheckliste.Tag = "" - Me.btncheckliste.Text = "Checkliste" - Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btncheckliste.UseVisualStyleBackColor = True - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(10, 16) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(57, 17) - Me.Label4.TabIndex = 193 - Me.Label4.Text = "UId-Nr.:" - ' - 'lblEORI - ' - Me.lblEORI.BackColor = System.Drawing.Color.White - Me.lblEORI.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEORI.Location = New System.Drawing.Point(80, 38) - Me.lblEORI.Name = "lblEORI" - Me.lblEORI.ReadOnly = True - Me.lblEORI.Size = New System.Drawing.Size(322, 16) - Me.lblEORI.TabIndex = 197 - Me.lblEORI.Text = "AT000000000000000" - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(10, 37) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(69, 17) - Me.Label5.TabIndex = 193 - Me.Label5.Text = "EORI-Nr.:" - ' - 'dgvAufschub - ' - Me.dgvAufschub.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAufschub.AllowUserToAddRows = False - Me.dgvAufschub.AllowUserToDeleteRows = False - Me.dgvAufschub.AllowUserToResizeColumns = False - Me.dgvAufschub.AllowUserToResizeRows = False - Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 - Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL}) - Me.dgvAufschub.ContextMenuStrip = Me.ContextMenuStrip2 - 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.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle11 - Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) - Me.dgvAufschub.MultiSelect = False - Me.dgvAufschub.Name = "dgvAufschub" - Me.dgvAufschub.ReadOnly = True - Me.dgvAufschub.RowHeadersVisible = False - Me.dgvAufschub.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAufschub.Size = New System.Drawing.Size(473, 75) - Me.dgvAufschub.TabIndex = 211 - Me.dgvAufschub.TabStop = False - ' - 'KtoId - ' - Me.KtoId.HeaderText = "Id" - Me.KtoId.Name = "KtoId" - Me.KtoId.ReadOnly = True - Me.KtoId.Visible = False - ' - 'Art - ' - Me.Art.HeaderText = "Aufschub" - Me.Art.Name = "Art" - Me.Art.ReadOnly = True - Me.Art.Width = 120 - ' - 'HZA - ' - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - Me.HZA.DefaultCellStyle = DataGridViewCellStyle10 - Me.HZA.HeaderText = "HZA" - Me.HZA.Name = "HZA" - Me.HZA.ReadOnly = True - Me.HZA.Width = 35 - ' - 'KontoNr - ' - Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None - Me.KontoNr.HeaderText = "Konto Nr." - Me.KontoNr.Name = "KontoNr" - Me.KontoNr.ReadOnly = True - Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - ' - 'EORI - ' - Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.EORI.HeaderText = "EORI" - Me.EORI.Name = "EORI" - Me.EORI.ReadOnly = True - ' - 'NL - ' - Me.NL.HeaderText = "NL" - Me.NL.Name = "NL" - Me.NL.ReadOnly = True - Me.NL.Width = 60 + 'usrcntlKundenuebersicht + ' + Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White + Me.usrcntlKundenuebersicht.BER_STUFE = 0 + Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2) + Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht" + Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691) + Me.usrcntlKundenuebersicht.TabIndex = 0 ' 'ContextMenuStrip2 ' @@ -2806,14 +336,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvFilialen.AllowUserToResizeRows = False Me.dgvFilialen.BackgroundColor = System.Drawing.Color.White Me.dgvFilialen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvFilialen.DefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvFilialen.DefaultCellStyle = DataGridViewCellStyle1 Me.dgvFilialen.Location = New System.Drawing.Point(468, 46) Me.dgvFilialen.Name = "dgvFilialen" Me.dgvFilialen.RowHeadersVisible = False @@ -2935,14 +465,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Frachtf.AllowUserToResizeRows = False Me.dgvStat_Frachtf.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Frachtf.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Frachtf.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Frachtf.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvStat_Frachtf.Location = New System.Drawing.Point(930, 375) Me.dgvStat_Frachtf.Name = "dgvStat_Frachtf" Me.dgvStat_Frachtf.RowHeadersVisible = False @@ -3079,14 +609,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Avis.AllowUserToResizeRows = False Me.dgvStat_Avis.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Avis.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", 7.0!) - 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.dgvStat_Avis.DefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Avis.DefaultCellStyle = DataGridViewCellStyle3 Me.dgvStat_Avis.Location = New System.Drawing.Point(699, 375) Me.dgvStat_Avis.Name = "dgvStat_Avis" Me.dgvStat_Avis.RowHeadersVisible = False @@ -3113,14 +643,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Empf.AllowUserToResizeRows = False Me.dgvStat_Empf.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Empf.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Empf.DefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + 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.dgvStat_Empf.DefaultCellStyle = DataGridViewCellStyle4 Me.dgvStat_Empf.Location = New System.Drawing.Point(468, 375) Me.dgvStat_Empf.Name = "dgvStat_Empf" Me.dgvStat_Empf.RowHeadersVisible = False @@ -3147,14 +677,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Abs.AllowUserToResizeRows = False Me.dgvStat_Abs.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Abs.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Abs.DefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Abs.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvStat_Abs.Location = New System.Drawing.Point(237, 375) Me.dgvStat_Abs.Name = "dgvStat_Abs" Me.dgvStat_Abs.RowHeadersVisible = False @@ -3181,14 +711,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Atr.AllowUserToResizeRows = False Me.dgvStat_Atr.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Atr.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Atr.DefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Atr.DefaultCellStyle = DataGridViewCellStyle6 Me.dgvStat_Atr.Location = New System.Drawing.Point(6, 375) Me.dgvStat_Atr.Name = "dgvStat_Atr" Me.dgvStat_Atr.RowHeadersVisible = False @@ -3656,6 +1186,7 @@ Partial Class frmKundenUebersichtZOLL ' 'pnlTop ' + Me.pnlTop.Controls.Add(Me.lblTESTSystem) Me.pnlTop.Controls.Add(Me.pic) Me.pnlTop.Controls.Add(Me.KdSearchBox1) Me.pnlTop.Controls.Add(Me.lblAbfertigungsverbot) @@ -3665,6 +1196,17 @@ Partial Class frmKundenUebersichtZOLL Me.pnlTop.Size = New System.Drawing.Size(1190, 32) Me.pnlTop.TabIndex = 209 ' + 'lblTESTSystem + ' + Me.lblTESTSystem.AutoSize = True + Me.lblTESTSystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTESTSystem.ForeColor = System.Drawing.Color.Red + Me.lblTESTSystem.Location = New System.Drawing.Point(484, 8) + Me.lblTESTSystem.Name = "lblTESTSystem" + Me.lblTESTSystem.Size = New System.Drawing.Size(128, 17) + Me.lblTESTSystem.TabIndex = 189 + Me.lblTESTSystem.Text = "! TESTSYSTEM !" + ' 'pic ' Me.pic.Cursor = System.Windows.Forms.Cursors.Hand @@ -3678,7 +1220,7 @@ Partial Class frmKundenUebersichtZOLL ' 'KdSearchBox1 ' - Me.KdSearchBox1._AllowSetValue = False + Me.KdSearchBox1._AllowSetValue = True Me.KdSearchBox1._autoSizeGross = False Me.KdSearchBox1._display_Name1 = False Me.KdSearchBox1._displayAVISO_Email = False @@ -3686,14 +1228,14 @@ Partial Class frmKundenUebersichtZOLL Me.KdSearchBox1._displayWoelflKd = True Me.KdSearchBox1._hideIfListEmpty = True Me.KdSearchBox1._loadKdData = False - Me.KdSearchBox1._ValueKdAndName = True + Me.KdSearchBox1._ValueKdAndName = False Me.KdSearchBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.KdSearchBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource Me.KdSearchBox1.BackColor = System.Drawing.SystemColors.Control Me.KdSearchBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.KdSearchBox1.dgvpos = "LEFT" Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.KdSearchBox1.KdName = Nothing + Me.KdSearchBox1.KdName = "" Me.KdSearchBox1.KdNr = "-1" Me.KdSearchBox1.kdNrField = Nothing Me.KdSearchBox1.KdNrNullInt = Nothing @@ -3803,59 +1345,9 @@ Partial Class frmKundenUebersichtZOLL Me.Name = "frmKundenUebersichtZOLL" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Kunden Ãœbersicht" - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - Me.grpAbfertigung.ResumeLayout(False) - Me.grpAbfertigung.PerformLayout() - Me.pnlVERAGSnspr.ResumeLayout(False) - Me.pnlVERAGSnspr.PerformLayout() Me.ContextMenuStrip1.ResumeLayout(False) - Me.Panel4.ResumeLayout(False) - Me.Panel4.PerformLayout() - Me.pnlAnh.ResumeLayout(False) - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() - Me.Panel3.ResumeLayout(False) - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).EndInit() Me.tabZolltarife.ResumeLayout(False) Me.tabKundendaten.ResumeLayout(False) - Me.tabKundendaten.PerformLayout() - Me.tbWeitereKundenDetails.ResumeLayout(False) - Me.TabPage4.ResumeLayout(False) - Me.TabPage4.PerformLayout() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit() - Me.pnlSperre.ResumeLayout(False) - Me.pnlSperre.PerformLayout() - Me.tbOffenePosten.ResumeLayout(False) - Me.pnl.ResumeLayout(False) - Me.pnl.PerformLayout() - Me.TabPage3.ResumeLayout(False) - CType(Me.dgvUmsatzbericht, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage8.ResumeLayout(False) - Me.grpAdresse.ResumeLayout(False) - Me.grpAdresse.PerformLayout() - Me.tbKontakt.ResumeLayout(False) - Me.TabPage10.ResumeLayout(False) - Me.TabPage10.PerformLayout() - Me.TabPage11.ResumeLayout(False) - Me.grpSonstiges.ResumeLayout(False) - Me.grpSonstiges.PerformLayout() - Me.tbcntrAllg.ResumeLayout(False) - Me.TabPage5.ResumeLayout(False) - CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage9.ResumeLayout(False) - CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).EndInit() - Me.Panel2.ResumeLayout(False) - Me.Panel2.PerformLayout() - Me.TabPage6.ResumeLayout(False) - Me.TabPage7.ResumeLayout(False) - Me.TabPage7.PerformLayout() - Me.TabPage2.ResumeLayout(False) - Me.TabPage2.PerformLayout() - CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip2.ResumeLayout(False) Me.tbcntrKundenDaten.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) @@ -3886,71 +1378,13 @@ Partial Class frmKundenUebersichtZOLL Me.ResumeLayout(False) End Sub - Friend WithEvents lblEmail2 As System.Windows.Forms.TextBox - Friend WithEvents lblEmail As System.Windows.Forms.TextBox - Friend WithEvents lblMobil As System.Windows.Forms.TextBox - Friend WithEvents lblFax As System.Windows.Forms.TextBox - Friend WithEvents lblTel As System.Windows.Forms.TextBox - Friend WithEvents lblUid As System.Windows.Forms.TextBox - Friend WithEvents lblPostfach As System.Windows.Forms.TextBox - Friend WithEvents lblLandPlzOrt As System.Windows.Forms.TextBox - Friend WithEvents lblStrasse As System.Windows.Forms.TextBox - Friend WithEvents lblFirmenname2 As System.Windows.Forms.TextBox - Friend WithEvents lblFirmenname1 As System.Windows.Forms.TextBox - Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox - Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox - Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox - Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox - Friend WithEvents grpAbfertigung As System.Windows.Forms.GroupBox - Friend WithEvents lblAviso As System.Windows.Forms.TextBox - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents lblNeutralisierung As System.Windows.Forms.TextBox - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents txtAbf_ErsteAbfertigung As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label41 As System.Windows.Forms.Label - Friend WithEvents rtbAbf_Besonderheiten As System.Windows.Forms.RichTextBox - Friend WithEvents Label37 As System.Windows.Forms.Label - Friend WithEvents lblSteuernummer As System.Windows.Forms.TextBox - Friend WithEvents lklGanzerText As System.Windows.Forms.LinkLabel - Friend WithEvents lblAnsprechpartner As System.Windows.Forms.TextBox - Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox - Friend WithEvents lblHoechstkredit As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label69 As System.Windows.Forms.Label - Friend WithEvents Label68 As System.Windows.Forms.Label - Friend WithEvents Label67 As System.Windows.Forms.Label - Friend WithEvents dgvOffenePosten As System.Windows.Forms.DataGridView - Friend WithEvents lblBonitaetsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblBonitaet As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblTESTSystem As System.Windows.Forms.Label Friend WithEvents tabZolltarife As System.Windows.Forms.TabPage Friend WithEvents tabKundendaten As System.Windows.Forms.TabPage Friend WithEvents tbcntrKundenDaten As System.Windows.Forms.TabControl Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon - Friend WithEvents lblNoGespr As System.Windows.Forms.Label - Friend WithEvents lblKdNr As System.Windows.Forms.TextBox - Friend WithEvents lblAufZoll As System.Windows.Forms.TextBox - Friend WithEvents lblAufEust As System.Windows.Forms.TextBox - Friend WithEvents lblZnv As System.Windows.Forms.TextBox - Friend WithEvents lblEORI As System.Windows.Forms.TextBox - Friend WithEvents lblKorrAdresse As System.Windows.Forms.LinkLabel - Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents Label7 As System.Windows.Forms.Label - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents Label9 As System.Windows.Forms.Label - Friend WithEvents lblKreditlimit As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents pnlZollTarife As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel - Friend WithEvents grpSonstiges As System.Windows.Forms.GroupBox - Friend WithEvents grpAdresse As System.Windows.Forms.GroupBox - Friend WithEvents dgvVollmachten As System.Windows.Forms.DataGridView - Friend WithEvents btncheckliste As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents dgvAnhaenge As System.Windows.Forms.DataGridView - Friend WithEvents btnAddAttach As System.Windows.Forms.Button Friend WithEvents TabPage1 As System.Windows.Forms.TabPage - Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents MenuStripSDL As System.Windows.Forms.MenuStrip Friend WithEvents mnueKunden As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnueZoll As System.Windows.Forms.ToolStripMenuItem @@ -3959,19 +1393,7 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents lblAbfertigungsverbot As System.Windows.Forms.Label Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents pic As System.Windows.Forms.PictureBox - Friend WithEvents lblFisk As System.Windows.Forms.Label - Friend WithEvents cbxFiskalabfertigung As VERAG_PROG_ALLGEMEIN.MyCheckbox - Friend WithEvents tbWeitereKundenDetails As System.Windows.Forms.TabControl - Friend WithEvents TabPage4 As System.Windows.Forms.TabPage - Friend WithEvents dgvOffertenSperrliste As System.Windows.Forms.DataGridView - Friend WithEvents tbOffenePosten As System.Windows.Forms.TabPage - Friend WithEvents pnl As System.Windows.Forms.Panel - Friend WithEvents TabPage3 As System.Windows.Forms.TabPage - Friend WithEvents dgvUmsatzbericht As System.Windows.Forms.DataGridView - Friend WithEvents lblKeineSperren As System.Windows.Forms.Label - Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnueStatistik As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tbStatistik As System.Windows.Forms.TabPage @@ -4007,53 +1429,14 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label26 As System.Windows.Forms.Label - Friend WithEvents txtUmsatzJahr As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label29 As System.Windows.Forms.Label - Friend WithEvents txtOffenePosten As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label28 As System.Windows.Forms.Label Friend WithEvents toolBearbeiten As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents cboFirmaFMZOLL As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents Label30 As System.Windows.Forms.Label - Friend WithEvents tbcntrAllg As System.Windows.Forms.TabControl - Friend WithEvents TabPage5 As System.Windows.Forms.TabPage - Friend WithEvents TabPage6 As System.Windows.Forms.TabPage - Friend WithEvents TabPage7 As System.Windows.Forms.TabPage - Friend WithEvents rtbLKWFreigabeSenden As System.Windows.Forms.RichTextBox - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox - Friend WithEvents Label31 As System.Windows.Forms.Label - Friend WithEvents lblInaktiv As System.Windows.Forms.Label - Friend WithEvents lblFwlFiskal As System.Windows.Forms.LinkLabel - Friend WithEvents txtOPFaellig As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label32 As System.Windows.Forms.Label - Friend WithEvents txtZahlungsziel As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label33 As System.Windows.Forms.Label Friend WithEvents rtbInfo As System.Windows.Forms.RichTextBox Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip Friend WithEvents KopierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnueFiskal As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tbFiskal As System.Windows.Forms.TabPage Friend WithEvents Label35 As System.Windows.Forms.Label - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents Button3 As System.Windows.Forms.Button - Friend WithEvents Button4 As System.Windows.Forms.Button - Friend WithEvents Button5 As System.Windows.Forms.Button - Friend WithEvents cbxKdAuftragsNr As System.Windows.Forms.CheckBox - Friend WithEvents btnBonitaetBearbeiten As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents dgvOfferteDetailsUebersicht As System.Windows.Forms.DataGridView - Friend WithEvents pnlSperre As System.Windows.Forms.Panel - Friend WithEvents FlatButton5 As System.Windows.Forms.Button - Friend WithEvents txtSperreGrund As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtSperreDat As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cbxSperreSetzen As System.Windows.Forms.CheckBox - Friend WithEvents Label36 As System.Windows.Forms.Label - Friend WithEvents txtDebitorennr As System.Windows.Forms.TextBox - Friend WithEvents Label38 As System.Windows.Forms.Label - Friend WithEvents usrCntlAnhaenge As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList - Friend WithEvents pnlAnh As System.Windows.Forms.Panel Friend WithEvents tmrFiskal As System.Windows.Forms.Timer - Friend WithEvents FlatButton6 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents ToolStripFormulare As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MANAGERToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator @@ -4071,7 +1454,6 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents VUBVERAGSpeditionAGToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents VeragCustomsServiceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripMenuItem19 As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents Label39 As System.Windows.Forms.Label Friend WithEvents mnueSpeditionsbuch As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tbRechnungen As System.Windows.Forms.TabPage Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel @@ -4086,67 +1468,21 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents pnlFiskal As System.Windows.Forms.Panel Friend WithEvents lblFiskGespeichert As System.Windows.Forms.Label Friend WithEvents btnSpeichern As System.Windows.Forms.Button - Friend WithEvents btnExcel As System.Windows.Forms.Button - Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel - Friend WithEvents Button6 As System.Windows.Forms.Button - Friend WithEvents Button7 As System.Windows.Forms.Button - Friend WithEvents btnPunkt2Save As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnUbersicht As System.Windows.Forms.Button - Friend WithEvents pnlVERAGSnspr As System.Windows.Forms.Panel - Friend WithEvents txtKundenbetreuerVertretung As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label34 As System.Windows.Forms.Label - Friend WithEvents txtKundenbetreuer As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnVeragAnspr As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents txtVorauskasse As System.Windows.Forms.TextBox - Friend WithEvents Label42 As System.Windows.Forms.Label - Friend WithEvents Label43 As System.Windows.Forms.Label - Friend WithEvents txtFixeKdAtrNr As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents TabPage2 As System.Windows.Forms.TabPage - Friend WithEvents dgvAufschub As VERAG_PROG_ALLGEMEIN.MyDatagridview - Friend WithEvents KtoId As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents Art As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents HZA As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents KontoNr As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents EORI As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents NL As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents txtKundenbetreuerTeam As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents BearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AnDakosyÃœbertragenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AufschubEORIBearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents UsrCntlOfferte1 As usrCntlOfferte - Friend WithEvents tbKontakt As TabControl - Friend WithEvents TabPage10 As TabPage - Friend WithEvents TabPage11 As TabPage - Friend WithEvents ucKundenKontakte As usrCntlKundenKontakte - Friend WithEvents TabPage8 As TabPage - Friend WithEvents TabPage9 As TabPage - Friend WithEvents dgvGestGarantie As DataGridView - Friend WithEvents Panel2 As Panel - Friend WithEvents Label11 As Label - Friend WithEvents Button8 As Button - Friend WithEvents txtT1VerzollungsadresseBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox - Friend WithEvents txtGGDatum As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents ContextMenuStrip3 As ContextMenuStrip Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem - Friend WithEvents Panel3 As Panel - Friend WithEvents FlatButton7 As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents FlatButton8 As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents txtSammelrechnung As TextBox - Friend WithEvents Label12 As Label - Friend WithEvents txtOpLeihgeld As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label44 As Label - Friend WithEvents UsrCntlKundenAvisoMailBenachrichtigung1 As usrCntlKundenAvisoMailBenachrichtigung Friend WithEvents ToolStripMenuItem5 As ToolStripMenuItem Friend WithEvents HochladenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ScannenToolStripMenuItem As ToolStripMenuItem - Friend WithEvents cbxGG As CheckBox Friend WithEvents ÄndernToolStripMenuItem As ToolStripMenuItem - Friend WithEvents Button9 As Button Friend WithEvents PDFLöschenToolStripMenuItem As ToolStripMenuItem - Friend WithEvents Label45 As Label - Friend WithEvents lblBonitaetRisikostufe As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label46 As Label - Friend WithEvents Panel4 As Panel + Friend WithEvents lblTESTSystem As Label + Public WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents usrcntlKundenuebersicht As usrCntlKundenuebersicht End Class diff --git a/SDL/kunden/frmKundenUebersichtZOLL.resx b/SDL/kunden/frmKundenUebersichtZOLL.resx index 58777028..84b0ffca 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.resx +++ b/SDL/kunden/frmKundenUebersichtZOLL.resx @@ -120,113 +120,6 @@ 361, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl - mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8 - i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI - p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym - hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq - Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u - XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ - 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3 - k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp - uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq - dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t - lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh - AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm - CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO - oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK - F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99 - O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW - pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P - rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E - XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1 - tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7 - kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl - NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5 - mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8 - sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH - vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH - PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu - a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW - etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v - zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg - HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ - 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T - sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q - EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3 - nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg - Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu - Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0 - 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1 - GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW - Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl - mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8 - i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI - p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym - hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq - Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u - XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ - 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3 - k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp - uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq - dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t - lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh - AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm - CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO - oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK - F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99 - O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW - pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P - rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E - XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1 - tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7 - kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl - NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5 - mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8 - sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH - vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH - PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu - a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW - etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v - zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg - HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ - 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T - sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q - EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3 - nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg - Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu - Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0 - 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1 - GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW - Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII= - - - - True - - - True - - - True - - - True - - - True - - - True - 518, 17 @@ -245,6 +138,7 @@ 62 + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index be64c4df..b38c7b64 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -112,6 +112,8 @@ Public Class frmKundenUebersichtZOLL timerOP.Interval = 500 timerOP.Enabled = False + lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then Select Case BER_STUFE @@ -121,53 +123,13 @@ Public Class frmKundenUebersichtZOLL End If - KdSearchBox1.initKdBox(Me, lblKdNr) + KdSearchBox1.initKdBox(Me) ', lblKdNr) If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ") - cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True) + ' cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True) End If - If False Then - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SEE_ALL_COMPANY_INFO", "SDL") Then - cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] ", True, "FMZOLL", True) - cboFirmaFMZOLL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) - Else - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "VERAG" - cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE Firma_ID <> 7", True, "FMZOLL", True) - Case "ATILLA" - cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE Firma_ID = 7", True, "FMZOLL", True) - Case Else 'Beide - cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] ", True, "FMZOLL", True) - End Select - - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID > 0 Then - cboFirmaFMZOLL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) - cboFirmaFMZOLL.Enabled = False - End If - End If - End If - - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then - btnBonitaetBearbeiten.Visible = True - End If - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Vorauskasse_anzeigen", "SDL") Then - txtVorauskasse.Visible = True - Label42.Visible = True - End If - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then - FlatButton7.Visible = True - End If - - - - txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"}) - txtGGDatum._value = Now.ToShortDateString - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then mnueRechnungen.Visible = False @@ -178,23 +140,9 @@ Public Class frmKundenUebersichtZOLL mnueOfferte.Visible = False ToolStripFormulare.Visible = False mnueFiskal.Visible = False - tbWeitereKundenDetails.TabPages.Remove(TabPage3) - tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten) - tbcntrAllg.TabPages.Remove(TabPage6) - tbcntrAllg.TabPages.Remove(TabPage7) End If - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then - btnPunkt2Save.Visible = True - rtbAbf_Besonderheiten.ReadOnly = False - End If - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_QSTeams_Bearbeiten", "SDL") Then - btnVeragAnspr.Visible = True - End If - - - pnlSperre.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTEN_SPERRE", "SDL") ' BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID) AddHandler KdSearchBox1.PropertyChanged, Sub() @@ -210,16 +158,16 @@ Public Class frmKundenUebersichtZOLL tbcntrKundenDaten.ItemSize = New Size(0, 1) tbcntrKundenDaten.SizeMode = TabSizeMode.Fixed - If kdNr > 0 Then setKD(kdNr) + If kdNr > 0 Then KdSearchBox1.KdNr = kdNr 'setKD(kdNr) Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" mnueZoll.Visible = False - btncheckliste.Visible = False - tbcntrAllg.Visible = False + 'btncheckliste.Visible = False + 'tbcntrAllg.Visible = False Case "IMEX" - FlatButton8.Visible = False - FlatButton7.Visible = False + 'FlatButton8.Visible = False + 'FlatButton7.Visible = False End Select @@ -229,15 +177,6 @@ Public Class frmKundenUebersichtZOLL - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("UID_EORI_Prüfung", Me) Then - If Not VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then - Button1.Visible = True - Button5.Visible = True - End If - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then Button3.Visible = True 'Geht nochn nicht - Button4.Visible = True - End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then btnUbersicht.Visible = True End If @@ -287,30 +226,32 @@ Public Class frmKundenUebersichtZOLL For Each m As ToolStripItem In MenuStripSDL.Items m.Enabled = False Next - initAbfVerb(False) + 'initAbfVerb(False) rtbInfo.Visible = False Exit Sub 'MsgBox("Keine Kundennummer ausgewählt!", vbCritical) 'Me.Close() : Exit Sub End If 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM & " - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME) - lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM initAllgemein() - initDGVUmsatz() - initDGVOffenePosten() - initDGVVollmachten() - initDGVGestGarantie() - 'initDGVOfferte() - initDGVAnhaenge() - initDGVOffertenSperrliste() - initSperre() + + + usrcntlKundenuebersicht.setKD(kdnr) + 'initDGVUmsatz() + 'initDGVOffenePosten() + 'initDGVVollmachten() + 'initDGVGestGarantie() + ''initDGVOfferte() + 'initDGVAnhaenge() + 'initDGVOffertenSperrliste() + 'initSperre() UsrCntlOfferte1.init(kdnr) RG_MONAT = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) tbcntrKundenDaten_TabIndexChanged(tbcntrKundenDaten, New EventArgs) - tbKontakt_TabIndexChanged(tbKontakt, New EventArgs) + ' tbKontakt_TabIndexChanged(tbKontakt, New EventArgs) 'If tbcntrKundenDaten.SelectedIndex = 1 Then initZollTarife() ' nur wenn der Tab aktiv, sonst dauert das Laden länger 'If tbcntrKundenDaten.SelectedIndex = 3 Then initStatistik() ' nur wenn der Tab aktiv, sonst dauert das Laden länger @@ -338,7 +279,7 @@ Public Class frmKundenUebersichtZOLL mnueZoll.Text &= vbNewLine & "(" & cntZoll & ")" End If Catch : End Try - btncheckliste.Focus() + ' btncheckliste.Focus() loaded = True End Sub @@ -388,207 +329,7 @@ Public Class frmKundenUebersichtZOLL ' Me.dataFirma.AcceptChanges() ' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture - lblKdNr.Text = checkNullStr(KUNDE.KundenNr) - txtDebitorennr.Text = checkNullStr(KUNDE.KundenNrZentrale) - KdSearchBox1.Text = checkNullStr(ADRESSE.Ordnungsbegriff) - - - lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1) - lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2) - - lblStrasse.Text = checkNullStr(ADRESSE.Straße) - lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort) - - lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach) - - - lblTel.Text = checkNullStr(ADRESSE.Telefon) - lblFax.Text = checkNullStr(ADRESSE.Telefax) - lblMobil.Text = checkNullStr(ADRESSE.Mobiltelefon) - lblEmail.Text = checkNullStr(ADRESSE.E_Mail) - lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2) - - lblInaktiv.Visible = False - If ADRESSE.Auswahl IsNot Nothing Then - lblInaktiv.Visible = (ADRESSE.Auswahl = "I") - End If - - - - lblUid.Text = "" - If checkNullStr(ADRESSE.UstIdKz) <> "" Or checkNullStr(ADRESSE.UstIdNr) <> "" Then - lblUid.Text = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr) - If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then - lblUid.Text &= " , geprüft am: " & checkNullStr(ADRESSE.UstIdGeprüft) - End If - End If - - lblSteuernummer.Text = "" - If checkNullStr(ADRESSE.Steuernummer) <> "" Then - lblSteuernummer.Text = checkNullStr(ADRESSE.Steuernummer) - End If - - lblEORI.Text = "" - If checkNullStr(KUNDE.EORITIN) <> "" Then - lblEORI.Text = (checkNullStr(KUNDE.EORITIN) & " " & checkNullStr(KUNDE.EORITIN_NL)).Trim - End If - If lblEORI.Text = "" Then Button4.Visible = False : Button3.Visible = False - If lblUid.Text = "" Then Button1.Visible = False : Button5.Visible = False - - lblZnv.Text = "" - If checkNullStr(KUNDE.ZulassungsNr_ZnV) <> "" Then - lblZnv.Text = checkNullStr(KUNDE.ZulassungsNr_ZnV) - End If - - lblAufEust.Text = "" - If checkNullStr(KUNDE.Aufschubkonto_EUSt) <> "" Then - lblAufEust.Text = checkNullStr(KUNDE.Aufschubkonto_EUSt) - End If - - lblAufZoll.Text = "" - If checkNullStr(KUNDE.Aufschubkonto_Zoll) <> "" Then - lblAufZoll.Text = checkNullStr(KUNDE.Aufschubkonto_Zoll) - End If - - lblAnsprechpartner.Text = "" - If checkNullStr(ADRESSE.Ansprechpartner) <> "" Then - lblAnsprechpartner.Text = If(ADRESSE.Anrede IsNot Nothing, ADRESSE.Anrede & " ", "") & checkNullStr(ADRESSE.Ansprechpartner) - End If - If checkNullStr(KUNDE.Abfertigungsverbot_Grund) <> "" Then - abfertigungsverbotText = checkNullStr(KUNDE.Abfertigungsverbot_Grund) - End If - rtbInfo.Text = abfertigungsverbotText - - gespraechsberichtText = checkNullStr(KUNDE.Gesprächsbericht) - lklGanzerText.Visible = False - lblNoGespr.Visible = True - - If (checkNullStr(KUNDE.Gesprächsbericht) <> "") Then - lklGanzerText.Visible = True - lblNoGespr.Visible = False - End If - - lblKorrAdresse.Visible = False - lblFwlFiskal.Visible = False - If (checkNullStr(KUNDE.KD_Korrespondenz) <> "") Then - korrAdresseText = checkNullStr(KUNDE.KD_Korrespondenz) - lblKorrAdresse.Visible = True - End If - ' txtAbweichndeFiskalAdresse.Text = "" - If (checkNullStr(KUNDE_ERW.kde_FirmenwortlautFiskal) <> "") Then - firmenwortlautFiskal = checkNullStr(KUNDE_ERW.kde_FirmenwortlautFiskal) - ' txtAbweichndeFiskalAdresse.Text = firmenwortlautFiskal - lblFwlFiskal.Visible = True - End If - - - Dim abfertigungsverbot As Boolean = checkNullBool(KUNDE.Abfertigungsverbot) - initAbfVerb(abfertigungsverbot) - Dim TMPText = checkNullStr(KUNDE.Besonderheiten) - ' TMPText = TMPText.Replace("/ ", "" & vbNewLine) - ' TMPText = TMPText.Replace("/", "" & vbNewLine) - rtbAbf_Besonderheiten.Text = TMPText - lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("N", CultureInfo.CurrentCulture) - - - 'lblAviso.Font = f_norm - 'lblNeutralisierung.Font = f_norm - 'txtVorauskasse.Font = f_norm - lblAviso.BackColor = Color.White - lblNeutralisierung.BackColor = Color.White - txtVorauskasse.BackColor = Color.White - - Select Case checkNullStr(KUNDE.Avis) - Case 0 : lblAviso.Text = "NEIN" - Case 1 : lblAviso.Text = "Voravis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold - Case 2 : lblAviso.Text = "Nachavis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold - Case 3 : lblAviso.Text = "Vor- und Nachavis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold - End Select - Select Case checkNullStr(KUNDE.Neutralisierung) - Case 0 : lblNeutralisierung.Text = "NEIN" - Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold - Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold - End Select - If KUNDE.Vorkasse Then - txtVorauskasse.Text = "JA" : txtVorauskasse.BackColor = Color.Yellow 'txtVorauskasse.Font = f_bold - Else - txtVorauskasse.Text = "NEIN" - End If - - - cbxFiskalabfertigung.Checked = checkNullBool(KUNDE.Fiskal) - cbxFiskalabfertigung.CheckedValue = checkNullBool(KUNDE.Fiskal) - ' - ' lblZollvollmacht.Text = "NEIN" - ' lblZVMErneuern.Visible = False - ' lblZollvollmacht.ForeColor = Color.Black - '' If checkNullBool(KUNDE.Zollvollmacht)) Then - ' lblZollvollmacht.Text = "" - 'If checkNullStr(KUNDE.Zollvollmacht vom)) <> "" Then - ' lblZollvollmacht.Text &= "vom " & checkNullStr(KUNDE.Zollvollmacht vom)) - ' Try - 'If CDate(checkNullStr(KUNDE.Zollvollmacht vom))) < CDate("01." & Now.Month & "." & Now.Year).AddYears(-2) Then - 'lblZVMErneuern.Visible = True - ' lblZollvollmacht.ForeColor = Color.Red - ' End If - ' Catch ex As Exception : End Try - ' End If - ' End If - lblBonitaet.Text = If(KUNDE.Bonität, "") - If lblBonitaet.Text = "0" Then lblBonitaet.Text = "" - If KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then - lblBonitaetsdatum.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString - Else - lblBonitaetsdatum.Text = "" - End If - lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_BonitaetsStufe, "") - - lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "") - - - txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "") - txtKundenbetreuerTeam.Text = If(KUNDE_ERW.kde_qsTeamName, "") - - - 'cbxAbf_SvsRvs.CheckedValue = checkNullBool(KUNDE.SVS) - - 'txtAbf_Vorlageprovision._value = checkNullStr(KUNDE.Vorlageprovision) - 'txtAbf_Kreditaufwendungen._value = checkNullStr(KUNDE.Kreditaufwendungen) - 'txtAbf_Bankspesen._value = checkNullStr(KUNDE.Bankspesen) - 'txtAbf_BankspesenMindestbetrag.Text = checkNullStr(KUNDE.Bankspesen_Mindestbetrag) - 'txtAbf_Waehrung.Text = checkNullStr(KUNDE.Währungscode) - - txtSammelrechnung.Text = "NEIN" - If CInt(KUNDE.Sammelrechnung) > 0 Then - Select Case CInt(KUNDE.Sammelrechnung) - Case 1 : txtSammelrechnung.Text = "1 - täglich" - Case 2 : txtSammelrechnung.Text = "2 - halbmonatlich" - Case 3 : txtSammelrechnung.Text = "3 - monatlich" - Case 4 : txtSammelrechnung.Text = "4 - Dekade" - Case 5 : txtSammelrechnung.Text = "5 - wöchentlich" - Case 6 : txtSammelrechnung.Text = "6 - Maut/Diesel" - Case 7 : txtSammelrechnung.Text = "7 - LKW" - Case Else : txtSammelrechnung.Text = "?" - End Select - - - End If - - - - txtZahlungsziel.Text = If(KUNDE.Zahlungsziel, "-") & " Tage" - - rtbLKWFreigabeSenden.Text = checkNullStr(KUNDE.DokumenteLKWFreigabe) - cbxKdAuftragsNr.Checked = checkNullBool(KUNDE_ERW.kde_VerwendetAuftragsNr) - txtFixeKdAtrNr.Text = If(KUNDE_ERW.kde_FixeAuftragsNr, "") - - UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) - - initAufschub() - - Button1.BackgroundImage = My.Resources.fragezeichen - Button3.BackgroundImage = My.Resources.fragezeichen ' Button4.Visible = False ' Button5.Visible = False Catch ex As Exception @@ -596,38 +337,6 @@ Public Class frmKundenUebersichtZOLL End Try End Sub - Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click - Try - Dim kdTmp As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) - kdTmp.DokumenteLKWFreigabe = rtbLKWFreigabeSenden.Text - kdTmp.SAVE() - Dim kdErwTmp As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) - kdErwTmp.kde_VerwendetAuftragsNr = cbxKdAuftragsNr.Checked - kdErwTmp.kde_FixeAuftragsNr = If(txtFixeKdAtrNr.Text <> "", txtFixeKdAtrNr.Text, Nothing) - kdErwTmp.SAVE() - Catch ex As Exception - MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message) - End Try - End Sub - - - Sub initAbfVerb(abfertigungsverbot) - If abfertigungsverbot Then - Me.BackColor = Color.Red - lblAbfertigungsverbot.Visible = True - rtbInfo.Visible = True - KdSearchBox1.ForeColor = Color.White - KdSearchBox1.BackColor = Color.Red - 'lblTARIFE.ForeColor = Color.White - Else - Me.BackColor = Color.White - lblAbfertigungsverbot.Visible = False - rtbInfo.Visible = False - KdSearchBox1.ForeColor = Color.Black - KdSearchBox1.BackColor = Color.White - 'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128) - End If - End Sub Sub showForm(t As String, Optional h As String = "") @@ -646,660 +355,7 @@ Public Class frmKundenUebersichtZOLL rtb.Text = t f.ShowDialog() End Sub - Sub initDGVAnhaenge() - usrCntlAnhaenge.INIT(kdNr) - TabPage8.Text = "Anhänge" - ' MsgBox(usrCntlAnhaenge.MyListBox1.Items.Count) - If usrCntlAnhaenge.MyListBox1.Items.Count > 0 Then TabPage8.Text &= " (" & usrCntlAnhaenge.MyListBox1.Items.Count & ")" - Exit Sub - With dgvAnhaenge - .DataSource = SQL.loadDgvBySql("SELECT [da_id],[da_pfad],[da_name] FROM [tblDatenarchiv] " & - " WHERE [da_KundenNr]='" & kdNr & "' and [da_kategorie]='DOKUMENTE' AND da_ordner ='ANHÄNGE' ", "FMZOLL") - .Columns("da_id").Visible = False - .Columns("da_pfad").Visible = False - .Columns("da_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("da_name").HeaderText = "Datei" - .ClearSelection() - AddHandler .CellDoubleClick, Sub() - If dgvAnhaenge.SelectedRows.Count > 0 Then - dgvAnhaenge.Cursor = Cursors.WaitCursor - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) - DS.OPEN_SINGLE(True) - dgvAnhaenge.Cursor = Cursors.Default - 'cDATENSERVER.openDataTMPByDatenarchivId(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) - End If - End Sub - - End With - End Sub - - Sub initDGVUmsatz() - With dgvUmsatzbericht - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub - Dim where = "" - If cboFirmaFMZOLL._value <> "" Then - where = " AND Firma_ID=" & cboFirmaFMZOLL._value - Else - where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") - End If - - 'Alles andere gesperrt - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "VERAG" - where &= " AND Firma_ID <> 7" - Case "ATILLA" - where &= " AND Firma_ID = 7" - End Select - .DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" & - " FROM [tblKundenumsatz] " & - " WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL") - .Columns(0).Visible = False - .Columns(11).Visible = False - .Columns(1).Width = 45 - .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns(2).Width = 75 - .Columns(2).DefaultCellStyle.Format = "N2" - .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns(3).Width = 75 - .Columns(3).DefaultCellStyle.Format = "N2" - .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns(4).Width = 75 - .Columns(4).DefaultCellStyle.Format = "N2" - .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns(5).Width = 55 - .Columns(5).DefaultCellStyle.Format = "N2" - .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns(6).Width = 75 - .Columns(6).DefaultCellStyle.Format = "N2" - .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns(7).Width = 60 - .Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns(8).Width = 55 - .Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns(8).HeaderText = "Rechng." - .Columns(9).Width = 53 - .Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns(9).HeaderText = "Gutschr." - .Columns(10).MinimumWidth = 65 - .Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - - If .RowCount > 0 Then - txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value) - Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":" - Else - txtUmsatzJahr.Text = "" - End If - End With - - End Sub - - Sub initDGVVollmachten() - With dgvVollmachten - .Columns.Clear() - - Dim where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " - 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - ' Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' " - ' Case Else : where = " AND art.kdvma_Firma<>'IMEX' " - 'End Select - - .DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " & - " FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 " & where & - " ORDER BY art.kdvma_id", "FMZOLL") - ' .RowTemplate.Height = 30 - .Columns("kdvm_Id").Visible = False - .Columns("kdvma_Id").Visible = False - .Columns("kdvm_KundenNr").Visible = False - .Columns("kdvm_datenarchivId").Visible = False - .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung" - .Columns("kdvm_erhalten").Width = 45 - .Columns("kdvm_erhalten").HeaderText = "Erhalten" - .Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("kdvm_erhalten_Datum").Width = 100 - .Columns("kdvm_erhalten_Datum").HeaderText = "Erhalten am" - .Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("kdvm_Info").Width = 200 - .Columns("kdvm_Info").HeaderText = "Info" - .Columns("kdvm_Info").Visible = False - - If True Then - - Dim c As New DataGridViewImageColumn - c.Name = "clmnTherefore" : c.HeaderText = "PDF" - ' c.Image = Nothing - c.DefaultCellStyle.NullValue = Nothing - c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - c.DefaultCellStyle.Tag = "Therefore anzeigen" - - .Columns.Add(c) - - For Each r As DataGridViewRow In .Rows - If r.Cells("kdvma_Id").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("kdvma_Id").Value) Then - Select Case r.Cells("kdvma_Id").Value - Case 1, 7, 2, 8, 4, 9, 12, 13 : DirectCast(r.Cells("clmnTherefore"), DataGridViewImageCell).Value = My.Resources.therefore1 - End Select - End If - Next - - - End If - If False Then - - Dim c As New DataGridViewImageColumn - c.Name = "clmnPDF" : c.HeaderText = "PDF" - c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - c.DefaultCellStyle.Tag = "PDF anzeigen" - .Columns.Add(c) - End If - - For Each r As DataGridViewRow In .Rows - If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then - r.DefaultCellStyle.ForeColor = Color.Gray - ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then - r.DefaultCellStyle.ForeColor = Color.Gray - ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then - r.DefaultCellStyle.ForeColor = Color.Red - End If - - If False Then - If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then - DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf - End If - End If - Next - End With - - End Sub - - Sub initDGVGestGarantie() - With dgvGestGarantie - .Columns.Clear() - - Dim where = "" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' " - Case Else : where = " AND art.kdvma_Firma<>'IMEX' " - End Select - - - .DataSource = VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.LOAD_LIST(kdNr) - If .Columns.Count = 0 Then Exit Sub - - .Columns("gg_Id").Visible = False - .Columns("gg_KundenNr").Visible = False - .Columns("gg_datenarchivId").Visible = False - .Columns("gg_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - .Columns("gg_erhalten_Datum").Width = 70 - .Columns("gg_erhalten_Datum").HeaderText = "Datum" - .Columns("gg_Zollamt").Width = 80 - .Columns("gg_Zollamt").HeaderText = "Zollamt" - .Columns("gg_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("gg_Info").HeaderText = "Info" - - - If True Then - Dim c As New DataGridViewImageColumn - c.Name = "clmnPDF" : c.HeaderText = "PDF" - c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - c.DefaultCellStyle.Tag = "PDF anzeigen" - .Columns.Add(c) - For Each r As DataGridViewRow In .Rows - If r.Cells("gg_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("gg_datenarchivId").Value) > 0 Then - DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf - End If - Next - End If - End With - clearGG() - End Sub - - Sub initDGVOffertenSperrliste() - With dgvOffertenSperrliste - Dim where As String = "" - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then - where = " AND Offerten.OffertenNr IN (5,6) " - End If - - - ' MsgBox("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ") - Dim dt As DataTable = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ", "FMZOLL") - - .DataSource = dt - - If .ColumnCount = 0 Then Exit Sub - - .Columns("OffertenNr").Visible = False - .Columns("Besonderheiten").Visible = False - ' .Columns("OffertenNr").HeaderText = "Nr" - .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("OffertenBez").HeaderText = "Bezeichnung" - .Columns("Gesperrt").HeaderText = "Sperre" - .Columns("Gesperrt").Width = 45 - .Columns("Gesperrt_Datum").HeaderText = "Datum" - .Columns("Gesperrt_Datum").Width = 100 - .Columns("Gesperrt_Grund").HeaderText = "Sperre-Grund" - .Columns("Gesperrt_Grund").Width = 320 - .Columns("Gesperrt").Visible = False - .Columns("Gesperrt_Grund").Visible = False - .Columns("Gesperrt_Datum").Visible = False - - lblKeineSperren.Visible = (.RowCount = 0) - - - For Each r As DataGridViewRow In .Rows - If r.Cells("Gesperrt").Value IsNot DBNull.Value Then - If CBool(r.Cells("Gesperrt").Value) = True Then - r.DefaultCellStyle.ForeColor = Color.Red - End If - End If - Next - - AddHandler dgvOffertenSperrliste.SelectionChanged, Sub() - initSperre() - End Sub - - - End With - - - End Sub - - - Private Sub initSperre() - cbxSperreSetzen.Checked = False - txtSperreDat.Text = "" - txtSperreGrund.Text = "" - dgvOfferteDetailsUebersicht.Columns.Clear() - If dgvOffertenSperrliste.SelectedRows.Count > 0 And dgvOffertenSperrliste.Columns.Count > 0 Then - If dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value IsNot DBNull.Value Then - cbxSperreSetzen.Checked = dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value - txtSperreDat.Text = If(dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Datum").Value IsNot DBNull.Value, dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Datum").Value, "") - txtSperreGrund.Text = dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Grund").Value - If dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value Then - dgvOffertenSperrliste.SelectedRows(0).DefaultCellStyle.SelectionForeColor = Color.Red - Else - dgvOffertenSperrliste.SelectedRows(0).DefaultCellStyle.SelectionForeColor = Color.Black - End If - End If - initDGVOfferteDetailsUebersicht(dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value) - End If - - - End Sub - - - 'Sub initDGVOfferte() - ' With dgvOfferte - ' .DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' ORDER BY Offerten.OffertenNr ", "FMZOLL") - ' .Columns("OffertenNr").Visible = False - ' .Columns("Besonderheiten").Visible = False - ' ' .Columns("OffertenNr").HeaderText = "Nr" - ' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - ' .Columns("OffertenBez").HeaderText = "Bezeichnung" - ' End With - ' ' initDGVOfferteDetails() - - - 'End Sub - - - 'Private Sub dgvOfferte_CellContentClick(sender As Object, e As EventArgs) - ' dgvOfferteDetails.Columns.Clear() - ' If dgvOfferte.SelectedRows.Count > 0 Then - ' initDGVOfferteDetails(dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value) - ' End If - 'End Sub - - - 'Sub initDGVOfferteDetails(Optional OffertenNr = -1) - ' With dgvOfferteDetails - ' .DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[PreisänderungProzent],[PreisAlt],[Preisänderung],[Geändert am],[Sachbearbeiter] " & - ' " FROM [Offertenpositionen] " & - ' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") - - ' FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) - ' FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) - - - - ' .Columns("LeistungsNr").Width = 30 - ' .Columns("LeistungsNr").HeaderText = "Nr" - ' .Columns("LeistungsBez").MinimumWidth = 180 - ' .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - ' .Columns("LeistungsBez").HeaderText = "Leistung" - ' .Columns("BerechnungsartNr").MinimumWidth = 130 - ' .Columns("Preis").Width = 60 - ' .Columns("Preis").DefaultCellStyle.Format = "N2" - ' .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - ' .Columns("Anzahl").Width = 50 - ' .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - ' .Columns("BGebLeistungsNr").Width = 60 - ' .Columns("BGebProzent").Width = 55 - ' .Columns("BGebProzent").HeaderText = "BGeb %" - ' .Columns("BGebProzent").DefaultCellStyle.Format = "P" - ' .Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - ' .Columns("BGebMinBetrag").Width = 60 - ' .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." - ' .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - ' .Columns("Eingegeben am").Visible = False - ' ' .Columns("Sachbearbeiter").Visible = False - ' ' .Columns("Geändert am").Visible = False - ' .Columns("Sachbearbeiter").Width = 65 - ' .Columns("Geändert am").Width = 95 - ' .Columns("PreisänderungProzent").Width = 65 - ' .Columns("PreisänderungProzent").HeaderText = "Preisänd.%" - ' .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" - ' .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - ' .Columns("PreisAlt").Width = 60 - ' .Columns("PreisAlt").DefaultCellStyle.Format = "N2" - ' .Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - ' .Columns("Preisänderung").Width = 60 - ' .Columns("Preisänderung").HeaderText = "PreisNeu" - ' .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - - ' End With - - 'End Sub - - Sub initDGVOfferteDetailsUebersicht(OffertenNr) - - With dgvOfferteDetailsUebersicht - ' .Columns.Clear() - .DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[Preis],/*[BerechnungsartNr],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[PreisänderungProzent],[PreisAlt],[Preisänderung],*/[Geändert am],[Sachbearbeiter] " & - " FROM [Offertenpositionen] " & - " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") - - ' FUNC.dgvCellToCbo(dgvOfferteDetailsUebersicht, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) - ' FUNC.dgvCellToCbo(dgvOfferteDetailsUebersicht, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) - - - - .Columns("LeistungsNr").Width = 30 - .Columns("LeistungsNr").HeaderText = "Nr" - .Columns("LeistungsBez").MinimumWidth = 180 - .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("LeistungsBez").HeaderText = "Leistung" - ' .Columns("BerechnungsartNr").MinimumWidth = 130 - .Columns("Preis").Width = 60 - .Columns("Preis").DefaultCellStyle.Format = "N2" - .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - '.Columns("Anzahl").Width = 50 - '.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - '.Columns("BGebLeistungsNr").Width = 60 - '.Columns("BGebProzent").Width = 55 - '.Columns("BGebProzent").HeaderText = "BGeb %" - '.Columns("BGebProzent").DefaultCellStyle.Format = "P" - '.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - '.Columns("BGebMinBetrag").Width = 60 - '.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." - '.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - '.Columns("Eingegeben am").Visible = False - - .Columns("Sachbearbeiter").Width = 65 - .Columns("Geändert am").Width = 95 - '.Columns("PreisänderungProzent").Width = 65 - '.Columns("PreisänderungProzent").HeaderText = "Preisänd.%" - '.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" - '.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - '.Columns("PreisAlt").Width = 60 - '.Columns("PreisAlt").DefaultCellStyle.Format = "N2" - '.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - '.Columns("Preisänderung").Width = 60 - '.Columns("Preisänderung").HeaderText = "PreisNeu" - '.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - - - End With - - End Sub - - - 'Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferte.SelectionChanged - ' If dgvOfferte.RowCount > 0 Then - ' rtbBesonderheiten.Text = checkNullStr(dgvOfferte.Rows(0).Cells("Besonderheiten").Value) - ' Else - ' rtbBesonderheiten.Text = "" - ' End If - - 'End Sub - - - Sub initDGVOffenePosten() - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : initDGVOffenePostenIMEX() - Case Else : initDGVOffenePostenVERAG() - End Select - End Sub - - Sub initDGVOffenePostenIMEX() - - With dgvOffenePosten - .Columns.Clear() - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub - Dim where = "" - - - - .DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR] ,[Buchungstext] " & - " FROM [Offene_Posten_DVO] " & - " WHERE KundenNr='" & KUNDE.KundenNr & "' " & where & " order BY datum DESC,[OP_ID] DESC", "FMZOLL") - If .Columns.Count > 0 Then - - .Columns("KdNr").Visible = False - - .Columns("Datum").Width = 70 - .Columns("Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - - .Columns("Betrag").Width = 75 - .Columns("Betrag").DefaultCellStyle.Format = "N2" - .Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - - '.Columns("OP-Saldo").Width = 75 - '.Columns("OP-Saldo").DefaultCellStyle.Format = "N2" - '.Columns("OP-Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns("OP-Saldo").Visible = False - - .Columns("Währung").Width = 60 - .Columns("Währung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - - - '.Columns("KumSaldoEUR").Width = 80 - '.Columns("KumSaldoEUR").DefaultCellStyle.Format = "N2" - '.Columns("KumSaldoEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns("KumSaldoEUR").Visible = False - - .Columns("Buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - - ' .Columns("KumSaldoEUR").ReadOnly = False - - ' If .RowCount > 0 Then - - - End If - - Dim zahlungsziel = 10 - Dim sumZZ As Double = 0 - Dim sumGes As Double = 0 - If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel - - - Try - For Each r As DataGridViewRow In .Rows - If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then - If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value) - End If - sumGes += CDbl(r.Cells("Betrag").Value) - Next - - Catch ex As Exception - MsgBox("OP: " & ex.Message) - End Try - - 'Dim OP_tmp As Double = 0 - - 'If cboFirmaFMZOLL._value <> "" Then - ' If .RowCount > 0 Then OP_tmp = If(.Rows(0).Cells("KumSaldoEUR").Value, 0) - 'End If - - - 'If OP_tmp > 0 Then - ' txtOffenePosten.Text = SQL.doSQL("SELECT sum([Saldo]) FROM [Offene_Posten_DVO] where KundenNr='" & KUNDE.KundenNr & "' ", "FMZOLL") - 'Else - ' txtOffenePosten.Text = "" - 'End If - - txtOPFaellig.Text = sumZZ.ToString("C") - If sumZZ > 0 Then - txtOPFaellig.ForeColor = Color.Red - Else - txtOPFaellig.ForeColor = Color.Black - End If - - If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") Else txtOffenePosten.Text = "" - 'If sumGes > 0 Then - ' txtOffenePosten.Text = sumGes.ToString("C") - 'Else - ' txtOffenePosten.Text = "" - 'End If - - - 'Dim c As New DataGridViewTextBoxColumn - 'c.Name = "clmnSaldo" - 'c.HeaderText = "Saldo" - '.Columns.Insert(6, c) - ' timerOP.Enabled = True - - End With - ' Label44.Visible = True - ' txtOpLeihgeld.Visible = True - pnl.Visible = True - - Dim op_tmp = SQL.getValueTxtBySql("SELECT isnull(sum(Saldo),0) as OP FROM [Offene_Posten_DVO] where KundenNr=" & kdNr & " AND konto like '5%'", "FMZOLL") - If IsNumeric(op_tmp) Then - txtOpLeihgeld.Text = CDbl(op_tmp).ToString("C2") - Else - txtOpLeihgeld.Text = "" - End If - End Sub - - - - Sub initDGVOffenePostenVERAG() - - - With dgvOffenePosten - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub - Dim where = "" - If cboFirmaFMZOLL._value <> "" Then - where = " AND Firma_ID=" & cboFirmaFMZOLL._value - Else - where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") - End If - - .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " & - " FROM [Offene Posten] " & - " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY Belegdatum DESC", "FMZOLL") - .Columns(0).Visible = False - - .Columns(1).Width = 70 - .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - - .Columns(3).Width = 75 - .Columns(3).DefaultCellStyle.Format = "N2" - .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - - .Columns(4).Width = 75 - .Columns(4).DefaultCellStyle.Format = "N2" - .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - - .Columns(5).Width = 60 - .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter - - .Columns(6).Width = 80 - .Columns(6).DefaultCellStyle.Format = "N2" - .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - - .Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - - Dim OP_tmp As Double = 0 - - If cboFirmaFMZOLL._value <> "" Then - If .RowCount > 0 Then OP_tmp = If(.Rows(0).Cells("KumSaldoEUR").Value, 0) - Else - Dim where2 = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") - Dim dt_OP As DataTable = SQL.loadDgvBySql("select isnull((select TOP 1 isnull(KumSaldoEUR,0) as abc FROM [Offene Posten] WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' and [Offene Posten].Firma_ID=tblFirma.Firma_ID ORDER BY Belegdatum DESC),0) From tblFirma WHERE 1=1 " & where2, "FMZOLL") - If dt_OP IsNot Nothing Then - For Each r In dt_OP.Rows - OP_tmp += r(0) - Next - End If - End If - - - ' If .RowCount > 0 Then - If OP_tmp > 0 Then - ' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value) - txtOffenePosten.Text = String.Format("{0:n}", OP_tmp) - Else - txtOffenePosten.Text = "" - End If - - Dim zahlungsziel = 10 - Dim sumZZ As Double = 0 - If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel - Try - For Each r As DataGridViewRow In .Rows - If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then - If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value) - End If - Next - Catch ex As Exception - MsgBox("OP: " & ex.Message) - End Try - txtOPFaellig.Text = sumZZ.ToString("C") - If sumZZ > 0 Then - txtOPFaellig.ForeColor = Color.Red - Else - txtOPFaellig.ForeColor = Color.Black - End If - End With - End Sub - - Private Sub dgvOffenePosten_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles dgvOffenePosten.RowPostPaint - If DateDiff(DateInterval.Day, CDate(dgvOffenePosten.Rows(e.RowIndex).Cells("Datum").Value), Now) > If(KUNDE.Zahlungsziel, 10) Then - If CDbl(dgvOffenePosten.Rows(e.RowIndex).Cells("Betrag").Value) > 0 Then - dgvOffenePosten.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red - End If - End If - End Sub - - - Public Sub initAufschub() - ' AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(kdNr) - dgvAufschub.Rows.Clear() - If AUFSCHUB IsNot Nothing Then - For Each AB In AUFSCHUB - Dim art = "" - Select Case AB.kdAkto_art - Case "10" : art = "10 - ZOLL/EUST" - Case "15" : art = "15 - ZOLL" - Case "20" : art = "20 - EUST" - End Select - dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin) - Next - End If - dgvAufschub.ClearSelection() - End Sub Function checkNullStr(o As Object) As String If Not IsDBNull(o) Then @@ -1325,11 +381,11 @@ Public Class frmKundenUebersichtZOLL - Private Sub lklGanzerText_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklGanzerText.LinkClicked + Private Sub lklGanzerText_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) showForm(gespraechsberichtText, "Gesprächsbericht") End Sub - Private Sub lblEmail_Click(sender As Object, e As EventArgs) Handles lblEmail.Click, lblEmail2.Click + Private Sub lblEmail_Click(sender As Object, e As EventArgs) If sender.text <> "" Then If MsgBox("Möchten Sie eine E-Mail an '" & sender.text & "' senden?", vbQuestion + vbYesNo) = vbYes Then @@ -1340,7 +396,7 @@ Public Class frmKundenUebersichtZOLL Dim tmprowindex As Integer = -1 - Private Sub DgvDelays_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvVollmachten.CellMouseDown + Private Sub DgvDelays_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Exit Sub Try If e.Button = Windows.Forms.MouseButtons.Right Then @@ -1353,68 +409,14 @@ Public Class frmKundenUebersichtZOLL End Sub ' - Private Sub dgvGestGarantie_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGestGarantie.CellDoubleClick - If dgvGestGarantie.SelectedRows.Count = 1 Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvGestGarantie.SelectedRows(0).Cells("gg_datenarchivId").Value) - DS.OPEN_SINGLE() - End If - End Sub - - - Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick - Dim tmprowindex As Integer = e.RowIndex - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me) Or - VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kunden_VM_bearbeiten", Me) Then - - If tmprowindex < 0 Then Exit Sub - Dim frmGrayOut = cProgramFunctions.grayoutForm(Me) - Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value) - Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, datum, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value) - If l.ShowDialog(frmGrayOut) = DialogResult.OK Then - initDGVVollmachten() - End If - frmGrayOut.Close() - - End If - - Exit Sub - - If dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then - ' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) - DS.OPEN_SINGLE(True) - - End If - - - End Sub - Private Sub dgvVollmachten_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellClick - Dim tmprowindex As Integer = e.RowIndex - - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "VERAG" - If tmprowindex >= 0 Then - If dgvVollmachten.Columns(e.ColumnIndex).Name = "clmnTherefore" Then - If dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value Is DBNull.Value Then Exit Sub - If dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value Is Nothing Then Exit Sub - cProgramFunctions.openThereforeNavigatorZollvollmachten(kdNr, dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value) - End If - End If - End Select - End Sub - - - - - Private Sub dgvUmsatzbericht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachten.SelectionChanged, dgvOffenePosten.SelectionChanged, dgvUmsatzbericht.SelectionChanged, dgvOfferteDetailsUebersicht.SelectionChanged ', dgvOffertenSperrliste.SelectionChanged + Private Sub dgvUmsatzbericht_SelectionChanged(sender As Object, e As EventArgs) ', dgvOffertenSperrliste.SelectionChanged sender.ClearSelection() End Sub - Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblKorrAdresse.LinkClicked + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) showForm(korrAdresseText, "Korrespondenz - Postadresse ") End Sub @@ -1553,60 +555,11 @@ Public Class frmKundenUebersichtZOLL End Sub - - Private Sub dgvUmsatzbericht_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUmsatzbericht.CellDoubleClick - 'MsgBox(e.RowIndex) - If e.RowIndex < 0 Then Exit Sub - Dim frmKundenUebersichtZollRg As New frmKundenUebersichtZollRg - frmKundenUebersichtZollRg.kdNr = dgvUmsatzbericht.Rows(e.RowIndex).Cells("KundenNr").Value - frmKundenUebersichtZollRg.jahr = dgvUmsatzbericht.Rows(e.RowIndex).Cells("Jahr").Value - frmKundenUebersichtZollRg.Show() - - End Sub - - - Private Sub lblTARIFE_Click(sender As Object, e As EventArgs) 'tbcntrKundenDaten.SelectedIndex = 1 mnueZoll.PerformClick() End Sub - Private Sub dgvVollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick - With dgvVollmachten - If .SelectedRows.Count > 0 Then - If Not .SelectedRows(0).Cells("kdvm_datenarchivId") Is DBNull.Value AndAlso IsNumeric(.SelectedRows(0).Cells("kdvm_datenarchivId")) Then - 'cDATENSERVER.openDataTMPByDatenarchivId(.SelectedRows(0).Cells("kdvm_datenarchivId")) - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(.SelectedRows(0).Cells("kdvm_datenarchivId")) - DS.OPEN_SINGLE(True) - - End If - End If - End With - End Sub - - - Private Sub btnAddAttach_Click(sender As Object, e As EventArgs) Handles btnAddAttach.Click - 'cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "ANHÄNGE", kdNr) - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ANHÄNGE", "", "", "", "Zoll_Kunde_Anhang", kdNr) - DS.uploadDataToDATENSERVERFileDialog() - initDGVAnhaenge() - End Sub - - - Private Sub dgvAnhaenge_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyUp - If e.KeyCode = Keys.Delete Then - If dgvAnhaenge.SelectedRows.Count > 0 Then - If vbYes = MsgBox("Möchten Sie die Datei wirklich löschen?", vbYesNoCancel) Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) - DS.DELETE_COMPLETE() - - 'cDATENSERVER.deleteFileByDatenarchivId(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) - initDGVAnhaenge() - End If - End If - End If - End Sub - @@ -1653,49 +606,6 @@ Public Class frmKundenUebersichtZOLL initKD() End Sub - Private Sub FlatButton2_Click_1(sender As Object, e As EventArgs) Handles btncheckliste.Click - 'MsgBox("Bitte vorübergehend die Funktion 'UID' im Hauptmenü verwenden!") - ' Exit Sub - 'If Not cbxFiskalabfertigung.Checked Then - ' lblFisk.Visible = True - ' Else - Dim found = False - Dim sperre = True - For Each r As DataGridViewRow In dgvOffertenSperrliste.Rows - If r.Cells("OffertenNr").Value = "26" Or r.Cells("OffertenNr").Value = "27" Then - found = True - If r.Cells("Gesperrt").Value Is DBNull.Value OrElse Not CBool(r.Cells("Gesperrt").Value) Then - sperre = False - End If - End If - Next - If found And sperre Then 'es wurde keine Fikale ohne Sperre gefunden, jedoch welche mit sperre -> Abbruch - Exit Sub - End If - If Not found Then - If vbYes = MsgBox("Der Kunde hat kein Fiskal-Offert, soll die Checkliste trotzdem geföffnet werden?", vbYesNoCancel) Then - found = True - End If - End If - - If found Then - Dim frmCheckliste As New frmCheckliste - frmCheckliste.ADRESSEN = ADRESSE - frmCheckliste.KUNDE = KUNDE - frmCheckliste.KUNDE_ERW = KUNDE_ERW - - ' frmCheckliste.kdNr = kdNr - ' frmCheckliste.userfullname = userfullname - frmCheckliste.Show() - Exit Sub - ' Else - ' MsgBox("Der Kunde hat hat Fiskal-Offert bzw. ist für die Abfertigungsart gesperrt.") - End If - - - ' End If - End Sub - Private Sub mnueZoll_Click(sender As Object, e As EventArgs) Handles mnueZoll.Click @@ -1728,16 +638,9 @@ Public Class frmKundenUebersichtZOLL End Sub - Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click - Dim frmKundenChangeMail As New frmKundenChangeMail - frmKundenChangeMail.txtKdNr.Text = lblKdNr.Text - frmKundenChangeMail.txtKdName.Text = KdSearchBox1.Text - ' frmKundenChangeMail.txtSB.Text = userfullname - frmKundenChangeMail.Show() - End Sub - Private Sub lblEmail_TextChanged(sender As Object, e As EventArgs) Handles lblEmail.TextChanged, lblEmail2.TextChanged + Private Sub lblEmail_TextChanged(sender As Object, e As EventArgs) sender.cursor = IIf(sender.text <> "", Cursors.Hand, Cursors.Default) End Sub @@ -1844,15 +747,6 @@ Public Class frmKundenUebersichtZOLL - Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged - If loaded Then - initDGVUmsatz() - initDGVOffenePosten() - End If - - End Sub - - @@ -1860,7 +754,7 @@ Public Class frmKundenUebersichtZOLL initKD() End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Private Sub Button1_Click(sender As Object, e As EventArgs) If ADRESSE.UstIdNr Is Nothing Then Exit Sub If ADRESSE.UstIdKz Is Nothing Then Exit Sub If ADRESSE.UstIdKz = "" Then Exit Sub @@ -1885,7 +779,7 @@ Public Class frmKundenUebersichtZOLL End Sub - Private Sub btnPruf_Click(sender As Object, e As EventArgs) Handles Button3.Click + Private Sub btnPruf_Click(sender As Object, e As EventArgs) 'Create an object that calls the name for the 'Web service used in the added Web Reference. @@ -2000,13 +894,11 @@ Public Class frmKundenUebersichtZOLL ' Me.Cursor = Cursors.Default End Sub - Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblFwlFiskal.LinkClicked + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) showForm(firmenwortlautFiskal, "Firmenwortlaut - Fiskal") End Sub - Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenToolStripMenuItem.Click - Clipboard.SetText(rtbAbf_Besonderheiten.SelectedText) - End Sub + Private Sub mnueFiskal_Click(sender As Object, e As EventArgs) Handles mnueFiskal.Click changeTab(4, mnueFiskal) @@ -2024,13 +916,13 @@ Public Class frmKundenUebersichtZOLL - Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + Private Sub Button5_Click(sender As Object, e As EventArgs) Me.Cursor = Cursors.WaitCursor printUID("AT", "U53187000", ADRESSE.UstIdKz, ADRESSE.UstIdNr) Me.Cursor = Cursors.Default End Sub - Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + Private Sub Button4_Click(sender As Object, e As EventArgs) Me.Cursor = Cursors.WaitCursor printEORI(KUNDE.EORITIN) Me.Cursor = Cursors.Default @@ -2094,13 +986,7 @@ Public Class frmKundenUebersichtZOLL - Private Sub tbWeitereKundenDetails_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbWeitereKundenDetails.SelectedIndexChanged - cboFirmaFMZOLL.Visible = (tbWeitereKundenDetails.SelectedIndex > 0) - Label30.Visible = (tbWeitereKundenDetails.SelectedIndex > 0) - btnExcel.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten) - End Sub - - Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click + Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Dim f1 As New frmBonitaet(kdNr) f1.ShowDialog(Me) @@ -2122,33 +1008,8 @@ Public Class frmKundenUebersichtZOLL End If End Sub - Private Sub FlatButton5_Click_1(sender As Object, e As EventArgs) Handles FlatButton5.Click - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("OFFERTEN_SPERRE", "SDL") > 0 Then - Exit Sub - End If - If dgvOffertenSperrliste.SelectedRows.Count > 0 Then - SQL.doSQL("UPDATE Offerten SET Gesperrt=" & CInt(cbxSperreSetzen.Checked) & ", Gesperrt_Datum=GETDATE(), Gesperrt_Grund='" & txtSperreGrund.Text & "' WHERE KundenNr=" & kdNr & " AND OffertenNr=" & dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value & "", "FMZOLL") - End If - End Sub - - Private Sub cbxSperreSetzen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSperreSetzen.Click - txtSperreDat.Text = Now.ToShortDateString & " " & Now.ToShortTimeString - End Sub - Private Sub cbxSperreSetzen_CheckedChanged_1(sender As Object, e As EventArgs) Handles cbxSperreSetzen.CheckedChanged - cbxSperreSetzen.ForeColor = If(cbxSperreSetzen.Checked, Color.Red, Color.Black) - End Sub - - - - Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click - Dim f As New frmBonitätsverlauf(kdNr) - f.Show() - AddHandler f.FormClosed, Sub() - setKD(kdNr) - End Sub - End Sub Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click @@ -2258,34 +1119,6 @@ Public Class frmKundenUebersichtZOLL tmrFiskal.Enabled = False End Sub - Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click - Me.Cursor = Cursors.WaitCursor - cProgramFunctions.genExcelFromDGV_NEW(dgvOffenePosten, False) - Me.Cursor = Cursors.Default - End Sub - - Private Sub LinkLabel1_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked - If trennungBesonderheiten Then - rtbAbf_Besonderheiten.Text = checkNullStr(KUNDE.Besonderheiten) - Else - rtbAbf_Besonderheiten.Text = checkNullStr(KUNDE.Besonderheiten).Replace(" / ", vbNewLine) - End If - trennungBesonderheiten = Not trennungBesonderheiten - End Sub - - Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click - rtbAbf_Besonderheiten.ZoomFactor += 0.2 - End Sub - - Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click - rtbAbf_Besonderheiten.ZoomFactor -= 0.2 - End Sub - - Private Sub btnPunkt2Save_Click(sender As Object, e As EventArgs) Handles btnPunkt2Save.Click - SQL.doSQL("UPDATE Kunden SET Besonderheiten='" & rtbAbf_Besonderheiten.Text & "', [Sachbearbeiter] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "', [Geändert am] ='" & Now & "' WHERE KundenNr=" & kdNr, "FMZOLL") - setKD(kdNr) - End Sub - Private Sub btnUbersicht_Click(sender As Object, e As EventArgs) Handles btnUbersicht.Click Dim rptKundeUebersicht As New SDL.rptKundeUebersicht(kdNr) Dim rpt As New frmPrintLayout @@ -2297,7 +1130,7 @@ Public Class frmKundenUebersichtZOLL rpt.Show() End Sub - Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles btnVeragAnspr.Click + Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Dim f As New frmKundeTeamZuordnung(KUNDE_ERW.kde_qsTeamId, KUNDE_ERW.kde_qsTeamMAId) If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then @@ -2323,15 +1156,6 @@ Public Class frmKundenUebersichtZOLL End Sub - Private Sub cbxKdAuftragsNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKdAuftragsNr.CheckedChanged - txtFixeKdAtrNr.Enabled = cbxKdAuftragsNr.Checked - End Sub - - Private Sub ToolStripMenuItem2_Click_2(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click - If dgvAufschub.SelectedRows.Count > 0 Then - Clipboard.SetText(dgvAufschub.SelectedRows(0).Cells("HZA").Value & dgvAufschub.SelectedRows(0).Cells("KontoNr").Value) - End If - End Sub Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", "SDL") = 0 Then @@ -2377,101 +1201,18 @@ Public Class frmKundenUebersichtZOLL timer_EORI.Enabled = False End Sub - Private Sub tbKontakt_TabIndexChanged(sender As Object, e As EventArgs) Handles tbKontakt.SelectedIndexChanged - If tbKontakt.SelectedTab Is TabPage11 Then - initKdKontakSpeziell() - End If - End Sub - Sub initKdKontakSpeziell() - 'TabPage11.Controls.Clear() - ucKundenKontakte.init(kdNr) - End Sub - Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click - If (txtT1VerzollungsadresseBestimmungszollstelle._value <> "" Or cbxGG.Checked) And txtGGDatum._value <> "" Then - Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien - If Button9.Visible Then - If dgvGestGarantie.SelectedRows.Count = 1 Then - GG = New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) - Else - Exit Sub - End If - End If - GG.gg_KundenNr = kdNr - GG.gg_erhalten_Datum = txtGGDatum._value - GG.gg_Zollamt = If(cbxGG.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value) - - If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt) Then - MsgBox("Der Eintrag existiert bereits!") - Exit Sub - End If - - GG.gg_Info = txtT1VerzollungsadresseBestimmungszollstelle.GET_VALUE_OnlyReturn(txtT1VerzollungsadresseBestimmungszollstelle._value, False) - If GG.SAVE Then - txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE("") - setKD(kdNr) - txtT1VerzollungsadresseBestimmungszollstelle.Focus() - End If - clearGG() - End If - End Sub - - Private Sub txtT1VerzollungsadresseBestimmungszollstelle_KeyDown(sender As Object, e As KeyEventArgs) Handles txtT1VerzollungsadresseBestimmungszollstelle.KeyDown, txtGGDatum.KeyDown - If e.KeyCode = Keys.Return Then - If txtT1VerzollungsadresseBestimmungszollstelle.usrcntl.Visible Then Exit Sub - Button8.PerformClick() - End If - End Sub - - Private Sub dgvGestGarantie_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvGestGarantie.CellMouseClick - If e.RowIndex < 0 Then Exit Sub - DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True - If e.Button = Windows.Forms.MouseButtons.Right Then - If dgvGestGarantie.SelectedRows.Count > 0 Then - ContextMenuStrip3.Show(Cursor.Position) - End If - End If - End Sub - - Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click - If dgvGestGarantie.SelectedRows.Count > 0 Then - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me) Then - If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then - Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) - If GG.DELETE() Then - setKD(kdNr) - End If - End If - End If - End If - End Sub - - Private Sub UsrCntlOfferte1_OfferteChanged() Handles UsrCntlOfferte1.OfferteChanged - initDGVOffertenSperrliste() - End Sub - - Private Sub FlatButton8_Click(sender As Object, e As EventArgs) Handles FlatButton8.Click + Private Sub FlatButton8_Click(sender As Object, e As EventArgs) cProgramFunctions.openThereforeNavigatorTarifnummern(kdNr) End Sub - Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) Handles FlatButton7.Click + Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) cProgramFunctions.openThereforeNavigatorKudnenInfo(kdNr) End Sub - - Private Sub timerOP_Tick(sender As Object, e As EventArgs) Handles timerOP.Tick - Dim sumGes As Double = 0 - timerOP.Enabled = False - For cnt = dgvOffenePosten.Rows.Count - 1 To 0 Step -1 - Dim r As DataGridViewRow = dgvOffenePosten.Rows(cnt) - sumGes += CDbl(r.Cells("Betrag").Value) - r.Cells("clmnSaldo").Value = sumGes - Next - End Sub - Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", "SDL") = 0 Then If kdNr > 0 Then @@ -2485,85 +1226,5 @@ Public Class frmKundenUebersichtZOLL End If End Sub - Private Sub HochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HochladenToolStripMenuItem.Click - If dgvGestGarantie.SelectedRows.Count = 1 Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr) - If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then - Dim gg As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) - gg.gg_datenarchivId = DS.da_id - gg.SAVE() - initDGVGestGarantie() - End If - End If - End Sub - - Private Sub ScannenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ScannenToolStripMenuItem.Click - If dgvGestGarantie.SelectedRows.Count = 1 Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr) - Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan") - frmScan.DefaultFileName = DS.da_name - - If frmScan.ShowDialog(Me) = DialogResult.OK Then - If frmScan.ReturnValue IsNot Nothing Then - Dim Filename = DS.da_name - If frmScan.fileName <> "" Then Filename = frmScan.fileName - If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then - Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) - GG.gg_datenarchivId = DS.da_id - GG.SAVE() - initDGVGestGarantie() - End If - End If - End If - - End If - End Sub - - Private Sub cbxGG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGG.CheckedChanged - txtT1VerzollungsadresseBestimmungszollstelle.Enabled = Not cbxGG.Checked - End Sub - - Private Sub ÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÄndernToolStripMenuItem.Click - If dgvGestGarantie.SelectedRows.Count = 1 Then - Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) - - txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(GG.gg_Zollamt) - txtGGDatum.Text = GG.gg_erhalten_Datum - cbxGG.Checked = (GG.gg_Zollamt = "GENERELL") - Button8.Text = "Ändern" - Button9.Visible = True - - End If - End Sub - - Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click - - clearGG - - End Sub - - Sub clearGG() - txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE("") - txtGGDatum.Text = "" - cbxGG.Checked = False - Button8.Text = "Hinzufügen" - Button9.Visible = False - End Sub - - Private Sub PDFLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFLöschenToolStripMenuItem.Click - If dgvGestGarantie.SelectedRows.Count = 1 Then - If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then - - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr) - DS.DELETE_COMPLETE() - - Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) - GG.gg_datenarchivId = Nothing - GG.SAVE() - - initDGVGestGarantie() - End If - End If - End Sub End Class diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index f25f667f..21fe6194 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -127,6 +127,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard = New System.Windows.Forms.TabPage() Me.Panel3 = New System.Windows.Forms.Panel() Me.tbDokumente = New System.Windows.Forms.TabPage() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() @@ -136,7 +137,7 @@ Partial Class frmKundenblatt Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -161,7 +162,6 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -1199,7 +1199,7 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1162, 588) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True @@ -1211,7 +1211,7 @@ Partial Class frmKundenblatt Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.Size = New System.Drawing.Size(1156, 582) Me.usrcntlKarten.TabIndex = 0 ' 'tbLKW @@ -1455,11 +1455,31 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1162, 588) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True ' + 'scanHKA + ' + Me.scanHKA._ARCHIV = True + Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHKA._DATENSERVER_ORDNER = "MDM" + Me.scanHKA._DATENSERVER_UOrdner1 = Nothing + Me.scanHKA._DATENSERVER_UOrdner2 = Nothing + Me.scanHKA._DATENSERVER_UOrdner3 = Nothing + Me.scanHKA._MULTI_FILES = True + Me.scanHKA._TEXT_PDF = "Handelskammerauszug" + Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHKA.BackColor = System.Drawing.Color.White + Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHKA.Location = New System.Drawing.Point(17, 163) + Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHKA.Name = "scanHKA" + Me.scanHKA.Size = New System.Drawing.Size(168, 24) + Me.scanHKA.TabIndex = 4 + ' 'Label3 ' Me.Label3.AutoSize = True @@ -1872,26 +1892,6 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'scanHKA - ' - Me.scanHKA._ARCHIV = True - Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHKA._DATENSERVER_ORDNER = "MDM" - Me.scanHKA._DATENSERVER_UOrdner1 = Nothing - Me.scanHKA._DATENSERVER_UOrdner2 = Nothing - Me.scanHKA._DATENSERVER_UOrdner3 = Nothing - Me.scanHKA._MULTI_FILES = True - Me.scanHKA._TEXT_PDF = "Handelskammerauszug" - Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHKA.BackColor = System.Drawing.Color.White - Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHKA.Location = New System.Drawing.Point(17, 163) - Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHKA.Name = "scanHKA" - Me.scanHKA.Size = New System.Drawing.Size(168, 24) - Me.scanHKA.TabIndex = 4 - ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/kunden/frmNeuerKunde.vb b/SDL/kunden/frmNeuerKunde.vb index 58c3df55..e34dac52 100644 --- a/SDL/kunden/frmNeuerKunde.vb +++ b/SDL/kunden/frmNeuerKunde.vb @@ -29,10 +29,10 @@ ComboBox2.changeItem("3000000-3099990") ComboBox1.changeItem("5701") Case "ATILLA" - ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: Sonstige", "100000-199999")) - ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999")) - ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) - ComboBox2.changeItem("728000-799999") + ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999")) + 'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999")) + ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) + ComboBox2.changeItem("100000-199999") ComboBox1.changeItem("4801") Case Else If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then @@ -98,7 +98,7 @@ If username = "" Then username = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) + 1 + kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1 If kdnr > 0 Then @@ -209,8 +209,10 @@ Case "VERAG" If ComboBox2._value = "100000-199999" Then ComboBox1.changeItem("4801") + ElseIf ComboBox2._value = "1000000-1999999" Then + ComboBox1.changeItem("5501") Else - If ComboBox1._value = "4801" Then ComboBox1.changeItem("4803") + If ComboBox1._value = "4801" Then ComboBox1.changeItem("4803") End If End Select diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb new file mode 100644 index 00000000..458b87d2 --- /dev/null +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -0,0 +1,2913 @@ + +Partial Class usrCntlKundenuebersicht + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht)) + 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 DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService() + Me.btnExcel = New System.Windows.Forms.Button() + Me.lblInaktiv = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.tbWeitereKundenDetails = New System.Windows.Forms.TabControl() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.dgvOfferteDetailsUebersicht = New System.Windows.Forms.DataGridView() + Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView() + Me.lblKeineSperren = New System.Windows.Forms.Label() + Me.pnlSperre = New System.Windows.Forms.Panel() + Me.FlatButton5 = New System.Windows.Forms.Button() + Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxSperreSetzen = New System.Windows.Forms.CheckBox() + Me.Label36 = New System.Windows.Forms.Label() + Me.Label67 = New System.Windows.Forms.Label() + Me.tbOffenePosten = New System.Windows.Forms.TabPage() + Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() + Me.pnl = New System.Windows.Forms.Panel() + Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label44 = New System.Windows.Forms.Label() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.dgvUmsatzbericht = New System.Windows.Forms.DataGridView() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.pnlAnh = New System.Windows.Forms.Panel() + Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.dgvAnhaenge = New System.Windows.Forms.DataGridView() + Me.btnAddAttach = New System.Windows.Forms.Button() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.FlatButton8 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton7 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.lblKdNr = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.grpAbfertigung = New System.Windows.Forms.GroupBox() + Me.rtbInfo = New System.Windows.Forms.RichTextBox() + Me.lblAbfertigungsverbot = New System.Windows.Forms.Label() + Me.Label45 = New System.Windows.Forms.Label() + Me.txtSammelrechnung = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtVorauskasse = New System.Windows.Forms.TextBox() + Me.Label42 = New System.Windows.Forms.Label() + Me.pnlVERAGSnspr = New System.Windows.Forms.Panel() + Me.txtKundenbetreuerTeam = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnVeragAnspr = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtKundenbetreuerVertretung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label34 = New System.Windows.Forms.Label() + Me.txtKundenbetreuer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnPunkt2Save = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label33 = New System.Windows.Forms.Label() + Me.txtOPFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label32 = New System.Windows.Forms.Label() + Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label29 = New System.Windows.Forms.Label() + Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label28 = New System.Windows.Forms.Label() + Me.cbxFiskalabfertigung = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.lblFisk = New System.Windows.Forms.Label() + Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblAviso = New System.Windows.Forms.TextBox() + Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label41 = New System.Windows.Forms.Label() + Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() + Me.lblNeutralisierung = New System.Windows.Forms.TextBox() + Me.Label37 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.lblNoGespr = New System.Windows.Forms.Label() + Me.lklGanzerText = New System.Windows.Forms.LinkLabel() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.Label68 = New System.Windows.Forms.Label() + Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label69 = New System.Windows.Forms.Label() + Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblBonitaetRisikostufe = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() + Me.grpAdresse = New System.Windows.Forms.GroupBox() + Me.tbKontakt = New System.Windows.Forms.TabControl() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.lblAnsprechpartner = New System.Windows.Forms.TextBox() + Me.lblMobil = New System.Windows.Forms.TextBox() + Me.lblFax = New System.Windows.Forms.TextBox() + Me.lblEmail2 = New System.Windows.Forms.TextBox() + Me.lblEmail = New System.Windows.Forms.TextBox() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.lblTel = New System.Windows.Forms.TextBox() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.Label38 = New System.Windows.Forms.Label() + Me.txtDebitorennr = New System.Windows.Forms.TextBox() + Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel() + Me.lblKorrAdresse = New System.Windows.Forms.LinkLabel() + Me.lblFirmenname1 = New System.Windows.Forms.TextBox() + Me.lblPostfach = New System.Windows.Forms.TextBox() + Me.lblLandPlzOrt = New System.Windows.Forms.TextBox() + Me.lblStrasse = New System.Windows.Forms.TextBox() + Me.lblFirmenname2 = New System.Windows.Forms.TextBox() + Me.lblTESTSystem = New System.Windows.Forms.Label() + Me.grpSonstiges = New System.Windows.Forms.GroupBox() + Me.Button10 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tbcntrAllg = New System.Windows.Forms.TabControl() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.dgvVollmachten = New System.Windows.Forms.DataGridView() + Me.TabPage9 = New System.Windows.Forms.TabPage() + Me.dgvGestGarantie = New System.Windows.Forms.DataGridView() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.cbxGG = New System.Windows.Forms.CheckBox() + Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Button8 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.Label43 = New System.Windows.Forms.Label() + Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox() + Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() + Me.Label31 = New System.Windows.Forms.Label() + Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtFixeKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.Label6 = New System.Windows.Forms.Label() + Me.lblSteuernummer = New System.Windows.Forms.TextBox() + Me.lblAufZoll = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.lblAufEust = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.lblZnv = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.Label4 = New System.Windows.Forms.Label() + Me.lblUid = New System.Windows.Forms.TextBox() + Me.lblEORI = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.Button2 = New System.Windows.Forms.Button() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() + Me.cntxtAddSdl.SuspendLayout() + Me.tbWeitereKundenDetails.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlSperre.SuspendLayout() + Me.tbOffenePosten.SuspendLayout() + CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl.SuspendLayout() + Me.TabPage3.SuspendLayout() + CType(Me.dgvUmsatzbericht, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage8.SuspendLayout() + Me.pnlAnh.SuspendLayout() + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel3.SuspendLayout() + Me.grpAbfertigung.SuspendLayout() + Me.pnlVERAGSnspr.SuspendLayout() + Me.Panel4.SuspendLayout() + Me.grpAdresse.SuspendLayout() + Me.tbKontakt.SuspendLayout() + Me.TabPage10.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage11.SuspendLayout() + Me.grpSonstiges.SuspendLayout() + Me.tbcntrAllg.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage9.SuspendLayout() + CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + Me.TabPage6.SuspendLayout() + Me.TabPage7.SuspendLayout() + Me.TabPage2.SuspendLayout() + CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.ContextMenuStrip3.SuspendLayout() + Me.ContextMenuStrip2.SuspendLayout() + Me.SuspendLayout() + ' + 'cntxtAddSdl + ' + Me.cntxtAddSdl.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DToolStripMenuItem}) + Me.cntxtAddSdl.Name = "cntxtAddSdl" + Me.cntxtAddSdl.Size = New System.Drawing.Size(82, 26) + ' + 'DToolStripMenuItem + ' + Me.DToolStripMenuItem.Name = "DToolStripMenuItem" + Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22) + Me.DToolStripMenuItem.Text = "d" + ' + 'CheckVatService1 + ' + Me.CheckVatService1.Credentials = Nothing + Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService" + Me.CheckVatService1.UseDefaultCredentials = False + ' + 'btnExcel + ' + Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnExcel.FlatAppearance.BorderSize = 0 + Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnExcel.Location = New System.Drawing.Point(856, 371) + Me.btnExcel.Name = "btnExcel" + Me.btnExcel.Size = New System.Drawing.Size(20, 20) + Me.btnExcel.TabIndex = 214 + Me.btnExcel.UseVisualStyleBackColor = True + Me.btnExcel.Visible = False + ' + 'lblInaktiv + ' + Me.lblInaktiv.AutoSize = True + Me.lblInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblInaktiv.ForeColor = System.Drawing.Color.Red + Me.lblInaktiv.Location = New System.Drawing.Point(128, 0) + Me.lblInaktiv.Name = "lblInaktiv" + Me.lblInaktiv.Size = New System.Drawing.Size(143, 17) + Me.lblInaktiv.TabIndex = 220 + Me.lblInaktiv.Text = "! KUNDE INAKTIV !" + Me.lblInaktiv.Visible = False + ' + 'Label30 + ' + Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.Location = New System.Drawing.Point(882, 371) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(82, 13) + Me.Label30.TabIndex = 221 + Me.Label30.Text = "Daten für Firma:" + Me.Label30.Visible = False + ' + 'cboFirmaFMZOLL + ' + Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing + Me.cboFirmaFMZOLL._allowFreiText = False + Me.cboFirmaFMZOLL._value = "" + Me.cboFirmaFMZOLL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirmaFMZOLL.FormattingEnabled = True + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(970, 368) + Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(198, 21) + Me.cboFirmaFMZOLL.TabIndex = 219 + Me.cboFirmaFMZOLL.Visible = False + ' + 'tbWeitereKundenDetails + ' + Me.tbWeitereKundenDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tbWeitereKundenDetails.Controls.Add(Me.TabPage4) + Me.tbWeitereKundenDetails.Controls.Add(Me.tbOffenePosten) + Me.tbWeitereKundenDetails.Controls.Add(Me.TabPage3) + Me.tbWeitereKundenDetails.Controls.Add(Me.TabPage8) + Me.tbWeitereKundenDetails.Location = New System.Drawing.Point(509, 368) + Me.tbWeitereKundenDetails.Name = "tbWeitereKundenDetails" + Me.tbWeitereKundenDetails.SelectedIndex = 0 + Me.tbWeitereKundenDetails.Size = New System.Drawing.Size(669, 326) + Me.tbWeitereKundenDetails.TabIndex = 218 + ' + 'TabPage4 + ' + Me.TabPage4.BackColor = System.Drawing.Color.White + Me.TabPage4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TabPage4.Controls.Add(Me.dgvOfferteDetailsUebersicht) + Me.TabPage4.Controls.Add(Me.dgvOffertenSperrliste) + Me.TabPage4.Controls.Add(Me.lblKeineSperren) + Me.TabPage4.Controls.Add(Me.pnlSperre) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(661, 300) + Me.TabPage4.TabIndex = 4 + Me.TabPage4.Text = "Offerte/Sperrliste" + ' + 'dgvOfferteDetailsUebersicht + ' + Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True + Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White + Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvOfferteDetailsUebersicht.Dock = System.Windows.Forms.DockStyle.Right + Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(179, 3) + Me.dgvOfferteDetailsUebersicht.MultiSelect = False + Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" + Me.dgvOfferteDetailsUebersicht.ReadOnly = True + Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False + Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(477, 257) + Me.dgvOfferteDetailsUebersicht.TabIndex = 6 + ' + 'dgvOffertenSperrliste + ' + Me.dgvOffertenSperrliste.AllowUserToAddRows = False + Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False + Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True + Me.dgvOffertenSperrliste.AllowUserToResizeRows = False + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White + Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvOffertenSperrliste.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(3, 3) + Me.dgvOffertenSperrliste.MultiSelect = False + Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" + Me.dgvOffertenSperrliste.ReadOnly = True + Me.dgvOffertenSperrliste.RowHeadersVisible = False + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) + Me.dgvOffertenSperrliste.TabIndex = 4 + ' + 'lblKeineSperren + ' + Me.lblKeineSperren.AutoSize = True + Me.lblKeineSperren.Location = New System.Drawing.Point(11, 17) + Me.lblKeineSperren.Name = "lblKeineSperren" + Me.lblKeineSperren.Size = New System.Drawing.Size(136, 13) + Me.lblKeineSperren.TabIndex = 5 + Me.lblKeineSperren.Text = "Keine Sperren eingetragen!" + ' + 'pnlSperre + ' + Me.pnlSperre.BackColor = System.Drawing.Color.White + Me.pnlSperre.Controls.Add(Me.FlatButton5) + Me.pnlSperre.Controls.Add(Me.txtSperreGrund) + Me.pnlSperre.Controls.Add(Me.txtSperreDat) + Me.pnlSperre.Controls.Add(Me.cbxSperreSetzen) + Me.pnlSperre.Controls.Add(Me.Label36) + Me.pnlSperre.Controls.Add(Me.Label67) + Me.pnlSperre.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlSperre.Location = New System.Drawing.Point(3, 260) + Me.pnlSperre.Name = "pnlSperre" + Me.pnlSperre.Size = New System.Drawing.Size(653, 35) + Me.pnlSperre.TabIndex = 7 + ' + 'FlatButton5 + ' + Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton5.ForeColor = System.Drawing.Color.Black + Me.FlatButton5.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.FlatButton5.Location = New System.Drawing.Point(583, 7) + Me.FlatButton5.Name = "FlatButton5" + Me.FlatButton5.Size = New System.Drawing.Size(68, 25) + Me.FlatButton5.TabIndex = 207 + Me.FlatButton5.Tag = "" + Me.FlatButton5.Text = "Speichern" + Me.FlatButton5.UseVisualStyleBackColor = True + ' + 'txtSperreGrund + ' + Me.txtSperreGrund._DateTimeOnly = False + Me.txtSperreGrund._numbersOnly = False + Me.txtSperreGrund._numbersOnlyKommastellen = "" + Me.txtSperreGrund._Prozent = False + Me.txtSperreGrund._ShortDateNew = False + Me.txtSperreGrund._ShortDateOnly = False + Me.txtSperreGrund._TimeOnly = False + Me.txtSperreGrund._value = Nothing + Me.txtSperreGrund._Waehrung = False + Me.txtSperreGrund._WaehrungZeichen = True + Me.txtSperreGrund.ForeColor = System.Drawing.Color.Black + Me.txtSperreGrund.Location = New System.Drawing.Point(309, 7) + Me.txtSperreGrund.MaxLineLength = -1 + Me.txtSperreGrund.MaxLines_Warning = "" + Me.txtSperreGrund.MaxLines_Warning_Label = Nothing + Me.txtSperreGrund.Name = "txtSperreGrund" + Me.txtSperreGrund.Size = New System.Drawing.Size(268, 20) + Me.txtSperreGrund.TabIndex = 1 + ' + 'txtSperreDat + ' + Me.txtSperreDat._DateTimeOnly = False + Me.txtSperreDat._numbersOnly = False + Me.txtSperreDat._numbersOnlyKommastellen = "" + Me.txtSperreDat._Prozent = False + Me.txtSperreDat._ShortDateNew = False + Me.txtSperreDat._ShortDateOnly = False + Me.txtSperreDat._TimeOnly = False + Me.txtSperreDat._value = Nothing + Me.txtSperreDat._Waehrung = False + Me.txtSperreDat._WaehrungZeichen = True + Me.txtSperreDat.BackColor = System.Drawing.Color.White + Me.txtSperreDat.ForeColor = System.Drawing.Color.Black + Me.txtSperreDat.Location = New System.Drawing.Point(129, 7) + Me.txtSperreDat.MaxLineLength = -1 + Me.txtSperreDat.MaxLines_Warning = "" + Me.txtSperreDat.MaxLines_Warning_Label = Nothing + Me.txtSperreDat.Name = "txtSperreDat" + Me.txtSperreDat.ReadOnly = True + Me.txtSperreDat.Size = New System.Drawing.Size(100, 20) + Me.txtSperreDat.TabIndex = 1 + ' + 'cbxSperreSetzen + ' + Me.cbxSperreSetzen.AutoSize = True + Me.cbxSperreSetzen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxSperreSetzen.Location = New System.Drawing.Point(11, 9) + Me.cbxSperreSetzen.Name = "cbxSperreSetzen" + Me.cbxSperreSetzen.Size = New System.Drawing.Size(63, 17) + Me.cbxSperreSetzen.TabIndex = 0 + Me.cbxSperreSetzen.Text = "Sperre" + Me.cbxSperreSetzen.UseVisualStyleBackColor = True + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label36.Location = New System.Drawing.Point(233, 10) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(73, 13) + Me.Label36.TabIndex = 184 + Me.Label36.Text = "Sperre-Grund:" + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label67.Location = New System.Drawing.Point(80, 10) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(41, 13) + Me.Label67.TabIndex = 184 + Me.Label67.Text = "Datum:" + ' + 'tbOffenePosten + ' + Me.tbOffenePosten.Controls.Add(Me.dgvOffenePosten) + Me.tbOffenePosten.Controls.Add(Me.pnl) + Me.tbOffenePosten.Location = New System.Drawing.Point(4, 22) + Me.tbOffenePosten.Name = "tbOffenePosten" + Me.tbOffenePosten.Padding = New System.Windows.Forms.Padding(3) + Me.tbOffenePosten.Size = New System.Drawing.Size(661, 300) + Me.tbOffenePosten.TabIndex = 0 + Me.tbOffenePosten.Text = "Offene Posten" + Me.tbOffenePosten.UseVisualStyleBackColor = True + ' + 'dgvOffenePosten + ' + Me.dgvOffenePosten.AllowUserToAddRows = False + Me.dgvOffenePosten.AllowUserToDeleteRows = False + Me.dgvOffenePosten.AllowUserToResizeRows = False + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White + Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvOffenePosten.Location = New System.Drawing.Point(3, 31) + Me.dgvOffenePosten.MultiSelect = False + Me.dgvOffenePosten.Name = "dgvOffenePosten" + Me.dgvOffenePosten.ReadOnly = True + Me.dgvOffenePosten.RowHeadersVisible = False + Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOffenePosten.Size = New System.Drawing.Size(655, 266) + Me.dgvOffenePosten.TabIndex = 181 + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.txtOpLeihgeld) + Me.pnl.Controls.Add(Me.Label44) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl.Location = New System.Drawing.Point(3, 3) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(655, 28) + Me.pnl.TabIndex = 189 + Me.pnl.Visible = False + ' + 'txtOpLeihgeld + ' + Me.txtOpLeihgeld._DateTimeOnly = False + Me.txtOpLeihgeld._numbersOnly = False + Me.txtOpLeihgeld._numbersOnlyKommastellen = "" + Me.txtOpLeihgeld._Prozent = False + Me.txtOpLeihgeld._ShortDateNew = False + Me.txtOpLeihgeld._ShortDateOnly = False + Me.txtOpLeihgeld._TimeOnly = False + Me.txtOpLeihgeld._value = Nothing + Me.txtOpLeihgeld._Waehrung = False + Me.txtOpLeihgeld._WaehrungZeichen = True + Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White + Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black + Me.txtOpLeihgeld.Location = New System.Drawing.Point(141, 9) + Me.txtOpLeihgeld.MaxLineLength = -1 + Me.txtOpLeihgeld.MaxLines_Warning = "" + Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing + Me.txtOpLeihgeld.Name = "txtOpLeihgeld" + Me.txtOpLeihgeld.ReadOnly = True + Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13) + Me.txtOpLeihgeld.TabIndex = 210 + Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label44.Location = New System.Drawing.Point(8, 9) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(127, 13) + Me.Label44.TabIndex = 209 + Me.Label44.Text = "Offene Posten - Leihgeld:" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.dgvUmsatzbericht) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(661, 300) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "Umsatzbericht" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'dgvUmsatzbericht + ' + Me.dgvUmsatzbericht.AllowUserToAddRows = False + Me.dgvUmsatzbericht.AllowUserToDeleteRows = False + Me.dgvUmsatzbericht.AllowUserToOrderColumns = True + Me.dgvUmsatzbericht.AllowUserToResizeRows = False + DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White + Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvUmsatzbericht.Location = New System.Drawing.Point(3, 3) + Me.dgvUmsatzbericht.MultiSelect = False + Me.dgvUmsatzbericht.Name = "dgvUmsatzbericht" + Me.dgvUmsatzbericht.ReadOnly = True + Me.dgvUmsatzbericht.RowHeadersVisible = False + Me.dgvUmsatzbericht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvUmsatzbericht.Size = New System.Drawing.Size(655, 294) + Me.dgvUmsatzbericht.TabIndex = 3 + ' + 'TabPage8 + ' + Me.TabPage8.Controls.Add(Me.pnlAnh) + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage8.Size = New System.Drawing.Size(661, 300) + Me.TabPage8.TabIndex = 5 + Me.TabPage8.Text = "Anhänge" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'pnlAnh + ' + Me.pnlAnh.Controls.Add(Me.usrCntlAnhaenge) + Me.pnlAnh.Controls.Add(Me.dgvAnhaenge) + Me.pnlAnh.Controls.Add(Me.btnAddAttach) + Me.pnlAnh.Controls.Add(Me.Panel3) + Me.pnlAnh.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlAnh.Location = New System.Drawing.Point(3, 3) + Me.pnlAnh.Name = "pnlAnh" + Me.pnlAnh.Size = New System.Drawing.Size(655, 294) + Me.pnlAnh.TabIndex = 216 + ' + 'usrCntlAnhaenge + ' + Me.usrCntlAnhaenge._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.usrCntlAnhaenge._DATENSERVER_ORDNER = "KD_ANHÄNGE" + Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL" + Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = "" + Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = "" + Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White + Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlAnhaenge.Cursor = System.Windows.Forms.Cursors.Default + Me.usrCntlAnhaenge.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrCntlAnhaenge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.usrCntlAnhaenge.Location = New System.Drawing.Point(0, 0) + Me.usrCntlAnhaenge.Margin = New System.Windows.Forms.Padding(0) + Me.usrCntlAnhaenge.Name = "usrCntlAnhaenge" + Me.usrCntlAnhaenge.Size = New System.Drawing.Size(655, 255) + Me.usrCntlAnhaenge.TabIndex = 215 + ' + 'dgvAnhaenge + ' + Me.dgvAnhaenge.AllowUserToAddRows = False + Me.dgvAnhaenge.AllowUserToDeleteRows = False + Me.dgvAnhaenge.AllowUserToResizeRows = False + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White + Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnhaenge.Location = New System.Drawing.Point(286, 46) + Me.dgvAnhaenge.MultiSelect = False + Me.dgvAnhaenge.Name = "dgvAnhaenge" + Me.dgvAnhaenge.ReadOnly = True + Me.dgvAnhaenge.RowHeadersVisible = False + Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhaenge.Size = New System.Drawing.Size(170, 193) + Me.dgvAnhaenge.TabIndex = 189 + Me.dgvAnhaenge.Visible = False + ' + 'btnAddAttach + ' + Me.btnAddAttach.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnAddAttach.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.btnAddAttach.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAddAttach.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddAttach.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddAttach.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddAttach.Location = New System.Drawing.Point(601, 46) + Me.btnAddAttach.Name = "btnAddAttach" + Me.btnAddAttach.Size = New System.Drawing.Size(29, 22) + Me.btnAddAttach.TabIndex = 195 + Me.btnAddAttach.UseVisualStyleBackColor = True + Me.btnAddAttach.Visible = False + ' + 'Panel3 + ' + Me.Panel3.Controls.Add(Me.FlatButton8) + Me.Panel3.Controls.Add(Me.FlatButton7) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel3.Location = New System.Drawing.Point(0, 255) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(655, 39) + Me.Panel3.TabIndex = 217 + ' + 'FlatButton8 + ' + Me.FlatButton8.allowBorder = False + Me.FlatButton8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton8.FlatAppearance.BorderSize = 0 + Me.FlatButton8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton8.ForeColor = System.Drawing.Color.Black + Me.FlatButton8.Image = Global.SDL.My.Resources.Resources.therefore1 + Me.FlatButton8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton8.Location = New System.Drawing.Point(5, 3) + Me.FlatButton8.Name = "FlatButton8" + Me.FlatButton8.Size = New System.Drawing.Size(118, 33) + Me.FlatButton8.TabIndex = 213 + Me.FlatButton8.Tag = "" + Me.FlatButton8.Text = "Tarifnummern" + Me.FlatButton8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.FlatButton8.UseVisualStyleBackColor = True + ' + 'FlatButton7 + ' + Me.FlatButton7.allowBorder = False + Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton7.FlatAppearance.BorderSize = 0 + Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton7.ForeColor = System.Drawing.Color.Black + Me.FlatButton7.Image = Global.SDL.My.Resources.Resources.therefore1 + Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton7.Location = New System.Drawing.Point(144, 3) + Me.FlatButton7.Name = "FlatButton7" + Me.FlatButton7.Size = New System.Drawing.Size(118, 33) + Me.FlatButton7.TabIndex = 212 + Me.FlatButton7.Tag = "" + Me.FlatButton7.Text = "Kundeninfo" + Me.FlatButton7.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.FlatButton7.UseVisualStyleBackColor = True + ' + 'lblKdNr + ' + Me.lblKdNr.BackColor = System.Drawing.Color.White + Me.lblKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKdNr.Location = New System.Drawing.Point(412, -2) + Me.lblKdNr.Name = "lblKdNr" + Me.lblKdNr.ReadOnly = True + Me.lblKdNr.Size = New System.Drawing.Size(88, 19) + Me.lblKdNr.TabIndex = 215 + Me.lblKdNr.Text = "150000" + Me.lblKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(368, 3) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(34, 13) + Me.Label13.TabIndex = 212 + Me.Label13.Text = "KdNr:" + ' + 'grpAbfertigung + ' + Me.grpAbfertigung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grpAbfertigung.BackColor = System.Drawing.Color.White + Me.grpAbfertigung.Controls.Add(Me.rtbInfo) + Me.grpAbfertigung.Controls.Add(Me.lblAbfertigungsverbot) + Me.grpAbfertigung.Controls.Add(Me.Label45) + Me.grpAbfertigung.Controls.Add(Me.txtSammelrechnung) + Me.grpAbfertigung.Controls.Add(Me.Label12) + Me.grpAbfertigung.Controls.Add(Me.txtVorauskasse) + Me.grpAbfertigung.Controls.Add(Me.Label42) + Me.grpAbfertigung.Controls.Add(Me.pnlVERAGSnspr) + Me.grpAbfertigung.Controls.Add(Me.btnPunkt2Save) + Me.grpAbfertigung.Controls.Add(Me.Button7) + Me.grpAbfertigung.Controls.Add(Me.Button6) + Me.grpAbfertigung.Controls.Add(Me.LinkLabel1) + Me.grpAbfertigung.Controls.Add(Me.txtZahlungsziel) + Me.grpAbfertigung.Controls.Add(Me.Label33) + Me.grpAbfertigung.Controls.Add(Me.txtOPFaellig) + Me.grpAbfertigung.Controls.Add(Me.Label32) + Me.grpAbfertigung.Controls.Add(Me.txtUmsatzJahr) + Me.grpAbfertigung.Controls.Add(Me.Label29) + Me.grpAbfertigung.Controls.Add(Me.txtOffenePosten) + Me.grpAbfertigung.Controls.Add(Me.Label28) + Me.grpAbfertigung.Controls.Add(Me.cbxFiskalabfertigung) + Me.grpAbfertigung.Controls.Add(Me.lblFisk) + Me.grpAbfertigung.Controls.Add(Me.lblKreditlimit) + Me.grpAbfertigung.Controls.Add(Me.Label1) + Me.grpAbfertigung.Controls.Add(Me.lblAviso) + Me.grpAbfertigung.Controls.Add(Me.txtAbf_ErsteAbfertigung) + Me.grpAbfertigung.Controls.Add(Me.Label2) + Me.grpAbfertigung.Controls.Add(Me.Label41) + Me.grpAbfertigung.Controls.Add(Me.rtbAbf_Besonderheiten) + Me.grpAbfertigung.Controls.Add(Me.lblNeutralisierung) + Me.grpAbfertigung.Controls.Add(Me.Label37) + Me.grpAbfertigung.Controls.Add(Me.Label3) + Me.grpAbfertigung.Controls.Add(Me.lblNoGespr) + Me.grpAbfertigung.Controls.Add(Me.lklGanzerText) + Me.grpAbfertigung.Controls.Add(Me.Panel4) + Me.grpAbfertigung.Cursor = System.Windows.Forms.Cursors.Default + Me.grpAbfertigung.Location = New System.Drawing.Point(509, 3) + Me.grpAbfertigung.Name = "grpAbfertigung" + Me.grpAbfertigung.Size = New System.Drawing.Size(670, 362) + Me.grpAbfertigung.TabIndex = 213 + Me.grpAbfertigung.TabStop = False + Me.grpAbfertigung.Text = "Abfertigung" + ' + 'rtbInfo + ' + Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.rtbInfo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.rtbInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.rtbInfo.ForeColor = System.Drawing.Color.Black + Me.rtbInfo.Location = New System.Drawing.Point(293, 3) + Me.rtbInfo.Name = "rtbInfo" + Me.rtbInfo.ReadOnly = True + Me.rtbInfo.Size = New System.Drawing.Size(220, 26) + Me.rtbInfo.TabIndex = 233 + Me.rtbInfo.Text = "" + Me.rtbInfo.Visible = False + ' + 'lblAbfertigungsverbot + ' + Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red + Me.lblAbfertigungsverbot.Cursor = System.Windows.Forms.Cursors.Help + Me.lblAbfertigungsverbot.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) + Me.lblAbfertigungsverbot.ForeColor = System.Drawing.Color.White + Me.lblAbfertigungsverbot.Location = New System.Drawing.Point(106, 3) + Me.lblAbfertigungsverbot.Name = "lblAbfertigungsverbot" + Me.lblAbfertigungsverbot.Size = New System.Drawing.Size(188, 26) + Me.lblAbfertigungsverbot.TabIndex = 232 + Me.lblAbfertigungsverbot.Text = "! ABFERTIGUNGSVERBOT !" + Me.lblAbfertigungsverbot.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblAbfertigungsverbot.Visible = False + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label45.Location = New System.Drawing.Point(99, 329) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(0, 13) + Me.Label45.TabIndex = 229 + ' + 'txtSammelrechnung + ' + Me.txtSammelrechnung.BackColor = System.Drawing.Color.White + Me.txtSammelrechnung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtSammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSammelrechnung.ForeColor = System.Drawing.Color.Black + Me.txtSammelrechnung.Location = New System.Drawing.Point(104, 267) + Me.txtSammelrechnung.Name = "txtSammelrechnung" + Me.txtSammelrechnung.ReadOnly = True + Me.txtSammelrechnung.Size = New System.Drawing.Size(115, 13) + Me.txtSammelrechnung.TabIndex = 228 + Me.txtSammelrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(7, 267) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(92, 13) + Me.Label12.TabIndex = 227 + Me.Label12.Text = "Sammelrechnung:" + ' + 'txtVorauskasse + ' + Me.txtVorauskasse.BackColor = System.Drawing.Color.White + Me.txtVorauskasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtVorauskasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtVorauskasse.ForeColor = System.Drawing.Color.Black + Me.txtVorauskasse.Location = New System.Drawing.Point(358, 267) + Me.txtVorauskasse.Name = "txtVorauskasse" + Me.txtVorauskasse.ReadOnly = True + Me.txtVorauskasse.Size = New System.Drawing.Size(127, 13) + Me.txtVorauskasse.TabIndex = 226 + Me.txtVorauskasse.Visible = False + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Location = New System.Drawing.Point(270, 267) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(71, 13) + Me.Label42.TabIndex = 225 + Me.Label42.Text = "Vorauskasse:" + Me.Label42.Visible = False + ' + 'pnlVERAGSnspr + ' + Me.pnlVERAGSnspr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlVERAGSnspr.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnlVERAGSnspr.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlVERAGSnspr.Controls.Add(Me.txtKundenbetreuerTeam) + Me.pnlVERAGSnspr.Controls.Add(Me.btnVeragAnspr) + Me.pnlVERAGSnspr.Controls.Add(Me.txtKundenbetreuerVertretung) + Me.pnlVERAGSnspr.Controls.Add(Me.Label34) + Me.pnlVERAGSnspr.Controls.Add(Me.txtKundenbetreuer) + Me.pnlVERAGSnspr.Location = New System.Drawing.Point(491, 266) + Me.pnlVERAGSnspr.Name = "pnlVERAGSnspr" + Me.pnlVERAGSnspr.Size = New System.Drawing.Size(178, 95) + Me.pnlVERAGSnspr.TabIndex = 224 + ' + 'txtKundenbetreuerTeam + ' + Me.txtKundenbetreuerTeam._DateTimeOnly = False + Me.txtKundenbetreuerTeam._numbersOnly = False + Me.txtKundenbetreuerTeam._numbersOnlyKommastellen = "" + Me.txtKundenbetreuerTeam._Prozent = False + Me.txtKundenbetreuerTeam._ShortDateNew = False + Me.txtKundenbetreuerTeam._ShortDateOnly = False + Me.txtKundenbetreuerTeam._TimeOnly = False + Me.txtKundenbetreuerTeam._value = "-" + Me.txtKundenbetreuerTeam._Waehrung = False + Me.txtKundenbetreuerTeam._WaehrungZeichen = True + Me.txtKundenbetreuerTeam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtKundenbetreuerTeam.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtKundenbetreuerTeam.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtKundenbetreuerTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKundenbetreuerTeam.ForeColor = System.Drawing.Color.Black + Me.txtKundenbetreuerTeam.Location = New System.Drawing.Point(6, 25) + Me.txtKundenbetreuerTeam.MaxLineLength = -1 + Me.txtKundenbetreuerTeam.MaxLines_Warning = "" + Me.txtKundenbetreuerTeam.MaxLines_Warning_Label = Nothing + Me.txtKundenbetreuerTeam.Name = "txtKundenbetreuerTeam" + Me.txtKundenbetreuerTeam.ReadOnly = True + Me.txtKundenbetreuerTeam.Size = New System.Drawing.Size(165, 13) + Me.txtKundenbetreuerTeam.TabIndex = 226 + Me.txtKundenbetreuerTeam.Text = "-" + ' + 'btnVeragAnspr + ' + Me.btnVeragAnspr.allowBorder = False + Me.btnVeragAnspr.BackgroundImage = Global.SDL.My.Resources.Resources.stift + Me.btnVeragAnspr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnVeragAnspr.FlatAppearance.BorderSize = 0 + Me.btnVeragAnspr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVeragAnspr.ForeColor = System.Drawing.Color.Black + Me.btnVeragAnspr.Location = New System.Drawing.Point(158, 7) + Me.btnVeragAnspr.Name = "btnVeragAnspr" + Me.btnVeragAnspr.Size = New System.Drawing.Size(15, 12) + Me.btnVeragAnspr.TabIndex = 225 + Me.btnVeragAnspr.UseVisualStyleBackColor = True + Me.btnVeragAnspr.Visible = False + ' + 'txtKundenbetreuerVertretung + ' + Me.txtKundenbetreuerVertretung._DateTimeOnly = False + Me.txtKundenbetreuerVertretung._numbersOnly = False + Me.txtKundenbetreuerVertretung._numbersOnlyKommastellen = "" + Me.txtKundenbetreuerVertretung._Prozent = False + Me.txtKundenbetreuerVertretung._ShortDateNew = False + Me.txtKundenbetreuerVertretung._ShortDateOnly = False + Me.txtKundenbetreuerVertretung._TimeOnly = False + Me.txtKundenbetreuerVertretung._value = "-" + Me.txtKundenbetreuerVertretung._Waehrung = False + Me.txtKundenbetreuerVertretung._WaehrungZeichen = True + Me.txtKundenbetreuerVertretung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtKundenbetreuerVertretung.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtKundenbetreuerVertretung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtKundenbetreuerVertretung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKundenbetreuerVertretung.ForeColor = System.Drawing.Color.Black + Me.txtKundenbetreuerVertretung.Location = New System.Drawing.Point(6, 63) + Me.txtKundenbetreuerVertretung.MaxLineLength = -1 + Me.txtKundenbetreuerVertretung.MaxLines_Warning = "" + Me.txtKundenbetreuerVertretung.MaxLines_Warning_Label = Nothing + Me.txtKundenbetreuerVertretung.Multiline = True + Me.txtKundenbetreuerVertretung.Name = "txtKundenbetreuerVertretung" + Me.txtKundenbetreuerVertretung.ReadOnly = True + Me.txtKundenbetreuerVertretung.Size = New System.Drawing.Size(165, 24) + Me.txtKundenbetreuerVertretung.TabIndex = 224 + Me.txtKundenbetreuerVertretung.Text = "-" + Me.txtKundenbetreuerVertretung.Visible = False + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label34.Location = New System.Drawing.Point(3, 6) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(128, 13) + Me.Label34.TabIndex = 222 + Me.Label34.Text = "VERAG-Ansprechpartner:" + ' + 'txtKundenbetreuer + ' + Me.txtKundenbetreuer._DateTimeOnly = False + Me.txtKundenbetreuer._numbersOnly = False + Me.txtKundenbetreuer._numbersOnlyKommastellen = "" + Me.txtKundenbetreuer._Prozent = False + Me.txtKundenbetreuer._ShortDateNew = False + Me.txtKundenbetreuer._ShortDateOnly = False + Me.txtKundenbetreuer._TimeOnly = False + Me.txtKundenbetreuer._value = "-" + Me.txtKundenbetreuer._Waehrung = False + Me.txtKundenbetreuer._WaehrungZeichen = True + Me.txtKundenbetreuer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtKundenbetreuer.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtKundenbetreuer.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtKundenbetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKundenbetreuer.ForeColor = System.Drawing.Color.Black + Me.txtKundenbetreuer.Location = New System.Drawing.Point(6, 44) + Me.txtKundenbetreuer.MaxLineLength = -1 + Me.txtKundenbetreuer.MaxLines_Warning = "" + Me.txtKundenbetreuer.MaxLines_Warning_Label = Nothing + Me.txtKundenbetreuer.Name = "txtKundenbetreuer" + Me.txtKundenbetreuer.ReadOnly = True + Me.txtKundenbetreuer.Size = New System.Drawing.Size(165, 13) + Me.txtKundenbetreuer.TabIndex = 223 + Me.txtKundenbetreuer.Text = "-" + ' + 'btnPunkt2Save + ' + Me.btnPunkt2Save.allowBorder = False + Me.btnPunkt2Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnPunkt2Save.BackgroundImage = Global.SDL.My.Resources.Resources.save + Me.btnPunkt2Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnPunkt2Save.FlatAppearance.BorderSize = 0 + Me.btnPunkt2Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPunkt2Save.ForeColor = System.Drawing.Color.Black + Me.btnPunkt2Save.Location = New System.Drawing.Point(645, 210) + Me.btnPunkt2Save.Name = "btnPunkt2Save" + Me.btnPunkt2Save.Size = New System.Drawing.Size(20, 20) + Me.btnPunkt2Save.TabIndex = 221 + Me.btnPunkt2Save.UseVisualStyleBackColor = True + Me.btnPunkt2Save.Visible = False + ' + 'Button7 + ' + Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button7.BackgroundImage = Global.SDL.My.Resources.Resources.picboxZoomOut_Enter1 + Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button7.FlatAppearance.BorderSize = 0 + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Location = New System.Drawing.Point(597, 9) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(35, 23) + Me.Button7.TabIndex = 220 + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button6.BackgroundImage = Global.SDL.My.Resources.Resources.picboxZoomIn_Enter1 + Me.Button6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button6.FlatAppearance.BorderSize = 0 + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(631, 9) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(35, 23) + Me.Button6.TabIndex = 212 + Me.Button6.UseVisualStyleBackColor = True + ' + 'LinkLabel1 + ' + Me.LinkLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(200, Byte), Integer)) + Me.LinkLabel1.Location = New System.Drawing.Point(519, 16) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(71, 13) + Me.LinkLabel1.TabIndex = 219 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Trennung ""/""" + ' + 'txtZahlungsziel + ' + Me.txtZahlungsziel._DateTimeOnly = False + Me.txtZahlungsziel._numbersOnly = False + Me.txtZahlungsziel._numbersOnlyKommastellen = "" + Me.txtZahlungsziel._Prozent = False + Me.txtZahlungsziel._ShortDateNew = False + Me.txtZahlungsziel._ShortDateOnly = False + Me.txtZahlungsziel._TimeOnly = False + Me.txtZahlungsziel._value = Nothing + Me.txtZahlungsziel._Waehrung = False + Me.txtZahlungsziel._WaehrungZeichen = True + Me.txtZahlungsziel.BackColor = System.Drawing.Color.White + Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black + Me.txtZahlungsziel.Location = New System.Drawing.Point(358, 311) + Me.txtZahlungsziel.MaxLineLength = -1 + Me.txtZahlungsziel.MaxLines_Warning = "" + Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing + Me.txtZahlungsziel.Name = "txtZahlungsziel" + Me.txtZahlungsziel.ReadOnly = True + Me.txtZahlungsziel.Size = New System.Drawing.Size(119, 13) + Me.txtZahlungsziel.TabIndex = 214 + Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(270, 311) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(69, 13) + Me.Label33.TabIndex = 213 + Me.Label33.Text = "Zahlungsziel:" + ' + 'txtOPFaellig + ' + Me.txtOPFaellig._DateTimeOnly = False + Me.txtOPFaellig._numbersOnly = False + Me.txtOPFaellig._numbersOnlyKommastellen = "" + Me.txtOPFaellig._Prozent = False + Me.txtOPFaellig._ShortDateNew = False + Me.txtOPFaellig._ShortDateOnly = False + Me.txtOPFaellig._TimeOnly = False + Me.txtOPFaellig._value = Nothing + Me.txtOPFaellig._Waehrung = False + Me.txtOPFaellig._WaehrungZeichen = True + Me.txtOPFaellig.BackColor = System.Drawing.Color.White + Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black + Me.txtOPFaellig.Location = New System.Drawing.Point(358, 293) + Me.txtOPFaellig.MaxLineLength = -1 + Me.txtOPFaellig.MaxLines_Warning = "" + Me.txtOPFaellig.MaxLines_Warning_Label = Nothing + Me.txtOPFaellig.Name = "txtOPFaellig" + Me.txtOPFaellig.ReadOnly = True + Me.txtOPFaellig.Size = New System.Drawing.Size(119, 13) + Me.txtOPFaellig.TabIndex = 212 + Me.txtOPFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label32.Location = New System.Drawing.Point(270, 293) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(93, 13) + Me.Label32.TabIndex = 211 + Me.Label32.Text = "OP fällig (nur Rg.):" + ' + 'txtUmsatzJahr + ' + Me.txtUmsatzJahr._DateTimeOnly = False + Me.txtUmsatzJahr._numbersOnly = False + Me.txtUmsatzJahr._numbersOnlyKommastellen = "" + Me.txtUmsatzJahr._Prozent = False + Me.txtUmsatzJahr._ShortDateNew = False + Me.txtUmsatzJahr._ShortDateOnly = False + Me.txtUmsatzJahr._TimeOnly = False + Me.txtUmsatzJahr._value = Nothing + Me.txtUmsatzJahr._Waehrung = False + Me.txtUmsatzJahr._WaehrungZeichen = True + Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White + Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black + Me.txtUmsatzJahr.Location = New System.Drawing.Point(104, 311) + Me.txtUmsatzJahr.MaxLineLength = -1 + Me.txtUmsatzJahr.MaxLines_Warning = "" + Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing + Me.txtUmsatzJahr.Name = "txtUmsatzJahr" + Me.txtUmsatzJahr.ReadOnly = True + Me.txtUmsatzJahr.Size = New System.Drawing.Size(115, 13) + Me.txtUmsatzJahr.TabIndex = 210 + Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label29.Location = New System.Drawing.Point(7, 311) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(68, 13) + Me.Label29.TabIndex = 209 + Me.Label29.Text = "Umsatz Jahr:" + ' + 'txtOffenePosten + ' + Me.txtOffenePosten._DateTimeOnly = False + Me.txtOffenePosten._numbersOnly = False + Me.txtOffenePosten._numbersOnlyKommastellen = "" + Me.txtOffenePosten._Prozent = False + Me.txtOffenePosten._ShortDateNew = False + Me.txtOffenePosten._ShortDateOnly = False + Me.txtOffenePosten._TimeOnly = False + Me.txtOffenePosten._value = Nothing + Me.txtOffenePosten._Waehrung = False + Me.txtOffenePosten._WaehrungZeichen = True + Me.txtOffenePosten.BackColor = System.Drawing.Color.White + Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black + Me.txtOffenePosten.Location = New System.Drawing.Point(104, 293) + Me.txtOffenePosten.MaxLineLength = -1 + Me.txtOffenePosten.MaxLines_Warning = "" + Me.txtOffenePosten.MaxLines_Warning_Label = Nothing + Me.txtOffenePosten.Name = "txtOffenePosten" + Me.txtOffenePosten.ReadOnly = True + Me.txtOffenePosten.Size = New System.Drawing.Size(115, 13) + Me.txtOffenePosten.TabIndex = 208 + Me.txtOffenePosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.Location = New System.Drawing.Point(7, 293) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(78, 13) + Me.Label28.TabIndex = 207 + Me.Label28.Text = "Offene Posten:" + ' + 'cbxFiskalabfertigung + ' + Me.cbxFiskalabfertigung._value = "" + Me.cbxFiskalabfertigung.AutoSize = True + Me.cbxFiskalabfertigung.Checked_value = False + Me.cbxFiskalabfertigung.CheckedValue = False + Me.cbxFiskalabfertigung.Location = New System.Drawing.Point(39, 134) + Me.cbxFiskalabfertigung.Name = "cbxFiskalabfertigung" + Me.cbxFiskalabfertigung.Size = New System.Drawing.Size(160, 17) + Me.cbxFiskalabfertigung.TabIndex = 206 + Me.cbxFiskalabfertigung.Text = "Fiskalverzollung freigegeben" + Me.cbxFiskalabfertigung.UseVisualStyleBackColor = True + Me.cbxFiskalabfertigung.Visible = False + ' + 'lblFisk + ' + Me.lblFisk.AutoSize = True + Me.lblFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFisk.ForeColor = System.Drawing.Color.Red + Me.lblFisk.Location = New System.Drawing.Point(210, 128) + Me.lblFisk.Name = "lblFisk" + Me.lblFisk.Size = New System.Drawing.Size(253, 26) + Me.lblFisk.TabIndex = 205 + Me.lblFisk.Text = "Für Fiskalabfertigung nicht freigegeben - " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "mit VERAG Zollservice Kontakt aufnehm" & + "en!" + Me.lblFisk.Visible = False + ' + 'lblKreditlimit + ' + Me.lblKreditlimit._DateTimeOnly = False + Me.lblKreditlimit._numbersOnly = False + Me.lblKreditlimit._numbersOnlyKommastellen = "" + Me.lblKreditlimit._Prozent = False + Me.lblKreditlimit._ShortDateNew = False + Me.lblKreditlimit._ShortDateOnly = False + Me.lblKreditlimit._TimeOnly = False + Me.lblKreditlimit._value = Nothing + Me.lblKreditlimit._Waehrung = False + Me.lblKreditlimit._WaehrungZeichen = True + Me.lblKreditlimit.BackColor = System.Drawing.Color.White + Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black + Me.lblKreditlimit.Location = New System.Drawing.Point(104, 251) + Me.lblKreditlimit.MaxLineLength = -1 + Me.lblKreditlimit.MaxLines_Warning = "" + Me.lblKreditlimit.MaxLines_Warning_Label = Nothing + Me.lblKreditlimit.Name = "lblKreditlimit" + Me.lblKreditlimit.ReadOnly = True + Me.lblKreditlimit.Size = New System.Drawing.Size(115, 13) + Me.lblKreditlimit.TabIndex = 190 + Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(7, 251) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(54, 13) + Me.Label1.TabIndex = 189 + Me.Label1.Text = "Kreditlimit:" + ' + 'lblAviso + ' + Me.lblAviso.BackColor = System.Drawing.Color.White + Me.lblAviso.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAviso.ForeColor = System.Drawing.Color.Black + Me.lblAviso.Location = New System.Drawing.Point(358, 251) + Me.lblAviso.Name = "lblAviso" + Me.lblAviso.ReadOnly = True + Me.lblAviso.Size = New System.Drawing.Size(127, 13) + Me.lblAviso.TabIndex = 185 + ' + 'txtAbf_ErsteAbfertigung + ' + Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False + Me.txtAbf_ErsteAbfertigung._numbersOnly = False + Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = "" + Me.txtAbf_ErsteAbfertigung._Prozent = False + Me.txtAbf_ErsteAbfertigung._ShortDateNew = False + Me.txtAbf_ErsteAbfertigung._ShortDateOnly = True + Me.txtAbf_ErsteAbfertigung._TimeOnly = False + Me.txtAbf_ErsteAbfertigung._value = "" + Me.txtAbf_ErsteAbfertigung._Waehrung = False + Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True + Me.txtAbf_ErsteAbfertigung.BackColor = System.Drawing.Color.White + Me.txtAbf_ErsteAbfertigung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbf_ErsteAbfertigung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Black + Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(104, 235) + Me.txtAbf_ErsteAbfertigung.MaxLength = 10 + Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 + Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" + Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing + Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung" + Me.txtAbf_ErsteAbfertigung.ReadOnly = True + Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(115, 13) + Me.txtAbf_ErsteAbfertigung.TabIndex = 38 + Me.txtAbf_ErsteAbfertigung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(270, 251) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(36, 13) + Me.Label2.TabIndex = 184 + Me.Label2.Text = "Aviso:" + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.Location = New System.Drawing.Point(7, 235) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(91, 13) + Me.Label41.TabIndex = 26 + Me.Label41.Text = "Erste Abfertigung:" + ' + 'rtbAbf_Besonderheiten + ' + Me.rtbAbf_Besonderheiten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White + Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32) + Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" + Me.rtbAbf_Besonderheiten.ReadOnly = True + Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 200) + Me.rtbAbf_Besonderheiten.TabIndex = 20 + Me.rtbAbf_Besonderheiten.Text = "" + ' + 'lblNeutralisierung + ' + Me.lblNeutralisierung.BackColor = System.Drawing.Color.White + Me.lblNeutralisierung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblNeutralisierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblNeutralisierung.ForeColor = System.Drawing.Color.Black + Me.lblNeutralisierung.Location = New System.Drawing.Point(358, 235) + Me.lblNeutralisierung.Name = "lblNeutralisierung" + Me.lblNeutralisierung.ReadOnly = True + Me.lblNeutralisierung.Size = New System.Drawing.Size(127, 13) + Me.lblNeutralisierung.TabIndex = 183 + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(7, 16) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(84, 13) + Me.Label37.TabIndex = 23 + Me.Label37.Text = "Besonderheiten:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(270, 235) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(80, 13) + Me.Label3.TabIndex = 182 + Me.Label3.Text = "Neutralisierung:" + ' + 'lblNoGespr + ' + Me.lblNoGespr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblNoGespr.AutoSize = True + Me.lblNoGespr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblNoGespr.Location = New System.Drawing.Point(563, 235) + Me.lblNoGespr.Name = "lblNoGespr" + Me.lblNoGespr.Size = New System.Drawing.Size(98, 13) + Me.lblNoGespr.TabIndex = 192 + Me.lblNoGespr.Text = "kein Gesprächstext" + ' + 'lklGanzerText + ' + Me.lklGanzerText.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lklGanzerText.AutoSize = True + Me.lklGanzerText.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(200, Byte), Integer)) + Me.lklGanzerText.Location = New System.Drawing.Point(541, 233) + Me.lklGanzerText.Name = "lklGanzerText" + Me.lklGanzerText.Size = New System.Drawing.Size(124, 26) + Me.lklGanzerText.TabIndex = 187 + Me.lklGanzerText.TabStop = True + Me.lklGanzerText.Text = "Gesprächstext anzeigen " & Global.Microsoft.VisualBasic.ChrW(10) & "(FM-ZOLL Punkt 7)" + ' + 'Panel4 + ' + Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel4.Controls.Add(Me.FlatButton6) + Me.Panel4.Controls.Add(Me.btnBonitaetBearbeiten) + Me.Panel4.Controls.Add(Me.Label68) + Me.Panel4.Controls.Add(Me.lblHoechstkredit) + Me.Panel4.Controls.Add(Me.Label69) + Me.Panel4.Controls.Add(Me.lblBonitaet) + Me.Panel4.Controls.Add(Me.lblBonitaetRisikostufe) + Me.Panel4.Controls.Add(Me.lblBonitaetsdatum) + Me.Panel4.Controls.Add(Me.Label39) + Me.Panel4.Controls.Add(Me.Label46) + Me.Panel4.Location = New System.Drawing.Point(3, 335) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(491, 26) + Me.Panel4.TabIndex = 231 + ' + 'FlatButton6 + ' + Me.FlatButton6.allowBorder = False + Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton6.FlatAppearance.BorderSize = 0 + Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton6.ForeColor = System.Drawing.Color.Black + Me.FlatButton6.Location = New System.Drawing.Point(464, 8) + Me.FlatButton6.Name = "FlatButton6" + Me.FlatButton6.Size = New System.Drawing.Size(15, 12) + Me.FlatButton6.TabIndex = 217 + Me.FlatButton6.UseVisualStyleBackColor = True + ' + 'btnBonitaetBearbeiten + ' + Me.btnBonitaetBearbeiten.allowBorder = False + Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 + Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black + Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(445, 7) + Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" + Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) + Me.btnBonitaetBearbeiten.TabIndex = 40 + Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True + Me.btnBonitaetBearbeiten.Visible = False + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label68.Location = New System.Drawing.Point(163, 6) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(30, 13) + Me.Label68.TabIndex = 183 + Me.Label68.Text = "vom:" + ' + 'lblHoechstkredit + ' + Me.lblHoechstkredit._DateTimeOnly = False + Me.lblHoechstkredit._numbersOnly = True + Me.lblHoechstkredit._numbersOnlyKommastellen = "" + Me.lblHoechstkredit._Prozent = False + Me.lblHoechstkredit._ShortDateNew = False + Me.lblHoechstkredit._ShortDateOnly = False + Me.lblHoechstkredit._TimeOnly = False + Me.lblHoechstkredit._value = "" + Me.lblHoechstkredit._Waehrung = True + Me.lblHoechstkredit._WaehrungZeichen = True + Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black + Me.lblHoechstkredit.Location = New System.Drawing.Point(343, 6) + Me.lblHoechstkredit.MaxLineLength = -1 + Me.lblHoechstkredit.MaxLines_Warning = "" + Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing + Me.lblHoechstkredit.Name = "lblHoechstkredit" + Me.lblHoechstkredit.ReadOnly = True + Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13) + Me.lblHoechstkredit.TabIndex = 188 + Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label69 + ' + Me.Label69.AutoSize = True + Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label69.Location = New System.Drawing.Point(267, 6) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(70, 13) + Me.Label69.TabIndex = 187 + Me.Label69.Text = "Höchstkredit:" + ' + 'lblBonitaet + ' + Me.lblBonitaet._DateTimeOnly = False + Me.lblBonitaet._numbersOnly = False + Me.lblBonitaet._numbersOnlyKommastellen = "" + Me.lblBonitaet._Prozent = False + Me.lblBonitaet._ShortDateNew = False + Me.lblBonitaet._ShortDateOnly = False + Me.lblBonitaet._TimeOnly = False + Me.lblBonitaet._value = Nothing + Me.lblBonitaet._Waehrung = False + Me.lblBonitaet._WaehrungZeichen = True + Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaet.ForeColor = System.Drawing.Color.Black + Me.lblBonitaet.Location = New System.Drawing.Point(106, 6) + Me.lblBonitaet.MaxLineLength = -1 + Me.lblBonitaet.MaxLines_Warning = "" + Me.lblBonitaet.MaxLines_Warning_Label = Nothing + Me.lblBonitaet.Name = "lblBonitaet" + Me.lblBonitaet.ReadOnly = True + Me.lblBonitaet.Size = New System.Drawing.Size(32, 13) + Me.lblBonitaet.TabIndex = 186 + Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetRisikostufe + ' + Me.lblBonitaetRisikostufe._DateTimeOnly = False + Me.lblBonitaetRisikostufe._numbersOnly = False + Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = "" + Me.lblBonitaetRisikostufe._Prozent = False + Me.lblBonitaetRisikostufe._ShortDateNew = False + Me.lblBonitaetRisikostufe._ShortDateOnly = False + Me.lblBonitaetRisikostufe._TimeOnly = False + Me.lblBonitaetRisikostufe._value = Nothing + Me.lblBonitaetRisikostufe._Waehrung = False + Me.lblBonitaetRisikostufe._WaehrungZeichen = True + Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6) + Me.lblBonitaetRisikostufe.MaxLineLength = -1 + Me.lblBonitaetRisikostufe.MaxLines_Warning = "" + Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing + Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe" + Me.lblBonitaetRisikostufe.ReadOnly = True + Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13) + Me.lblBonitaetRisikostufe.TabIndex = 230 + Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetsdatum + ' + Me.lblBonitaetsdatum._DateTimeOnly = False + Me.lblBonitaetsdatum._numbersOnly = False + Me.lblBonitaetsdatum._numbersOnlyKommastellen = "" + Me.lblBonitaetsdatum._Prozent = False + Me.lblBonitaetsdatum._ShortDateNew = False + Me.lblBonitaetsdatum._ShortDateOnly = False + Me.lblBonitaetsdatum._TimeOnly = False + Me.lblBonitaetsdatum._value = Nothing + Me.lblBonitaetsdatum._Waehrung = False + Me.lblBonitaetsdatum._WaehrungZeichen = True + Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetsdatum.Location = New System.Drawing.Point(195, 6) + Me.lblBonitaetsdatum.MaxLineLength = -1 + Me.lblBonitaetsdatum.MaxLines_Warning = "" + Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing + Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum" + Me.lblBonitaetsdatum.ReadOnly = True + Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13) + Me.lblBonitaetsdatum.TabIndex = 185 + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.Location = New System.Drawing.Point(4, 6) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(107, 13) + Me.Label39.TabIndex = 218 + Me.Label39.Text = "Bonität/Risikoklasse:" + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label46.Location = New System.Drawing.Point(136, 6) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(12, 13) + Me.Label46.TabIndex = 183 + Me.Label46.Text = "/" + Me.Label46.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'grpAdresse + ' + Me.grpAdresse.BackColor = System.Drawing.Color.White + Me.grpAdresse.Controls.Add(Me.tbKontakt) + Me.grpAdresse.Controls.Add(Me.Label38) + Me.grpAdresse.Controls.Add(Me.txtDebitorennr) + Me.grpAdresse.Controls.Add(Me.lblFwlFiskal) + Me.grpAdresse.Controls.Add(Me.lblKorrAdresse) + Me.grpAdresse.Controls.Add(Me.lblFirmenname1) + Me.grpAdresse.Controls.Add(Me.lblPostfach) + Me.grpAdresse.Controls.Add(Me.lblLandPlzOrt) + Me.grpAdresse.Controls.Add(Me.lblStrasse) + Me.grpAdresse.Controls.Add(Me.lblFirmenname2) + Me.grpAdresse.Controls.Add(Me.lblTESTSystem) + Me.grpAdresse.Location = New System.Drawing.Point(3, 17) + Me.grpAdresse.Name = "grpAdresse" + Me.grpAdresse.Size = New System.Drawing.Size(499, 348) + Me.grpAdresse.TabIndex = 216 + Me.grpAdresse.TabStop = False + Me.grpAdresse.Text = "Firmendaten" + ' + 'tbKontakt + ' + Me.tbKontakt.Controls.Add(Me.TabPage10) + Me.tbKontakt.Controls.Add(Me.TabPage11) + Me.tbKontakt.Location = New System.Drawing.Point(6, 152) + Me.tbKontakt.Name = "tbKontakt" + Me.tbKontakt.SelectedIndex = 0 + Me.tbKontakt.Size = New System.Drawing.Size(487, 190) + Me.tbKontakt.TabIndex = 213 + ' + 'TabPage10 + ' + Me.TabPage10.Controls.Add(Me.FlatButton1) + Me.TabPage10.Controls.Add(Me.PictureBox1) + Me.TabPage10.Controls.Add(Me.lblAnsprechpartner) + Me.TabPage10.Controls.Add(Me.lblMobil) + Me.TabPage10.Controls.Add(Me.lblFax) + Me.TabPage10.Controls.Add(Me.lblEmail2) + Me.TabPage10.Controls.Add(Me.lblEmail) + Me.TabPage10.Controls.Add(Me.PictureBox4) + Me.TabPage10.Controls.Add(Me.PictureBox2) + Me.TabPage10.Controls.Add(Me.lblTel) + Me.TabPage10.Controls.Add(Me.PictureBox3) + Me.TabPage10.Controls.Add(Me.PictureBox5) + Me.TabPage10.Location = New System.Drawing.Point(4, 22) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Size = New System.Drawing.Size(479, 164) + Me.TabPage10.TabIndex = 2 + Me.TabPage10.Text = "Kontakt" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.compose + Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.FlatButton1.Location = New System.Drawing.Point(395, 93) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(84, 68) + Me.FlatButton1.TabIndex = 205 + Me.FlatButton1.Tag = "" + Me.FlatButton1.Text = "Änderungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bekanntgeben" + Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.FlatButton1.UseVisualStyleBackColor = True + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon + Me.PictureBox1.Location = New System.Drawing.Point(3, 6) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(25, 18) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox1.TabIndex = 175 + Me.PictureBox1.TabStop = False + ' + 'lblAnsprechpartner + ' + Me.lblAnsprechpartner.BackColor = System.Drawing.Color.White + Me.lblAnsprechpartner.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAnsprechpartner.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAnsprechpartner.Location = New System.Drawing.Point(38, 142) + Me.lblAnsprechpartner.Name = "lblAnsprechpartner" + Me.lblAnsprechpartner.ReadOnly = True + Me.lblAnsprechpartner.Size = New System.Drawing.Size(452, 19) + Me.lblAnsprechpartner.TabIndex = 179 + Me.lblAnsprechpartner.Text = "ansprechpartner" + ' + 'lblMobil + ' + Me.lblMobil.BackColor = System.Drawing.Color.White + Me.lblMobil.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblMobil.Location = New System.Drawing.Point(38, 53) + Me.lblMobil.Name = "lblMobil" + Me.lblMobil.ReadOnly = True + Me.lblMobil.Size = New System.Drawing.Size(452, 19) + Me.lblMobil.TabIndex = 11 + Me.lblMobil.Text = "mobil" + ' + 'lblFax + ' + Me.lblFax.BackColor = System.Drawing.Color.White + Me.lblFax.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFax.Location = New System.Drawing.Point(38, 30) + Me.lblFax.Name = "lblFax" + Me.lblFax.ReadOnly = True + Me.lblFax.Size = New System.Drawing.Size(452, 19) + Me.lblFax.TabIndex = 10 + Me.lblFax.Text = "fax" + ' + 'lblEmail2 + ' + Me.lblEmail2.BackColor = System.Drawing.Color.White + Me.lblEmail2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblEmail2.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblEmail2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblEmail2.Location = New System.Drawing.Point(38, 107) + Me.lblEmail2.Name = "lblEmail2" + Me.lblEmail2.ReadOnly = True + Me.lblEmail2.Size = New System.Drawing.Size(452, 19) + Me.lblEmail2.TabIndex = 16 + Me.lblEmail2.Text = "email2" + ' + 'lblEmail + ' + Me.lblEmail.BackColor = System.Drawing.Color.White + Me.lblEmail.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblEmail.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblEmail.Location = New System.Drawing.Point(38, 84) + Me.lblEmail.Name = "lblEmail" + Me.lblEmail.ReadOnly = True + Me.lblEmail.Size = New System.Drawing.Size(452, 19) + Me.lblEmail.TabIndex = 13 + Me.lblEmail.Text = "email" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.email + Me.PictureBox4.Location = New System.Drawing.Point(6, 84) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(22, 18) + Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox4.TabIndex = 176 + Me.PictureBox4.TabStop = False + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax + Me.PictureBox2.Location = New System.Drawing.Point(3, 30) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(25, 18) + Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox2.TabIndex = 174 + Me.PictureBox2.TabStop = False + ' + 'lblTel + ' + Me.lblTel.BackColor = System.Drawing.Color.White + Me.lblTel.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblTel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTel.Location = New System.Drawing.Point(38, 6) + Me.lblTel.Name = "lblTel" + Me.lblTel.ReadOnly = True + Me.lblTel.Size = New System.Drawing.Size(452, 19) + Me.lblTel.TabIndex = 9 + Me.lblTel.Text = "tel" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.handy + Me.PictureBox3.Location = New System.Drawing.Point(3, 54) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(25, 18) + Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox3.TabIndex = 173 + Me.PictureBox3.TabStop = False + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.person + Me.PictureBox5.Location = New System.Drawing.Point(3, 143) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(25, 18) + Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox5.TabIndex = 180 + Me.PictureBox5.TabStop = False + ' + 'TabPage11 + ' + Me.TabPage11.Controls.Add(Me.ucKundenKontakte) + Me.TabPage11.Location = New System.Drawing.Point(4, 22) + Me.TabPage11.Name = "TabPage11" + Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage11.Size = New System.Drawing.Size(479, 164) + Me.TabPage11.TabIndex = 3 + Me.TabPage11.Text = "Spezifisch" + Me.TabPage11.UseVisualStyleBackColor = True + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Location = New System.Drawing.Point(365, 57) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(67, 13) + Me.Label38.TabIndex = 212 + Me.Label38.Text = "DebitorenNr:" + ' + 'txtDebitorennr + ' + Me.txtDebitorennr.BackColor = System.Drawing.Color.White + Me.txtDebitorennr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtDebitorennr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDebitorennr.Location = New System.Drawing.Point(426, 57) + Me.txtDebitorennr.Name = "txtDebitorennr" + Me.txtDebitorennr.ReadOnly = True + Me.txtDebitorennr.Size = New System.Drawing.Size(67, 16) + Me.txtDebitorennr.TabIndex = 212 + Me.txtDebitorennr.Text = "150000" + Me.txtDebitorennr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'lblFwlFiskal + ' + Me.lblFwlFiskal.AutoSize = True + Me.lblFwlFiskal.Location = New System.Drawing.Point(392, 162) + Me.lblFwlFiskal.Name = "lblFwlFiskal" + Me.lblFwlFiskal.Size = New System.Drawing.Size(105, 13) + Me.lblFwlFiskal.TabIndex = 206 + Me.lblFwlFiskal.TabStop = True + Me.lblFwlFiskal.Text = "Firmenwortlaut Fiskal" + Me.lblFwlFiskal.Visible = False + ' + 'lblKorrAdresse + ' + Me.lblKorrAdresse.AutoSize = True + Me.lblKorrAdresse.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(200, Byte), Integer)) + Me.lblKorrAdresse.Location = New System.Drawing.Point(392, 121) + Me.lblKorrAdresse.Name = "lblKorrAdresse" + Me.lblKorrAdresse.Size = New System.Drawing.Size(87, 26) + Me.lblKorrAdresse.TabIndex = 193 + Me.lblKorrAdresse.TabStop = True + Me.lblKorrAdresse.Text = "Korrespondenz - " & Global.Microsoft.VisualBasic.ChrW(10) & "Postadresse" + Me.lblKorrAdresse.Visible = False + ' + 'lblFirmenname1 + ' + Me.lblFirmenname1.BackColor = System.Drawing.Color.White + Me.lblFirmenname1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblFirmenname1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFirmenname1.Location = New System.Drawing.Point(6, 19) + Me.lblFirmenname1.Name = "lblFirmenname1" + Me.lblFirmenname1.ReadOnly = True + Me.lblFirmenname1.Size = New System.Drawing.Size(491, 19) + Me.lblFirmenname1.TabIndex = 2 + Me.lblFirmenname1.Text = "Name1" + ' + 'lblPostfach + ' + Me.lblPostfach.BackColor = System.Drawing.Color.White + Me.lblPostfach.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblPostfach.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblPostfach.Location = New System.Drawing.Point(6, 124) + Me.lblPostfach.Name = "lblPostfach" + Me.lblPostfach.ReadOnly = True + Me.lblPostfach.Size = New System.Drawing.Size(491, 19) + Me.lblPostfach.TabIndex = 6 + Me.lblPostfach.Text = "Postfach" + ' + 'lblLandPlzOrt + ' + Me.lblLandPlzOrt.BackColor = System.Drawing.Color.White + Me.lblLandPlzOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblLandPlzOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLandPlzOrt.Location = New System.Drawing.Point(6, 99) + Me.lblLandPlzOrt.Name = "lblLandPlzOrt" + Me.lblLandPlzOrt.ReadOnly = True + Me.lblLandPlzOrt.Size = New System.Drawing.Size(491, 19) + Me.lblLandPlzOrt.TabIndex = 5 + Me.lblLandPlzOrt.Text = "Land - Plz Ort" + ' + 'lblStrasse + ' + Me.lblStrasse.BackColor = System.Drawing.Color.White + Me.lblStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblStrasse.Location = New System.Drawing.Point(6, 77) + Me.lblStrasse.Name = "lblStrasse" + Me.lblStrasse.ReadOnly = True + Me.lblStrasse.Size = New System.Drawing.Size(491, 19) + Me.lblStrasse.TabIndex = 4 + Me.lblStrasse.Text = "Strasse" + ' + 'lblFirmenname2 + ' + Me.lblFirmenname2.BackColor = System.Drawing.Color.White + Me.lblFirmenname2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblFirmenname2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFirmenname2.Location = New System.Drawing.Point(6, 37) + Me.lblFirmenname2.Name = "lblFirmenname2" + Me.lblFirmenname2.ReadOnly = True + Me.lblFirmenname2.Size = New System.Drawing.Size(491, 19) + Me.lblFirmenname2.TabIndex = 3 + Me.lblFirmenname2.Text = "Name2" + ' + 'lblTESTSystem + ' + Me.lblTESTSystem.AutoSize = True + Me.lblTESTSystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblTESTSystem.ForeColor = System.Drawing.Color.Red + Me.lblTESTSystem.Location = New System.Drawing.Point(3, 59) + Me.lblTESTSystem.Name = "lblTESTSystem" + Me.lblTESTSystem.Size = New System.Drawing.Size(128, 17) + Me.lblTESTSystem.TabIndex = 188 + Me.lblTESTSystem.Text = "! TESTSYSTEM !" + ' + 'grpSonstiges + ' + Me.grpSonstiges.BackColor = System.Drawing.Color.White + Me.grpSonstiges.Controls.Add(Me.Button2) + Me.grpSonstiges.Controls.Add(Me.Button10) + Me.grpSonstiges.Controls.Add(Me.Button4) + Me.grpSonstiges.Controls.Add(Me.Button5) + Me.grpSonstiges.Controls.Add(Me.Button3) + Me.grpSonstiges.Controls.Add(Me.Button1) + Me.grpSonstiges.Controls.Add(Me.tbcntrAllg) + Me.grpSonstiges.Controls.Add(Me.btncheckliste) + Me.grpSonstiges.Controls.Add(Me.Label4) + Me.grpSonstiges.Controls.Add(Me.lblUid) + Me.grpSonstiges.Controls.Add(Me.lblEORI) + Me.grpSonstiges.Controls.Add(Me.Label5) + Me.grpSonstiges.Controls.Add(Me.dgvAufschub) + Me.grpSonstiges.Location = New System.Drawing.Point(3, 362) + Me.grpSonstiges.Name = "grpSonstiges" + Me.grpSonstiges.Size = New System.Drawing.Size(499, 328) + Me.grpSonstiges.TabIndex = 217 + Me.grpSonstiges.TabStop = False + ' + 'Button10 + ' + Me.Button10.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.Button10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button10.FlatAppearance.BorderSize = 0 + Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button10.Location = New System.Drawing.Point(395, 15) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(25, 20) + Me.Button10.TabIndex = 212 + Me.Button10.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.BackgroundImage = CType(resources.GetObject("Button4.BackgroundImage"), System.Drawing.Image) + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatAppearance.BorderSize = 0 + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(364, 35) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(25, 20) + Me.Button4.TabIndex = 210 + Me.Button4.UseVisualStyleBackColor = True + Me.Button4.Visible = False + ' + 'Button5 + ' + Me.Button5.BackgroundImage = CType(resources.GetObject("Button5.BackgroundImage"), System.Drawing.Image) + Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button5.FlatAppearance.BorderSize = 0 + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(364, 14) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(25, 20) + Me.Button5.TabIndex = 209 + Me.Button5.UseVisualStyleBackColor = True + Me.Button5.Visible = False + ' + 'Button3 + ' + Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button3.FlatAppearance.BorderSize = 0 + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(339, 34) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(25, 20) + Me.Button3.TabIndex = 208 + Me.Button3.UseVisualStyleBackColor = True + Me.Button3.Visible = False + ' + 'Button1 + ' + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatAppearance.BorderSize = 0 + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(339, 13) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(25, 20) + Me.Button1.TabIndex = 207 + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' + 'tbcntrAllg + ' + Me.tbcntrAllg.Controls.Add(Me.TabPage5) + Me.tbcntrAllg.Controls.Add(Me.TabPage9) + Me.tbcntrAllg.Controls.Add(Me.TabPage6) + Me.tbcntrAllg.Controls.Add(Me.TabPage7) + Me.tbcntrAllg.Controls.Add(Me.TabPage2) + Me.tbcntrAllg.Location = New System.Drawing.Point(6, 142) + Me.tbcntrAllg.Name = "tbcntrAllg" + Me.tbcntrAllg.SelectedIndex = 0 + Me.tbcntrAllg.Size = New System.Drawing.Size(487, 190) + Me.tbcntrAllg.TabIndex = 205 + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.dgvVollmachten) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage5.Size = New System.Drawing.Size(479, 164) + Me.TabPage5.TabIndex = 0 + Me.TabPage5.Text = "Vollmachten" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'dgvVollmachten + ' + Me.dgvVollmachten.AllowUserToAddRows = False + Me.dgvVollmachten.AllowUserToDeleteRows = False + Me.dgvVollmachten.AllowUserToOrderColumns = True + Me.dgvVollmachten.AllowUserToResizeRows = False + DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White + Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvVollmachten.Location = New System.Drawing.Point(3, 3) + Me.dgvVollmachten.MultiSelect = False + Me.dgvVollmachten.Name = "dgvVollmachten" + Me.dgvVollmachten.ReadOnly = True + Me.dgvVollmachten.RowHeadersVisible = False + Me.dgvVollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvVollmachten.Size = New System.Drawing.Size(473, 158) + Me.dgvVollmachten.TabIndex = 4 + ' + 'TabPage9 + ' + Me.TabPage9.Controls.Add(Me.dgvGestGarantie) + Me.TabPage9.Controls.Add(Me.Panel2) + Me.TabPage9.Location = New System.Drawing.Point(4, 22) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage9.Size = New System.Drawing.Size(479, 164) + Me.TabPage9.TabIndex = 4 + Me.TabPage9.Text = "Gestell.Garant." + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'dgvGestGarantie + ' + Me.dgvGestGarantie.AllowUserToAddRows = False + Me.dgvGestGarantie.AllowUserToDeleteRows = False + Me.dgvGestGarantie.AllowUserToOrderColumns = True + Me.dgvGestGarantie.AllowUserToResizeRows = False + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White + Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvGestGarantie.Location = New System.Drawing.Point(3, 3) + Me.dgvGestGarantie.MultiSelect = False + Me.dgvGestGarantie.Name = "dgvGestGarantie" + Me.dgvGestGarantie.ReadOnly = True + Me.dgvGestGarantie.RowHeadersVisible = False + Me.dgvGestGarantie.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGestGarantie.Size = New System.Drawing.Size(473, 112) + Me.dgvGestGarantie.TabIndex = 5 + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.White + Me.Panel2.Controls.Add(Me.cbxGG) + Me.Panel2.Controls.Add(Me.txtGGDatum) + Me.Panel2.Controls.Add(Me.txtT1VerzollungsadresseBestimmungszollstelle) + Me.Panel2.Controls.Add(Me.Label11) + Me.Panel2.Controls.Add(Me.Button8) + Me.Panel2.Controls.Add(Me.Button9) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(3, 115) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(473, 46) + Me.Panel2.TabIndex = 8 + ' + 'cbxGG + ' + Me.cbxGG.AutoSize = True + Me.cbxGG.Location = New System.Drawing.Point(87, 27) + Me.cbxGG.Name = "cbxGG" + Me.cbxGG.Size = New System.Drawing.Size(165, 17) + Me.cbxGG.TabIndex = 213 + Me.cbxGG.Text = "generelle Gestellungsgarantie" + Me.cbxGG.UseVisualStyleBackColor = True + ' + 'txtGGDatum + ' + Me.txtGGDatum._DateTimeOnly = False + Me.txtGGDatum._numbersOnly = False + Me.txtGGDatum._numbersOnlyKommastellen = "" + Me.txtGGDatum._Prozent = False + Me.txtGGDatum._ShortDateNew = True + Me.txtGGDatum._ShortDateOnly = False + Me.txtGGDatum._TimeOnly = False + Me.txtGGDatum._value = "" + Me.txtGGDatum._Waehrung = False + Me.txtGGDatum._WaehrungZeichen = True + Me.txtGGDatum.ForeColor = System.Drawing.Color.Black + Me.txtGGDatum.Location = New System.Drawing.Point(256, 7) + Me.txtGGDatum.MaxLength = 10 + Me.txtGGDatum.MaxLineLength = -1 + Me.txtGGDatum.MaxLines_Warning = "" + Me.txtGGDatum.MaxLines_Warning_Label = Nothing + Me.txtGGDatum.Name = "txtGGDatum" + Me.txtGGDatum.Size = New System.Drawing.Size(100, 20) + Me.txtGGDatum.TabIndex = 212 + ' + 'txtT1VerzollungsadresseBestimmungszollstelle + ' + Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False + Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False + Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False + Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True + Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL" + Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT" + Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False + Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(87, 7) + Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8 + Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle" + Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True + Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(163, 20) + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing + Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 211 + Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(3, 10) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(78, 13) + Me.Label11.TabIndex = 210 + Me.Label11.Text = "GG für Zollamt:" + ' + 'Button8 + ' + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.ForeColor = System.Drawing.Color.Black + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button8.Location = New System.Drawing.Point(362, 3) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(78, 25) + Me.Button8.TabIndex = 208 + Me.Button8.Tag = "" + Me.Button8.Text = "Hinzufügen" + Me.Button8.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.ForeColor = System.Drawing.Color.Black + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button9.Location = New System.Drawing.Point(362, 24) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(78, 22) + Me.Button9.TabIndex = 214 + Me.Button9.Tag = "" + Me.Button9.Text = "Abbrechen" + Me.Button9.UseVisualStyleBackColor = True + Me.Button9.Visible = False + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(479, 164) + Me.TabPage6.TabIndex = 1 + Me.TabPage6.Text = "Aviso E-Mails" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.Label43) + Me.TabPage7.Controls.Add(Me.cbxKdAuftragsNr) + Me.TabPage7.Controls.Add(Me.RichTextBox1) + Me.TabPage7.Controls.Add(Me.Label31) + Me.TabPage7.Controls.Add(Me.rtbLKWFreigabeSenden) + Me.TabPage7.Controls.Add(Me.Label10) + Me.TabPage7.Controls.Add(Me.txtFixeKdAtrNr) + Me.TabPage7.Controls.Add(Me.FlatButton4) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(479, 164) + Me.TabPage7.TabIndex = 2 + Me.TabPage7.Text = "Kundenspezifisch" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.Location = New System.Drawing.Point(232, 25) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(74, 13) + Me.Label43.TabIndex = 218 + Me.Label43.Text = "Fixe Auftr.-Nr.:" + ' + 'cbxKdAuftragsNr + ' + Me.cbxKdAuftragsNr.AutoSize = True + Me.cbxKdAuftragsNr.Location = New System.Drawing.Point(235, 5) + Me.cbxKdAuftragsNr.Name = "cbxKdAuftragsNr" + Me.cbxKdAuftragsNr.Size = New System.Drawing.Size(230, 17) + Me.cbxKdAuftragsNr.TabIndex = 216 + Me.cbxKdAuftragsNr.Text = "Kunde verwendet eigene Auftragsnummern" + Me.cbxKdAuftragsNr.UseVisualStyleBackColor = True + ' + 'RichTextBox1 + ' + Me.RichTextBox1.Location = New System.Drawing.Point(235, 61) + Me.RichTextBox1.Name = "RichTextBox1" + Me.RichTextBox1.Size = New System.Drawing.Size(222, 50) + Me.RichTextBox1.TabIndex = 208 + Me.RichTextBox1.Text = "" + Me.RichTextBox1.Visible = False + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label31.Location = New System.Drawing.Point(232, 45) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(213, 13) + Me.Label31.TabIndex = 207 + Me.Label31.Text = "Wichtige Hinweise auf Aktendeckel:" + Me.Label31.Visible = False + ' + 'rtbLKWFreigabeSenden + ' + Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(7, 22) + Me.rtbLKWFreigabeSenden.Name = "rtbLKWFreigabeSenden" + Me.rtbLKWFreigabeSenden.Size = New System.Drawing.Size(222, 113) + Me.rtbLKWFreigabeSenden.TabIndex = 40 + Me.rtbLKWFreigabeSenden.Text = "" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(4, 5) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(225, 13) + Me.Label10.TabIndex = 39 + Me.Label10.Text = "Dokumente bei LKW-Freigabe senden:" + ' + 'txtFixeKdAtrNr + ' + Me.txtFixeKdAtrNr._DateTimeOnly = False + Me.txtFixeKdAtrNr._numbersOnly = False + Me.txtFixeKdAtrNr._numbersOnlyKommastellen = "" + Me.txtFixeKdAtrNr._Prozent = False + Me.txtFixeKdAtrNr._ShortDateNew = False + Me.txtFixeKdAtrNr._ShortDateOnly = False + Me.txtFixeKdAtrNr._TimeOnly = False + Me.txtFixeKdAtrNr._value = "" + Me.txtFixeKdAtrNr._Waehrung = False + Me.txtFixeKdAtrNr._WaehrungZeichen = True + Me.txtFixeKdAtrNr.Enabled = False + Me.txtFixeKdAtrNr.ForeColor = System.Drawing.Color.Black + Me.txtFixeKdAtrNr.Location = New System.Drawing.Point(309, 22) + Me.txtFixeKdAtrNr.MaxLineLength = -1 + Me.txtFixeKdAtrNr.MaxLines_Warning = "" + Me.txtFixeKdAtrNr.MaxLines_Warning_Label = Nothing + Me.txtFixeKdAtrNr.Name = "txtFixeKdAtrNr" + Me.txtFixeKdAtrNr.Size = New System.Drawing.Size(149, 20) + Me.txtFixeKdAtrNr.TabIndex = 217 + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.FlatButton4.Location = New System.Drawing.Point(365, 111) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(92, 26) + Me.FlatButton4.TabIndex = 206 + Me.FlatButton4.Tag = "" + Me.FlatButton4.Text = "Speichern" + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.Label6) + Me.TabPage2.Controls.Add(Me.lblSteuernummer) + Me.TabPage2.Controls.Add(Me.lblAufZoll) + Me.TabPage2.Controls.Add(Me.Label9) + Me.TabPage2.Controls.Add(Me.lblAufEust) + Me.TabPage2.Controls.Add(Me.Label8) + Me.TabPage2.Controls.Add(Me.lblZnv) + Me.TabPage2.Controls.Add(Me.Label7) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(479, 164) + Me.TabPage2.TabIndex = 3 + Me.TabPage2.Text = "Sonstiges" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(6, 13) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(58, 13) + Me.Label6.TabIndex = 193 + Me.Label6.Text = "Steuer-Nr.:" + ' + 'lblSteuernummer + ' + Me.lblSteuernummer.BackColor = System.Drawing.Color.White + Me.lblSteuernummer.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblSteuernummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSteuernummer.Location = New System.Drawing.Point(76, 13) + Me.lblSteuernummer.Name = "lblSteuernummer" + Me.lblSteuernummer.ReadOnly = True + Me.lblSteuernummer.Size = New System.Drawing.Size(166, 13) + Me.lblSteuernummer.TabIndex = 178 + Me.lblSteuernummer.Text = "00000" + ' + 'lblAufZoll + ' + Me.lblAufZoll.BackColor = System.Drawing.Color.White + Me.lblAufZoll.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAufZoll.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufZoll.Location = New System.Drawing.Point(322, 37) + Me.lblAufZoll.Name = "lblAufZoll" + Me.lblAufZoll.ReadOnly = True + Me.lblAufZoll.Size = New System.Drawing.Size(174, 13) + Me.lblAufZoll.TabIndex = 196 + Me.lblAufZoll.Text = "00000" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(6, 37) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(47, 13) + Me.Label9.TabIndex = 200 + Me.Label9.Text = "ZnV-Nr.:" + ' + 'lblAufEust + ' + Me.lblAufEust.BackColor = System.Drawing.Color.White + Me.lblAufEust.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAufEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAufEust.Location = New System.Drawing.Point(322, 16) + Me.lblAufEust.Name = "lblAufEust" + Me.lblAufEust.ReadOnly = True + Me.lblAufEust.Size = New System.Drawing.Size(174, 13) + Me.lblAufEust.TabIndex = 195 + Me.lblAufEust.Text = "00000" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(242, 16) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(74, 13) + Me.Label8.TabIndex = 199 + Me.Label8.Text = "Aufsch. EUSt:" + ' + 'lblZnv + ' + Me.lblZnv.BackColor = System.Drawing.Color.White + Me.lblZnv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblZnv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblZnv.Location = New System.Drawing.Point(76, 37) + Me.lblZnv.Name = "lblZnv" + Me.lblZnv.ReadOnly = True + Me.lblZnv.Size = New System.Drawing.Size(166, 13) + Me.lblZnv.TabIndex = 194 + Me.lblZnv.Text = "00000" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(242, 37) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(66, 13) + Me.Label7.TabIndex = 198 + Me.Label7.Text = "Aufsch. Zoll:" + ' + 'btncheckliste + ' + Me.btncheckliste.allowBorder = False + Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btncheckliste.FlatAppearance.BorderSize = 0 + Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncheckliste.ForeColor = System.Drawing.Color.Black + Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist + Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btncheckliste.Location = New System.Drawing.Point(409, 7) + Me.btncheckliste.Name = "btncheckliste" + Me.btncheckliste.Size = New System.Drawing.Size(88, 53) + Me.btncheckliste.TabIndex = 204 + Me.btncheckliste.Tag = "" + Me.btncheckliste.Text = "Checkliste" + Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btncheckliste.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(10, 16) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(57, 17) + Me.Label4.TabIndex = 193 + Me.Label4.Text = "UId-Nr.:" + ' + 'lblUid + ' + Me.lblUid.BackColor = System.Drawing.Color.White + Me.lblUid.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblUid.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblUid.Location = New System.Drawing.Point(80, 17) + Me.lblUid.Name = "lblUid" + Me.lblUid.ReadOnly = True + Me.lblUid.Size = New System.Drawing.Size(322, 16) + Me.lblUid.TabIndex = 8 + Me.lblUid.Text = "DE 000000000 , geprüft am: 01.01.2000" + ' + 'lblEORI + ' + Me.lblEORI.BackColor = System.Drawing.Color.White + Me.lblEORI.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblEORI.Location = New System.Drawing.Point(80, 38) + Me.lblEORI.Name = "lblEORI" + Me.lblEORI.ReadOnly = True + Me.lblEORI.Size = New System.Drawing.Size(322, 16) + Me.lblEORI.TabIndex = 197 + Me.lblEORI.Text = "AT000000000000000" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(10, 37) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(69, 17) + Me.Label5.TabIndex = 193 + Me.Label5.Text = "EORI-Nr.:" + ' + 'dgvAufschub + ' + Me.dgvAufschub.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAufschub.AllowUserToAddRows = False + Me.dgvAufschub.AllowUserToDeleteRows = False + Me.dgvAufschub.AllowUserToResizeColumns = False + Me.dgvAufschub.AllowUserToResizeRows = False + Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL}) + 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.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle11 + Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) + Me.dgvAufschub.MultiSelect = False + Me.dgvAufschub.Name = "dgvAufschub" + Me.dgvAufschub.ReadOnly = True + Me.dgvAufschub.RowHeadersVisible = False + Me.dgvAufschub.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAufschub.Size = New System.Drawing.Size(473, 75) + Me.dgvAufschub.TabIndex = 211 + Me.dgvAufschub.TabStop = False + ' + 'KtoId + ' + Me.KtoId.HeaderText = "Id" + Me.KtoId.Name = "KtoId" + Me.KtoId.ReadOnly = True + Me.KtoId.Visible = False + ' + 'Art + ' + Me.Art.HeaderText = "Aufschub" + Me.Art.Name = "Art" + Me.Art.ReadOnly = True + Me.Art.Width = 120 + ' + 'HZA + ' + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.HZA.DefaultCellStyle = DataGridViewCellStyle10 + Me.HZA.HeaderText = "HZA" + Me.HZA.Name = "HZA" + Me.HZA.ReadOnly = True + Me.HZA.Width = 35 + ' + 'KontoNr + ' + Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.KontoNr.HeaderText = "Konto Nr." + Me.KontoNr.Name = "KontoNr" + Me.KontoNr.ReadOnly = True + Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + ' + 'EORI + ' + Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.EORI.HeaderText = "EORI" + Me.EORI.Name = "EORI" + Me.EORI.ReadOnly = True + ' + 'NL + ' + Me.NL.HeaderText = "NL" + Me.NL.Name = "NL" + Me.NL.ReadOnly = True + Me.NL.Width = 60 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(122, 26) + ' + 'KopierenToolStripMenuItem + ' + Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem" + Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(121, 22) + Me.KopierenToolStripMenuItem.Text = "Kopieren" + ' + 'ContextMenuStrip3 + ' + Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ÄndernToolStripMenuItem, Me.HochladenToolStripMenuItem, Me.ScannenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem}) + Me.ContextMenuStrip3.Name = "ContextMenuStrip1" + Me.ContextMenuStrip3.Size = New System.Drawing.Size(140, 114) + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.del + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(139, 22) + Me.ToolStripMenuItem3.Text = "Löschen" + ' + 'ÄndernToolStripMenuItem + ' + Me.ÄndernToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift + Me.ÄndernToolStripMenuItem.Name = "ÄndernToolStripMenuItem" + Me.ÄndernToolStripMenuItem.Size = New System.Drawing.Size(139, 22) + Me.ÄndernToolStripMenuItem.Text = "Ändern" + ' + 'HochladenToolStripMenuItem + ' + Me.HochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf + Me.HochladenToolStripMenuItem.Name = "HochladenToolStripMenuItem" + Me.HochladenToolStripMenuItem.Size = New System.Drawing.Size(139, 22) + Me.HochladenToolStripMenuItem.Text = "Hochladen" + ' + 'ScannenToolStripMenuItem + ' + Me.ScannenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.scanner1 + Me.ScannenToolStripMenuItem.Name = "ScannenToolStripMenuItem" + Me.ScannenToolStripMenuItem.Size = New System.Drawing.Size(139, 22) + Me.ScannenToolStripMenuItem.Text = "Scannen" + ' + 'PDFLöschenToolStripMenuItem + ' + Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem" + Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(139, 22) + Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen" + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip1" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(122, 26) + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(121, 22) + Me.ToolStripMenuItem2.Text = "Kopieren" + ' + 'Button2 + ' + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatAppearance.BorderSize = 0 + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(395, 39) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(25, 20) + Me.Button2.TabIndex = 213 + Me.Button2.UseVisualStyleBackColor = True + ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) + Me.ucKundenKontakte.TabIndex = 0 + ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 + ' + 'usrCntlKundenuebersicht + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.btnExcel) + Me.Controls.Add(Me.lblInaktiv) + Me.Controls.Add(Me.Label30) + Me.Controls.Add(Me.cboFirmaFMZOLL) + Me.Controls.Add(Me.tbWeitereKundenDetails) + Me.Controls.Add(Me.lblKdNr) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.grpAbfertigung) + Me.Controls.Add(Me.grpAdresse) + Me.Controls.Add(Me.grpSonstiges) + Me.Margin = New System.Windows.Forms.Padding(2) + Me.Name = "usrCntlKundenuebersicht" + Me.Size = New System.Drawing.Size(1182, 697) + Me.cntxtAddSdl.ResumeLayout(False) + Me.tbWeitereKundenDetails.ResumeLayout(False) + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlSperre.ResumeLayout(False) + Me.pnlSperre.PerformLayout() + Me.tbOffenePosten.ResumeLayout(False) + CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.TabPage3.ResumeLayout(False) + CType(Me.dgvUmsatzbericht, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage8.ResumeLayout(False) + Me.pnlAnh.ResumeLayout(False) + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel3.ResumeLayout(False) + Me.grpAbfertigung.ResumeLayout(False) + Me.grpAbfertigung.PerformLayout() + Me.pnlVERAGSnspr.ResumeLayout(False) + Me.pnlVERAGSnspr.PerformLayout() + Me.Panel4.ResumeLayout(False) + Me.Panel4.PerformLayout() + Me.grpAdresse.ResumeLayout(False) + Me.grpAdresse.PerformLayout() + Me.tbKontakt.ResumeLayout(False) + Me.TabPage10.ResumeLayout(False) + Me.TabPage10.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage11.ResumeLayout(False) + Me.grpSonstiges.ResumeLayout(False) + Me.grpSonstiges.PerformLayout() + Me.tbcntrAllg.ResumeLayout(False) + Me.TabPage5.ResumeLayout(False) + CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage9.ResumeLayout(False) + CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.TabPage6.ResumeLayout(False) + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ContextMenuStrip3.ResumeLayout(False) + Me.ContextMenuStrip2.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents cntxtAddSdl As ContextMenuStrip + Friend WithEvents DToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService + Friend WithEvents btnExcel As Button + Friend WithEvents lblInaktiv As Label + Friend WithEvents Label30 As Label + Friend WithEvents cboFirmaFMZOLL As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents tbWeitereKundenDetails As TabControl + Friend WithEvents TabPage4 As TabPage + Friend WithEvents dgvOfferteDetailsUebersicht As DataGridView + Friend WithEvents dgvOffertenSperrliste As DataGridView + Friend WithEvents lblKeineSperren As Label + Friend WithEvents pnlSperre As Panel + Friend WithEvents FlatButton5 As Button + Friend WithEvents txtSperreGrund As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtSperreDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxSperreSetzen As CheckBox + Friend WithEvents Label36 As Label + Friend WithEvents Label67 As Label + Friend WithEvents tbOffenePosten As TabPage + Friend WithEvents dgvOffenePosten As DataGridView + Friend WithEvents pnl As Panel + Friend WithEvents txtOpLeihgeld As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label44 As Label + Friend WithEvents TabPage3 As TabPage + Friend WithEvents dgvUmsatzbericht As DataGridView + Friend WithEvents TabPage8 As TabPage + Friend WithEvents pnlAnh As Panel + Friend WithEvents usrCntlAnhaenge As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents dgvAnhaenge As DataGridView + Friend WithEvents btnAddAttach As Button + Friend WithEvents Panel3 As Panel + Friend WithEvents FlatButton8 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents FlatButton7 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents lblKdNr As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents grpAbfertigung As GroupBox + Friend WithEvents Label45 As Label + Friend WithEvents txtSammelrechnung As TextBox + Friend WithEvents Label12 As Label + Friend WithEvents txtVorauskasse As TextBox + Friend WithEvents Label42 As Label + Friend WithEvents pnlVERAGSnspr As Panel + Friend WithEvents txtKundenbetreuerTeam As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnVeragAnspr As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents txtKundenbetreuerVertretung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label34 As Label + Friend WithEvents txtKundenbetreuer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnPunkt2Save As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents Button7 As Button + Friend WithEvents Button6 As Button + Friend WithEvents LinkLabel1 As LinkLabel + Friend WithEvents txtZahlungsziel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label33 As Label + Friend WithEvents txtOPFaellig As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label32 As Label + Friend WithEvents txtUmsatzJahr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label29 As Label + Friend WithEvents txtOffenePosten As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label28 As Label + Friend WithEvents cbxFiskalabfertigung As VERAG_PROG_ALLGEMEIN.MyCheckbox + Friend WithEvents lblFisk As Label + Friend WithEvents lblKreditlimit As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As Label + Friend WithEvents lblAviso As TextBox + Friend WithEvents txtAbf_ErsteAbfertigung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As Label + Friend WithEvents Label41 As Label + Friend WithEvents rtbAbf_Besonderheiten As RichTextBox + Friend WithEvents lblNeutralisierung As TextBox + Friend WithEvents Label37 As Label + Friend WithEvents Label3 As Label + Friend WithEvents lblNoGespr As Label + Friend WithEvents lklGanzerText As LinkLabel + Friend WithEvents Panel4 As Panel + Friend WithEvents FlatButton6 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnBonitaetBearbeiten As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents Label68 As Label + Friend WithEvents lblHoechstkredit As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label69 As Label + Friend WithEvents lblBonitaet As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblBonitaetRisikostufe As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblBonitaetsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label39 As Label + Friend WithEvents Label46 As Label + Friend WithEvents grpAdresse As GroupBox + Friend WithEvents tbKontakt As TabControl + Friend WithEvents TabPage10 As TabPage + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents PictureBox1 As PictureBox + Friend WithEvents lblAnsprechpartner As TextBox + Friend WithEvents lblMobil As TextBox + Friend WithEvents lblFax As TextBox + Friend WithEvents lblEmail2 As TextBox + Friend WithEvents lblEmail As TextBox + Friend WithEvents PictureBox4 As PictureBox + Friend WithEvents PictureBox2 As PictureBox + Friend WithEvents lblTel As TextBox + Friend WithEvents PictureBox3 As PictureBox + Friend WithEvents PictureBox5 As PictureBox + Friend WithEvents TabPage11 As TabPage + Friend WithEvents ucKundenKontakte As usrCntlKundenKontakte + Friend WithEvents Label38 As Label + Friend WithEvents txtDebitorennr As TextBox + Friend WithEvents lblFwlFiskal As LinkLabel + Friend WithEvents lblKorrAdresse As LinkLabel + Friend WithEvents lblFirmenname1 As TextBox + Friend WithEvents lblPostfach As TextBox + Friend WithEvents lblLandPlzOrt As TextBox + Friend WithEvents lblStrasse As TextBox + Friend WithEvents lblFirmenname2 As TextBox + Friend WithEvents lblTESTSystem As Label + Friend WithEvents grpSonstiges As GroupBox + Friend WithEvents Button4 As Button + Friend WithEvents Button5 As Button + Friend WithEvents Button3 As Button + Friend WithEvents Button1 As Button + Friend WithEvents tbcntrAllg As TabControl + Friend WithEvents TabPage5 As TabPage + Friend WithEvents dgvVollmachten As DataGridView + Friend WithEvents TabPage9 As TabPage + Friend WithEvents dgvGestGarantie As DataGridView + Friend WithEvents Panel2 As Panel + Friend WithEvents cbxGG As CheckBox + Friend WithEvents txtGGDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtT1VerzollungsadresseBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label11 As Label + Friend WithEvents Button8 As Button + Friend WithEvents Button9 As Button + Friend WithEvents TabPage6 As TabPage + Friend WithEvents UsrCntlKundenAvisoMailBenachrichtigung1 As usrCntlKundenAvisoMailBenachrichtigung + Friend WithEvents TabPage7 As TabPage + Friend WithEvents Label43 As Label + Friend WithEvents cbxKdAuftragsNr As CheckBox + Friend WithEvents RichTextBox1 As RichTextBox + Friend WithEvents Label31 As Label + Friend WithEvents rtbLKWFreigabeSenden As RichTextBox + Friend WithEvents Label10 As Label + Friend WithEvents txtFixeKdAtrNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents TabPage2 As TabPage + Friend WithEvents Label6 As Label + Friend WithEvents lblSteuernummer As TextBox + Friend WithEvents lblAufZoll As TextBox + Friend WithEvents Label9 As Label + Friend WithEvents lblAufEust As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents lblZnv As TextBox + Friend WithEvents Label7 As Label + Friend WithEvents btncheckliste As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents Label4 As Label + Friend WithEvents lblUid As TextBox + Friend WithEvents lblEORI As TextBox + Friend WithEvents Label5 As Label + Friend WithEvents dgvAufschub As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents KtoId As DataGridViewTextBoxColumn + Friend WithEvents Art As DataGridViewTextBoxColumn + Friend WithEvents HZA As DataGridViewTextBoxColumn + Friend WithEvents KontoNr As DataGridViewTextBoxColumn + Friend WithEvents EORI As DataGridViewTextBoxColumn + Friend WithEvents NL As DataGridViewTextBoxColumn + Friend WithEvents rtbInfo As RichTextBox + Friend WithEvents lblAbfertigungsverbot As Label + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents KopierenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ContextMenuStrip3 As ContextMenuStrip + Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem + Friend WithEvents ÄndernToolStripMenuItem As ToolStripMenuItem + Friend WithEvents HochladenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ScannenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PDFLöschenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ContextMenuStrip2 As ContextMenuStrip + Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem + Friend WithEvents Button10 As Button + Friend WithEvents Button2 As Button +End Class diff --git a/SDL/kunden/usrCntlKundenuebersicht.resx b/SDL/kunden/usrCntlKundenuebersicht.resx new file mode 100644 index 00000000..ae854107 --- /dev/null +++ b/SDL/kunden/usrCntlKundenuebersicht.resx @@ -0,0 +1,242 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 135, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl + mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8 + i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI + p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym + hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq + Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u + XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ + 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3 + k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp + uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq + dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t + lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh + AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm + CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO + oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK + F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99 + O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW + pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P + rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E + XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1 + tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7 + kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl + NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5 + mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8 + sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH + vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH + PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu + a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW + etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v + zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg + HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ + 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T + sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q + EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3 + nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg + Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu + Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0 + 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1 + GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW + Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl + mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8 + i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI + p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym + hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq + Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u + XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ + 4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3 + k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp + uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq + dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t + lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh + AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm + CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO + oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK + F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99 + O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW + pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P + rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E + XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1 + tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7 + kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl + NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5 + mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8 + sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH + vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH + PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu + a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW + etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v + zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg + HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ + 9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T + sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q + EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3 + nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg + Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu + Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0 + 581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1 + GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW + Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII= + + + + True + + + True + + + True + + + True + + + True + + + True + + + 832, 17 + + + 989, 17 + + + 1146, 17 + + \ No newline at end of file diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb new file mode 100644 index 00000000..001eb3f6 --- /dev/null +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -0,0 +1,2027 @@ +Imports System.Data.SqlClient +Imports System.Globalization +Imports System.IO +Imports SDL.EORI + +Public Class usrCntlKundenuebersicht + 'Implements INotifyPropertyChanged + Public superuser As Boolean = False + Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing + Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing + Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing + Dim AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing + + Public kdNr As Integer = -1 + Private dataAdapterFirma As New SqlDataAdapter + ' Private dataFirma As New DataTable + Private bindingFirma As New BindingSource + Dim FISKAL As cFiskal_Daten = Nothing + + Private abfertigungsverbotText As String = "" + Private gespraechsberichtText As String = "" + Private korrAdresseText As String = "" + Private firmenwortlautFiskal As String = "" + Dim trennungBesonderheiten = False + + Dim f_bold = New Font(Me.Font.FontFamily, 8, FontStyle.Bold) + Dim f_norm = New Font(Me.Font.FontFamily, 8, FontStyle.Regular) + + Dim WithEvents timerOP As New Timer + + Private loaded As Boolean = False + Dim RG_MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + + ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER + Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager + ' Dim BERECHTIGUNEN As List(Of cBerechtigungen) + Dim WithEvents timer_EORI As New Timer() + Dim f_EORI As Form + Dim f_EORI_PDF As String = "" + + Dim SQL As New SQL + Dim cSqlDb As New cSqlDb + Dim FUNC As New cProgramFunctions + ' Public USRID As Integer = -1 + ' Public userfullname As String = "" + 'Public username As String = "" + Dim db As New DataSet + Dim WHEREStatistik = "" + Public selectedTAB = "" + Property BER_STUFE = 99 + + Public Sub New() + Try + ' initialize added component on form1, which is menu strip; + 'note: if you have added any second component alongside menu + 'strip, such as context menu strip just add additional code + 'line under InitializeComponent(), and it will work; + InitializeComponent() + ' MenuStripSDL.Renderer = New MyRenderer() + Catch ex As Exception + + End Try + End Sub + + + Public Sub New(KdNr As Integer) + Try + InitializeComponent() + Me.kdNr = KdNr + ' MenuStripSDL.Renderer = New MyRenderer() + Catch ex As Exception + + End Try + + End Sub + Private Sub initCboKd() + + Dim connetionString As String = Nothing + Dim connection As SqlConnection + Dim command As SqlCommand + Dim adapter As New SqlDataAdapter() + Dim ds As New DataSet() + Dim i As Integer = 0 + Dim sql As String = Nothing + sql = "SELECT KundenNr,Kurzname FROM Kunden where order by kurzname" + connection = cSqlDb.GetNewOpenConnection() + Try + ' connection.Open() + command = New SqlCommand(sql, connection) + adapter.SelectCommand = command + adapter.Fill(db) + adapter.Dispose() + command.Dispose() + connection.Close() + + Catch ex As Exception + MessageBox.Show("Err ! ") + End Try + End Sub + + + + Private Sub frmKundenUebersichtZOLL_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + + Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL") + timerOP.Interval = 500 + timerOP.Enabled = False + + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then + + Select Case BER_STUFE + Case 99 : Me.FindForm.Close() : Exit Sub + End Select + + End If + + + ' KdSearchBox1.initKdBox(Me, lblKdNr) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then + Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ") + cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True) + End If + + If False Then + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SEE_ALL_COMPANY_INFO", "SDL") Then + cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] ", True, "FMZOLL", True) + cboFirmaFMZOLL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) + Else + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG" + cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE Firma_ID <> 7", True, "FMZOLL", True) + Case "ATILLA" + cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE Firma_ID = 7", True, "FMZOLL", True) + Case Else 'Beide + cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] ", True, "FMZOLL", True) + End Select + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID > 0 Then + cboFirmaFMZOLL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) + cboFirmaFMZOLL.Enabled = False + End If + End If + End If + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then + btnBonitaetBearbeiten.Visible = True + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Vorauskasse_anzeigen", "SDL") Then + txtVorauskasse.Visible = True + Label42.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then + FlatButton7.Visible = True + End If + + + + txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"}) + txtGGDatum._value = Now.ToShortDateString + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + tbWeitereKundenDetails.TabPages.Remove(TabPage3) + tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten) + tbcntrAllg.TabPages.Remove(TabPage6) + tbcntrAllg.TabPages.Remove(TabPage7) + End If + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then + btnPunkt2Save.Visible = True + rtbAbf_Besonderheiten.ReadOnly = False + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_QSTeams_Bearbeiten", "SDL") Then + btnVeragAnspr.Visible = True + End If + + + pnlSperre.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTEN_SPERRE", "SDL") + + + + If kdNr > 0 Then setKD(kdNr) + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + btncheckliste.Visible = False + tbcntrAllg.Visible = False + Case "IMEX" + FlatButton8.Visible = False + FlatButton7.Visible = False + + End Select + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("UID_EORI_Prüfung", "SDL") Then + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then + Button1.Visible = True + Button5.Visible = True + Button10.Visible = True + Button2.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then Button3.Visible = True 'Geht nochn nicht + Button4.Visible = True + End If + + + Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + Sub initKD() + Dim kdsrch As New SDL.frmKundenSuche + kdsrch.erweitern = True + If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then + + setKD(kdsrch.kundenNrSearch.Text) + Else + Me.BringToFront() + If kdNr <= 0 Then + ' Me.Close() + End If + End If + + + End Sub + + Public Sub setKD(kdnr) + Me.kdNr = kdnr + loaded = False + If Not (New kundenSQL).existByKdNr(kdnr) Then + + initAbfVerb(False) + rtbInfo.Visible = False + Exit Sub + 'MsgBox("Keine Kundennummer ausgewählt!", vbCritical) + 'Me.Close() : Exit Sub + End If + 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM & " - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME) + lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM + + initAllgemein() + initDGVUmsatz() + initDGVOffenePosten() + initDGVVollmachten() + initDGVGestGarantie() + 'initDGVOfferte() + initDGVAnhaenge() + initDGVOffertenSperrliste() + initSperre() + + RG_MONAT = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + + tbKontakt_TabIndexChanged(tbKontakt, New EventArgs) + + 'If tbcntrKundenDaten.SelectedIndex = 1 Then initZollTarife() ' nur wenn der Tab aktiv, sonst dauert das Laden länger + 'If tbcntrKundenDaten.SelectedIndex = 3 Then initStatistik() ' nur wenn der Tab aktiv, sonst dauert das Laden länger + + + ' btncheckliste.Focus() + loaded = True + End Sub + + Private Sub pnlAbfVerb_MouseHover(sender As Object, e As EventArgs) Handles lblAbfertigungsverbot.MouseHover, rtbInfo.MouseHover + Dim p As New UserControl + ' rtbInfo.Width = 450 + rtbInfo.Height = 300 + ' rtbInfo.Text = abfertigungsverbotText + rtbInfo.Visible = True + End Sub + + Private Sub lblAbfertigungsverbot_MouseLeave(sender As Object, e As EventArgs) Handles lblAbfertigungsverbot.MouseLeave, rtbInfo.MouseLeave + + ' rtbInfo.Visible = False + rtbInfo.Height = 26 + End Sub + + Private Sub lblAbfertigungsverbot_Click(sender As Object, e As EventArgs) Handles lblAbfertigungsverbot.Click + showForm(abfertigungsverbotText, "Abfertigungsverbot") + End Sub + + + Sub initAllgemein() + Try + lblAbfertigungsverbot.Visible = False + rtbInfo.Visible = False + trennungBesonderheiten = False + + abfertigungsverbotText = "" + gespraechsberichtText = "" + korrAdresseText = "" + firmenwortlautFiskal = "" + 'Me.dataAdapterFirma = Nothing + ' Me.dataFirma.Clear() + 'SDL! + + Dim conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + ' MsgBox(conn.ConnectionString) + ' Me.dataAdapterFirma = New SqlDataAdapter("SELECT TOP 1 * FROM Kunden INNER JOIN Adressen ON Kunden.KundenNr= Adressen.AdressenNr where KundenNr=" & kdNr & " AND [Auswahl]='A' ", conn) + KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) + ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) + KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) + AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(kdNr) + ' Me.dataAdapterFirma.Fill(Me.dataFirma) + conn.Close() + + ' Me.dataFirma.AcceptChanges() + ' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture + + lblKdNr.Text = checkNullStr(KUNDE.KundenNr) + txtDebitorennr.Text = checkNullStr(KUNDE.KundenNrZentrale) + + + lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1) + lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2) + + lblStrasse.Text = checkNullStr(ADRESSE.Straße) + lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort) + + lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach) + + + lblTel.Text = checkNullStr(ADRESSE.Telefon) + lblFax.Text = checkNullStr(ADRESSE.Telefax) + lblMobil.Text = checkNullStr(ADRESSE.Mobiltelefon) + lblEmail.Text = checkNullStr(ADRESSE.E_Mail) + lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2) + + lblInaktiv.Visible = False + If ADRESSE.Auswahl IsNot Nothing Then + lblInaktiv.Visible = (ADRESSE.Auswahl = "I") + End If + + + + lblUid.Text = "" + If checkNullStr(ADRESSE.UstIdKz) <> "" Or checkNullStr(ADRESSE.UstIdNr) <> "" Then + lblUid.Text = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr) + If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then + lblUid.Text &= " , geprüft: " & checkNullStr(ADRESSE.UstIdGeprüft) + End If + End If + + lblSteuernummer.Text = "" + If checkNullStr(ADRESSE.Steuernummer) <> "" Then + lblSteuernummer.Text = checkNullStr(ADRESSE.Steuernummer) + End If + + lblEORI.Text = "" + If checkNullStr(KUNDE.EORITIN) <> "" Then + lblEORI.Text = (checkNullStr(KUNDE.EORITIN) & " " & checkNullStr(KUNDE.EORITIN_NL)).Trim + End If + If lblEORI.Text = "" Then Button4.Visible = False : Button3.Visible = False : Button2.Visible = False + If lblUid.Text = "" Then Button1.Visible = False : Button5.Visible = False : Button10.Visible = False + + lblZnv.Text = "" + If checkNullStr(KUNDE.ZulassungsNr_ZnV) <> "" Then + lblZnv.Text = checkNullStr(KUNDE.ZulassungsNr_ZnV) + End If + + lblAufEust.Text = "" + If checkNullStr(KUNDE.Aufschubkonto_EUSt) <> "" Then + lblAufEust.Text = checkNullStr(KUNDE.Aufschubkonto_EUSt) + End If + + lblAufZoll.Text = "" + If checkNullStr(KUNDE.Aufschubkonto_Zoll) <> "" Then + lblAufZoll.Text = checkNullStr(KUNDE.Aufschubkonto_Zoll) + End If + + lblAnsprechpartner.Text = "" + If checkNullStr(ADRESSE.Ansprechpartner) <> "" Then + lblAnsprechpartner.Text = If(ADRESSE.Anrede IsNot Nothing, ADRESSE.Anrede & " ", "") & checkNullStr(ADRESSE.Ansprechpartner) + End If + If checkNullStr(KUNDE.Abfertigungsverbot_Grund) <> "" Then + abfertigungsverbotText = checkNullStr(KUNDE.Abfertigungsverbot_Grund) + End If + rtbInfo.Text = abfertigungsverbotText + + gespraechsberichtText = checkNullStr(KUNDE.Gesprächsbericht) + lklGanzerText.Visible = False + lblNoGespr.Visible = True + + If (checkNullStr(KUNDE.Gesprächsbericht) <> "") Then + lklGanzerText.Visible = True + lblNoGespr.Visible = False + End If + + lblKorrAdresse.Visible = False + lblFwlFiskal.Visible = False + If (checkNullStr(KUNDE.KD_Korrespondenz) <> "") Then + korrAdresseText = checkNullStr(KUNDE.KD_Korrespondenz) + lblKorrAdresse.Visible = True + End If + ' txtAbweichndeFiskalAdresse.Text = "" + If (checkNullStr(KUNDE_ERW.kde_FirmenwortlautFiskal) <> "") Then + firmenwortlautFiskal = checkNullStr(KUNDE_ERW.kde_FirmenwortlautFiskal) + ' txtAbweichndeFiskalAdresse.Text = firmenwortlautFiskal + lblFwlFiskal.Visible = True + End If + + + Dim abfertigungsverbot As Boolean = checkNullBool(KUNDE.Abfertigungsverbot) + initAbfVerb(abfertigungsverbot) + Dim TMPText = checkNullStr(KUNDE.Besonderheiten) + ' TMPText = TMPText.Replace("/ ", "" & vbNewLine) + ' TMPText = TMPText.Replace("/", "" & vbNewLine) + rtbAbf_Besonderheiten.Text = TMPText + lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("N", CultureInfo.CurrentCulture) + + + 'lblAviso.Font = f_norm + 'lblNeutralisierung.Font = f_norm + 'txtVorauskasse.Font = f_norm + lblAviso.BackColor = Color.White + lblNeutralisierung.BackColor = Color.White + txtVorauskasse.BackColor = Color.White + + Select Case checkNullStr(KUNDE.Avis) + Case 0 : lblAviso.Text = "NEIN" + Case 1 : lblAviso.Text = "Voravis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold + Case 2 : lblAviso.Text = "Nachavis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold + Case 3 : lblAviso.Text = "Vor- und Nachavis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold + End Select + Select Case checkNullStr(KUNDE.Neutralisierung) + Case 0 : lblNeutralisierung.Text = "NEIN" + Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold + Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold + End Select + If KUNDE.Vorkasse Then + txtVorauskasse.Text = "JA" : txtVorauskasse.BackColor = Color.Yellow 'txtVorauskasse.Font = f_bold + Else + txtVorauskasse.Text = "NEIN" + End If + + + cbxFiskalabfertigung.Checked = checkNullBool(KUNDE.Fiskal) + cbxFiskalabfertigung.CheckedValue = checkNullBool(KUNDE.Fiskal) + ' + ' lblZollvollmacht.Text = "NEIN" + ' lblZVMErneuern.Visible = False + ' lblZollvollmacht.ForeColor = Color.Black + '' If checkNullBool(KUNDE.Zollvollmacht)) Then + ' lblZollvollmacht.Text = "" + 'If checkNullStr(KUNDE.Zollvollmacht vom)) <> "" Then + ' lblZollvollmacht.Text &= "vom " & checkNullStr(KUNDE.Zollvollmacht vom)) + ' Try + 'If CDate(checkNullStr(KUNDE.Zollvollmacht vom))) < CDate("01." & Now.Month & "." & Now.Year).AddYears(-2) Then + 'lblZVMErneuern.Visible = True + ' lblZollvollmacht.ForeColor = Color.Red + ' End If + ' Catch ex As Exception : End Try + ' End If + ' End If + lblBonitaet.Text = If(KUNDE.Bonität, "") + If lblBonitaet.Text = "0" Then lblBonitaet.Text = "" + If KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then + lblBonitaetsdatum.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString + Else + lblBonitaetsdatum.Text = "" + End If + lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_BonitaetsStufe, "") + + lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "") + + + txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "") + txtKundenbetreuerTeam.Text = If(KUNDE_ERW.kde_qsTeamName, "") + + + 'cbxAbf_SvsRvs.CheckedValue = checkNullBool(KUNDE.SVS) + + 'txtAbf_Vorlageprovision._value = checkNullStr(KUNDE.Vorlageprovision) + 'txtAbf_Kreditaufwendungen._value = checkNullStr(KUNDE.Kreditaufwendungen) + 'txtAbf_Bankspesen._value = checkNullStr(KUNDE.Bankspesen) + 'txtAbf_BankspesenMindestbetrag.Text = checkNullStr(KUNDE.Bankspesen_Mindestbetrag) + 'txtAbf_Waehrung.Text = checkNullStr(KUNDE.Währungscode) + + txtSammelrechnung.Text = "NEIN" + If CInt(KUNDE.Sammelrechnung) > 0 Then + Select Case CInt(KUNDE.Sammelrechnung) + Case 1 : txtSammelrechnung.Text = "1 - täglich" + Case 2 : txtSammelrechnung.Text = "2 - halbmonatlich" + Case 3 : txtSammelrechnung.Text = "3 - monatlich" + Case 4 : txtSammelrechnung.Text = "4 - Dekade" + Case 5 : txtSammelrechnung.Text = "5 - wöchentlich" + Case 6 : txtSammelrechnung.Text = "6 - Maut/Diesel" + Case 7 : txtSammelrechnung.Text = "7 - LKW" + Case Else : txtSammelrechnung.Text = "?" + End Select + + + End If + + + + txtZahlungsziel.Text = If(KUNDE.Zahlungsziel, "-") & " Tage" + + rtbLKWFreigabeSenden.Text = checkNullStr(KUNDE.DokumenteLKWFreigabe) + cbxKdAuftragsNr.Checked = checkNullBool(KUNDE_ERW.kde_VerwendetAuftragsNr) + txtFixeKdAtrNr.Text = If(KUNDE_ERW.kde_FixeAuftragsNr, "") + + UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) + + initAufschub() + + Button1.BackgroundImage = My.Resources.fragezeichen + Button3.BackgroundImage = My.Resources.fragezeichen + ' Button4.Visible = False + ' Button5.Visible = False + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) + End Try + End Sub + + Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click + Try + Dim kdTmp As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) + kdTmp.DokumenteLKWFreigabe = rtbLKWFreigabeSenden.Text + kdTmp.SAVE() + Dim kdErwTmp As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) + kdErwTmp.kde_VerwendetAuftragsNr = cbxKdAuftragsNr.Checked + kdErwTmp.kde_FixeAuftragsNr = If(txtFixeKdAtrNr.Text <> "", txtFixeKdAtrNr.Text, Nothing) + kdErwTmp.SAVE() + Catch ex As Exception + MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message) + End Try + End Sub + + + Sub initAbfVerb(abfertigungsverbot) + If abfertigungsverbot Then + 'Me.BackColor = Color.Red + lblAbfertigungsverbot.Visible = True + rtbInfo.Visible = True + 'lblTARIFE.ForeColor = Color.White + Else + 'Me.BackColor = Color.White + lblAbfertigungsverbot.Visible = False + rtbInfo.Visible = False + 'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128) + End If + End Sub + + + Sub showForm(t As String, Optional h As String = "") + Dim f As New Form + Dim p As New Panel + Dim rtb As New RichTextBox + f.StartPosition = FormStartPosition.CenterScreen + f.Width = 700 + f.Height = 400 + f.Text = h + f.Icon = My.Resources.sdl_ico + rtb.Dock = DockStyle.Fill + p.Dock = DockStyle.Fill + f.Controls.Add(p) + p.Controls.Add(rtb) + rtb.Text = t + f.ShowDialog() + End Sub + Sub initDGVAnhaenge() + usrCntlAnhaenge.INIT(kdNr) + TabPage8.Text = "Anhänge" + ' MsgBox(usrCntlAnhaenge.MyListBox1.Items.Count) + If usrCntlAnhaenge.MyListBox1.Items.Count > 0 Then TabPage8.Text &= " (" & usrCntlAnhaenge.MyListBox1.Items.Count & ")" + Exit Sub + With dgvAnhaenge + .DataSource = SQL.loadDgvBySql("SELECT [da_id],[da_pfad],[da_name] FROM [tblDatenarchiv] " & + " WHERE [da_KundenNr]='" & kdNr & "' and [da_kategorie]='DOKUMENTE' AND da_ordner ='ANHÄNGE' ", "FMZOLL") + + .Columns("da_id").Visible = False + .Columns("da_pfad").Visible = False + .Columns("da_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("da_name").HeaderText = "Datei" + .ClearSelection() + AddHandler .CellDoubleClick, Sub() + If dgvAnhaenge.SelectedRows.Count > 0 Then + dgvAnhaenge.Cursor = Cursors.WaitCursor + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) + DS.OPEN_SINGLE(True) + dgvAnhaenge.Cursor = Cursors.Default + 'cDATENSERVER.openDataTMPByDatenarchivId(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) + End If + End Sub + + End With + End Sub + + Sub initDGVUmsatz() + With dgvUmsatzbericht + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub + Dim where = "" + If cboFirmaFMZOLL._value <> "" Then + where = " AND Firma_ID=" & cboFirmaFMZOLL._value + Else + where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") + End If + + 'Alles andere gesperrt + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG" + where &= " AND Firma_ID <> 7" + Case "ATILLA" + where &= " AND Firma_ID = 7" + End Select + .DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" & + " FROM [tblKundenumsatz] " & + " WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL") + .Columns(0).Visible = False + .Columns(11).Visible = False + .Columns(1).Width = 45 + .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns(2).Width = 75 + .Columns(2).DefaultCellStyle.Format = "N2" + .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns(3).Width = 75 + .Columns(3).DefaultCellStyle.Format = "N2" + .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns(4).Width = 75 + .Columns(4).DefaultCellStyle.Format = "N2" + .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns(5).Width = 55 + .Columns(5).DefaultCellStyle.Format = "N2" + .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns(6).Width = 75 + .Columns(6).DefaultCellStyle.Format = "N2" + .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns(7).Width = 60 + .Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns(8).Width = 55 + .Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns(8).HeaderText = "Rechng." + .Columns(9).Width = 53 + .Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns(9).HeaderText = "Gutschr." + .Columns(10).MinimumWidth = 65 + .Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + If .RowCount > 0 Then + txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value) + Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":" + Else + txtUmsatzJahr.Text = "" + End If + End With + + End Sub + + Sub initDGVVollmachten() + With dgvVollmachten + .Columns.Clear() + + Dim where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' " + ' Case Else : where = " AND art.kdvma_Firma<>'IMEX' " + 'End Select + + .DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " & + " FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 " & where & + " ORDER BY art.kdvma_id", "FMZOLL") + ' .RowTemplate.Height = 30 + .Columns("kdvm_Id").Visible = False + .Columns("kdvma_Id").Visible = False + .Columns("kdvm_KundenNr").Visible = False + .Columns("kdvm_datenarchivId").Visible = False + .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung" + .Columns("kdvm_erhalten").Width = 45 + .Columns("kdvm_erhalten").HeaderText = "Erhalten" + .Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("kdvm_erhalten_Datum").Width = 100 + .Columns("kdvm_erhalten_Datum").HeaderText = "Erhalten am" + .Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("kdvm_Info").Width = 200 + .Columns("kdvm_Info").HeaderText = "Info" + .Columns("kdvm_Info").Visible = False + + If True Then + + Dim c As New DataGridViewImageColumn + c.Name = "clmnTherefore" : c.HeaderText = "PDF" + ' c.Image = Nothing + c.DefaultCellStyle.NullValue = Nothing + c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.DefaultCellStyle.Tag = "Therefore anzeigen" + + .Columns.Add(c) + + For Each r As DataGridViewRow In .Rows + If r.Cells("kdvma_Id").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("kdvma_Id").Value) Then + Select Case r.Cells("kdvma_Id").Value + Case 1, 7, 2, 8, 4, 9, 12, 13 : DirectCast(r.Cells("clmnTherefore"), DataGridViewImageCell).Value = My.Resources.therefore1 + End Select + End If + Next + + + End If + If False Then + + Dim c As New DataGridViewImageColumn + c.Name = "clmnPDF" : c.HeaderText = "PDF" + c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.DefaultCellStyle.Tag = "PDF anzeigen" + .Columns.Add(c) + End If + + For Each r As DataGridViewRow In .Rows + If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then + r.DefaultCellStyle.ForeColor = Color.Gray + ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then + r.DefaultCellStyle.ForeColor = Color.Gray + ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then + r.DefaultCellStyle.ForeColor = Color.Red + End If + + If False Then + If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then + DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf + End If + End If + Next + End With + + End Sub + + Sub initDGVGestGarantie() + With dgvGestGarantie + .Columns.Clear() + + Dim where = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' " + Case Else : where = " AND art.kdvma_Firma<>'IMEX' " + End Select + + + .DataSource = VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.LOAD_LIST(kdNr) + If .Columns.Count = 0 Then Exit Sub + + .Columns("gg_Id").Visible = False + .Columns("gg_KundenNr").Visible = False + .Columns("gg_datenarchivId").Visible = False + .Columns("gg_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("gg_erhalten_Datum").Width = 70 + .Columns("gg_erhalten_Datum").HeaderText = "Datum" + .Columns("gg_Zollamt").Width = 80 + .Columns("gg_Zollamt").HeaderText = "Zollamt" + .Columns("gg_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("gg_Info").HeaderText = "Info" + + + If True Then + Dim c As New DataGridViewImageColumn + c.Name = "clmnPDF" : c.HeaderText = "PDF" + c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.DefaultCellStyle.Tag = "PDF anzeigen" + .Columns.Add(c) + For Each r As DataGridViewRow In .Rows + If r.Cells("gg_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("gg_datenarchivId").Value) > 0 Then + DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf + End If + Next + End If + End With + clearGG() + End Sub + + Sub initDGVOffertenSperrliste() + With dgvOffertenSperrliste + Dim where As String = "" + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + where = " AND Offerten.OffertenNr IN (5,6) " + End If + + + ' MsgBox("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ", "FMZOLL") + + .DataSource = dt + + If .ColumnCount = 0 Then Exit Sub + + .Columns("OffertenNr").Visible = False + .Columns("Besonderheiten").Visible = False + ' .Columns("OffertenNr").HeaderText = "Nr" + .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("OffertenBez").HeaderText = "Bezeichnung" + .Columns("Gesperrt").HeaderText = "Sperre" + .Columns("Gesperrt").Width = 45 + .Columns("Gesperrt_Datum").HeaderText = "Datum" + .Columns("Gesperrt_Datum").Width = 100 + .Columns("Gesperrt_Grund").HeaderText = "Sperre-Grund" + .Columns("Gesperrt_Grund").Width = 320 + .Columns("Gesperrt").Visible = False + .Columns("Gesperrt_Grund").Visible = False + .Columns("Gesperrt_Datum").Visible = False + + lblKeineSperren.Visible = (.RowCount = 0) + + + For Each r As DataGridViewRow In .Rows + If r.Cells("Gesperrt").Value IsNot DBNull.Value Then + If CBool(r.Cells("Gesperrt").Value) = True Then + r.DefaultCellStyle.ForeColor = Color.Red + End If + End If + Next + + AddHandler dgvOffertenSperrliste.SelectionChanged, Sub() + initSperre() + End Sub + + + End With + + + End Sub + + + Private Sub initSperre() + cbxSperreSetzen.Checked = False + txtSperreDat.Text = "" + txtSperreGrund.Text = "" + dgvOfferteDetailsUebersicht.Columns.Clear() + If dgvOffertenSperrliste.SelectedRows.Count > 0 And dgvOffertenSperrliste.Columns.Count > 0 Then + If dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value IsNot DBNull.Value Then + cbxSperreSetzen.Checked = dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value + txtSperreDat.Text = If(dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Datum").Value IsNot DBNull.Value, dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Datum").Value, "") + txtSperreGrund.Text = dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt_Grund").Value + If dgvOffertenSperrliste.SelectedRows(0).Cells("Gesperrt").Value Then + dgvOffertenSperrliste.SelectedRows(0).DefaultCellStyle.SelectionForeColor = Color.Red + Else + dgvOffertenSperrliste.SelectedRows(0).DefaultCellStyle.SelectionForeColor = Color.Black + End If + End If + initDGVOfferteDetailsUebersicht(dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value) + End If + + + End Sub + + + 'Sub initDGVOfferte() + ' With dgvOfferte + ' .DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' ORDER BY Offerten.OffertenNr ", "FMZOLL") + ' .Columns("OffertenNr").Visible = False + ' .Columns("Besonderheiten").Visible = False + ' ' .Columns("OffertenNr").HeaderText = "Nr" + ' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + ' .Columns("OffertenBez").HeaderText = "Bezeichnung" + ' End With + ' ' initDGVOfferteDetails() + + + 'End Sub + + + 'Private Sub dgvOfferte_CellContentClick(sender As Object, e As EventArgs) + ' dgvOfferteDetails.Columns.Clear() + ' If dgvOfferte.SelectedRows.Count > 0 Then + ' initDGVOfferteDetails(dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value) + ' End If + 'End Sub + + + 'Sub initDGVOfferteDetails(Optional OffertenNr = -1) + ' With dgvOfferteDetails + ' .DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[PreisänderungProzent],[PreisAlt],[Preisänderung],[Geändert am],[Sachbearbeiter] " & + ' " FROM [Offertenpositionen] " & + ' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") + + ' FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) + ' FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) + + + + ' .Columns("LeistungsNr").Width = 30 + ' .Columns("LeistungsNr").HeaderText = "Nr" + ' .Columns("LeistungsBez").MinimumWidth = 180 + ' .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + ' .Columns("LeistungsBez").HeaderText = "Leistung" + ' .Columns("BerechnungsartNr").MinimumWidth = 130 + ' .Columns("Preis").Width = 60 + ' .Columns("Preis").DefaultCellStyle.Format = "N2" + ' .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + ' .Columns("Anzahl").Width = 50 + ' .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + ' .Columns("BGebLeistungsNr").Width = 60 + ' .Columns("BGebProzent").Width = 55 + ' .Columns("BGebProzent").HeaderText = "BGeb %" + ' .Columns("BGebProzent").DefaultCellStyle.Format = "P" + ' .Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + ' .Columns("BGebMinBetrag").Width = 60 + ' .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." + ' .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + ' .Columns("Eingegeben am").Visible = False + ' ' .Columns("Sachbearbeiter").Visible = False + ' ' .Columns("Geändert am").Visible = False + ' .Columns("Sachbearbeiter").Width = 65 + ' .Columns("Geändert am").Width = 95 + ' .Columns("PreisänderungProzent").Width = 65 + ' .Columns("PreisänderungProzent").HeaderText = "Preisänd.%" + ' .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" + ' .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + ' .Columns("PreisAlt").Width = 60 + ' .Columns("PreisAlt").DefaultCellStyle.Format = "N2" + ' .Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + ' .Columns("Preisänderung").Width = 60 + ' .Columns("Preisänderung").HeaderText = "PreisNeu" + ' .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + + ' End With + + 'End Sub + + Sub initDGVOfferteDetailsUebersicht(OffertenNr) + + With dgvOfferteDetailsUebersicht + ' .Columns.Clear() + .DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[Preis],/*[BerechnungsartNr],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[PreisänderungProzent],[PreisAlt],[Preisänderung],*/[Geändert am],[Sachbearbeiter] " & + " FROM [Offertenpositionen] " & + " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") + + ' FUNC.dgvCellToCbo(dgvOfferteDetailsUebersicht, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) + ' FUNC.dgvCellToCbo(dgvOfferteDetailsUebersicht, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) + + + + .Columns("LeistungsNr").Width = 30 + .Columns("LeistungsNr").HeaderText = "Nr" + .Columns("LeistungsBez").MinimumWidth = 180 + .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("LeistungsBez").HeaderText = "Leistung" + ' .Columns("BerechnungsartNr").MinimumWidth = 130 + .Columns("Preis").Width = 60 + .Columns("Preis").DefaultCellStyle.Format = "N2" + .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + '.Columns("Anzahl").Width = 50 + '.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("BGebLeistungsNr").Width = 60 + '.Columns("BGebProzent").Width = 55 + '.Columns("BGebProzent").HeaderText = "BGeb %" + '.Columns("BGebProzent").DefaultCellStyle.Format = "P" + '.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + '.Columns("BGebMinBetrag").Width = 60 + '.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." + '.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + '.Columns("Eingegeben am").Visible = False + + .Columns("Sachbearbeiter").Width = 65 + .Columns("Geändert am").Width = 95 + '.Columns("PreisänderungProzent").Width = 65 + '.Columns("PreisänderungProzent").HeaderText = "Preisänd.%" + '.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" + '.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + '.Columns("PreisAlt").Width = 60 + '.Columns("PreisAlt").DefaultCellStyle.Format = "N2" + '.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + '.Columns("Preisänderung").Width = 60 + '.Columns("Preisänderung").HeaderText = "PreisNeu" + '.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + + + End With + + End Sub + + + 'Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferte.SelectionChanged + ' If dgvOfferte.RowCount > 0 Then + ' rtbBesonderheiten.Text = checkNullStr(dgvOfferte.Rows(0).Cells("Besonderheiten").Value) + ' Else + ' rtbBesonderheiten.Text = "" + ' End If + + 'End Sub + + + Sub initDGVOffenePosten() + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : initDGVOffenePostenIMEX() + Case Else : initDGVOffenePostenVERAG() + End Select + End Sub + + Sub initDGVOffenePostenIMEX() + + With dgvOffenePosten + .Columns.Clear() + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub + Dim where = "" + + + + .DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR] ,[Buchungstext] " & + " FROM [Offene_Posten_DVO] " & + " WHERE KundenNr='" & KUNDE.KundenNr & "' " & where & " order BY datum DESC,[OP_ID] DESC", "FMZOLL") + If .Columns.Count > 0 Then + + .Columns("KdNr").Visible = False + + .Columns("Datum").Width = 70 + .Columns("Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns("Betrag").Width = 75 + .Columns("Betrag").DefaultCellStyle.Format = "N2" + .Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + + '.Columns("OP-Saldo").Width = 75 + '.Columns("OP-Saldo").DefaultCellStyle.Format = "N2" + '.Columns("OP-Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns("OP-Saldo").Visible = False + + .Columns("Währung").Width = 60 + .Columns("Währung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + + '.Columns("KumSaldoEUR").Width = 80 + '.Columns("KumSaldoEUR").DefaultCellStyle.Format = "N2" + '.Columns("KumSaldoEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + .Columns("KumSaldoEUR").Visible = False + + .Columns("Buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ' .Columns("KumSaldoEUR").ReadOnly = False + + ' If .RowCount > 0 Then + + + End If + + Dim zahlungsziel = 10 + Dim sumZZ As Double = 0 + Dim sumGes As Double = 0 + If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel + + + Try + For Each r As DataGridViewRow In .Rows + If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then + If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value) + End If + sumGes += CDbl(r.Cells("Betrag").Value) + Next + + Catch ex As Exception + MsgBox("OP: " & ex.Message) + End Try + + 'Dim OP_tmp As Double = 0 + + 'If cboFirmaFMZOLL._value <> "" Then + ' If .RowCount > 0 Then OP_tmp = If(.Rows(0).Cells("KumSaldoEUR").Value, 0) + 'End If + + + 'If OP_tmp > 0 Then + ' txtOffenePosten.Text = SQL.doSQL("SELECT sum([Saldo]) FROM [Offene_Posten_DVO] where KundenNr='" & KUNDE.KundenNr & "' ", "FMZOLL") + 'Else + ' txtOffenePosten.Text = "" + 'End If + + txtOPFaellig.Text = sumZZ.ToString("C") + If sumZZ > 0 Then + txtOPFaellig.ForeColor = Color.Red + Else + txtOPFaellig.ForeColor = Color.Black + End If + + If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") Else txtOffenePosten.Text = "" + 'If sumGes > 0 Then + ' txtOffenePosten.Text = sumGes.ToString("C") + 'Else + ' txtOffenePosten.Text = "" + 'End If + + + 'Dim c As New DataGridViewTextBoxColumn + 'c.Name = "clmnSaldo" + 'c.HeaderText = "Saldo" + '.Columns.Insert(6, c) + ' timerOP.Enabled = True + + End With + ' Label44.Visible = True + ' txtOpLeihgeld.Visible = True + pnl.Visible = True + + Dim op_tmp = SQL.getValueTxtBySql("SELECT isnull(sum(Saldo),0) as OP FROM [Offene_Posten_DVO] where KundenNr=" & kdNr & " AND konto like '5%'", "FMZOLL") + If IsNumeric(op_tmp) Then + txtOpLeihgeld.Text = CDbl(op_tmp).ToString("C2") + Else + txtOpLeihgeld.Text = "" + End If + End Sub + + + + Sub initDGVOffenePostenVERAG() + + + With dgvOffenePosten + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub + Dim where = "" + If cboFirmaFMZOLL._value <> "" Then + where = " AND Firma_ID=" & cboFirmaFMZOLL._value + Else + where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") + End If + + .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " & + " FROM [Offene Posten] " & + " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY Belegdatum DESC", "FMZOLL") + .Columns(0).Visible = False + + .Columns(1).Width = 70 + .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns(3).Width = 75 + .Columns(3).DefaultCellStyle.Format = "N2" + .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + + .Columns(4).Width = 75 + .Columns(4).DefaultCellStyle.Format = "N2" + .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + + .Columns(5).Width = 60 + .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns(6).Width = 80 + .Columns(6).DefaultCellStyle.Format = "N2" + .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight + + .Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + Dim OP_tmp As Double = 0 + + If cboFirmaFMZOLL._value <> "" Then + If .RowCount > 0 Then OP_tmp = If(.Rows(0).Cells("KumSaldoEUR").Value, 0) + Else + Dim where2 = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") + Dim dt_OP As DataTable = SQL.loadDgvBySql("select isnull((select TOP 1 isnull(KumSaldoEUR,0) as abc FROM [Offene Posten] WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' and [Offene Posten].Firma_ID=tblFirma.Firma_ID ORDER BY Belegdatum DESC),0) From tblFirma WHERE 1=1 " & where2, "FMZOLL") + If dt_OP IsNot Nothing Then + For Each r In dt_OP.Rows + OP_tmp += r(0) + Next + End If + End If + + + ' If .RowCount > 0 Then + If OP_tmp > 0 Then + ' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value) + txtOffenePosten.Text = String.Format("{0:n}", OP_tmp) + Else + txtOffenePosten.Text = "" + End If + + Dim zahlungsziel = 10 + Dim sumZZ As Double = 0 + If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel + Try + For Each r As DataGridViewRow In .Rows + If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then + If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value) + End If + Next + Catch ex As Exception + MsgBox("OP: " & ex.Message) + End Try + txtOPFaellig.Text = sumZZ.ToString("C") + If sumZZ > 0 Then + txtOPFaellig.ForeColor = Color.Red + Else + txtOPFaellig.ForeColor = Color.Black + End If + End With + End Sub + + Private Sub dgvOffenePosten_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles dgvOffenePosten.RowPostPaint + If DateDiff(DateInterval.Day, CDate(dgvOffenePosten.Rows(e.RowIndex).Cells("Datum").Value), Now) > If(KUNDE.Zahlungsziel, 10) Then + If CDbl(dgvOffenePosten.Rows(e.RowIndex).Cells("Betrag").Value) > 0 Then + dgvOffenePosten.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red + End If + End If + End Sub + + + Public Sub initAufschub() + ' AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(kdNr) + dgvAufschub.Rows.Clear() + If AUFSCHUB IsNot Nothing Then + For Each AB In AUFSCHUB + Dim art = "" + Select Case AB.kdAkto_art + Case "10" : art = "10 - ZOLL/EUST" + Case "15" : art = "15 - ZOLL" + Case "20" : art = "20 - EUST" + End Select + dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin) + Next + End If + dgvAufschub.ClearSelection() + End Sub + + Function checkNullStr(o As Object) As String + If Not IsDBNull(o) Then + Return o + End If + Return "" + End Function + + + Function checkNullNbr(o As Object) As Double + If Not IsDBNull(o) AndAlso IsNumeric(o) Then + Return o + End If + Return 0 + End Function + Function checkNullBool(o As Object) As Boolean + Try + Return DirectCast(o, Boolean) + Catch ex As Exception + Return False + End Try + End Function + + + + Private Sub lklGanzerText_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklGanzerText.LinkClicked + showForm(gespraechsberichtText, "Gesprächsbericht") + End Sub + + Private Sub lblEmail_Click(sender As Object, e As EventArgs) Handles lblEmail2.Click, lblEmail.Click + + If sender.text <> "" Then + If MsgBox("Möchten Sie eine E-Mail an '" & sender.text & "' senden?", vbQuestion + vbYesNo) = vbYes Then + Try : Process.Start(String.Format("mailto:{0}", sender.text)) : Catch : End Try + End If + End If + End Sub + + + Dim tmprowindex As Integer = -1 + Private Sub DgvDelays_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvVollmachten.CellMouseDown + Exit Sub + Try + If e.Button = Windows.Forms.MouseButtons.Right Then + tmprowindex = e.RowIndex + ' cntxtVollmachten.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position)) + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + ' + Private Sub dgvGestGarantie_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGestGarantie.CellDoubleClick + If dgvGestGarantie.SelectedRows.Count = 1 Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvGestGarantie.SelectedRows(0).Cells("gg_datenarchivId").Value) + DS.OPEN_SINGLE() + End If + End Sub + + + Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick + Dim tmprowindex As Integer = e.RowIndex + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Or + VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kunden_VM_bearbeiten", "SDL") Then + + If tmprowindex < 0 Then Exit Sub + Dim frmGrayOut = cProgramFunctions.grayoutForm(Me) + Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value) + Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, datum, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value) + If l.ShowDialog(frmGrayOut) = DialogResult.OK Then + initDGVVollmachten() + End If + frmGrayOut.Close() + + End If + + Exit Sub + + If dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then + ' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) + DS.OPEN_SINGLE(True) + + End If + + + End Sub + + + + Private Sub dgvVollmachten_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellClick + Dim tmprowindex As Integer = e.RowIndex + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG" + If tmprowindex >= 0 Then + If dgvVollmachten.Columns(e.ColumnIndex).Name = "clmnTherefore" Then + If dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value Is DBNull.Value Then Exit Sub + If dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value Is Nothing Then Exit Sub + cProgramFunctions.openThereforeNavigatorZollvollmachten(kdNr, dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value) + End If + End If + End Select + End Sub + + + + + Private Sub dgvUmsatzbericht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachten.SelectionChanged, dgvOffenePosten.SelectionChanged, dgvUmsatzbericht.SelectionChanged, dgvOfferteDetailsUebersicht.SelectionChanged ', dgvOffertenSperrliste.SelectionChanged + sender.ClearSelection() + End Sub + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblKorrAdresse.LinkClicked + showForm(korrAdresseText, "Korrespondenz - Postadresse ") + End Sub + + + + Private Sub dgvUmsatzbericht_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUmsatzbericht.CellDoubleClick + 'MsgBox(e.RowIndex) + If e.RowIndex < 0 Then Exit Sub + Dim frmKundenUebersichtZollRg As New frmKundenUebersichtZollRg + frmKundenUebersichtZollRg.kdNr = dgvUmsatzbericht.Rows(e.RowIndex).Cells("KundenNr").Value + frmKundenUebersichtZollRg.jahr = dgvUmsatzbericht.Rows(e.RowIndex).Cells("Jahr").Value + frmKundenUebersichtZollRg.Show() + + End Sub + + + + Private Sub dgvVollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick + With dgvVollmachten + If .SelectedRows.Count > 0 Then + If Not .SelectedRows(0).Cells("kdvm_datenarchivId") Is DBNull.Value AndAlso IsNumeric(.SelectedRows(0).Cells("kdvm_datenarchivId")) Then + 'cDATENSERVER.openDataTMPByDatenarchivId(.SelectedRows(0).Cells("kdvm_datenarchivId")) + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(.SelectedRows(0).Cells("kdvm_datenarchivId")) + DS.OPEN_SINGLE(True) + + End If + End If + End With + End Sub + + + Private Sub btnAddAttach_Click(sender As Object, e As EventArgs) Handles btnAddAttach.Click + 'cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "ANHÄNGE", kdNr) + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ANHÄNGE", "", "", "", "Zoll_Kunde_Anhang", kdNr) + DS.uploadDataToDATENSERVERFileDialog() + initDGVAnhaenge() + End Sub + + + Private Sub dgvAnhaenge_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyUp + If e.KeyCode = Keys.Delete Then + If dgvAnhaenge.SelectedRows.Count > 0 Then + If vbYes = MsgBox("Möchten Sie die Datei wirklich löschen?", vbYesNoCancel) Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) + DS.DELETE_COMPLETE() + + 'cDATENSERVER.deleteFileByDatenarchivId(dgvAnhaenge.SelectedRows(0).Cells("da_id").Value) + initDGVAnhaenge() + End If + End If + End If + End Sub + + + + + Private Sub FlatButton2_Click_1(sender As Object, e As EventArgs) Handles btncheckliste.Click + 'MsgBox("Bitte vorübergehend die Funktion 'UID' im Hauptmenü verwenden!") + ' Exit Sub + 'If Not cbxFiskalabfertigung.Checked Then + ' lblFisk.Visible = True + ' Else + Dim found = False + Dim sperre = True + For Each r As DataGridViewRow In dgvOffertenSperrliste.Rows + If r.Cells("OffertenNr").Value = "26" Or r.Cells("OffertenNr").Value = "27" Then + found = True + If r.Cells("Gesperrt").Value Is DBNull.Value OrElse Not CBool(r.Cells("Gesperrt").Value) Then + sperre = False + End If + End If + Next + If found And sperre Then 'es wurde keine Fikale ohne Sperre gefunden, jedoch welche mit sperre -> Abbruch + Exit Sub + End If + If Not found Then + If vbYes = MsgBox("Der Kunde hat kein Fiskal-Offert, soll die Checkliste trotzdem geföffnet werden?", vbYesNoCancel) Then + found = True + End If + End If + + If found Then + Dim frmCheckliste As New frmCheckliste + frmCheckliste.ADRESSEN = ADRESSE + frmCheckliste.KUNDE = KUNDE + frmCheckliste.KUNDE_ERW = KUNDE_ERW + + ' frmCheckliste.kdNr = kdNr + ' frmCheckliste.userfullname = userfullname + frmCheckliste.Show() + Exit Sub + ' Else + ' MsgBox("Der Kunde hat hat Fiskal-Offert bzw. ist für die Abfertigungsart gesperrt.") + End If + + + ' End If + End Sub + + + + + + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + Dim frmKundenChangeMail As New frmKundenChangeMail + frmKundenChangeMail.txtKdNr.Text = lblKdNr.Text + frmKundenChangeMail.txtKdName.Text = lblFirmenname1.Text + 'KdSearchBox1.Text + ' frmKundenChangeMail.txtSB.Text = userfullname + frmKundenChangeMail.Show() + End Sub + + + Private Sub lblEmail_TextChanged(sender As Object, e As EventArgs) Handles lblEmail2.TextChanged, lblEmail.TextChanged + sender.cursor = IIf(sender.text <> "", Cursors.Hand, Cursors.Default) + End Sub + + + + Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged + If loaded Then + initDGVUmsatz() + initDGVOffenePosten() + End If + + End Sub + + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If ADRESSE.UstIdNr Is Nothing Then Exit Sub + If ADRESSE.UstIdKz Is Nothing Then Exit Sub + If ADRESSE.UstIdKz = "" Then Exit Sub + If ADRESSE.UstIdNr = "" Then Exit Sub + + sender.BackgroundImage = My.Resources.wait + ' Button5.Visible = False + + ' If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then + Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True) + If UID IsNot Nothing Then + If UID.uid_valid Then + setKD(kdNr) + sender.BackgroundImage = My.Resources.ok + Else + sender.BackgroundImage = My.Resources.del + End If + Else + sender.BackgroundImage = My.Resources.fragezeichen + End If + + + End Sub + + Private Sub btnPruf_Click(sender As Object, e As EventArgs) Handles Button3.Click + 'Create an object that calls the name for the + 'Web service used in the added Web Reference. + + sender.BackgroundImage = My.Resources.wait + ' Button4.Visible = False + Dim sGetValu2e As New validation + ' sGetValu2e.Url = "http://eori.ws.eos.dds.s/" + sGetValu2e.RequestEncoding = System.Text.UTF8Encoding.Default + 'sGetValu2e.RequestEncoding = System.Text.Encoding.Default + ' sGetValu2e.UserAgent = "Mozilla/4.0" + Try + ' sGetValu2e.Url = "http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation?wsdl" + Dim result As eoriValidationResult = sGetValu2e.validateEORI({KUNDE.EORITIN}) + + If False Then + + Dim CallWebService As New EORI.validation + '(Substitute the names of your own Server and Web + ' service for ServerName.WebServiceName above.) + ' CallWebService.validateEORI = txtEori + ' Dim eori As New UID.eu.europa.ec.eoriResponse + Dim arrEori As String() = {KUNDE.EORITIN} + CallWebService.Timeout = 32768 + ' CallWebService.SoapVersion + 'MsgBox(CallWebService.validateEORI(arrEori)) + 'CallWebService.validateEORIAsync(arrEori) + 'CallWebService.UserAgent = "MSIE 6.0" + + Dim sGetValue As EORI.eoriValidationResult = CallWebService.validateEORI(arrEori) + Dim f As EORI.eoriResponse + MsgBox(sGetValue.requestDate) + MsgBox(sGetValue.errorDescription.ToString) + + MsgBox("OK") + MsgBox(sGetValue.result) + + + If f.status = 100 Then + sender.BackgroundImage = My.Resources.ok + 'Button4.Visible = True + Exit Sub + End If + + End If + + Catch ex2 As InvalidOperationException + 'Server.GetLastError() + MsgBox(ex2.Message & ex2.StackTrace) + Catch ex As Exception + 'Server.GetLastError() + MsgBox(ex.Message & ex.StackTrace) + + End Try + sender.BackgroundImage = My.Resources.del + + Exit Sub + Dim vat As New SDL.EORI.validation + + ' Dim EU3t As New SDL.eu.europa.ec.checkVatService("checkVatPort", "http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl") '"urn:ec.europa.eu:taxud:vies:services:checkVat:types") + ' Dim EU4 As New EU_Uid_Pruefung.checkVatPortTyp + ' EU3.checkVatPortType() + ' "EU_Uid_Pruefung.checkVatPortType" + + + + ' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient() + + ' ass.checkVatPortTypeClient() + + ' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress) + Dim str(1) As String ' = {KUNDE.EORITIN} + str(0) = "DE22372020005" + ' MsgBox("") + Dim s As EORI.eoriValidationResult = vat.validateEORI(str) + MsgBox(s.result(0)) + Dim v As New EORI.validation() + + 'Dim resp As eu.europa.ec1.eoriResponse + 'resp + + + + ' FINANZONLINE::::::::::::::::::::::::::: + '_________________________________ + ' frmUidLink.link = uidlink + ' frmUidLink.Show() + + '_________________________________ + Me.Cursor = Cursors.WaitCursor + If cFinanzOnlineWebService.Call_Web_Service_MethodUID_Login() = 0 Then + MsgBox("HURRA") + End If + + ' If session <> "" Then + ' Dim s As String + ' Try + 's = Call_Web_Service_MethodUID_Abfrage(session) + ' Call_Web_Service_MethodUID_Logout(session) + ' uid_message = getmessage(s) + ' If s = "0" Then + 'uid_message_report = "Die UID-Nummer " & txtUid.Text & " wurde geprüft und ist gültig." + ' ElseIf s = "4" Then + ' uid_message_report = "Die UID-Nummer " & txtUid.Text & " wurde geprüft und ist NICHT gültig." + ' Else + 'uid_message_report = "Probleme bei der Abfrage - UID-Nummer: " & txtUid.Text + ' End If + ' + ' Catch ex As Exception + ' MsgBox("Fehler beim Prüfen der UID-Nummer" & vbNewLine & vbNewLine & ex.Message) : End Try + ' End If + ' Me.Cursor = Cursors.Default + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblFwlFiskal.LinkClicked + showForm(firmenwortlautFiskal, "Firmenwortlaut - Fiskal") + End Sub + + + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + Me.Cursor = Cursors.WaitCursor + printUID("AT", "U53187000", ADRESSE.UstIdKz, ADRESSE.UstIdNr) + Me.Cursor = Cursors.Default + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + Me.Cursor = Cursors.WaitCursor + printEORI(KUNDE.EORITIN) + Me.Cursor = Cursors.Default + End Sub + + Sub printUID(uidKz_antragsteller, uid_antragsteller, uidKz, uid) + If uidKz Is Nothing Then Exit Sub + If uid Is Nothing Then Exit Sub + If uidKz = "" Then Exit Sub + If uid = "" Then Exit Sub + printURL("http://ec.europa.eu/taxation_customs/vies/vatResponse.html?memberStateCode=" & uidKz & "&number=" & uid & "&requesterMemberStateCode=" & uidKz_antragsteller & "&requesterNumber=" & uid_antragsteller) + End Sub + + Sub pdfUID(uidKz_antragsteller, uid_antragsteller, uidKz, uid) + If uidKz Is Nothing Then Exit Sub + If uid Is Nothing Then Exit Sub + If uidKz = "" Then Exit Sub + If uid = "" Then Exit Sub + Dim url = "http://ec.europa.eu/taxation_customs/vies/vatResponse.html?memberStateCode=" & uidKz & "&number=" & uid & "&requesterMemberStateCode=" & uidKz_antragsteller & "&requesterNumber=" & uid_antragsteller + Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) + If pdf <> "" Then Process.Start(pdf) + End Sub + + + + Sub printEORI(eoriNr, Optional pdfPath = "") + timer_EORI.Interval = 2000 + If eoriNr Is Nothing Then Exit Sub + eoriNr = eoriNr.Replace(" ", "").Trim + ' printURL("http://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & eoriNr & "&Expand=true") + + Dim f As New frmInfo + f.Controls.Clear() + Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx + f.Controls.Add(WebBrowser) + f.Visible = False + f.WindowState = FormWindowState.Minimized + f.Show() + f_EORI = f + f_EORI_PDF = pdfPath + + + WebBrowser.Dock = DockStyle.Fill + WebBrowser.Navigate(New Uri("http://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & eoriNr & "&Expand=true")) + AddHandler WebBrowser.DocumentCompleted, Sub() + ' Print the document now that it is fully loaded. + If WebBrowser.ReadyState = WebBrowserReadyState.Complete Then + ' System.Threading.Thread.Sleep(1000) + ' WebBrowser.Print() + ' Dispose the WebBrowser now that the task is complete. + ' WebBrowser.Dispose() + timer_EORI.Enabled = True + End If + + End Sub + + + End Sub + + Sub printURL(url) + Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx + WebBrowser.Navigate(New Uri(url)) + WebBrowser.AllowNavigation = True + 'WebBrowser.Print() + AddHandler WebBrowser.DocumentCompleted, Sub() + ' Print the document now that it is fully loaded. + System.Threading.Thread.Sleep(1000) + WebBrowser.Print() + ' Dispose the WebBrowser now that the task is complete. + WebBrowser.Dispose() + End Sub + + End Sub + + + Private Sub tbWeitereKundenDetails_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbWeitereKundenDetails.SelectedIndexChanged + cboFirmaFMZOLL.Visible = (tbWeitereKundenDetails.SelectedIndex > 0) + Label30.Visible = (tbWeitereKundenDetails.SelectedIndex > 0) + btnExcel.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten) + End Sub + + Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click + + Dim f1 As New frmBonitaet(kdNr) + f1.ShowDialog(Me) + + setKD(kdNr) 'aktualisieren + Exit Sub + + + Dim f As New frmFormulare(kdNr) + f.Show() + f.addForm("Boniteatsauskunft") + + Exit Sub + If kdNr <= 0 Then Exit Sub + Dim frmBonitaetBearbeiten As New frmBonitaetBearbeiten + If frmBonitaetBearbeiten.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + SQL.doSQL("UPDATE Kunden SET Bonität='" & frmBonitaetBearbeiten.lblBonitaet.Text & "', Bonitätsdatum='" & frmBonitaetBearbeiten.lblBonitaetsdatum._value & "' WHERE KundenNr=" & kdNr, "FMZOLL") + setKD(kdNr) + End If + End Sub + + Private Sub FlatButton5_Click_1(sender As Object, e As EventArgs) Handles FlatButton5.Click + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("OFFERTEN_SPERRE", "SDL") > 0 Then + Exit Sub + End If + If dgvOffertenSperrliste.SelectedRows.Count > 0 Then + SQL.doSQL("UPDATE Offerten SET Gesperrt=" & CInt(cbxSperreSetzen.Checked) & ", Gesperrt_Datum=GETDATE(), Gesperrt_Grund='" & txtSperreGrund.Text & "' WHERE KundenNr=" & kdNr & " AND OffertenNr=" & dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value & "", "FMZOLL") + End If + End Sub + + Private Sub cbxSperreSetzen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSperreSetzen.Click + txtSperreDat.Text = Now.ToShortDateString & " " & Now.ToShortTimeString + End Sub + + + Private Sub cbxSperreSetzen_CheckedChanged_1(sender As Object, e As EventArgs) Handles cbxSperreSetzen.CheckedChanged + cbxSperreSetzen.ForeColor = If(cbxSperreSetzen.Checked, Color.Red, Color.Black) + End Sub + + + + Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click + Dim f As New frmBonitätsverlauf(kdNr) + f.Show() + AddHandler f.FormClosed, Sub() + setKD(kdNr) + End Sub + End Sub + + + + Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click + Me.Cursor = Cursors.WaitCursor + cProgramFunctions.genExcelFromDGV_NEW(dgvOffenePosten, False) + Me.Cursor = Cursors.Default + End Sub + + Private Sub LinkLabel1_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + If trennungBesonderheiten Then + rtbAbf_Besonderheiten.Text = checkNullStr(KUNDE.Besonderheiten) + Else + rtbAbf_Besonderheiten.Text = checkNullStr(KUNDE.Besonderheiten).Replace(" / ", vbNewLine) + End If + trennungBesonderheiten = Not trennungBesonderheiten + End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + rtbAbf_Besonderheiten.ZoomFactor += 0.2 + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + rtbAbf_Besonderheiten.ZoomFactor -= 0.2 + End Sub + + Private Sub btnPunkt2Save_Click(sender As Object, e As EventArgs) Handles btnPunkt2Save.Click + SQL.doSQL("UPDATE Kunden SET Besonderheiten='" & rtbAbf_Besonderheiten.Text & "', [Sachbearbeiter] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "', [Geändert am] ='" & Now & "' WHERE KundenNr=" & kdNr, "FMZOLL") + setKD(kdNr) + End Sub + + Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles btnVeragAnspr.Click + Dim f As New frmKundeTeamZuordnung(KUNDE_ERW.kde_qsTeamId, KUNDE_ERW.kde_qsTeamMAId) + + If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + If f.SEL_TEAM IsNot Nothing Then + KUNDE_ERW.kde_qsTeamId = f.SEL_TEAM.qstm_Id + KUNDE_ERW.kde_qsTeamMAId = f.SEL_TEAM.qstm_Id + KUNDE_ERW.kde_qsTeamId = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_MaId) + KUNDE_ERW.kde_qsTeamMAName = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_name) + KUNDE_ERW.kde_qsTeamName = f.SEL_TEAM.qstm_bezeichnung + KUNDE_ERW.SAVE() + ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId='" & f.SEL_TEAM.qstm_Id & "', [kde_qsTeamMAId] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_MaId & "'") & " , [kde_qsTeamMAName] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_name & "'") & " , [kde_qsTeamName] = '" & f.SEL_TEAM.qstm_bezeichnung & "' WHERE kde_KundenNr=" & kdNr, "FMZOLL") + Else + KUNDE_ERW.kde_qsTeamId = Nothing + KUNDE_ERW.kde_qsTeamMAId = Nothing + KUNDE_ERW.kde_qsTeamId = Nothing + KUNDE_ERW.kde_qsTeamMAName = Nothing + KUNDE_ERW.kde_qsTeamName = Nothing + KUNDE_ERW.SAVE() + ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId=null, [kde_qsTeamMAId] = null, [kde_qsTeamMAName] =null , [kde_qsTeamName] =null WHERE kde_KundenNr=" & kdNr, "FMZOLL") + End If + setKD(kdNr) + End If + End Sub + + + Private Sub cbxKdAuftragsNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKdAuftragsNr.CheckedChanged + txtFixeKdAtrNr.Enabled = cbxKdAuftragsNr.Checked + End Sub + + Private Sub timer_EORI_Tick(sender As Object, e As EventArgs) Handles timer_EORI.Tick + Try + If f_EORI_PDF <> "" Then + ' DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx).ShowSaveAsDialog() + 'DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx). + + + 'Dim urlPDF = DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx).Url.AbsoluteUri + 'MsgBox(urlPDF) + 'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(urlPDF, "C:\Users\DEVELOPER1\Desktop\test.pdf") + 'If pdf <> "" Then Process.Start(pdf) + + Else + DirectCast(f_EORI.Controls(0), VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx).Print() + End If + + + + f_EORI.Close() + + + Catch ex As Exception + + End Try + + timer_EORI.Enabled = False + End Sub + + Private Sub tbKontakt_TabIndexChanged(sender As Object, e As EventArgs) Handles tbKontakt.SelectedIndexChanged + If tbKontakt.SelectedTab Is TabPage11 Then + initKdKontakSpeziell() + End If + End Sub + + Sub initKdKontakSpeziell() + 'TabPage11.Controls.Clear() + ucKundenKontakte.init(kdNr) + End Sub + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click + If (txtT1VerzollungsadresseBestimmungszollstelle._value <> "" Or cbxGG.Checked) And txtGGDatum._value <> "" Then + Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien + If Button9.Visible Then + If dgvGestGarantie.SelectedRows.Count = 1 Then + GG = New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) + Else + Exit Sub + End If + End If + GG.gg_KundenNr = kdNr + GG.gg_erhalten_Datum = txtGGDatum._value + GG.gg_Zollamt = If(cbxGG.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value) + + If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt) Then + MsgBox("Der Eintrag existiert bereits!") + Exit Sub + End If + + GG.gg_Info = txtT1VerzollungsadresseBestimmungszollstelle.GET_VALUE_OnlyReturn(txtT1VerzollungsadresseBestimmungszollstelle._value, False) + If GG.SAVE Then + txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE("") + setKD(kdNr) + txtT1VerzollungsadresseBestimmungszollstelle.Focus() + End If + clearGG() + End If + End Sub + + Private Sub txtT1VerzollungsadresseBestimmungszollstelle_KeyDown(sender As Object, e As KeyEventArgs) Handles txtT1VerzollungsadresseBestimmungszollstelle.KeyDown, txtGGDatum.KeyDown + If e.KeyCode = Keys.Return Then + If txtT1VerzollungsadresseBestimmungszollstelle.usrcntl.Visible Then Exit Sub + Button8.PerformClick() + End If + End Sub + + Private Sub dgvGestGarantie_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvGestGarantie.CellMouseClick + If e.RowIndex < 0 Then Exit Sub + DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + If e.Button = Windows.Forms.MouseButtons.Right Then + If dgvGestGarantie.SelectedRows.Count > 0 Then + ContextMenuStrip3.Show(Cursor.Position) + End If + End If + End Sub + + Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click + If dgvGestGarantie.SelectedRows.Count > 0 Then + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then + If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then + Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) + If GG.DELETE() Then + setKD(kdNr) + End If + End If + End If + End If + End Sub + + + Private Sub FlatButton8_Click(sender As Object, e As EventArgs) Handles FlatButton8.Click + cProgramFunctions.openThereforeNavigatorTarifnummern(kdNr) + End Sub + + Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) Handles FlatButton7.Click + cProgramFunctions.openThereforeNavigatorKudnenInfo(kdNr) + End Sub + + Private Sub timerOP_Tick(sender As Object, e As EventArgs) Handles timerOP.Tick + Dim sumGes As Double = 0 + timerOP.Enabled = False + For cnt = dgvOffenePosten.Rows.Count - 1 To 0 Step -1 + Dim r As DataGridViewRow = dgvOffenePosten.Rows(cnt) + sumGes += CDbl(r.Cells("Betrag").Value) + r.Cells("clmnSaldo").Value = sumGes + Next + End Sub + + Private Sub ScannenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ScannenToolStripMenuItem.Click + If dgvGestGarantie.SelectedRows.Count = 1 Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr) + Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan") + frmScan.DefaultFileName = DS.da_name + + If frmScan.ShowDialog(Me) = DialogResult.OK Then + If frmScan.ReturnValue IsNot Nothing Then + Dim Filename = DS.da_name + If frmScan.fileName <> "" Then Filename = frmScan.fileName + If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then + Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) + GG.gg_datenarchivId = DS.da_id + GG.SAVE() + initDGVGestGarantie() + End If + End If + End If + + End If + End Sub + + Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click + + clearGG() + + End Sub + + Sub clearGG() + txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE("") + txtGGDatum.Text = "" + cbxGG.Checked = False + Button8.Text = "Hinzufügen" + Button9.Visible = False + End Sub + + Private Sub PDFLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFLöschenToolStripMenuItem.Click + If dgvGestGarantie.SelectedRows.Count = 1 Then + If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr) + DS.DELETE_COMPLETE() + + Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) + GG.gg_datenarchivId = Nothing + GG.SAVE() + + initDGVGestGarantie() + End If + End If + End Sub + + Private Sub ÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÄndernToolStripMenuItem.Click + If dgvGestGarantie.SelectedRows.Count = 1 Then + Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) + + txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(GG.gg_Zollamt) + txtGGDatum.Text = GG.gg_erhalten_Datum + cbxGG.Checked = (GG.gg_Zollamt = "GENERELL") + Button8.Text = "Ändern" + Button9.Visible = True + + End If + End Sub + + Private Sub HochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HochladenToolStripMenuItem.Click + If dgvGestGarantie.SelectedRows.Count = 1 Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr) + If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then + Dim gg As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) + gg.gg_datenarchivId = DS.da_id + gg.SAVE() + initDGVGestGarantie() + End If + End If + End Sub + + Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenToolStripMenuItem.Click + Clipboard.SetText(rtbAbf_Besonderheiten.SelectedText) + End Sub + + Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click + If dgvAufschub.SelectedRows.Count > 0 Then + Clipboard.SetText(dgvAufschub.SelectedRows(0).Cells("HZA").Value & dgvAufschub.SelectedRows(0).Cells("KontoNr").Value) + End If + End Sub + + Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click + Me.Cursor = Cursors.WaitCursor + pdfUID("AT", "U53187000", ADRESSE.UstIdKz, ADRESSE.UstIdNr) + Me.Cursor = Cursors.Default + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Me.Cursor = Cursors.WaitCursor + 'printEORI(KUNDE.EORITIN, "C:\Users\DEVELOPER1\Desktop\test.pdf") + + Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & KUNDE.EORITIN & "&Expand=true" + Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) + If pdf <> "" Then Process.Start(pdf) + Me.Cursor = Cursors.Default + End Sub +End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index d62d58d8..f8fb7e02 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,15 +22,15 @@ Partial Class usrcntlKundeBearbeitenFull 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.tbcntrAbf = New System.Windows.Forms.TabControl() @@ -200,6 +200,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbSonstiges = New System.Windows.Forms.TabPage() + Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox() + Me.Label83 = New System.Windows.Forms.Label() Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label76 = New System.Windows.Forms.Label() Me.dgvSonst_IDSKunden = New System.Windows.Forms.DataGridView() @@ -275,7 +277,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label50 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label() Me.pnlNeukunde = New System.Windows.Forms.Panel() - Me.ComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.ComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label77 = New System.Windows.Forms.Label() Me.lblKundennr = New System.Windows.Forms.Label() @@ -287,8 +289,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFiBu = New System.Windows.Forms.CheckBox() Me.cbxFiBuLG = New System.Windows.Forms.CheckBox() - Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox() - Me.Label83 = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -2238,8 +2238,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -2336,8 +2336,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -2493,41 +2493,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control - 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.WindowText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window - 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.ControlText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -2665,8 +2665,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) @@ -2830,6 +2830,25 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.UseVisualStyleBackColor = True ' + 'txtSonst_KdNrPLOSE + ' + Me.txtSonst_KdNrPLOSE.Enabled = False + Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 175) + Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE" + Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrPLOSE.TabIndex = 20 + ' + 'Label83 + ' + Me.Label83.AutoSize = True + Me.Label83.Enabled = False + Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label83.Location = New System.Drawing.Point(6, 178) + Me.Label83.Name = "Label83" + Me.Label83.Size = New System.Drawing.Size(89, 13) + Me.Label83.TabIndex = 19 + Me.Label83.Text = "KdNr bei PLOSE:" + ' 'btnSonstAendSpeichern ' Me.btnSonstAendSpeichern.allowBorder = False @@ -2860,8 +2879,8 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) @@ -3664,7 +3683,7 @@ Partial Class usrcntlKundeBearbeitenFull 'pnlNeukunde ' Me.pnlNeukunde.Controls.Add(Me.Label50) - Me.pnlNeukunde.Controls.Add(Me.ComboBox1) + Me.pnlNeukunde.Controls.Add(Me.cboFiliale) Me.pnlNeukunde.Controls.Add(Me.ComboBox2) Me.pnlNeukunde.Controls.Add(Me.Label68) Me.pnlNeukunde.Location = New System.Drawing.Point(717, 487) @@ -3673,21 +3692,21 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlNeukunde.TabIndex = 15 Me.pnlNeukunde.Visible = False ' - 'ComboBox1 + 'cboFiliale ' - Me.ComboBox1._allowedValuesFreiText = Nothing - Me.ComboBox1._allowFreiText = False - Me.ComboBox1._value = "" - Me.ComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBox1.DropDownWidth = 400 - Me.ComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(104, 8) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(195, 28) - Me.ComboBox1.TabIndex = 1 + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboFiliale.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFiliale.DropDownWidth = 400 + Me.cboFiliale.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(104, 8) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(195, 28) + Me.cboFiliale.TabIndex = 1 ' 'ComboBox2 ' @@ -3834,25 +3853,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxFiBuLG.UseVisualStyleBackColor = True Me.cbxFiBuLG.Visible = False ' - 'txtSonst_KdNrPLOSE - ' - Me.txtSonst_KdNrPLOSE.Enabled = False - Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 175) - Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE" - Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrPLOSE.TabIndex = 20 - ' - 'Label83 - ' - Me.Label83.AutoSize = True - Me.Label83.Enabled = False - Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label83.Location = New System.Drawing.Point(6, 178) - Me.Label83.Name = "Label83" - Me.Label83.Size = New System.Drawing.Size(89, 13) - Me.Label83.TabIndex = 19 - Me.Label83.Text = "KdNr bei PLOSE:" - ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4165,7 +4165,7 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Label50 As Label Friend WithEvents Label68 As Label Friend WithEvents ComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents ComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents pnlNeukunde As Panel Friend WithEvents Label77 As Label Friend WithEvents lblKundennr As Label diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index ff254eee..4e2ace14 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -66,12 +66,13 @@ Public Class usrcntlKundeBearbeitenFull ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990")) ComboBox2.changeItem("3000000-3099990") Case "ATILLA" - ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999")) - ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) - ComboBox2.changeItem("728000-799999") + ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999")) + 'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999")) + ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) + ComboBox2.changeItem("100000-199999") Case Else If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then - ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA Bar/Sonstige", "100000-199999")) + ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999")) End If ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999")) ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999")) @@ -327,7 +328,7 @@ Public Class usrcntlKundeBearbeitenFull Function loadDataInKdAd() As Boolean If ADRESSE.AdressenNr <= 0 Then - If ComboBox1.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False + If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False If Not ComboBox2._value.Contains("-") Then MsgBox("Bitte geben Sie den Kundenkreis an!") : Return False Dim s_KdNr = ComboBox2._value.Split("-") @@ -343,7 +344,7 @@ Public Class usrcntlKundeBearbeitenFull ' Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr) KUNDE.KundenNr = kdnr KUNDE.KundenNrZentrale = kdnr - KUNDE.FilialenNr = ComboBox1._value + KUNDE.FilialenNr = cboFiliale._value KUNDE.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME KUNDE.Eingegeben_am = Now.ToShortDateString KUNDE.INIT_NEWKD_DATA() @@ -617,18 +618,18 @@ Public Class usrcntlKundeBearbeitenFull cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID", , "FMZOLL", True) - ComboBox1.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL") + cboFiliale.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL") Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" - ComboBox1.changeItem("5501") + cboFiliale.changeItem("5501") Case "UNISPED" - ComboBox1.changeItem("5601") + cboFiliale.changeItem("5601") Case "AMBAR" - ComboBox1.changeItem("5701") + cboFiliale.changeItem("5701") Case "ATILLA" - ComboBox1.changeItem("4801") + cboFiliale.changeItem("4801") Case Else - ComboBox1.changeItem("4803") + cboFiliale.changeItem("4803") End Select cboAuswahl.Items.Clear() cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A")) @@ -1063,9 +1064,11 @@ Public Class usrcntlKundeBearbeitenFull Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" If ComboBox2._value = "100000-199999" Then - ComboBox1.changeItem("5501") + cboFiliale.changeItem("4801") + ElseIf ComboBox2._value = "1000000-1999999" Then + cboFiliale.changeItem("5501") Else - If ComboBox1._value = "4801" Then ComboBox1.changeItem("4803") + If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803") End If End Select End Sub diff --git a/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb b/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb index 294f9716..94c1625a 100644 --- a/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb +++ b/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb @@ -236,7 +236,10 @@ Public Class frmSDLAbholungEintrag " WHEN '210' THEN 'SI' " & " WHEN '212' THEN 'UTA' " & " WHEN '213' THEN 'HUGO' " & - " WHEN '203' THEN 'CZ' " & + " WHEN '214' THEN 'PLOSE' " & + " WHEN '215' THEN 'PLOSE IT' " & + " WHEN '216' THEN 'PLOSE CZ' " & + " WHEN '203' THEN 'CZ' " & " WHEN '209' THEN 'PL' " & " WHEN '500' THEN 'ABGASPLAKETTE' " & " WHEN '501' THEN 'VERAG-CARD' " & @@ -252,6 +255,9 @@ Public Class frmSDLAbholungEintrag " WHEN '210' THEN cast([SERIE-Nr] as VARCHAR(200)) " & " WHEN '212' THEN cast(KartenNr as VARCHAR(200)) " & " WHEN '213' THEN cast(OBUID as VARCHAR(200)) " & + " WHEN '214' THEN cast(KartenNr as VARCHAR(200)) " & + " WHEN '215' THEN cast([TELEPASS-Nr] as VARCHAR(200)) " & + " WHEN '216' THEN cast(KartenNr as VARCHAR(200)) " & " WHEN '203' THEN cast(KartenNr as VARCHAR(200)) " & " WHEN '209' THEN cast(KartenNr/*[MSE-Kd-Nr]*/ as VARCHAR(200)) " & " WHEN '500' THEN '-' " & @@ -262,7 +268,7 @@ Public Class frmSDLAbholungEintrag " FROM [SDL] " & " WHERE KundenNr = " & KdFirma.KdNr_value If sdlnr > 0 Then : sqlStr &= " AND SDLNr=" & sdlnr - Else : sqlStr &= " AND SDLNr IN (100,101,202,207,208,210,211,212,213,500,501)" + Else : sqlStr &= " AND SDLNr IN (100,101,202,207,208,210,211,212,213,214,215,216,500,501)" End If sqlStr &= " AND Lieferdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' " diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index d6aee06c..3fcdb2dc 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -116,6 +116,8 @@ Public Class usrCntlKartenDaten End If + SET_SDL(-1) + ' pnlFilter.Height = 0 ' Me.dgvSDL.DataSource = Me.bindingSDL @@ -467,9 +469,9 @@ Public Class usrCntlKartenDaten Case 202 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Kd-Nr], VIACARD,[TELEPASS-Nr], Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,TelepassErsatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=202" Case 203 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=203" Case 213 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=213" - Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=214" - Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=215" - Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=216" + Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=214" + Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=215" + Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=216" Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209" Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210" Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, GültigBis,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=208" @@ -690,6 +692,9 @@ Public Class usrCntlKartenDaten If sdlNr = 210 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 211 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 213 Then btnBenachrichtigungKartenboxen.Enabled = True + If sdlNr = 214 Then btnBenachrichtigungKartenboxen.Enabled = True + If sdlNr = 215 Then btnBenachrichtigungKartenboxen.Enabled = True + If sdlNr = 216 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 208 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 207 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 101 Then btnBenachrichtigungKartenboxen.Enabled = True diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 9917d848..9a1bfd4f 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -46,7 +46,7 @@ Public Class cSqlDb Public Shared Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection Dim cn As New SqlConnection() - cn.ConnectionString = GetFMZOLLConnectionString() & CStr(IIf(pooling, "", ";pooling=false")) + cn.ConnectionString = GetFMZOLLConnectionString() & CStr(If(pooling, "", ";pooling=false")) cn.Open() Return cn End Function @@ -891,6 +891,8 @@ Public Class cAviso Property FahrerHandy As Object = Nothing Property LKW_Nationalitaet As Object = Nothing Property DakosyRef As Object = Nothing + Property TeamId As Object = Nothing + Sub UPDATE_FahrerHandy(FahrerHandy As String) If AvisoID <= 0 Then Exit Sub @@ -978,6 +980,7 @@ Public Class cAvisoDAL daten.FahrerHandy = VarToStr(dr.Item("FahrerHandy")) daten.LKW_Nationalitaet = VarToStr(dr.Item("LKW_Nationalitaet")) daten.DakosyRef = VarToStr(dr.Item("DakosyRef")) + daten.TeamId = If(dr.Item("TeamId") Is DBNull.Value, Nothing, dr.Item("TeamId")) @@ -1232,17 +1235,17 @@ Public Class cAvisoDAL hAuswahl = "INSERT INTO Aviso " & "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " & "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " & - " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef) VALUES (" & + " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId) VALUES (" & "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " & "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," & - "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef); SELECT CAST(scope_identity() AS int);" + "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId); SELECT CAST(scope_identity() AS int);" Else id = d.AvisoID 'Änderung hAuswahl = String.Format( "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " & " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " & - " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef " & + " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId " & " WHERE AvisoID = @AvisoID") End If @@ -1303,6 +1306,9 @@ Public Class cAvisoDAL cmd.Parameters.AddWithValue("@FahrerHandy", If(d.FahrerHandy Is Nothing, DBNull.Value, d.FahrerHandy)) cmd.Parameters.AddWithValue("@LKW_Nationalitaet", If(d.LKW_Nationalitaet Is Nothing, DBNull.Value, d.LKW_Nationalitaet)) cmd.Parameters.AddWithValue("@DakosyRef", If(d.DakosyRef Is Nothing, DBNull.Value, d.DakosyRef)) + cmd.Parameters.AddWithValue("@TeamId", If(d.TeamId Is Nothing, DBNull.Value, d.TeamId)) + + Try If d.AvisoID <= 0 Then @@ -1363,8 +1369,8 @@ Public Class cAvisoDAL Public Function insertSendungEmpty(ByVal AvisoID As Integer, ByVal PosUnterNr As Integer, ByVal FilialenNr As Integer, ByVal AbfertigungsNr As Object, ByVal UnterNr As Integer, ByVal tblSnd_Abfertigungsart_ID As Object, Optional tblSnd_AuftraggeberKdNr As Object = Nothing, Optional tblSnd_Auftraggeber As Object = Nothing, Optional tblSnd_Fremdspedition As Boolean = False, Optional ByRef sndId As Integer = -1) As Boolean Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Dim sql As String = " INSERT INTO tblSendungen " & - " ([tblSnd_PosUnterNr],[tblSnd_AvisoID],FilialenNr,AbfertigungsNr,UnterNr,tblSnd_Abfertigungsart_ID,tblSnd_AuftraggeberKdNr,tblSnd_Auftraggeber,tblSnd_Fremdspedition) " & - " VALUES(@PosUnterNr,@AvisoID,@FilialenNr,@AbfertigungsNr,@UnterNr,@tblSnd_Abfertigungsart_ID,@tblSnd_AuftraggeberKdNr,@tblSnd_Auftraggeber,@tblSnd_Fremdspedition) " + " ([tblSnd_PosUnterNr],[tblSnd_AvisoID],FilialenNr,AbfertigungsNr,UnterNr,tblSnd_Abfertigungsart_ID,tblSnd_AuftraggeberKdNr,tblSnd_Auftraggeber,tblSnd_Fremdspedition,tblSnd_QS_MA,LetzterMitarbeiterId,LetzterMitarbeiter) " & + " VALUES(@PosUnterNr,@AvisoID,@FilialenNr,@AbfertigungsNr,@UnterNr,@tblSnd_Abfertigungsart_ID,@tblSnd_AuftraggeberKdNr,@tblSnd_Auftraggeber,@tblSnd_Fremdspedition,@tblSnd_QS_MA,@LetzterMitarbeiterId,@LetzterMitarbeiter) " Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@AvisoID", AvisoID) @@ -1380,6 +1386,15 @@ Public Class cAvisoDAL cmd.Parameters.AddWithValue("@tblSnd_Auftraggeber", IIf(tblSnd_Auftraggeber Is Nothing, DBNull.Value, tblSnd_Auftraggeber)) cmd.Parameters.AddWithValue("@tblSnd_Fremdspedition", tblSnd_Fremdspedition) + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + cmd.Parameters.AddWithValue("@tblSnd_QS_MA", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + Else + cmd.Parameters.AddWithValue("@tblSnd_QS_MA", DBNull.Value) + End If + + cmd.Parameters.AddWithValue("@LetzterMitarbeiter", VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + Try cmd.ExecuteNonQuery() diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb index c55fcbf2..86cd1e0a 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb @@ -11,6 +11,7 @@ Public Class cGlobal Public Shared DBPfad As String ' Public Shared Aktive_AuswahlID As Integer Public Shared Aktive_ID As Integer + Public Shared Aktive_SendungsID As Integer Public Shared Aktive_Zeile As Integer Public Shared Ausgewählte_Zeile As Integer = 0 Public Shared AnzahlAlle As Long diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 10a6eef8..34e4a3b4 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -73,12 +73,20 @@ Public Class KdSearchBox ' If dgv Is Nothing Then dgv = usrcntl.dgvKundenAktiv ' If dgvInaktiv Is Nothing Then dgvInaktiv = usrcntl.dgvKundenInAktiv + If e.KeyCode = Keys.Tab Then If usrcntl IsNot Nothing Then usrcntl.Visible = False e.Handled = True Exit Sub End If + If e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift Or e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Control Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.CapsLock Then 'Bei Shift Tab.. + If usrcntl IsNot Nothing Then usrcntl.Visible = False + e.Handled = True + Exit Sub + End If + + If e.KeyCode = Keys.Return Then e.Handled = True Exit Sub @@ -101,7 +109,6 @@ Public Class KdSearchBox End If If kdNrField IsNot Nothing Then kdNrField.Text = "" - KdNr_value = -1 KdData_KUNDE = Nothing KdData_ADRESSEN = Nothing diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb index 50c70166..81b20723 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb @@ -10,15 +10,15 @@ Public Class MyComboBox Public Sub New() End Sub - Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False) - MyBase.Items.Clear() + Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True) + If clearList Then MyBase.Items.Clear() If firstEmpty Then Me.Items.Insert(0, New MyListItem("", "")) End If For Each i In l : MyBase.Items.Add(i) : Next End Sub - Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False) - fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty) + Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True) + fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList) End Sub Public Property _value As String diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb index 8ed350bc..4d3ccbce 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb @@ -98,6 +98,13 @@ Public Class MySearchBox ' If dgv Is Nothing Then dgv = usrcntl.dgvKundenAktiv ' If dgvInaktiv Is Nothing Then dgvInaktiv = usrcntl.dgvKundenInAktiv + If e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift Or e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Control Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.CapsLock Then 'Bei Shift Tab.. + If usrcntl IsNot Nothing Then usrcntl.Visible = False + e.Handled = True + Exit Sub + End If + + If e.KeyCode = Keys.Tab Then If usrcntl IsNot Nothing Then usrcntl.Visible = False e.Handled = True diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index a61a1547..25c7843d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -653,15 +653,20 @@ Public Class SQL Return Nothing End Function - - Public Function getFMZOLLKdNrFromEORI(ByVal eori As String) As String - Dim s As String = "" + Function getFirmaWhere() Dim where = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : where &= " AND [FilialenNr]='5501' " - Case Else : where &= " AND isnull([FilialenNr],0)<>'5501' " + Case "UNISPED" : where &= " AND [FilialenNr]='5601' " + Case "AMBAR" : where &= " AND [FilialenNr]='5701' " + Case "FRONTOFFICE" : where &= " AND [FilialenNr]='5801' " + Case Else : where &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " End Select - + Return where + End Function + Public Function getFMZOLLKdNrFromEORI(ByVal eori As String) As String + Dim s As String = "" + Dim where = getFirmaWhere() Try Dim conn As SqlConnection = GetNewOpenConnectionFMZOLL() @@ -904,11 +909,7 @@ Public Class SQL Public Function getATLASKdNrFromZollNr(ByVal ZollNr As String) As String Dim s As String = "" - Dim where = "" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : where &= " AND [FilialenNr]='5501' " - Case Else : where &= " AND isnull([FilialenNr],0)<>'5501' " - End Select + Dim where = getFirmaWhere() Try Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index 819080f1..baa73d26 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -61,9 +61,9 @@ Public Class cAdressen Public Shared Function getHoechsteKdNr(NrKr_von As Integer, NrKr_bis As Integer) As Integer Try - Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL(False) - Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn) + Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn) 'Using cmd As New SqlCommand("SELECT isnull(max([AdressenNr])," & NrKr_von & ") as AdressenNr FROM Adressen WHERE AdressenNr BETWEEN '" & NrKr_von & "' AND '" & NrKr_bis & "' ", conn) Dim dr = cmd.ExecuteReader() If dr.HasRows Then @@ -176,7 +176,7 @@ Public Class cAdressen Public Sub LOAD() Dim test = "" Try - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) Using cmd As New SqlCommand("SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr ", conn) cmd.Parameters.AddWithValue("@AdressenNr", AdressenNr) @@ -224,7 +224,7 @@ Public Class cAdressen Public Function doesOrdnungsbegriffExist() As Boolean Try - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) Using cmd As New SqlCommand("SELECT count(*) FROM Adressen WHERE Ordnungsbegriff=@Ordnungsbegriff ", conn) cmd.Parameters.AddWithValue("@Ordnungsbegriff", Ordnungsbegriff) @@ -263,7 +263,7 @@ Public Class cAdressen End Function Public Shared Function getNewAdressenNr752000() As Integer - Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1 FROM [VERAG].[dbo].[Adressen] where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL") + Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1 FROM [Adressen] where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL") End Function Public Function getInsertCmd() As String diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb index 42471a03..a7d88865 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb @@ -10,6 +10,9 @@ Public Class cAvisoAnhaenge Property anh_Art As Object = Nothing Property anh_Typ As String Property anh_Reihenfolge As Integer = 99 + Property anh_LaufzettelDruck As Boolean = False + + Public hasEntry As Boolean = False Dim SQL As New SQL @@ -46,6 +49,7 @@ Public Class cAvisoAnhaenge list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Art", anh_Art)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Typ", anh_Typ)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck)) Return list End Function @@ -161,4 +165,9 @@ Public Class cAvisoAnhaenge Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO") End Function + Public Shared Function toggleLaufzettelDruck(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE [tblAvisoAnhaenge] SET [anh_LaufzettelDruck] = 1 - [anh_LaufzettelDruck] WHERE anh_id=" & id + Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO") + End Function + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 658cf466..9860ef79 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -50,6 +50,7 @@ Public Class cMitarbeiter Property mit_AliasAD_Domain As Object = Nothing Property mit_AliasAD_Username As Object = Nothing + Property mit_teamId As Object = Nothing Sub New() @@ -121,6 +122,7 @@ Public Class cMitarbeiter If Not dr.Item("mit_TELOTEC_SB") Is DBNull.Value Then Me.mit_TELOTEC_SB = dr.Item("mit_TELOTEC_SB") If Not dr.Item("mit_AliasAD_Domain") Is DBNull.Value Then Me.mit_AliasAD_Domain = dr.Item("mit_AliasAD_Domain") If Not dr.Item("mit_AliasAD_Username") Is DBNull.Value Then Me.mit_AliasAD_Username = dr.Item("mit_AliasAD_Username") + If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId") diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index 8cc6b4f9..b5105438 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -65,6 +65,15 @@ Public Class cSendungen Property tblSnd_Warenwert As Object = Nothing Property tblSnd_WarenwertWaehrung As Object = Nothing + + Property tblSnd_Status As Integer = 0 + Property tblSnd_Vorbereitet As Object = Nothing + Property tblSnd_Vorgeschrieben As Object = Nothing + + Property LetzterMitarbeiter As Object = Nothing + Property LetzterMitarbeiterId As Object = Nothing + Property tblSnd_VG_MA As Object = Nothing + Property ABRECHNUNG As New List(Of cSendungAbrechnung) Property HANDLING As New List(Of cSendHandling) @@ -116,6 +125,13 @@ Public Class cSendungen Me.tblSnd_inBearbeitung = False Me.tblSnd_aufschub = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + Me.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + End If + + Me.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + Me.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + If FilialenNr IsNot Nothing Then Me.FilialenNr = FilialenNr If AbfertigungsNr IsNot Nothing Then Me.AbfertigungsNr = AbfertigungsNr If UnterNr IsNot Nothing Then Me.UnterNr = UnterNr @@ -226,6 +242,13 @@ Public Class cSendungen Me.tblSnd_Warenwert = SQL.checkNullReturnValue(dr.Item("tblSnd_Warenwert"), Nothing) Me.tblSnd_WarenwertWaehrung = SQL.checkNullReturnValue(dr.Item("tblSnd_WarenwertWaehrung"), Nothing) + Me.tblSnd_Status = SQL.checkNullReturnValue(dr.Item("tblSnd_Status"), Nothing) + Me.tblSnd_Vorbereitet = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorbereitet"), Nothing) + Me.tblSnd_Vorgeschrieben = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorgeschrieben"), Nothing) + + Me.LetzterMitarbeiter = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiter"), Nothing) + Me.LetzterMitarbeiterId = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiterId"), Nothing) + Me.tblSnd_VG_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_VG_MA"), Nothing) End If dr.Close() @@ -291,6 +314,8 @@ Public Class cSendungen a.sndhdg_abrArt = SQL.checkNullReturnValue(dr2.Item("sndhdg_abrArt"), Nothing) a.sndhdg_nr = SQL.checkNullReturnValue(dr2.Item("sndhdg_nr"), Nothing) + a.sndhdg_colli = SQL.checkNullReturnValue(dr2.Item("sndhdg_colli"), 0) + a.sndhdg_gewicht = SQL.checkNullReturnValue(dr2.Item("sndhdg_gewicht"), 0) Me.HANDLING.Add(a) End While dr2.Close() @@ -369,6 +394,12 @@ Public Class cSendungen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATCMRN_Fremd", tblSnd_ATCMRN_Fremd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenwert", tblSnd_Warenwert)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_WarenwertWaehrung", tblSnd_WarenwertWaehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Status", tblSnd_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorbereitet", tblSnd_Vorbereitet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorgeschrieben", tblSnd_Vorgeschrieben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiter", LetzterMitarbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiterId", LetzterMitarbeiterId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_VG_MA", tblSnd_VG_MA)) Return list @@ -537,6 +568,8 @@ Public Class cSendHandling Property sndhdg_sendId As Integer = Nothing Property sndhdg_abrArt As String = Nothing Property sndhdg_nr As String = Nothing + Property sndhdg_colli As Double = 0 + Property sndhdg_gewicht As Double = 0 Dim SQL As New SQL @@ -545,16 +578,20 @@ Public Class cSendHandling Me.sndhdg_sendId = sndhdg_sendId End Sub - Sub New(sndhdg_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert) + Sub New(sndhdg_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert, sndhdg_colli, sndhdg_gewicht) Me.sndhdg_sendId = sndhdg_sendId Me.sndhdg_abrArt = sndhdg_abrArt Me.sndhdg_nr = sndhdg_nr + Me.sndhdg_colli = sndhdg_colli + Me.sndhdg_gewicht = sndhdg_gewicht End Sub - Sub New(sndhdg_sendId, sndhdg_abrArt, sndhdg_nr) + Sub New(sndhdg_sendId, sndhdg_abrArt, sndhdg_nr, sndhdg_colli, sndhdg_gewicht) Me.sndhdg_sendId = sndhdg_sendId Me.sndhdg_abrArt = sndhdg_abrArt Me.sndhdg_nr = sndhdg_nr + Me.sndhdg_colli = sndhdg_colli + Me.sndhdg_gewicht = sndhdg_gewicht End Sub Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) @@ -562,6 +599,8 @@ Public Class cSendHandling list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_sendId", sndhdg_sendId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_abrArt", sndhdg_abrArt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_nr", sndhdg_nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_colli", sndhdg_colli)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_gewicht", sndhdg_gewicht)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index d2029bdc..62e74875 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -448,7 +448,7 @@ Public Class cDATENSERVER ' Return True ' Catch ex As Exception - ' MsgBox(ex.Message) + ' MsgBox(ex.Message & ex.StackTrace) ' Return False ' End Try 'End Function @@ -897,7 +897,7 @@ Public Class cFormularManager pdf.Close() Return destPath Catch ex As Exception - MsgBox(ex.Message) + MsgBox(ex.Message & ex.StackTrace) Return "" End Try @@ -1110,6 +1110,51 @@ Public Class cFormularManager End Try End Sub + Shared Function getTMPPath_PDF() As String + Return System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".pdf" + End Function + + Public Shared Function getPDFViaSpirePDF_FromURL(URL As String, Optional targetPath As String = "") As String + Try + If targetPath = "" Then targetPath = getTMPPath_PDF() + Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL) + doc.LoadFromHTML(URL, True, True, True) + If doc IsNot Nothing Then + doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + doc.PrintDocument.DefaultPageSettings.Landscape = True + doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + ' doc.PrinterName = printerName + ' doc.PrintDocument.Print() + doc.SaveToFile(targetPath) + End If + + 'For Each doc As Spire.Pdf.PdfDocument In docs + 'Dim doc As New Spire.Pdf.PdfDocument() + + 'Using webClient As New Net.WebClient() + ' Dim data() As Byte = webClient.DownloadData(URL) + ' Using stream As New MemoryStream(data) + ' Dim doc As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument(stream) + ' If doc IsNot Nothing Then + ' doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + ' doc.PrintDocument.DefaultPageSettings.Landscape = True + ' doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + ' ' doc.PrinterName = printerName + ' ' doc.PrintDocument.Print() + ' doc.SaveToFile(targetPath) + ' End If + ' End Using + 'End Using + + ' doc.LoadFromHTML(pdfPath, True, True, True) + + + Return targetPath + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return "" + End Function @@ -1550,7 +1595,7 @@ Public Class DATENVERVER_OPTIONS IO.File.Copy(pfad, tmpPath) Return tmpPath Catch ex As Exception - MsgBox(ex.Message) + MsgBox(ex.Message & ex.StackTrace) End Try Return pfad End Function @@ -1562,7 +1607,7 @@ Public Class DATENVERVER_OPTIONS IO.File.Copy(pfad, tmpPath) Return tmpPath Catch ex As Exception - MsgBox(ex.Message) + MsgBox(ex.Message & ex.StackTrace) End Try Return pfad End Function @@ -1703,7 +1748,7 @@ Public Class DATENVERVER_OPTIONS Return True Catch ex As Exception - MsgBox(ex.Message) + MsgBox(ex.Message & ex.StackTrace) Return False End Try End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb index 0c8454d8..59ce7c39 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -1,9 +1,20 @@ Imports Therefore.API Public Class cTherefore + Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, FirmaId As String, Optional deleteFileAfterImport As Boolean = False) + Select Case FirmaId + Case 7 + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport) + Case 1, 11 ', 15,20 + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport) + Case Else + Return False + End Select + End Function - Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String) + Shared Function saveFileTo_ImportFolderCat(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, Category As String, Optional Category2 As String = "", Optional deleteFileAfterImport As Boolean = False) Try + If Category2 = "" Then Category2 = Category Dim SQL As New SQL ' 1. Connect to the Thereforeâ„¢ Server @@ -20,7 +31,7 @@ Public Class cTherefore ' 4A. Set Thereforeâ„¢ Category by Number ' doc.IndexData.SetCategory(5, server) ' or 4B. Set Thereforeâ„¢ Category by Name - doc.IndexData.SetCategory("Import ab Jänner 2019", server) + doc.IndexData.SetCategory(Category2, server) ' 5. Add streams 'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0) @@ -36,8 +47,8 @@ Public Class cTherefore 'Dim docNo As Integer = doc.Archive(server, 0) 'Dim docNo As Integer = 0 'Dim filenameNEW As String = doc.Retrieve(docNo, "", server) - - Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1) + Dim TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "") + Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM " & TableName & " WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1) Dim filename As String = "" If docNo <= 0 Then doc.Create(filename) @@ -67,7 +78,7 @@ Public Class cTherefore doc.Close() ' 9. Delete the temporary file - System.IO.File.Delete(filename) + If deleteFileAfterImport Then System.IO.File.Delete(filename) ' 10. Optional: Print a success message on the console ' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".")