edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kunde, Automailversand, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-06-12 14:06:40 +02:00
parent dcd8721f03
commit c1212fb003
18 changed files with 558 additions and 370 deletions
Download Patch File Download Diff File Expand all files Collapse all files

184
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -1,5 +1,4 @@
Imports System.IO Imports System.IO
Imports jdk.nashorn.internal.objects.annotations
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -105,6 +104,7 @@ Public Class cAutomailversand
If SR_DT.Rows.Count = 0 Then Continue For If SR_DT.Rows.Count = 0 Then Continue For
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(row.Item("RechnungsKundenNr")) Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(row.Item("RechnungsKundenNr"))
Dim KDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(row.Item("RechnungsKundenNr"))
Dim FISKAL = New cFiskal_Daten(row.Item("RechnungsKundenNr")) Dim FISKAL = New cFiskal_Daten(row.Item("RechnungsKundenNr"))
If RechnungsNr = -1 Then If RechnungsNr = -1 Then
@@ -159,34 +159,35 @@ Public Class cAutomailversand
showError = mailoeffnen 'bei MailÖffnen fehler anzeigen! showError = mailoeffnen 'bei MailÖffnen fehler anzeigen!
setEmailText(row, FirmaID, RechnungsNr, Mailsubject, HTMLMail, SammelrechungArt, dt, BelegartenNr) setEmailText(row, FirmaID, RechnungsNr, Mailsubject, HTMLMail, SammelrechungArt, dt, BelegartenNr)
If do_SR(row.Item("RechnungsKundenNr"), FirmaID, SammelrechungArt, Rechnungsdatum, RechnungsNr, DruckDatumZeit, MDMKopiedrucken, listPDFs,,,, showError, AbfertigungsNr, faktGruppe) Then If do_SR(row.Item("RechnungsKundenNr"), FirmaID, SammelrechungArt, Rechnungsdatum, RechnungsNr, DruckDatumZeit, MDMKopiedrucken, listPDFs,,,, showError, AbfertigungsNr, faktGruppe) Then
loadAndSetAnhaenge(SR_DT, ATTACHMENTS, listPDFs) loadAndSetAnhaenge(SR_DT, ATTACHMENTS, listPDFs,,, KDE_ERW.kde_merge_pdf)
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST" If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST"
If mailoeffnen Then If mailoeffnen Then
Dim Mail = createMail(Mailsubject, HTMLMail, ATTACHMENTS, MailTo, MailtoCC, MailtoBCC, FirmaID) Dim Mail = createMail(Mailsubject, HTMLMail, ATTACHMENTS, MailTo, MailtoCC, MailtoBCC, FirmaID)
If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum,,,,,,, Mail) Then If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum,,,,,,, Mail) Then
Mail.Display() Mail.Display()
End If End If
Else Else
Dim TextHTML = "" Dim TextHTML = ""
TextHTML &= HTMLMail TextHTML &= HTMLMail
TextHTML &= cFakturierung.getSignature("DE", FirmaID, True, True,,,,, True) TextHTML &= cFakturierung.getSignature("DE", FirmaID, True, True,,,,, True)
HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>" HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,,, FISKAL) Then If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,,, FISKAL) Then
End If
End If End If
End If End If
End If End If
End If
Next Next
Next Next
@@ -238,9 +239,10 @@ Public Class cAutomailversand
Dim AD As New cAdressen(r.Item("RechnungsKundenNr")) Dim AD As New cAdressen(r.Item("RechnungsKundenNr"))
Dim KDE_ERW As New cKundenErweitert(r.Item("RechnungsKundenNr"))
Dim ATTACHMENTS As New List(Of cFakt_MailATTach) Dim ATTACHMENTS As New List(Of cFakt_MailATTach)
Dim RECHNUNG As New cRechnungsausgang(r.Item("RK_ID")) Dim RECHNUNG As New cRechnungsausgang(r.Item("RK_ID"))
Dim SPEDBUCH As New cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr) Dim SPEDBUCH As New cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.SpeditionsbuchUnterNr)
FISKAL = New cFiskal_Daten(r.Item("RechnungsKundenNr")) FISKAL = New cFiskal_Daten(r.Item("RechnungsKundenNr"))
@@ -263,19 +265,16 @@ Public Class cAutomailversand
Continue For Continue For
End If End If
Dim listPDFs As New List(Of String)
'EINZELBELEG ANFÜGEN 'EINZELBELEG ANFÜGEN
If pathRG <> "" Then ATTACHMENTS.Add(New cFakt_MailATTach(pathRG, If(RECHNUNG.BelegartenKz = "AR", "Rechnung.pdf", "Gutschrift.pdf")))
If pathRG <> "" Then
listPDFs.Add(pathRG)
End If
Dim Mailsubject As String = "" Dim Mailsubject As String = ""
Dim HTMLMail As String = "" Dim HTMLMail As String = ""
Dim listPDFs As New List(Of String)
'Dim showError As Boolean = False
'showError = mailoeffnen 'bei MailÖffnen fehler anzeigen!
setEmailText(r, FirmaID, RECHNUNG.RechnungsNr, Mailsubject, HTMLMail, RECHNUNG.Sammelrechnung, dt, RECHNUNG.BelegartenNr, SPEDBUCH, RECHNUNG) setEmailText(r, FirmaID, RECHNUNG.RechnungsNr, Mailsubject, HTMLMail, RECHNUNG.Sammelrechnung, dt, RECHNUNG.BelegartenNr, SPEDBUCH, RECHNUNG)
loadAndSetAnhaenge(dt, ATTACHMENTS, listPDFs, RECHNUNG, SPEDBUCH) loadAndSetAnhaenge(dt, ATTACHMENTS, listPDFs, RECHNUNG, SPEDBUCH)
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST" If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST"
@@ -531,26 +530,28 @@ Public Class cAutomailversand
End Function End Function
Private Sub loadAndSetAnhaenge(SR_DT As DataTable, ATTACHMENTS As List(Of cFakt_MailATTach), listPDFs As List(Of String), Optional RECHNUNG As cRechnungsausgang = Nothing, Optional SPEDBUCH As cSpeditionsbuch = Nothing) Private Sub loadAndSetAnhaenge(SR_DT As DataTable, ATTACHMENTS As List(Of cFakt_MailATTach), listPDFs As List(Of String), Optional RECHNUNG As cRechnungsausgang = Nothing, Optional SPEDBUCH As cSpeditionsbuch = Nothing, Optional mergeAllPDFS As Boolean = False)
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Attachment.pdf", ".pdf",, False, "Zusammenfassung") Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Attachment.pdf", ".pdf",, False, "Zusammenfassung")
Dim pdfAnhang_merge As Boolean = False
'Rechnungsanhänge anfügen -> RECHNUNG SELBST '----------------------------------------------------------------- EINZELRECHNUNGEN------------------------------------------------
For Each l In listPDFs
ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
Next
If RECHNUNG IsNot Nothing Then If RECHNUNG IsNot Nothing Then
'----------------------------------------------------------------- EINZELRECHNUNGEN------------------------------------------------ For Each l In listPDFs
ATTACHMENTS.Add(New cFakt_MailATTach(l, If(RECHNUNG.BelegartenKz = "AR", "Rechnung.pdf", "Gutschrift.pdf")))
Next
Dim zsmf_ER As New List(Of String) Dim zsmf_ER As New List(Of String)
RECHNUNG.LOAD_ANHAENGE() RECHNUNG.LOAD_ANHAENGE()
For Each ANH In RECHNUNG.ANHAENGE For Each ANH In RECHNUNG.ANHAENGE
Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId) Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
If PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False) Then pdfAnhang_merge = PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False)
If pdfAnhang_merge Then
If path <> "" Then If path <> "" Then
If Not zsmf_ER.Any(Function(p) System.IO.Path.GetFileName(p.ToString).Equals(path, StringComparison.OrdinalIgnoreCase)) Then 'doppelte unterbinden! If Not zsmf_ER.Any(Function(p) System.IO.Path.GetFileName(p.ToString).Equals(path, StringComparison.OrdinalIgnoreCase)) Then 'doppelte unterbinden!
zsmf_ER.Add(path) zsmf_ER.Add(path)
@@ -593,6 +594,25 @@ Public Class cAutomailversand
End If End If
End If End If
If mergeAllPDFS Then 'also Beleg + Anhänge in Beleg
Dim Anhangsbezeichnung = If(RECHNUNG.BelegartenKz = "AR", "Invoice_", "Credit_Note_")
Dim zielPfadZusammenfassung2 = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Anhangsbezeichnung & "Attachment.pdf", ".pdf",, False, "Zusammenfassung")
If ATTACHMENTS.Count > 1 Then
Dim myList As New List(Of String)
For Each a In ATTACHMENTS
myList.Add(a.Pfad)
Next
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung2) Then
ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung2, ""))
End If
End If
End If
Else Else
'----------------------------------------------------------------- SAMMELRECHNUNGEN------------------------------------------------ '----------------------------------------------------------------- SAMMELRECHNUNGEN------------------------------------------------
@@ -614,7 +634,9 @@ Public Class cAutomailversand
Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId) Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
'hier die LOGIK, was alles zusammengefasst werden soll! 'hier die LOGIK, was alles zusammengefasst werden soll!
If PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID, True) Then pdfAnhang_merge = PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID, True)
If pdfAnhang_merge Then
If path <> "" Then If path <> "" Then
If Not zsmf_SR.Any(Function(p) System.IO.Path.GetFileName(p.ToString).Equals(path, StringComparison.OrdinalIgnoreCase)) Then 'doppelte unterbinden! If Not zsmf_SR.Any(Function(p) System.IO.Path.GetFileName(p.ToString).Equals(path, StringComparison.OrdinalIgnoreCase)) Then 'doppelte unterbinden!
zsmf_SR.Add(path) zsmf_SR.Add(path)
@@ -641,6 +663,29 @@ Public Class cAutomailversand
Next Next
'nicht bei SR!
'If mergeAllPDFS Then 'also Beleg + Anhänge in Beleg
' Dim Anhangsbezeichnung = "SR_"
' Dim zielPfadZusammenfassung2 = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Anhangsbezeichnung & "Attachment.pdf", ".pdf",, False, "Zusammenfassung")
' If ATTACHMENTS.Count > 1 Then
' Dim myList As New List(Of String)
' For Each a In ATTACHMENTS
' myList.Add(a.Pfad)
' Next
' If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung2) Then
' ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung2, ""))
' End If
' End If
'End If
End If End If
@@ -766,6 +811,8 @@ Public Class cAutomailversand
For Each r As DataRow In SR_DT.Rows For Each r As DataRow In SR_DT.Rows
AbfertigungsNr = IIf(Not IsDBNull(r.Item("AbfertigungsNr")) AndAlso IsNumeric(r.Item("AbfertigungsNr")), CInt(r.Item("AbfertigungsNr")), 0) AbfertigungsNr = IIf(Not IsDBNull(r.Item("AbfertigungsNr")) AndAlso IsNumeric(r.Item("AbfertigungsNr")), CInt(r.Item("AbfertigungsNr")), 0)
FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0) FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0)
UnterNr = IIf(Not IsDBNull(r.Item("SpeditionsbuchUnterNr")) AndAlso IsNumeric(r.Item("SpeditionsbuchUnterNr")), CInt(r.Item("SpeditionsbuchUnterNr")), 0)
Next Next
End If End If
@@ -834,45 +881,44 @@ Public Class cAutomailversand
End If End If
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
API.UPDTAE_OK() API.UPDTAE_OK()
If RECHNUNG IsNot Nothing Then If RECHNUNG IsNot Nothing Then
RECHNUNG.Automailversand_sent = Now() RECHNUNG.Automailversand_sent = Now()
RECHNUNG.SAVE() RECHNUNG.SAVE()
Else
sql.doSQL("update Rechnungsausgang set Automailversand_sent = getDate() where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0 And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4 And Automailversand_sent is null", "FMZOLL")
End If
'---------------------TODO ! ----------------------------
createMailFISKAL(SPEDBUCH, FISKAL, False, FirmaID, row.Item("RechnungsKundenNr"), row.Item("RechnungsLandKz"))
'---------------------TODO ! ----------------------------
mailcreated = True
Else Else
API.UPDTAE_ERR() sql.doSQL("update Rechnungsausgang set Automailversand_sent = getDate() where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0 And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4 And Automailversand_sent is null", "FMZOLL")
'Bei FEHLER EINZELRECHNUNG VON STATUS 4 auf 2 zurücksetzen!
If RECHNUNG IsNot Nothing Then
RECHNUNG.Automailversand_sent = Nothing
RECHNUNG.Status = 2
RECHNUNG.SAVE()
Else
'Bei FEHLER SAMMELRECHNUNG VON STATUS 4 auf 2 zurücksetzen!
sql.doSQL("update Rechnungsausgang set Status = 2, Automailversand_sent = NULL where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0 And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4", "FMZOLL")
End If
Return mailcreated
End If End If
'---------------------TODO ! ----------------------------
createMailFISKAL(SPEDBUCH, FISKAL, False, FirmaID, row.Item("RechnungsKundenNr"), row.Item("RechnungsLandKz"))
'---------------------TODO ! ----------------------------
mailcreated = True
Else
API.UPDTAE_ERR()
'Bei FEHLER EINZELRECHNUNG VON STATUS 4 auf 2 zurücksetzen!
If RECHNUNG IsNot Nothing Then
RECHNUNG.Automailversand_sent = Nothing
RECHNUNG.Status = 2
RECHNUNG.SAVE()
Else
'Bei FEHLER SAMMELRECHNUNG VON STATUS 4 auf 2 zurücksetzen!
sql.doSQL("update Rechnungsausgang set Status = 2, Automailversand_sent = NULL where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0 And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4", "FMZOLL")
End If
Return mailcreated
End If End If
Return mailcreated End If
Return mailcreated
End Function End Function
@@ -893,6 +939,8 @@ Public Class cAutomailversand
accountToSend = "finanz@imex-group.at" accountToSend = "finanz@imex-group.at"
Case 11 Case 11
accountToSend = "versand@verag.com" accountToSend = "versand@verag.com"
Case 26
accountToSend = "Invoice@verag-unisped.uk"
Case Else Case Else
accountToSend = "rechnungsversand@verag.ag" accountToSend = "rechnungsversand@verag.ag"
End Select End Select

2
SDL/Fakturierung/cFakturierung.vb
View File

@@ -3144,7 +3144,7 @@ Public Class cFakturierung
Dim lineTotalAmont = sumNetto Dim lineTotalAmont = sumNetto
'Der Gesamtbetrag der Umsatzsteuer für die Rechnung, 'Der Gesamtbetrag der Umsatzsteuer für die Rechnung,
'IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0) ?????????????????? 'IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0) ??????????????????
Dim taxTotalAmount = IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0) Dim taxTotalAmount = IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2, MidpointRounding.AwayFromZero), 0)
' Die Gesamtsumme der Rechnung ohne Umsatzsteuer ' RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0 ' Die Gesamtsumme der Rechnung ohne Umsatzsteuer ' RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0
Dim taxBasisAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0 - taxTotalAmount) Dim taxBasisAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0 - taxTotalAmount)
'Der Gesamtbetrag der Rechnung mit Umsatzsteuer 'Der Gesamtbetrag der Rechnung mit Umsatzsteuer

34
SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb generated
View File

@@ -229,15 +229,15 @@ Partial Class frmAbrechnungsMaske
' '
'btn_doMailAutoversand 'btn_doMailAutoversand
' '
Me.btn_doMailAutoversand.BackgroundImage = Global.SDL.My.Resources.Resources.zauberstab Me.btn_doMailAutoversand.BackgroundImage = Global.SDL.My.Resources.Resources.auto_mailversand_small
Me.btn_doMailAutoversand.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn_doMailAutoversand.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btn_doMailAutoversand.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn_doMailAutoversand.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_doMailAutoversand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btn_doMailAutoversand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn_doMailAutoversand.Location = New System.Drawing.Point(293, 21) Me.btn_doMailAutoversand.Location = New System.Drawing.Point(286, 10)
Me.btn_doMailAutoversand.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.btn_doMailAutoversand.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.btn_doMailAutoversand.Name = "btn_doMailAutoversand" Me.btn_doMailAutoversand.Name = "btn_doMailAutoversand"
Me.btn_doMailAutoversand.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) Me.btn_doMailAutoversand.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.btn_doMailAutoversand.Size = New System.Drawing.Size(40, 25) Me.btn_doMailAutoversand.Size = New System.Drawing.Size(60, 36)
Me.btn_doMailAutoversand.TabIndex = 29 Me.btn_doMailAutoversand.TabIndex = 29
Me.btn_doMailAutoversand.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btn_doMailAutoversand.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btn_doMailAutoversand.UseVisualStyleBackColor = True Me.btn_doMailAutoversand.UseVisualStyleBackColor = True
@@ -288,7 +288,7 @@ Partial Class frmAbrechnungsMaske
Me.cboPrinter.FormattingEnabled = True Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(133, 52) Me.cboPrinter.Location = New System.Drawing.Point(133, 52)
Me.cboPrinter.Name = "cboPrinter" Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(200, 21) Me.cboPrinter.Size = New System.Drawing.Size(201, 21)
Me.cboPrinter.TabIndex = 25 Me.cboPrinter.TabIndex = 25
' '
'Button9 'Button9
@@ -364,7 +364,7 @@ Partial Class frmAbrechnungsMaske
Me.btnWiederholeRgDruck.BackgroundImage = Global.SDL.My.Resources.Resources.print_rg Me.btnWiederholeRgDruck.BackgroundImage = Global.SDL.My.Resources.Resources.print_rg
Me.btnWiederholeRgDruck.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnWiederholeRgDruck.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWiederholeRgDruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnWiederholeRgDruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWiederholeRgDruck.Location = New System.Drawing.Point(406, 9) Me.btnWiederholeRgDruck.Location = New System.Drawing.Point(437, 9)
Me.btnWiederholeRgDruck.Name = "btnWiederholeRgDruck" Me.btnWiederholeRgDruck.Name = "btnWiederholeRgDruck"
Me.btnWiederholeRgDruck.Size = New System.Drawing.Size(53, 36) Me.btnWiederholeRgDruck.Size = New System.Drawing.Size(53, 36)
Me.btnWiederholeRgDruck.TabIndex = 11 Me.btnWiederholeRgDruck.TabIndex = 11
@@ -373,7 +373,7 @@ Partial Class frmAbrechnungsMaske
'Label4 'Label4
' '
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label4.Location = New System.Drawing.Point(399, 46) Me.Label4.Location = New System.Drawing.Point(430, 46)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(67, 26) Me.Label4.Size = New System.Drawing.Size(67, 26)
Me.Label4.TabIndex = 12 Me.Label4.TabIndex = 12
@@ -408,7 +408,7 @@ Partial Class frmAbrechnungsMaske
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.moneybag1 Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.moneybag1
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(347, 9) Me.Button3.Location = New System.Drawing.Point(378, 9)
Me.Button3.Name = "Button3" Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(53, 36) Me.Button3.Size = New System.Drawing.Size(53, 36)
Me.Button3.TabIndex = 9 Me.Button3.TabIndex = 9
@@ -417,7 +417,7 @@ Partial Class frmAbrechnungsMaske
'Label3 'Label3
' '
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label3.Location = New System.Drawing.Point(344, 46) Me.Label3.Location = New System.Drawing.Point(375, 46)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 26) Me.Label3.Size = New System.Drawing.Size(56, 26)
Me.Label3.TabIndex = 10 Me.Label3.TabIndex = 10
@@ -530,7 +530,7 @@ Partial Class frmAbrechnungsMaske
'cbxGutschriftenAnVerag 'cbxGutschriftenAnVerag
' '
Me.cbxGutschriftenAnVerag.AutoSize = True Me.cbxGutschriftenAnVerag.AutoSize = True
Me.cbxGutschriftenAnVerag.Location = New System.Drawing.Point(348, 44) Me.cbxGutschriftenAnVerag.Location = New System.Drawing.Point(332, 44)
Me.cbxGutschriftenAnVerag.Name = "cbxGutschriftenAnVerag" Me.cbxGutschriftenAnVerag.Name = "cbxGutschriftenAnVerag"
Me.cbxGutschriftenAnVerag.Size = New System.Drawing.Size(128, 17) Me.cbxGutschriftenAnVerag.Size = New System.Drawing.Size(128, 17)
Me.cbxGutschriftenAnVerag.TabIndex = 54 Me.cbxGutschriftenAnVerag.TabIndex = 54
@@ -544,16 +544,16 @@ Partial Class frmAbrechnungsMaske
Me.cboRechnungsdruck._value = "" Me.cboRechnungsdruck._value = ""
Me.cboRechnungsdruck.DropDownWidth = 120 Me.cboRechnungsdruck.DropDownWidth = 120
Me.cboRechnungsdruck.FormattingEnabled = True Me.cboRechnungsdruck.FormattingEnabled = True
Me.cboRechnungsdruck.Location = New System.Drawing.Point(453, 23) Me.cboRechnungsdruck.Location = New System.Drawing.Point(442, 23)
Me.cboRechnungsdruck.Margin = New System.Windows.Forms.Padding(2) Me.cboRechnungsdruck.Margin = New System.Windows.Forms.Padding(2)
Me.cboRechnungsdruck.Name = "cboRechnungsdruck" Me.cboRechnungsdruck.Name = "cboRechnungsdruck"
Me.cboRechnungsdruck.Size = New System.Drawing.Size(83, 21) Me.cboRechnungsdruck.Size = New System.Drawing.Size(94, 21)
Me.cboRechnungsdruck.TabIndex = 53 Me.cboRechnungsdruck.TabIndex = 53
' '
'Label14 'Label14
' '
Me.Label14.AutoSize = True Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(345, 26) Me.Label14.Location = New System.Drawing.Point(329, 26)
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(108, 13) Me.Label14.Size = New System.Drawing.Size(108, 13)
Me.Label14.TabIndex = 52 Me.Label14.TabIndex = 52
@@ -564,7 +564,7 @@ Partial Class frmAbrechnungsMaske
Me.cbx.AutoSize = True Me.cbx.AutoSize = True
Me.cbx.Checked = True Me.cbx.Checked = True
Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbx.Location = New System.Drawing.Point(348, 61) Me.cbx.Location = New System.Drawing.Point(332, 61)
Me.cbx.Name = "cbx" Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(181, 17) Me.cbx.Size = New System.Drawing.Size(181, 17)
Me.cbx.TabIndex = 34 Me.cbx.TabIndex = 34
@@ -577,16 +577,16 @@ Partial Class frmAbrechnungsMaske
Me.cboER_SR._allowFreiText = False Me.cboER_SR._allowFreiText = False
Me.cboER_SR._value = "" Me.cboER_SR._value = ""
Me.cboER_SR.FormattingEnabled = True Me.cboER_SR.FormattingEnabled = True
Me.cboER_SR.Location = New System.Drawing.Point(453, 3) Me.cboER_SR.Location = New System.Drawing.Point(442, 3)
Me.cboER_SR.Margin = New System.Windows.Forms.Padding(2) Me.cboER_SR.Margin = New System.Windows.Forms.Padding(2)
Me.cboER_SR.Name = "cboER_SR" Me.cboER_SR.Name = "cboER_SR"
Me.cboER_SR.Size = New System.Drawing.Size(83, 21) Me.cboER_SR.Size = New System.Drawing.Size(94, 21)
Me.cboER_SR.TabIndex = 33 Me.cboER_SR.TabIndex = 33
' '
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(345, 6) Me.Label5.Location = New System.Drawing.Point(329, 6)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(103, 13) Me.Label5.Size = New System.Drawing.Size(103, 13)
Me.Label5.TabIndex = 32 Me.Label5.TabIndex = 32

10
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -89,6 +89,7 @@ Public Class frmFaktEmail
End Select End Select
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen
Dim KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
Dim FISKAL As cFiskal_Daten = Nothing Dim FISKAL As cFiskal_Daten = Nothing
@@ -154,6 +155,7 @@ Public Class frmFaktEmail
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) AD = New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)
FISKAL = New cFiskal_Daten(RECHNUNG.RechnungsKundenNr) FISKAL = New cFiskal_Daten(RECHNUNG.RechnungsKundenNr)
KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
If printOriginalRg Is Nothing Then If printOriginalRg Is Nothing Then
cbxOriginalPrint.Visible = False cbxOriginalPrint.Visible = False
@@ -168,6 +170,10 @@ Public Class frmFaktEmail
If AD.AdressenNr = 1001688 Then cbxExcelEvolog.Checked = True 'EVOLOG If AD.AdressenNr = 1001688 Then cbxExcelEvolog.Checked = True 'EVOLOG
If AD.AdressenNr = 800020 Then cbxTransFerry.Checked = True 'TRANS FERRY 360 If AD.AdressenNr = 800020 Then cbxTransFerry.Checked = True 'TRANS FERRY 360
If cbxMergePDF.Enabled AndAlso KD_ERW IsNot Nothing Then
cbxMergePDF.Checked = KD_ERW.kde_merge_pdf
End If
If (AD.AdressenNr.ToString.Substring(0, 2) = 15 Or AD.AdressenNr.ToString.Substring(0, 2) = 18) AndAlso cbxMergePDF.Enabled = True Then cbxMergePDF.Checked = True If (AD.AdressenNr.ToString.Substring(0, 2) = 15 Or AD.AdressenNr.ToString.Substring(0, 2) = 18) AndAlso cbxMergePDF.Enabled = True Then cbxMergePDF.Checked = True
If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then lkl.Text = """" & AD.E_Mail & """ anfügen" : lkl.Tag = AD.E_Mail If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then lkl.Text = """" & AD.E_Mail & """ anfügen" : lkl.Tag = AD.E_Mail
@@ -541,6 +547,8 @@ Public Class frmFaktEmail
accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!! accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
Case 7 Case 7
accountToSent = "rechnung@atilla-spedition.com" accountToSent = "rechnung@atilla-spedition.com"
Case 26
accountToSent = "Invoice@verag-unisped.uk"
Case Else Case Else
accountToSent = "rechnungsversand@verag.ag" accountToSent = "rechnungsversand@verag.ag"
End Select End Select
@@ -681,6 +689,8 @@ Public Class frmFaktEmail
accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!! accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
Case 7 Case 7
accountToSent = "rechnung@atilla-spedition.com" accountToSent = "rechnung@atilla-spedition.com"
Case 26
accountToSent = "Invoice@verag-unisped.uk"
Case Else Case Else
accountToSent = "rechnungsversand@verag.ag" accountToSent = "rechnungsversand@verag.ag"

9
SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb generated
View File

@@ -447,16 +447,17 @@ Partial Class frmFaktSammelRgDrucken
'Button7 'Button7
' '
Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button7.BackgroundImage = Global.SDL.My.Resources.Resources.email_big Me.Button7.BackColor = System.Drawing.Color.White
Me.Button7.BackgroundImage = Global.SDL.My.Resources.Resources.auto_mailversand_small
Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button7.ImageAlign = System.Drawing.ContentAlignment.BottomRight
Me.Button7.Location = New System.Drawing.Point(12, 55) Me.Button7.Location = New System.Drawing.Point(12, 55)
Me.Button7.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button7.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.Button7.Name = "Button7" Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(106, 37) Me.Button7.Size = New System.Drawing.Size(96, 37)
Me.Button7.TabIndex = 37 Me.Button7.TabIndex = 37
Me.Button7.UseVisualStyleBackColor = True Me.Button7.UseVisualStyleBackColor = False
' '
'Button6 'Button6
' '

6
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

@@ -1,5 +1,4 @@
Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop
Public Class frmFaktSammelRgDrucken Public Class frmFaktSammelRgDrucken
@@ -989,9 +988,6 @@ Public Class frmFaktSammelRgDrucken
End Sub End Sub
Private Sub btnNurAbf_Click(sender As Object, e As EventArgs) Handles btnNurImport.Click, btnNurExport.Click Private Sub btnNurAbf_Click(sender As Object, e As EventArgs) Handles btnNurImport.Click, btnNurExport.Click
Dim where As String = "" Dim where As String = ""

58
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1917,6 +1917,11 @@ Public Class usrCntlFaktAbrechnung
If r.Cells("clmnDsId").Value = RG_AH.dsId Or r.Cells("clmnAnhId").Value = 0 Then 'anh_id = 0 --> Anhang ohne AVISO-Bezug If r.Cells("clmnDsId").Value = RG_AH.dsId Or r.Cells("clmnAnhId").Value = 0 Then 'anh_id = 0 --> Anhang ohne AVISO-Bezug
DirectCast(r.Cells("optAnhSel"), DataGridViewCheckBoxCell).Value = -1 DirectCast(r.Cells("optAnhSel"), DataGridViewCheckBoxCell).Value = -1
End If End If
If r.Cells("clmnBezeichnung").Value.ToString.ToLower.Contains("handelsrechnung") AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_autoselect_handelsrechnung Then 'anh_id = 0 --> Anhang ohne AVISO-Bezug
DirectCast(r.Cells("optAnhSel"), DataGridViewCheckBoxCell).Value = 1
End If
Next Next
Next Next
'----------------------------- '-----------------------------
@@ -1929,7 +1934,7 @@ Public Class usrCntlFaktAbrechnung
Dim func As New cMDMFunctionsAllgemein() Dim func As New cMDMFunctionsAllgemein()
Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' /* AND UStVPo_SchnittstellenNr <> 1 */ " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by UStVPo_ID", "FMZOLL") Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' /* AND UStVPo_SchnittstellenNr <> 1 */ " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by UStVPo_ID", "FMZOLL")
Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr) Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
Dim Antrag_LandKz = "" Dim Antrag_LandKz = ""
If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL") If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL")
@@ -5558,7 +5563,7 @@ mwst:
'STATUS 3-_> Sammel-Rg gedruckt 'STATUS 3-_> Sammel-Rg gedruckt
'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel?? 'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
If cboSammelrechnung._value = 0 AndAlso lblDruckDatum.Text = "" AndAlso RD_DRUCK = 2 Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0) WARUM NOCHMALS?? If cboSammelrechnung._value = 0 AndAlso lblDruckDatum.Text = "" AndAlso (RD_DRUCK = 2 Or RD_DRUCK = 5) Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0) WARUM NOCHMALS??
If RECHNUNG IsNot Nothing AndAlso (RECHNUNG.Status <> 0 AndAlso RECHNUNG.Status <> 2) Then If RECHNUNG IsNot Nothing AndAlso (RECHNUNG.Status <> 0 AndAlso RECHNUNG.Status <> 2) Then
Return enableAUTOMAIL = False Return enableAUTOMAIL = False
Else Else
@@ -5574,7 +5579,14 @@ mwst:
Else Else
If RECHNUNG.Rechnung_an = 0 Then Return enableAUTOMAIL 'If RECHNUNG.Rechnung_an = 0 Then
' Return enableAUTOMAIL
'End If
If cboRechnungAn._value = "" Then
Return enableAUTOMAIL
End If
If cboSammelrechnung._value <> 0 Then If cboSammelrechnung._value <> 0 Then
Return enableAUTOMAIL Return enableAUTOMAIL
@@ -5586,26 +5598,26 @@ mwst:
Dim RD_DRUCK = -1 Dim RD_DRUCK = -1
Dim AD As cAdressen Dim AD As cAdressen
Select Case RECHNUNG.Rechnung_an Select Case cboRechnungAn._value
Case 1 Case "1"
If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.AbsenderKundenNr) AD = New cAdressen(RECHNUNG.AbsenderKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case 2 Case "2"
If RECHNUNG.EmpfängerKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.EmpfängerKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.EmpfängerKundenNr) AD = New cAdressen(RECHNUNG.EmpfängerKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case 3 Case "3"
If RECHNUNG.VermittlerKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.VermittlerKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.VermittlerKundenNr) AD = New cAdressen(RECHNUNG.VermittlerKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case 4 Case "4"
If RECHNUNG.AvisiererKundenNr Is Nothing Then Return enableAUTOMAIL If RECHNUNG.AvisiererKundenNr Is Nothing Then Return enableAUTOMAIL
AD = New cAdressen(RECHNUNG.AvisiererKundenNr) AD = New cAdressen(RECHNUNG.AvisiererKundenNr)
RD_DRUCK = If(AD.Rechnungsdruck, -1) RD_DRUCK = If(AD.Rechnungsdruck, -1)
Case Else Case Else
Return enableAUTOMAIL Return enableAUTOMAIL
End Select End Select
'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft 'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft

20
SDL/My Project/Resources.Designer.vb generated
View File

@@ -310,6 +310,26 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property auto_mailversand() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("auto_mailversand", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property auto_mailversand_small() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("auto_mailversand_small", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

6
SDL/My Project/Resources.resx
View File

@@ -985,4 +985,10 @@
<data name="Kostenkalkulation_UNI" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Kostenkalkulation_UNI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Kostenkalkulation_UNI.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>..\Resources\Kostenkalkulation_UNI.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="auto_mailversand" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\auto_mailversand.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="auto_mailversand_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\auto_mailversand_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

BIN
SDL/Resources/auto_mailversand.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 MiB

BIN
SDL/Resources/auto_mailversand_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 756 KiB

2
SDL/SDL.vbproj
View File

@@ -5487,6 +5487,8 @@
<None Include="Resources\ambar_boarder_new.png"> <None Include="Resources\ambar_boarder_new.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
<None Include="Resources\auto_mailversand_small.png" />
<None Include="Resources\auto_mailversand.png" />
<Content Include="Resources\food.png" /> <Content Include="Resources\food.png" />
<None Include="Resources\food1.png" /> <None Include="Resources\food1.png" />
<None Include="Resources\food2.png" /> <None Include="Resources\food2.png" />

78
SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_HandlingAussenstellen.Designer.vb generated
View File

@@ -50,6 +50,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtUebersicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtUebersicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUebersichtAuflistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -92,6 +93,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
CType(Me.lblSumBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSumBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtUebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUebersichtAuflistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -125,6 +127,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblPosNr.HyperLink = Nothing Me.lblPosNr.HyperLink = Nothing
Me.lblPosNr.Left = 0.01811025! Me.lblPosNr.Left = 0.01811025!
Me.lblPosNr.Name = "lblPosNr" Me.lblPosNr.Name = "lblPosNr"
Me.lblPosNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblPosNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.lblPosNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblPosNr.Text = "4801 17000000 0" Me.lblPosNr.Text = "4801 17000000 0"
Me.lblPosNr.Top = 0.03149607! Me.lblPosNr.Top = 0.03149607!
@@ -136,6 +139,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblAbfertigungsart.HyperLink = Nothing Me.lblAbfertigungsart.HyperLink = Nothing
Me.lblAbfertigungsart.Left = 1.829921! Me.lblAbfertigungsart.Left = 1.829921!
Me.lblAbfertigungsart.Name = "lblAbfertigungsart" Me.lblAbfertigungsart.Name = "lblAbfertigungsart"
Me.lblAbfertigungsart.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblAbfertigungsart.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1" Me.lblAbfertigungsart.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblAbfertigungsart.Text = "eigene ATLAS / Handling" Me.lblAbfertigungsart.Text = "eigene ATLAS / Handling"
Me.lblAbfertigungsart.Top = 0.03149606! Me.lblAbfertigungsart.Top = 0.03149606!
@@ -147,6 +151,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblAbfDatum.HyperLink = Nothing Me.lblAbfDatum.HyperLink = Nothing
Me.lblAbfDatum.Left = 0.9507875! Me.lblAbfDatum.Left = 0.9507875!
Me.lblAbfDatum.Name = "lblAbfDatum" Me.lblAbfDatum.Name = "lblAbfDatum"
Me.lblAbfDatum.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblAbfDatum.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1" Me.lblAbfDatum.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblAbfDatum.Text = "01.01.2017" Me.lblAbfDatum.Text = "01.01.2017"
Me.lblAbfDatum.Top = 0.03307087! Me.lblAbfDatum.Top = 0.03307087!
@@ -158,6 +163,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblAnzahl.HyperLink = Nothing Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 1.556693! Me.lblAnzahl.Left = 1.556693!
Me.lblAnzahl.Name = "lblAnzahl" Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblAnzahl.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1" Me.lblAnzahl.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblAnzahl.Text = "1" Me.lblAnzahl.Text = "1"
Me.lblAnzahl.Top = 0.03149607! Me.lblAnzahl.Top = 0.03149607!
@@ -170,7 +176,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblEndEmpf.Left = 3.634646! Me.lblEndEmpf.Left = 3.634646!
Me.lblEndEmpf.MultiLine = False Me.lblEndEmpf.MultiLine = False
Me.lblEndEmpf.Name = "lblEndEmpf" Me.lblEndEmpf.Name = "lblEndEmpf"
Me.lblEndEmpf.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblEndEmpf.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblEndEmpf.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & Me.lblEndEmpf.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1" "ar-set: 1"
Me.lblEndEmpf.Text = "VERAG" Me.lblEndEmpf.Text = "VERAG"
@@ -183,7 +189,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblEndEmpfKdNr.HyperLink = Nothing Me.lblEndEmpfKdNr.HyperLink = Nothing
Me.lblEndEmpfKdNr.Left = 3.158662! Me.lblEndEmpfKdNr.Left = 3.158662!
Me.lblEndEmpfKdNr.Name = "lblEndEmpfKdNr" Me.lblEndEmpfKdNr.Name = "lblEndEmpfKdNr"
Me.lblEndEmpfKdNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblEndEmpfKdNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblEndEmpfKdNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & Me.lblEndEmpfKdNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1" "ar-set: 1"
Me.lblEndEmpfKdNr.Text = "1000001 VERAG" Me.lblEndEmpfKdNr.Text = "1000001 VERAG"
@@ -209,7 +215,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblHandlingsgebuehr.HyperLink = Nothing Me.lblHandlingsgebuehr.HyperLink = Nothing
Me.lblHandlingsgebuehr.Left = 5.608268! Me.lblHandlingsgebuehr.Left = 5.608268!
Me.lblHandlingsgebuehr.Name = "lblHandlingsgebuehr" Me.lblHandlingsgebuehr.Name = "lblHandlingsgebuehr"
Me.lblHandlingsgebuehr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblHandlingsgebuehr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblHandlingsgebuehr.Text = "1.000,00" Me.lblHandlingsgebuehr.Text = "1.000,00"
@@ -222,7 +228,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblzuKassierenHandling.HyperLink = Nothing Me.lblzuKassierenHandling.HyperLink = Nothing
Me.lblzuKassierenHandling.Left = 6.229134! Me.lblzuKassierenHandling.Left = 6.229134!
Me.lblzuKassierenHandling.Name = "lblzuKassierenHandling" Me.lblzuKassierenHandling.Name = "lblzuKassierenHandling"
Me.lblzuKassierenHandling.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblzuKassierenHandling.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblzuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblzuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblzuKassierenHandling.Text = "1.000,00" Me.lblzuKassierenHandling.Text = "1.000,00"
@@ -235,7 +241,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblBarzahlungsbetrag.HyperLink = Nothing Me.lblBarzahlungsbetrag.HyperLink = Nothing
Me.lblBarzahlungsbetrag.Left = 6.854331! Me.lblBarzahlungsbetrag.Left = 6.854331!
Me.lblBarzahlungsbetrag.Name = "lblBarzahlungsbetrag" Me.lblBarzahlungsbetrag.Name = "lblBarzahlungsbetrag"
Me.lblBarzahlungsbetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblBarzahlungsbetrag.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblBarzahlungsbetrag.Text = "1.000,00" Me.lblBarzahlungsbetrag.Text = "1.000,00"
@@ -253,6 +259,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label28.HyperLink = Nothing Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.451181! Me.Label28.Left = 2.451181!
Me.Label28.Name = "Label28" Me.Label28.Name = "Label28"
Me.Label28.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1" Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG Spediton AG" Me.Label28.Text = "VERAG Spediton AG"
Me.Label28.Top = 0.08622044! Me.Label28.Top = 0.08622044!
@@ -287,6 +294,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblDat.HyperLink = Nothing Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622! Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat" Me.lblDat.Name = "lblDat"
Me.lblDat.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblDat.Style = "font-size: 8pt; text-align: left" Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016" Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044! Me.lblDat.Top = 0.08622044!
@@ -315,6 +323,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label3.HyperLink = Nothing Me.Label3.HyperLink = Nothing
Me.Label3.Left = 5.032284! Me.Label3.Left = 5.032284!
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1" "do-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:" Me.Label3.Text = "Sachbearbeiter:"
@@ -327,6 +336,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblUeberschrift.HyperLink = Nothing Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622! Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift" Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "HANDLING / FRONT-OFFICE" Me.lblUeberschrift.Text = "HANDLING / FRONT-OFFICE"
Me.lblUeberschrift.Top = 0.1858268! Me.lblUeberschrift.Top = 0.1858268!
@@ -338,6 +348,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSachbearbeiter.HyperLink = Nothing Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 5.032284! Me.lblSachbearbeiter.Left = 5.032284!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter" Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblSachbearbeiter.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & Me.lblSachbearbeiter.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1" "-char-set: 1"
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert" Me.lblSachbearbeiter.Text = "Hanslmayr Hubert"
@@ -346,8 +357,8 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
' '
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label10, Me.lblGesGesSumAnzahl, Me.Line8, Me.Line9, Me.lblSumHandlingsgebuehr, Me.lblSumzuKassierenHandling, Me.lblSumBarzahlungsbetrag, Me.Line5, Me.Label12, Me.txtUebersicht}) Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label10, Me.lblGesGesSumAnzahl, Me.Line8, Me.Line9, Me.lblSumHandlingsgebuehr, Me.lblSumzuKassierenHandling, Me.lblSumBarzahlungsbetrag, Me.Line5, Me.Label12, Me.txtUebersicht, Me.txtUebersichtAuflistung})
Me.ReportFooter1.Height = 0.838189! Me.ReportFooter1.Height = 1.140469!
Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
' '
@@ -357,6 +368,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label10.HyperLink = Nothing Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.361811! Me.Label10.Left = 0.361811!
Me.Label10.Name = "Label10" Me.Label10.Name = "Label10"
Me.Label10.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label10.Style = "font-size: 7pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label10.Style = "font-size: 7pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = " Abfertigungen" Me.Label10.Text = " Abfertigungen"
Me.Label10.Top = 0.2110237! Me.Label10.Top = 0.2110237!
@@ -368,6 +380,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblGesGesSumAnzahl.HyperLink = Nothing Me.lblGesGesSumAnzahl.HyperLink = Nothing
Me.lblGesGesSumAnzahl.Left = 0.003937068! Me.lblGesGesSumAnzahl.Left = 0.003937068!
Me.lblGesGesSumAnzahl.Name = "lblGesGesSumAnzahl" Me.lblGesGesSumAnzahl.Name = "lblGesGesSumAnzahl"
Me.lblGesGesSumAnzahl.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblGesGesSumAnzahl.Style = "font-size: 7pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblGesGesSumAnzahl.Style = "font-size: 7pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesGesSumAnzahl.Text = "0000" Me.lblGesGesSumAnzahl.Text = "0000"
Me.lblGesGesSumAnzahl.Top = 0.2110237! Me.lblGesGesSumAnzahl.Top = 0.2110237!
@@ -405,7 +418,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSumHandlingsgebuehr.HyperLink = Nothing Me.lblSumHandlingsgebuehr.HyperLink = Nothing
Me.lblSumHandlingsgebuehr.Left = 5.608268! Me.lblSumHandlingsgebuehr.Left = 5.608268!
Me.lblSumHandlingsgebuehr.Name = "lblSumHandlingsgebuehr" Me.lblSumHandlingsgebuehr.Name = "lblSumHandlingsgebuehr"
Me.lblSumHandlingsgebuehr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblSumHandlingsgebuehr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblSumHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblSumHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblSumHandlingsgebuehr.Text = "1.000,00" Me.lblSumHandlingsgebuehr.Text = "1.000,00"
@@ -418,7 +431,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSumzuKassierenHandling.HyperLink = Nothing Me.lblSumzuKassierenHandling.HyperLink = Nothing
Me.lblSumzuKassierenHandling.Left = 6.229135! Me.lblSumzuKassierenHandling.Left = 6.229135!
Me.lblSumzuKassierenHandling.Name = "lblSumzuKassierenHandling" Me.lblSumzuKassierenHandling.Name = "lblSumzuKassierenHandling"
Me.lblSumzuKassierenHandling.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblSumzuKassierenHandling.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblSumzuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblSumzuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblSumzuKassierenHandling.Text = "1.000,00" Me.lblSumzuKassierenHandling.Text = "1.000,00"
@@ -431,7 +444,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblSumBarzahlungsbetrag.HyperLink = Nothing Me.lblSumBarzahlungsbetrag.HyperLink = Nothing
Me.lblSumBarzahlungsbetrag.Left = 6.854331! Me.lblSumBarzahlungsbetrag.Left = 6.854331!
Me.lblSumBarzahlungsbetrag.Name = "lblSumBarzahlungsbetrag" Me.lblSumBarzahlungsbetrag.Name = "lblSumBarzahlungsbetrag"
Me.lblSumBarzahlungsbetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblSumBarzahlungsbetrag.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblSumBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblSumBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblSumBarzahlungsbetrag.Text = "1.000,00" Me.lblSumBarzahlungsbetrag.Text = "1.000,00"
@@ -457,7 +470,8 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 0! Me.Label12.Left = 0!
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 7pt; font-weight: bold; text-align: left; text-decoration: underline; " & Me.Label12.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label12.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-decoration: underline; " &
"ddo-char-set: 1" "ddo-char-set: 1"
Me.Label12.Text = "<EFBFBD>bersicht:" Me.Label12.Text = "<EFBFBD>bersicht:"
Me.Label12.Top = 0.4807087! Me.Label12.Top = 0.4807087!
@@ -468,11 +482,23 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.txtUebersicht.Height = 0.2! Me.txtUebersicht.Height = 0.2!
Me.txtUebersicht.Left = 0! Me.txtUebersicht.Left = 0!
Me.txtUebersicht.Name = "txtUebersicht" Me.txtUebersicht.Name = "txtUebersicht"
Me.txtUebersicht.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtUebersicht.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; ddo-char-set: 1" Me.txtUebersicht.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; ddo-char-set: 1"
Me.txtUebersicht.Text = Nothing Me.txtUebersicht.Text = Nothing
Me.txtUebersicht.Top = 0.638189! Me.txtUebersicht.Top = 0.638189!
Me.txtUebersicht.Width = 7.47441! Me.txtUebersicht.Width = 7.47441!
' '
'txtUebersichtAuflistung
'
Me.txtUebersichtAuflistung.Height = 0.2!
Me.txtUebersichtAuflistung.Left = 0!
Me.txtUebersichtAuflistung.Name = "txtUebersichtAuflistung"
Me.txtUebersichtAuflistung.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtUebersichtAuflistung.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; ddo-char-set: 1"
Me.txtUebersichtAuflistung.Text = Nothing
Me.txtUebersichtAuflistung.Top = 0.838189!
Me.txtUebersichtAuflistung.Width = 7.47441!
'
'GroupHeader1 'GroupHeader1
' '
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Line4, Me.Label6, Me.Label8, Me.Label4, Me.Label5, Me.Line12, Me.Label1, Me.Label2, Me.lblAbfArtUeberschrift}) Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Line4, Me.Label6, Me.Label8, Me.Label4, Me.Label5, Me.Line12, Me.Label1, Me.Label2, Me.lblAbfArtUeberschrift})
@@ -485,6 +511,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label7.HyperLink = Nothing Me.Label7.HyperLink = Nothing
Me.Label7.Left = 1.559449! Me.Label7.Left = 1.559449!
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label7.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & Me.Label7.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; vertical-align: middle; ddo-char-set: 1" "align: left; vertical-align: middle; ddo-char-set: 1"
Me.Label7.Text = "Anz." Me.Label7.Text = "Anz."
@@ -510,6 +537,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label6.HyperLink = Nothing Me.Label6.HyperLink = Nothing
Me.Label6.Left = 5.611023! Me.Label6.Left = 5.611023!
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label6.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" & Me.Label6.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1" "align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label6.Text = "Handling" Me.Label6.Text = "Handling"
@@ -522,6 +550,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label8.HyperLink = Nothing Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.161418! Me.Label8.Left = 3.161418!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label8.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & Me.Label8.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1" "align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.Label8.Text = "Empf<EFBFBD>nger" Me.Label8.Text = "Empf<EFBFBD>nger"
@@ -534,6 +563,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label4.HyperLink = Nothing Me.Label4.HyperLink = Nothing
Me.Label4.Left = 1.832677! Me.Label4.Left = 1.832677!
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label4.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & Me.Label4.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1" "align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.Label4.Text = "Abfertigungsart" Me.Label4.Text = "Abfertigungsart"
@@ -546,6 +576,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label5.HyperLink = Nothing Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.01299213! Me.Label5.Left = 0.01299213!
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label5.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" & Me.Label5.Style = "background-color: #003680; color: White; font-size: 8pt; font-weight: bold; text-" &
"align: left; vertical-align: middle; ddo-char-set: 1" "align: left; vertical-align: middle; ddo-char-set: 1"
Me.Label5.Text = "Abfertigung" Me.Label5.Text = "Abfertigung"
@@ -571,6 +602,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label1.HyperLink = Nothing Me.Label1.HyperLink = Nothing
Me.Label1.Left = 6.23189! Me.Label1.Left = 6.23189!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label1.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" & Me.Label1.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1" "align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label1.Text = "zu kassieren" Me.Label1.Text = "zu kassieren"
@@ -583,6 +615,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label2.HyperLink = Nothing Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.857087! Me.Label2.Left = 6.857087!
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label2.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" & Me.Label2.Style = "background-color: #003680; color: White; font-size: 7pt; font-weight: bold; text-" &
"align: right; vertical-align: middle; ddo-char-set: 1" "align: right; vertical-align: middle; ddo-char-set: 1"
Me.Label2.Text = "(kassiert)" Me.Label2.Text = "(kassiert)"
@@ -595,6 +628,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblAbfArtUeberschrift.HyperLink = Nothing Me.lblAbfArtUeberschrift.HyperLink = Nothing
Me.lblAbfArtUeberschrift.Left = 0! Me.lblAbfArtUeberschrift.Left = 0!
Me.lblAbfArtUeberschrift.Name = "lblAbfArtUeberschrift" Me.lblAbfArtUeberschrift.Name = "lblAbfArtUeberschrift"
Me.lblAbfArtUeberschrift.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblAbfArtUeberschrift.Style = "background-color: DimGray; color: White; font-size: 10pt; font-weight: bold; text" & Me.lblAbfArtUeberschrift.Style = "background-color: DimGray; color: White; font-size: 10pt; font-weight: bold; text" &
"-align: left; vertical-align: middle; ddo-char-set: 1" "-align: left; vertical-align: middle; ddo-char-set: 1"
Me.lblAbfArtUeberschrift.Text = "1 - ZA" Me.lblAbfArtUeberschrift.Text = "1 - ZA"
@@ -612,6 +646,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Label9.HyperLink = Nothing Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.3610249! Me.Label9.Left = 0.3610249!
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.Label9.Style = "font-size: 7pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label9.Style = "font-size: 7pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = " Abfertigungen" Me.Label9.Text = " Abfertigungen"
Me.Label9.Top = 0.08914042! Me.Label9.Top = 0.08914042!
@@ -623,6 +658,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblGesSumAnzahl.HyperLink = Nothing Me.lblGesSumAnzahl.HyperLink = Nothing
Me.lblGesSumAnzahl.Left = 0.00315094! Me.lblGesSumAnzahl.Left = 0.00315094!
Me.lblGesSumAnzahl.Name = "lblGesSumAnzahl" Me.lblGesSumAnzahl.Name = "lblGesSumAnzahl"
Me.lblGesSumAnzahl.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblGesSumAnzahl.Style = "font-size: 7pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblGesSumAnzahl.Style = "font-size: 7pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesSumAnzahl.Text = "0000" Me.lblGesSumAnzahl.Text = "0000"
Me.lblGesSumAnzahl.Top = 0.08914042! Me.lblGesSumAnzahl.Top = 0.08914042!
@@ -660,7 +696,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblGesHandlingsgebuehr.HyperLink = Nothing Me.lblGesHandlingsgebuehr.HyperLink = Nothing
Me.lblGesHandlingsgebuehr.Left = 5.607481! Me.lblGesHandlingsgebuehr.Left = 5.607481!
Me.lblGesHandlingsgebuehr.Name = "lblGesHandlingsgebuehr" Me.lblGesHandlingsgebuehr.Name = "lblGesHandlingsgebuehr"
Me.lblGesHandlingsgebuehr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblGesHandlingsgebuehr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblGesHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblGesHandlingsgebuehr.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblGesHandlingsgebuehr.Text = "1.000,00" Me.lblGesHandlingsgebuehr.Text = "1.000,00"
@@ -673,7 +709,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblGeszuKassierenHandling.HyperLink = Nothing Me.lblGeszuKassierenHandling.HyperLink = Nothing
Me.lblGeszuKassierenHandling.Left = 6.228348! Me.lblGeszuKassierenHandling.Left = 6.228348!
Me.lblGeszuKassierenHandling.Name = "lblGeszuKassierenHandling" Me.lblGeszuKassierenHandling.Name = "lblGeszuKassierenHandling"
Me.lblGeszuKassierenHandling.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblGeszuKassierenHandling.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblGeszuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblGeszuKassierenHandling.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblGeszuKassierenHandling.Text = "1.000,00" Me.lblGeszuKassierenHandling.Text = "1.000,00"
@@ -686,7 +722,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.lblGesBarzahlungsbetrag.HyperLink = Nothing Me.lblGesBarzahlungsbetrag.HyperLink = Nothing
Me.lblGesBarzahlungsbetrag.Left = 6.853545! Me.lblGesBarzahlungsbetrag.Left = 6.853545!
Me.lblGesBarzahlungsbetrag.Name = "lblGesBarzahlungsbetrag" Me.lblGesBarzahlungsbetrag.Name = "lblGesBarzahlungsbetrag"
Me.lblGesBarzahlungsbetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0) Me.lblGesBarzahlungsbetrag.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.lblGesBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & Me.lblGesBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1" "har-set: 1"
Me.lblGesBarzahlungsbetrag.Text = "1.000,00" Me.lblGesBarzahlungsbetrag.Text = "1.000,00"
@@ -710,12 +746,12 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Me.Sections.Add(Me.GroupFooter1) Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & Me.StyleSheet.Add(CType(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")) "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal")) "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
CType(Me.lblPosNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblPosNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfDatum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAbfDatum, System.ComponentModel.ISupportInitialize).EndInit()
@@ -739,6 +775,7 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
CType(Me.lblSumBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSumBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUebersicht, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtUebersicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUebersichtAuflistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
@@ -806,4 +843,5 @@ Partial Public Class rptSpeditionsbericht_HandlingAussenstellen
Public WithEvents lblGesBarzahlungsbetrag As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblGesBarzahlungsbetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtUebersicht As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtUebersicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUebersichtAuflistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class End Class

21
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -1751,6 +1751,7 @@ Public Class usrCntlSpeditionsBuchSuche
' Dim gesgesAbfBez = "" ' Dim gesgesAbfBez = ""
Dim SumText = "" Dim SumText = ""
Dim SumTextAbf = ""
AddHandler rpt.Detail.Format, Sub() AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
@@ -1855,7 +1856,7 @@ Public Class usrCntlSpeditionsBuchSuche
sb.AppendLine(String.Format("{0,-15} {1,6} {2,12} {3,15} {4,15}", "Grenzstelle", "Anz", "zu kassieren", "kassiert", "Handling")) sb.AppendLine(String.Format("{0,-15} {1,6} {2,12} {3,15} {4,15}", "Grenzstelle", "Anz", "zu kassieren", "kassiert", "Handling"))
sb.AppendLine(New String("-"c, 65)) sb.AppendLine(New String("-"c, 70))
For Each r_ As DataRow In dt_summen.Rows For Each r_ As DataRow In dt_summen.Rows
@@ -1873,6 +1874,18 @@ Public Class usrCntlSpeditionsBuchSuche
rpt.txtUebersicht.Font = New Font("Consolas", 10) rpt.txtUebersicht.Font = New Font("Consolas", 10)
rpt.txtUebersicht.Text = SumText rpt.txtUebersicht.Text = SumText
Dim sb_ueber As New System.Text.StringBuilder
rpt.txtUebersichtAuflistung.Font = New Font("Consolas", 10)
sb_ueber.AppendLine(String.Format("{0,-6} {1,6} ", "Anz", "Abfertigungsart"))
sb_ueber.AppendLine(New String("-"c, 70))
SumTextAbf = sb_ueber.ToString()
rpt.txtUebersicht.Text &= vbNewLine & vbNewLine & vbNewLine & vbNewLine & SumTextAbf
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR" Case "AMBAR"
rpt.lblSumBarzahlungsbetrag.Visible = False rpt.lblSumBarzahlungsbetrag.Visible = False
@@ -1885,6 +1898,7 @@ Public Class usrCntlSpeditionsBuchSuche
rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value) rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
bezeichnung = rpt.lblAbfArtUeberschrift.Text bezeichnung = rpt.lblAbfArtUeberschrift.Text
gesAnz = 0 gesAnz = 0
gesBar = 0 gesBar = 0
geshandling = 0 geshandling = 0
@@ -1897,8 +1911,9 @@ Public Class usrCntlSpeditionsBuchSuche
rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2") rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2")
rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2") rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2")
'SumText &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine rpt.txtUebersichtAuflistung.Font = New Font("Consolas", 10)
'rpt.txtUebersichtAuflistung.Text &= gesAnz.ToString("N0").PadLeft(8) & " " & bezeichnung & vbNewLine
rpt.txtUebersichtAuflistung.Text &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA

26
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb
View File

@@ -1,10 +1,7 @@
Imports DAKOSY_Worker Imports System.Globalization
Imports Tamir Imports DAKOSY_Worker
Imports Tamir.SharpSsh
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports javax.xml.bind.annotation
Imports System.Globalization
Public Class cATLAS_EZA_IMPORT Public Class cATLAS_EZA_IMPORT
@@ -187,7 +184,8 @@ Public Class cATLAS_EZA_IMPORT
cnt += 1 cnt += 1
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) 'MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Return False Return False
End Try End Try
@@ -213,7 +211,8 @@ Public Class cATLAS_EZA_IMPORT
Catch ex As Exception Catch ex As Exception
' '
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) 'MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("FEHLER! Datei im richtigen Format?" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' Return False ' Return False
End Try End Try
End With End With
@@ -389,7 +388,8 @@ Public Class cATLAS_EZA_IMPORT
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) 'MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Return False Return False
End Try End Try
@@ -414,7 +414,8 @@ Public Class cATLAS_EZA_IMPORT
Catch ex As Exception Catch ex As Exception
' '
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) 'MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("FEHLER! Datei im richtigen Format?" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' Return False ' Return False
End Try End Try
End With End With
@@ -664,7 +665,7 @@ Public Class cATLAS_EZA_IMPORT
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Return False Return False
End Try End Try
@@ -685,7 +686,7 @@ Public Class cATLAS_EZA_IMPORT
Catch ex As Exception Catch ex As Exception
' '
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("FEHLER! Datei im richtigen Format?" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' Return False ' Return False
End Try End Try
End With End With
@@ -931,7 +932,8 @@ Public Class cATLAS_EZA_IMPORT
Catch ex As Exception Catch ex As Exception
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
MsgBox("FEHLER beim Einlesen: " & vbCrLf & ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("FEHLER beim Einlesen: " & vbCrLf & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Finally Finally
' Ressourcen sauber freigeben ' Ressourcen sauber freigeben
Try Try

462
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -23,34 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
@@ -446,6 +446,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxPDFMerge = New System.Windows.Forms.CheckBox()
Me.cbxHR_autoselect = New System.Windows.Forms.CheckBox()
Me.tbcntrDetails.SuspendLayout() Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout() Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout() Me.tbcntrAbf.SuspendLayout()
@@ -1177,6 +1179,8 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'tbVerrechnung 'tbVerrechnung
' '
Me.tbVerrechnung.Controls.Add(Me.cbxHR_autoselect)
Me.tbVerrechnung.Controls.Add(Me.cbxPDFMerge)
Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnung_IM_EX) Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnung_IM_EX)
Me.tbVerrechnung.Controls.Add(Me.pnlKundenUIDveranlagt) Me.tbVerrechnung.Controls.Add(Me.pnlKundenUIDveranlagt)
Me.tbVerrechnung.Controls.Add(Me.Label117) Me.tbVerrechnung.Controls.Add(Me.Label117)
@@ -1243,7 +1247,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxSammelrechnung_IM_EX 'cbxSammelrechnung_IM_EX
' '
Me.cbxSammelrechnung_IM_EX.AutoSize = True Me.cbxSammelrechnung_IM_EX.AutoSize = True
Me.cbxSammelrechnung_IM_EX.Location = New System.Drawing.Point(417, 175) Me.cbxSammelrechnung_IM_EX.Location = New System.Drawing.Point(431, 144)
Me.cbxSammelrechnung_IM_EX.Name = "cbxSammelrechnung_IM_EX" Me.cbxSammelrechnung_IM_EX.Name = "cbxSammelrechnung_IM_EX"
Me.cbxSammelrechnung_IM_EX.Size = New System.Drawing.Size(202, 17) Me.cbxSammelrechnung_IM_EX.Size = New System.Drawing.Size(202, 17)
Me.cbxSammelrechnung_IM_EX.TabIndex = 54 Me.cbxSammelrechnung_IM_EX.TabIndex = 54
@@ -1371,7 +1375,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label117 'Label117
' '
Me.Label117.AutoSize = True Me.Label117.AutoSize = True
Me.Label117.Location = New System.Drawing.Point(191, 99) Me.Label117.Location = New System.Drawing.Point(191, 91)
Me.Label117.Name = "Label117" Me.Label117.Name = "Label117"
Me.Label117.Size = New System.Drawing.Size(30, 13) Me.Label117.Size = New System.Drawing.Size(30, 13)
Me.Label117.TabIndex = 52 Me.Label117.TabIndex = 52
@@ -1478,7 +1482,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbpKopfsammelrechnung.AutoSize = True Me.cbpKopfsammelrechnung.AutoSize = True
Me.cbpKopfsammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbpKopfsammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbpKopfsammelrechnung.Location = New System.Drawing.Point(417, 244) Me.cbpKopfsammelrechnung.Location = New System.Drawing.Point(431, 213)
Me.cbpKopfsammelrechnung.Name = "cbpKopfsammelrechnung" Me.cbpKopfsammelrechnung.Name = "cbpKopfsammelrechnung"
Me.cbpKopfsammelrechnung.Size = New System.Drawing.Size(202, 30) Me.cbpKopfsammelrechnung.Size = New System.Drawing.Size(202, 30)
Me.cbpKopfsammelrechnung.TabIndex = 50 Me.cbpKopfsammelrechnung.TabIndex = 50
@@ -1681,7 +1685,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label101 'Label101
' '
Me.Label101.AutoSize = True Me.Label101.AutoSize = True
Me.Label101.Location = New System.Drawing.Point(191, 50) Me.Label101.Location = New System.Drawing.Point(191, 42)
Me.Label101.Name = "Label101" Me.Label101.Name = "Label101"
Me.Label101.Size = New System.Drawing.Size(95, 13) Me.Label101.Size = New System.Drawing.Size(95, 13)
Me.Label101.TabIndex = 42 Me.Label101.TabIndex = 42
@@ -1691,7 +1695,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxSndDatenAusSTB.AutoSize = True Me.cbxSndDatenAusSTB.AutoSize = True
Me.cbxSndDatenAusSTB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxSndDatenAusSTB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxSndDatenAusSTB.Location = New System.Drawing.Point(417, 221) Me.cbxSndDatenAusSTB.Location = New System.Drawing.Point(431, 190)
Me.cbxSndDatenAusSTB.Name = "cbxSndDatenAusSTB" Me.cbxSndDatenAusSTB.Name = "cbxSndDatenAusSTB"
Me.cbxSndDatenAusSTB.Size = New System.Drawing.Size(145, 17) Me.cbxSndDatenAusSTB.Size = New System.Drawing.Size(145, 17)
Me.cbxSndDatenAusSTB.TabIndex = 40 Me.cbxSndDatenAusSTB.TabIndex = 40
@@ -1702,7 +1706,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label95.AutoSize = True Me.Label95.AutoSize = True
Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label95.Location = New System.Drawing.Point(414, 112) Me.Label95.Location = New System.Drawing.Point(428, 81)
Me.Label95.Name = "Label95" Me.Label95.Name = "Label95"
Me.Label95.Size = New System.Drawing.Size(70, 13) Me.Label95.Size = New System.Drawing.Size(70, 13)
Me.Label95.TabIndex = 38 Me.Label95.TabIndex = 38
@@ -1711,7 +1715,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxSammelrechnungBerichtLeistungsdetails 'cbxSammelrechnungBerichtLeistungsdetails
' '
Me.cbxSammelrechnungBerichtLeistungsdetails.AutoSize = True Me.cbxSammelrechnungBerichtLeistungsdetails.AutoSize = True
Me.cbxSammelrechnungBerichtLeistungsdetails.Location = New System.Drawing.Point(417, 155) Me.cbxSammelrechnungBerichtLeistungsdetails.Location = New System.Drawing.Point(431, 124)
Me.cbxSammelrechnungBerichtLeistungsdetails.Name = "cbxSammelrechnungBerichtLeistungsdetails" Me.cbxSammelrechnungBerichtLeistungsdetails.Name = "cbxSammelrechnungBerichtLeistungsdetails"
Me.cbxSammelrechnungBerichtLeistungsdetails.Size = New System.Drawing.Size(225, 17) Me.cbxSammelrechnungBerichtLeistungsdetails.Size = New System.Drawing.Size(225, 17)
Me.cbxSammelrechnungBerichtLeistungsdetails.TabIndex = 37 Me.cbxSammelrechnungBerichtLeistungsdetails.TabIndex = 37
@@ -1743,7 +1747,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxVeranlagungskunde.AutoSize = True Me.cbxVeranlagungskunde.AutoSize = True
Me.cbxVeranlagungskunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxVeranlagungskunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVeranlagungskunde.Location = New System.Drawing.Point(417, 198) Me.cbxVeranlagungskunde.Location = New System.Drawing.Point(431, 167)
Me.cbxVeranlagungskunde.Name = "cbxVeranlagungskunde" Me.cbxVeranlagungskunde.Name = "cbxVeranlagungskunde"
Me.cbxVeranlagungskunde.Size = New System.Drawing.Size(121, 17) Me.cbxVeranlagungskunde.Size = New System.Drawing.Size(121, 17)
Me.cbxVeranlagungskunde.TabIndex = 34 Me.cbxVeranlagungskunde.TabIndex = 34
@@ -1753,7 +1757,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label93 'Label93
' '
Me.Label93.AutoSize = True Me.Label93.AutoSize = True
Me.Label93.Location = New System.Drawing.Point(12, 23) Me.Label93.Location = New System.Drawing.Point(12, 15)
Me.Label93.Name = "Label93" Me.Label93.Name = "Label93"
Me.Label93.Size = New System.Drawing.Size(110, 13) Me.Label93.Size = New System.Drawing.Size(110, 13)
Me.Label93.TabIndex = 32 Me.Label93.TabIndex = 32
@@ -1763,7 +1767,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAutoFakturierung.AutoSize = True Me.cbxAutoFakturierung.AutoSize = True
Me.cbxAutoFakturierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAutoFakturierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAutoFakturierung.Location = New System.Drawing.Point(417, 135) Me.cbxAutoFakturierung.Location = New System.Drawing.Point(431, 104)
Me.cbxAutoFakturierung.Name = "cbxAutoFakturierung" Me.cbxAutoFakturierung.Name = "cbxAutoFakturierung"
Me.cbxAutoFakturierung.Size = New System.Drawing.Size(118, 17) Me.cbxAutoFakturierung.Size = New System.Drawing.Size(118, 17)
Me.cbxAutoFakturierung.TabIndex = 31 Me.cbxAutoFakturierung.TabIndex = 31
@@ -1835,7 +1839,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label47 'Label47
' '
Me.Label47.AutoSize = True Me.Label47.AutoSize = True
Me.Label47.Location = New System.Drawing.Point(191, 77) Me.Label47.Location = New System.Drawing.Point(191, 69)
Me.Label47.Name = "Label47" Me.Label47.Name = "Label47"
Me.Label47.Size = New System.Drawing.Size(30, 13) Me.Label47.Size = New System.Drawing.Size(30, 13)
Me.Label47.TabIndex = 15 Me.Label47.TabIndex = 15
@@ -1844,7 +1848,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label46 'Label46
' '
Me.Label46.AutoSize = True Me.Label46.AutoSize = True
Me.Label46.Location = New System.Drawing.Point(12, 77) Me.Label46.Location = New System.Drawing.Point(12, 69)
Me.Label46.Name = "Label46" Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(69, 13) Me.Label46.Size = New System.Drawing.Size(69, 13)
Me.Label46.TabIndex = 10 Me.Label46.TabIndex = 10
@@ -1853,7 +1857,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label45 'Label45
' '
Me.Label45.AutoSize = True Me.Label45.AutoSize = True
Me.Label45.Location = New System.Drawing.Point(12, 51) Me.Label45.Location = New System.Drawing.Point(12, 43)
Me.Label45.Name = "Label45" Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(108, 13) Me.Label45.Size = New System.Drawing.Size(108, 13)
Me.Label45.TabIndex = 5 Me.Label45.TabIndex = 5
@@ -1882,7 +1886,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label44 'Label44
' '
Me.Label44.AutoSize = True Me.Label44.AutoSize = True
Me.Label44.Location = New System.Drawing.Point(12, 97) Me.Label44.Location = New System.Drawing.Point(12, 89)
Me.Label44.Name = "Label44" Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(88, 13) Me.Label44.Size = New System.Drawing.Size(88, 13)
Me.Label44.TabIndex = 0 Me.Label44.TabIndex = 0
@@ -1901,7 +1905,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAbf_SvsRvs.AutoSize = True Me.cbxAbf_SvsRvs.AutoSize = True
Me.cbxAbf_SvsRvs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAbf_SvsRvs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 118) Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 110)
Me.cbxAbf_SvsRvs.Name = "cbxAbf_SvsRvs" Me.cbxAbf_SvsRvs.Name = "cbxAbf_SvsRvs"
Me.cbxAbf_SvsRvs.Size = New System.Drawing.Size(74, 17) Me.cbxAbf_SvsRvs.Size = New System.Drawing.Size(74, 17)
Me.cbxAbf_SvsRvs.TabIndex = 12 Me.cbxAbf_SvsRvs.TabIndex = 12
@@ -1912,7 +1916,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAbf_Rabattstaffel.AutoSize = True Me.cbxAbf_Rabattstaffel.AutoSize = True
Me.cbxAbf_Rabattstaffel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAbf_Rabattstaffel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 96) Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 88)
Me.cbxAbf_Rabattstaffel.Name = "cbxAbf_Rabattstaffel" Me.cbxAbf_Rabattstaffel.Name = "cbxAbf_Rabattstaffel"
Me.cbxAbf_Rabattstaffel.Size = New System.Drawing.Size(86, 17) Me.cbxAbf_Rabattstaffel.Size = New System.Drawing.Size(86, 17)
Me.cbxAbf_Rabattstaffel.TabIndex = 7 Me.cbxAbf_Rabattstaffel.TabIndex = 7
@@ -1923,7 +1927,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.cbxAbf_Vorkasse.AutoSize = True Me.cbxAbf_Vorkasse.AutoSize = True
Me.cbxAbf_Vorkasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxAbf_Vorkasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 74) Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 66)
Me.cbxAbf_Vorkasse.Name = "cbxAbf_Vorkasse" Me.cbxAbf_Vorkasse.Name = "cbxAbf_Vorkasse"
Me.cbxAbf_Vorkasse.Size = New System.Drawing.Size(70, 17) Me.cbxAbf_Vorkasse.Size = New System.Drawing.Size(70, 17)
Me.cbxAbf_Vorkasse.TabIndex = 2 Me.cbxAbf_Vorkasse.TabIndex = 2
@@ -1934,7 +1938,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label49.AutoSize = True Me.Label49.AutoSize = True
Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label49.Location = New System.Drawing.Point(414, 93) Me.Label49.Location = New System.Drawing.Point(428, 62)
Me.Label49.Name = "Label49" Me.Label49.Name = "Label49"
Me.Label49.Size = New System.Drawing.Size(54, 13) Me.Label49.Size = New System.Drawing.Size(54, 13)
Me.Label49.TabIndex = 13 Me.Label49.TabIndex = 13
@@ -1944,7 +1948,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label48.AutoSize = True Me.Label48.AutoSize = True
Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label48.Location = New System.Drawing.Point(414, 68) Me.Label48.Location = New System.Drawing.Point(428, 37)
Me.Label48.Name = "Label48" Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(90, 13) Me.Label48.Size = New System.Drawing.Size(90, 13)
Me.Label48.TabIndex = 8 Me.Label48.TabIndex = 8
@@ -1954,7 +1958,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label39.AutoSize = True 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.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(414, 49) Me.Label39.Location = New System.Drawing.Point(428, 18)
Me.Label39.Name = "Label39" Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(92, 13) Me.Label39.Size = New System.Drawing.Size(92, 13)
Me.Label39.TabIndex = 3 Me.Label39.TabIndex = 3
@@ -1975,7 +1979,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision_Mindestbetrag._Waehrung = True Me.txtAbf_Vorlageprovision_Mindestbetrag._Waehrung = True
Me.txtAbf_Vorlageprovision_Mindestbetrag._WaehrungZeichen = True Me.txtAbf_Vorlageprovision_Mindestbetrag._WaehrungZeichen = True
Me.txtAbf_Vorlageprovision_Mindestbetrag.ForeColor = System.Drawing.Color.Red Me.txtAbf_Vorlageprovision_Mindestbetrag.ForeColor = System.Drawing.Color.Red
Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 95) Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 87)
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLength = 50 Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLength = 50
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLineLength = -1 Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLineLength = -1
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning = "" Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning = ""
@@ -2041,7 +2045,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbwZZVL._Waehrung = False Me.txtAbwZZVL._Waehrung = False
Me.txtAbwZZVL._WaehrungZeichen = True Me.txtAbwZZVL._WaehrungZeichen = True
Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 47) Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 39)
Me.txtAbwZZVL.MaxLength = 10 Me.txtAbwZZVL.MaxLength = 10
Me.txtAbwZZVL.MaxLineLength = -1 Me.txtAbwZZVL.MaxLineLength = -1
Me.txtAbwZZVL.MaxLines_Warning = "" Me.txtAbwZZVL.MaxLines_Warning = ""
@@ -2062,7 +2066,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboRechnungSprache.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboRechnungSprache.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboRechnungSprache.ForeColor = System.Drawing.Color.Black Me.cboRechnungSprache.ForeColor = System.Drawing.Color.Black
Me.cboRechnungSprache.FormattingEnabled = True Me.cboRechnungSprache.FormattingEnabled = True
Me.cboRechnungSprache.Location = New System.Drawing.Point(527, 109) Me.cboRechnungSprache.Location = New System.Drawing.Point(541, 78)
Me.cboRechnungSprache.Name = "cboRechnungSprache" Me.cboRechnungSprache.Name = "cboRechnungSprache"
Me.cboRechnungSprache.Size = New System.Drawing.Size(73, 21) Me.cboRechnungSprache.Size = New System.Drawing.Size(73, 21)
Me.cboRechnungSprache.TabIndex = 39 Me.cboRechnungSprache.TabIndex = 39
@@ -2082,7 +2086,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtDebKdNr._Waehrung = False Me.txtDebKdNr._Waehrung = False
Me.txtDebKdNr._WaehrungZeichen = False Me.txtDebKdNr._WaehrungZeichen = False
Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red
Me.txtDebKdNr.Location = New System.Drawing.Point(125, 20) Me.txtDebKdNr.Location = New System.Drawing.Point(125, 12)
Me.txtDebKdNr.MaxLength = 10 Me.txtDebKdNr.MaxLength = 10
Me.txtDebKdNr.MaxLineLength = -1 Me.txtDebKdNr.MaxLineLength = -1
Me.txtDebKdNr.MaxLines_Warning = "" Me.txtDebKdNr.MaxLines_Warning = ""
@@ -2260,7 +2264,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbf_Waehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboAbf_Waehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboAbf_Waehrung.ForeColor = System.Drawing.Color.Black Me.cboAbf_Waehrung.ForeColor = System.Drawing.Color.Black
Me.cboAbf_Waehrung.FormattingEnabled = True Me.cboAbf_Waehrung.FormattingEnabled = True
Me.cboAbf_Waehrung.Location = New System.Drawing.Point(527, 87) Me.cboAbf_Waehrung.Location = New System.Drawing.Point(541, 56)
Me.cboAbf_Waehrung.Name = "cboAbf_Waehrung" Me.cboAbf_Waehrung.Name = "cboAbf_Waehrung"
Me.cboAbf_Waehrung.Size = New System.Drawing.Size(47, 21) Me.cboAbf_Waehrung.Size = New System.Drawing.Size(47, 21)
Me.cboAbf_Waehrung.TabIndex = 14 Me.cboAbf_Waehrung.TabIndex = 14
@@ -2276,7 +2280,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbf_Steuerschluessel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboAbf_Steuerschluessel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboAbf_Steuerschluessel.ForeColor = System.Drawing.Color.Black Me.cboAbf_Steuerschluessel.ForeColor = System.Drawing.Color.Black
Me.cboAbf_Steuerschluessel.FormattingEnabled = True Me.cboAbf_Steuerschluessel.FormattingEnabled = True
Me.cboAbf_Steuerschluessel.Location = New System.Drawing.Point(527, 65) Me.cboAbf_Steuerschluessel.Location = New System.Drawing.Point(541, 34)
Me.cboAbf_Steuerschluessel.Name = "cboAbf_Steuerschluessel" Me.cboAbf_Steuerschluessel.Name = "cboAbf_Steuerschluessel"
Me.cboAbf_Steuerschluessel.Size = New System.Drawing.Size(105, 21) Me.cboAbf_Steuerschluessel.Size = New System.Drawing.Size(105, 21)
Me.cboAbf_Steuerschluessel.TabIndex = 9 Me.cboAbf_Steuerschluessel.TabIndex = 9
@@ -2292,7 +2296,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbf_Sammelrechnung.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboAbf_Sammelrechnung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboAbf_Sammelrechnung.ForeColor = System.Drawing.Color.Black Me.cboAbf_Sammelrechnung.ForeColor = System.Drawing.Color.Black
Me.cboAbf_Sammelrechnung.FormattingEnabled = True Me.cboAbf_Sammelrechnung.FormattingEnabled = True
Me.cboAbf_Sammelrechnung.Location = New System.Drawing.Point(527, 43) Me.cboAbf_Sammelrechnung.Location = New System.Drawing.Point(541, 12)
Me.cboAbf_Sammelrechnung.Name = "cboAbf_Sammelrechnung" Me.cboAbf_Sammelrechnung.Name = "cboAbf_Sammelrechnung"
Me.cboAbf_Sammelrechnung.Size = New System.Drawing.Size(105, 21) Me.cboAbf_Sammelrechnung.Size = New System.Drawing.Size(105, 21)
Me.cboAbf_Sammelrechnung.TabIndex = 4 Me.cboAbf_Sammelrechnung.TabIndex = 4
@@ -2312,7 +2316,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_BankspesenMindestbetrag._Waehrung = True Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 70) Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 62)
Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50 Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50
Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1 Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1
Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = "" Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = ""
@@ -2337,7 +2341,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Bankspesen._Waehrung = False Me.txtAbf_Bankspesen._Waehrung = False
Me.txtAbf_Bankspesen._WaehrungZeichen = True Me.txtAbf_Bankspesen._WaehrungZeichen = True
Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 74) Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 66)
Me.txtAbf_Bankspesen.MaxLength = 10 Me.txtAbf_Bankspesen.MaxLength = 10
Me.txtAbf_Bankspesen.MaxLineLength = -1 Me.txtAbf_Bankspesen.MaxLineLength = -1
Me.txtAbf_Bankspesen.MaxLines_Warning = "" Me.txtAbf_Bankspesen.MaxLines_Warning = ""
@@ -2363,7 +2367,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Kreditaufwendungen._Waehrung = False Me.txtAbf_Kreditaufwendungen._Waehrung = False
Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 48) Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 40)
Me.txtAbf_Kreditaufwendungen.MaxLength = 10 Me.txtAbf_Kreditaufwendungen.MaxLength = 10
Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1 Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1
Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = "" Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = ""
@@ -2389,7 +2393,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision._Waehrung = False Me.txtAbf_Vorlageprovision._Waehrung = False
Me.txtAbf_Vorlageprovision._WaehrungZeichen = True Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 96) Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 88)
Me.txtAbf_Vorlageprovision.MaxLength = 10 Me.txtAbf_Vorlageprovision.MaxLength = 10
Me.txtAbf_Vorlageprovision.MaxLineLength = -1 Me.txtAbf_Vorlageprovision.MaxLineLength = -1
Me.txtAbf_Vorlageprovision.MaxLines_Warning = "" Me.txtAbf_Vorlageprovision.MaxLines_Warning = ""
@@ -3488,8 +3492,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle29.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.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -3588,8 +3592,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToOrderColumns = True
Me.dgvOffenePosten.AllowUserToResizeRows = 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)) DataGridViewCellStyle30.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.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -3764,40 +3768,40 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToDeleteRows = False
Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToOrderColumns = True
Me.dgvKreditkarten.AllowUserToResizeRows = False Me.dgvKreditkarten.AllowUserToResizeRows = False
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle31.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.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle32.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)) DataGridViewCellStyle32.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 DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle33.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)) DataGridViewCellStyle33.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 DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle33
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.MultiSelect = False
Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.Name = "dgvKreditkarten"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle34.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)) DataGridViewCellStyle34.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 DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle34
Me.dgvKreditkarten.RowHeadersVisible = False Me.dgvKreditkarten.RowHeadersVisible = False
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle35.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.RowsDefaultCellStyle = DataGridViewCellStyle35
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.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.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -3877,26 +3881,26 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'dgvMWST 'dgvMWST
' '
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle36.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle36
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle37.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)) DataGridViewCellStyle37.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 DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle38.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle38
Me.dgvMWST.Location = New System.Drawing.Point(9, 359) Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
Me.dgvMWST.Name = "dgvMWST" Me.dgvMWST.Name = "dgvMWST"
Me.dgvMWST.Size = New System.Drawing.Size(171, 125) Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
@@ -3955,26 +3959,26 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'dgvUstv_LaenderUndSteuernummern 'dgvUstv_LaenderUndSteuernummern
' '
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle41
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259) Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
@@ -4252,26 +4256,26 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvIDS_Standard.AllowUserToAddRows = False Me.dgvIDS_Standard.AllowUserToAddRows = False
Me.dgvIDS_Standard.AllowUserToDeleteRows = False Me.dgvIDS_Standard.AllowUserToDeleteRows = False
Me.dgvIDS_Standard.AllowUserToResizeRows = False Me.dgvIDS_Standard.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42
Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle16 Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle44
Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3) Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3)
Me.dgvIDS_Standard.Name = "dgvIDS_Standard" Me.dgvIDS_Standard.Name = "dgvIDS_Standard"
@@ -4294,26 +4298,26 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvIDS_Rabatte.AllowUserToAddRows = False Me.dgvIDS_Rabatte.AllowUserToAddRows = False
Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
Me.dgvIDS_Rabatte.AllowUserToResizeRows = False Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle19 Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle47
Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3) Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
@@ -4510,26 +4514,26 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvSonst_IDSKunden.AllowUserToAddRows = False Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle22 Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle50
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214) Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.MultiSelect = False
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
@@ -4863,26 +4867,26 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1 'DataGridView1
' '
Me.DataGridView1.AllowUserToResizeRows = False Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle52.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle25 Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle53
Me.DataGridView1.Enabled = False Me.DataGridView1.Enabled = False
Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
Me.DataGridView1.MultiSelect = False Me.DataGridView1.MultiSelect = False
@@ -4949,26 +4953,26 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToDeleteRows = False
Me.dgvBankverbindungen.AllowUserToResizeRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False
DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27 Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle28 Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle56
Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
Me.dgvBankverbindungen.MultiSelect = False Me.dgvBankverbindungen.MultiSelect = False
Me.dgvBankverbindungen.Name = "dgvBankverbindungen" Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
@@ -6124,6 +6128,28 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
' '
'cbxPDFMerge
'
Me.cbxPDFMerge.AutoSize = True
Me.cbxPDFMerge.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxPDFMerge.Location = New System.Drawing.Point(431, 244)
Me.cbxPDFMerge.Name = "cbxPDFMerge"
Me.cbxPDFMerge.Size = New System.Drawing.Size(183, 17)
Me.cbxPDFMerge.TabIndex = 55
Me.cbxPDFMerge.Text = "alle PDFs in RE zusammenführen"
Me.cbxPDFMerge.UseVisualStyleBackColor = True
'
'cbxHR_autoselect
'
Me.cbxHR_autoselect.AutoSize = True
Me.cbxHR_autoselect.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxHR_autoselect.Location = New System.Drawing.Point(431, 264)
Me.cbxHR_autoselect.Name = "cbxHR_autoselect"
Me.cbxHR_autoselect.Size = New System.Drawing.Size(188, 17)
Me.cbxHR_autoselect.TabIndex = 56
Me.cbxHR_autoselect.Text = "Handelrechnung in RE auswählen"
Me.cbxHR_autoselect.UseVisualStyleBackColor = True
'
'usrcntlKundeBearbeitenFull 'usrcntlKundeBearbeitenFull
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -6632,4 +6658,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Button6 As Button Friend WithEvents Button6 As Button
Friend WithEvents Label122 As Label Friend WithEvents Label122 As Label
Friend WithEvents cbxSammelrechnung_IM_EX As CheckBox Friend WithEvents cbxSammelrechnung_IM_EX As CheckBox
Friend WithEvents cbxPDFMerge As CheckBox
Friend WithEvents cbxHR_autoselect As CheckBox
End Class End Class

6
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -233,6 +233,9 @@ Public Class usrcntlKundeBearbeitenFull
cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung
txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "") txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
cbxPDFMerge.Checked = KUNDE_ERW.kde_merge_pdf
cbxHR_autoselect.Checked = KUNDE_ERW.kde_autoselect_handelsrechnung
txtEORI.Text = If(KUNDE.EORITIN, "") txtEORI.Text = If(KUNDE.EORITIN, "")
txtEORINL.Text = If(KUNDE.EORITIN_NL, "") txtEORINL.Text = If(KUNDE.EORITIN_NL, "")
@@ -665,6 +668,9 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.kde_AnmerkungFR = txtFR.Text KUNDE_ERW.kde_AnmerkungFR = txtFR.Text
KUNDE_ERW.kde_Kopfsammelrechnung = cbpKopfsammelrechnung.Checked KUNDE_ERW.kde_Kopfsammelrechnung = cbpKopfsammelrechnung.Checked
KUNDE_ERW.kde_merge_pdf = cbxPDFMerge.Checked
KUNDE_ERW.kde_autoselect_handelsrechnung = cbxHR_autoselect.Checked
If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text) KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
End If End If

4
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -114,6 +114,8 @@ Public Class cKundenErweitert
Property kde_CBAM_CBAMAccountNo As Object = Nothing Property kde_CBAM_CBAMAccountNo As Object = Nothing
Property kde_abwToleranzTage As Object = Nothing Property kde_abwToleranzTage As Object = Nothing
Property kde_SR_IM_EX As Boolean = False Property kde_SR_IM_EX As Boolean = False
Property kde_merge_pdf As Boolean = True
Property kde_autoselect_handelsrechnung As Boolean = False
Dim SQL As New SQL Dim SQL As New SQL
@@ -236,6 +238,8 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CBAM_CBAMAccountNo", kde_CBAM_CBAMAccountNo)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CBAM_CBAMAccountNo", kde_CBAM_CBAMAccountNo))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abwToleranzTage", kde_abwToleranzTage)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abwToleranzTage", kde_abwToleranzTage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SR_IM_EX", kde_SR_IM_EX)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SR_IM_EX", kde_SR_IM_EX))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_merge_pdf", kde_merge_pdf))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_autoselect_handelsrechnung", kde_autoselect_handelsrechnung))